lvar tiercost : addtier exit "=" split target ! match them ! them @ ok? not if "Invalid target." .tell exit then me @ mlevel 4 >= if them @ "class" getstatstr "0" stringcmp not if ( Any class set? ) them @ "professionlist" getstatstr dup "," instr 0 > if dup "," instring 1 - strcut pop then them @ swap "class" swap setstat then ( Does it exist? ) RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr if str "[XP-Spend] " them @ ": " them @ "class" getstatstr "(" them @ "jobs/" them @ "class" getstatstr strcat getstatint ")->" target @ "(" them @ "jobs/" them @ "class" getstatstr strcat getstatint 1 + ") ... Cost: NIL" cat tellme them @ "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat getstatint 1 + dup 5 > if pop 5 then them @ swap "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat swap setstat them @ "professionlist" getstat ", " target @ strcat strcat them @ swap "professionlist" swap setstat target @ tails RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr if them @ "bonus#" getstatint 1 + dup them @ swap "bonus#" swap setstat them @ swap "bonus#/" swap tostr strcat RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr setstat then else "[XP-Spend] Try a tier that actually exists." tellme then else "[XP-Spend] Yer not staff." tellme then ; : deltier me @ mlevel 4 >= if them @ "class" getstatstr "0" stringcmp not if ( Any class set? ) them @ "professionlist" getstatstr dup "," instr 0 > if dup "," instring 1 - strcut pop then them @ swap "class" swap setstat then ( Does it exist? ) RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr if str "[XP-Spend] " them @ ": " them @ "class" getstatstr "(" them @ "jobs/" them @ "class" getstatstr strcat getstatint ")->" target @ "(" them @ "jobs/" them @ "class" getstatstr strcat getstatint 1 - ") ... Cost: NIL" cat tellme them @ "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat getstatint 1 - dup 5 > if pop 5 then them @ swap "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat swap setstat them @ "professionlist" getstat ", " target @ strcat strcat them @ swap "professionlist" swap pop pop target @ tails2 RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr if them @ "bonus#" getstatint 1 + dup them @ swap "bonus#" swap pop pop them @ swap "bonus#/" swap tostr strcat RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr pop pop then else "[XP-Spend] Try a tier that actually exists." tellme then else "[XP-Spend] Yer not staff." tellme then ; : buytier "See the +job command" .tell exit me @ "skillcycleoverride" getstat not if me @ "Tiercycle" getstatint if "You already purchased a tier this month." .tell exit then then me @ "class" getstatstr "0" stringcmp not if ( Any class set? ) me @ "professionlist" getstatstr dup "," instr 0 > if dup "," instring 1 - strcut pop then me @ swap "class" swap setstat then ( Does it exist? ) RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr if RPSYSTEM str "/jobs/" target @ "/tier" cat getpropstr toint me @ "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat getstatint - 1 = not if "This job is either too high or too low of a tier for you" .tell pid kill then ( Do I meet the requirements baby? ) me @ target @ RPUtils.jobAllowed? if ( Is it within two tiers? ) INMYTIER not if RPSYSTEM str "/jobs/" target @ "/tier" cat getpropstr toint me @ "jobs/" me @ "class" getstatstr strcat getstatint 2 / swap < if str "[XP-Spend] " me @ ": " target @ "(" me @ "jobs/" me @ "class" getstatstr strcat getstatint 1 + ") cannot enter tier, Insufficient level in primary profession [" me @ "class" getstatstr "]" cat tellme exit then then ( Find out how much it costs ) RPSYSTEM str "/jobs/" target @ "/tier" cat getpropstr toint dup 1 = if 25 else 1 - 10 then * INMYTIER not if treehugger * then tiercost ! ( Can I afford tier 2? ) me @ "XP" getstatfloat me @ "XPSPENT" getstatfloat - tiercost @ < not if ( Do I have enough XP ) str "[XP-Spend] " me @ ": " me @ "class" getstatstr "(" me @ "jobs/" me @ "class" getstatstr strcat getstatint ")->" target @ "(" me @ "jobs/" me @ "class" getstatstr strcat getstatint 1 + ") ... Cost: " tiercost @ cat tellme me @ "XPSPENT" getstatfloat tiercost @ + me @ swap "XPSPENT" swap setstat ( Adjust XPSPENT ) me @ "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat getstatint 1 + dup 5 > if pop 5 then me @ swap "jobs/" RPSYSTEM str "/jobs/" target @ "/profession" cat getpropstr strcat swap setstat me @ "professionlist" getstat ", " target @ strcat strcat me @ swap "professionlist" swap setstat me @ "Tiercycle" 1 setstat target @ headface RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr if me @ "bonus#" getstatint 1 + dup me @ swap "bonus#" swap setstat me @ swap "bonus#/" swap tostr strcat RPSYSTEM str "/jobs/" target @ "/bonus" cat getpropstr setstat then else str "[XP-Spend] " me @ ": " target @ "(" me @ target @ getstatint 1 + ") cannot enter tier, you need " tiercost @ " XP" cat tellme then else str "[XP-Spend] You dont meet the requirements to enter [" target @ "]. You need [" RPSYSTEM str "/jobs/" target @ "/requirements" cat getpropstr "]" cat tellme then else "[XP-Spend] Try a tier that actually exists." tellme then ;