Advertisement
Guest User

Untitled

a guest
Nov 23rd, 2017
96
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.47 KB | None | 0 0
  1. debuglevel 5
  2. include base.cmd
  3.  
  4.  
  5. # CUSTOM VARIABLES
  6. var CHEST.ARMOR leathers
  7. var HEAD.ARMOR cowl
  8. var HAND.ARMOR Gloves
  9. var SHIELD Buckler
  10.  
  11. action if $hidden = 1 then put cough when ^.+ just arrived\.
  12.  
  13. #######################
  14. ## MAIN SCRIPT ENGINE #
  15. ## START OF SCRIPT #
  16. #######################
  17.  
  18. GOSUB room.check
  19.  
  20. EXP.CHECK:
  21. put exp all
  22. echo ...assessing experience....
  23. if $Shield_Usage.LearningRate > 22 && $Parry_Ability.LearningRate > 22 && $Evasion.LearninRate < 5 then goto COMBAT.SET
  24. if $Shield_Usage.LearningRate > 20 && $Mechanical_Lore.LearningRate < 4 then goto COMBAT.SET
  25. if $Climbing.LearningRage > 5 then goto CLIMB.SET
  26. if $HEALING_LOOP > 100 then goto STEALING.SET
  27. if $Medium_Edged.LearningRate < 5 then goto COMBAT.SET
  28. if $Shield_Usage.LearningRate < 5 then goto COMBAT.SET
  29. if $Evasion.LearningRate < 5 then goto COMBAT.SET
  30. goto COMBAT.SET
  31.  
  32. COMBAT.SET:
  33. echo *** COMBAT! ***
  34. var TRAINING COMBAT
  35. goto LOOK.CHECK
  36.  
  37. STEALING.SET:
  38. echo *** STEALING
  39. var TRAINING STEALING
  40. if "$zoneid" = "1" then goto STEALING
  41. goto LOOK.CHECK
  42.  
  43. CLIMB.SET:
  44. echo *** CLIMBING
  45. var TRAINING CLIMBING
  46. goto LOOK.CHECK
  47.  
  48.  
  49.  
  50. LOCATION.CHECK:
  51. LOOK.CHECK:
  52. var LAST LOOK.CHECK
  53. echo .....assessing location.....
  54. #if contains("$roomname", "Rolling Hills, Trickling Stream") then goto AT.COMBAT.ZONE
  55. if "$zoneid" = "0" then GOSUB moveRandomDirection
  56. if "$roomid" = "0" then GOSUB moveRandomDirection
  57. pause .1
  58. pause .1
  59. if "$zoneid" = "TF1" then goto MAZE
  60. if "$zoneid" = "1" then goto CROSSING.LOCATION
  61. if "$zoneid" = "90" then goto RATHA.LOCATION
  62. if "$zoneid" = "0" then GOSUB moveRandomDirection
  63. if "$roomid" = "0" then GOSUB moveRandomDirection
  64. echo UNKNOWN LOCATION!
  65. put #parse >Log Fuschia error - Unkown Starting Location!!
  66. goto LOOK.CHECK
  67.  
  68.  
  69. CROSS.LOCATION:
  70. CROSSING.LOCATION:
  71. gosub move 42
  72. pause .5
  73. if "%TRAINING" = "STEALING" then goto STEALING
  74. if "%TRAINING" = "CLIMBING" then goto CLIMB.CROSS
  75. if "%TRAINING" = "COMBAT" then goto GOING.HUNTING.CROSS
  76. if "%TRAINING" = "DISARM" then goto DISARM.CROSS.MOVE
  77. goto GOING.HUNTING.CROSS
  78.  
  79. RATHA.LOCATION:
  80. if "%TRAINING" = "COMBAT" then goto GOING.HUNTING.RATHA
  81. if "%TRAINING" = "STEALING" then goto STEALING.RATHA
  82. if "%TRAINING" = "CLIMBING" then goto CLIMB.RATHA
  83. if "%TRAINING" = "DISARM" then goto DISARM.RATHA.MOVE
  84.  
  85. ####################
  86. ## COMBAT SECTION ##
  87. ####################
  88. AT.COMBAT.ZONE:
  89. pause .1
  90. goto COMBAT
  91.  
  92. COMBAT:
  93. echo ***** COMBAT! *****
  94. put #echo >Log Lime ******** COMBAT! ********
  95. put stance evasion
  96. echo ***** STARTING ****
  97. put #echo >Log Lime ****** STARTING ******
  98. gosub ARMOR.SETUP.1
  99. gosub WEAR.ARMOR
  100. put remove lockpick ring
  101. pause .3
  102. put put lockpick ring in my bag
  103. pause .4
  104. put get my collector case
  105. pause .4
  106. put wear my collector case
  107. wait .3
  108. put health
  109. if $health < 80 then goto CROSS.HEAL
  110. if $bleeding = 1 then goto CROSS.HEAL
  111. pause .1
  112. echo **** READY TO FIGHT ****
  113. put #echo >Log Lime **** READY TO FIGHT ****
  114. put .geniehunter multi 6
  115. wait 15000
  116. put #script abort geniehunter
  117. wait .3
  118. gosub CROSS.RUN
  119. gosub ARCH.MOVE.FROM.BANK
  120. goto DISARM
  121.  
  122. #################################
  123. ## DISARMING & PICKING SECTION ##
  124. #################################
  125. DISARM:
  126. gosub ARMOR.SETUP.1
  127. gosub REMOVE.ARMOR
  128. put .disarm
  129. waitfor DONE PICKING
  130. put #script abort disarm
  131. wait .3
  132. gosub ARMOR.SETUP.1
  133. gosub WEAR.ARMOR
  134. put #echo >Log Lime **** DISARM & PICK BOXES FINISHED ****
  135. gosub BANK.MOVE.FROM.ARCH
  136. goto GEM.SELL.STOW
  137.  
  138. ###############################
  139. ## GEM SELLING/STOWING SEC ##
  140. ###############################
  141. GEM.SELL.STOW:
  142. gosub move 395
  143. pause .5
  144. gosub GEM.SELLING
  145. gosub move 233
  146. waitfor YOU HAVE ARRIVED
  147. gosub BANK.DEPOSIT
  148. gosub MOVE.HUNTING.AFTER.HEAL
  149. goto COMBAT
  150.  
  151. ######################
  152. ## SCRAPING SECTION ##
  153. ######################
  154. SCRAPE:
  155. put .scrape
  156. waitforre ^SCRAPING DONE
  157. put #script abort scrape
  158.  
  159. ######################
  160. ## CLIMBING SECTION ##
  161. ######################
  162. CLIMBING.CROSS:
  163. put .climbing
  164. waitforre ^DONE CLIMBING
  165. put #script abort climbing
  166.  
  167. ######################
  168. ## STEALING SECTION ##
  169. ######################
  170. STEALING.RATHA:
  171. gosub ARMOR.SETUP.1
  172. gosub REMOVE.ARMOR
  173. put .progsteal
  174. waitforre ^DONE STEALING
  175. put #script abort progsteal
  176. wait .3
  177. gosub WEAR.ARMOR
  178. put #echo >Log Lime **** STEALING FINISHED ****
  179. goto START
  180.  
  181. STEALING:
  182. gosub move 42
  183. gosub ARMOR.SETUP.1
  184. gosub REMOVE.ARMOR
  185. put .progsteal
  186. waitforre ^DONE STEALING
  187. put #script abort progsteal
  188. wait .3
  189. gosub WEAR.ARMOR
  190. put #echo >Log Lime **** STEALING FINISHED ****
  191. goto START
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement