Tiddles the cat ...

[Feanixxx]

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 ...........

[Feanixxx]

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 ?

[spock]

set var "[command arg]"

[caesar]

Code: Select all

set num [rand 4]

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

Code: Select all

set num [expr [rand 4] +1]

will become from 1 to 4, bouth included.

[Feanixxx]

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