here: I got this together for you, allows OPs to give coins/Dice (craps style)/Russian Roulette/ and added !balance so users can see what they have in Mariocoins

Code:
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
  }
}


Last edited by HappyFappy; 03/01/15 06:46 PM.