ON *:TEXT:*!5coins*:#:{
if ($nick isop $chan) {
if ($2 == $null) {
msg # please supply nick to send to
}
msg # $2 has been given 5 Mariocoins
set %money.withdraw $calc( $readini( mariocoin.ini, $2 , Money ) + 5 )
writeini mariocoin.ini $2 Money %money.withdraw
unset %money.withdraw
}
}
;MONEY MANAGMENT
on *:TEXT:!balance*:#:{
if ($readini( mariocoin.ini, $nick, Money ) == $null) {
/notice $nick , You have no coins
halt
}
if ($2 != $null) {
if ($readini( mariocoin.ini, $2, Money ) == $null) {
/msg $chan $2 has no coins
halt
}
else /msg $chan $2 has $readini(mariocoin.ini, $2, Money) MarioCoins
}
if ($2 == $null) /msg $chan $nick has $readini(mariocoin.ini, $nick, Money) Mariocoins
}
;DICE
on *:TEXT:!rtd*:#: {
if ($readini( mariocoin.ini, $nick, Money ) == $null) {
/notice $nick $+ , You have no coins
halt
}
if ($2 == $null) {
/notice $nick Please type a credit ammount. ex: !rtd (money)
halt
}
if ($readini( mariocoin.ini, $nick, Money ) < $2) {
/notice $nick Sorry but you don't have $2 credits to spend.
halt
}
if ($2 < 1) {
/notice $nick Please bet with 1 credit or more.
halt
}
var %R = $rand(1,6) | var %C = $rand(1,6)
var %T = $Calc(%R + %C)
/msg $chan $nick Rolls the dice......... 4 %R & 4 %C
/msg $chan Dice Total= %T
if (%T = 7) {
var %M = $calc($2 * 3)
/msg $chan $nick GOT SEVENS.. You Win %m MarioCoins
/set %money.temp $calc( $readini( mariocoin.ini, $nick, Money ) + %m)
/writeini mariocoin.ini $nick Money %money.temp
/unset %money.temp
/unset %R
/unset %C
/unset %T
/unset %M
/halt
}
if (%T = 11) {
var %M = $calc($2 * 4)
/msg $chan $nick GOT ELEVEN.. You Win %m MarioCoins
/set %money.temp $calc( $readini( mariocoin.ini, $nick, Money ) + %m)
/writeini mariocoin.ini $nick Money %money.temp
/unset %money.temp
/unset %R
/unset %C
/unset %T
/unset %M
/halt
}
else {
/msg $chan $Nick Crapped out. You Lose $2 MarioCredits
/set %money.temp $calc( $readini( mariocoin.ini, $nick, Money ) - $2)
/writeini mariocoin.ini $nick Money %money.temp
/unset %money.temp
/unset %R
/unset %C
/unset %T
/unset %M
}
else return
set -eu60 $+(%,flood.,$network,.,$chan,.,action) ON
}
on *:text:!roulette*:#: {
if ($readini( mariocoin.ini, $nick, Money ) == $null) {
/notice $nick $+ , You have no coins
halt
}
if ($2 == $null) {
/notice $nick Please type a credit ammount. ex: !rtd (money)
halt
}
if ($readini( mariocoin.ini, $nick, Money ) < $2) {
/notice $nick Sorry but you don't have $2 credits to spend.
halt
}
if ($2 < 1) {
/notice $nick Please bet with 1 credit or more.
halt
}
if ($rand(1,6) != 1) {
msg $chan *CLICK!* :I | halt
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) - 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
if ($rand(1,6) != 2) {
msg $chan *CLICK!* Lucky... | halt
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) - 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
if ($rand(1,6) != 3) {
msg $chan Well..
/me BANG!
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) + 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
if ($rand(1,6) != 4 {
msg $chan *CLICK!* (-_-) | halt
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) - 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
if ($rand(1,6) != 5 {
msg $chan *CLICK* damnit
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) - 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
if ($rand(1,6) != 6 {
/me BANG!
/set %money.reset $calc( $readini( mariocoin.ini, $nick , Money ) + 1)
/writeini mariocoin.ini $nick Money %money.reset
/unset %money.reset
}
}