Çevrimdışı

Selam Aleikum degerli kardeslerim. Aklima birkac kod gorunce boyle bir fikir geldi ve malesef o kadar bilgili olmadigim icin sizlere sormak istedim cunku bence herkeze yardimci olacaktir. Elimde asagida yazacagim bir kod war. Kod bana ait deildir kesinlikle ve kiminde oldugunu bilmiorum. Yapmaya calistigim sey ise sudur.. bildiginiz gibi bazi lamerler gelip kufur edip zline yiyip kacarlar. Iki dakka sonra modeme reset atip gelirler. Istedigim kod bu ipleri hash tablosuna atip son haneleri degisirse su kisi olabilir demesi. Ornek:

Okyanus(deneme@ISEJENS.OPEHBSE.WAHOUD) Giris yapti
ip adresi 78.180.163.124 (zline yiyor)(reset atior gelior)
ebenizi(deneme@ISEJENS.OPEHBSE.UENSYE) Giris yapti
ip adresi 78.180.166.157. Boyle birsey olursa notice olarak bana Okyanus yine gelmis olabilir demesini istiorum..

on 1:connect:{
.IAL ON
takip + 300
}
alias takip {
if $1 == + {
$iif($hget(Takip),hfree Takip)
.enable #Takip | $iif(!$hget(Takip),hmake Takip 1000)
set %cSj $iif($2,$2,300)
echo -ta 4Takip Modu Devrede!.. $+([,%cSj,sn.,])
}
else {
.disable #Takip
unset %cSj
echo -ta 14Takip Modu DevreDýþý !
}
}

#Takip on
on ^*:QUIT:{
hadd $iif($address($nick,2),$+(-u,%cSj),$+(-u1)) Takip $address($nick,2) $iif($istok($hget(Takip,$address($nick,2)),$nick,3 2),$hget(Takip,$address($nick,2)),$iif($hget(Takip ,$address($nick,2)),$hget(Takip,$address($nick,2)) + $nick,$nick))
}

on !^*:JOIN:#:{
if ($hget(Takip,$address($nick,2)) && $hget(Takip,$address($nick,2)) != $nick) {
/notice $me 0,1**** 0,1( 0,1TAKÝP RAPORU 0,1)0,1 $chan 0,1kanalýna giren0,1 $nick 0,1nickinin %cSj saniye içinde kullandýðý nickler: 0,1 $hget(Takip,$address($nick,2))
}
if $gettok($hget(Takip,$address($nick,2)).data,0,43) > 3 {
ban -k $chan $nick 2 Nick Change
}
}
#Takip end