###########################################
#Setting check as a global
set check(obot) "\002\0033PASS\0031"

###############The Main Procedure that activates the bind
proc check:channel {chan} {
global settings check
channel add $chan +secure
bind pubm -|- *CORECT*USAGE* check:purgeobot
bind pubm -|- *remember*seeing* check:purgeobot
bind pubm -|- *Nu*mi*amintesc* check:purgeobot
bind pubm -|- *a*fost*vazut*ultima* check:purgeobot
bind pubm -|- *was*last*seen* check:purgeobot
utimer 1 [list putserv "PRIVMSG $settings(suppchan) :Starting channel check routine for \002$chan\002 Please wait 60 seconds..."]
	utimer 20 [list check:moderate $chan]
   	utimer 30 [list putserv "PRIVMSG $chan :!usage"]
 	utimer 40 [list putserv "PRIVMSG $chan :!help"]
	utimer 50 [list putserv "PRIVMSG $chan :!seen aqwzsx"]
utimer 60 [list unbind pubm -|- *CORECT*USAGE* check:purgeobot]
utimer 60 [list unbind pubm -|- *remember*seeing* check:purgeobot]
utimer 60 [list unbind pubm -|- *Nu*mi*amintesc* check:purgeobot]
utimer 60 [list unbind pubm -|- *a*fost*vazut*ultima* check:purgeobot]
utimer 60 [list unbind pubm -|- *was*last*seen* check:purgeobot]
utimer 61 [list putquick "PRIVMSG $settings(suppchan) :Channel check routine for \002$chan\002 is completed. Following are the results:"]
utimer 62 [list putquick "PRIVMSG $settings(suppchan) :\002$chan\002 ABUSE Check: [check:abuse $chan]"]
utimer 63 [list putquick "PRIVMSG $settings(suppchan) :\002$chan\002 OTHER BOTS Check: $check(obot)"]
utimer 64 [list putquick "PRIVMSG $settings(suppchan) :\002$chan\002 PEOPLE check: [check:ppl $chan]"]
utimer 65 [list putquick "PRIVMSG $settings(suppchan) :END of Check Routine"]
utimer 75 [list channel remove $chan]
}


#############################################
#The holy proc that has to change the value of check(obot)
#Lets consider it being executed
proc check:purgeobot {nick uhost hand chan text} {
	global settings check
	set check(obot) "\002\0034FAILED\0031, you already have an eggdrop $nick on $chan"
}