Game

on $*:TEXT:/^[!.]register/Si:#:{
  if (!$readini(registergame.ini,registered,$nick)) {
    writeini gamemoney.ini Amount $nick 1000
    writeini chestkeys.ini Amount $nick 30
    writeini registergame.ini Registered $nick $nick
    notice $nick Welcome! You now have 1000 coins and 30 keys. Type !unlockchest to start.  
  }
  elseif ($readini(registergame.ini,registered,$nick)) {
    notice $nick You are already registered.
  }
}
on *:TEXT:!grantkeys *:#:{
  if ($nick isop #Zez) {
    if ($readini(registergame.ini,registered,$2)) {
      writeini chestkeys.ini amount $2 $calc($readini(chestkeys.ini,amount,$2) + $3)
      notice $nick $3 keys have been granted to $2 $+ .
    }
    elseif (!$readini(registergame.ini,registered,$2)) {
      notice $nick Im sorry but $2 has not registered to my game.
    }
  }
}
on $*:TEXT:/^[!`.]buykeys/Si:#:{
  if ($readini(registergame.ini,registered,$nick)) {
    if ($readini(gamemoney.ini,amount,$nick) >= $calc($2 * 5)) {
      var %keys $readini(chestkeys.ini,amount,$nick)
      var %coins $readini(gamemoney.ini,amount,$nick)
      writeini Chestkeys.ini amount $nick $calc(%keys + $2)
      writeini Gamemoney.ini amount $nick $calc(%coins - $calc($2 * 5))
      notice $nick You purchased $2 keys. ( $+ $calc($2 * 5) coins)
    }
    elseif ($readini(gamemoney.ini,amount,$nick) < $calc($2 * 5)) {
      notice $nick You do not have enough coins.
    }
  }
  elseif (!$readini(registergame.ini,registered,$nick)) {
    notice $nick You are not registered.
  }
}
on *:TEXT:!unlockchest*:#:{
  if ($nick isop #Zez) { }
  else {
    ignore -u4 $address($nick,2)
  } 
  if ($readini(registergame.ini,registered,$nick)) {
    if (!$readini(game.ini,lock,$nick)) {
      if ($readini(chestkeys.ini,Amount,$nick) >= 1) {    
        var %chestkeys $readini(chestkeys.ini,Amount,$nick)
        writeini Chestkeys.ini Amount $nick $calc(%chestkeys - 1)
        var %chest $rand(1,315)
        notice $nick You put the key into the lock...
        if (%chest == $readini(rewards.ini,Sapphire,%chest)) {
          if ($readini(rewardsearned.ini,Sapphire,$nick)) {
            writeini rewardsearned.ini Sapphire $nick $calc($readini(rewardsearned.ini,sapphire,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,sapphire,$nick)) {
            writeini rewardsearned.ini sapphire $nick 1
          }
          notice $nick 0,1You have found a12,1 Sapphire0,1!
        } 
        elseif (%chest == $readini(rewards.ini,emerald,%chest)) {
          if ($readini(rewardsearned.ini,emerald,$nick)) {
            writeini rewardsearned.ini Emerald $nick $calc($readini(rewardsearned.ini,emerald,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,emerald,$nick)) {
            writeini rewardsearned.ini Emerald $nick 1
          }
          notice $nick 0,1You have found an9,1 Emerald0,1!
        } 
        elseif (%chest == $readini(rewards.ini,ruby,%chest)) {
          if ($readini(rewardsearned.ini,ruby,$nick)) {
            writeini rewardsearned.ini Ruby $nick $calc($readini(rewardsearned.ini,ruby,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,Ruby,$nick)) {
            writeini rewardsearned.ini Ruby $nick 1
          }
          notice $nick 0,1You have found a5,1 Ruby0,1!      
        } 
        elseif (%chest == $readini(rewards.ini,diamond,%chest)) {
          if ($readini(rewardsearned.ini,diamond,$nick)) {
            writeini rewardsearned.ini Diamond $nick $calc($readini(rewardsearned.ini,diamond,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,diamond,$nick)) {
            writeini rewardsearned.ini diamond $nick 1
          }
          notice $nick 0,1You have found a0,1 Diamond0,1!
        } 
        elseif (%chest == $readini(rewards.ini,dragonstone,%chest)) {
          if ($readini(rewardsearned.ini,dragonstone,$nick)) {
            writeini rewardsearned.ini Dragonstone $nick $calc($readini(rewardsearned.ini,Dragonstone,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,Dragonstone,$nick)) {
            writeini rewardsearned.ini Dragonstone $nick 1
          }
          notice $nick 0,1You have found a6,1 Dragonstone0,1!
        } 
        elseif (%chest == $readini(rewards.ini,Onyx,%chest)) {
          if ($readini(rewardsearned.ini,Onyx,$nick)) {
            writeini rewardsearned.ini Onyx $nick $calc($readini(rewardsearned.ini,Onyx,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,Onyx,$nick)) {
            writeini rewardsearned.ini Onyx $nick 1
          }
          notice $nick 0,1You have found an14,1 Onyx Gem0,1!
        }
        elseif (%chest == $readini(rewards.ini,Pumpkin,%chest)) {
          if ($readini(rewardsearned.ini,Pumpkin,$nick)) {
            writeini rewardsearned.ini Pumpkin $nick $calc($readini(rewardsearned.ini,Pumpkin,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,Pumpkin,$nick)) {
            writeini rewardsearned.ini Pumpkin $nick 1
          }
          notice $nick 0,1You have found a7,1 Pumpkin0,1!
        }
        elseif (%chest == $readini(rewards.ini,Santa,%chest)) {
          if ($readini(rewardsearned.ini,Santa,$nick)) {
            writeini rewardsearned.ini Santa $nick $calc($readini(rewardsearned.ini,Santa,$nick) + 1)
          }
          elseif (!$readini(rewardsearned.ini,Santa,$nick)) {
            writeini rewardsearned.ini Santa $nick 1
          }
          notice $nick 0,1You have found a4,1 Santa Hat0,1!
        }
        elseif (%chest == $readini(rewards.ini,coins,%chest)) {
          var %randamount $rand(1,650)
          writeini gamemoney.ini Amount $nick $calc($readini(gamemoney.ini,amount,$nick) + %randamount)
          notice $nick 0,1You have found8,1 %randamount coins0,1!
        }
        else {
          notice $nick Sorry, the chest was empty.
        }
      }
      else {
        notice $nick You do not have enough keys.
      }
    }
    elseif ($readini(game.ini,lock,$nick)) {
      notice $nick Account locked. Reason: $readini(game.ini,lock,$nick)
    }
  }
  else {
    notice $nick You must register first. Type !register to do so.
  }
}
on $*:TEXT:/^[!@.]check/Si:#:{
  if (!$2) { var %checknick $nick }
  if ($2) { var %checknick $2 }
  if (!$readini(registergame.ini,registered,%checknick)) {
    $iif($left($1,1) == @,msg $chan,notice $nick) User is not registered.
  }
  elseif ($readini(registergame.ini,registered,%checknick)) {
    if (!$readini(game.ini,lock,%checknick)) {
      $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 %checknick has8,1 $readini(gamemoney.ini,amount,%checknick) coins0,1 and8,1 $readini(chestkeys.ini,amount,%checknick) keys 
      if ($readini(rewardsearned.ini,Sapphire,%checknick)) {    
        $iif($left($1,1) == @,msg $chan,notice $nick) 12,1 %checknick has $readini(rewardsearned.ini,sapphire,%checknick) Sapphire $+ $iif($readini(rewardsearned.ini,Sapphire,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,Emerald,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 9,1 %checknick has $readini(rewardsearned.ini,emerald,%checknick) Emerald $+ $iif($readini(rewardsearned.ini,emerald,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,Ruby,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 5,1 %checknick has $readini(rewardsearned.ini,Ruby,%checknick) Rub $+ $iif($readini(rewardsearned.ini,ruby,%checknick) > 1,ies,y) 
      }
      if ($readini(rewardsearned.ini,Diamond,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 %checknick has $readini(rewardsearned.ini,diamond,%checknick) Diamond $+ $iif($readini(rewardsearned.ini,diamond,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,Dragonstone,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 6,1 %checknick has $readini(rewardsearned.ini,dragonstone,%checknick) Dragonstone  $+ $iif($readini(rewardsearned.ini,dragonstone,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,Onyx,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 15,1 %checknick has $readini(rewardsearned.ini,onyx,%checknick) Onyx Gem $+ $iif($readini(rewardsearned.ini,onyx,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,Pumpkin,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 7,1 %checknick has $readini(rewardsearned.ini,pumpkin,%checknick) Pumpkin $+ $iif($readini(rewardsearned.ini,pumpkin,%checknick) > 1,s,) 
      }
      if ($readini(rewardsearned.ini,santa,%checknick)) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 4,1 %checknick has $readini(rewardsearned.ini,santa,%checknick) Santa Hat $+ $iif($readini(rewardsearned.ini,santa,%checknick) > 1,s,) 
      }
      if (%checknick isop #Zez) {
        $iif($left($1,1) == @,msg $chan,notice $nick) 11,1 %checknick has a Magical Key 
      }
    }
    elseif ($readini(game.ini,lock,%checknick)) {
      $iif($left($1,1) == @,msg $chan,notice $nick) Account locked. Reason: $readini(game.ini,lock,%checknick)
    }
  }
}
on $*:TEXT:/^[!@]odds/Si:#:{
  $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 The current odds are: 
  $iif($left($1,1) == @,msg $chan,notice $nick) 8,1 To get Coins: $readini(rewards.ini,odds,coins) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 12,1 To get Sapphire: $readini(rewards.ini,odds,sapphire) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 9,1 To get Emerald: $readini(rewards.ini,odds,emerald) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 5,1 To get Ruby: $readini(rewards.ini,odds,ruby) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 To get Diamond: $readini(rewards.ini,odds,diamond) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 6,1 To get Dragonstone: $readini(rewards.ini,odds,dragonstone) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 15,1 To get Onyx Gem: $readini(rewards.ini,odds,onyx) $+ / $+ $readini(rewards.ini,odds,outof) 
  $iif($left($1,1) == @,msg $chan,notice $nick) 7,1 To get Pumpkin: $readini(rewards.ini,odds,pumpkin) $+ / $+ $readini(rewards.ini,odds,outof)   
  $iif($left($1,1) == @,msg $chan,notice $nick) 4,1 To get Santa Hat: $readini(rewards.ini,odds,santa) $+ / $+ $readini(rewards.ini,odds,outof)  
}
on $*:TEXT:/^[!.]lock/Si:#:{
  if ($nick isop #Zez) {
    if ($readini(registergame.ini,registered,$2)) {
      if (!$readini(game.ini,lock,$2)) {
        if ($3) {
          writeini game.ini lock $2 $3-
          notice $nick Account locked. Acount: $2 Reason: $readini(game.ini,lock,$2)
        }
        elseif (!$3) {
          notice $nick Please supply a reason.
        }
      }
      elseif ($readini(game.ini,lock,$2)) {
        notice $nick Account already locked. Account: $2 Reason: $readini(game.ini,lock,$2)
      }
    }
    elseif (!$readini(registergame.ini,registered,$2)) {
      notice $nick Account cannot be locked. Account is not regsitered.
    }
  }
} 
on $*:TEXT:/^[!.]unlock/Si:#:{
  if ($nick isop #Zez) {
    if ($readini(registergame.ini,registered,$2)) {
      if ($readini(game.ini,lock,$2)) {
        remini game.ini lock $2
        notice $nick Account unlocked.
      }
      elseif (!$readini(game.ini,lock,$2)) {
        notice $nick Account is not locked.
      }
    }
    elseif (!readini(registergame.ini,registered,$2)) {
      notice $nick Account isnt even registered.
    }
  }
}

on $*:TEXT:/^[!@]prices/Si:#:{
  $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 The current prices are: 
  $iif($left($1,1) == @,msg $chan,notice $nick) 12,1 Sapphire: $readini(prices.ini,gems,sapphire) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 9,1 Emerald: $readini(prices.ini,gems,emerald) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 5,1 Ruby: $readini(prices.ini,gems,ruby) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 0,1 Diamond: $readini(prices.ini,gems,diamond) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 6,1 Dragonstone: $readini(prices.ini,gems,dragonstone) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 14,1 Onyx Gem: $readini(prices.ini,gems,onyx) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 7,1 Pumpkin: $readini(prices.ini,other,pumpkin) coins 
  $iif($left($1,1) == @,msg $chan,notice $nick) 4,1 Santa Hat: $readini(prices.ini,other,santa) coins 
}


on $*:TEXT:/^[!.]sell/Si:#:{
  if ($readini(registergame.ini,registered,$nick)) {
    if ($2 == Sapphire) {
      if ($readini(rewardsearned.ini,emerald,$nick) > 0) {
        writeini rewardsearned.ini Sapphire $nick $calc($readini(rewardsearned.ini,sapphire,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,sapphire))
        notice $nick 12,1 You have received8,1 $readini(prices.ini,gems,sapphire) coins12,1 for your sapphire. 
      }
    }
    elseif ($2 == Emerald) {
      if ($readini(rewardsearned.ini,emerald,$nick) > 0) {
        writeini rewardsearned.ini Emerald $nick $calc($readini(rewardsearned.ini,Emerald,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,Emerald))
        notice $nick 9,1 You have received8,1 $readini(prices.ini,gems,Emerald) coins9,1 for your Emerald. 
      }
    }
    elseif ($2 == Ruby) {
      if ($readini(rewardsearned.ini,Ruby,$nick) > 0) {
        writeini rewardsearned.ini Ruby $nick $calc($readini(rewardsearned.ini,Ruby,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,Ruby))
        notice $nick 5,1 You have received8,1 $readini(prices.ini,gems,Ruby) coins5,1 for your Ruby. 
      }
    }
    elseif ($2 == Diamond) {
      if ($readini(rewardsearned.ini,Diamond,$nick) > 0) {
        writeini rewardsearned.ini Diamond $nick $calc($readini(rewardsearned.ini,Diamond,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,Diamond))
        notice $nick 0,1 You have received8,1 $readini(prices.ini,gems,Diamond) coins0,1 for your Diamond. 
      }
    }
    elseif ($2 == Dragonstone) {
      if ($readini(rewardsearned.ini,Dragonstone,$nick) > 0) {
        writeini rewardsearned.ini Dragonstone $nick $calc($readini(rewardsearned.ini,Dragonstone,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,Dragonstone))
        notice $nick 6,1 You have received8,1 $readini(prices.ini,gems,Dragonstone) coins6,1 for your Dragonstone. 
      }
    }
    elseif ($2- == Onyx Gem) {
      if ($readini(rewardsearned.ini,Onyx,$nick) > 0) {
        writeini rewardsearned.ini Onyx $nick $calc($readini(rewardsearned.ini,Onyx,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,gems,Onyx))
        notice $nick 14,1 You have received8,1 $readini(prices.ini,gems,Onyx) coins14,1 for your Onyx Gem. 
      }
    }
    elseif ($2 == Pumpkin) {
      if ($readini(rewardsearned.ini,pumpkin,$nick) > 0) {
        writeini rewardsearned.ini Pumpkin $nick $calc($readini(rewardsearned.ini,pumpkin,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,other,pumpkin))
        notice $nick 7,1 You have received8,1 $readini(prices.ini,other,pumpkin) coins7,1 for your Pumpkin. 
      }
    }
    elseif ($2- == Santa Hat) {
      if ($readini(rewardsearned.ini,santa,$nick) > 0) {
        writeini rewardsearned.ini Santa $nick $calc($readini(rewardsearned.ini,santa,$nick) - 1)
        writeini gamemoney.ini amount $nick $calc($readini(gamemoney.ini,amount,$nick) + $readini(prices.ini,other,santa))
        notice $nick 4,1 You have received8,1 $readini(prices.ini,other,santa) coins4,1 for your Santa Hat. 
      }
    }
  }
}