Anonymous

ON *:TEXT:!Pull*:#:{
  if ($readini(Pullamt.ini,$address($nick,2),Times) == $null) {
    remini loan.ini $address($nick,2) loan 
    writeini Cash.ini $address($nick,2) cash 100
    writeini wins.ini $address($nick,2) wins 0
    writeini pullamt.ini $address($nick,2) Times 0
    writeini PULL.ini $address($nick,2) PULL 1 1 1
    writeini lost.ini $address($nick,2) lost 0
    notice $nick 12It looks like your new to this. Type 4!pull12 again to get started. 
    notice $nick 12I am keeping track of how you do through-out each game. SO do good12 Im starting you off with4 $readini(cash.ini,$address($nick,2),cash) 12Bucks
    msg $chan 12For more info on My Casino type4 !Casino
    halt
  }
  if ($readini(cash.ini,$address($nick,2),cash) <= 0) {
    notice $nick 12Dude you4 0 12cash. Your gonna need to take a loan. Type4 !loan
    halt
  }
  if ($readini(Pullamt.ini,$address($nick,2),Times) >=  0) {
    writeini PULL.ini $address($nick,2) PUll $rand(1,3) $rand(1,3) $rand(1,3)
    if ($readini(PULL.ini,$address($nick,2),PULL) == 3 3 3 || $readini(PULL.ini,$address($nick,2),PULL) == 2 2 2 || $readini(PULL.ini,$address($nick,2),PULL) == 1 1 1) {
      writeini WINS.ini $address($nick,2) Wins $calc( $readini(WINS.ini,$address($nick,2),Wins) + 1 )
      writeini Pullamt.ini $address($nick,2) Times $calc( $readini(Pullamt.ini,$address($nick,2),Times) + 1 )  
      writeini cash.ini $address($nick,2) Cash $calc( $readini(cash.ini,$address($nick,2),cash) + 5 ) 
      msg $chan 4 $+ $nick 12pulls!
      msg $chan 4 $+ $nick $+ :12 $readini(PULL.ini,$address($nick,2),PULL) 
      msg $chan 12Congradz.
      notice $nick 12You now have4 $readini(cash.ini,$address($nick,2),cash) 12 bucks.
      halt
    }
    else {
      writeini cash.ini $address($nick,2) Cash $calc( $readini(cash.ini,$address($nick,2),cash) - 5 )     
      msg $chan 4 $+ $nick 12pulls!
      msg $chan 4 $+ $nick $+ :12 $+ $readini(PULL.ini,$address($nick,2),PULL) 
      notice $nick 12You now have4 $readini(cash.ini,$address($nick,2),cash) 12 bucks.    
      writeini Pullamt.ini $address($nick,2) Times $calc( $readini(Pullamt.ini,$address($nick,2),Times) + 1 )     
      writeini Lost.ini $address($nick,2) Lost $calc( $readini(Lost.ini,$address($nick,2),Lost) + 1 )
    }
  }
}
ON *:TEXT:!loan*:#:{ 
  if ($readini(loan.ini,$address($nick,2),loan) == Yes) { 
    notice $nick 12I wont give you any more cash untill you pay me back.
    halt
  }
  if ($readini(cash.ini,$address($nick,2),cash) <= 4 ) {
    notice $nick 12I am giving you4 2512 bucks. Dont ask for more money untill you pay me back.4 !payback
    writeini cash.ini $address($nick,2) Cash $calc( $readini(cash.ini,$address($nick,2),cash) + 25 )     
    writeini loan.ini $address($nick,2) Loan Yes  
  }
  else {
    notice $nick 12Dude you already got4 some 12 cash.
  }
}
ON *:TEXT:!payback*:#:{
  if ($readini(cash.ini,$address($nick,2),cash) <= 25) {
    notice $nick 12You need atleast4 512 bucks to play with.
    halt 
  } 
  if ($readini(loan.ini,$address($nick,2),loan) == Yes && $readini(cash.ini,$address($nick,2),cash) <= 30) {
    writeini cash.ini $address($nick,2) Cash $calc( $readini(cash.ini,$address($nick,2),cash) - 25 )     
    remini loan.ini $address($nick,2) Loan 
    notice $nick 12You know have4 $readini(cash.ini,$address($nick,2),cash) 12bucks.
    halt  
  }
  if ($readini(loan.ini,$address($nick,2),loan) == $null) {
    notice $nick 12You dont owe me anything.
    halt
  }
}
ON *:TEXT:!cash*:#:{
  if ($readini(cash.ini,$address($nick,2),cash) == $null) {
    notice $nick 12You need to start a game first.4 !pull
  }
  else {
    notice $nick 12You have4 $readini(cash.ini,$address($nick,2),cash) 12bucks.
  }
}
ON *:TEXT:?record*:#:{
  if ($2 == $null && $readini(Pullamt.ini,$address($nick,2),Times) >=  0 && $left($1,1) == !) {
    notice $nick 12Your record is... Wins:4 $readini(WINS.ini,$address($nick,2),Wins) 12Lost's:4 $readini(Lost.ini,$address($nick,2),Lost) 12Cash:4 $readini(cash.ini,$address($nick,2),cash) 12Out of4 $readini(Pullamt.ini,$address($nick,2),Times) 12times.
    halt
  }
  if ($2 == $null && $readini(Pullamt.ini,$address($nick,2),Times) >=  0 && $left($1,1) == @) {
    msg $chan 12Your record is... Wins:4 $readini(WINS.ini,$address($nick,2),Wins) 12Lost's:4 $readini(Lost.ini,$address($nick,2),Lost) 12Cash:4 $readini(cash.ini,$address($nick,2),cash) 12Out of4 $readini(Pullamt.ini,$address($nick,2),Times) 12times.
    halt
  }
  if ($readini(Pullamt.ini,$address($2,2),Times) >=  0 && $left($1,1) == !) {
    notice $nick 12 $+ $2 $+ 's record is... Wins:4 $readini(WINS.ini,$address($2,2),Wins) 12Lost's:4 $readini(Lost.ini,$address($2,2),Lost) 12Cash:4 $readini(cash.ini,$address($2,2),cash) 12Out of4 $readini(Pullamt.ini,$address($2,2),Times) 12times.
    halt
  }
  if ($readini(Pullamt.ini,$address($2,2),Times) >=  0 && $left($1,1) == @) {
    msg $chan 12 $+ $2 $+ 's record is... Wins:4 $readini(WINS.ini,$address($2,2),Wins) 12Lost's:4 $readini(Lost.ini,$address($2,2),Lost) 12Cash:4 $readini(cash.ini,$address($2,2),cash) 12Out of4 $readini(Pullamt.ini,$address($2,2),Times) 12times.
    halt
  }
  if ($2 == $null && $readini(Pullamt.ini,$address($nick,2),Times) ==  $null && $left($1,1) == !) {
    notice $nick 12You havn't played or is now in The Casino ATM
    halt
  }
  if ($2 == $null && $readini(Pullamt.ini,$address($nick,2),Times) ==  $null && $left($1,1) == @) {
    msg $chan 12You havn't played or is now in The Casino ATM
    halt
  }
  if ($readini(Pullamt.ini,$address($2,2),Times) ==  $null && $left($1,1) == !) {
    notice $nick 12They havn't played or is now in The Casino ATM
    halt
  }
  if ($readini(Pullamt.ini,$address($2,2),Times) ==  $null && $left($1,1) == @) {
    msg $chan 12They havn't played or is now in The Casino ATM
    halt
  }
}
ON *:TEXT:!restart*:#:{
  remini loan.ini $address($nick,2) loan 
  writeini Cash.ini $address($nick,2) cash 100
  writeini wins.ini $address($nick,2) wins 0
  writeini pullamt.ini $address($nick,2) Times 0
  writeini PULL.ini $address($nick,2) PULL 1 1 1
  writeini lost.ini $address($nick,2) lost 0
  notice $nick 12Come back soon.
}
ON *:TEXT:!Casino*:#:{
  msg $nick 12!Pull
  msg $nick 12!Cash
  msg $nick 12!Loan
  msg $nick 12!PayBack
  msg $nick 12[!/@]Record 4<Nick>
  msg $nick 12!restart
}