:start
displayfile hackmenu.ans
:prompt
getchoice AWRV 50
if 50 = "A"
writeln "A"
goto armorstart
endif
if 50 = "W"
writeln "W"
goto weaponstart
endif
if 50 = "R"
goto end
endif
if 50 = "V"
goto viewstuff
endif
goto prompt

:******************Buy Armor**********************
:armorstart
displayfile hackarmr.ans
getchoice 12345678R 50

if 50 = "R"
goto start
endif

ifskill armorfull
goto armorfull
endif

if 50 = "1"
assign 49  "1575000"
goto checkarmorcost
givearmor "Cloak of Protection" "Cloak" 1 14 True
writeln "[3;0May Your [11;0Cloak of Protection [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "2"
assign 49  "2048000"
goto checkarmorcost
givearmor "Cloak of Elvinkind" "Cloak" 1 15 True
writeln "[3;0May Your [11;0Cloak of Elvinkind [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "3"
assign 49  "2312000"
goto checkarmorcost
givearmor "Kwalish Brigandine" "Brigandine" 2 15 True
writeln "[3;0May Your [11;0Kwalish Brigandine [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "4"
assign 49  "2916000"
goto checkarmorcost
givearmor "Robes of Duk~Tarre" "Robes" 0 18 True
writeln "[3;0May The [11;0Robes of Duk~Tarre [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "5"
assign 49  "3294000"
goto checkarmorcost
givearmor "Bracers of Defense" "Bracers" 4 15 True
writeln "[3;0May Your [11;0Bracers of Defense [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "6"
assign 49  "4000000"
goto checkarmorcost
givearmor "Plate Mail of Fear" "Plate Mail" 8 12 True
writeln "[3;0May Your [11;0Plate Mail of Fear [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "7"
assign 49  "4410000"
goto checkarmorcost
givearmor "Elvin Chain Mail" "Chain Mail" 5 16 True
writeln "[3;0May Your [11;0Elvin Chain Mail [3;0Serve You Well!"
goto pressenter
goto armorend
endif

if 50 = "8"
assign 49  "5324000"
goto checkarmorcost
givearmor "Bracers of Duk~Tarre" "Bracers" 4 18 True
writeln "[3;0May The [11;0Bracers of Duk~Tarre [3;0Serve You Well!"
goto pressenter
goto armorend
endif

:armorend
goto start

:armorfull
writeln "^50"
writeln "[4;0Y[12;0ou do not have room to carry anymore[4;0!"
write   "W[12;0ould you like to drop something [14;0? > "
getchoice YN 50
writeln "[2;0^50"
if 50 = "Y"
Writeln ""
menucommand droparmor
goto armorstart
endif
writeln "[4;0V[12;0ery well you do not buy anything[4;0!"
goto pressenter
goto armorend

:CheckArmorcost
writeln "^50"
if G < #49
writeln "[4;0Y[12;0ou do Not have enough [14;0Gold[12;0!"
goto pressenter
goto armorstart
endif
decrement G ^49
return





;**********Start Buying Weapon*********
:weaponstart
displayfile hackweap.ans
getchoice 12345678R 50

if 50 = "R"
goto start
endif

ifskill weaponfull
goto weaponfull
endif

if 50 = "1"
assign 49  "1014000"
goto checkweaponcost
giveweapon "Sun Blade" "Long Sword" 7 6 True Slashing
writeln "[3;0May [11;0Sun Blade [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "2"
assign 49 "1372000"
goto checkweaponcost
giveweapon "Dragon Slayer" "Broad Sword" 9 5 True Slashing
writeln "[3;0May [11;0Dragon Slayer [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "3"
assign 49 "1575000"
goto checkweaponcost
giveweapon "Sword of Sharpness" "Scimitar" 6 9 True Slashing
writeln "[3;0May [11;0The Sword of Sharpness [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "4"
assign 49 "2048000"
goto checkweaponcost
giveweapon "Elvin Defender" "Long Sword" 7 9 True Slashing
writeln "[3;0May [11;0The Elvin Defender [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "5"
assign 49 "2312000"
goto checkweaponcost
giveweapon "Spear of the Final Word" "Spear" 7 10 True Piercing
writeln "[3;0May [11;0Final Word [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "6"
assign 49 "2916000"
goto checkweaponcost
giveweapon "Trident of the Deep" "Trident" 10 8 True Piercing
writeln "[3;0May [11;0The Trident of the Deep [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "7"
assign 49 "3249000"
goto checkweaponcost
giveweapon "Mace of Destruction" "Mace" 8 11 True Bludgeoning
writeln "[3;0May [11;0The Mace of Destruction [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

if 50 = "8"
assign 49 "4000000"
goto checkweaponcost
giveweapon "Flail of Duk~Tarre" "Flail" 9 11 True Slashing
writeln "[3;0May [11;0The Flail of Duk~Tarre [3;0Serve You Well!"
goto pressenter
goto weaponend
endif

goto weaponstart

:weaponend
goto start

:weaponfull
writeln "^50"
writeln "[4;0Y[12;0ou do not have room to carry anymore[4;0!"
write   "W[12;0ould you like to drop something [14;0? > "
getchoice YN 50
writeln "[2;0^50"
if 50 = "Y"
Writeln ""
menucommand dropweapon
goto weaponstart
endif
writeln "[4;0V[12;0ery well you do not buy anything[4;0!"
goto pressenter
goto weaponend

:CheckWeaponcost
writeln "^50"
if G < #49
writeln "[4;0Y[12;0ou do Not have enough [14;0Gold[12;0!"
goto pressenter
goto weaponstart
endif
decrement G ^49
return
;***********Weapon Buying***************

;***********View STUFF******************
:viewstuff
menucommand stats
write "[2;0Press ([12;0enter[2;0) >"
waitenter
menucommand inventory
goto pressenter
goto start
;***************************************

;*************Press Enter***************
:pressenter
write "[2;0Press ([12;0enter[2;0) >"
waitenter
writeln ""
return
;***************************************



:end
quit

