this will talk on some commands of the fishbot i hop you like it my first tcl script :)
######################################
### fishbot.tcl ###
### Version 1.0 ###
### By Magnetronkip ###
### www.magnetronkip.com ###
### quakenet #magnetronkip.com ###
######################################
bind pubm -|- "% spoon*" fishbot_spoon
bind pubm -|- "% what is the matrix?*" fishbot_matrix
bind pubm -|- "% snake*" fishbot_snake
bind pubm -|- "% me has returned from playing counterstrike*" fishbot_cs
bind pubm -|- "% where do you want to go today?*" fishbot_redmond
bind pubm -|- "% what do you need?*" fishbot_need
bind pubm -|- "% I Know kungfu*" fishbot_kungfu
bind pubm -|- "% atlantis" fishbot_atlantis
#spoon
proc fishbot_spoon { nick host hand chan text } {
putmsg $chan "shall i bend the spoon with my mind???"
}
#matrix
proc fishbot_matrix { nick host hand chan text } {
putmsg $chan "I think you took the wrong pill my friend!!"
}
#snake
proc fishbot_snake { nick host hand chan text } {
putmsg $chan "we all love snake's do we fishbot?"
}
#cs
proc fishbot_cs { nick host hand chan text } {
putmsg $chan "did you lost $nick?"
}
#where do you want to go
proc fishbot_redmond { nick host hand chan text } {
putmsg $chan "anywhere but the help channel"
}
#what do you need
proc fishbot_need { nick host hand chan text } {
putmsg $chan "Money. Lots of money."
}
#kungfu
proc fishbot_kungfu { nick host hand chan text } {
putmsg $chan "Wanna fight??"
}
#atlantis
proc fishbot_atlantis { nick host hand chan text } {
putmsg $chan "whaha you are sick mate"
}