# Slots casino game
# Original author: cableguy on undernet
# Heavily modified w/ regex floodpro and vars by Sebastien (xplo)
#################################################################

on $*:TEXT:/^[@!.]slot/Si:#:{
  var %symbol.0 9,1_\|/_
  var %symbol.1 0,6plum
  var %symbol.2 0,1Bar
  var %symbol.3 0,4cherry 
  var %symbol.4 0,7orange 
  var %symbol.5 1,8lemon
  var %symbol.6 11,4buzz
  var %symbol.7 4,12 7 
  var %symbol.8 1,0 A 
  if (%flood [ $+ [ $nick ] ]) {
    .notice $nick Please Slow down on the triggers. (Once per 5s) 
    set -u10 %stopslot 1
    return 
  }
  if (%stopslot == 1) { halt }
  ;if ($nick == %slotnick) { msg # Only ONE pull on the slots per turn, let someone else play. Or wait a moment and try again. | halt }
  ;elseif (%slotnick != $nick) set %slotnick $nick
  var %slot1 %symbol. [ $+ [ $rand(0,8) ] ]
  inc %change +5.97 
  ;set %slotnick $nick
  var %slot2 %symbol. [ $+ [ $rand(0,8) ] ]
  var %slot3 %symbol. [ $+ [ $rand(0,8) ] ]
  msg # %slot1 %slot2 %slot3
  if (%slot1 == %slot2) && (%slot1 == %slot3) { 
    msg # 3!!!4W7E 4H7A4V7E4 A7 W4I7N4N7E4R3!!!
    msg # Way to GO $+($nick,!!!) You have just won the jar containing $+($chr(36),12,%change,1!!)  
    msg # 3!!!4W7E 4H7A4V7E4 A7 W4I7N4N7E4R3!!!
    set %slotwin $nick with %change 
    set %change 10.00
  }
}

on *:TEXT:*:#:{
  inc -u3 %xpf
  if (%xpf >= 6) { halt }
  if ($1 == !winner) { msg $chan The last winner was: $+(%slotwin,$chr(36)) | halt }
  if ($1 == !slut) { describe # Gives a dirty hooker to $nick and a 20$ bill to pay for it! | halt }
  if ($1 == !jar) {  msg # The pot is now: $+(%change,$chr(36),!) | halt }
}

on *:load:{
  var %slotwin Nobody Won the game YET!
  echo 3 -a !slot machine loaded. 
  echo 3 -a Thnx to cableguy for the base of this script
}