egghelp/eggheads community

simple request

2002-06-17T01:28:00-04:00

nah, you really didnt mess up i'm still learning, shoulda picked it up myself

thanks for the help

Statistics: Posted by Guest — Mon Jun 17, 2002 1:28 am

simple request

2002-06-17T01:08:00-04:00

Oh I messed up.

if {[lsearch [chanlist $chan] $text] == -1} {return 0}

(the ] was in the wrong place)

Statistics: Posted by stdragon — Mon Jun 17, 2002 1:08 am

simple request

2002-06-16T21:04:00-04:00

i added the line inside proc dork, when called the bot reports:

Tcl error [dork]: wrong # args: should be "lsearch ?mode? list pattern"

if i put the new line outside proc, bot has a hissyfit, so i'm fairly confident i have it in the right place

Code:

proc dork {nick uhost hand chan text} { global ranhng if {[lsearch [chanlist $chan $text]] == -1} {return 0}set nick $textset idx [rand [llength $ranhng]] set line [subst [lindex $ranhng $idx]] putchan $chan "$line, $nick" return 0 }

Statistics: Posted by Guest — Sun Jun 16, 2002 9:04 pm

simple request

2002-06-16T17:45:00-04:00

Add this:

if {[lsearch [chanlist $chan $text]] == -1} {return 0}

Statistics: Posted by stdragon — Sun Jun 16, 2002 5:45 pm

simple request

2002-06-16T08:01:00-04:00

thanks
took me a while of headscratching to figure out that the new line goes inside the proc

what if i was to go a step further and have the script check the current channel people and only react if the target's there? tried reading other people's scripts for ideas/working examples, seems to be a lack of uniformity

Statistics: Posted by Guest — Sun Jun 16, 2002 8:01 am

simple request

2002-06-16T07:31:00-04:00

Oh, I didn't see the last part. To make it use the argument instead of the caller, add "set nick $text" as the first line.

Statistics: Posted by stdragon — Sun Jun 16, 2002 7:31 am

simple request

2002-06-16T07:29:00-04:00

ranhng - random horny net geek
dork - explanatory
the channel's swamped with the obvious types in question, my bot's already developed an attitude

thanks for the code

Statistics: Posted by Guest — Sun Jun 16, 2002 7:29 am

simple request

2002-06-16T07:19:00-04:00

Code:

proc dork {nick uhost hand chan text} {  global ranhng  set idx [rand [llength $ranhng]]  set line [subst [lindex $ranhng $idx]]  putchan $chan "$line, $nick"  return 0}

Btw, if you want to write a good script, you should choose meaningful names for commands and variables. "Ranhng" and "dork" just aren't cutting it, I'm afraid

Statistics: Posted by stdragon — Sun Jun 16, 2002 7:19 am

simple request

2002-06-16T02:08:00-04:00

i have a small script that i'd like to fix up so the trigger command accepts an argument and process the argument as a user in the channel. so far it looks like this:

set ranhng {
"Let me bow down to thee, Oh magnificent $nick! Dom me, use me with your leet skillz, "
"Yay...another HNG...sigh...you bore me already, "
"You know, if you shut up and listen very very carefully...we can hear your mother calling, "
}

bind pub - !hng dork

proc dork {nick uhost hand chan $rand} {
global ranhng
putchan $chan "[lindex $ranhng [rand [llength $ranhng]]]$hand"; return 0
}

when the script is called (!hng blahblah), i only get myself returned as the victim. what would i do to make the insult against a victim instead of who calls the trigger?

Statistics: Posted by Guest — Sun Jun 16, 2002 2:08 am