raw 352:*:{
inc % $+ $+($2,.,$4)
}
#JoinPart1 on
on *:join:#:{
if ($nick == $me) {
unset % $+ $chan $+ *
.IAL
}
else {
inc % $+ $+($chan,.,$site)
if ($me isop $chan) {
if ([ %stop. [ $+ [ $chan ] ] ] == $null) {
var %f = $dll(aircdll.dll,Flood,$+(floodjoin,$chr(164),$site,$chr(164),$chan) 1 5 2)
if (+FLOOD* iswm %f) {
set -u5 %stop. [ $+ [ $chan ] ] 1
set %shitaddress $address($nick,2)
set %chan.scan $chan
set %chan.num 1
set %tmpclones 1
mode $chan +bm %shitaddress | echo -a %d1 co' Flood # kia` $me %d2 %ver
.timerscan 1 1 scanscan $chan %shitaddress
.timerkickclones1 1 2 kickuser $chan clones
}
}
elseif ($wildsite == %shitaddress) {
.auser clones $nick
}
if ([ %stop. [ $+ [ $chan ] ] ] == $null) {
inc %numjoin. [ $+ [ $chan ] ] 1
hadd -mu3 $chan %numjoin. [ $+ [ $chan ] ] $nick $wildsite
.timer 1 3 dec %numjoin. [ $+ [ $chan ] ] 1
if (%numjoin. [ $+ [ $chan ] ] == 8) {
set -u5 %stop. [ $+ [ $chan ] ] 1
mode $chan +mRx
.timers off
%numberclone = 1
while $hget($chan,%numberclone) {
hadd -m $+(clone.,$chan) %numberclone $hget($chan,%numberclone)
inc %numberclone 1
}
unset %numjoin. [ $+ [ $chan ] ] | hfree $chan
var %i = 1
while ($hget($+(clone.,$chan),%i).item) {
hadd -m $+(Ipfake.,$chan) $gettok($hget($+(clone.,$chan),%i).data,2,32) Yes
inc %i 1
}
.timerbanclonefakeip -m 0 1000 banm $chan
}
}
else {
hadd -m $+(clone.,$chan) %numberclone $nick $wildsite | inc %numberclone 1
hadd -m $+(Ipfake.,$chan) $wildsite Yes
}
}
}
}
alias stop .timers off
alias scanscan {
var %thenumclone 1
while (%thenumclone <= $ialchan($2,$1,0)) {
if ($ialchan($2,$1,%thenumclone).nick != $me) {
.auser clones $ialchan($2,$1,%thenumclone).nick
inc %thenumclone 1
}
else { inc %thenumclone 1 }
}
}
alias kickuser .timerkickuser -m 0 1000 kickuser1 $1 $2
alias kickuser1 {
if (%tmpusers == $null) { %tmpusers = 1 }
:loop
if $ulist(*,$2,%tmpusers) {
else { %thenumclones = th }
if ($ulist(*,$2,%tmpusers) ison $1) {
if (%tmpusers == 1) { %thenumclones = st }
if (%tmpusers == 2) { %thenumclones = nd }
if (%tmpusers == 3) { %thenumclones = rd }
kick $1 $ulist(*,$2,%tmpusers) %tmpusers $+ %thenumclones of $ulist(*,$2,0) %ver
inc %tmpusers 1
}
else { inc %tmpusers 1 | goto loop }
}
else {
stop
.rlevel clones
mode $1 -mRx
unset %tmpusers %thenumclones %shitaddress
}
}
alias banm {
if (!%i) { %i = 1 }
if ($hget($+(ipfake.,$1),%i).item) {
mode $1 +bbbbbb $hget($+(ipfake.,$1),%i).item $hget($+(ipfake.,$1),$calc(%i + 1)).item $hget($+(ipfake.,$1),$calc(%i + 2)).item $hget($+(ipfake.,$1),$calc(%i + 3)).item $hget($+(ipfake.,$1),$calc(%i + 4)).item $hget($+(ipfake.,$1),$calc(%i + 5)).item
inc %i 6
}
else {
.timerbanclonefakeip off | unset %i
var %i = 1
while ($hget($+(ipfake.,$1),%i).item) {
inc %i 1
}
.timerkickcloneFakeip -m 0 2000 kickclonefakeip $1
}
}
alias kickclonefakeip {
if (!%kickclonefakeip) { %kickclonefakeip = 1 }
:loop
if $hget($+(clone.,$1),%kickclonefakeip) {
if ($gettok($hget($+(clone.,$1),%kickclonefakeip),1,32) ison $1) {
kick $1 $hget($+(clone.,$1),%kickclonefakeip) %ver
inc %kickclonefakeip 1
}
else { inc %kickclonefakeip 1 | goto loop }
}
else {
.timerkickcloneFakeip off
unset %kickclonefakeip %numberclone
var %i = 1
if ($hget($+(clone.,$1))) { hfree $+(clone.,$1) }
if $hget($+(ipfake.,$1)) { hfree $+(ipfake.,$1) }
mode $1 -mRx
}
}
#JoinPart1 end
ok it does work but sometime it doesnt work and it just keeping echo the : * /if: '$' unknown operator
can someone please take a look at this and tell me what's wrong with this thanks
