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 $+ .
}
}
}
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
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
I just logged in randomly out of curiosity, can't believe people still use this haha