;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Anti Bot/Script Detector V1.5.1
; by _BrizBoi_
; http://msnskriptz.phreik.com
; [email protected]
; 02/08/03
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Script kicker for keeping other scripts out of your chatroom. Can do upto 9 different checks.
;
; CTCP checks for Isitvincula, Version, Finger, DtaE, Time, Ping, 2ndTime, 2ndPing
; Does Whois check
; Selectable from menu which ones u want to check for.
;
; WebTV options to bypass script test, and bypass Guest Access ban.
; This lets WebTV users into your room but all other guests are still banned ;-)
;
; doesnt kick your trusted script users if u were to type eg. //ctcp $chan version
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
; Recomended
;
; Eydropper1.5. Standalone bot for checking inside profiles onjoin
; hints for eyedropper:-
;
; diff nickname to nickname on profile = bot
; nickname on profile 'unknown' = bot
;
; it can also kick porn/outwar homepages onjoin etc.. and other features.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu nicklist {
-
SCRIPT TRUST LIST
.Add:/$addtrusted($$1)
.Remove:/$remtrusted($$1)
.-
.View trusted:/run text\~script.trust.txt
-
}
alias addtrusted {
write -ds $msngkshort($1) text\~script.trust.txt
write -il1 text\~script.trust.txt $msngkshort($1) - $1
echo -a $1 added to script trusted list
}
alias remtrusted {
write -ds $msngkshort($1) text\~script.trust.txt
echo -a $1 remove from script trusted list
}
alias msngk {
if (> isin $ial($1)) {
var %x = $replace($ial($1),@GateKeeper,$NULL)
return * $+ ! $+ $right(%x,32) $+ @ $+ * $+ $ $+ *
}
if (> !isin $ial($1)) {
var %x = $replace($ial($1),@GateKeeperPassport,$NULL)
return * $+ ! $+ $right(%x,16) $+ @ $+ * $+ $ $+ *
}
}
alias msngkshort {
if (> isin $ial($1)) {
var %x = $replace($ial($1),@GateKeeper,$NULL)
return $right(%x,32)
}
if (> !isin $ial($1)) {
var %x = $replace($ial($1),@GateKeeperPassport,$NULL)
return $right(%x,16)
}
}
#AntiBOT off
on *:JOIN:*: {
if (%AllowWebTV == $null) %AllowWebTV = yes
if (%AllowWebTV == yes) && (D21DB211 isin $ial($nick).addr) { mode $chan -v $nick | halt }
if ($read(text\~script.trust.txt,s,$msngkshort($nick)) || ($nick == $me)) halt
if (%tpwait == $NULL) %tpwait = 30
if (%scriptkickfloodprot == $null) %scriptkickfloodprot = off
if (%dowhois == $null) %dowhois = on
if (%dovincula == $null) %dovincula = on
if (%doubleping == $null) %doubleping = off
if (%doubletime == $null) %doubletime = off
if (%dotime1 == $null) %dotime1 = on
if (%doping1 == $null) %doping1 = on
if (%doversion == $null) %doversion = on
if (%dofinger == $null) %dofinger = on
if (%dodtae == $null) %dodtae = on
if (%floodthreat == $null) %floodthreat = skip
if (%scriptkickfloodprot == off) goto skip.flood.prot
if (%scriptkickpause = $true) {
if (%floodthreat == kick) kick $chan $nick sorry, "joinflood protection" , someone just joined the room a split second before u, please click 'Refresh' on your browser and come back 
halt
}
set -u1 %scriptkickpause $true
:skip.flood.prot
if (%dovincula != off) .ctcp $nick isitvincula
if (%dotime1 != off) .timer $+ $nick $+ a 1 0 ctcp $nick time
if (%doping1 != off) .timer $+ $nick $+ b 1 2 ctcp $nick ping
if (%doversion != off) .timer $+ $nick $+ c 1 4 ctcp $nick version
if (%dofinger != off) .timer $+ $nick $+ d 1 5 ctcp $nick finger
if (%dodtae != off) .timer $+ $nick $+ e 1 6 ctcpreply $nick ”DTäE
if (%dowhois != off) .timer $+ $nick $+ f 1 7 whois $nick
if (%dotime1 != off) {
.timer $+ $nick $+ -tb1 1 %tpwait access $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) add deny $msngk($nick) 2000 : $nick - No time reply 1 in %tpwait $+ secs
.timer $+ $nick $+ -tk1 1 %tpwait kick $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) $nick 
8-|No Time Reply (1)8-| 

\\SCRIPT//:D
}
if (%doping1 != off) {
.timer $+ $nick $+ -pb1 1 $calc(%tpwait + 1) access $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) add deny $msngk($nick) 2000 : $nick - No ping reply 1 in %tpwait $+ secs
.timer $+ $nick $+ -pk1 1 $calc(%tpwait + 1) kick $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) 
8-|No Ping Reply8-| 

\\SCRIPT//:D
}
if (%doubletime != off) {
.timer 1 0 ctcp $nick time
.timer $+ $nick $+ -tb2 1 $calc(%tpwait + 2) access $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) add deny $msngk($nick) 2000 : $nick - No time reply 2 in %tpwait $+ secs
.timer $+ $nick $+ -tk2 1 $calc(%tpwait + 2) kick $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) $nick 
8-|No Time Reply(2)8-| 

\\SCRIPT//:D
}
if (%doubleping != off) {
.timer 1 2 ctcp $nick ping
.timer $+ $nick $+ -pb2 1 $calc(%tpwait + 3) access $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) add deny $msngk($nick) 2000 : $nick - No ping reply 2 in %tpwait $+ secs
.timer $+ $nick $+ -pk2 1 $calc(%tpwait + 3) kick $!chr(37) $!+ $right($msn.get($cid,fullroom),-1) $nick 
8-|No Ping Reply(2)8-| 

\\SCRIPT//:D
}
}
on *:CTCPREPLY:*TIME*: {
if ($timer($nick $+ -tk1) != $null) {
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tb1 off
}
else {
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -tb2 off
}
}
on *:CTCPREPLY:*PING*: {
if ($timer($nick $+ -pk1) != $null) {
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pb1 off
}
else {
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -pb2 off
}
}
on *:CTCPREPLY:*Vincula*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - Vincula reply = $1-
kick $comchan($me,1) $nick 
8-|Vincula Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*msn-mirc*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - MSNMIRC reply = $1-
kick $comchan($me,1) $nick 
8-|Msn-Mirc Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*clearMSN*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - ClearMSN reply = $1-
kick $comchan($me,1) $nick 
8-|ClearMsn Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*mirc*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - Mirc reply = $1-
kick $comchan($me,1) $nick 
8-|Mirc Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*Koz*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - Kozical Connection reply = $1-
kick $comchan($me,1) $nick 
8-|Kozical Connection Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*FINGER*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - Finger reply = $1-
kick $comchan($me,1) $nick 
8-|Finger Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*VERSION*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
if (%AllowWebTV == yes) && (D21DB211 isin $ial($nick).addr) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - Version reply = $1-
kick $comchan($me,1) $nick 
8-|Version Reply8-| 

\\SCRIPT//:D
}
on *:CTCPREPLY:*”DTäE*: {
if $read(text\~script.trust.txt,s,$msngkshort($nick)) { halt }
access $comchan($me,1) add deny $msngk($nick) 2000 : $nick - DTaE reply = $1-
kick $comchan($me,1) $nick 
8-|DTAE Reply8-| 

\\SCRIPT//:D
}
raw 311:*: {
if ($read(text\~script.trust.txt,s,$msngkshort($2)) || ($2 == $me)) { halt }
if (($6- != $null) && (%dowhois == on)) {
access $comchan($me,1) add deny $msngk($2) 2000 : $2 - Whois reply = $6-
kick $comchan($me,1) $2 
\\WhoIs//
}
}
on *:part:#: {
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -tb1 off
.timer $+ $nick $+ -tb2 off
.timer $+ $nick $+ -pb1 off
.timer $+ $nick $+ -pb2 off
.timer $+ $nick $+ a off
.timer $+ $nick $+ b off
.timer $+ $nick $+ c off
.timer $+ $nick $+ d off
.timer $+ $nick $+ e off
.timer $+ $nick $+ f off
}
on *:quit: {
.timer $+ $nick $+ -tk1 off
.timer $+ $nick $+ -tk2 off
.timer $+ $nick $+ -pk1 off
.timer $+ $nick $+ -pk2 off
.timer $+ $nick $+ -tb1 off
.timer $+ $nick $+ -tb2 off
.timer $+ $nick $+ -pb1 off
.timer $+ $nick $+ -pb2 off
.timer $+ $nick $+ a off
.timer $+ $nick $+ b off
.timer $+ $nick $+ c off
.timer $+ $nick $+ d off
.timer $+ $nick $+ e off
.timer $+ $nick $+ f off
}
on *:kick:#: {
.timer $+ $knick $+ -tk1 off
.timer $+ $knick $+ -tk2 off
.timer $+ $knick $+ -pk1 off
.timer $+ $knick $+ -pk2 off
.timer $+ $knick $+ -tb1 off
.timer $+ $knick $+ -tb2 off
.timer $+ $knick $+ -pb1 off
.timer $+ $knick $+ -pb2 off
.timer $+ $knick $+ a off
.timer $+ $knick $+ b off
.timer $+ $knick $+ c off
.timer $+ $knick $+ d off
.timer $+ $knick $+ e off
.timer $+ $knick $+ f off
}
#AntiBOT end
Try That It Works For Me!