Untitled

on *:text:!pull:#:{ 
  /set %slotmachinenick $+ $nick $readini(slotmachine.ini,n,nick,$nick) 
  if ( %slotmachinenick [ $+ [ $nick ] ] == $null) { 
    notice $nick This is Your First Time Playing, You are given 20 Tokens to Begin with. 
    notice $nick To check your current total tokens, type !tokens nick. You can also check others tokens by typing !tokens nick. 
    /writeini -n slotmachine.ini nick $nick $nick 
    /writeini -n slotmachine.ini token $nick 20 
  halt } 
  else { 
    /set %slotmachine $+ $nick $readini(slotmachine.ini,n,$nick) 
    if ( %slotmachine <= 2) { notice $nick You do not have enough tokens to play this game. | halt } 
    else { 
      set %nicktoken $calc( $readini(slotmachine.ini,n,token,$nick) - 2 ) 
      /writeini -n slotmachine.ini token $nick %nicktoken 
      set %s1 $rand(1,3) 
      set %s3 $rand(1,3) 
      set %s2 $rand(1,3) 
      notice $nick $nick Pulls the Slot.. 
      notice $nick %s1 - %s2 - %s3 
    } 
    if ( %s1 == %s2 ) && ( %s2 == %s3 ) {  
      set %tokenwin $rand(1,50) 
      notice $nick You win %tokenwin Tokens!        
      set %nicktoken $calc( $readini(slotmachine.ini,n,token,$nick) + %tokenwin ) 
      /writeini -n slotmachine.ini token $nick %nicktoken 
    } 
  } 
} 
on *:text:!tokens*:#:{ 
  set %nicktoken $readini(slotmachine.ini,n,token,$2-) 
  if ( %nicktoken == $null ) { notice $nick $nick $2 has no Tokens. | halt } 
  else { 
    notice $nick $nick $2- has %nicktoken tokens! 
  } 
}