egghelp.org community

[basa]

Hello , im totally lame with tcl scripting but need two i think simple scripts. If someone can help will be nice. I try explain what this scripts should works.

Script 1: Random message from file to user (bind)

Script usage should looks like :

!msg Agnes88

bot reaction

<bot> Agnes88 here random text from list

script should get line from list in file or list writed in this tcl

Script 2 : Simple Random Kick (bind)

using in channel :

!rk

bot reaction:

bot should kick random person from channel with reason chosed random line from file or from this tcl script,
script can use any person in chann and can kick all user ranges (ops too also person who writed !rk)

Very big thanks for help and sorry for poor english

[Sir_Fz]

[basa]

thank you Sir_Fz !rk command workin fine
but !msg put line to private msg , how change to chan message ?

i try change line
puthelp "privmsg [lindex [split $arg] 0] :$msg"
to
puthelp "privmsg $chan [lindex [split $arg] 0] :$msg"

but not works , in results bot write only nick name in chan without message.

thx

[Sir_Fz]

[basa]

thank you now workin fine