SHARE
TWEET

Slots Game (Casino)

Seb May 7th, 2011 (edited) 631 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. # Slots casino game
  2. # Original author: cableguy on undernet
  3. # Heavily modified w/ regex floodpro and vars by Sebastien (xplo)
  4. #################################################################
  5.  
  6. on $*:TEXT:/^[@!.]slot/Si:#:{
  7.   var %symbol.0 9,1_\|/_
  8.   var %symbol.1 0,6plum
  9.   var %symbol.2 0,1Bar
  10.   var %symbol.3 0,4cherry
  11.   var %symbol.4 0,7orange
  12.   var %symbol.5 1,8lemon
  13.   var %symbol.6 11,4buzz
  14.   var %symbol.7 4,12 7 
  15.   var %symbol.8 1,0 A 
  16.   if (%flood [ $+ [ $nick ] ]) {
  17.     .notice $nick Please Slow down on the triggers. (Once per 5s)
  18.     set -u10 %stopslot 1
  19.     return
  20.   }
  21.   if (%stopslot == 1) { halt }
  22.   ;if ($nick == %slotnick) { msg # Only ONE pull on the slots per turn, let someone else play. Or wait a moment and try again. | halt }
  23.   ;elseif (%slotnick != $nick) set %slotnick $nick
  24.   var %slot1 %symbol. [ $+ [ $rand(0,8) ] ]
  25.   inc %change +5.97
  26.   ;set %slotnick $nick
  27.   var %slot2 %symbol. [ $+ [ $rand(0,8) ] ]
  28.   var %slot3 %symbol. [ $+ [ $rand(0,8) ] ]
  29.   msg # %slot1 %slot2 %slot3
  30.   if (%slot1 == %slot2) && (%slot1 == %slot3) {
  31.     msg # 3!!!4W7E 4H7A4V7E4 A7 W4I7N4N7E4R3!!!
  32.     msg # Way to GO $+($nick,!!!) You have just won the jar containing $+($chr(36),12,%change,1!!)  
  33.     msg # 3!!!4W7E 4H7A4V7E4 A7 W4I7N4N7E4R3!!!
  34.     set %slotwin $nick with %change
  35.     set %change 10.00
  36.   }
  37. }
  38.  
  39. on *:TEXT:*:#:{
  40.   inc -u3 %xpf
  41.   if (%xpf >= 6) { halt }
  42.   if ($1 == !winner) { msg $chan The last winner was: $+(%slotwin,$chr(36)) | halt }
  43.   if ($1 == !slut) { describe # Gives a dirty hooker to $nick and a 20$ bill to pay for it! | halt }
  44.   if ($1 == !jar) {  msg # The pot is now: $+(%change,$chr(36),!) | halt }
  45. }
  46.  
  47. on *:load:{
  48.   var %slotwin Nobody Won the game YET!
  49.   echo 3 -a !slot machine loaded.
  50.   echo 3 -a Thnx to cableguy for the base of this script
  51. }
RAW Paste Data
Pastebin PRO Autumn Special!
Get 40% OFF on Pastebin PRO accounts!
Top