Fast rejoin
Platform: mIRC
Published May 28, 2009
Updated May 28, 2009
This updating are dedicated to RamzkiE.. he always challenges me to update new script
socket..its about fast join and %dark and %wban.. Have fun RamzkiE..any suggestion please
comment..~~~ Thanks ;P
alias on:kick {
if ($4 == %chan) {
var %n $sn($2)
set %name $remtok(%name,$5,1,32)
if ($5 == $1) && (!$istok(%ally,%n,32)) {
set %foes $addtok(%foes,%n,44
set %fast $iif(%fast,0,0)
set %imop $false
unset %kick %nvxa %nvxb
if (%pkmsg) { set %pick_kmsg $replace($sl($6-),$chr(32),$chr(160)) }
if (%fjdeop) {
sx $1 cs deop %chan $_replace
}
sx $1 $iif(%fast,join,cs invite) $4
}
else {
set %kick $remtok(%kick,$5,1,44)
if ($1 == %n) {
inc %kickni 1
if ($1 == %n) && (%chk) && (!%chn) { set -u5 %chn ! | chnick }
}
}
se kick $iif($5 == $1,You were,$5 was) kicked from $4 by %n $+($chr(40),$iif($left($6,1) == :,$right($6-,-1),$6-),,$chr(41))
}
