on *:TEXT:!numbers*:#:{
if ($read(over.txt) == Started) { halt }
if (timerno == Active) { halt }
set %rnum $rand(1,25)
write join.txt [ $+ [ $chan ] ] $nick
msg $chan $nick has started the random number game. 2 minutes till game starts, type !join to join in.
timerno 0 120 write over.txt Started
}
on *:TEXT:!join*:#:{
if ($read(over.txt) == Started) { timers off | halt }
if ($lines(over.txt) = 10) { msg $chan We now have 10 players, type !guess 1-25 to start }
if ($lines(over.txt) > 10) { notice $nick There is already a game going on! | halt }
if ($nick == $read(over.txt,w,$nick) { halt }
write join.txt [ $+ [ $chan ] ] $nick
msg $chan We now have $lines(join.txt) players.
}
on *:!guess*:#:{
if ($read(over.txt) == Started) {
if ($read(join.txt,$chan,$nick)) {
if ($nick == $ $+ %msg $read(join.txt,$chan,$nick)) {
write guess.txt [ $+ [ $chan ] ] $2
msg $chan it's $ $+ %msg $read(join.txt,$nick) $+ 's turn.
if ($2 == %rnum) {
timer 0 5 msg $chan RIGHT!
unset %msg
unset %rnum
remove over.txt
remove join.txt
}
else { timer 0 5 msg $chan $nick was WRONG. He was apprx, $calc(%rnum / $2 %rand 5) off. }
}
}
}
}