eCasino Scripts for JammyPear

on *:text:!play*:#: {
  if (!$hget(Roully, $address($nick,2))) { msg $chan $nick , 2you don't have an account, type !new | halt }
  if ($3 <= 99) { msg # $nick , 2the minimum bet is 100 chips. | halt }
  if ($3 !isnum) { msg $chan $nick , 2you can only bet numerical values. | Halt }
  if ($3 >= 501) { msg # $nick , 2the maximum bet is 500 chips. | halt }
  if ($left($3,1) == $chr(45)) { msg $chan $nick , 2you can not use negative numbers $nick | halt }
  if ($3 <= 0) { msg $chan %nick , 2please use a positive number. | halt }
  if ($3) && ($hget(Roully, $address($nick,2)) < $3) { msg $chan $nick , 2you can not wager that much as you only have $hget(Roully, $address($nick,2)) chips. | halt }
  if ($2 == Red || $2 == Black || $2 == Odd || $2 == Even || $2 == Row1 || $2 == Row2 || $2 == Row3 || $2 == Column1 || $2 == Column2 || $2 == Column3 || $2 isnum) {
    if ($2 != num || $2 < 27 && $2 >= 0) {
      if (%rltimer != on) {
        set %rltimer on
        msg $chan 2You now have 10 seconds to place your bets
        timer 1 10 msg $chan Betting is now off
        timer 1 10 unset %rltimer
        timer 1 10 /spin $chan
      }
      msg $chan $nick , 2your bet has been added to the table!
      write bets.txt $address($nick, 2) $nick $2 $3
      hdec Roully $address($nick, 2) $3
    }
  }
  else { msg $chan 2That is not a valid bet, try !play red 1000 }
}
alias spin {
  var %num = $rand(0,36)
  msg $1 2The Roulette spins and lands on %num
  if (%num == 0) { var %bets = 0 }
  if (%num == 1) { var %bets = 1 red odd row1 column1 }
  if (%num == 2) { var %bets = 2 black even row2 column1 }
  if (%num == 3) { var %bets = 3 red odd row3 column1 }
  if (%num == 4) { var %bets = 4 black even row1 column1 }
  if (%num == 5) { var %bets = 5 red odd row2 column1 }
  if (%num == 6) { var %bets = 6 black even row3 column1 }
  if (%num == 7) { var %bets = 7 red odd row1 column1 }
  if (%num == 8) { var %bets = 8 black even row2 column1 }
  if (%num == 9) { var %bets = 9 red odd row3 column1 }
  if (%num == 10) { var %bets = 10 black even row1 column1 }
  if (%num == 11) { var %bets = 11 black odd row2 column1 }
  if (%num == 12) { var %bets = 12 red even row3 column1 }
  if (%num == 13) { var %bets = 13 black odd row1 column2 }
  if (%num == 14) { var %bets = 14 red even row2 column2 }
  if (%num == 15) { var %bets = 15 black odd row3 column2 }
  if (%num == 16) { var %bets = 16 red even row1 column2 }
  if (%num == 17) { var %bets = 17 black odd row2 column2 }
  if (%num == 18) { var %bets = 18 red even row3 column2 }
  if (%num == 19) { var %bets = 19 red odd row1 column2 }
  if (%num == 20) { var %bets = 20 black even row2 column2 }
  if (%num == 21) { var %bets = 21 red odd row3 column2 }
  if (%num == 22) { var %bets = 22 black even row1 column2 }
  if (%num == 23) { var %bets = 23 red odd row2 column2 }
  if (%num == 24) { var %bets = 24 black even row3 column2 }
  if (%num == 25) { var %bets = 25 red odd row1 column3 }
  if (%num == 26) { var %bets = 26 black even row2 column3 }
  if (%num == 27) { var %bets = 27 red odd row3 column3 }
  if (%num == 28) { var %bets = 28 black even row1 column3 }
  if (%num == 29) { var %bets = 29 black odd row2 column3 }
  if (%num == 30) { var %bets = 30 red even row3 column3 }
  if (%num == 31) { var %bets = 31 black odd row1 column3 }
  if (%num == 32) { var %bets = 32 red even row2 column3 }
  if (%num == 33) { var %bets = 33 black odd row3 column3 }
  if (%num == 34) { var %bets = 34 red even row1 column3 }
  if (%num == 35) { var %bets = 35 black odd row2 column3 }
  if (%num == 36) { var %bets = 36 red even row3 column3 }
  var %count = 1
  while ($read(bets.txt, %count) != $null) {
    var %add = $wildtok($read(bets.txt, %count), *, 1, 32)
    var %nick = $wildtok($read(bets.txt, %count), *, 2, 32)
    var %bet = $wildtok($read(bets.txt, %count), *, 3, 32)
    var %ammount = $wildtok($read(bets.txt, %count), *, 4, 32)
    if (%bet isin %bets) {
      if (%bet == Red || %bet == Black || %bet == Odd || %bet == Even) {
        hinc Roully %add $calc(%amount * 2)
        msg $1 %nick 2has won %ammount with their bet on %bet
      }
      if (%bet == Row1 || %bet == Row2 || %bet == Row3 || %bet == Column1 || %bet == Column2 || %bet == Column3) {
        hinc Roully %add $calc(%amount * 3)
        msg $1 %nick 2has won $calc(%ammount * 2) with their bet on %bet
      }
      if (%bet == 0 || %bet == 1 || %bet == 2 || %bet == 3 || %bet == 4 || %bet == 5 || %bet == 6 || %bet == 7 || %bet == 8 || %bet == 9 || %bet == 10 || %bet == 11 || %bet == 12 || %bet == 13 || %bet == 14 || %bet == 15 || %bet == 16 || %bet == 17 || %bet == 18 || %bet == 19 || %bet == 20 || %bet == 21 || %bet == 22 || %bet == 23 || %bet == 24 || %bet == 25 || %bet == 26 || %bet == 27 || %bet == 28 || %bet == 29 || %bet == 30 || %bet == 31 || %bet == 32 || %bet == 33 || %bet == 34 || %bet == 35 || %bet == 36) {
        hinc Roully %add $calc(%amount * 37)
        msg $1 %nick 2has won $calc(%ammount * 36) with their bet on %bet
      }
    }
    inc %count
  }
  msg $1 2All other bets were lost, better luck next time!
  remove bets.txt
}
on *:text:!new:#:{
  if ($hget(Roully, $address($nick,2)) < 0 || $hget(Roully, $address($nick,2))) { msg $chan $nick , 2you already have an account. | halt }
  if (!$hget(Roully, $address($nick,2)) || $hget(Roully, $address($nick,2)) >= 0) {
    hadd -m Roully $address($nick,2) 0
    msg $chan 2A new account has been created for $nick
  }
}
on *:text:!balance*:#:{
  if (!$2) {
    if ($hget(Roully, $address($nick,2)) > 0) { msg $chan $nick 2has $hget(Roully, $address($nick,2)) chips. }
    else { msg $chan $nick 2is broke. | halt }
  }
  else if ($2 == $me) { msg $chan I am rich! Fear me! | halt }
  else if ($2 != $me) {
    if ($hget(Roully, $address($2,2)) > 0) { msg $chan $2 has $chr(36) $+ $hget(Roully, $address($2,2)) dollars. }
    else { msg $chan $2 2is broke. | halt }
  }
}
on *:text:!reset*:#: {
  if ($nick == JammyPear)
  if (!$2) {
    if ($hget(Roully, $address($nick,2)) < 0 || !$hget(Roully, $address($nick,2))) { msg $chan You do not have an account. | halt }
    if ($hget(Roully, $address($nick,2)) || $hget(Roully, $address($nick,2)) >= 0) {
      hadd Roully $address($nick,2) 100000
      msg $chan2 $nick $+ 's money has been reset to $chr(36) $+ 100000.
    }
  }
}
on *:text:!give*:#: {
  if ($nick == JammyPear)
  if ($2) {
    if (!$hget(Roully, $address($nick, 2))) { msg $chan You do not have an account. | halt }
    if (!$hget(Roully, $address($2, 2))) { msg $chan This person does not have an account. | halt }
    if ($hget(Roully, $address($nick,2)) > $3) {
      hdec Roully $address($nick,2) $3
      hinc Roully $address($2,2) $3
      msg $chan2 $nick gave $2 $3 chips.
    }
    else { msg $chan 2You do not have that much money to give }
  }
}
on *:text:!rlycommands*:#: {
  msg $chan !New, !Reset, !Money/!Money (Nick), !Give (Nick), !Play (Bet) (Ammount)
  msg $chan Bets are Red, Black, Odd, Even, Row1 - Row3, Column1 - Column3, 0 - 36
}
on *:text:!war*:#eCasino.war: {
  if (!$2) {
    msg $chan $+($nick,$chr(44)) you have not entered a bet. Try typing $1 <amount to bet>
  }
  elseif ($2 !isnum 100-500) {
    if ($2 <= 99) {
      msg $chan $+(2,$nick,$chr(44)) the minimum bet is 100 chips.
    }
    elseif ($2 >= 501) {
      msg $chan $+(2,$nick,$chr(44)) the maximum bet is 500 chips.
    }
    else {
      msg $chan $+(2,$nick,$chr(44)) you have entered an invalid bet. Try typing $1 <amount to bet>
    }
  }
  else {
    if (!$hget(Roully, $address($nick, 2))) {
      msg $chan You do not have an account. To create an account type !new
    }
    else {
      if (!$hget(Roully, $address($nick,2)) > $2) {
        var %num = $rand(0,100)
        var %num2 = $rand(0,100)
        msg $chan $+(2,$nick,$chr(44)) you have rolled %num and [eCasino] has rolled %num2
        if (%num >= %num2) {
          hinc Roully $address($nick,2) $calc($2 * 2)
          msg $chan $+(3,$nick,$chr(44)) you have won your bet of $+($2,.) $calc($2 * 2) has been added to your balance. You now have $hget(Roully, $address($nick,2)) chips.
        }
        else {
          hdec Roully $address($nick,2) $2
          msg $chan $+(4,$nick,$chr(44)) you have lost your bet of $+($2,.) $2 has been subtracted from your balance. You now have $hget(Roully, $address($nick,2)) chips.
        }
      }
      else {
        msg $chan $+(2,$nick,$chr(44)) you do not have that much money to wager. You have $iif($hget(Roully, $address($nick,2)) > 0,$hget(Roully, $address($nick,2)) ,no) chips.
      }
    }
  }
}