API tools faq
paste
Guest User

Untitled

a guest
Dec 15th, 2018
80
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.54 KB | None | 0 0
raw download clone embed print report
  1. #
  2. # Tarnished Lang/Theren Script
  3. # 9/11/2011
  4. #
  5. debuglevel 5
  6.  
  7. include base.cmd
  8. if_1 then goto %1
  9.  
  10. Script.begin:
  11. put #echo >Log Fuchsia *** BEGINNING SCRIPT ***
  12. gosub stowing
  13. #gosub ARMOR.CHECK
  14. #gosub ROOM.CHECK
  15.  
  16. START:
  17. put hum $hum
  18. gosub HEALTH.CHECK
  19. gosub FORAGE
  20. gosub stowing
  21. gosub MECHLORE
  22. gosub stowing
  23. gosub STUDY
  24. gosub stowing
  25. gosub MAGIC
  26. gosub TO.SWIM
  27. gosub CLIMBING
  28. gosub BACKTRAIN
  29. gosub COMBAT
  30. goto START
  31.  
  32.  
  33. FORAGE:
  34. put #echo >Log PaleGreen ** FORAGING ***
  35. put kick pile
  36. pause .5
  37. put kick pile
  38. pause .5
  39. put kick pile
  40. pause .5
  41. put kick pile
  42. pause .5
  43. put .collect rock
  44. wait 300
  45. put #script abort collect
  46. pause .5
  47. put kick pile
  48. pause .5
  49. put kick pile
  50. pause .5
  51. return
  52.  
  53. MECHLORE:
  54. put #echo >Log PaleGreen ** MECH LORE ***
  55. gosub put forage grass
  56. gosub put braid my grass
  57. gosub put braid my grass
  58. gosub put braid my grass
  59. gosub put braid my grass
  60. gosub put forage grass
  61. gosub put braid my grass
  62. gosub put braid my grass
  63. gosub put braid my grass
  64. gosub put braid my grass
  65. gosub put forage grass
  66. gosub put braid my grass
  67. gosub put braid my grass
  68. gosub put braid my grass
  69. gosub put braid my grass
  70. gosub put forage grass
  71. gosub put braid my grass
  72. gosub put braid my grass
  73. gosub put braid my grass
  74. gosub put braid my grass
  75. gosub put pull my grass
  76. gosub move west
  77. gosub put put my rope in log
  78. gosub put put my grass in log
  79. gosub put put my braid grass in log
  80. gosub move east
  81. if $Mechanical_Lore.LearningRate < 24 then goto MECHLORE
  82. return
  83.  
  84. STUDY:
  85. put #echo >Log PaleGreen ** FIRST AID and SCHOLARSHIP ***
  86. put .comp
  87. wait 300
  88. put #script abort comp
  89. pause .5
  90. pause .5
  91. gosub put stow my comp
  92. pause .5
  93. return
  94.  
  95. MAGIC:
  96. put #echo >Log PaleGreen ** MAGIC and ARCANA ***
  97. pause .5
  98. gosub put rem my armb
  99. pause .5
  100. put .camb
  101. wait 600
  102. put #script abort camb
  103. pause .5
  104. pause .5
  105. gosub put wear my armb
  106. pause .5
  107. return
  108.  
  109. TO.SWIM:
  110. gosub move west
  111. gosub move go mouth
  112. gosub move go portal
  113. gosub move west
  114. gosub automove 50
  115. goto SWIMMING
  116.  
  117. SWIMMING:
  118. put #echo >Log PaleGreen ** SWIMMING ***
  119. gosub move east
  120. gosub move south
  121. gosub move se
  122. gosub move nw
  123. gosub move w
  124. gosub move n
  125. if $Swimming.LearningRate < 24 then goto SWIMMING
  126. return
  127.  
  128. CLIMBING:
  129. put #echo >Log PaleGreen ** CLIMBING ***
  130. gosub automove 117
  131. gosub put climb log
  132. gosub move north
  133. gosub put climb log
  134. gosub move ne
  135. gosub put climb log
  136. gosub move n
  137. gosub put climb log
  138. gosub move ne
  139. gosub put climb log
  140. gosub put climb log
  141. gosub move sw
  142. gosub put climb log
  143. gosub move s
  144. gosub put climb log
  145. gosub move sw
  146. gosub put climb log
  147. gosub move s
  148. gosub put climb log
  149. gosub automove 1
  150. gosub put climb oak tree
  151. pause .5
  152. pause .5
  153. put climb trunk
  154. pause .5
  155. pause .5
  156. gosub put climb pine tree
  157. pause .5
  158. pause .5
  159. put climb trunk
  160. pause .5
  161. pause .5
  162. gosub put climb birch tree
  163. pause .5
  164. pause .5
  165. put climb trunk
  166. pause .5
  167. pause .5
  168. gosub put climb fir tree
  169. pause .5
  170. pause .5
  171. put climb trunk
  172. pause .5
  173. pause .5
  174. return
  175.  
  176. BACKTRAIN:
  177. gosub stowing
  178. gosub automove 362
  179. put #echo >Log Fuchsia **** Training LX
  180. put .geniehunter ARRANGE 2 POWERP APPR BUFF BUNDLE BLOCK HUNT TRAIN CROSSBOW
  181. waitfor GENIEHUNTER DONE
  182. put #echo >Log Fuchsia **** Training 2HE
  183. put .geniehunter ARRANGE 2 POWERP APPR BUFF BUNDLE PARRY HUNT TRAIN SWAP E MAUL
  184. waitfor GENIEHUNTER DONE
  185. gosub put get bundle
  186. gosub automove furr
  187. gosub put sell bundle
  188. gosub stowing
  189. gosub automove 261
  190. gosub put deposit all
  191. return
  192.  
  193.  
  194. COMBAT:
  195. action goto GETOUT when eval $health < 60
  196. action goto GETOUT when eval $bleeding = 1
  197. action goto GETOUT when ^\[You're.*beat up
  198. action goto GETOUT when ^\[You're.*very beat up
  199. action goto EXIT when eval $health < 30
  200. action goto EXIT when eval $dead = 1
  201.  
  202. gosub stowing
  203. gosub automove 77
  204. put #echo >Log Fuchsia **** Training HALBERD
  205. put .geniehunter DANCE 1 LOOTCOIN LOOTGEM COLLECTIBLE JUNK ARRANGE 2 POWERP APPR BUFF BUNDLE PARRY HUNT TRAIN KHUJ
  206. waitfor GENIEHUNTER DONE
  207. put #echo >Log Fuchsia **** Training BRAWL
  208. put .geniehunter DANCE 1 LOOTCOIN LOOTGEM COLLECTIBLE JUNK ARRANGE 2 POWERP APPR BUFF BUNDLE PARRY HUNT TRAIN BRAWL
  209. waitfor GENIEHUNTER DONE
  210. put #echo >Log Fuchsia **** Training 2HB
  211. put .geniehunter DANCE 1 LOOTCOIN LOOTGEM COLLECTIBLE JUNK ARRANGE 2 POWERP APPR BUFF BUNDLE BLOCK HUNT TRAIN SWAP B MAUL
  212. waitfor GENIEHUNTER DONE
  213. put #echo >Log Fuchsia **** Training HT
  214. put .geniehunter DANCE 1 LOOTCOIN LOOTGEM COLLECTIBLE JUNK ARRANGE 2 POWERP APPR BUFF BUNDLE BLOCK HUNT TRAIN THROW HHR
  215. waitfor GENIEHUNTER DONE
  216. put #echo >Log Fuchsia **** Training HB
  217. put .geniehunter DANCE 1 LOOTCOIN LOOTGEM COLLECTIBLE JUNK ARRANGE 2 POWERP APPR BUFF BUNDLE BLOCK HUNT TRAIN HHR
  218. waitfor GENIEHUNTER DONE
  219. goto GETOUT
  220.  
  221. GETOUT:
  222. put #script abort geniehunter
  223. gosub stowing
  224. gosub put get bundle
  225. gosub automove furr
  226. gosub put sell bundle
  227. gosub stowing
  228. gosub automove 33
  229. gosub put go portal
  230. gosub put go mouth
  231. gosub move east
  232. goto START
  233.  
  234.  
  235. REPAIR.ARMOR:
  236. echo ###
  237. echo ### NOT WRITTEN YET
  238. echo ###
  239. return
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258. ROOM.CHECK:
  259. if "$zoneid" = "0" then GOSUB moverandom
  260. if "$roomid" = "0" then GOSUB moverandom
  261. pause 0.1
  262. if contains("$roomname", "The Seacaves of Peri'el, Sandy Beach") then goto START
  263. gosub automove 33
  264. gosub move go portal
  265. gosub move go mouth
  266. gosub move east
  267. goto START
  268.  
  269.  
  270. ARMOR.CHECK:
  271. send get my plate
  272. send wear my plate
  273. pause .5
  274. matchre REPAIR.ARMOR practically destroyed|badly damaged|heavily scratched|unsightly notches|dents and dings|scratches|scuffed
  275. matchre RETURN Roundtime|Roundtime:
  276. put app my plate
  277. matchwait 20
  278. put #echo >Log Red ***FAILED MATCH ON ARMOR.CHECK***
  279. return
  280.  
  281. HEALTH.CHECK:
  282. matchre RETURN You have no significant injuries
  283. matchre HEAL1 minor abrasions|scratches|cuts|bruises|slashes|crushed|holes|shattered|destroyed|torn|difficulty breathing
  284. matchre HEAL1 scarring|gashes|malformed|twitch|twitching|numbness|battered|beat up|bad shape|poisoned|disease|bleeding
  285. put health
  286. matchwait 15
  287. goto HEAL1
  288.  
  289. HEAL1:
  290. if "%HEALWAIT" = "YES" then
  291. {
  292. pause 15
  293. }
  294. matchre RETURN wtf
  295. matchre HEALWAIT heal you now|I will now heal|I am preparing to heal|You are all healed|All clean|You are healed
  296. matchre HEAL2 healing someone else|try again|cleaning up|busy|still healing myself|try again|check back|I could not find|blacklisted|Please wait
  297. put lean beerfest
  298. matchwait 12
  299. goto HEAL2
  300.  
  301. HEAL2:
  302. pause .5
  303. matchre RETURN wtf
  304. matchre HEALWAIT heal you now|I will now heal|I am preparing to heal|All clean|You are healed|You are all healed
  305. matchre RETURN healing someone else|try again|cleaning up|busy|still healing myself|try again|check back|I could not find|blacklisted|Please wait
  306. put lean sawbone
  307. matchwait 12
  308. return
  309.  
  310. HEALWAIT:
  311. put hum $hum
  312. matchre HEALTH.CHECK.1 If your still hurt wait till I heal
  313. matchre RETURN all healed|All clean|You are healed|nods to you|you are healed|I have healed all
  314. matchwait 120
  315. RETURN
  316.  
  317. put:
  318. setvariable put $0
  319. put1:
  320. pause .5
  321. matchre put1 ^\.\.\.wait|you may only|You are still stunned
  322. matchre stand You can\'t do that from your position
  323. matchre MoveStow You need both hands to do that
  324. matchre return You|Please rephrase that|the clerk|The clerk|FACE HELP|EXP HELP|STOW HELP|Roundtime|Obvious paths|Obvious exits|Encumbrance:|Skin what|It's not dead yet|Remove what?|already been tied off|with what?|The contract|I could not find what you were referring to|are already in ownership|Sell what?|What bundle?|But that is already|The vault opens.|What were you referring to?|hands you a rope|Why do you need|Remove what
  325. put %put
  326. matchwait 20
  327. return
  328.  
  329. EXIT:
  330. put #echo >Log Red *** SOMETHING BAD HAPPENED! QUITTING GAME ***
  331. put quit
  332. send quit
  333. exit
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!