API tools faq
paste
Advertisement
0veride

Untitled

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