PHP- Kodu

on *:start:{ $iif(!$isfile(ProxyLamer.has),.write ProxyLamer.has) | .hmake ProxyLamer 100 | .hload ProxyLamer ProxyLamer.has | kyt }
alias kyt { $iif(!$isfile(Koruma.has),.write Koruma.has) | .hmake Koruma 100 | .hload Koruma Koruma.has }
on *:join:#Karantina:{ 
  if !$hfind(Koruma,$nick,1,W).data &&  $hfind(ProxyLamer,$nick,1,W).data {
    if ($regex($wildsite,/(Guvenlik|Operator|DevelOper|KalbimFm|GaLataSaray|-Sop.|-Aop.|.Boys.|girls.|Editor|Founder|SuperOp|KonusbeOp|.Radyo.|Koordinatoru|Departman|Yetkilisi|SohbetOp|SohbetSOp|Turkiye|V-I-P|islam|DJ.Sop|halfop|sop|Global|helper|admin|ircop|tech|server|coadmin|services|network)/i)) { halt }
    if ($2 isop $1) || ($istok(#ircethos #helpers #Staff #Spam #Operhelp ##security #Opers #Kontrol #help #helpstaff #Egitim #mirchelp #xline,$chan,32)) return    
    gline $nick : 4[ 2Kural 2ihlali 4] | .window -en  @Bot-Nick | //echo @Bot-Nick İşlem:4  $nick 1İşlenen : 4Botnet Nick G-Banned Saat : 4[ $time 4]
    if !$hget(bdnck,$nick) {
      .hinc -msu20 bdnck $nick 
    }
  }
}
on *:nick:{
  if !$hfind(koruma,$newnick,1,W).data  && $hfind(ProxyLamer,$newnick,1,W).data {
    var %:c $regsubex($str(-,$comchan($newnick,0)),/./g, $iif($regex($nick($comchan($newnick,\n),$me).pnick,/(%|@|&|~\.)/i),$comchan($newnick,\n) $chr(32)))
    var %c = 1 | while %c <= $token(%:c,0,32) {
      gline $token(%:c,%c,32) : 4[ 2Kural 2ihlali 4] | .window -en  @Bot-Nick | //echo @Bot-Nick İşlem:4  $nick 1İşlenen : 4Botnet Nick G-Banned Saat : 4[ $time 4]
      inc %c
    }
  }
}
alias lamerekle {
  if (!$1) { echo $colour(Ctcp) -a $timestamp *** $qt(Lütfen nick belirtiniz) | return }        
  if $hfind(ProxyLamer,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Bu veri Listede zaten ekli4 $+([,$chr(32),$hget(ProxyLamer,$hfind(ProxyLamer,$strip($1),1,W).data),$chr(32),]) 1eslesen veri. | return }
  var %n = $left($calc($ctime * $rand(1000,9999)),7)
  .hadd -ms ProxyLamer %n $strip($1)
  .hsave -o ProxyLamer ProxyLamer.has
  echo $colour(Ctcp) -a $timestamp *** $chr(39) 4LamerNick1 listesine eklenen mask14 $chr(39)  $qt($strip($1)) 
}
alias lamersil {
  if (!$1) { echo $colour(Ctcp) -a $timestamp ***  $qt(Lütfen nick belirtiniz) | return }        
  if !$hfind(ProxyLamer,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Silmek istediginiz4 $chr(39) $qt($strip($1)) $chr(39) 1Listede4 Yok | return }
  .hdel -ms ProxyLamer $hfind(ProxyLamer,$strip($1),1,W).data
  .hsave -o ProxyLamer ProxyLamer.has
  echo $colour(Ctcp) -a $timestamp *** $chr(39) 4LamerNick1 listesinden 3silinen1 veri4 $chr(39)  $qt($strip($1)) 
}
alias lamerKorumaekle {
  if (!$1) { echo $colour(notice) -a $timestamp *** $qt(Lütfen nick belirtiniz) | return }        
  if $hfind(koruma,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** Bu veri Listede zaten ekli $+([,$chr(32),$hget(koruma,$hfind(koruma,$strip($1),1,W).data),$chr(32),]) eslesen veri. | return }
  var %n = $left($calc($ctime * $rand(1000,9999)),7)
  .hadd -ms koruma %n $strip($1)
  .hsave -o koruma koruma.has
  echo $colour(notice) -a $timestamp *** $chr(39) 4Koruma1 listesine 3eklenen 1veri4 $chr(39)  $qt($strip($1)) 
}
alias lamerKorumasil {
  if (!$1) { echo $colour(notice) -a $timestamp ***  $qt(Lütfen nick belirtiniz) | return }        
  if !$hfind(Koruma,$strip($1),0,W).data { echo $colour(Ctcp) -a $timestamp *** 1Korumalardan Silmek istediginiz4 $chr(39) $qt($strip($1)) $chr(39) 1Listede Yok | return }
  .hdel -ms koruma $hfind(Koruma,$strip($1),1,W).data
  .hsave -o Koruma koruma.has
  echo $colour(Koruma) -a $timestamp *** $chr(39) 4Koruma listesinden 3silinen veri4 $chr(39)  $qt($strip($1)) 
}
alias lamerkorumalist {
  echo $colour(notice) -a $timestamp *** koruma listeleniyor
  var %klst = 1 
  while (%klst <= $hget(Koruma,0).item) { 
    echo -a %klst $+ -) $hget(Koruma,%klst).data 
    inc %klst 
  }
  echo $colour(notice) -a $timestamp *** koruma liste sonu
}
alias lamerlist {
  echo $colour(notice) -a $timestamp *** lamerNick listeleniyor
  var %blst = 1
  while %blst <= $hget(ProxyLamer,0).item {
    echo -a %blst $+ -) $hget(ProxyLamer,%blst).data
    inc %blst
  }
  echo $colour(notice) -a $timestamp *** lamerNick liste sonu
}
;/BotEkle Nick - /BotSil Nick - /BotList
;/BotKorumaEkle Nick - /BotKorumaSiL Nick - KList
;Muaf host eklenmiştir oper admin için - Muaf kanal eklenmiştir
;muaf nick için ise Koruma tablosu olusturulmustur. Koruma da eklı nickler Muaf alınmıstır
;Eger istenilir ise muaf nick $read üzerinden text dosyasından okutulabılır - $istok muaf nick ayrıca eklene bilir..
;
;# # extra eklenebilir muaf bölümü bunlardır..
;if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {
;if !$regex($gettok($address($nick,1),2,64),/(admin|oper|helper|global|yardimci|aop|op|ircop|global|sop|founder)/i) {
;# #