Craps Bot

By CowBoy on Mar 04, 2005

Craps Bot: Use Craps <amnt to bet> , Ex:Craps 1000 ; Then To Start With Gettin Money Type `money ;if you have money in the .ini file then it will not allow you to get anymore money. Have Fun!

on *:LOAD: { set %c ` | halt }
on *:TEXT:*Craps*:*: {
var %R = $rand(1,6) | var %C = $rand(1,6)
var %T = $Calc(%R + %C)
if ($1 = %c $+ Craps) {
if ($2 = $null) { notice $nick No Money Was Bet, Please Bet Money With Your Craps, No Freebies xD | halt }
if ($2 != $null) && ($readini(Money.ini,$nick,Money) >= $2) {
 writeini Bet.ini $nick Bet $2 
msg $chan ( $+ $nick $+ ) Rolled Two Dice For Craps: Results; ( $+ %R $+ | $+ %C $+ )
msg $chan Dice Roll Total; ( $+ %T $+ )
}
if ($2 != $null) && ($readini(Money.ini,$nick,Money) <= $2) { notice $Nick You Dont Have Enough Money To Place This Bet! Bet Lower, Type %c $+ Info To View Money That You Have. | halt }
if (%T = 7) || (%T = 11) {
msg $chan $upper(( $+ $nick $+ )) GOT CRAPS!! w00t w00t!!!
var %Bet = $readini(Bet.ini,$nick,Bet)
var %Current = $readini(Money.ini,$nick,Money)
var %TotalWin = $Calc(%bet + %Current)
remini Money.ini $nick Money
remini Bet.ini $nick Bet
writeini Money.ini $Nick Money %totalwin
msg $chan ( $+ $nick $+ ) Now Has $readini(Money.ini,$nick,Money) 
halt
}
else {
msg $chan ( $+ $Nick $+ ) Didnt Get Craps
var %Bet = $readini(Bet.ini,$nick,Bet)
var %Current = $readini(Money.ini,$nick,Money)
var %TotalLoss = $Calc%Current = %bet)
remini Money.ini $nick Money
remini Bet.ini $nick Bet
writeini Money.ini $Nick Money %TotalLoss
msg $chan ( $+ $Nick $+ ) Now Has $readini(Money.ini,$nick,Money)
}
}
}
on *:TEXT:*money*:*: {
if ($1 = %c $+ money) {
if ($readini(Money.ini,$nick,Money) = 0) { remini Money.ini $nick Money | halt }
if ($readini(Money.ini,$nick,Money) = $null) {
writeini Money.ini $nick Money
msg $chan ( $+ $Nick $+ ) Now Has 1000 Dollars | halt
}
}
}
on *:TEXT:*Info*:*: {
if ($1 = %c $+ Info) {
if ($2 = $null) {
msg $chan $nick Has $readini(Money.ini,$nick,Money) Dollars
halt
}
if ($2 != $null) {
msg $chan $2 Has $readini(Money.ini,$2,money) Dollars
halt
}
if ($readini(Money.ini,$nick,Money) = $null) { msg $chan $nick Has No Money, Use %c $+ Money To Get some | halt }
if ($readini(Money.ini,$2,Money) = $null) { msg $chan $2 has No Money, Use %c $+ Money To Get some | halt }
}
}

Comments

Sign in to comment.
Tyler222   -  May 15, 2007

It didn\'t work for me

 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.