API tools faq
paste
Guest User

Untitled

a guest
Apr 20th, 2018
71
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 42.61 KB | None | 0 0
raw download clone embed print report
  1. setvariable echo-nonrares off
  2. setvariable auto-repair on
  3. setvariable use-khri-sight off
  4. setvariable per-heal off
  5. setvariable roam on
  6. setvariable swap.tools off
  7. setvariable auto-deed on
  8. setvariable deed-packet off
  9. setvariable keep-covellite off
  10. setvariable move-1 n
  11. setvariable move-2 ne
  12. setvariable move-3 ne
  13. setvariable move-4 ne
  14. setvariable move-5 n
  15. setvariable move-6 return
  16. setvariable move-7 return
  17.  
  18. setvariable train-magics off
  19. setvariable cambrinth-item armband
  20. setvariable mana-to-charge 11
  21. setvariable how-many-times-to-charge 4
  22. setvariable spell-to-cast sop
  23.  
  24. setvariable fold-origami off
  25. setvariable envelope-storage haversack
  26. setvariable origami-instructions flower instruction in primer
  27. setvariable origami-name flower
  28.  
  29. setvariable juggle-jugglies off
  30. setvariable jugglies raccoons
  31.  
  32. #% INDIVIDUAL FINE TUNING
  33.  
  34.  
  35.  
  36.  
  37. #% coal settings
  38. setvariable keep-massive-coal off
  39. setvariable keep-huge-coal off
  40. setvariable keep-large-coal off
  41. setvariable keep-medium-coal off
  42. setvariable keep-small-coal off
  43. setvariable keep-tiny-coal off
  44.  
  45. #% copper settings
  46. setvariable keep-massive-copper off
  47. setvariable keep-huge-copper off
  48. setvariable keep-large-copper off
  49. setvariable keep-medium-copper off
  50. setvariable keep-small-copper off
  51. setvariable keep-tiny-copper off
  52.  
  53. #% iron settings
  54. setvariable keep-massive-iron on
  55. setvariable keep-huge-iron off
  56. setvariable keep-large-iron off
  57. setvariable keep-medium-iron off
  58. setvariable keep-small-iron off
  59. setvariable keep-tiny-iron off
  60.  
  61. #% covellite settings
  62. setvariable keep-massive-covellite on
  63. setvariable keep-huge-covellite off
  64. setvariable keep-large-covellite off
  65. setvariable keep-medium-covellite off
  66. setvariable keep-small-covellite off
  67. setvariable keep-tiny-covellite off
  68.  
  69. #% lead settings
  70. setvariable keep-massive-lead off
  71. setvariable keep-huge-lead off
  72. setvariable keep-large-lead off
  73. setvariable keep-medium-lead off
  74. setvariable keep-small-lead off
  75. setvariable keep-tiny-lead off
  76.  
  77. #% nickel settings
  78. setvariable keep-massive-nickel off
  79. setvariable keep-huge-nickel off
  80. setvariable keep-large-nickel off
  81. setvariable keep-medium-nickel off
  82. setvariable keep-small-nickel off
  83. setvariable keep-tiny-nickel off
  84.  
  85. #% oravir settings
  86. setvariable keep-massive-oravir on
  87. setvariable keep-huge-oravir off
  88. setvariable keep-large-oravir off
  89. setvariable keep-medium-oravir off
  90. setvariable keep-small-oravir off
  91. setvariable keep-tiny-oravir off
  92.  
  93. #% silver settings
  94. setvariable keep-massive-silver off
  95. setvariable keep-huge-silver off
  96. setvariable keep-large-silver off
  97. setvariable keep-medium-silver off
  98. setvariable keep-small-silver off
  99. setvariable keep-tiny-silver off
  100.  
  101. #% tin settings
  102. setvariable keep-massive-tin off
  103. setvariable keep-huge-tin off
  104. setvariable keep-large-tin off
  105. setvariable keep-medium-tin off
  106. setvariable keep-small-tin off
  107. setvariable keep-tiny-tin off
  108.  
  109. #% zinc settings
  110. setvariable keep-massive-zinc off
  111. setvariable keep-huge-zinc off
  112. setvariable keep-large-zinc off
  113. setvariable keep-medium-zinc off
  114. setvariable keep-small-zinc off
  115. setvariable keep-tiny-zinc off
  116.  
  117. #% alabaster settings
  118. setvariable keep-alabaster-boulder off
  119. setvariable keep-large-alabaster-rock off
  120. setvariable keep-small-alabaster-rock off
  121. setvariable keep-alabaster-rock off
  122. setvariable keep-alabaster-stone off
  123. setvariable keep-alabaster-pebble off
  124.  
  125. #% andesite settings
  126. setvariable keep-andesite-boulder off
  127. setvariable keep-large-andesite-rock off
  128. setvariable keep-small-andesite-rock off
  129. setvariable keep-andesite-rock off
  130. setvariable keep-andesite-stone off
  131. setvariable keep-andesite-pebble off
  132.  
  133. #% basalt settings
  134. setvariable keep-basalt-boulder off
  135. setvariable keep-large-basalt-rock off
  136. setvariable keep-small-basalt-rock off
  137. setvariable keep-basalt-rock off
  138. setvariable keep-basalt-stone off
  139. setvariable keep-basalt-pebble off
  140.  
  141. #% dolomite settings
  142. setvariable keep-dolomite-boulder off
  143. setvariable keep-large-dolomite-rock off
  144. setvariable keep-small-dolomite-rock off
  145. setvariable keep-dolomite-rock off
  146. setvariable keep-dolomite-stone off
  147. setvariable keep-dolomite-pebble off
  148.  
  149. #% gabbro settings
  150. setvariable keep-gabbro-boulder off
  151. setvariable keep-large-gabbro-rock off
  152. setvariable keep-small-gabbro-rock off
  153. setvariable keep-gabbro-rock off
  154. setvariable keep-gabbro-stone off
  155. setvariable keep-gabbro-pebble off
  156.  
  157. #% granite settings
  158. setvariable keep-granite-boulder off
  159. setvariable keep-large-granite-rock off
  160. setvariable keep-small-granite-rock off
  161. setvariable keep-granite-rock off
  162. setvariable keep-granite-stone off
  163. setvariable keep-granite-pebble off
  164.  
  165. #% jade settings
  166. setvariable keep-jade-boulder off
  167. setvariable keep-large-jade-rock off
  168. setvariable keep-small-jade-rock off
  169. setvariable keep-jade-rock off
  170. setvariable keep-jade-stone off
  171. setvariable keep-jade-pebble off
  172.  
  173. #% limestone settings
  174. setvariable keep-limestone-boulder off
  175. setvariable keep-large-limestone-rock off
  176. setvariable keep-small-limestone-rock off
  177. setvariable keep-limestone-rock off
  178. setvariable keep-limestone-stone off
  179. setvariable keep-limestone-pebble off
  180.  
  181. #% marble settings
  182. setvariable keep-marble-boulder off
  183. setvariable keep-large-marble-rock off
  184. setvariable keep-small-marble-rock off
  185. setvariable keep-marble-rock off
  186. setvariable keep-marble-stone off
  187. setvariable keep-marble-pebble off
  188.  
  189. #% obsidian settings
  190. setvariable keep-obsidian-boulder off
  191. setvariable keep-large-obsidian-rock off
  192. setvariable keep-small-obsidian-rock off
  193. setvariable keep-obsidian-rock off
  194. setvariable keep-obsidian-stone off
  195. setvariable keep-obsidian-pebble off
  196.  
  197. #% onyx settings
  198. setvariable keep-onyx-boulder off
  199. setvariable keep-large-onyx-rock off
  200. setvariable keep-small-onyx-rock off
  201. setvariable keep-onyx-rock off
  202. setvariable keep-onyx-stone off
  203. setvariable keep-onyx-pebble off
  204.  
  205. #% pumice settings
  206. setvariable keep-pumice-boulder off
  207. setvariable keep-large-pumice-rock off
  208. setvariable keep-small-pumice-rock off
  209. setvariable keep-pumice-rock off
  210. setvariable keep-pumice-stone off
  211. setvariable keep-pumice-pebble off
  212.  
  213. #% quartzite settings
  214. setvariable keep-quartzite-boulder off
  215. setvariable keep-large-quartzite-rock off
  216. setvariable keep-small-quartzite-rock off
  217. setvariable keep-quartzite-rock off
  218. setvariable keep-quartzite-stone off
  219. setvariable keep-quartzite-pebble off
  220.  
  221. #% sandstone settings
  222. setvariable keep-sandstone-boulder off
  223. setvariable keep-large-sandstone-rock off
  224. setvariable keep-small-sandstone-rock off
  225. setvariable keep-sandstone-rock off
  226. setvariable keep-sandstone-stone off
  227. setvariable keep-sandstone-pebble off
  228.  
  229. #% schist settings
  230. setvariable keep-schist-boulder off
  231. setvariable keep-large-schist-rock off
  232. setvariable keep-small-schist-rock off
  233. setvariable keep-schist-rock off
  234. setvariable keep-schist-stone off
  235. setvariable keep-schist-pebble off
  236.  
  237. #% serpentine settings
  238. setvariable keep-serpentine-boulder off
  239. setvariable keep-large-serpentine-rock off
  240. setvariable keep-small-serpentine-rock off
  241. setvariable keep-serpentine-rock off
  242. setvariable keep-serpentine-stone off
  243. setvariable keep-serpentine-pebble off
  244.  
  245. #% soapstone settings
  246. setvariable keep-soapstone-boulder off
  247. setvariable keep-large-soapstone-rock off
  248. setvariable keep-small-soapstone-rock off
  249. setvariable keep-soapstone-rock off
  250. setvariable keep-soapstone-stone off
  251. setvariable keep-soapstone-pebble off
  252.  
  253. #% travertine settings
  254. setvariable keep-travertine-boulder off
  255. setvariable keep-large-travertine-rock off
  256. setvariable keep-small-travertine-rock off
  257. setvariable keep-travertine-rock off
  258. setvariable keep-travertine-stone off
  259. setvariable keep-travertine-pebble off
  260.  
  261. #% breccia settings
  262. setvariable keep-breccia-boulder off
  263. setvariable keep-large-breccia-rock off
  264. setvariable keep-small-breccia-rock off
  265. setvariable keep-breccia-rock off
  266. setvariable keep-breccia-stone off
  267. setvariable keep-breccia-pebble off
  268.  
  269.  
  270. #%-------------------------------------------------------------------------
  271. #% !!!!!!!!! PLEASE READ !!!!!!!!!!!!! !!!!!!!!! PLEASE READ !!!!!!!!!!!!!
  272. #% !!!!!!!!! PLEASE READ !!!!!!!!!!!!! !!!!!!!!! PLEASE READ !!!!!!!!!!!!!
  273. #% !!!!!!!!! PLEASE READ !!!!!!!!!!!!! !!!!!!!!! PLEASE READ !!!!!!!!!!!!!
  274. #% !!!!!!!!! PLEASE READ !!!!!!!!!!!!! !!!!!!!!! PLEASE READ !!!!!!!!!!!!!
  275. #% !!!!!!!!! PLEASE READ !!!!!!!!!!!!! !!!!!!!!! PLEASE READ !!!!!!!!!!!!!
  276. #%-------------------------------------------------------------------------
  277. #%
  278. #% if you want to train skills while mining, you can turn train-magics on if you are a magic user, and/or fold-origami or juggle-jugglies on if you desire.
  279. #% if you have train-magics turned on, mana-to-charge is how much mana to put into your cambrinth-item each charge, how-many-times-to-charge is how many times you want to charge it with that mana. for example, if you have it set to charge with 11 mana 4 times, thats 11 mana each charge, 4 times, for a total of 44 mana (plus minimum prep, so if you're casting courage which has a minimum prep of 6 mana thats 44 + 6 so you are charging 44 into cambrinth prepping at 6 so you will be casting at 50 mana total)
  280. #%
  281. #% If you have the skill and/or the techniques, you can turn auto repairing on. auto repair will repair your tools with a wire brush and oil as needed.
  282. #%
  283. #% if you want to roam, set move-1 to the first move from room you start in, room-2 to second, then room-3 and room-4 are the way back to room-1
  284. #%
  285. #% powerminer will auto save rare materials. if you want to save non-rare materials just start powerminer as .powerminer ORE1 ORE2 ORE3 etc
  286. #% for example if you want to save iron and tin, you would type .powerminer iron tin
  287. #%
  288. #% if swap.tools is on, powerminer will automatically use a pickaxe unless it hits a vein of rare metals in which case it will swap to a shovel
  289. #% if you dont want to swap tools, start powerminer with the desired tool to use in left hand with swap.tools set to off
  290. #%
  291. #% if you are in an area which does not deed for you, you must have a deed packet with you which can be purchased in the blacksmithing or forging building.
  292. #% if you are in an area which does not deed for you, set deed-packet to on.
  293. #%
  294. #% if you are a thief and want to keep khri sight on at all times (so you can see in the dark) then set use-khri-sight to on
  295. #%
  296. #% if you are an empath and want to train some empathy and power per, you can turn per-heal on and power miner will periodically perceive health near you.
  297. #%
  298. #% powerminer will auto roam when the room has been mined out if roam is on. powerminer will auto prospect danger to keep you safe. powerminer will auto prospect careful to reveal additional resources.
  299. #%
  300. #% Covellite is an 'uncommon' metal, it is considered rare but it is quite abundant. If you don't want to pick up covellite, set keep-covellite to off.
  301. #%
  302. #%-------------------------------------------------------------------------
  303. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  304. #%
  305. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  306. #%
  307. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  308. #%
  309. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  310. #%
  311. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  312. #%
  313. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  314. #%
  315. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  316. #%
  317. #% DONT TOUCH STUFF BELOW HERE DONT TOUCH STUFF BELOW HERE
  318. #%-------------------------------------------------------------------------
  319.  
  320. echo
  321. echo . [ Power Miner ]
  322. echo . [-------------------------------------------]
  323. echo . [ ~ Volume Chart ~ ]
  324. echo . [ Metals ... ]
  325. echo . [ Tiny = 1 Small = 2 Medium = 3 ]
  326. echo . [ Large = 4 Huge = 5 Massive = 10 ]
  327. echo . [ ]
  328. echo . [ Stone ... ]
  329. echo . [ Pebble = 1 Stone = 2 Small Rock = 3 ]
  330. echo . [ Large Rock = 4 Boulder = 5 ]
  331. echo . [-------------------------------------------]
  332. echo
  333.  
  334.  
  335.  
  336. setvariable keep-tiny-kertig on
  337. setvariable keep-small-kertig on
  338. setvariable keep-medium-kertig on
  339. setvariable keep-large-kertig on
  340. setvariable keep-huge-kertig on
  341. setvariable keep-massive-kertig on
  342. setvariable keep-tiny-kertig on
  343. setvariable keep-small-kertig on
  344. setvariable keep-medium-kertig on
  345. setvariable keep-large-kertig on
  346. setvariable keep-huge-kertig on
  347. setvariable keep-massive-kertig on
  348. setvariable keep-tiny-glaes on
  349. setvariable keep-small-glaes on
  350. setvariable keep-medium-glaes on
  351. setvariable keep-large-glaes on
  352. setvariable keep-huge-glaes on
  353. setvariable keep-massive-glaes on
  354. setvariable keep-tiny-glaes on
  355. setvariable keep-small-glaes on
  356. setvariable keep-medium-glaes on
  357. setvariable keep-large-glaes on
  358. setvariable keep-huge-glaes on
  359. setvariable keep-massive-glaes on
  360. setvariable keep-tiny-platinum on
  361. setvariable keep-small-platinum on
  362. setvariable keep-medium-platinum on
  363. setvariable keep-large-platinum on
  364. setvariable keep-huge-platinum on
  365. setvariable keep-massive-platinum on
  366. setvariable keep-tiny-gold on
  367. setvariable keep-small-gold on
  368. setvariable keep-medium-gold on
  369. setvariable keep-large-gold on
  370. setvariable keep-huge-gold on
  371. setvariable keep-massive-gold on
  372. setvariable keep-tiny-niniam on
  373. setvariable keep-small-niniam on
  374. setvariable keep-medium-niniam on
  375. setvariable keep-large-niniam on
  376. setvariable keep-huge-niniam on
  377. setvariable keep-massive-niniam on
  378. setvariable keep-tiny-lumium on
  379. setvariable keep-small-lumium on
  380. setvariable keep-medium-lumium on
  381. setvariable keep-large-lumium on
  382. setvariable keep-huge-lumium on
  383. setvariable keep-massive-lumium on
  384. setvariable keep-tiny-electrum on
  385. setvariable keep-small-electrum on
  386. setvariable keep-medium-electrum on
  387. setvariable keep-large-electrum on
  388. setvariable keep-huge-electrum on
  389. setvariable keep-massive-electrum on
  390. setvariable keep-tiny-animite on
  391. setvariable keep-small-animite on
  392. setvariable keep-medium-animite on
  393. setvariable keep-large-animite on
  394. setvariable keep-huge-animite on
  395. setvariable keep-massive-animite on
  396.  
  397. setvariable keep-tiny-damite on
  398. setvariable keep-small-damite on
  399. setvariable keep-medium-damite on
  400. setvariable keep-large-damite on
  401. setvariable keep-huge-damite on
  402. setvariable keep-massive-damite on
  403.  
  404.  
  405. setvariable train-astrology off
  406. setvariable use-astro-scrolls off
  407. setvariable astro-scroll-storage scroll case
  408.  
  409. action instant setvariable ppl-there 1 when Also here:
  410.  
  411. action instant setvariable prospect-danger 1 when bitter smell seeps into the air
  412. action instant setvariable prospect-danger2 1 when ground rumbles ominously
  413. action instant setvariable prospect-danger3 1 when floor shudders briefly, causing pebbles and bits of stone to cascade to the ground
  414.  
  415.  
  416. if "%train-magics" = "on" then action instant setvariable full-prep 1 when feel fully prepared to cast your spell
  417. setvariable full-prep 0
  418.  
  419. action instant setvariable prospect-danger4 1 when continued mining will be .* dangerous
  420.  
  421. action instant setvariable ore-mining $1 when are certain that (gold|orichalcum|audrualm|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone|covellite|platinum|electrum) can be mined
  422. action instant setvariable mine-track 100 when area may not be suitable to mine for some time
  423.  
  424. action instant setvariable khri-sight 0 when Light and shadow are once again thrown into stark contrast as your heightened vision fades
  425. action instant setvariable khri-sight 1 when (Darkness is no bar to a trained Thief|You're already using the Sight)
  426. action instant setvariable careful-check 1 when certain a scattering of resources remains to be found
  427. setvariable khri-sight 0
  428. if "%use-khri-sight" = "off" then setvariable khri-sight 1
  429.  
  430. setvariable save-1 nil
  431. if_1 setvariable save-1 %1
  432. setvariable save-2 nil
  433. if_2 setvariable save-2 %2
  434. setvariable save-3 nil
  435. if_3 setvariable save-3 %3
  436. setvariable save-4 nil
  437. if_4 setvariable save-4 %4
  438. setvariable save-5 nil
  439. if_5 setvariable save-5 %5
  440. setvariable save-6 nil
  441. if_6 setvariable save-6 %6
  442. setvariable save-7 nil
  443. if_7 setvariable save-7 %7
  444. setvariable save-8 nil
  445. if_8 setvariable save-8 %8
  446. setvariable save-9 nil
  447. if_9 setvariable save-9 %9
  448.  
  449. setvariable total.found 0
  450. setvariable prospect-danger 0
  451. setvariable prospect-danger2 0
  452. setvariable prospect-danger3 0
  453. setvariable danger-track 0
  454.  
  455. setvariable copper.found 0
  456. setvariable alabaster.found 0
  457. setvariable silver.found 0
  458. setvariable soapstone.found 0
  459. setvariable dolomite.found 0
  460. setvariable coal.found 0
  461. setvariable tin.found 0
  462. setvariable nickel.found 0
  463. setvariable zinc.found 0
  464. setvariable iron.found 0
  465. setvariable oravir.found 0
  466. setvariable breccia.found 0
  467. setvariable sandstone.found 0
  468. setvariable limestone.found 0
  469. setvariable serpentine.found 0
  470. setvariable schist.found 0
  471. setvariable basalt.found 0
  472. setvariable obsidian.found 0
  473. setvariable onyx.found 0
  474. setvariable pumice.found 0
  475. setvariable orichalcum.found 0
  476. setvariable audrualm.found 0
  477. setvariable andesite.found 0
  478. setvariable lead.found 0
  479. setvariable gabbro.found 0
  480. setvariable granite.found 0
  481. setvariable jade.found 0
  482. setvariable travertine.found 0
  483. setvariable marble.found 0
  484. setvariable quartzite.found 0
  485. setvariable covellite.found 0
  486.  
  487. setvariable kertig.found 0
  488. setvariable damite.found 0
  489. setvariable glaes.found 0
  490. setvariable haralun.found 0
  491. setvariable lumium.found 0
  492. setvariable niniam.found 0
  493. setvariable tyrium.found 0
  494. setvariable darkstone.found 0
  495. setvariable electrum.found 0
  496. setvariable animite.found 0
  497. setvariable gold.found 0
  498. setvariable platinum.found 0
  499.  
  500. setvariable copper-volume 0
  501. setvariable alabaster-volume 0
  502. setvariable silver-volume 0
  503. setvariable gold-volume 0
  504. setvariable platinum-volume 0
  505. setvariable soapstone-volume 0
  506. setvariable dolomite-volume 0
  507. setvariable coal-volume 0
  508. setvariable tin-volume 0
  509. setvariable nickel-volume 0
  510. setvariable zinc-volume 0
  511. setvariable iron-volume 0
  512. setvariable oravir-volume 0
  513. setvariable breccia-volume 0
  514. setvariable sandstone-volume 0
  515. setvariable limestone-volume 0
  516. setvariable serpentine-volume 0
  517. setvariable electrum-volume 0
  518. setvariable schist-volume 0
  519. setvariable basalt-volume 0
  520. setvariable obsidian-volume 0
  521. setvariable onyx-volume 0
  522. setvariable pumice-volume 0
  523. setvariable orichalcum-volume 0
  524. setvariable audrualm-volume 0
  525. setvariable andesite-volume 0
  526. setvariable lead-volume 0
  527. setvariable gabbro-volume 0
  528. setvariable granite-volume 0
  529. setvariable jade-volume 0
  530. setvariable travertine-volume 0
  531. setvariable marble-volume 0
  532. setvariable quartzite-volume 0
  533.  
  534. setvariable kertig-volume 0
  535. setvariable damite-volume 0
  536. setvariable glaes-volume 0
  537. setvariable haralun-volume 0
  538. setvariable lumium-volume 0
  539. setvariable niniam-volume 0
  540. setvariable tyrium-volume 0
  541. setvariable darkstone-volume 0
  542. setvariable covellite-volume 0
  543. setvariable animite-volume 0
  544.  
  545. #% action instant math good.found add 1 when both .* (electrum|quartzite|marble|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone)
  546. #% action instant math good.found add 1 when (electrum|quartzite|marble|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone) .* (falls to the ground|topples free)
  547.  
  548. setvariable prospect-normal 5
  549. setvariable prospect-careful 5
  550. setvariable mine-track 0
  551. setvariable good.found 0
  552. setvariable mine-swings 0
  553.  
  554. setvariable move-track 0
  555. if "%swap.tools" = "off" then goto start.up
  556. gosub verb stow left
  557. gosub verb stow right
  558. gosub verb get my pickaxe
  559. setvariable current.tool pickaxe
  560. gosub verb swap
  561. start.up:
  562. gosub prospectn
  563.  
  564. mine.p:
  565. pause 0.5
  566. mine:
  567. if %mine-track > %prospect-careful then gosub prospectn
  568. if %prospect-danger = 1 then gosub prospect-danger
  569. if %prospect-danger2 = 1 then gosub prospect-danger
  570. if %prospect-danger3 = 1 then gosub prospect-danger
  571. if %prospect-danger4 = 1 then gosub prospect-danger
  572. if %khri-sight = 0 then gosub verb khri start sight
  573. setvariable item-keeping-1 nil
  574. setvariable item-keeping-2 nil
  575. setvariable item-keeping-3 nil
  576. math mine-swings add 1
  577. put mine
  578. match mine.p type ahead
  579. match mine.p ...wait
  580. matchre mine.found-2 both.*(a|an|huge|large|massive|enormous|medium|small|tiny|dislodged) (quartzite|marble|travertine|jade|schist|basalt|alabaster|obsidian|onyx|pumice|orichalcum|audrualm|andesite|lead|gabbro|granite|electrum|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone|covellite|zinc|serpentine|sandstone|limestone|iron|oravir|dolomite|breccia|tin|coal|nickel|soapstone|platinum|gold|silver|copper) (nugget|shard|bar|stone|rock|slab|boulder|fragment|lump|tear|fist|pebble) .* (a|an|huge|large|massive|medium|small|enormous|tiny|dislodged) (serpentine|limestone|iron|oravir|dolomite|breccia|tin|coal|nickel|soapstone|platinum|gold|silver|copper|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone|covellite|zinc|electrum|jade|schist|basalt|alabaster|obsidian|onyx|pumice|orichalcum|audrualm|andesite|lead|gabbro|granite|travertine|marble|quartzite) (nugget|shard|bar|stone|rock|slab|boulder|fragment|lump|tear|fist|pebble)
  581. matchre mine.found-1 (a|an|huge|large|massive|medium|small|enormous|tiny|dislodged) (travertine|jade|schist|basalt|alabaster|obsidian|onyx|pumice|orichalcum|audrualm|andesite|lead|gabbro|granite|electrum|quartzite|marble|kertig|damite|animite|glaes|haralun|lumium|niniam|tyrium|darkstone|covellite|serpentine|zinc|limestone|iron|sandstone|oravir|dolomite|breccia|tin|coal|nickel|soapstone|platinum|gold|silver|copper) (nugget|shard|bar|stone|rock|slab|boulder|fragment|lump|tear|fist|pebble) (falls to the ground|topples free)
  582. match mine.track Roundtime
  583. matchwait
  584. mine.track:
  585. math mine-track add 1
  586. goto mine
  587. mine.found-yay:
  588. setvariable item $1 $2
  589. if "%auto-deed" = "off" then gosub verb stow %item
  590. if "%auto-deed" = "off" then goto mine-found-yay-2
  591. if "%deed-packet" = "off" then gosub verb push %item
  592. if "%deed-packet" = "on" then gosub verb get my packet
  593. if "%deed-packet" = "on" then gosub ret
  594. if "%deed-packet" = "on" then gosub packet.deed
  595. if "%deed-packet" = "on" then gosub verb push %item with packet
  596. gosub verb stow my deed
  597. if "%deed-packet" = "on" then gosub verb get my %temp.item
  598. if "%deed-packet" = "on" then gosub verb stow my packet
  599. mine-found-yay-2:
  600. math good.found add 1
  601. math mine-track add 1
  602. goto found.stuff
  603.  
  604.  
  605.  
  606. mine.found-2:
  607. setvariable temp-keep-1 $1 $2 $3
  608. setvariable temp-keep-2 $4 $5 $6
  609. if "$1" = "dislodged" then setvariable temp-keep-1 $2 $3
  610. if "$4" = "dislodged" then setvariable temp-keep-2 $5 $6
  611. if "$1" = "a" then setvariable temp-keep-1 $2 $3
  612. if "$1" = "an" then setvariable temp-keep-1 $2 $3
  613. if "$4" = "a" then setvariable temp-keep-2 $5 $6
  614. if "$4" = "an" then setvariable temp-keep-2 $5 $6
  615. echo Found %temp-keep-1 and %temp-keep-2
  616. math $2.found add 1
  617. math $5.found add 1
  618. setvariable temp-1 $5
  619. setvariable temp-2 $5 $6
  620. if "$2" = "%save-1" then gosub deed $2 $3
  621. if "$2" = "%save-2" then gosub deed $2 $3
  622. if "$2" = "%save-3" then gosub deed $2 $3
  623. if "$2" = "%save-4" then gosub deed $2 $3
  624. if "$2" = "%save-5" then gosub deed $2 $3
  625. if "$2" = "%save-6" then gosub deed $2 $3
  626. if "$2" = "%save-7" then gosub deed $2 $3
  627. if "$2" = "%save-8" then gosub deed $2 $3
  628. if "$2" = "%save-9" then gosub deed $2 $3
  629. if "$2" = "orichalcum" then gosub deed $2 $3
  630. if "$2" = "audrualm" then gosub deed $2 $3
  631. if "$2" = "haralun" then gosub deed $2 $3
  632. if "$2" = "tyrium" then gosub deed $2 $3
  633. if "$2" = "darkstone" then gosub deed $2 $3
  634. if "%temp-1" = "%save-1" then gosub deed %temp-2
  635. if "%temp-1" = "%save-2" then gosub deed %temp-2
  636. if "%temp-1" = "%save-3" then gosub deed %temp-2
  637. if "%temp-1" = "%save-4" then gosub deed %temp-2
  638. if "%temp-1" = "%save-5" then gosub deed %temp-2
  639. if "%temp-1" = "%save-6" then gosub deed %temp-2
  640. if "%temp-1" = "%save-7" then gosub deed %temp-2
  641. if "%temp-1" = "%save-8" then gosub deed %temp-2
  642. if "%temp-1" = "%save-9" then gosub deed %temp-2
  643. if "%temp-1" = "orichalcum" then gosub deed %temp-2
  644. if "%temp-1" = "audrualm" then gosub deed %temp-2
  645. if "%temp-1" = "haralun" then gosub deed %temp-2
  646. if "%temp-1" = "tyrium" then gosub deed %temp-2
  647. if "%temp-1" = "darkstone" then gosub deed %temp-2
  648. math mine-track add 1
  649. math total.found add 2
  650. gosub keep-check %temp-keep-1
  651. gosub keep-check %temp-keep-2
  652. goto found.stuff
  653.  
  654. mine.found-1:
  655. setvariable temp-keep-1 $1 $2 $3
  656. if "$1" = "dislodged" then setvariable temp-keep-1 $2 $3
  657. if "$1" = "a" then setvariable temp-keep-1 $2 $3
  658. if "$1" = "an" then setvariable temp-keep-1 $2 $3
  659. echo Found %temp-keep-1
  660. math $2.found add 1
  661. if "$2" = "orichalcum" then gosub deed $2 $3
  662. if "$2" = "audrualm" then gosub deed $2 $3
  663. if "$2" = "haralun" then gosub deed $2 $3
  664. if "$2" = "tyrium" then gosub deed $2 $3
  665. if "$2" = "darkstone" then gosub deed $2 $3
  666. math mine-track add 1
  667. math total.found add 1
  668. gosub keep-check %temp-keep-1
  669. goto found.stuff
  670.  
  671. keep-check:
  672. if "%keep-$1-$2-$3" = "on" then math good.found subtract 1
  673. if "%keep-$1-$2" = "on" then math good.found subtract 1
  674. setvariable keeper-temp $0
  675. setvariable to-keep nil
  676. if "%keep-$1-$2" = "on" then if "$1" = "tiny" then setvariable keeper-temp $2 $3
  677. if "%keep-$1-$2" = "on" then if "$1" = "small" then setvariable keeper-temp $2 $3
  678. if "%keep-$1-$2" = "on" then if "$1" = "medium" then setvariable keeper-temp $2 $3
  679. if "%keep-$1-$2" = "on" then if "$1" = "large" then setvariable keeper-temp $2 $3
  680. if "%keep-$1-$2" = "on" then if "$1" = "huge" then setvariable keeper-temp $2 $3
  681. if "%keep-$1-$2" = "on" then if "$1" = "massive" then setvariable keeper-temp $2 $3
  682. if "%keep-$1-$2" = "on" then if "$1" = "enormous" then setvariable keep-temp $2 $3
  683. if "%keep-$1-$2" = "on" then setvariable to-keep %keeper-temp
  684. if "%keep-$1-$2-$3" = "on" then setvariable to-keep %keeper-temp
  685. if "%keep-$1-$2" = "on" then gosub volume-math $0
  686. if "%keep-$1-$2-$3" = "on" then gosub volume-math $0
  687. if "%to-keep" != "nil" then gosub deed %to-keep
  688. return
  689.  
  690. volume-math:
  691. if "$1" = "tiny" then math $2-volume add 1
  692. if "$1" = "small" then if "$3" = "nugget" then math $2-volume add 2
  693. if "$1" = "small" then if "$3" = "fragment" then math $2-volume add 2
  694. if "$1" = "small" then if "$3" = "shard" then math $2-volume add 2
  695. if "$1" = "small" then if "$3" = "tear" then math $2-volume add 2
  696. if "$1" = "small" then if "$3" = "fist" then math $2-volume add 2
  697. if "$1" = "small" then if "$3" = "lump" then math $2-volume add 2
  698. if "$1" = "small" then if "$3" = "rock" then math $2-volume add 3
  699. if "$1" = "medium" then math $2-volume add 3
  700. if "$1" = "large" then math $2-volume add 4
  701. if "$1" = "huge" then math $2-volume add 5
  702. if "$2" = "boulder" then math $1-volume add 5
  703. if "$2" = "pebble" then math $1-volume add 1
  704. if "$2" = "rock" then math $1-volume add 3
  705. if "$2" = "stone" then math $1-volume add 2
  706. if "$2" = "lump" then math $1-volume add 1
  707. if "$1" = "massive" then math $2-volume add 10
  708. if "$1" = "enormous" then math $2-volume add 20
  709. return
  710.  
  711. khri:
  712. gosub verb khri start $0
  713. return
  714.  
  715. ret.p:
  716. pause 0.5
  717. ret:
  718. put ret
  719. matchre ret.p (type ahead|...wait)
  720. matchre ret You retreat back
  721. matchre ret.d (You retreat from combat|You are already as far away)
  722. match ret.p Roundtime
  723. matchwait
  724. ret.d:
  725. return
  726.  
  727. deed:
  728. setvariable item $1 $2
  729. if "$1" = "platinum" then math good.found add 1
  730. if "$1" = "gold" then math good.found add 1
  731. if "$1" = "animite" then math good.found add 1
  732. if "$1" = "electrum" then math good.found add 1
  733. if "$1" = "glaes" then math good.found add 1
  734. if "$1" = "damite" then math good.found add 1
  735. if "$1" = "kertig" then math good.found add 1
  736. if "$1" = "niniam" then math good.found add 1
  737. if "$1" = "lumium" then math good.found add 1
  738. if "$1" = "tyrium" then math good.found add 1
  739. if "$1" = "haralun" then math good.found add 1
  740. if "$1" = "darkstone" then math good.found add 1
  741. if "$1" = "audrualm" then math good.found add 1
  742. if "$1" = "orichalcum" then math good.found add 1
  743. if "$1" = "covellite" then math good.found add 1
  744.  
  745. if "%auto-deed" = "off" then gosub verb stow %item
  746. if "%auto-deed" = "off" then goto deed.done
  747.  
  748. if "%deed-packet" = "off" then gosub verb push %item
  749. if "%deed-packet" = "on" then gosub verb get my packet
  750. if "%deed-packet" = "on" then gosub ret
  751. if "%deed-packet" = "on" then gosub packet.deed
  752. if "%deed-packet" = "on" then gosub verb push %item with packet
  753. gosub verb stow my deed
  754. if "%deed-packet" = "on" then gosub verb get my %temp.item
  755. if "%deed-packet" = "on" then gosub verb stow my packet
  756. deed.done:
  757. math good.found add 1
  758. math mine-track add 1
  759. pause 0.1
  760. return
  761.  
  762. packet.deed.p:
  763. pause 0.5
  764. packet.deed:
  765. put stow left
  766. matchre packet.deed.p (type ahead|...wait)
  767. matchre packet.deed.d (shovel|pickaxe)
  768. matchwait
  769. packet.deed.d:
  770. setvariable temp.item $1
  771. return
  772.  
  773. found.stuff:
  774. echo .
  775. echo . Stuff Found ...
  776. echo .__________________________________________________
  777. echo . Material - Total Found - Volume Kept
  778. if %orichalcum.found > 0 then echo . Orichalcum - %orichalcum.found %orichalcum-volume
  779. if %tyrium.found > 0 then echo . Tyrium - %tyrium.found %tyrium-volume
  780. if %kertig.found > 0 then echo . Kertig - %kertig.found %kertig-volume
  781. if %haralun.found > 0 then echo . Haralun - %haralun.found %haralun-volume
  782. if %damite.found > 0 then echo . Damite - %damite.found %damite-volume
  783. if %glaes.found > 0 then echo . Glaes - %glaes.found %glaes-volume
  784. if %darkstone.found > 0 then echo . Darkstone - %darkstone.found %darkstone-volume
  785. if %lumium.found > 0 then echo . Lumium - %lumium.found %lumium-volume
  786. if %niniam.found > 0 then echo . Niniam - %niniam.found %niniam-volume
  787. if %animite.found > 0 then echo . Animite - %animite.found %animite-volume
  788. if %electrum.found > 0 then echo . Electrum - %electrum.found %electrum-volume
  789. if %platinum.found > 0 then echo . Platinum - %platinum.found %platinum-volume
  790. if %gold.found > 0 then echo . Gold %gold.found %gold-volume
  791. if %silver.found > 0 then echo . Silver - %silver.found %silver-volume
  792. if %covellite.found > 0 then echo . Covellite - %covellite.found %covellite-volume
  793. if "%echo-nonrares" = "off" then goto dontechononrares
  794. echo .
  795. if %lead.found > 0 then echo . Lead %lead.found %lead-volume
  796. if %copper.found > 0 then echo . Copper - %copper.found %copper-volume
  797. if %coal.found > 0 then echo . Coal %coal.found %coal-volume
  798. if %tin.found > 0 then echo . Tin %tin.found %tin-volume
  799. if %nickel.found > 0 then echo . Nickel - %nickel.found %nickel-volume
  800. if %zinc.found > 0 then echo . Zinc %zinc.found %zinc-volume
  801. if %iron.found > 0 then echo . Iron %iron.found %iron-volume
  802. if %oravir.found > 0 then echo . Oravir - %oravir.found %oravir-volume
  803. if %breccia.found > 0 then echo . Breccia - %breccia.found %breccia-volume
  804. if %sandstone.found > 0 then echo . Sandstone - %sandstone.found %sandstone-volume
  805. if %limestone.found > 0 then echo . Limestone - %limestone.found %limestone-volume
  806. if %serpentine.found > 0 then echo . Serpentine - %serpentine.found %serpentine-volume
  807. if %schist.found > 0 then echo . Schist - %schist.found %schist-volume
  808. if %basalt.found > 0 then echo . Basalt - %basalt.found %basalt-volume
  809. if %obsidian.found > 0 then echo . Obsidian - %obsidian.found %obsidian-volume
  810. if %onyx.found > 0 then echo . Onyx %onyx.found %onyx-volume
  811. if %pumice.found > 0 then echo . Pumice - %pumice.found %pumice-volume
  812. if %audrualm.found > 0 then echo . Audrualm - %audrualm.found %audrualm-volume
  813. if %andesite.found > 0 then echo . Andesite - %andesite.found %andesite-volume
  814. if %gabbro.found > 0 then echo . Gabbro - %gabbro.found %gabbro-volume
  815. if %granite.found > 0 then echo . Granite - %granite.found %granite-volume
  816. if %jade.found > 0 then echo . Jade %jade.found %jade-volume
  817. if %travertine.found > 0 then echo . Travertine - %travertine.found %travertine-volume
  818. if %marble.found > 0 then echo . Marble - %marble.found %marble-volume
  819. if %quartzite.found > 0 then echo . Quartzite - %quartzite.found %quartzite-volume
  820. if %alabaster.found > 0 then echo . Alabaster - %alabaster.found %alabaster-volume
  821. if %soapstone.found > 0 then echo . Soapstone - %soapstone.found %soapstone-volume
  822. if %dolomite.found > 0 then echo . Dolomite - %dolomite.found %dolomite-volume
  823. dontechononrares:
  824. echo .__________________________________________________
  825. echo . Total Good Stuff Found : %good.found
  826. echo . Total Stuff Found : %total.found
  827. echo . Total Mine Attempts : %mine-swings
  828.  
  829. setvariable temp-10 %total.found
  830. math temp-10 divide %good.found
  831. setvariable overall-odds %temp-10
  832. setvariable temp-10 %good.found
  833. math temp-10 divide %total.found
  834. math temp-10 multiply 100
  835. setvariable percent-chance %temp-10
  836. if %good.found > 0 then echo . %percent-chance Percent Chance of Finding Something Good When Something Is Found ( 1 in %overall-odds odds )
  837. setvariable temp-10 %mine-swings
  838. math temp-10 divide %total.found
  839. setvariable odds %temp-10
  840. setvariable temp-10 %total.found
  841. math temp-10 divide %mine-swings
  842. math temp-10 multiply 100
  843. setvariable percent %temp-10
  844. echo . %percent Percent Chance of Finding Anything On A Mine Attempt ( 1 in %odds odds )
  845. setvariable temp-10 %mine-swings
  846. math temp-10 divide %good.found
  847. setvariable odds-2 %temp-10
  848. setvariable temp-10 %good.found
  849. math temp-10 divide %mine-swings
  850. math temp-10 multiply 100
  851. setvariable percent-2 %temp-10
  852. if %good.found > 0 then echo . %percent-2 Percent Chance of Finding Something Good On A Mine Attempt ( 1 in %odds-2 odds )
  853. echo .__________________________________________________
  854. echo .
  855. goto mine
  856. prospect-danger.p:
  857. pause
  858. prospect-danger:
  859. pause 0.5
  860. if %danger-track > 3 then goto prospect-danger.d
  861. math danger-track add 1
  862. put prospect danger
  863. match prospect-danger.p Unfortunately, you are unable to find any way around the instability in the geology
  864. matchre prospect-danger.p (type ahead|...wait)
  865. match prospect-danger.d Roundtime
  866. matchwait
  867. prospect-danger.d:
  868. setvariable danger-track 0
  869. setvariable prospect-danger 0
  870. setvariable prospect-danger2 0
  871. setvariable prospect-danger3 0
  872. setvariable prospect-danger4 0
  873. return
  874.  
  875. prospectc.p:
  876. pause 0.5
  877.  
  878. prospectc:
  879. put prospect careful
  880. match prospectc.p type ahead
  881. match prospectc.p ...wait
  882. matchre prospectc.d (analysis has revealed no additional resources to be unearthed|Roundtime)
  883. matchwait
  884. prospectc.d:
  885. if %careful-out = 1 then goto prospect.c
  886. return
  887.  
  888. prospectn.p:
  889. pause 0.5
  890. prospectn:
  891. setvariable ore-mining nil
  892. setvariable careful-check 0
  893. put prospect
  894. match prospectn.p type ahead
  895. match prospectn.p ...wait
  896. match prospectn.d Studying the geology
  897. match prospect-move Roundtime
  898. matchwait
  899.  
  900. prospectn.danger:
  901. setvariable prospect-danger 1
  902. return
  903. prospectn.d:
  904. if %careful-check = 1 then gosub prospectc
  905. setvariable mine-track 0
  906. if "%ore-mining" != "nil" then if "%current.tool" = "pickaxe" then goto swap.shovel
  907. if "%ore-mining" = "nil" then if "%current.tool" = "shovel" then goto swap.pickaxe
  908. if "%ore-mining" != "nil" then gosub prospectc
  909. if "%per-heal" = "on" then gosub verb per heal
  910. return
  911.  
  912. prospect-reset:
  913.  
  914.  
  915. swap.shovel:
  916. if "%swap.tools" = "off" then goto prospectn.d
  917. gosub verb stow my pickaxe
  918. gosub verb get my shovel
  919. gosub verb swap
  920. setvariable current.tool shovel
  921. goto prospectn.d
  922. swap.pickaxe:
  923. if "%swap.tools" = "off" then goto prospectn.d
  924. gosub verb stow my shovel
  925. gosub verb get my pickaxe
  926. gosub verb swap
  927. setvariable current.tool pickaxe
  928. goto prospectn.d
  929.  
  930. prospect-move:
  931. gosub gear-check
  932. if "%train-magics" = "on" then goto train-magics
  933. if "%juggle-jugglies" = "on" then goto juggle-jugglies
  934. if "%fold-origami" = "on" then goto fold-origami
  935. if "%roam" = "off" then goto prospectn.d
  936. prospect-move2:
  937. gosub ret
  938. math move-track add 1
  939. setvariable ppl-there 0
  940. gosub move %move-track
  941. if %ppl-there = 1 then goto prospect-move2
  942. if "%move" = "done" then setvariable move-track 0
  943. if "%move" = "return" then setvariable move-track 0
  944. goto prospectn
  945.  
  946. move:
  947. setvariable move %move-$1
  948. if "%move" = "done" then return
  949. if "%move" = "return" then return
  950. move.p:
  951. pause 0.5
  952. move.a:
  953. gosub ret
  954. move.x:
  955. put %move
  956. matchre move.a (type ahead|engaged)
  957. match move.a ...wait
  958. matchre move.xd (Obvious path|Obvious exit|dark|see a thing|pitch black)
  959. matchwait
  960. move.xd:
  961. pause 0.5
  962. return
  963.  
  964.  
  965. gear-check:
  966. if "%auto-repair" != "on" then goto repair-done
  967. put inv hand
  968. waitforre (shovel|pickaxe)
  969. setvariable tool-check $1
  970. goto analyze-tool
  971. analyze-tool.p:
  972. pause 0.5
  973. analyze-tool:
  974. put analyze my %tool-check
  975. matchre analyze-tool.p (type ahead|...wait)
  976. match repair-done it is in pristine condition
  977. match repair-brush Roundtime
  978. matchwait
  979. repair-brush:
  980. gosub verb get my wire brush
  981. pause 0.1
  982. put rub my %tool-check with my wire brush
  983. matchre repair-fail (does not need repair|has suffered too much damage|not damaged enough to warrant repair)
  984. match repair-oil Roundtime
  985. matchwait
  986. repair-fail:
  987. gosub verb stow my wire brush
  988. goto repair-done
  989. repair-oil:
  990. gosub verb stow my wire brush
  991. gosub verb get my oil
  992. pause 0.1
  993. put pour my oil on my %tool-check
  994. waitforre (cannot figure out how to do that|Roundtime|not damaged enough to warrant repair)
  995. gosub verb stow my oil
  996. repair-done:
  997. return
  998.  
  999. juggle-jugglies:
  1000. random 1 2
  1001. if %r = 1 then if "%fold-origami" = "on" then goto fold-origami
  1002. gosub packet.deed
  1003. gosub verb get my %jugglies
  1004. random 7 11
  1005. setvariable juggle-limit %r
  1006. setvariable juggle-track 0
  1007. juggling:
  1008. gosub verb juggle my %jugglies
  1009. math juggle-track add 1
  1010. if %juggle-track = %juggle-limit then goto juggling.d
  1011. if %juggle-track > %juggle-limit then goto juggling.d
  1012. goto juggling
  1013. juggling.d:
  1014. gosub verb stow my %jugglies
  1015. goto skill-done
  1016.  
  1017.  
  1018.  
  1019. train-magics:
  1020. random 1 2
  1021. if %r = 1 then if "%juggle-jugglies" = "on" then goto juggle-jugglies
  1022. random 1 2
  1023. if %r = 1 then if "%fold-origami" = "on" then goto fold-origami
  1024. setvariable mana $mana
  1025. if %mana < 100 then waitfor fully attuned
  1026. if $mana < 100 then waitfor fully attuned
  1027. gosub packet.deed
  1028. gosub verb get my %cambrinth-item
  1029. setvariable charge-track 0
  1030. charge-magics:
  1031. math charge-track add 1
  1032. gosub verb charge my %cambrinth-item %mana-to-charge
  1033. if %charge-track = %how-many-times-to-charge then goto charge-magics.d
  1034. if %charge-track > %how-many-times-to-charge then goto charge-magics.d
  1035. goto charge-magics
  1036. charge-magics.d:
  1037. gosub verb focus my %cambrinth-item
  1038. pause
  1039. put prep %spell-to-cast
  1040. waitfor fully prepared
  1041. put cast
  1042. pause
  1043. gosub verb per
  1044. gosub verb stow my %cambrinth-item
  1045. goto skill-done
  1046.  
  1047. fold-origami:
  1048. gosub packet.deed
  1049. gosub verb get envelope in my %envelope-storage
  1050. pull-envelope:
  1051. put pull my envelope
  1052. match study-origami You get
  1053. match new-envelope is empty
  1054. matchwait
  1055. new-envelope:
  1056. put poke my envelope
  1057. pause
  1058. goto fold-origami
  1059. study-origami:
  1060. gosub verb put my envelope in my %envelope-storage
  1061. gosub verb study my %origami-instructions
  1062. fold.p:
  1063. pause 0.5
  1064. fold:
  1065. match fold.p type ahead
  1066. match fold.p ...wait
  1067. match exhale gaze proudly
  1068. match exhale You make the final fold
  1069. match fold Roundtime
  1070. put fold my paper
  1071. matchwait
  1072. exhale:
  1073. pause
  1074. put exhale my %origami-name
  1075. wait
  1076. put drop my %origami-name
  1077. wait
  1078. goto skill-done
  1079.  
  1080.  
  1081. skill-done:
  1082. gosub verb get my %temp.item
  1083. gosub verb swap
  1084. goto prospectn
  1085.  
  1086. verb:
  1087. setvariable verb $0
  1088. goto verb.a
  1089. verb.p:
  1090. pause 0.5
  1091. verb.a:
  1092. put %verb
  1093. match verb.p type ahead
  1094. match verb.p ...wait
  1095. matchre verb.d (You get|You put|STOW HELP|You push|think pushing that would have any effect|You move|You're already using the Sight|You have not recovered from your previous use|careful focus, you adjust your eyes to see in shadow as they|You close your eyes, drawing all your thoughts inward|You're not ready to do that again|was just recently mined by someone else|Roundtime)
  1096. matchwait
  1097. verb.d:
  1098. return
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!