Roulette Table

By AlexRapso on May 20, 2010

For any gambling addicts out there

Commands: !new !money !reset !give (player) (ammount) !play (red/black/odd/even) (ammount) !play (row1 - row3 & column1 - column3) (ammount) !play (0 - 36) (ammount)

on *:text:!play*:#: {  
  if (!$hget(Roully, $address($nick,2))) { msg $chan $nick you don't have an account, type !new | halt }
  if ($3 !isnum) { msg $chan You can only bet numerical values. | Halt }
  if ($left($3,1) == $chr(45)) { msg $chan You can not use negative numbers $nick | halt }
  if ($3 <= 0) { msg $chan Please use a positive number. | halt }
  if ($3) && ($hget(Roully, $address($nick,2)) < $3) { msg $chan You can not wager that much $nick as you only have $chr(36) $+ $hget(Roully, $address($nick,2)) $+ . | halt }
  if ($2 == Red || $2 == Black || $2 == Odd || $2 == Even) {
    set %double $rand(1,2)
    if (%double == 1) { msg $chan You have bet $3 and you made9 $calc($3 * 2) | hinc Roully $address($nick,2) $3 }
    else { msg $chan You have bet $3 and you made4 0 | hdec Roully $address($nick, 2) $3 }
  }
  if ($2 == Row1 || $2 == Row2 || $2 == Row3 || $2 == Column1 || $2 == Column2 || $2 == Column3) { 
    set %row $rand(1,3)
    if (%row == 1) { msg $chan You have bet $3 and you made3 $calc($3 * 3) | hinc Roully $address($nick,2) $calc($3 * 2) }
    else { msg $chan You have bet $3 and you made4 0 | hdec Roully $address($nick,2) $3 }
  }
  if ($2 == 0 || $2 == 1 || $2 == 2 || $2 == 3 || $2 == 4 || $2 == 5 || $2 == 6 || $2 == 7 || $2 == 8 || $2 == 9 || $2 == 10 || $2 == 11 || $2 == 12 || $2 == 13 || $2 == 14 || $2 == 15 || $2 == 16 || $2 == 17 || $2 == 18 || $2 == 19 || $2 == 20 || $2 == 21 || $2 == 22 || $2 == 23 || $2 == 24 || $2 == 25 || $2 == 26 || $2 == 27 || $2 == 28 || $2 == 29 || $2 == 30 || $2 == 31 || $2 == 32 || $2 == 33 || $2 == 34 || $2 == 35) { 
    set %num $rand(1,37)
    if (%num == 1) { msg $chan You have bet $3 and you made3 $calc($3 * 36) | hinc Roully $address($nick,2) $calc($3 * 36) }
    else { msg $chan You have bet $3 and you made4 0 | hdec Roully $address($nick,2) $3 }
  }
}
on *:text:!new:#:{ 
  if ($hget(Roully, $address($nick,2))) { msg $chan $nick You already have an account. | halt }
  if (!$hget(Roully, $address($nick,2))) {
    hadd -m Roully $address($nick,2) 100000 
    msg $chan A new account has been created. $nick has $chr(36) $+ 100000 to gamble.
  }
}
on *:text:!money*:#:{ 
  if (!$2) {
    if ($hget(Roully, $address($nick,2)) > 0) { msg $chan $nick has $chr(36) $+ $hget(Roully, $address($nick,2)) dollars. }
    else { msg $chan $nick is 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 is broke. | halt }
  }
}
on *:text:!reset*:#: { 
  if (!$2) { 
    if (!$hget(Roully, $address($nick,2))) { msg $chan You do not have an account. | halt }
    if ($hget(Roully, $address($nick,2))) {
      hadd Roully $address($nick,2) 100000 
      msg $chan $nick $+ 's money has been reset to $chr(36) $+ 100000.
    }
  }
}
on *:text:!give*:#: { 
  if ($2) { 
    if (!$hget(Roully, $address($nick,2))) { msg $chan You do 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 $chan $nick gave $2 $ $+ $3 $+ .
    }
  }
}

Comments

Sign in to comment.
bourneident   -  Sep 07, 2010

http://www.hawkee.com/phpBB2/viewtopic.php?p=89453&highlight=#89453 is the biggest game i have thought of geting done next to wheel of fortune

More
 Respond  
AlexRapso   -  Sep 07, 2010

Ok done it's at http://www.hawkee.com/snippet/7925/

I might be able to code some games for you but i am back at university in 2 weeks so give them to me quick :P

More
 Respond  
bourneident   -  Sep 07, 2010

cool i have some ideas for more games if you would consider tackling them have them laid out just need someone to code them

More
 Respond  
AlexRapso   -  Sep 06, 2010

Yeh i could do that, would have to be 2 seperate bets like !play odd 500 and then !play 11 500. will do that 2moro too busy today :P

More
 Respond  
bourneident   -  Sep 04, 2010

any chance of making this better like adding stuff like

!play odd 11 $500 no more bets the ball landed on red #31 etc so it's a little more like real roulette
More
 Respond  
AnaBotNowYourGone   -  Jun 08, 2010

Looks good...

More
 Respond  
MashhitDK   -  May 23, 2010

Thanks... am gonna try this on My bot.

More
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.