strikelight, sorry, i must be quite stupid, because i don't see what you mean. i just edited part of a different script, have done so before, and it's the same, so i thought it should have worked. and i have checked the tcl-commands.doc, alas the info there is very thin, and as someone else has put it, if you don't know what you're doing the docs aren't much help
myself, i prefer to learn by example, find a script that works, play with it for my own use, and write myself when i think i understand it. i rewrote what i have here, by studying another tcl, and now have it binded to "i" with different results for "i love you" "i hate you" etc
here's what i now have, works like a charm
Code: Select all
bind pub -|- i loveu_reply
proc loveu_reply {nick host hand chan text} {
if {$text == "love you"} {
putquick "PRIVMSG $chan :\00304don't be gay\003"
} elseif {$text == "love you too"} {
putquick "PRIVMSG $chan :\001ACTION \00304blushes\003\001"
putserv "PRIVMSG $chan :\00310stop it, you're embarrassing me\003"
} elseif {$text == "feel sick"} {
putserv "PRIVMSG $chan :\00310you are sick!\003"
} elseif {$text == "don't know"} {
putserv "PRIVMSG $chan :\00310that figures\003"
} elseif {$text == "can't"} {
putserv "PRIVMSG $chan :\00310yes, you can!\003"
} elseif {$text == "want sex"} {
putserv "PRIVMSG $chan :\00310ROFLOLOLOFRFROFLOL\003"
} elseif {$text == "hate you"} {
putserv "PRIVMSG $chan :\00310well you don't exactly turn me on either!\003"
}
}
Monty: '\00310 text \003' makes the text mirc colour 10, which for me is pale blue, every script i use is the same colour