@match * @cond $state->{number} @parse (\d+) @cond $state->{number} == $match->[0] @setstate guess @setstate number @deltopic 1|2|3|4|5|6|7|8|9 @eval $who->pay_player (100*100*5) Congrats, lad, here is your money! @match * @cond $state->{number} @parse (\d+) @cond $state->{guess} == 1 @msg "Bad luck! The number I thought of was $state->{number}..." @setstate guess @setstate number @deltopic 1|2|3|4|5|6|7|8|9 Thanks for your money, wanna play again? @match * @cond $state->{number} @parse (\d+) @eval ++$state->{guess} @msg "Your guess was too " . ($state->{number} < $match->[0] ? "high" : "low") @match * @cond $state->{number} Come on, lad, guess your number! @match start|here is the money @cond $who->pay_amount (100*100*2) @eval $state->{number} = 1 + int rand 9 @eval $state->{guess} = 0 @addtopic 1|2|3|4|5|6|7|8|9 Let me think of a number... Ok, give me your first guess! @match start|here is the money If you do not have the money then do not waste my time. @match * @addtopic here is the money Hey lad! Wanna play a game? You give me two platinum. I will think of a number between 1 and 9. Then you have two guesses. After the first I will tell you wether your number is too high or too low. If you can guess my number I will give you five platinum back. All you need is a bit of trust... Shall we begin playing?