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) }
}
}