home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1996 October / PCO_10.ISO / filesbbs / imcombat.arj / IMMORTAL.ZIP / SCRIPTS / HACKSHOP.TXT < prev    next >
Encoding:
Text File  |  1995-03-28  |  5.7 KB  |  277 lines
  1. :start
  2. displayfile hackmenu.ans
  3. :prompt
  4. getchoice AWRV 50
  5. if 50 = "A"
  6. writeln "A"
  7. goto armorstart
  8. endif
  9. if 50 = "W"
  10. writeln "W"
  11. goto weaponstart
  12. endif
  13. if 50 = "R"
  14. goto end
  15. endif
  16. if 50 = "V"
  17. goto viewstuff
  18. endif
  19. goto prompt
  20.  
  21. :******************Buy Armor**********************
  22. :armorstart
  23. displayfile hackarmr.ans
  24. getchoice 12345678R 50
  25.  
  26. if 50 = "R"
  27. goto start
  28. endif
  29.  
  30. ifskill armorfull
  31. goto armorfull
  32. endif
  33.  
  34. if 50 = "1"
  35. assign 49  "1575000"
  36. goto checkarmorcost
  37. givearmor "Cloak of Protection" "Cloak" 1 14 True
  38. writeln " [3;0May Your  [11;0Cloak of Protection  [3;0Serve You Well!"
  39. goto pressenter
  40. goto armorend
  41. endif
  42.  
  43. if 50 = "2"
  44. assign 49  "2048000"
  45. goto checkarmorcost
  46. givearmor "Cloak of Elvinkind" "Cloak" 1 15 True
  47. writeln " [3;0May Your  [11;0Cloak of Elvinkind  [3;0Serve You Well!"
  48. goto pressenter
  49. goto armorend
  50. endif
  51.  
  52. if 50 = "3"
  53. assign 49  "2312000"
  54. goto checkarmorcost
  55. givearmor "Kwalish Brigandine" "Brigandine" 2 15 True
  56. writeln " [3;0May Your  [11;0Kwalish Brigandine  [3;0Serve You Well!"
  57. goto pressenter
  58. goto armorend
  59. endif
  60.  
  61. if 50 = "4"
  62. assign 49  "2916000"
  63. goto checkarmorcost
  64. givearmor "Robes of Duk~Tarre" "Robes" 0 18 True
  65. writeln " [3;0May The  [11;0Robes of Duk~Tarre  [3;0Serve You Well!"
  66. goto pressenter
  67. goto armorend
  68. endif
  69.  
  70. if 50 = "5"
  71. assign 49  "3294000"
  72. goto checkarmorcost
  73. givearmor "Bracers of Defense" "Bracers" 4 15 True
  74. writeln " [3;0May Your  [11;0Bracers of Defense  [3;0Serve You Well!"
  75. goto pressenter
  76. goto armorend
  77. endif
  78.  
  79. if 50 = "6"
  80. assign 49  "4000000"
  81. goto checkarmorcost
  82. givearmor "Plate Mail of Fear" "Plate Mail" 8 12 True
  83. writeln " [3;0May Your  [11;0Plate Mail of Fear  [3;0Serve You Well!"
  84. goto pressenter
  85. goto armorend
  86. endif
  87.  
  88. if 50 = "7"
  89. assign 49  "4410000"
  90. goto checkarmorcost
  91. givearmor "Elvin Chain Mail" "Chain Mail" 5 16 True
  92. writeln " [3;0May Your  [11;0Elvin Chain Mail  [3;0Serve You Well!"
  93. goto pressenter
  94. goto armorend
  95. endif
  96.  
  97. if 50 = "8"
  98. assign 49  "5324000"
  99. goto checkarmorcost
  100. givearmor "Bracers of Duk~Tarre" "Bracers" 4 18 True
  101. writeln " [3;0May The  [11;0Bracers of Duk~Tarre  [3;0Serve You Well!"
  102. goto pressenter
  103. goto armorend
  104. endif
  105.  
  106. :armorend
  107. goto start
  108.  
  109. :armorfull
  110. writeln "^50"
  111. writeln " [4;0Y [12;0ou do not have room to carry anymore [4;0!"
  112. write   "W [12;0ould you like to drop something  [14;0? > "
  113. getchoice YN 50
  114. writeln " [2;0^50"
  115. if 50 = "Y"
  116. Writeln ""
  117. menucommand droparmor
  118. goto armorstart
  119. endif
  120. writeln " [4;0V [12;0ery well you do not buy anything [4;0!"
  121. goto pressenter
  122. goto armorend
  123.  
  124. :CheckArmorcost
  125. writeln "^50"
  126. if G < #49
  127. writeln " [4;0Y [12;0ou do Not have enough  [14;0Gold [12;0!"
  128. goto pressenter
  129. goto armorstart
  130. endif
  131. decrement G ^49
  132. return
  133.  
  134.  
  135.  
  136.  
  137.  
  138. ;**********Start Buying Weapon*********
  139. :weaponstart
  140. displayfile hackweap.ans
  141. getchoice 12345678R 50
  142.  
  143. if 50 = "R"
  144. goto start
  145. endif
  146.  
  147. ifskill weaponfull
  148. goto weaponfull
  149. endif
  150.  
  151. if 50 = "1"
  152. assign 49  "1014000"
  153. goto checkweaponcost
  154. giveweapon "Sun Blade" "Long Sword" 7 6 True Slashing
  155. writeln " [3;0May  [11;0Sun Blade  [3;0Serve You Well!"
  156. goto pressenter
  157. goto weaponend
  158. endif
  159.  
  160. if 50 = "2"
  161. assign 49 "1372000"
  162. goto checkweaponcost
  163. giveweapon "Dragon Slayer" "Broad Sword" 9 5 True Slashing
  164. writeln " [3;0May  [11;0Dragon Slayer  [3;0Serve You Well!"
  165. goto pressenter
  166. goto weaponend
  167. endif
  168.  
  169. if 50 = "3"
  170. assign 49 "1575000"
  171. goto checkweaponcost
  172. giveweapon "Sword of Sharpness" "Scimitar" 6 9 True Slashing
  173. writeln " [3;0May  [11;0The Sword of Sharpness  [3;0Serve You Well!"
  174. goto pressenter
  175. goto weaponend
  176. endif
  177.  
  178. if 50 = "4"
  179. assign 49 "2048000"
  180. goto checkweaponcost
  181. giveweapon "Elvin Defender" "Long Sword" 7 9 True Slashing
  182. writeln " [3;0May  [11;0The Elvin Defender  [3;0Serve You Well!"
  183. goto pressenter
  184. goto weaponend
  185. endif
  186.  
  187. if 50 = "5"
  188. assign 49 "2312000"
  189. goto checkweaponcost
  190. giveweapon "Spear of the Final Word" "Spear" 7 10 True Piercing
  191. writeln " [3;0May  [11;0Final Word  [3;0Serve You Well!"
  192. goto pressenter
  193. goto weaponend
  194. endif
  195.  
  196. if 50 = "6"
  197. assign 49 "2916000"
  198. goto checkweaponcost
  199. giveweapon "Trident of the Deep" "Trident" 10 8 True Piercing
  200. writeln " [3;0May  [11;0The Trident of the Deep  [3;0Serve You Well!"
  201. goto pressenter
  202. goto weaponend
  203. endif
  204.  
  205. if 50 = "7"
  206. assign 49 "3249000"
  207. goto checkweaponcost
  208. giveweapon "Mace of Destruction" "Mace" 8 11 True Bludgeoning
  209. writeln " [3;0May  [11;0The Mace of Destruction  [3;0Serve You Well!"
  210. goto pressenter
  211. goto weaponend
  212. endif
  213.  
  214. if 50 = "8"
  215. assign 49 "4000000"
  216. goto checkweaponcost
  217. giveweapon "Flail of Duk~Tarre" "Flail" 9 11 True Slashing
  218. writeln " [3;0May  [11;0The Flail of Duk~Tarre  [3;0Serve You Well!"
  219. goto pressenter
  220. goto weaponend
  221. endif
  222.  
  223. goto weaponstart
  224.  
  225. :weaponend
  226. goto start
  227.  
  228. :weaponfull
  229. writeln "^50"
  230. writeln " [4;0Y [12;0ou do not have room to carry anymore [4;0!"
  231. write   "W [12;0ould you like to drop something  [14;0? > "
  232. getchoice YN 50
  233. writeln " [2;0^50"
  234. if 50 = "Y"
  235. Writeln ""
  236. menucommand dropweapon
  237. goto weaponstart
  238. endif
  239. writeln " [4;0V [12;0ery well you do not buy anything [4;0!"
  240. goto pressenter
  241. goto weaponend
  242.  
  243. :CheckWeaponcost
  244. writeln "^50"
  245. if G < #49
  246. writeln " [4;0Y [12;0ou do Not have enough  [14;0Gold [12;0!"
  247. goto pressenter
  248. goto weaponstart
  249. endif
  250. decrement G ^49
  251. return
  252. ;***********Weapon Buying***************
  253.  
  254. ;***********View STUFF******************
  255. :viewstuff
  256. menucommand stats
  257. write " [2;0Press ( [12;0enter [2;0) >"
  258. waitenter
  259. menucommand inventory
  260. goto pressenter
  261. goto start
  262. ;***************************************
  263.  
  264. ;*************Press Enter***************
  265. :pressenter
  266. write " [2;0Press ( [12;0enter [2;0) >"
  267. waitenter
  268. writeln ""
  269. return
  270. ;***************************************
  271.  
  272.  
  273.  
  274. :end
  275. quit
  276.  
  277.