egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2006-04-25T12:43:10-04:00 https://forum.eggheads.org/app.php/feed/topic/11736 2006-04-25T12:43:10-04:00 2006-04-25T12:43:10-04:00 https://forum.eggheads.org/viewtopic.php?p=62325#p62325 <![CDATA[Joke Script Wont reply to commands, help please]]> DragnLord Thank You So Much ^^ I luv u :roll:

Statistics: Posted by chaokusc — Tue Apr 25, 2006 12:43 pm

]]> 2006-04-25T12:21:16-04:00 2006-04-25T12:21:16-04:00 https://forum.eggheads.org/viewtopic.php?p=62324#p62324 <![CDATA[Joke Script Wont reply to commands, help please]]>
DragnLord i now get this error message in party chat when i try a command in channel

Code: 

[17:08] <testbot> [12:07] Tcl error [pub:jokesort]: bad option "-nocase": must be -exact, -glob, -regexp, or --
Then remove the nocase switch. Common sense says to remove an option that is not supported by installed tcl. The -nocase option is not really needed, it only helps when "Yomama" is used instead of "yomama". To get the same effect you can set $t to all lowercase before the switch evaluation.

Statistics: Posted by DragnLord — Tue Apr 25, 2006 12:21 pm

]]> 2006-04-25T12:12:01-04:00 2006-04-25T12:12:01-04:00 https://forum.eggheads.org/viewtopic.php?p=62322#p62322 <![CDATA[Joke Script Wont reply to commands, help please]]>

Code: 

[17:08] <testbot> [12:07] Tcl error [pub:jokesort]: bad option "-nocase": must be -exact, -glob, -regexp, or --

Statistics: Posted by chaokusc — Tue Apr 25, 2006 12:12 pm

]]> 2006-04-25T11:18:30-04:00 2006-04-25T11:18:30-04:00 https://forum.eggheads.org/viewtopic.php?p=62319#p62319 <![CDATA[Joke Script Wont reply to commands, help please]]>

Code: 

bind pub - !joke pub:jokesortproc pub:jokesort {n u h c t} {   switch -nocase $t {      redneck {pub:redneck $n $u $h $c $t}      annoy {pub:annoy $n $u $h $c $t}      blonde {pub:blonde $n $u $h $c $t}      computers {pub:computers $n $u $h $c $t}      condoms {pub:condoms $n $u $h $c $t}      elevator {pub:elevator $n $u $h $c $t}      misc {pub:misc $n $u $h $c $t}      thoughts {pub:thoughts $n $u $h $c $t}      yomama {pub:yomama $n $u $h $c $t}      default {pub_jokes $n $u $h $c $t}   }}
switch can very effective for things like this

Statistics: Posted by DragnLord — Tue Apr 25, 2006 11:18 am

]]> 2006-04-25T09:45:08-04:00 2006-04-25T09:45:08-04:00 https://forum.eggheads.org/viewtopic.php?p=62316#p62316 <![CDATA[Joke Script Wont reply to commands, help please]]>

Code: 

if {$text == "annoy"} {
I want !joke * for all of them
such as !joke annoy would pull up the post for the annoy jokes

I have tried to do this

Code: 

bind pub - "!joke annoy" pub:annoy
But this did not work

Another thing i tried was

Code: 

bind pub - !jokes pub_jokes bind pub - "!joke1" pub:redneck bind pub - "!joke2" pub:annoy bind pub - "!joke3" pub:blonde bind pub - "!joke4" pub:computers bind pub - "!joke5" pub:condoms bind pub - "!joke6" pub:elevator bind pub - "!joke7" pub:misc bind pub - "!joke8" pub:thoughts bind pub - "!joke9" pub:yomama
But that also did not work

Statistics: Posted by chaokusc — Tue Apr 25, 2006 9:45 am

]]> 2006-04-25T07:58:22-04:00 2006-04-25T07:58:22-04:00 https://forum.eggheads.org/viewtopic.php?p=62312#p62312 <![CDATA[Joke Script Wont reply to commands, help please]]>

Statistics: Posted by GeeX — Tue Apr 25, 2006 7:58 am

]]> 2006-04-25T10:34:34-04:00 2006-04-25T06:46:56-04:00 https://forum.eggheads.org/viewtopic.php?p=62311#p62311 <![CDATA[Joke Script Wont reply to commands, help please]]> !jokes and !joke yomama work

Yes im new to tcl script but i would like to learn it, but im not sure what is wrong with this script... if anyone can tell me that would be great
( Jokes cut down to 2 jokes from the whole list in order to make script shorter )

Code: 

# !Jokesbind pub - !jokes pub_jokesbind pub - "!joke" pub:redneckbind pub - "!joke" pub:annoybind pub - "!joke" pub:blondebind pub - "!joke" pub:computersbind pub - "!joke" pub:condomsbind pub - "!joke" pub:elevatorbind pub - "!joke" pub:miscbind pub - "!joke" pub:thoughtsbind pub - "!joke" pub:yomamaproc pub_jokes {nick uhost hand chan text} {putserv "NOTICE $nick : 4\[7»»4\] Joke Commands 4\[7««4\]"putserv "NOTICE $nick : 4!joke 7Random Joke"putserv "NOTICE $nick : 4!joke annoy 7 101 Ways To Annoy Someone"putserv "NOTICE $nick : 4!joke blonde 7 Blonde Jokes"putserv "NOTICE $nick : 4!joke computers 7 Computer Jokes"putserv "NOTICE $nick : 4!joke elevator 7 52 Fun Things To Do In An Elevator"putserv "NOTICE $nick : 4!joke condoms 7 Condom Jokes"putserv "NOTICE $nick : 4!joke misc 7 Misc Jokes"putserv "NOTICE $nick : 4!joke redneck 7 Redneck Jokes"putserv "NOTICE $nick : 4!joke thoughts 7 Whats On Your Mind"putserv "NOTICE $nick : 4!joke yomama 7 Yo Mama Jokes"}set redneckjokes {"More than one living relative is named after a Southern Civil War general""You think the stock market has a fence around it"}proc pub:redneck { nick uhost handle channel text } {global redneckjokesif {$text == "redneck"} {set respond [lindex $redneckjokes [rand [llength $redneckjokes]]]putserv "PRIVMSG $channel :\002$nick\002 You Might Be A Redneck If: $respond"}}set annoyjokes {"Get to know a friends bookie and place bets for them. Insist on keeping half of any money they win.""Accuse people of \"glue sniffing addictions\" in public."}proc pub:annoy { nick uhost handle channel text } {global annoyjokesif {$text == "annoy"} {set respond [lindex $annoyjokes [rand [llength $annoyjokes]]]putserv "PRIVMSG $channel :101 Ways To Annoy People: $respond"}}set blonejokes {"Q: How do blonde brain cells die ? A: Alone.""Q: How do you change a blonde's mind? A: Blow in her ear."}proc pub:blone { nick uhost handle channel text } {global blonejokesif {$text == "blone"} {set respond [lindex $blonejokes [rand [llength $blonejokes]]]putserv "PRIVMSG $channel :$respond"}}set computersjokes {"Your stationery is more cluttered than Warren Beatty's address book. The letterhead lists a fax number, e-mail addresses for two on-line services, and your Internet address, which spreads across the breadth of the letterhead and continues to the back. In essence, you have conceded that the first page of any letter you write *is*letterhead""You have never sat through an entire movie without having at least one device on your body beep or buzz"}proc pub:computers { nick uhost handle channel text } {global computersjokesif {$text == "computers"} {set respond [lindex $computersjokes [rand [llength $computersjokes]]]putserv "PRIVMSG $channel :You Know Your a Computer Addict When: $respond"}}set condomsjokes {"Nike Condoms: Just do it.""Toyota Condoms: Oh what a feeling."}proc pub:condoms { nick uhost handle channel text } {global condomsjokesif {$text == "condoms"} {set respond [lindex $condomsjokes [rand [llength $condomsjokes]]]putserv "PRIVMSG $channel : $respond"}}set elevatorjokes {"#1: Make race car noises when anyone gets on or off.""#2: Blow your nose and offer to show the contents of your kleenex to other passengers."}proc pub:elevator { nick uhost handle channel text } {global elevatorjokesif {$text == "elevator"} {set respond [lindex $elevatorjokes [rand [llength $elevatorjokes]]]putserv "PRIVMSG $channel :52 Fun Things To Do In An Elevator $respond"}}set miscjokes {"How come wrong numbers are never busy?""Do people in Australia call the rest of the world \"up over\"?"}proc pub:misc { nick uhost handle channel text } {global miscjokesif {$text == "misc"} {set respond [lindex $miscjokes [rand [llength $miscjokes]]]putserv "PRIVMSG $channel :$respond"}}set thoughtsjokes {"Hackers: We're explorers, not criminals""In the realm of the blind, the one-eyed man is king"}proc pub:thoughts { nick uhost handle channel text } {global thoughtsjokesif {$text == "thoughts"} {set respond [lindex $thoughtsjokes [rand [llength $thoughtsjokes]]]putserv "PRIVMSG $channel :$respond"}}set yomamajokes {"Fat, That when the casier at KFC asked her what size bucket of chicken she wanted, she said the one on the roof""Fat, That she has more rolls than the bakery"}proc pub:yomama { nick uhost handle channel text } {global yomamajokesif {$text == "yomama"} {set respond [lindex $yomamajokes [rand [llength $yomamajokes]]]putserv "PRIVMSG $channel :\002$nick\002 Yo Mama So $respond"}}putlog "* Jokes Loaded."

Statistics: Posted by chaokusc — Tue Apr 25, 2006 6:46 am

]]>