on *:text:!roulette*:#: {
if ($readini( PIMP.ini, $nick, Money ) == $null) { msg $chan $nick you don't have credits! | halt }
if ($3 !isnum) { msg $chan You can only bet numerical values. | Halt }
if ($3 > 50) { msg # Sorry, 50 is the MAX | 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) && ($readini( PIMP.ini, $nick, Money ) < $3) { msg $chan You can not wager that much $nick as you only have $readini(PIMP.ini, $nick, Money) | 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 # You now have 60 seconds to place your bets
timer 1 60 msg # Betting is now off
timer 1 60 unset %rltimer
timer 1 60 /spin $chan $nick
}
msg $chan Your bet has been added to the table!
write betspimp.txt $address($nick, 2) $nick $2 $3
/set %money.bet $calc( $readini( PIMP.ini, $nick , Money ) - $3)
/writeini PIMP.ini $nick Money %money.bet
/unset %money.bet
}
}
else { msg $chan That is not a valid bet, try !roulette red 1000 }
}
alias spin {
var %num = $rand(0,36)
msg $1 The 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(betspimp.txt, %count) != $null) {
var %add = $wildtok($read(betspimp.txt, %count), *, 1, 32)
var %nick = $wildtok($read(betspimp.txt, %count), *, 2, 32)
var %bet = $wildtok($read(betspimp.txt, %count), *, 3, 32)
var %ammount = $wildtok($read(betspimp.txt, %count), *, 4, 32)
if (%bet isin %bets) {
if (%bet == Red || %bet == Black || %bet == Odd || %bet == Even) {
msg # %nick has won %ammount with their bet on %bet
set %valuea %ammount * 2
/set %money.win $calc( $readini( PIMP.ini, $2 , Money ) + %valuea )
/writeini PIMP.ini $2 Money %money.win
/unset %money.win
}
if (%bet == Row1 || %bet == Row2 || %bet == Row3 || %bet == Column1 || %bet == Column2 || %bet == Column3) {
set %valueb %ammount * 2
msg # %nick has won $calc(%ammount * 2) with their bet on %bet
/set %money.win $calc( $readini( PIMP.ini, $2 , Money ) + %valueb )
/writeini PIMP.ini $2 Money %money.win
/unset %money.win
}
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) {
set %valuec %ammount * 36
msg # %nick has won $calc(%ammount * 36) with their bet on %bet
/set %money.win $calc( $readini( PIMP.ini, $2 , Money ) + %valuec )
/writeini PIMP.ini $2 Money %money.win
/unset %money.win
}
}
inc %count
}
msg $1 All other bets were lost, better luck next time!
remove betspimp.txt
}
