on :text:!8ball:#: {
set %randxc $r(1,28) {
if (%randxc == 1) { msg $chan $nick, 4Ask again later }
if (%randxc == 2) { msg $chan $nick, 4Not a chance }
if (%randxc == 3) { msg $chan $nick, 4As I see it, yes }
if (%randxc == 4) { msg $chan $nick, 4Better not tell you now }
if (%randxc == 5) { msg $chan $nick, 4Cannot predict now }
if (%randxc == 6) { msg $chan $nick, 4Concentrate and ask again }
if (%randxc == 7) { msg $chan $nick, 4Don't count on it }
if (%randxc == 8) { msg $chan $nick, 4It is certain }
if (%randxc == 9) { msg $chan $nick, 4It is decidedly so }
if (%randxc == 10) { msg $chan $nick, 4Most likely }
if (%randxc == 11) { msg $chan $nick, 4My reply is no }
if (%randxc == 12) { msg $chan $nick, 4My sources say no }
if (%randxc == 13) { msg $chan $nick, 4Outlook good }
if (%randxc == 14) { msg $chan $nick, 4Outlook not so good }
if (%randxc == 15) { msg $chan $nick, 4Reply hazy, try again }
if (%randxc == 16) { msg $chan $nick, 4Signs point to yes }
if (%randxc == 17) { msg $chan $nick, 4Very doubtful }
if (%randxc == 18) { msg $chan $nick, 4Without a doubt }
if (%randxc == 19) { msg $chan $nick, 4Yes }
if (%randxc == 20) { msg $chan $nick, 4Yes - definitely }
if (%randxc == 21) { msg $chan $nick, 4You may rely on it }
if (%randxc == 22) { msg $chan $nick, 4Do I Look Like I Care? }
if (%randxc == 23) { msg $chan $nick, 4Yeah, Right }
if (%randxc == 24) { msg $chan $nick, 4Ask a better question }
if (%randxc == 25) { msg $chan $nick, 4Well, $rand(1,50) years, $rand(17,364) days, $rand(0,23) hours, $rand(0,59) minutes, and some odd seconds...wait, what was the question? }
if (%randxc == 26) { msg $chan $nick, 4lol, seriously? You can ask me any question and you ask " $+ $2- $+ " }
if (%randxc == 27) { msg $chan $nick, 4Is this a trick? Or you are just stupid? }
if (%randxc == 28) { msg $chan $nick, 7Hello is this John? (I'm sorry , he left in an hour ago.Try calling back later ok?) ok. Oh sorry i was'nt listenning what was your question again? }
}
}
on :text:!gp:#:{
set %nick1 $nick($chan,$rand(1,$nick($chan,0)))
set %nick2 $nick($chan,$rand(1,$nick($chan,0)))
while (%nick2 == %nick1) { set %nick2 $nick($chan,$rand(1,$nick($chan,0))) }
set %prob1 $rand(1,100)
set %prob2 $rand(1,100)
while (%prob2 >= %prob1) { set %prob2 $rand(1,100) }
msg $chan The probability of... $+ $2- $+ : Largest chance: %nick1 with %prob1 $+ % $+ . Least chance: %nick2 with %prob2 $+ % $+ .
}