!slots

mIRC Code

+ 0 likes

Please Register to submit score.

Average Score	0.0
Scores Submitted	0
Date Added	Jan 14, 2008
Last Updated	Aug 19, 2008
Tags	casino game games hash hashtable slots table

Introduction

This is the game Slots.

!snew -- creates an account
!smoney -- show money for $nick , $2 or top ( most out of all player )
!sreset -- resets money to 1000 for $nick or $2
To play game use one of the below
!pslot , !pslots , !playslot , !playslots , !slot or !slots

*original idea and concept from patrick711. expanded upon by me*

Edit: Changed scoring.
Edit: Added 5 second delay between plays.
Edit: Added total score if you win.
Edit: Can now wager a number different than the default $5. ( July 30th 2008 )
Edit: !Sreset can be used by all. ( July 31st 2008 )

Grab the Code

on $*:text:/^[!](p(lay)?)?(slot(s)?)/Si:#: {
  if (%slots) { msg $chan Please wait a few seconds $nick $+ . }
  if (!%slots) { 
    dec -u5 %slots
    $iif((!$hget(Slots)), hmake Slots 1000)
    if ($2 < 1) { msg $chan Pick a number higher than that $nick $+ . | halt }
    if (!$hget(Slots,$nick)) { msg $chan I am sorry $nick $+ ,  I can not seem to find your account so you can play. Please type !snew to make one. | halt }    
    if ($left($2,1) == $chr(45)) { msg $chan You can not use negative numbers $nick $+ . | halt }
    if (($2) && ($2 !isnum)) { msg $chan You can only bet numerical values $nick $+ . | halt }
    if ($2) {
      if (($calc($hget(Slots,$nick) - $round($2,0)) < 1)) { msg $chan You can not wager that much $nick as you only have $chr(36) $+ $comma($hget(Slots,$nick)) $+ . | halt }
    }
    if (!$2) { 
      if (($calc($hget(Slots,$nick) - 5) < 1)) { msg $chan You can not wager that much $nick as you only have $chr(36) $+ $comma($hget(Slots,$nick)) $+ . | halt }
    }
    var %T $r(1,6)
    if ((%T = 1) || (%T = 3) || (%T = 6)) { set %T $rand(1,9) $rand(1,9) $rand(1,9) }
    if ((%T = 2) || (%T = 4)) { set %T $rand(1,9) $rand(1,9) $rand(1,9) $rand(1,9) }
    if (%T = 5) { set %T $rand(1,9) $rand(1,9) $rand(1,9) $rand(1,9) $rand(1,9) }
    hdec Slots $nick $iif($2, $round($2,0), 5)
    msg $chan Numbers: %T $chr(5) 04 $+ $nick $+ : $chr(36) $+ $comma($hget(Slots,$nick))
    if ($len(%T) = 5) { 
      if ($matchtok(%T,1,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 100), 100) | msg $chan Congrats $nick $+ ! You just won 100 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 125), 125) | msg $chan Congrats $nick $+ ! You just won 125 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 140), 140) | msg $chan Congrats $nick $+ ! You just won 140 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 175), 175) | msg $chan Congrats $nick $+ ! You just won 175 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 185), 185) | msg $chan Congrats $nick $+ ! You just won 185 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,3,32)) { hdec Slots $nick 300 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 300 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 500), 500) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 500 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 200), 200) | msg $chan Congrats $nick $+ ! You just won 200 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 250), 250) | msg $chan Congrats $nick $+ ! You just won 250 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
    }
    if ($len(%T) = 7) { 
      if ($matchtok(%T,1,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 200), 200) | msg $chan Congrats $nick $+ ! You just won 200 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 250), 250) | msg $chan Congrats $nick $+ ! You just won 250 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 280), 280) | msg $chan Congrats $nick $+ ! You just won 280 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 350), 350) | msg $chan Congrats $nick $+ ! You just won 350 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 370), 370) | msg $chan Congrats $nick $+ ! You just won 370 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,4,32)) { hdec Slots $nick 400 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 400 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 1000), 1000) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 1000 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 400), 400) | msg $chan Congrats $nick $+ ! You just won 400 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 500), 500) | msg $chan Congrats $nick $+ ! You just won 500 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
      if ($matchtok(%T,1,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 100), 100) | msg $chan Congrats $nick $+ ! You just won 100 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 125), 125) | msg $chan Congrats $nick $+ ! You just won 125 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 140), 140) | msg $chan Congrats $nick $+ ! You just won 140 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 175), 175) | msg $chan Congrats $nick $+ ! You just won 175 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 185), 185) | msg $chan Congrats $nick $+ ! You just won 185 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,3,32)) { hdec Slots $nick 300 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 300 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 500), 500) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 500 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 200), 200) | msg $chan Congrats $nick $+ ! You just won 200 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 250), 250) | msg $chan Congrats $nick $+ ! You just won 250 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
    }
    if ($len(%T) = 9) {
      if ($matchtok(%T,1,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 300), 300) | msg $chan Congrats $nick $+ ! You just won 300 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 375), 375) | msg $chan Congrats $nick $+ ! You just won 375 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 420), 420) | msg $chan Congrats $nick $+ ! You just won 420 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 525), 525) | msg $chan Congrats $nick $+ ! You just won 525 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 555), 555) | msg $chan Congrats $nick $+ ! You just won 555 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,5,32)) { hdec Slots $nick 500 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 500 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 1500), 1500) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 1500 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 600), 600) | msg $chan Congrats $nick $+ ! You just won 600 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,5,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 750), 750) | msg $chan Congrats $nick $+ ! You just won 750 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
      if ($matchtok(%T,1,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 200), 200) | msg $chan Congrats $nick $+ ! You just won 200 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 250), 250) | msg $chan Congrats $nick $+ ! You just won 250 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 280), 280) | msg $chan Congrats $nick $+ ! You just won 280 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 350), 350) | msg $chan Congrats $nick $+ ! You just won 350 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 370), 370) | msg $chan Congrats $nick $+ ! You just won 370 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,4,32)) { hdec Slots $nick 400 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 400 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 1000), 1000) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 1000 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 400), 400) | msg $chan Congrats $nick $+ ! You just won 400 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,4,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 500), 500) | msg $chan Congrats $nick $+ ! You just won 500 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
      if ($matchtok(%T,1,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 100), 100) | msg $chan Congrats $nick $+ ! You just won 100 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,2,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 125), 125) | msg $chan Congrats $nick $+ ! You just won 125 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,3,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 140), 140) | msg $chan Congrats $nick $+ ! You just won 140 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,4,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 175), 175) | msg $chan Congrats $nick $+ ! You just won 175 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,5,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 185), 185) | msg $chan Congrats $nick $+ ! You just won 185 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,6,3,32)) { hdec Slots $nick 300 | msg $chan Ouch. It looks like you just hit the unlucky number. You lose 300 dollars because of it. (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,7,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 500), 500) | msg $chan JACKPOT!! Congrats $nick $+ !!! You just hit the jackpot and won 500 dollars!! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,8,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 200), 200) | msg $chan Congrats $nick $+ ! You just won 200 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt }
      if ($matchtok(%T,9,3,32)) { hinc Slots $nick $iif($2, $calc(($round($2,0) * $rand(1,5)) + 250), 250) | msg $chan Congrats $nick $+ ! You just won 250 dollars! (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | hsave Slots Slots.dat | halt } 
    }
  }
}

on *:text:!smoney*:#:{ 
  if (!$2) { msg $chan $nick $iif(($hget(Slots, $nick)), has $chr(36) $+ $comma($hget(Slots, $nick)) dollars., is broke. ) } 
  if ($2 == $me) { msg $chan I am rich! Fear me! | halt  } 
  if ($2) { $iif($2 = top, smoney, $iif(($hget(Slots, $2) == $null), msg $chan Error. There is no $2 in my database., msg $chan $2 has $chr(36) $+ $comma($hget(Slots, $2)) dollars.)) }
}
on *:text:!snew:#:{ 
  if (!$hget(Slots,$nick)) {
    hadd Slots $nick 1000 
    .notice $nick A new character has been created. You have $chr(36) $+ 1000 free dollars to spend.
    hsave Slots Slots.dat
  }
  else { .notice $nick You already have an account. }
}
on *:text:!sreset*:#: { 
  if (!$2) { 
    if (!$hget(Slots,$nick)) { msg $chan You do not have an account for Slots $nick $+ . | halt }
    else {
      if ($hget(Slots,$nick) >= 5) { msg $chan You already have $chr(36) $+ 5 or more dollars so no reset $nick $+ . (4 $+  $chr(36) $+ $comma($hget(Slots,$nick)) $+ ) | halt }
      else { 
        hadd Slots $nick 1000 
        msg $chan $nick $+ 's money has been reset to $chr(36) $+ 1000.
        hsave Slots Slots.dat
      }
    }
  }
  if ($2) {
    if (!$hget(Slots,$2)) { msg $chan $2 does not have an account for Slots. | halt }
    else {
      if ($hget(Slots,$2) >= 5) { msg $chan $2 already has $chr(36) $+ 5 or more dollars so no reset. (4 $+  $chr(36) $+ $comma($hget(Slots,$2)) $+ ) | halt }
      else { 
        hadd Slots $2 1000 
        msg $chan $2 $+ 's money has been reset to $chr(36) $+ 1000.
        hsave Slots Slots.dat
      }
    }
  }
}
on *:text:!shelp:#: {
  .timer 1 2 .notice $nick To create a Slots account type !Snew and $1000 dollars will be credited to your Slots account.
  .timer 1 3 .notice $nick To begin a game Slots use !Playslots , !Playslot , !Pslots , !Pslot , !Slots or !Slot to wager a default amount of $chr(36) $+ 5.
  .timer 1 4 .notice $nick To wager more than the default $chr(36) $+ 5 use !Playslots $chr(35) , !Playslot $chr(35) , !Pslots $chr(35) , !Pslot $chr(35) , !Slots $chr(35) or !Slot $chr(35)
  .timer 1 5 .notice $nick To view your money or another's money use !Smoney or !Smoney nick
} 
alias smoney {
  var %d = 1, %w = @rank, %t = slots
  window -hn %w 
  while $hget(%t,%d).item { 
    aline %w $v1 $hget(%t,$v1) 
    inc %d 
  } 
  filter -cteuww 2 32 %w %w 
  set %smoney $line(%w,1)
  window -c %w 
  write -c slots.txt %smoney
  tokenize 32 $read(slots.txt)
  msg $chan Slots:04 $1 with $chr(36) $+ $comma($2) dollars | unset %smoney | .remove slots.txt
}
;Usage: $comma(number)
alias comma { 
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a) 
  return %a 
}
on *:start: { 
  if (!$hget(Slots)) hmake Slots 1000
  if ($isfile(Slots.dat)) hload Slots Slots.dat
}
on *:disconnect: { hsave Slots Slots.dat } 
on *:exit: { hsave Slots Slots.dat }
on *:connect: { hload Slots Slots.dat }

Comments

(0) RSS

Go to Bottom

!slots

Introduction

Grab the Code

Comments

Scakk

My Snippet Tags

Contact

Friends (15)

Sponsors


Last seen: Sep 07, 2008 Profile Likes (2) Friends (15) Snippets (34) Images (16) Comments Received (280) Comments Submitted (218) Forum Posts (173)