on *:TEXT:!game:#Gampie:{
  if ($readini(game.ini,$nick,lvl)) { notice $Nick You're level $readini(game.ini,$nick,min) mining; $readini(game.ini,$nick,wood) woodcutting and $readini(game.ini,$nick,fire) firemaking.
  halt }
  notice $nick You're started, please review thesite to play the game
  writeini game.ini $nick lvl 1
  writeini game.ini $nick min 1
  writeini game.ini $nick wood 1
  writeini game.ini $nick fire 1
  writeini game.ini $nick crafting 1
  writeini game.ini $nick fletch 0
  writeini game.ini $nick fletching 1
  writeini game.ini $nick craft 0
  writeini game.ini $nick smith 0
  writeini game.ini $nick smithing 1
writeini game.ini $nick coins 5000 }

on *:TEXT:!woodcutting*:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { notice $nick Please use first !game | halt }
notice $nick Use !cut tree here, to get xp and logs. Support trees: normal; oak; willow; yew and magic. Your level is $readini(game.ini,$nick,wood) $+ . To level up you need $bytes($calc($readini(xp.ini,level,$calc($readini(game.ini,$nick,wood) + 1)) - $readini(game.ini,$nick,woodcutting)),bd) woodcutting xp. }
on *:TEXT:!mining:#gampie:{
  if (!$readini(game.ini,$nick,min)) { notice $nick Please use first !game | halt }
notice $nick Use !mine ore here, to get xp and ores. Support ores: copper; tin; iron; coal and mithril. Your level is $readini(game.ini,$nick,min) $+ . To level up you need $bytes($calc($readini(xp.ini,level,$calc($readini(game.ini,$nick,min) + 1)) - $readini(game.ini,$nick,mining)),bd) mining xp. }
on *:TEXT:!firemaking:#gampie:{
  if (!$readini(game.ini,$nick,fire)) { notice $nick Please use first !game | halt }
notice $nick Use !light log here, to get xp and burn logs. Support logs: normal; oak; willow; yew and magic. Your level is $readini(game.ini,$nick,fire) $+ . To level up you need $bytes($calc($readini(xp.ini,level,$calc($readini(game.ini,$nick,fire) + 1)) - $readini(game.ini,$nick,firemake)),bd) Firemaking xp. }

on *:TEXT:!cut *:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { msg $nick Please use first !game | halt }
  if (!$regex($2,/^(normal|oak|yew|magic|willow)$/)) halt
  if ($readini(gamexp.ini,woodc,$2) > $readini(game.ini,$nick,wood)) { notice $nick You're level is $readini(game.ini,$nick,wood) $+ ; you need level $readini(gamexp.ini,woodc,$2) | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  notice $nick Now you gonna cut a $2 tree.
  .timergame $+ $nick 1 30 /game cut $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}
on *:TEXT:!light *:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { msg $nick Please use first !game | halt }
  if (!$regex($2,/^(normal|oak|yew|willow|magic)$/)) halt
  if ($readini(gamexp.ini,fire,$2) > $readini(game.ini,$nick,fire)) { notice $nick You're level is $readini(game.ini,$nick,fire) $+ ; you need level $readini(gamexp.ini,fire,$2) | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  if (!$readini(wc.ini,$nick,$2)) { notice $nick You haven't $2 logs. Buy them first, or cut them | halt }
  notice $nick Now you gonna burn some $2 logs
  .timergame $+ $nick 1 30 /game burn $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}
on *:text:!smelt *:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { notice $nick Please use first !game | halt }
  if (!$regex($2,/^(bronze|iron|steel|mithril)$/)) { /notice $nick cant find that bar | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  if ($2 == bronze) && ($readini(mine.ini,$nick,copper)) < 1 || ($readini(mine.ini,$nick,tin)) < 1) { /notice $nick You have not enough ores for this bar. mine/buy them! | halt }
  if ($2 == iron) && ($readini(mine.ini,$nick,$2) < 1) { /notice $nick You have not enough ores for this bar. mine/buy them! | halt }
  if ($2 == steel) && ($readini(mine.ini,$nick,iron) < 1 || $readini(mine.ini,$nick,coal) < 2) { /notice $nick You have not enough ores for this bar. mine/buy them! | halt }
  if ($2 == mithril) && ($readini(mine.ini,$nick,mithril) < 1 || $readini(mine.ini,$nick,coal < 4 { /notice $nick You have not enough ores for this bar. mine/buy them! | halt }
  notice $nick Now you gonna smelt some $2 bars
  .timergame $+ $nick 1 30 /game smelt $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}

on *:TEXT:!fletching:#gampie:{
  notice $nick You've $iif($readini(fletch.ini,$nick,normal),$v1,0) unstringed normal bows, $iif($readini(fletch.ini,$nick,oak),$v1,0) unstringed oak bows, $iif($readini(Fletch.ini,$nick,willow),$v1,0) unstringed willow bows, $iif($readini(fletch.ini,$nick,yew),$v1,0) unstringed yew bows, $iif($readini(fletch.ini,$nick,magic),$v1,0) unstringed magic bows and $iif($readini(craft.ini,$nick,flax),$v1,0) flax
  notice $nick You've $iif($readini(fletching.ini,$nick,normal),$v1,0) stringed normal bows, $iif($readini(fletching.ini,$nick,oak),$v1,0) stringed oak bows, $iif($readini(fletching.ini,$nick,willow),$v1,0) stringed willow bows, $iif($readini(fletching.ini,$nick,yew),$v1,0) stringed yew bows, $iif($readini(fletching.ini,$nick,magic),$v1,0) stringed magic bows and $iif($readini(craft.ini,$nick,bowstring),$v1,0) bowstrings
}

on *:TEXT:!mine *:#gampie:{
  if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  if (!$regex($2,/^(iron|copper|tin|coal|mithril)$/)) halt
  if ($readini(gamexp.ini,mine,$2) > $readini(game.ini,$nick,min)) { notice $nick You're level is $readini(game.ini,$nick,min) $+ ; you need level $readini(gamexp.ini,mine,$2) | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  notice $nick Now you gonna mine a $2 ore.
  .timergame $+ $nick 1 30 /game mine $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}
on *:TEXT:!gameprice *:#gampie:{
  if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  var %many = 1
  if ($2 isnum) { var %many = $2
    if (log isin $2-) { var %item = $3
    var %cat = wc }
    if (nature isin $2-) { var %item = $3
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $3
    var %cat = craft }
    var %rest = $4-
  }
  else {
    if (log isin $2-) { var %item = $2
    var %cat = wc }
    if (nature isin $2-) { var %item = $2
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $2
    var %cat = craft }
    var %rest = $3-
  }
  if (!$readini(price.ini,game,%item)) { notice $nick Item not found | halt }
  notice $nick Price for %many %item $+ $iif(%rest,$chr(32) $+ %rest) BUY: $calc($readini(price.ini,game,%item) * %many) coins; SEL: $calc($readini(price.ini,sel,%item) * %many)
}
on *:TEXT:!spin:#gampie:{
  if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  if (!$Readini(craft.ini,$nick,flax)) { notice $nick You haven't any flax | halt }
  notice $nick Now you gonna spin some flax.
  .timergame $+ $nick 1 30 /game spin $nick
set -u30 %game [ $+ [ $nick ] ] sping }
on *:TEXT:!flax:#gampie:{
  if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  notice $nick Now you gonna pick some flax.
  .timergame $+ $nick 1 30 /game flax $nick
set -u30 %game [ $+ [ $nick ] ] flax }
on *:TEXT:!ores:#gampie:{
  notice $nick You've $iif($readini(mine.ini,$nick,copper),$v1,0) copper ores, $iif($readini(mine.ini,$nick,tin),$v1,0) tin ores, $iif($readini(mine.ini,$nick,iron),$v1,0) iron ores, $iif($readini(mine.ini,$nick,coal),$v1,0) coal ores and $iif($readini(mine.ini,$nick,mithril),$v1,0) mithril ores.
}
on *:TEXT:!logs:#Gampie:{
  notice $nick You've $iif($readini(wc.ini,$nick,normal),$v1,0) normal logs, $iif($readini(wc.ini,$nick,oak),$v1,0) oak logs, $iif($readini(mine.ini,$nick,willow),$v1,0) willow logs, $iif($readini(wc.ini,$nick,yew),$v1,0) yew logs and $iif($readini(wc.ini,$nick,magic),$v1,0) magic logs.
}
on *:TEXT:!string *:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { msg $nick Please use first !game | halt }
  if (!$regex($2,/^(normal|oak|yew|magic|willow)$/)) halt
  if ($readini(gamexp.ini,fletching,$2) > $readini(game.ini,$nick,fletching)) { notice $nick You're level is $readini(game.ini,$nick,fletching) $+ ; you need level $readini(gamexp.ini,fletch,$2) | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  if (!$readini(Fletch.ini,$nick,$2)) { notice $nick You haven't any unstringed $2 bows | halt }
  if (!$readini(craft.ini,$nick,bowstring)) { notice $nick You haven't any bowstrings | halt }
  notice $nick Now you string some unstringed $2 bows.
  .timergame $+ $nick 1 30 /game string $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}
on *:TEXT:!carf *:#gampie:{
  if (!$readini(game.ini,$nick,wood)) { msg $nick Please use first !game | halt }
  if (!$regex($2,/^(normal|oak|yew|magic|willow)$/)) halt
  if ($readini(gamexp.ini,fletching,$2) > $readini(game.ini,$nick,fletching)) { notice $nick You're level is $readini(game.ini,$nick,fletching) $+ ; you need level $readini(gamexp.ini,fletch,$2) | halt }
  if (%game [ $+ [ $nick ] ]) { notice $nick You're already doing something | halt }
  if ($readini(wc.ini,$nick,$2) <= 0) || ($readini(wc.ini,$nick,$2) == $null) { notice $nick You haven't any $2 logs | halt }
  if (!$readini(craft.ini,$nick,bowstring)) { notice $nick You haven't any bowstrings | halt }
  notice $nick Now you gonna carf some $2 logs.
  .timergame $+ $nick 1 30 /game carf $nick $2
  set -u30 %game [ $+ [ $nick ] ] $2
}
on *:TEXT:!buy *:#gampie:{   if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  var %many = 1
  if ($2 isnum) { var %many = $2
    if (log isin $2-) { var %item = $3
    var %cat = wc }
    if (nature isin $2-) { var %item = $3
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $3
    var %cat = craft }
    var %rest = $4-
  }
  else {
    if (log isin $2-) { var %item = $2
    var %cat = wc }
    if (nature isin $2-) { var %item = $2
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $2
    var %cat = craft }
    var %rest = $3-
  }
  if (!$readini(price.ini,game,%item)) { notice $nick Item Not Found | halt }
  if ($calc($readini(price.ini,game,%item) * %many) > $readini(game.ini,$nick,coins)) { notice $nick Not enough money | halt }
  var %cost = $calc($readini(price.ini,game,%item) * %many)
  writeini $+(%cat,.ini) $nick %item $calc($readini($+(%cat,.ini),$nick,%item) + %many)
  writeini game.ini $nick coins $calc($Readini(game.ini,$nick,coins) - %cost)
  notice $nick You've $readini($+(%cat,.ini),$nick,%item) %item $+ $iif(%rest, %rest) $+ , and $readini(game.ini,$nick,coins) coins
}
on *:TEXT:!sel *:#gampie:{   if (!$readini(game.ini,$nick,min)) { msg $nick Please use first !game | halt }
  var %many = 1
  if ($2 isnum) { var %many = $2
    if (log isin $2-) { var %item = $3
    var %cat = wc }
    if (nature isin $2-) { var %item = $3
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $3
    var %cat = craft }
    var %rest = $4-
  }
  else {
    if (log isin $2-) { var %item = $2
    var %cat = wc }
    if (nature isin $2-) { var %item = $2
    var %cat = magic }
    if ($regex($2-,/(bowstring|flax)/)) {
      var %item = $2
    var %cat = craft }
    var %rest = $3-
  }
  if (!$readini(price.ini,sel,%item)) { notice $nick Item Not Found | halt }
  if (%many > $readini($+(%cat,.ini),$nick,%item)) { notice $nick Not enough stuff | halt }
  var %cost = $calc($readini(price.ini,sel,%item) * %many)
  writeini $+(%cat,.ini) $nick %item $calc($readini($+(%cat,.ini),$nick,%item) - %many)
  writeini game.ini $nick coins $calc($Readini(game.ini,$nick,coins) + %cost)
  notice $nick You've $readini($+(%cat,.ini),$nick,%item) %item $+ $iif(%rest, %rest) $+ , and $readini(game.ini,$nick,coins) coins
}
alias game {
  if ($1 == cut) {
    var %logs = $r(1,$calc($readini(game.ini,$2,wood) - $readini(gamexp.ini,woodc,$3)))
    if (%logs < 1) && ($readini(game.ini,$2,wood) <= 5) var %logs = 1
    writeini game.ini $2 woodcutting $calc($readini(game.ini,$2,woodcutting) + $calc($readini(gamexp.ini,wc,$3) * %logs))
    writeini wc.ini $2 $3 $calc($readini(wc.ini,$2,$3) + %logs)
    notice $2 You cutted %logs $3 logs $+ ; you have now $bytes($readini(game.ini,$2,woodcutting),bd) woodcutting xp and $readini(wc.ini,$2,$3) $3 logs
    :back
    if ($readini(game.ini,$2,woodcutting) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,wood) + 1))) {
      writeini game.ini $2 wood $calc($readini(game.ini,$2,wood) + 1)
      msg #gampie $2 leveld up! His/her Woodcutting is now level $readini(game.ini,$2,wood) 
    goto back }
  }
  if ($1 == carf) {
    var %carf = $r(5,20)
    if (%carf > $readini(wc.ini,$2,$3)) var %carf = $readini(wc.ini,$2,$3)
    writeini game.ini $2 fletch $calc($readini(game.ini,$2,fletch) + $readini(gamexp.ini,fletch,$3) * %carf))
    writeini fletch.ini $2 $3 $calc($readini(fletch.ini,$2,$3) + %carf)
    writeini wc.ini $2 $3 $calc($readini(wc.ini,$2,$3) - %carf)
    notice $2 You carved %carf $3 logs; you have now $bytes($readini(game.ini,$2,fletch),bd) fletching xp; $readini(fletch.ini,$2,$3) unstringed $3 bows and $readini(wc.ini,$2,$3) $3 logs
    :fletch
    if ($readini(game.ini,$2,fletch) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,fletching) + 1))) {
      writeini game.ini $2 fletching $calc($readini(game.ini,$2,fletching) + 1)
      var %yes = on
      goto fletch
    }
    if (%yes == on)  msg #gampie $2 leveld up! His/her Fletching is now level $readini(game.ini,$2,fletching)
  }
  if ($1 == string) {
    var %string = $r(5,20)
    if (%string > $readini(craft.ini,$2,bowstring)) var %string = $readini(craft.ini,$2,bowstring)
    if (%string > $readini(fletch.ini,$2,$3)) var %string = $readini(fletch.ini,$2,$3)
    writeini game.ini $2 fletch $calc($readini(game.ini,$2,fletch) + $readini(gamexp.ini,fletch,$3) * %string))
    writeini fletching.ini $2 $3 $calc($readini(fletching.ini,$2,$3) + %string)
    writeini wc.ini $2 $3 $calc($readini(wc.ini,$2,$3) - %string)
    writeini fletch.ini $2 $3 $calc($readini(Fletch.ini,$2,$3) - %string)
    writeini craft.ini $2 bowstring $calc($readini(craft.ini,$2,bowstring) - %string)
    notice $2 You stringed %string unstringed $3 bows; you have now $bytes($readini(game.ini,$2,fletch),bd) fletching xp; $readini(craft.ini,$2,bowstring) bowstrings; $readini(fletch.ini,$2,$3) unstringed $3 bows and $readini(fletching.ini,$2,$3) stringed $3 bows
    :fletching
    if ($readini(game.ini,$2,fletch) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,fletching) + 1))) {
      writeini game.ini $2 fletching $calc($readini(game.ini,$2,fletching) + 1)
      var %yes = on
      goto fletching
    }
    if (%yes == on)  msg #gampie $2 leveld up! His/her Fletching is now level $readini(game.ini,$2,fletching)
  }
  if ($1 == spin) {
    var %spin = $r(10,23)
    if (%spin > $readini(craft.ini,$2,flax)) var %spin = $readini(craft.ini,$2,flax)
    writeini game.ini $2 craft $calc($readini(game.ini,$2,craft) + 15 * %spin))
    writeini craft.ini $2 bowstring $calc($readini(craft.ini,$2,bowstring) + %spin)
    writeini craft.ini $2 flax $calc($readini(craft.ini,$2,flax) - %spin)
    notice $2 You spinned %spin flax $+ ; you have now $readini(game.ini,$2,craft) crafting xp, $readini(craft.ini,$2,bowstring) bowstrings and $readini(craft.ini,$2,flax) flax.
    :bla
    if ($readini(game.ini,$2,craft) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,crafting) + 1))) {
      writeini game.ini $2 crafting $calc($readini(game.ini,$2,crafting) + 1)
      var %yes = on
    goto bla }
    if (%yes = on) msg #gampie $2 leveld up! His/her Crafting is now level $readini(game.ini,$2,crafting)
  }
  if ($1 == flax) {
    var %flax = $r(15,25)
    writeini craft.ini $2 flax $calc($readini(craft.ini,$2,flax) + %flax)
    notice $2 You picked %flax flax; you have now $readini(craft.ini,$2,flax) flax
  }
  if ($1 == mine) {
    var %ore = $r(1,$calc($readini(game.ini,$2,min) - $readini(gamexp.ini,mine,$3)))
    if (%ore < 1) && ($readini(game.ini,$2,mine) <= 5) var %ore = 1
    writeini game.ini $2 mining $calc($readini(game.ini,$2,mining) + $calc($readini(gamexp.ini,mining,$3) * %ore))
    writeini mine.ini $2 $3 $calc($readini(mine.ini,$2,$3) + %ore)
    notice $2 You mined %ore $3 ores $+ ; you have now $bytes($readini(game.ini,$2,mining),bd) mining xp and $readini(mine.ini,$2,$3) $3 ores
    if ($readini(game.ini,$2,mining) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,min) + 1))) {
      writeini game.ini $2 min $calc($readini(game.ini,$2,min) + 1)
    msg #gampie $2 leveld up! His/her Mining is now level $readini(game.ini,$2,min) }
  }
  if ($1 == smelt) {
    if ($3 == bronze) {
      var %bar = $r(10,20)
      if (%bar >= $readini(mine.ini,$2,copper) || %bar >= $readini(mine.ini,$2,tin)) { var %bar = $iif($readini(mine.ini,$2,tin) <= $readini(mine.ini,$2,copper),$v1,$v2) }
      writeini game.ini $2 smith $calc($readini(game.ini,$2,smith) + $calc($readini(gamexp.ini,smelt,$3) * %bar))
      writeini mine.ini $2 copper $calc($readini(mine.ini,$2,copper) - %bar)
      writeini mine.ini $2 tin $calc($readini(mine.ini,$2,tin) - %bar)
      writeini mine.ini bars $3 $calc($readini(mine.ini,bars,$3) + %bar)
      notice $2 You smelted %bar $3 bars $+ ; you have now $bytes($readini(game.ini,$2,smith),bd) smithing xp; $readini(mine.ini,$2,copper) copper ores; $readini(mine.ini,$2,tin) tin ores and $readini(mine.ini,bars,bronze) bronze bars
      if ($readini(game.ini,$2,smith) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,smithing) +1))) {
        writeini game.ini $2 smithing $calc($readini(game.ini,$2,smithing) + 1)
      msg #gampie $2 leveld up!  His/her Smithing is now level $readini(game.ini,$2,smithing) }
    }
  }
  if ($1 == burn) {
    var %logs = $r(1,$calc($readini(game.ini,$2,fire) - $readini(gamexp.ini,fire,$3)))
    if (%logs < 1) && ($readini(game.ini,$2,fire) <= 5) var %logs = 1
    if (%logs >= $readini(wc.ini,$2,$3)) var %logs = $readini(wc.ini,$2,$3)
    writeini game.ini $2 firemake $calc($readini(game.ini,$2,firemake) + $calc($readini(gamexp.ini,fm,$3) * %logs))
    writeini wc.ini $2 $3 $calc($readini(wc.ini,$2,$3) - %logs)
    notice $2 You burned %logs $3 logs $+ ; you have now $bytes($readini(game.ini,$2,firemake),bd) firemaking xp and $readini(wc.ini,$2,$3) $3 logs
    if ($readini(game.ini,$2,firemake) >= $readini(xp.ini,level,$calc($readini(game.ini,$2,fire) + 1))) {
      writeini game.ini $2 fire $calc($readini(game.ini,$2,fire) + 1)
    msg #gampie $2 leveld up! His/her FireMaking is now level $readini(game.ini,$2,fire) }
  }
}