Neler yeni
MEGAForum - Teknoloji Forumu

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Süresi dolan banları otomatik açmak

Cohen

MFC Üyesi
  • Üyelik Tarihi
    2 Şub 2013
  • Mesajlar
    1,686
  • MFC Puanı
    66
Süresi dolan banları otomatik açmak..

Kod:
   raw 367:*: {   var %sure $ctime - $5   if %sure >= 500 {     inc %c.say     hadd c.temp $+(ip.,%c.say) $3   } } raw 368:*: {   if (%c.say >= 1) {     c.unban $2   } } alias c.unban {   var %bc $1   if (!$hget(c.temp,0).item) { halt }   if ($hget(c.temp,0).item >= 10) { var %s = 10 }   else { var %s = $hget(c.temp,0).item }   var %i = 1,%c   while (%i <= %s) {     %c = $addtok(%c,$hget(c.temp,$hget(c.temp,1).item),32)     hdel c.temp $hget(c.temp,1).item     inc %i   }   mode  %bc - $+ $str(b,%s) %c   .timer -h 1 1 c.unban %bc } on *:start: ilk alias ilk {   if (!$hget(c.temp)) { hmake c.temp 1000 }   else { hfree c.temp | hmake c.temp 1000 }   set %c.say 0 } menu * {    Aktif Kanalda Süresi Dolan Banlari Ac! : mode $chan +b  } on *:join:#: {   if $nick == $me {     write chan.txt $chan   } } on *: part:#: {   if $nick == $me {     write -ds $chan chan.txt   } } alias sureunban {   var %chansfile = chan.txt   var %line = 1, %total = $lines(%chansfile)   while (%line <= %total) {     var %data = $read -l $+ %line %chansfile     if (%data != $null) {       _queue mode %data +b     }     inc %line     inc %sur   }   %names.enddata = %data } alias _queue {   inc %queue.count   if ($timer(.queue) == $null) {     hadd -m queue count 1     hadd -m queue 1 $1-     _doqueue 1   }   else {     var %queue.count = $calc($hget(queue,count) + 1)     hadd -m queue %queue.count $1-     hadd -m queue count %queue.count   } } alias _doqueue {   if ($hget(queue,$1) != $null) {     .timer.queue -m 1 $calc((4 - $gettok(3 2 1,$1,32)) * 500) _doqueue $calc($1 + 1)      $ifmatch     .hdel -s queue $1   }    else hfree queue }
 
Üst Alt