Çevrimdışı

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] hocam süpersin, yardımların için çok teşekkür ediyorum, sayende mırcta çalışan kodları inceleyerek çok şey öğreniyorum. Fakat yine sorun var desem dövmessin umarım. sorun şu, bağlandım serverda mirc 6,21 versiyon kontrolu var, ve bu kod sanırım 7 verisonda çalışıyor. Bende mirc açılışnda kilitleniyor. Oyuzden eski usule kaldım, text ile uğraşıcam.
Ama nasıl hiçbilmiyorum.

 

Çevrimdışı

elimde çalışan şöyle bir kod var. Fakat bu 300 saniyeye gore ayarlanmış. Bunu text dosyası kullanarak nasıl yaparım. Girenleri texte kayıtlı değilse, ip ve nikleri kaydetsin.
Bu text dosyasından okuyarak daha onceki nikini söylesin.


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) { echo -t $chan 4Takip Raporu:12 $nick 5nickinin %cSj saniye içinde kullandığı nickler:14 $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
/takip + <limit>

 

Çevrimdışı

bu şekilde düzenlendi ve nicktakip penceresine atıyor.


on 1:start: { .hmake nicksch 3600 }
on 1:part:#: { if ( $comchan($nick,2) < 2 ) { nicksgrab $nick $site } }
on 1:quit: { nicksgrab $nick $site }
on 1:kick:#: {
if ( $comchan($knick,2) < 2 ) {
if ( $ial($knick).host != $null ) { nicksgrab $knick $ifmatch }
}
}
alias nicksgrab {
.hadd nicksch $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2) $1
}
alias NicksTrouve {
var %a = $iif(($gettok($2,-1,46) == virtuel) && ($numtok($2,46) > 3),$+($gettok($2,1-2,46),.virtuel),$2)
return $iif($hget(nicksch,%a) != $1,$ifmatch)
}
on 1:JOIN:#: {
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 4 [12> > > > > Kanal 4 $chan 12 Şimdiki nick >>> 4 $nick 12 Önceki Nicki4 >>> $ifmatch  )
if ( %NickPrecedent ) {
echo $chan $ifmatch
$iif(!$window(@NickTakip),window -ne @NickTakip)
var %NickPrecedent = $iif($NicksTrouve($nick,$site), 4 [12> > > > > Kanal 4 $chan 12 Şimdiki nick >>> 4 $nick 12 Önceki Nicki4 >>> $ifmatch  )
if ( %NickPrecedent ) {
echo 4 @NickTakip 3[ $+ $time $+ 3] $chan $ifmatch
}
}