Kod: Kodu kopyalamak için üzerine çift tıklayın!
on @*:join:#: {
var %i = 1
while (%i <= $ialchan($address($nick,2),$chan,0)) {
if ($gettok($hget(clonetool,$chr(35)),1,46) < $ialchan($address($nick,2),$chan,0)) {
if (($gettok($hget(clonetool,$chr(35)),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextgb }
if (($gettok($hget(clonetool,$chr(35)),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextgb }
if (($gettok($hget(clonetool,$chr(35)),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextgb }
mode $chan +b $address($nick,2) | kick $chan $ialchan($address($nick,2),$chan,%i).nick 4,1Clone12 Join!
}
:nextgb
if (($hget(clonetool,$chr(35)) == $null) && ($gettok($hget(clonetool,$chan),1,46) < $ialchan($address($nick,2),$chan,0))) {
if (($gettok($hget(clonetool,$chan),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextch }
if (($gettok($hget(clonetool,$chan),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextch }
if (($gettok($hget(clonetool,$chan),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextch }
mode $chan +b $address($nick,2) | kick $chan $ialchan($address($nick,2),$chan,%i).nick 4,1Clone12 Join!
}
:nextch
inc %i 1
}
if (($gettok($hget(clonetool,genel),7,46) == 1) && ($ialchan($address($nick,2),$chan,0) > 1)) {
var %i = 1, %clonetool = $null
while (%i <= $ialchan($address($nick,2),$chan,0)) {
if ($gettok($hget(clonetool,genel),5,46) == 1) { cline $gettok($hget(clonetool,genel),6,46) $chan $ialchan($address($nick,2),$chan,%i).nick }
if ($len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$chan,%i).nick }
inc %i 1
}
echo $iif([tstamp] isin $gettok($hget(clonetool,genel),8,46),-t) $chan $remove($replace($gettok($hget(clonetool,genel),8,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u], ,[r],),[tstamp])
}
}
on *:part:#: {
if (($gettok($hget(clonetool,genel),9,46) == 1) && ($ialchan($address($nick,2),$chan,0) > 1)) {
var %i = 1, %clonetool = $null
while (%i <= $ialchan($address($nick,2),$chan,0)) {
if ($gettok($hget(clonetool,genel),5,46) == 1) { if ($ialchan($address($nick,2),$chan,0) <= 2) { cline $color(listbox text) $chan $ialchan($address($nick,2),$chan,%i).nick } }
if ($len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$chan,%i).nick }
inc %i 1
}
echo $iif([tstamp] isin $gettok($hget(clonetool,genel),10,46),-t) $chan $remove($replace($gettok($hget(clonetool,genel),10,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u], ,[r],),[tstamp])
}
}
on *:join:#: {
var %i = 1
while (%i <= $ialchan($address($nick,2),$chan,0)) {
if ($gettok($hget(clonetool,$chr(35)),1,46) < $ialchan($address($nick,2),$chan,0)) {
if (($gettok($hget(clonetool,$chr(35)),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextgb }
if (($gettok($hget(clonetool,$chr(35)),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextgb }
if (($gettok($hget(clonetool,$chr(35)),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextgb }
}
:nextgb
if (($hget(clonetool,$chr(35)) == $null) && ($gettok($hget(clonetool,$chan),1,46) < $ialchan($address($nick,2),$chan,0))) {
if (($gettok($hget(clonetool,$chan),3,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isop $chan)) { goto nextch }
if (($gettok($hget(clonetool,$chan),4,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick ishop $chan)) { goto nextch }
if (($gettok($hget(clonetool,$chan),5,46) == 1) && ($ialchan($address($nick,2),$chan,%i).nick isvoice $chan)) { goto nextch }
}
:nextch
inc %i 1
}
if (($gettok($hget(clonetool,genel),7,46) == 1) && ($ialchan($address($nick,2),$chan,0) > 1)) {
var %i = 1, %clonetool = $null
while (%i <= $ialchan($address($nick,2),$chan,0)) {
if ($gettok($hget(clonetool,genel),5,46) == 1) { cline $gettok($hget(clonetool,genel),6,46) $chan $ialchan($address($nick,2),$chan,%i).nick }
if ($len(%clonetool) < 800) { %clonetool = %clonetool $ialchan($address($nick,2),$chan,%i).nick }
inc %i 1
}
echo $iif([tstamp] isin $gettok($hget(clonetool,genel),8,46),-t) $chan $remove($replace($gettok($hget(clonetool,genel),8,46),[clone],%clonetool,[comma],$chr(44),[b],,[k],,[o],,[u], ,[r],),[tstamp])
}
}