Simple addon i made for CHeF-TeCH's Bar & Casino script which is found here: http://www.evolutionscriptz.com/downloads.php?view=detail&df_id=241

on *:text:!loan*:#: { 
  if ( $readini(casinoloans.ini, $nick, Money ) == $null) && ($2 == $null) {
    .msg $chan You don't owe me any money $nick $+ !
  }
  if ( $readini( casino.ini, $nick, Money ) <= 10 ) && ($2 == $null) {
    .msg $chan You can ask for a loan with a maximum of 500! 
  }
  if ( $readini( casino.ini, $nick, Money ) <= 10 ) && ($2 isnum) { 
    .msg $chan You requested a loan of $2 $+ . 
    /var %casinorequestedordenied $rand(1,5) 
    if (%casinorequestedordenied == 1) {
      .timer 1 5 /msg $chan $nick $+ , your loan is Denied!
    }
    if (%casinorequestedordenied == 2) {
      .timer 1 5 /msg $chan $nick $+ , your loan is Denied!
    }
    if (%casinorequestedordenied == 3) {
      .timer 1 5 /msg $chan $nick $+ , your loan is Denied!
    }
    if (%casinorequestedordenied == 4) {
      .timer 1 5 /msg $chan $nick $+ , your loan is Denied!
    }
    if (%casinorequestedordenied == 5) { 
      .timer 1 4 /msg $chan $nick $+ , your loan is Accepted! Money wil be added to your bank account in
      .timer 1 4 /msg $chan 3
      .timer 1 5 /msg $chan 2
      .timer 1 6 /msg $chan 1
      .timer 1 7 /msg $chan Now!
      .timer 1 7 /writeini casino.ini $nick Money $calc( $readini( casino.ini, $nick, Money ) + $2 )
      .timer 1 7 /writeini casinoloans.ini $nick Money $calc( $readini( casinoloans.ini, $nick, Money ) + $2 )
    }
  }
  if ( $readini( casino.ini, $nick, Money ) > 10 ) {
    .msg $chan Loan denied, you have enough money left!
  }
}
on *:join:#: {
  if ( $readini( casinoloans.ini, $nick, Money ) != 0 ) && ( $readini( casinoloans.ini, $nick, Money ) != $null ) {
    .msg $chan Hello $nick $+ , time to pay up!
    .notice $nick You owe me $readini( casinoloans.ini, $nick, Money )
    .msg $chan Type !payback for more information!
  }
}