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) {
;# #