a. to set the specific command in one channel only.
a1. set specific command like .chanset #channelname +menu
Code: Select all
# menu.tcl Its Scripts funny when bot will services you on this menu,and give you funny action,you can modif or change it what you want command it remember use "!" so this script will be run #
# Everebody can feel free to change the Script. The Author of this Version: Indra^Pratama & Novita from irc.bhasirc.com with E-Mail: ajimaltez@hackermail.com Author This Scripts : Indra^Pratama & Novita #
############################################################################################################################################################################################################
# Support By : http://www.egghelp.org #
# Support By : Htpp://www.bhasirc.com #
# Author Script : Indra^Pratama & Novita #
# Thanks To : Owner Website www.egghelp.org #
#---------------- Menu TCL -----------------#
#----- Dont Edit If You Dont Know It ----#
proc pub_menu {nick uhost hand channel rest} {
global botnick
putquick "NOTICE $nick :Loading menu"
putquick "NOTICE $nick :Menu this create by Novita & Indra Pratama"
putquick "NOTICE $nick :Enjoy your chatting"
putquick "NOTICE $nick :---------M--------E-------N----------U----------"
putquick "NOTICE $nick :!pizza"
putquick "NOTICE $nick :!!redbull"
putquick "NOTICE $nick :!candyfloss"
putquick "NOTICE $nick :!cherrycoke"
putquick "NOTICE $nick :!pepsi"
putquick "NOTICE $nick :!burger"
putquick "NOTICE $nick :!softserve"
putquick "NOTICE $nick :!chocolate"
putquick "NOTICE $nick :!kebab"
putquick "NOTICE $nick :!bite"
return 0
}
bind pub - !menu pub_menu
bind pub - !list pub_menu
proc pub_menu {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :4Menu on List 01: 10,01!pizza, 4!redbull, 7!candyfloss, 9!cherrycoke, 2!pepsi, 13!burger, 6!softserve, 5!chocolate, 11!kebab 13!bite 4Note: 4Use "2!" 4for this command 9example 7!kebab 9< 13end of list created By Indra^Pratama & novita 9>"
return 0
}
bind pub - !pizza pub_pizza
proc pub_pizza {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :10Gives 4$nick 10a 4hot 10slice of cheese pizza, compliments of Ferrari^_^"
return 0
}
bind pub - !redbull pub_redbull
proc pub_redbull {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :9looks @ 10$nick 9I'm sure you need some energy be ready here it comes. by grabs *grabs a can of REDBULL and tosses it to 10$nick slides down to $nick some ice in a glass enjoy!!! :)"
return 0
}
bind pub - !candyfloss pub_candyfloss
proc pub_candyfloss {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :7hands 9$nick 7rainbow coloured candy floss in a heart shape on a stick. Please note I don't pay dentist bills $1 dolar ^_^.\001"
return 0
}
bind pub - !cherrycoke pub_cherrycoke
bind pub - !coke pub_cherrycoke
proc pub_cherrycoke {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :2looks @ 7$nick 2inspect's them from head to toe. CHERRYCOKE you say? Mmm.. Come back later :P.\001"
return 0
}
bind pub - !pepsi pub_pepsi
proc pub_pepsi {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :11hands 13$nick a 14<01_10P01_10E01_10P01_10S01_10I01_14> 11with a straw relax and enjoy :).\001"
return 0
}
bind pub - !burger pub_burger
proc pub_burger {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :4gives 11$nick 4ayummeh full house burger with frie's :)"
return 0
}
bind pub - !softserve pub_softserve
proc pub_softserve {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :9Grabs a cone and fill's it up with some SoftServe! 4Stop drooling here you go :)\001"
return 0
}
bind pub - !chocolate pub_chocolate
proc pub_chocolate {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :4Gives 10$nick 4lindt mmmm keep it safe"
return 0
}
bind pub - !kebab pub_kebab
proc pub_kebab {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :10Give Kebab very hot to 5$nick 10enjoy create 01by 9$nick 4:9P"
retrun 0
}
bind pub - !bite pub_bite
proc pub_bite {nick uhost hand channel arg} {
global botnick
putserv "PRIVMSG $channel :13Bite $nick and run :P"
retrun 0
}
###############################################################################
#---- putlog "Die Menu By Indra^Pratama & Novita Staff BhasIRC Network" ---- #
#---- putlog "Menu.tcl On Eggdrop or Windrop Only By Indra^Prtama & Novita ---#
#---- putlog "Menu.tcl Success loaded Have A nice Day ------------------------#
###############################################################################
thank you in advance..