API tools faq
paste
0veride

Untitled

0veride
Jan 21st, 2019
103
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 39.61 KB | None | 0 0
raw download clone embed print report
  1. #send #goto 355
  2. pause 0.25
  3. send .afk1
  4. pause 0.25
  5. if ("$charactername" = "Ghimly") then put #script abort all except cross
  6. pause 0.25
  7. if ("$charactername" = "Goriath") then put .teachfa
  8. pause 0.25
  9. if ("$charactername" = "Goriath") then put .afk3
  10. pause 0.25
  11. if ("$charactername" = "Goriath") then put #script abort afk1
  12. pause 0.25
  13. send .abort
  14. pause 0.25
  15.  
  16. START:
  17. pause 0.25
  18. send exp
  19. pause 0.25
  20. gosub clear
  21. pause 0.25
  22. send stand
  23. pause 0.25
  24. send .go ranger
  25. pause 8
  26. send out
  27. pause 0.25
  28. send stop play
  29. pause 0.25
  30. send stow my cloth
  31. pause 0.25
  32. send wear my zill
  33. pause 0.25
  34. send stow my mort
  35. pause 0.25
  36. send stow my pestle
  37. pause 0.25
  38. send get flower from my mort
  39. pause 0.25
  40. send put my flower in bin
  41. pause 0.25
  42. send rel spell
  43. pause 0.25
  44. send put my grass in bin
  45. pause 0.25
  46. send put my grass in bin
  47. pause 0.25
  48. if ("$charactername" = "Ghimly") then send rem my badge
  49. pause 0.25
  50. if ("$charactername" = "Ghimly") then send pray my badge
  51. pause 0.25
  52. if ("$charactername" = "Ghimly") then send wear my badge
  53. pause 0.25
  54. send touch vess
  55. pause 0.25
  56. send listen to ghim
  57. pause 0.25
  58. send research cancel
  59. pause 0.25
  60. send research cancel
  61. pause 0.25
  62. send Hunt
  63. pause
  64. send app my pouch
  65. pause
  66. if ($Appraisal.LearningRate <= 10) then {
  67. send app my bund
  68. pause
  69. }
  70. pause 0.25
  71. if ($Appraisal.LearningRate <= 10) then {
  72. send app my stick
  73. pause
  74. }
  75.  
  76. pause 0.25
  77. if ($Appraisal.LearningRate <= 10) then {
  78. send app my pouch
  79. pause
  80. }
  81. pause 0.25
  82. send pow
  83. pause
  84. goto empcheck
  85.  
  86. EMPCHECK:
  87.  
  88. pause 0.25
  89. if ("$guild" = "Empath") && ($Empathy.LearningRate < 10) then goto Empathy
  90.  
  91. pause 0.25
  92. if ("$guild" = "Moon Mage") && ($Astrology.LearningRate < 10) then goto ASTRO
  93.  
  94. pause 0.25
  95. if ("$guild" = "Warrior Mage") && ($Summoning.LearningRate < 10) then goto sum
  96.  
  97. pause 0.25
  98. goto start2
  99.  
  100. START2:
  101. pause 0.25
  102. if ($Athletics.LearningRate <= 10) then {
  103. gosub Climb1
  104. }
  105.  
  106. pause 0.25
  107. if ($Outdoorsmanship.LearningRate <= 10) then {
  108. gosub collect
  109. }
  110.  
  111. pause 0.25
  112. if ($Alchemy.Ranks > 70) then gosub start3
  113.  
  114. pause 0.25
  115. ##$$ ($Alchemy.Ranks < 80)
  116. if ($Alchemy.LearningRate <= 5) then {
  117. gosub Crush
  118. }
  119.  
  120. pause 0.25
  121. goto start3
  122.  
  123. START3:
  124. pause 0.25
  125. if ($Utility.LearningRate <= 5) then {
  126. gosub research_Utility
  127. }
  128.  
  129. pause 0.25
  130. if ($Performance.LearningRate <= 10) then {
  131. gosub play
  132. }
  133.  
  134. pause 0.25
  135. if ($Primary_Magic.LearningRate <= 5) then {
  136. gosub research_MAGIC
  137. }
  138.  
  139. pause 0.25
  140. if ($Mechanical_Lore.LearningRate <= 10) then {
  141. gosub BBRAID
  142. }
  143.  
  144. pause 0.25
  145. if ($Attunement.LearningRate <= 5) then {
  146. gosub research_Attunement
  147. }
  148.  
  149. pause 0.25
  150. if ($Augmentation.LearningRate <= 5) then {
  151. gosub research_augmentation
  152. }
  153.  
  154. pause 0.25
  155. if ($Warding.LearningRate <= 5) then {
  156. gosub research_warding
  157. }
  158.  
  159. pause 1
  160. goto start
  161.  
  162. research_warding:
  163. pause
  164. put prep gauge flow 5
  165. pause 25
  166. send cast
  167. pause 5
  168.  
  169. RESEARCHward:
  170. put research ward 60
  171. match researchward there is still more to learn
  172. match DONE Breakthrough!
  173. matchwait
  174.  
  175. research_Attunement:
  176. pause
  177. put prep gauge flow 5
  178. pause 25
  179. send cast
  180. pause 5
  181.  
  182. RESEARCHATT:
  183. put research stream 60
  184. match researchATT there is still more to learn
  185. match DONE Breakthrough!
  186. matchwait
  187.  
  188. research_augmentation:
  189. pause
  190. put prep gauge flow 5
  191. pause 25
  192. send cast
  193. pause 5
  194.  
  195. RESEARCHAug:
  196. put research aug 60
  197. match researchaug there is still more to learn
  198. match DONE Breakthrough!
  199. matchwait
  200.  
  201. research_MAGIC:
  202. pause
  203. put prep gauge flow 5
  204. pause 25
  205. send cast
  206. pause 5
  207.  
  208. RESEARCHM:
  209. put research fund 60
  210. match researchM there is still more to learn
  211. match DONE Breakthrough!
  212. matchwait
  213.  
  214.  
  215. RESEARCH_UTILITY:
  216. pause
  217. put prep gauge flow 5
  218. pause 25
  219. send cast
  220. pause 5
  221.  
  222. RESEARCHU:
  223. put research Utility 60
  224. match researchU there is still more to learn
  225. match DONE Breakthrough!
  226. matchwait
  227.  
  228. COLLECT:
  229. pause 0.25
  230. send stand
  231. pause 0.25
  232. send kick pile
  233. pause 0.25
  234. put collect rock
  235. pause 1
  236. goto CHECK_IF_DONE
  237.  
  238. CHECK_IF_DONE:
  239. put kick pile
  240. match COLLECT EXP HELP
  241. match DONE mind lock
  242. put exp outdoorsmanship
  243. matchwait
  244.  
  245. APP:
  246. pause 0.25
  247. send app my bun
  248. pause
  249. send app my gem po
  250. pause
  251. goto start
  252.  
  253. HUNT:
  254. pause 0.25
  255. send hunt
  256. pause
  257. goto start
  258.  
  259.  
  260. PLAY:
  261. pause 0.25
  262. send rem my zill
  263. pause 0.25
  264. send shake my zill
  265. pause 0.25
  266. send get my cloth
  267. pause 0.25
  268. send clean my zil with my cloth
  269. pause
  270. send clean my zil with my cloth
  271. pause
  272. send stow cloth
  273. pause 0.5
  274. send wear my zill
  275. pause 0.5
  276. echo checking ranks
  277. if ($Performance.Ranks >= 200) then gosub PLAYB
  278. if ($Performance.Ranks < 200) then gosub PLAYA
  279. send sk perf
  280. pause 0.5
  281. echo it messed up- again
  282.  
  283. PLAYA:
  284. pause 1
  285. echo playa
  286. var topics scales|arpeggios|ditty|folk|ballad|waltz|lullaby|march|jig|lament|wedding|hymn|rumba|polka
  287. eval TopicCount count("%topics","|")
  288. var track 0
  289. eval NextTopic element("%topics", %track)
  290. goto play1
  291.  
  292. PLAYB:
  293. pause 1
  294. echo playb
  295. var topics polka|battle|reel|elegy|serenade|minuet|psalm|dirge|gavotte|tango|tarantella|bolero|nocturne|requiem|fantasia|rondo|aria|sonata|concerto
  296. eval TopicCount count("%topics","|")
  297. var track 0
  298. eval NextTopic element("%topics", %track)
  299. goto play1
  300.  
  301. play1:
  302. echo play1
  303. eval NexttTopic element("%topics", %track)
  304.  
  305. send cast
  306. pause 1
  307. send rel spell
  308. pause 1
  309. put play %NextTopic
  310. match perfect with only the slightest hint of difficulty
  311. match toeasy your skill in your craft showcased
  312. match toeasy on your copper zills
  313. matchwait
  314.  
  315. ##PCHECK:
  316. ##eval NextTopic element("%topics", %track)
  317. ##goto play1
  318.  
  319.  
  320. TOEASY:
  321. pause 0.1
  322. send stop play
  323. pause
  324. if %track = %TopicCount then goto done
  325. eval NextTopic element("%topics", %track)
  326. math track add 1
  327. goto play1
  328.  
  329. PERFECT:
  330. pause
  331. send gaze my sano cry
  332. pause
  333. send hunt
  334. pause 15
  335. send app my gem pouch
  336. pause 15
  337. send app my bundle
  338. pause 15
  339. send app my stick
  340. pause 15
  341. send app my gem pouch
  342. pause 15
  343. send app my bundle
  344. pause 15
  345. send app my stick
  346. pause 15
  347. pause 30
  348. send app my bun
  349. pause 10
  350. goto start
  351.  
  352. SUM:
  353. pause 1
  354. send break my stone scim
  355. pause 1
  356. match DONE 34/34
  357. match ADMIT EXP HELP
  358. send sk sum
  359. matchwait
  360.  
  361.  
  362. ADMIT:
  363. match SUM increasing your proximity
  364. match SUM you feel that you can still gather
  365. match DIS You so heavily embody the Elemental Plane
  366. match DIS Going any further
  367. send SUMMON ADMITTANCE
  368. matchwait
  369.  
  370. DIS:
  371. pause 0.5
  372. send summon weapon
  373. pause 0.5
  374. send break stone scim
  375. pause 0.5
  376. send summon weapon
  377. pause 0.5
  378. send break stone scim
  379. pause 0.5
  380. goto SUM
  381.  
  382. Empathy:
  383. pause 2
  384. send whisper ghimly DORFS
  385. match start2 Whisper what to who
  386. match empstart You whisper to Ghimly
  387. matchwait
  388.  
  389. empstart:
  390. pause 5
  391. send touch vess
  392. pause 5
  393. send touch vess
  394. pause 5
  395. send touch vess
  396. pause 5
  397. send touch vess
  398. pause 5
  399. send touch vess
  400. pause 5
  401. send touch Ghimly
  402. pause 1
  403. send take Ghimly vit
  404. pause 1
  405. send take Ghimly vit
  406. pause 1
  407. send take Ghimly vit
  408. pause 1
  409. send take Ghimly vit
  410. pause 1
  411. send touch vess
  412. pause 5
  413. send touch Ghimly
  414. pause 1
  415. send take Ghimly vit
  416. pause 1
  417. send take Ghimly vit
  418. pause 1
  419. send take Ghimly vit
  420. pause 1
  421. send take Ghimly vit
  422. pause 1
  423. send touch vess
  424. pause 5
  425. send touch Ghimly
  426. pause 1
  427. send take Ghimly vit
  428. pause 1
  429. send take Ghimly vit
  430. pause 1
  431. send take Ghimly vit
  432. pause 1
  433. send take Ghimly vit
  434. pause 1
  435. send touch vess
  436. pause 5
  437. send touch Ghimly
  438. pause 1
  439. send take Ghimly vit
  440. pause 1
  441. send take Ghimly vit
  442. pause 1
  443. send take Ghimly vit
  444. pause 1
  445. send take Ghimly vit
  446. pause 1
  447. send touch vess
  448. pause 5
  449. send touch Ghimly
  450. pause 1
  451. send take Ghimly vit
  452. pause 1
  453. send take Ghimly vit
  454. pause 1
  455. send take Ghimly vit
  456. pause 1
  457. send take Ghimly vit
  458. pause 1
  459. send touch vess
  460. pause 5
  461. send touch Ghimly
  462. pause 1
  463. send take Ghimly vit
  464. pause 1
  465. send take Ghimly vit
  466. pause 1
  467. send take Ghimly vit
  468. pause 1
  469. send take Ghimly vit
  470. pause 1
  471. send touch vess
  472. pause 5
  473. send touch Ghimly
  474. pause 1
  475. send take Ghimly vit
  476. pause 1
  477. send take Ghimly vit
  478. pause 1
  479. send take Ghimly vit
  480. pause 1
  481. send take Ghimly vit
  482. pause 1
  483. send touch vess
  484. pause 5
  485. goto empDONE
  486.  
  487.  
  488. empCHECK11:
  489. if ($Empathy.LearningRate < 33) then {
  490. gosub TAKE
  491. }
  492.  
  493. if ($Empathy.LearningRate >= 33) then {
  494. gosub empDONE
  495. }
  496.  
  497. TAKE:
  498. pause 1
  499.  
  500. if ($health <= 89) then {
  501. send touch Vess
  502. }
  503.  
  504. if ($health >= 90) then {
  505. send take Ghimly vit
  506. }
  507.  
  508. goto empstart
  509.  
  510. empDONE:
  511. send touch vess
  512. pause 2
  513. send whisper Ghimly Locked
  514. pause 5
  515. send touch vess
  516. pause 5
  517. send touch vess
  518. pause 5
  519. send touch vess
  520. pause 5
  521. send touch vess
  522. pause 5
  523. send touch vess
  524. pause 5
  525. send touch vess
  526. pause 5
  527. goto start
  528.  
  529. ASTRO:
  530. pause
  531. gosub clear
  532. pause
  533. send prep cv 5
  534. pause 22
  535. send cast
  536. pause
  537. send prep pg 5
  538. pause 22
  539. send cast
  540. pause
  541. send hunt
  542. pause 2
  543. send perceive moons
  544. pause 2
  545. send predict weather
  546. pause 2
  547. send obs sky
  548. pause 2
  549. send obs sun in the sky
  550. pause 2
  551. send obs moon in the sky
  552. pause 2
  553. send OBSERVE Cobra
  554. pause 2
  555. send OBSERVE Raccoon
  556. pause 2
  557. send OBSERVE Ram
  558. pause 2
  559. send OBSERVE Heart
  560. pause 2
  561. send OBSERVE Raven
  562. pause 2
  563. send OBSERVE Wolf
  564. pause 2
  565. send OBSERVE Mongoose
  566. pause 2
  567. send OBSERVE Heron
  568. pause 2
  569. send OBSERVE Dove
  570. pause 2
  571. send OBSERVE Magpie
  572. pause 2
  573. send OBSERVE Toad
  574. pause 2
  575. send OBSERVE Albatross
  576. pause 2
  577. send OBSERVE Cat
  578. pause 2
  579. send OBSERVE Wolverine
  580. pause 2
  581. send OBSERVE Giant
  582. pause 2
  583. send OBSERVE Spider
  584. pause 2
  585. send predict anal
  586. pause 2
  587. send perceive mana
  588. pause 2
  589. send perc xibar
  590. pause 2
  591. send OBSERVE xibar
  592. pause 2
  593. send align lore app
  594. pause 2
  595. send predict future Gizban
  596. pause 2
  597. send predic ana
  598. pause 2
  599. send perc Katamba
  600. pause 2
  601. send OBSERVE katamba
  602. pause 2
  603. send align magic
  604. pause 2
  605. send predict future Gizban
  606. pause 2
  607. send predic ana
  608. pause 2
  609. send perc Yavash
  610. pause 2
  611. send OBSERVE yavash
  612. pause 2
  613. send align lore app
  614. pause 2
  615. send predict future Gizban
  616. pause 2
  617. send predic ana
  618. pause 2
  619. send perc
  620. pause 2
  621. send align Offense
  622. pause 2
  623. send predict future Gizban
  624. pause 2
  625. send predic ana
  626. pause 2
  627. send align Defense
  628. pause 2
  629. send predict future Gizban
  630. pause 2
  631. send predic ana
  632. pause 2
  633. send align Survival
  634. pause 2
  635. send predict future Gizban
  636. pause 2
  637. send predic ana
  638. pause 2
  639. send align magic astro
  640. pause 2
  641. send predict future Gizban
  642. pause 2
  643. send predic ana
  644. pause 2
  645. send pow
  646. pause 2
  647. goto start
  648.  
  649.  
  650. BBRAID:
  651. pause 1
  652. send rem my glove
  653. pause 1
  654. send stow my gloves
  655. pause 1
  656. var forage grass
  657. var trash log
  658. var loop 0
  659.  
  660. action goto EXIT when ^You survey the area and realize that any foraging efforts would be futile\.
  661.  
  662. if ("$righthand" != "Empty") then send stow right
  663. if ("$lefthand" != "Empty") then send stow left
  664. pause 0.1
  665. pause 0.2
  666.  
  667. LOOP:
  668. math loop add 1
  669. if (%loop > 20) then goto DONE
  670. if ($Mechanical_Lore.LearningRate) > 20 then goto DONE
  671. if contains("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then GOSUB KICK.PILE
  672. if contains("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then GOSUB KICK.PILE
  673. pause 0.1
  674. if ("$righthandnoun" = "%forage") && ("$lefthandnoun" = "%forage") then goto BRAID
  675. if ("$righthand" != "Empty") then send empty right
  676. if ("$lefthand" != "Empty") then send empty left
  677. if ("$zoneid" = "150" && "$roomid" != "45") then gosub automove 45
  678. put forage %forage
  679. pause 2
  680. pause
  681.  
  682. FORAGE:
  683. if ("$lefthand" = "braided vines") then put swap
  684. if ("$lefthand" = "braided grass") then put swap
  685. pause 0.2
  686. if ("$charactername" = "Shroom") && ("$zoneid" = "150") then goto FEEDBAG
  687. pause 0.001
  688. if ("%forage" = "grass") then
  689. {
  690. if contains("$roomobjs","some grass") then
  691. {
  692. put get grass
  693. pause 0.5
  694. goto BRAID
  695. }
  696. }
  697. if ("%forage" = "vine") then
  698. {
  699. if contains("$roomobjs","a vine") then
  700. {
  701. put get vine
  702. pause 0.5
  703. goto BRAID
  704. }
  705. }
  706. put forage %forage
  707. pause 2
  708. pause
  709. if ("$righthand" != "Empty") && ("$lefthand" != "Empty") then goto BRAID
  710. goto FORAGE
  711.  
  712. FEEDBAG:
  713. pause 0.2
  714. if ("$righthand" != "Empty") && ("$lefthand" != "Empty") then goto BRAID
  715. matchre FEEDBAG ^You get
  716. matchre EMPTYBAG ^What were|^I could not
  717. put get grass from my feedb
  718. matchwait
  719. HUM:
  720. send stop hum
  721. pause 0.2
  722. BRAID:
  723. pause 0.1
  724. if ("$lefthand" = "braided vines") then put swap
  725. if ("$lefthand" = "braided grass") then put swap
  726. if ($Mechanical_Lore.LearningRate) > 31 then goto DONE
  727. pause 0.3
  728. if ("$lefthand" = "Empty") then goto FORAGE
  729. matchre HUM ^But that would give away your hiding
  730. matchre FORAGE ^You need to have more material
  731. matchre DUMP ^You need both hands to do that|nothing more than wasted effort
  732. matchre PULL ^You fumble around trying|^You are certain that you have made a|is already as long
  733. matchre BRAID Roundtime|^\.\.\.wait|^Sorry
  734. send braid my %forage
  735. matchwait
  736.  
  737. PULL:
  738. pause .5
  739. put pull my braided %forage
  740. pause
  741.  
  742. DUMP:
  743. pause 0.2
  744. pause 0.1
  745. if matchre("$roomobjs", "trash receptacle") then var trash receptacle
  746. if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket|a bucket") then var trash bucket
  747. if matchre("$roomobjs", "a large stone turtle") then var trash turtle
  748. if matchre("$roomobjs", "a tree hollow") then var trash hollow
  749. if matchre("$roomobjs", "an oak crate") then var trash crate
  750. if matchre("$roomobjs", "a driftwood log") then var trash log
  751. if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var trash bin
  752. if matchre("$roomobjs", "ivory urn") then var trash urn
  753. if matchre("$roomobjs", "a bottomless pit") then var trash pit
  754. if matchre("$roomname", "^\[Garden Rooftop, Medical Pavilion\]") then var trash gutter
  755. pause 0.3
  756. if matchre("$righthand","(grass|vine|rope)") then put put my $1 in %trash
  757. if matchre("$lefthand","(grass|vine|rope)") then put put my $1 in %trash
  758. pause 0.5
  759. pause 0.2
  760. if contains("$righthand","(grass|vine|rope)") then put drop my $righthand
  761. if contains("$lefthand","(grass|vine|rope)") then put drop my $lefthand
  762. pause 0.4
  763. pause 0.5
  764. if ("$righthand" != "Empty") then put stow right
  765. if ("$lefthand" != "Empty") then put stow left
  766. pause 0.2
  767. send dump junk
  768. pause .1
  769. goto LOOP
  770.  
  771. EMPTYBAG:
  772. echo **** FEEDBAG IS EMPTY! ATTEMPTING TO REFILL!!
  773. put put grass in my feed
  774. pause 0.5
  775. if ("$zoneid" = "150") && ("$roomid" != "44") then gosub automove 44
  776. # if ("$zoneid" = "150") && ("$roomid" = "85") then put go portal
  777. # pause
  778. # pause 0.5
  779. # if ("$zoneid" = "66") then gosub automove campfire
  780. FEEDBAG.COLLECT:
  781. pause 0.5
  782. put collect grass
  783. pause 2
  784. pause
  785. if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
  786. put get grass
  787. pause 0.5
  788. put put grass in my feedbag
  789. pause 0.3
  790. put get grass
  791. pause 0.5
  792. put put grass in my feedbag
  793. pause 0.3
  794. put get grass
  795. pause 0.5
  796. put put grass in my feedbag
  797. pause 0.3
  798. if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
  799. put get grass
  800. pause 0.5
  801. put put grass in my feedbag
  802. pause 0.1
  803. put get grass
  804. pause 0.5
  805. put put grass in my feedbag
  806. pause 0.3
  807. put get grass
  808. pause 0.5
  809. put put grass in my feedbag
  810. pause 0.3
  811. if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
  812. put get grass
  813. pause 0.5
  814. put put grass in my feedbag
  815. pause 0.3
  816. pause 0.3
  817. put get grass
  818. pause 0.5
  819. put put grass in my feedbag
  820. pause 0.3
  821. pause 0.3
  822. put get grass
  823. pause 0.5
  824. put put grass in my feedbag
  825. pause 0.3
  826. pause 0.3
  827. if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
  828. put get grass
  829. pause 0.5
  830. put put grass in my feedbag
  831. pause 0.3
  832. if !contains("$roomobjs","pile of grass") then goto FEEDBAG.COLLECT
  833. put get grass
  834. pause 0.5
  835. put put grass in my feedbag
  836. pause 0.3
  837. pause 0.3
  838. if !contains("$roomobjs","pile of grass") then goto LOOP
  839. put get grass
  840. pause 0.5
  841. put put grass in my feedbag
  842. pause 0.3
  843. pause 0.3
  844. if !contains("$roomobjs","pile of grass") then goto LOOP
  845. put get grass
  846. pause 0.5
  847. put put grass in my feedbag
  848. pause 0.3
  849. pause 0.3
  850. if !contains("$roomobjs","pile of grass") then goto LOOP
  851. put get grass
  852. pause 0.5
  853. put put grass in my feedbag
  854. pause 0.3
  855. pause 0.3
  856. if !contains("$roomobjs","pile of grass") then goto LOOP
  857. put get grass
  858. pause 0.5
  859. put put grass in my feedbag
  860. pause 0.3
  861. pause 0.3
  862. if !contains("$roomobjs","pile of grass") then goto LOOP
  863. put get grass
  864. pause 0.5
  865. put put grass in my feedbag
  866. pause 0.3
  867. pause 0.3
  868. gosub automove 45
  869. goto LOOP
  870.  
  871. DONE:
  872. pause 0.5
  873. send put my grass in bin
  874. pause 0.5
  875. send put my grass in bin
  876. pause 0.5
  877. send get my gloves
  878. pause
  879. send wear my gloves
  880. pause
  881. send pathway stop
  882. pause 0.5
  883. send stand
  884. pause 0.5
  885. send break stone scim
  886. pause 0.5
  887. goto start
  888. pause 0.1
  889. pause 0.1
  890. EXIT:
  891. if matchre("$roomobjs", "trash receptacle") then var trash receptacle
  892. if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket|a bucket") then var trash bucket
  893. if matchre("$roomobjs", "a large stone turtle") then var trash turtle
  894. if matchre("$roomobjs", "a tree hollow") then var trash hollow
  895. if matchre("$roomobjs", "an oak crate") then var trash crate
  896. if matchre("$roomobjs", "a driftwood log") then var trash log
  897. if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var trash bin
  898. if matchre("$roomobjs", "ivory urn") then var trash urn
  899. if matchre("$roomobjs", "a bottomless pit") then var trash pit
  900. if matchre("$roomname", "^\[Garden Rooftop, Medical Pavilion\]") then var trash gutter
  901. pause 0.3
  902. if matchre("$righthand","(grass|vine|rope)") then put put my $1 in %trash
  903. if matchre("$lefthand","(grass|vine|rope)") then put put my $1 in %trash
  904. pause 0.5
  905. pause 0.2
  906. if contains("$righthand","(grass|vine|rope)") then put drop my $righthand
  907. if contains("$lefthand","(grass|vine|rope)") then put drop my $lefthand
  908. pause 0.4
  909. pause 0.5
  910. send put my grass in bin
  911. pause 0.5
  912. send put my grass in bin
  913. pause 0.5
  914. if "$righthand" != "Empty" then put empty right
  915. if "$lefthand" != "Empty" then put empty left
  916. pause 0.5
  917. put #parse DONE BRAIDING
  918. put #parse BRAIDING DONE
  919. goto start
  920.  
  921. KICK.PILE:
  922. pause 0.1
  923. if !matchre("$roomobjs","(pile of coins|pile of coin|pile of rocks|pile of grass)") then RETURN
  924. matchre RETURN ^I could not|^What were you
  925. matchre KICK.PILE foot smashing down
  926. matchre sSTAND ^You can't do that from your position
  927. match DELAY footing at the last moment
  928. put kick pile
  929. matchwait 20
  930. goto FORAGE.EXP
  931.  
  932. sSTAND:
  933. put stand
  934. goto KICK.PILE
  935.  
  936. DELAY:
  937. pause 11
  938. put stand
  939. goto KICK.PILE
  940.  
  941. Thief:
  942. send khri check
  943. pause 1
  944. send sit
  945. pause 0.5
  946. send khri delay Plunder
  947. pause 10
  948. send khri delay Darken
  949. pause 10
  950. send khri delay Hasten
  951. pause 10
  952. send khri delay Focus
  953. pause 10
  954. send khri delay Prowess
  955. pause 10
  956. send khri medit
  957. pause 10
  958. send khri medit
  959. pause 10
  960. send khri medit
  961. pause 10
  962. send khri medit
  963. pause 10
  964. send khri medit
  965. pause 10
  966. send khri medit
  967. pause 10
  968. send khri medit
  969. pause 10
  970. send khri medit
  971. pause 10
  972. send khri medit
  973. pause 10
  974. send stand
  975. pause 1
  976.  
  977. if ($Athletics.LearningRate < 20) then {
  978. gosub Climb
  979. }
  980.  
  981. pause 1
  982. if ($Outdoorsmanship.LearningRate < 20) then {
  983. gosub collect
  984. }
  985.  
  986. pause 1
  987. if ($Mechanical_Lore.LearningRate < 18) then {
  988. gosub BBRAID
  989. }
  990.  
  991. pause 1
  992. if ($Performance.LearningRate < 20) then {
  993. gosub play
  994. }
  995.  
  996. goto start
  997.  
  998. CRUSH:
  999. pause 0.5
  1000. gosub clear
  1001. pause 0.5
  1002. send get my mort
  1003. pause 0.5
  1004. goto forage1
  1005.  
  1006. forage1:
  1007. pause 1
  1008. gosub clear
  1009. pause 1
  1010. #if ($Outdoorsmanship.LearningRate < 20) then {
  1011. # gosub crush1
  1012. #}
  1013. #
  1014. #pause 1
  1015. #if ($Outdoorsmanship.LearningRate > 30) then {
  1016. # gosub start
  1017. #}
  1018.  
  1019. pause 1
  1020. goto crush1
  1021.  
  1022.  
  1023. CRUSH1:
  1024. match loadmort You manage to find some blue flowers
  1025. match forage1 Roundtime
  1026. send forage blue flower
  1027. matchwait
  1028.  
  1029.  
  1030. loadmort:
  1031. send put my blue flower in my mort
  1032. pause 1
  1033. send get my pes
  1034. pause 1
  1035. goto crush2
  1036.  
  1037. CRUSH2:
  1038. pause 1
  1039. match unload You stop, realizing that type of plant
  1040. match unload You complete crushing
  1041. match crush2 Roundtime
  1042. send crush my blue flower with my pes
  1043. matchwait
  1044.  
  1045. UNLOAD:
  1046. pause 1
  1047. send stow pestle
  1048. pause 1
  1049. send get flow from my mort
  1050. pause 1
  1051. send put my flow in bin
  1052. pause 1
  1053. send drop my flower
  1054. pause 1
  1055. send dump junk
  1056. pause 1
  1057. send app my gem pouch
  1058. pause 1
  1059.  
  1060. if ($Alchemy.LearningRate > 20) then {
  1061. gosub alchDone
  1062. }
  1063.  
  1064. pause 1
  1065. if ($Alchemy.LearningRate < 30) then {
  1066. gosub forage1
  1067. }
  1068.  
  1069. alchDONE:
  1070. send get my flower from mort
  1071. pause 0.5
  1072. send put my flower in bin
  1073. pause 0.5
  1074. send stow my mort
  1075. pause 1
  1076. goto start
  1077.  
  1078.  
  1079. CLIMB1:
  1080. # Climb Crossing Walls
  1081. # Based from original SF Script created by the player of Kraelyst
  1082. # Modified and made to work with Genie3 by Pelic and Shroom
  1083. # Note - Known bug, sometimes stalls out between 100-180 ranks on the E gate wall. Outside of those ranks it never seems to happen.
  1084. debuglevel 5
  1085.  
  1086. action goto WTF.WAIT when All this climbing back and forth is getting a bit tiresome
  1087.  
  1088. CRO.CLIMB:
  1089. if $Athletics.LearningRate >= 29 then goto QUIT
  1090. counter set 0
  1091.  
  1092. CLIMB.EXP:
  1093. if $Athletics.LearningRate > 27 then goto QUIT
  1094. else
  1095. goto CLIMB
  1096.  
  1097. CLIMB:
  1098. startclimb:
  1099. if "$roomid" != "42" then gosub automove 42
  1100. pause 0.7
  1101. counter add 1
  1102. ECHO
  1103. ECHO *** STARTING CLIMBING SESSION %c ***
  1104. ECHO
  1105. pause 0.1
  1106. put set roomname
  1107. wait
  1108. CLIMBGO:
  1109. gosub move NORTHWEST
  1110. gosub move NORTH
  1111. gosub move NORTH
  1112. gosub move NORTH
  1113. gosub move NORTH
  1114. gosub move NORTH
  1115. gosub move NORTH
  1116. gosub move EAST
  1117. gosub move EAST
  1118. gosub move NORTH
  1119. gosub move EAST
  1120. gosub move EAST
  1121. gosub move NORTH
  1122. gosub move NORTH
  1123. gosub move EAST
  1124. gosub move go stair
  1125. gosub move SOUTH
  1126.  
  1127. CLIMB-001:
  1128. SAVE FAIL-001
  1129. if ($stamina < 70) then gosub FATIGUE_WAIT
  1130. matchre CLIMB-001 /\.\.\.wait|type ahead/i
  1131. match PASS-001 [Outside East Wall, Footpath]
  1132. matchre FAIL-001 This climb is|You finish practicing|You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1133. match FALLEN slip after a few feet
  1134. put climb break
  1135. matchwait
  1136.  
  1137. PASS-001:
  1138. pause 0.2
  1139. gosub move NORTH
  1140. gosub move go gate
  1141. gosub move WEST
  1142. gosub move go stair
  1143. gosub move SOUTH
  1144. goto CLIMB-002
  1145.  
  1146. FAIL-001:
  1147. pause 0.5
  1148. goto CLIMB-002
  1149.  
  1150. CLIMB-002:
  1151. SAVE FAIL-002
  1152. if ($stamina < 70) then gosub FATIGUE_WAIT
  1153. matchre CLIMB-002 /\.\.\.wait|type ahead/i
  1154. match PASS-002 [Northeast Wilds, Outside Northeast Gate]
  1155. matchre FAIL-002 This climb is|You finish practicing|You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1156. match FALLEN slip after a few feet
  1157. put climb embrasure
  1158. matchwait
  1159.  
  1160. FAIL-002:
  1161. pause 0.1
  1162. gosub move n
  1163. gosub move go stair
  1164. gosub move e
  1165. gosub move go gate
  1166. PASS-002:
  1167. gosub move go footpath
  1168. goto CLIMB-01
  1169.  
  1170. CLIMB-01:
  1171. if $Athletics.LearningRate > 33 then goto endearly
  1172. if ($stamina < 60) then gosub FATIGUE_WAIT
  1173. SAVE FAIL-01
  1174. matchre CLIMB-01 /\.\.\.wait|type ahead/i
  1175. match PASS-01 [Crossing,
  1176. matchre FAIL-01 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1177. match FALLEN slip after a few feet
  1178. put app wall quick
  1179. pause
  1180. pause
  1181. put climb wall
  1182. matchwait
  1183.  
  1184. PASS-01:
  1185. gosub move n
  1186. gosub move go stair
  1187. gosub move e
  1188. gosub move go gate
  1189. gosub move go footpath
  1190. goto FAIL-01
  1191.  
  1192. FAIL-01:
  1193. gosub move s
  1194. gosub move down
  1195. gosub move s
  1196. gosub move s
  1197. gosub move sw
  1198. goto CLIMB-02
  1199.  
  1200. CLIMB-02:
  1201. if $Athletics.LearningRate > 33 then goto endearly
  1202. if ($stamina < 60) then gosub FATIGUE_WAIT
  1203. SAVE FAIL-02
  1204. matchre RETREAT You are engaged|You cannot
  1205. matchre CLIMB-02 /\.\.\.wait|type ahead/i
  1206. match PASS-02 [Crossing,
  1207. matchre FAIL-02 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1208. match FALLEN slip after a few feet
  1209. put climb wall
  1210. matchwait
  1211.  
  1212. PASS-02:
  1213. gosub move s
  1214. gosub move go stair
  1215. gosub move go gate
  1216. gosub move go bush
  1217. gosub move n
  1218. goto CLIMB-03
  1219.  
  1220. FAIL-02:
  1221. gosub move s
  1222. goto CLIMB-03
  1223.  
  1224. CLIMB-03:
  1225. if $Athletics.LearningRate > 33 then goto endearly
  1226. if ($stamina < 60) then gosub FATIGUE_WAIT
  1227. SAVE FAIL-03
  1228. matchre RETREAT You are engaged|You cannot
  1229. matchre CLIMB-03 /\.\.\.wait|type ahead/i
  1230. match PASS-041 [Crossing, East Wall Battlements]
  1231. match PASS-03 [Crossing,
  1232. matchre FAIL-03 You continue|This climb is|You finish practicing|You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1233. match FALLEN slip after a few feet
  1234. put climb wall
  1235. matchwait
  1236.  
  1237. PASS-03:
  1238. gosub stand
  1239. gosub move s
  1240. gosub move go stair
  1241. gosub move go gate
  1242. goto CLIMB-04
  1243.  
  1244. FAIL-03:
  1245. gosub move s
  1246. goto CLIMB-04
  1247.  
  1248. CLIMB-04:
  1249. if $Athletics.LearningRate > 33 then goto endearly
  1250. if ($stamina < 60) then gosub FATIGUE_WAIT
  1251. SAVE FAIL-04
  1252. matchre RETREAT You are engaged|You cannot
  1253. matchre FALLEN You start up the wall
  1254. matchre FAIL-04 You finish|You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1255. matchre CLIMB-04 /\.\.\.wait|type ahead/i
  1256. matchre PASS-041 [Crossing, East Gate Battlements]
  1257. # matchre PASS-04 [Crossing, East Gate Battlements]
  1258. put climb wall
  1259. matchwait
  1260.  
  1261. FAIL-04:
  1262. if ($stamina < 60) then gosub FATIGUE_WAIT
  1263. SAVE FAIL-04
  1264. matchre RETREAT You are engaged|You cannot
  1265. matchre FALLEN You start up the wall
  1266. matchre FAIL-04 You finish|You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1267. matchre FAIL-04 /\.\.\.wait|type ahead/i
  1268. matchre FAIL-041 ^What were you|^I could not
  1269. matchre FAIL-042 [The Crossing, Eastern Gate]
  1270. matchre FAIL-042 Obvious
  1271. put go gate
  1272. matchwait 7
  1273. FAIL-041:
  1274. gosub move s
  1275. goto FAIL-04
  1276. FAIL-042:
  1277. gosub move go stair
  1278. goto CLIMB-05
  1279. PASS-041:
  1280. gosub move s
  1281. goto CLIMB-05
  1282. PASS-04:
  1283. goto CLIMB-05
  1284.  
  1285. CLIMB-05:
  1286. if $Athletics.LearningRate > 33 then goto endearly
  1287. if ($stamina < 50) then gosub FATIGUE_WAIT
  1288. SAVE FAIL-05
  1289. match PASS-05 [Eastern Tier, Outside Gate]
  1290. match PASS-052 [Outside East Wall, Footpath]
  1291. matchre FAIL-05 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1292. match FALLEN slip after a few feet
  1293. put climb embrasure
  1294. matchwait
  1295.  
  1296. PASS-052:
  1297. gosub move s
  1298. gosub move s
  1299.  
  1300. PASS-05:
  1301. gosub move go gate
  1302. gosub move go stair
  1303. FAIL-05:
  1304. gosub move n
  1305. goto CLIMB-06
  1306.  
  1307. CLIMB-06:
  1308. if $Athletics.LearningRate > 33 then goto endearly
  1309. if ($stamina < 50) then gosub FATIGUE_WAIT
  1310. SAVE FAIL-06
  1311. matchre RETREAT You are engaged|You cannot
  1312. matchre CLIMB-06 /\.\.\.wait|type ahead/i
  1313. match PASS-06 [Outside East Wall, Footpath]
  1314. matchre FAIL-06 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1315. match FALLEN slip after a few feet
  1316. put climb break
  1317. matchwait
  1318.  
  1319. PASS-06:
  1320. gosub move s
  1321. gosub move go gate
  1322. gosub move go stair
  1323. gosub move n
  1324. goto CLIMB-07
  1325.  
  1326. FAIL-06:
  1327. goto CLIMB-07
  1328.  
  1329. CLIMB-07:
  1330. if $Athletics.LearningRate > 33 then goto endearly
  1331. if ($stamina < 50) then gosub FATIGUE_WAIT
  1332. SAVE FAIL-07
  1333. matchre RETREAT You are engraged|You cannot
  1334. matchre CLIMB-07 /\.\.\.wait|type ahead/i
  1335. match PASS-07 [Outside East Wall, Footpath]
  1336. matchre FAIL-07 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1337. match FALLEN slip after a few feet
  1338. put app emb quick
  1339. pause
  1340. pause
  1341. put climb embrasure
  1342. matchwait
  1343.  
  1344. PASS-07:
  1345. gosub move s
  1346. gosub move s
  1347. gosub move go gate
  1348. goto TRAVEL-08
  1349.  
  1350. FAIL-07:
  1351. gosub move s
  1352. gosub move go stair
  1353. goto TRAVEL-08
  1354.  
  1355. TRAVEL-08:
  1356. gosub move w
  1357. gosub move w
  1358. gosub move w
  1359. gosub move w
  1360. gosub move nw
  1361. gosub move n
  1362. gosub move n
  1363. gosub move n
  1364. gosub move n
  1365. gosub move n
  1366. gosub move n
  1367. gosub move w
  1368. gosub move w
  1369. gosub move w
  1370. gosub move w
  1371. gosub move go bridge
  1372. gosub move w
  1373. gosub move w
  1374. gosub move w
  1375. gosub move w
  1376. gosub move go stair
  1377. gosub move s
  1378.  
  1379. CLIMB-08:
  1380. if $Athletics.LearningRate > 33 then goto endearly
  1381. if ($stamina < 50) then gosub FATIGUE_WAIT
  1382. SAVE FAIL-08
  1383. matchre RETREAT You are engaged|You cannot
  1384. matchre CLIMB-08 /\.\.\.wait|type ahead/i
  1385. match PASS-08 [Mycthengelde, Flatlands]
  1386. matchre FAIL-08 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1387. match FALLEN slip after a few feet
  1388. put climb embrasure
  1389. matchwait
  1390.  
  1391. PASS-08:
  1392. goto CLIMB-09
  1393.  
  1394. FAIL-08:
  1395. gosub move n
  1396. gosub move go stair
  1397. gosub move go gate
  1398. gosub move nw
  1399. goto CLIMB-09
  1400.  
  1401. CLIMB-09:
  1402. if $Athletics.LearningRate > 33 then goto endearly
  1403. if ($stamina < 50) then gosub FATIGUE_WAIT
  1404. SAVE FAIL-09
  1405. matchre RETREAT You are engaged|You cannot
  1406. matchre CLIMB-09 /\.\.\.wait|type ahead/i
  1407. match PASS-09 [Crossing, West Wall Battlements]
  1408. matchre FAIL-09 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1409. match FALLEN slip after a few feet
  1410. put climb wall
  1411. matchwait
  1412.  
  1413. PASS-09:
  1414. gosub move n
  1415. goto CLIMB-10
  1416.  
  1417. FAIL-09:
  1418. gosub move se
  1419. gosub move go gate
  1420. gosub move go stair
  1421. goto CLIMB-10
  1422.  
  1423. CLIMB-10:
  1424. if $Athletics.LearningRate > 33 then goto endearly
  1425. if ($stamina < 50) then gosub FATIGUE_WAIT
  1426. SAVE FAIL-10
  1427. matchre RETREAT You are engaged|You cannot
  1428. matchre CLIMB-10 /\.\.\.wait|type ahead/i
  1429. match PASS-10 [Mycthengelde, Flatlands]
  1430. matchre FAIL-10 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1431. match FALLEN slip after a few feet
  1432. put climb embrasure
  1433. matchwait
  1434.  
  1435. PASS-10:
  1436. gosub move go gate
  1437. gosub move go stair
  1438. FAIL-10:
  1439. gosub move e
  1440. goto CLIMB-11
  1441.  
  1442. CLIMB-11:
  1443. if $Athletics.LearningRate > 33 then goto endearly
  1444. if ($stamina < 50) then gosub FATIGUE_WAIT
  1445. SAVE FAIL-11
  1446. matchre RETREAT You are engaged|You cannot
  1447. matchre CLIMB-11 /\.\.\.wait|type ahead/i
  1448. match PASS-11 [Northwall Trail, Wooded Grove]
  1449. matchre FAIL-11 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1450. match FALLEN slip after a few feet
  1451. put climb break
  1452. matchwait
  1453.  
  1454. PASS-11:
  1455. gosub move s
  1456. gosub move go gate
  1457. gosub move go stair
  1458. gosub move e
  1459. goto CLIMB-12
  1460.  
  1461. FAIL-11:
  1462. pause
  1463. goto CLIMB-12
  1464.  
  1465. CLIMB-12:
  1466. if $Athletics.LearningRate > 33 then goto endearly
  1467. if ($stamina < 50) then gosub FATIGUE_WAIT
  1468. SAVE FAIL-12
  1469. matchre RETREAT You are engaged|You cannot
  1470. matchre CLIMB-12 /\.\.\.wait|type ahead/i
  1471. match PASS-12 [Northwall Trail, Wooded Grove]
  1472. matchre FAIL-12 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1473. match FALLEN slip after a few feet
  1474. put climb embrasure
  1475. matchwait
  1476.  
  1477. PASS-12:
  1478. goto CLIMB-13
  1479.  
  1480. FAIL-12:
  1481. gosub move w
  1482. gosub move go stair
  1483. gosub move go gate
  1484. gosub move go trail
  1485. gosub move ne
  1486. goto CLIMB-13
  1487.  
  1488. CLIMB-13:
  1489. if $Athletics.LearningRate > 33 then goto endearly
  1490. if ($stamina < 50) then gosub FATIGUE_WAIT
  1491. SAVE FAIL-13
  1492. matchre RETREAT You are engaged|You cannot
  1493. matchre CLIMB-13 /\.\.\.wait|type ahead/i
  1494. match PASS-13 [Crossing, North Wall Battlements]
  1495. matchre FAIL-13 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1496. match FALLEN slip after a few feet
  1497. put climb wall
  1498. matchwait
  1499.  
  1500. PASS-13:
  1501. gosub move w
  1502. gosub move go stair
  1503. gosub move go gate
  1504. gosub move go trail
  1505. goto CLIMB-14
  1506.  
  1507. FAIL-13:
  1508. gosub move sw
  1509. goto CLIMB-14
  1510.  
  1511. CLIMB-14:
  1512. if $Athletics.LearningRate > 33 then goto endearly
  1513. if ($stamina < 50) then gosub FATIGUE_WAIT
  1514. SAVE FAIL-14
  1515. matchre RETREAT You are engaged|You cannot
  1516. matchre CLIMB-14 /\.\.\.wait|type ahead/i
  1517. match PASS-14 [Crossing, North Wall Battlements]
  1518. matchre FAIL-14 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1519. match FALLEN slip after a few feet
  1520. put climb wall
  1521. matchwait
  1522.  
  1523. PASS-14:
  1524. gosub move w
  1525. gosub move go stair
  1526. gosub move go gate
  1527. goto CLIMB-15
  1528.  
  1529. FAIL-14:
  1530. gosub move s
  1531. goto CLIMB-15
  1532.  
  1533. CLIMB-15:
  1534. if $Athletics.LearningRate > 33 then goto endearly
  1535. if ($stamina < 50) then gosub FATIGUE_WAIT
  1536. SAVE FAIL-15
  1537. matchre RETREAT You are engaged|You cannot
  1538. matchre CLIMB-15 /\.\.\.wait|type ahead/i
  1539. match PASS-15 [Crossing, West Gate Battlements]
  1540. matchre FAIL-15 You must be standing|steepness is intimidating|can't seem to find purchase|find it hard going|your footing is questionable|A wave of dizziness hits you|Struck by vertigo
  1541. match FALLEN slip after a few feet
  1542. put climb wall
  1543. matchwait
  1544.  
  1545. PASS-15:
  1546. gosub move go stair
  1547. goto TRAVEL-15
  1548.  
  1549. FAIL-15:
  1550. gosub move go gate
  1551. goto TRAVEL-15
  1552.  
  1553. TRAVEL-15:
  1554. pause 0.5
  1555. gosub move e
  1556. gosub move e
  1557. gosub move e
  1558. gosub move e
  1559. gosub move e
  1560. gosub move e
  1561. gosub move e
  1562. gosub move e
  1563. gosub move e
  1564. gosub move s
  1565. gosub move s
  1566. gosub move s
  1567. gosub move s
  1568. gosub move s
  1569. gosub move s
  1570. gosub move se
  1571. goto CLIMB.EXP
  1572.  
  1573. WTF.WAIT:
  1574. echo
  1575. echo *** YOU ARE GOING TOO FAST!
  1576. echo *** ADD A FEW APPRAISALS IN TO BREAK UP YOUR CLIMBING
  1577. echo
  1578. pause 6
  1579. goto %s
  1580.  
  1581. FATIGUE_WAIT:
  1582. echo
  1583. echo *** PAUSING TO RESTORE FATIGUE... ***
  1584. echo
  1585. if ($stamina >= 95) then return
  1586. pause 5
  1587. goto FATIGUE_WAIT
  1588.  
  1589. #======================
  1590.  
  1591. stand:
  1592. if $standing = 0 then put stand
  1593. if $standing = 0 then put dance
  1594. return
  1595.  
  1596. FALLEN:
  1597. pause
  1598. matchre STOOD You stand|You are already standing
  1599. matchre FALLEN cannot manage to stand|The weight of all your possessions
  1600. matchre FALLEN ^\.\.\.wait|^Sorry, you may only type
  1601. put stand
  1602. matchwait
  1603.  
  1604. STOOD:
  1605. goto %s
  1606.  
  1607. QUIT:
  1608. echo
  1609. echo *** DONE! ***
  1610. echo
  1611. pause 0.5
  1612. echo
  1613. echo
  1614. put #echo >Log Lime *** Climbed Xing walls %c times to $Athletics.LearningRate / 34***
  1615. pause
  1616. put #parse DONE CLIMBING
  1617. put #parse DONE CLIMBING!
  1618. put #parse CLIMBING DONE
  1619. put #parse CLIMBING LOCKED
  1620. pause 0.5
  1621. put glance
  1622. goto start
  1623.  
  1624. RETREAT:
  1625. put ret
  1626. put ret
  1627. pause
  1628. goto %S
  1629.  
  1630. RETURN:
  1631. pause 0.1
  1632. RETURN
  1633.  
  1634. move:
  1635. var move.direction $0
  1636. moving:
  1637. matchre stand.then.move ^You must be standing to do that\.|^You can't do that while lying down\.|^Stand up first\.
  1638. matchre pause.then.move %retry.command.triggers|^\.\.\.wait
  1639. matchre retreat.from.melee.then.move ^You are engaged to .+ melee range\!|^You try to move, but you're engaged\.
  1640. matchre retreat.from.pole.then.move ^You are engaged to .+ at pole weapon range\!|^While in combat\? You'll have better luck if you first retreat\.
  1641. matchre move.return ^Obvious
  1642. matchre move.error ^You can't go there\.|^You can't swim in that direction\.
  1643. put %move.direction
  1644. matchwait
  1645. stand.then.move:
  1646. gosub stand
  1647. goto moving
  1648. pause.then.move:
  1649. pause .2
  1650. goto moving
  1651. retreat.from.melee.then.move:
  1652. put retreat
  1653. retreat.from.pole.then.move:
  1654. gosub stand
  1655. put retreat
  1656. goto moving
  1657. move.error:
  1658. echo * Bad move direction, will try next command in 1 second. *
  1659. pause 0.5
  1660. put look
  1661. return
  1662. move.return:
  1663. return
  1664.  
  1665. AUTOMOVE:
  1666. delay 0.0001
  1667. var Destination $0
  1668. var automovefailCounter 0
  1669. if (!$standing) then gosub AUTOMOVE_STAND
  1670. if ("$roomid" = "%Destination") then return
  1671. AUTOMOVE_GO:
  1672. delay 0.0001
  1673. matchre AUTOMOVE_FAILED ^(?:AUTOMAPPER )?MOVE(?:MENT)? FAILED
  1674. matchre AUTOMOVE_RETURN ^YOU HAVE ARRIVED(?:\!)?
  1675. matchre AUTOMOVE_RETURN ^SHOP CLOSED(?:\!)?
  1676. matchre AUTOMOVE_FAIL_BAIL ^DESTINATION NOT FOUND
  1677. put #goto %Destination
  1678. matchwait
  1679. AUTOMOVE_STAND:
  1680. pause 0.1
  1681. matchre AUTOMOVE_STAND ^\.\.\.wait|^Sorry\,
  1682. matchre AUTOMOVE_STAND ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
  1683. matchre AUTOMOVE_STAND ^The weight of all your possessions prevents you from standing\.
  1684. matchre AUTOMOVE_STAND ^You are still stunned\.
  1685. matchre AUTOMOVE_RETURN ^You stand(?:\s*back)? up\.
  1686. matchre AUTOMOVE_RETURN ^You are already standing\.
  1687. send stand
  1688. matchwait
  1689. AUTOMOVE_FAILED:
  1690. evalmath automovefailCounter (automovefailCounter + 1)
  1691. if (%automovefailCounter > 5) then goto AUTOMOVE_FAIL_BAIL
  1692. send #mapper reset
  1693. pause 0.5
  1694. pause 0.1
  1695. goto AUTOMOVE_GO
  1696. AUTOMOVE_FAIL_BAIL:
  1697. put #echo
  1698. put #echo >$Log Crimson *** AUTOMOVE FAILED. ***
  1699. put #echo >$Log Destination: %Destination
  1700. put #echo Crimson *** AUTOMOVE FAILED. ***
  1701. put #echo Crimson Destination: %Destination
  1702. put #echo
  1703. exit
  1704. AUTOMOVE_RETURN:
  1705. return
  1706.  
  1707. # autoMove:
  1708. # if "$1" = "$roomid" then return
  1709. # if "$2" = "" then put .move2 $1 $1
  1710. # else if "$2" != "" then put .move2 $1 $2
  1711. # waitforre ^A good|^If you are trying to speak,
  1712. # return
  1713.  
  1714. endearly:
  1715. pause 1
  1716. if $zoneid = 1 then
  1717. {
  1718. goto quit
  1719. }
  1720. if $zoneid = 8 then
  1721. {
  1722. put #goto cross
  1723. waitfor YOU HAVE ARRIVED
  1724. goto quit
  1725. }
  1726. if $zoneid = 6 then
  1727. {
  1728. put #goto 23
  1729. waitfor YOU HAVE ARRIVED
  1730. put #goto 42
  1731. waitfor YOU HAVE ARRIVED
  1732. goto quit
  1733. }
  1734. if $zoneid = 4 then
  1735. {
  1736. put #goto 14
  1737. waitfor YOU HAVE ARRIVED
  1738. goto quit
  1739. }
  1740. if $zoneid = 3 then
  1741. {
  1742. put #goto 15
  1743. waitfor YOU HAVE ARRIVED
  1744. goto quit
  1745. }
  1746. goto quit
Advertisement
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!