egghelp/eggheads community

Tiddles the cat ...

2003-08-22T17:42:09-04:00

Yes, that works fine, thank you, I should be able to finish it myself now Plus my lovelife looks safer ....

Statistics: Posted by Feanixxx — Fri Aug 22, 2003 5:42 pm

Tiddles the cat ...

2003-08-22T16:24:37-04:00

Code:

set num [rand 4]

but the result will be a number from 0 to 3, so by transforming it to:

Code:

set num [expr [rand 4] +1]

will become from 1 to 4, bouth included.

Statistics: Posted by caesar — Fri Aug 22, 2003 4:24 pm

Tiddles the cat ...

2003-08-22T16:14:18-04:00

set var "[command arg]"

Statistics: Posted by spock — Fri Aug 22, 2003 4:14 pm

Tiddles the cat ...

2003-08-22T15:59:24-04:00

Hmm, I think I'm getting there, I now have:

# Bindings
bind pubm - "% *hello*" Greeting
bind pubm - "% *Hello*" Greeting

proc Greeting {nick uhost hand chan text} {
global our_chan
if {$chan != $our_chan} {return 0}
set num {rand [4]}
if {$num == 0} {putserv "PRIVMSG $our_chan :\001ACTION says Hello to $nick"}
return 0
}

Just cannot get the RAND statement working - it sets $num to "rand[4]" rather than a number - any clues, anyone ?

Statistics: Posted by Feanixxx — Fri Aug 22, 2003 3:59 pm

Tiddles the cat ...

2003-08-22T11:28:44-04:00

Hi All

I have a pet cat written in mIrc that scans the text input and responds acordingly, with several hundred actions.
My girlfriend loves him, of course I now wish to convert him to eggdrop tcl.

This is the basic skeleton of the mirc script (just the one word and a couple of responses)

on 1:text:hello*:#: { /Greeting }
on 1:text:hiya*:#: { /Greeting }

alias Greeting {
/set %bt.rand $rand(1,2)
if (%bt.rand == 1) { .describe $chan purrs happily at $nick }
if (%bt.rand == 2) { .describe $chan gently headbutts $nick }
}

And this is what I've come up with so far to say hello as a CTTP Action:

bind pub - hello my_talk_handler
bind pub - Hello my_talk_handler

proc my_talk_handler {nick uhost hand chan text} {
putserv "PRIVMSG $chan :\001ACTION says Hello to $nick"
return 0
}

Can anyone point me any further in terms of using PUBM to get the whole text, parsing the text in TCL and so forth?

My lovelife is at serious risk over this ...........

Statistics: Posted by Feanixxx — Fri Aug 22, 2003 11:28 am