mIRC Home    About    Download    Register    News    Help

Print Thread
#79242 14/04/04 05:17 PM
Joined: Apr 2004
Posts: 3
D
Self-satisified door
OP Offline
Self-satisified door
D
Joined: Apr 2004
Posts: 3
ctcp *:*:*:{
if (%Ctcp. [ $+ [ $wildsite ] ] == $null) { inc -u40 %Ctcp. [ $+ [ $wildsite ] ] }
else { inc %Ctcp. [ $+ [ $wildsite ] ] }
if (%Ctcp. [ $+ [ $wildsite ] ] >= 3) {
var %i = 1
while (%i <= $comchan($nick,0)) {
if ($me isop $comchan($nick,%i)) {
.ignore -tu300 $nick 3
set -u3600 %rl. [ $+ [ $address($nick,2) ] ] $calc( %rl. [ $+ [ $address($nick,2) ] ] + 1)
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) .notice $nick Please don't ctcp flood this is your first warning
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) ban -u60 # $nick 11 you have been placed on notice ban for ctcp flood 1 minute ban
if (%rl. [ $+ [ $address($nick,2) ] ] >= 3) { ban -600 # $nick you where warned for ctcp 1 minute ban
ban # $nick 11
kick # $nick You were warned. You where ctcp flood me 1 hour ban
}
unset %Ctcp. [ $+ [ $wildsite ] ]
}
inc %i
}
}
}

Hello, i made this code my slfe for same reasion dose not seem to work and i need help

Last edited by MIMP; 15/04/04 12:08 AM.
Joined: Dec 2002
Posts: 208
C
Fjord artisan
Offline
Fjord artisan
C
Joined: Dec 2002
Posts: 208
eh, i was very very happy when K introduced $+() and $eval() into mIRC

there is no longer any need for [ ] .. although yes they will still work .. i've found them to be far more trouble then they are worth because most users dont understand how they work.

my advice is to redo all that code utalizeing $+() and $eval() and do away with the [ ] 's

then if it still doesnt work, paste the new code and i'll take a look at it.

if you need help with $+() and $eval() beyond what the help file provides let us know, thanks

Cobra^

Joined: Apr 2004
Posts: 3
D
Self-satisified door
OP Offline
Self-satisified door
D
Joined: Apr 2004
Posts: 3
Cobra i remade this code now i cannot get this to work been trying to get this work last 2 days i give this up i need your help here the code


ctcp *:*:*:{
if (%Ctcp. [ $+ [ $wildsite ] ] == $null) { inc -u40 %Ctcp. [ $+ [ $wildsite ] ] }
else { inc %Ctcp. [ $+ [ $wildsite ] ] }
if (%Ctcp. [ $+ [ $wildsite ] ] >= 3) {
var %i = 1
inc -u3600 %rl. [ $+ [ $address($nick,2) ] ]
if (%rl. [ $+ [ $address($nick,2) ] ] == 1) { .notice $nick Please don't ctcp flood this is your first warning }
while (%i <= $comchan($nick,0)) {
if ($me isop $comchan($nick,%i)) {
if (%rl. [ $+ [ $address($nick,2) ] ] == 2) {
.notice $nick you have been placed on notice ban for ctcp flood 1 minute ban
ban -u60 $comchan($nick,%i) $nick
}
ban -600 # $nick you where warned for ctcp 1 minute ban ban # $nick 11
if (%rl. [ $+ [ $address($nick,2) ] ] >= 3) {
.ignore -tu300 $nick 3
ban -u600 $comchan($nick,%i) $nick 11
kick $comchan($nick,%i) $nick You were warned. You where ctcp flood me 1 hour ban

}
unset %Ctcp. [ $+ [ $wildsite ] ]
}
inc %i
}
}
}


Link Copied to Clipboard