Code: Select all
bind pub - "cs anyone?" pub:cs
proc pub:cs {nick host handle chan}
{
putquick "PRIVMSG $chan :I like CS! Play with me! My steams not working though
return 0}
bind pub - "Ah snake a snake! Snake, a snake! Ooooh, it's a snake!" pub:snake
proc pub:snake {nick host handle chan}
{
putquick "PRIVMSG $chan :You sissy girl Fishbot!
return 0}
bind pub - "There is no spoon." pub:spoon
proc pub:spoon {nick host handle chan}
{
putquick "PRIVMSG $chan :Ill just put this back into the drawer then shall i?
return 0}
bind pub - "No-one can be told what the matrix is. You have to see it for yourself." pub:matrix
proc pub:matrix {nick host handle chan}
{
putquick "PRIVMSG $chan :Its a movie ffs! you numpty fishbot!
return 0}
bind pub - "Show me." pub:show
proc pub:show {nick host handle chan}
{
putquick "PRIVMSG $chan :Ill just get my samuari sword then shall i?
return 0}
bind pub - "Nope, too sober for vinegar. Try later." pub:sober
proc pub:sober {nick host handle chan}
{
putquick "PRIVMSG $chan :Your not sober fishbot, you can't even stand up straight!
return 0}
bind pub - "% Who are you [707]Oobie\?" pub:oob
proc pub:oob {nick host handle chan}
{
putquick "PRIVMSG $chan :His name is Oobie Doo benoobie, he has the silliest name in the entire galaxy
return 0}
bind pub - "bye" pub:bye
proc pub:bye {nick host handle chan}
{
putquick "PRIVMSG $chan :Cya Soon $nick
return 0}
bind pub - "fish go moo" pub:fish1
proc pub:fish1 {nick host handle chan}
{
putquick "PRIVMSG $chan :FISH DON'T GO MOO YOU FOOL SO STFU!!!
return 0}
bind pub - "yooooooooo" pub:yo
proc pub:yo {nick host handle chan}
{
putquick "PRIVMSG $chan :yo0o0o0o0o!
return 0}
bind pub - "stfu Bird-Plop" pub:stfubp
proc pub:stfubp {nick host handle chan}
{
putquick "PRIVMSG $chan : ;'(
return 0}
bind pub - "nn" pub:nn
proc pub:nn {nick host handle chan}
{
putquick "PRIVMSG $chan :Night Night $nick
return 0}
bind pub - "% where are we bird-plop\?" pub:where
proc pub:where {nick host handle chan}
{
putquick "PRIVMSG $chan :Ask Oobie. He knows much about the galaxy.
return 0}
bind pub - "I don't want to know" pub:know
proc pub:know {nick host handle chan}
{
putquick "PRIVMSG $chan :If your playing me keep it on the low....sings along...
return 0}
bind pub - "La La La" pub:la
proc pub:la {nick host handle chan}
{
putquick "PRIVMSG $chan :Bird-Plop always smokin that la la la, Scorchin always smokin that la la la, Freeway always smokin that la la la
return 0}
bind pub - "~ ffs you let them get away!!" >:( pub:getaway
proc pub:getaway {nick host handle chan}
{
putquick "PRIVMSG $chan :well, wtf did you do to keep them in fishbot! exactly, nothing so stop complaining.
return 0}
Code: Select all
set reply_chans "#chan1"
set reply_vxd "#chan2"
bind join - * greet_msg
bind join - * greet_vxd
bind pub -|- !commands pub:commands
bind pub -|- !server pub:server
bind pub -|- !website pub:website
bind pub -|- !members pub:members
proc pub:commands {nick host handle chan arg} {
global reply_chans
if {(([lsearch -exact [string tolower $reply_chans] [string tolower $chan]] != -1) || ($reply_chans == "*"))}
{
putquick "NOTICE $nick :Avalible commands:"
putquick "NOTICE $nick :!server, !website, !members
}
proc pub:server {nick host handle chan arg} {
global reply_chans
if {(([lsearch -exact [string tolower $reply_chans] [string tolower $chan]] != -1) || ($reply_chans == "*"))}
{
putquick "NOTICE $nick :Our CS Server can be found at: 80.253.122.163:27065"
}
proc pub:website {nick host handle chan arg} {
global reply_chans
if {(([lsearch -exact [string tolower $reply_chans] [string tolower $chan]] != -1) || ($reply_chans == "*"))}
{
putquick "NOTICE $nick :Our website address is...will put domain here"
}
proc pub:members {nick host handle chan arg} {
global reply_chans
if {(([lsearch -exact [string tolower $reply_chans] [string tolower $chan]] != -1) || ($reply_chans == "*"))}
{
putquick "NOTICE $nick :Our Current Members are as Follows..."
putquick "NOTICE $nick :line 2"
putquick "NOTICE $nick :line 3"
putquick "NOTICE $nick :line 4"
}
proc greet_msg {nick mask hand chan}
{
putquick "NOTICE $nick :Hello $nick type !commands for channel commands."
}
proc greet_vxd {nick mask host handle chan arg} {
global reply_vxd
if {(([lsearch -exact [string tolower $reply_vxd] [string tolower $chan]] != -1) || ($reply_vxd == "*"))}
{
putquick "NOTICE $nick :Hello $nick please make sure you check out the Forums at domain here and check on enemydown.co.uk for any matches"
}
