For a bot.
This snippet was just made for fun, has some rude comments.
Use in a place that allows this.
!Treat to activate it
on $*:text:/^!Treat$/iS:#:{
if (!%f) { inc -u12 %f
:pickagain
var %nick = $nick(#,$r(1,$nick(#,0))), %treat = A Beer|Jello|Soda|Gum|Candy|$&
Jelly to play with|Pizza|Fart|Piss to Drink|Cake|Popcorn|Gummy worms
if ($istok($me $nick,%nick,32)) { goto pickagain }
else {
describe # Is thinking
.timertreat1 1 3 msg # Who should i give a treat to
.timertreat2 1 5 msg # Lemme think
.timertreat3 1 9 msg # %nick $+ !
.timertreat4 1 11 msg # Gives %nick $+($gettok(%treat,$r(1,$numtok(%treat,124)),124),!)
}
}
}
on $*:text:/^!Treat$/iS:#:{
if (!%f) { inc -u12 %f
:pickagain
var %nick = $nick(#,$r(1,$nick(#,0))), %treat = A Beer|Jello|Soda|Gum|Candy|$&
Jelly to play with|Pizza|Fart|Friends|Cake|Popcorn|Gummy worms
if ($istok($me $nick,%nick,32)) { goto pickagain }
else {
describe # Is thinking
.timertreat1 1 3 msg # Who should i give a treat to
.timertreat2 1 5 msg # Lemme think
.timertreat3 1 9 msg # %nick $+ !
.timertreat4 1 10 Describe # Gives %nick $+($gettok(%treat,$r(1,$numtok(%treat,124)),124),!)
}
}
}
Ehem.. Just to fix it up.. It needs the describe thing.. and instead of Piss to drink I put Friends..
you may want to make sure the bot does not give them selves the treat an maybe the one triggering it as well...also add some kind of trigger control so you don't get flooded...
you seem to have 12 treats not 11 as you put in ur gettok
Example only......
on $*:text:/^!Treat$/iS:#:{
if (!%f) { inc -u12 %f
:pickagain
var %nick = $nick(#,$r(1,$nick(#,0))), %treat = A Beer|Jello|Soda|Gum|Candy|$&
Jelly to play with|Pizza|Fart|Piss to Drink|Cake|Popcorn|Gummy worms
if ($istok($me $nick,%nick,32)) { goto pickagain }
else {
describe # Is thinking
.timertreat1 1 3 msg # Who should i give a treat to
.timertreat2 1 5 msg # Lemme think
.timertreat3 1 9 msg # %nick $+ !
.timertreat4 1 11 msg # Gives %nick $+($gettok(%treat,$r(1,12),124),!)
}
}
}