Roulette Table

Platform:  mIRC
Published  May 20, 2010
Updated  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
 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
 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
 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
 Respond  
bourneident   -  Sep 04, 2010
any chance of making this better like adding stuff like
<nick>!play odd 11 $500
<bot> no more bets
<bot> the ball landed on red #31 etc
so it's a little more like real roulette
 Respond  
AnaBotNowYourGone   -  Jun 08, 2010
Looks good...
 Respond  
MashhitDK   -  May 23, 2010
Thanks... am gonna try this on My bot.
 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.