This is SaitoBot's (#fc on irc.coldfront.net) !gp and !8ball scripts in mIRC form. They were originally made in Java, but this works the same. Have fun!
on *:text:!8ball*:#:{
set %8ball $rand(1,5)
if (%8ball == 1) { set %8ballreply Outlook good. }
if (%8ball == 2) { set %8ballreply Not a chance. }
if (%8ball == 3) { set %8ballreply Like that's gonna happen! }
if (%8ball == 4) { set %8ballreply Lady Luck shines upon you. }
if (%8ball == 5) { set %8ballreply Why should I tell you? }
msg $chan The 8ball's response to... $+ $2- $+ : %8ballreply
}
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 $+ % $+ .
}
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 $+ % $+ .
}