API tools faq
paste
Guest User

Untitled

a guest
Nov 23rd, 2017
79
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.86 KB | None | 0 0
raw download clone embed print report
  1. debuglevel 5
  2. base script
  3. goto end.of.script
  4. var hum jig
  5.  
  6.  
  7. COMBAT.ACTIONS:
  8. action goto HIDING when eval $stamina < 50
  9. action goto ESCAPE when ESCAPE.PLZ|123456
  10. action goto ESCAPE when eval $health < 75
  11. action goto ESCAPE when eval $bleeding = 1
  12. action goto ESCAPE when ^\[You're.*beat up
  13. action goto ESCAPE when ^\[You're.*very beat up
  14. action goto ESCAPE when ^You are carrying between 400
  15. action goto ESCAPE when ^Feeling depressed\?
  16. action goto STUNNED when ^\[You're.*badly hurt
  17. action goto STUNNED when ^\[You're.*very badly hurt
  18. action goto STUNNED when ^\[You're.*smashed up
  19. action goto STUNNED when ^\[You're.*terribly wounded
  20. action goto STUNNED when ^\[You're.*near death
  21. action goto STUNNED when \[You're.*in death's grasp
  22. action goto DEPART when eval $dead = 1
  23. action goto DEPART when ^Your death cry echoes in your brain
  24. action goto DEPART when ^You feel yourself falling...
  25. action goto DEPART when ^You feel like you're dying!
  26. action goto DEPART when ^You are dead
  27. action goto DEPART when ^The dead can't dance!
  28. action goto DEPART when ^You are a ghost\! You must wait until someone resurrects you, or you decay\.
  29. RETURN
  30.  
  31. HIDING:
  32. pause .3
  33. put .hiding
  34.  
  35.  
  36. retreat:
  37. matchre retreat ^You retreat from combat\.
  38. matchre retreat ^You retreat back to pole range\.
  39. matchre retreat ^You stop advancing
  40. matchre retreat ^You sneak back out
  41. matchre retreat ^You must stand first\.
  42. matchre return ^You are already as far away as you can get\!
  43. matchre return ^You try to
  44. matchre return revealing your hiding place\!
  45. put retreat
  46. return
  47.  
  48. ARMOR.SETUP.1:
  49. var CHEST.ARMOR leathers
  50. var HEAD.ARMOR cowl
  51. var HAND.ARMOR Gloves
  52. var SHIELD buckler
  53. return
  54.  
  55. REMOVE.ARMOR:
  56. pause .1
  57. pause .1
  58. put rem my %HAND.ARMOR
  59. gosub STOW.HAND.ARMOR
  60. pause .5
  61. put rem my %SHIELD
  62. gosub STOW.SHIELD
  63. pause 0.5
  64. put rem my %CHEST.ARMOR
  65. gosub STOW.CHEST.ARMOR
  66. pause 0.2
  67. put rem my %HEAD.ARMOR
  68. gosub STOW.HEAD.ARMOR
  69. wait .3
  70. put put my %HEAD.ARMOR in my bag
  71. pause 0.2
  72. put put my %CHEST.ARMOR in my bag
  73. wait .2
  74. put put my %HAND.ARMOR in my bag
  75. pause .3
  76. put put my %SHIELD in my bag
  77. pause .2
  78. RETURN
  79.  
  80. WEAR.ARMOR:
  81. put get my %SHIELD
  82. wait .3
  83. put wear my %SHIELD
  84. wait
  85. pause 0.5
  86. put get my %CHEST.ARMOR
  87. put wear my %CHEST.ARMOR
  88. wait
  89. pause 0.1
  90. put get my %HEAD.ARMOR
  91. put wear my %HEAD.ARMOR
  92. wait
  93. pause 0.2
  94. put get my %HAND.ARMOR
  95. put wear my %HAND.ARMOR
  96. RETURN
  97.  
  98. STOW.HAND.ARMOR:
  99. PUT Stow %HAND.ARMOR in my backpack
  100. return
  101.  
  102. STOW.SHIELD:
  103. put put my shield in my back
  104. return
  105.  
  106. STOW.CHEST.ARMOR:
  107. Put stow %CHEST.ARMOR in my backpack
  108. return
  109.  
  110. STOW.HEAD.ARMOR:
  111. put stow %HEAD.ARMOR in my backpack
  112. return
  113.  
  114. return:
  115. pause 0.1
  116. RETURN
  117.  
  118.  
  119.  
  120. FAVOR:
  121. put wear my %SHIELD
  122. wait .4
  123. put put my sabre in my harn
  124. wait .3
  125. put put my stiletto in my harn
  126. wait .3
  127. put .crossfav
  128. RETURN
  129.  
  130. EXIT:
  131. Wait 150000
  132. goto Start
  133.  
  134. DEPART:
  135. put depart full
  136. wait 150
  137. put stand
  138. wait 150
  139. put stand
  140. pause .5
  141. put look
  142. if contains("$roomname", "Dirge, Temple Altar") then goto DIRGE.TEMPLE
  143. if contains("$roomname", "Resurrection Creche, Li Stil rae Kwego ia Kweld") then goto CROSS.TEMPLE
  144.  
  145.  
  146. STUNNED:
  147. put #echo >Log Red STUNNED!! Logging out for 5 minutes..
  148. var escape.loop 0
  149. put exit
  150. put exit
  151. put #beep
  152. pause .5
  153. put exit
  154. put #beep
  155. pause .5
  156. put exit
  157. put #beep
  158. action remove connection lost|Socket Error|connection dropped|connection closed|ReceiveCallback Exception|Unable to contact Genie Key server
  159. action goto CONNECTED when You look around, taking a moment to get your bearings.
  160. pause 0.2
  161. put exit
  162. put exit
  163. pause 0.5
  164. pause 0.2
  165. math LOGOUT add 1
  166. echo
  167. echo *** 5 MINUTES LEFT ***
  168. echo
  169. pause 300
  170. echo
  171. echo *** 1 MINUTE LEFT ***
  172. echo
  173. pause 30
  174. echo
  175. echo *** LOGGING BACK IN! BE CAREFUL! ***
  176. echo
  177. goto STUN.CONNECT
  178.  
  179. STUN.CONNECT:
  180. echo *** You have been stunned out. Attempting to reconnect ***
  181. put #echo >Log Red *** Attempting to reconnect after stun ***
  182. action goto STUN.CONNECTED when You look around, taking a moment to get your bearings.
  183. goto stun.connecting
  184.  
  185. STUN.CONNECTING:
  186. put #connect
  187. pause 40
  188. put #echo >Log Red *** FAIL!
  189. goto STUN.CONNECTING
  190.  
  191. STUN.CONNECTED:
  192. Echo *** You have been Reconnected, NOW GO GET HEALED! ***
  193. put #echo >Log Lime *** Reconnected after stun... getting healed.. ***
  194. action goto CONNECT when connection lost|Socket Error|connection dropped|connection closed|ReceiveCallback Exception|Unable to contact Genie Key server|Connect faileded
  195. action remove You look around, taking a moment to get your bearings.
  196. gosub STAND
  197. goto ESCAPE
  198.  
  199. CONNECT:
  200. pause
  201. echo
  202. echo *** YOU HAVE BEEN DISCONNECTED! Attempting to reconnect in 60 seconds.. ***
  203. echo
  204. put #echo >Log Red *** Disconnected... Attempting to reconnect ***
  205. action goto CONNECTED when You look around, taking a moment to get your bearings.
  206. pause 60
  207. goto CONNECTING
  208.  
  209. CONNECTING:
  210. put #connect
  211. pause 30
  212. put #echo >Log Red *** FAIL!
  213. goto CONNECTING2
  214. CONNECTING2:
  215. put #connect
  216. pause 60
  217. goto CONNECTING
  218.  
  219. CONNECTED:
  220. Echo *** You have been Reconnected ***
  221. put #echo >Log Lime *** Reconnected! - Restarting script. ***
  222. action PAUSE You look around, taking a moment to get your bearings.
  223. goto TOP
  224.  
  225. remove:
  226. var location remove1
  227. var todo $0
  228. remove1:
  229. matchre return ^You take
  230. matchre return ^You slide
  231. matchre return ^You sling
  232. matchre return ^Roundtime
  233. matchre return ^You remove
  234. matchre return ^You pull off
  235. matchre return ^You pull your
  236. matchre return ^Remove what\?
  237. matchre return ^You count out
  238. matchre return ^You work your way out of
  239. matchre return ^You aren't wearing that\.
  240. matchre return ^What were you referring to\?
  241. matchre return ^You loosen the straps securing
  242. put remove %todo
  243. goto retry
  244.  
  245. get:
  246. var location get1
  247. var todo $0
  248. get1:
  249. matchre return ^You get
  250. matchre return ^You pull
  251. matchre return ^You pick up
  252. matchre return ^What were you referring to\?
  253. matchre return ^You are already holding that\.
  254. matchre return ^You need a free hand to pick that up\.
  255. matchre return ^But that is already in your inventory\.
  256. matchre return ^You fade in for a moment as you pick up
  257. matchre return ^You are not strong enough to pick that up\!
  258. put get %todo
  259. matchwait
  260.  
  261. retry:
  262. matchre location ^\.\.\.wait
  263. matchre location ^Sorry, you may
  264. matchre location ^Sorry, system is slow
  265. matchre location ^You don't seem to be able to move to do that
  266. matchre location.p ^It's all a blur
  267. matchre location.p ^You're unconscious\!
  268. matchre location.p ^You are still stunned
  269. matchre location.p There is no need for violence here\.
  270. matchre location.p ^You can't do that while entangled in a web
  271. matchre location.p ^You struggle against the shadowy webs to no avail\.
  272. matchre location.p ^You attempt that, but end up getting caught in an invisible box\.
  273. matchre location1 ^You should stop playing before you do that\.
  274. matchre location1 ^You are a bit too busy performing to do that\.
  275. matchre location1 ^You are concentrating too much upon your performance to do that\.
  276. matchwait
  277.  
  278. location1:
  279. GOSUB stop.humming1
  280. goto %location
  281.  
  282. location.p:
  283. pause
  284.  
  285. location:
  286. pause .3
  287. goto %location
  288.  
  289. stop.humming:
  290. var location stop.humming
  291. stop.humming1:
  292. matchre return ^You stop playing your song\.
  293. matchre return ^In the name of love\?
  294. put stop hum
  295. goto retry
  296.  
  297. ESCAPE:
  298. put stow left
  299. pause .3
  300. put stow right
  301. pause .3
  302. Put Retreat
  303. matchre stand ^You must stand first
  304. matchre ESCAPE ^You retreat back to pole range
  305. matchre RUNNING ^You retreat from combat
  306. matchwait
  307.  
  308.  
  309. STAND:
  310. if standing then return
  311. var location STAND1
  312. stand1:
  313. pause 0.1
  314. if $standing = 0 then put dance
  315. if $standing = 0 then put stand
  316. pause 0.1
  317. matchre return ^You stand back up\.
  318. matchre return ^You swim back up
  319. matchre return ^You are already standing\.
  320. matchre return ^You're unconscious
  321. matchre stand1 ^You are so unbalanced you cannot manage to stand\.
  322. matchre stand1 ^You are overburdened and cannot manage to stand\.
  323. matchre stand1 ^The weight of all your possessions prevents you from standing\.
  324. matchre stand1 ^Roundtime
  325. matchre DEPART ^You are a ghost
  326. matchre STAND ^You are still stunned
  327. put stand
  328. goto RETRY
  329.  
  330. BANK.DEPOSIT:
  331. put deposit all
  332. wait 2
  333. gosub move 42
  334. waitfor YOU HAVE ARRIVED
  335. return
  336.  
  337. GEM.SWAPING:
  338. wait 1
  339. put .gemswap
  340. waitforre DONE SWAPPING GEMS
  341. return
  342.  
  343. GEM.SELLING:
  344. put .sellgem
  345. waitfor ^DONE SELLING GEMS|DONE SELLING GEMS
  346. return
  347.  
  348.  
  349. ############################
  350. # GET HEALED SECTION #
  351. ############################
  352.  
  353. HEALING:
  354. GET.HEALED:
  355. pause .5
  356. pause .5
  357. HEALTH.CHECK:
  358. matchre HEAL.DONE You have no significant injuries
  359. matchre HEAL1 minor abrasions|scratches|cuts|bruises|slashes|crushed|holes|shattered|destroyed|torn|difficulty breathing
  360. matchre HEAL1 scarring|gashes|malformed|twitch|twitching|numbness|battered|beat up|bad shape|poisoned|disease|bleeding
  361. put health
  362. matchwait 20
  363. goto HEAL1
  364.  
  365. HEAL1:
  366. if "%HEALWAIT" = "YES" then
  367. {
  368. pause 15
  369. }
  370. matchre HEALWAIT I will now heal|I am preparing to heal|You are all healed|All clean|You are healed
  371. matchre HEAL2 try again|cleaning up|busy|still healing myself|try again|check back|I could not find|blacklisted|Please wait
  372. put lean sawbone
  373. matchwait 12
  374. goto HEAL2
  375.  
  376. HEAL2:
  377. pause .5
  378. matchre HEALWAIT I will now heal|I am preparing to heal|All clean|You are healed|You are all healed
  379. matchre HEAL3 try again|cleaning up|busy|still healing myself|try again|check back|I could not find|blacklisted|Please wait
  380. put lean beerfest
  381. matchwait 12
  382. goto HEAL3
  383.  
  384. HEAL3:
  385. matchre HEALWAIT I will now heal|I am preparing to heal|All clean|You are healed|You are all healed
  386. matchre GET.HEALED.LOOP try again|cleaning up|busy|still healing myself|try again|check back|I could not find|blacklisted|Please wait
  387. put lean gator
  388. matchwait 12
  389. goto HEAL1
  390.  
  391. HEALWAIT:
  392. put hum jig
  393. matchre HEALTH.CHECK.1 If your still hurt wait till I heal
  394. matchre HEAL.DONE all healed|All clean|You are healed|nods to you
  395. matchwait 120
  396. goto HEAL.DONE
  397.  
  398. GET.HEALED.LOOP:
  399. if %EMPATH.LOOP = ON then goto GO.AUTOPATH
  400. echo *** Empaths are all busy or missing... pausing..
  401. pause 30
  402. var EMPATH.LOOP ON
  403. goto GET.HEALED
  404.  
  405. GO.AUTOPATH:
  406. put #echo >Log Hotpink ** Using NPC Empath
  407. echo NO EMPATHS! AUTOHEALING!!
  408. goto AUTOPATH
  409.  
  410. TO.HEALER:
  411. AUTOPATH:
  412. var LAST DISARMING
  413. if "$zoneid" == "TF1" then gosub BANK.MOVE.FROM.ARCH
  414. pause .5
  415. pause .1
  416. gosub move 458
  417. pause .5
  418. put join list
  419. wait 2
  420. send fall
  421. pause
  422. action goto AUTOPATH.LEAVE when You have no significant injuries|Please get up and out of here|Kindly leave, I have other patients to help
  423.  
  424. AUTOPATH.WAIT:
  425. action goto AUTOPATH.LEAVE when You have no significant injuries|Please get up and out of here|Kindly leave, I have other patients to help
  426. if $sitting = 1 then goto AUTOPATH.LEAVE
  427. put hum $hum
  428. put health
  429. goto AUTOPATH.WAIT
  430.  
  431. AUTOPATH.LEAVE:
  432. action remove You have no significant injuries|Please get up and out of here|Kindly leave, I have other patients to help
  433. put #script abort
  434. pause .1
  435. GOSUB STAND
  436. pause .1
  437. pause .2
  438. var HEALING NO
  439. put #echo >Log Fuchsia ** GOT HEALED VIA NPC
  440. send out
  441. pause .5
  442. pause .5
  443. gosub move 467
  444. waitfor YOU HAVE ARRIVED
  445. gosub move 9
  446. waitfor YOU HAVE ARRIVED
  447.  
  448. HEALTH.CHECK.1:
  449. var HEALWAIT YES
  450. goto HEALTH.CHECK
  451.  
  452. HEAL.DONE:
  453. put #echo >Log HotPink *** GOT HEALED!
  454. put #math HEALING_LOOP add 1
  455. var HEALWAIT NO
  456. ECHO ***** HEALED ******
  457. gosub BANK.MOVE.FROM.ARCH
  458. gosub MOVE.HUNTING.AFTER.HEAL
  459. goto TOP
  460.  
  461. ############################
  462. ## MOVEMENTS TO AND FROM ##
  463. ## MOVE GOSUB ##
  464. ############################
  465.  
  466. SELL.BUNDLE.MOVE:
  467. gosub move 349
  468. wait .5
  469. gosub move 220
  470. wait .5
  471. put sell my bun
  472. wait .3
  473. put rope in my back
  474. wait .3
  475. put get my bun
  476. wait .3
  477. put sell my bun
  478. wait .3
  479. put rope in my back
  480. wait .3
  481. put get my bun
  482. wait .3
  483. put sell my bun
  484. wait .3
  485. put rope in my back
  486. wait .3
  487. goto GEM.SWAPING
  488.  
  489. ROOM.CHECK:
  490. if "$roomid" = "0" then gosub moveRandomDirection
  491. pause 0.5
  492. RETURN
  493.  
  494. DISARM.CROSS.MOVE:
  495. gosub move 467
  496. pause .5
  497. gosub move 9
  498. pause .5
  499. goto DISARM
  500.  
  501. DISARM.RATHA.MOVE:
  502.  
  503.  
  504. goto DISARM
  505.  
  506. ARCH.MOVE.FROM.BANK:
  507. gosub move 467
  508. pause .5
  509. gosub move 9
  510. pause .5
  511. return
  512.  
  513. BANK.MOVE.FROM.ARCH:
  514. gosub move 6
  515. pause .5
  516. put go door
  517. pause 2
  518. gosub move 42
  519. pause .5
  520. return
  521.  
  522. GOING.HUNTING.CROSS:
  523. if "$zoneid" = "1" then goto MOVE.HUNTING.CROSS
  524. if "$zoneid" = "90" then goto MOVE.HUNTING.RATHA
  525.  
  526. MOVE.HUNTING:
  527. if "$zoneid" = "1" then goto MOVE.HUNTING.CROSS
  528. if "$zoneid" = "90" then goto MOVE.HUNTING.RATHA
  529.  
  530. MOVE.HUNTING.AFTER.HEAL:
  531. gosub move 171
  532. pause .5
  533. gosub move 444
  534. pause .5
  535. return
  536.  
  537. MOVE.HUNTING.CROSS:
  538. gosub move 171
  539. pause .5
  540. gosub move 444
  541. pause .5
  542. goto COMBAT
  543.  
  544. MOVE.HUNTING.RATHA:
  545.  
  546. RUNNING:
  547. if "$zoneid" = "1" then goto CROSS.HEAL
  548. if "$zoneid" = "12" then goto CROSS.HEAL.MOVE.REAVER
  549. if "$zoneid" = "7" then goto CROSS.HEAL.MOVE.TROLL
  550. return 15
  551. goto running
  552.  
  553. CROSS.RUN:
  554. if "$roomid" = "40" then goto CROSS.RUN.MOVE.REAVER
  555. if "$roomid" = "444" then goto CROSS.RUN.MOVE.TROLL
  556. return 15
  557. goto CROSS.RUN
  558.  
  559. CROSS.MOVE.BANK:
  560. gosub move 42
  561. pause .5
  562. goto END
  563.  
  564. CROSS.RUN.MOVE.TROLL:
  565. gosub move 349
  566. pause .5
  567. gosub move 42
  568. pause .5
  569. return
  570.  
  571. CROSS.RUN.MOVE.REAVER:
  572. gosub move 48
  573. pause .5
  574. gosub move 349
  575. pause .5
  576. gosub move 42
  577. pause .5
  578. return
  579.  
  580. CROSS.HEAL:
  581. gosub move arch
  582. pause .5
  583. gosub move 9
  584. pause .5
  585. gosub HEALING
  586.  
  587.  
  588. CROSS.HEAL.MOVE.REAVER:
  589. gosub move 48
  590. pause .5
  591. gosub move 349
  592. pause .5
  593. gosub ARCH.MOVE.FROM.BANK
  594. pause .5
  595. Gosub HEALING
  596.  
  597. CROSS.HEAL.MOVE.TROLL:
  598. gosub move 349
  599. pause .5
  600. gosub ARCH.MOVE.FROM.BANK
  601. pause .5
  602. Gosub HEALING
  603.  
  604. DISARM.RUN:
  605. gosub CROSS.RUN.MOVE.TROLL
  606. pause .5
  607. gosub ARCH.MOVE.FROM.BANK
  608. pause .5
  609. goto DISARM
  610.  
  611. DIRGE.TEMPLE:
  612. gosub move 71
  613. pause .5
  614. gosub move 349
  615. pause .5
  616. gosub ARCH.MOVE.FROM.BANK
  617. pause .5
  618. gosub HEALING
  619.  
  620. CROSS.TEMPLE:
  621. gosub move 3
  622. pause .5
  623. gosub ARCH.MOVE.FROM.BANK
  624. pause .5
  625. gosub HEALING
  626.  
  627.  
  628. move.retry:
  629. math move.retry add 1
  630. if %move.retry > 5 then goto move.fail
  631. echo ***
  632. echo *** Retrying move to $1 $2 in %move.retry second(s).
  633. echo ***
  634. pause %move.retry
  635. goto move.goto
  636. move:
  637. var move.skip 0
  638. var move.retry 0
  639. var move.fail 0
  640. var move.room $0
  641. move.goto:
  642. matchre move.return ^YOU HAVE ARRIVED
  643. matchre move.skip ^SHOP CLOSED
  644. matchre move.retry ^MOVE FAILED
  645. matchre move.fail ^DESTINATION NOT FOUND
  646. put #goto %move.room
  647. matchwait
  648. move.fail:
  649. var move.fail 1
  650. goto move.return
  651. move.skip:
  652. var move.skip 1
  653. move.return:
  654. return
  655. moveRandomDirection:
  656. if $north then
  657. {
  658. put north
  659. return
  660. }
  661. if $northeast then
  662. {
  663. put northeast
  664. return
  665. }
  666. if $east then
  667. {
  668. put east
  669. return
  670. }
  671. if $southeast then
  672. {
  673. put southeast
  674. return
  675. }
  676. if $south then
  677. {
  678. put south
  679. return
  680. }
  681. if $southwest then
  682. {
  683. put southwest
  684. return
  685. }
  686. if $west then
  687. {
  688. put west
  689. return
  690. }
  691. if $northwest then
  692. {
  693. put northwest
  694. return
  695. }
  696. if $out then
  697. {
  698. put out
  699. return
  700. }
  701. if $up then
  702. {
  703. put up
  704. return
  705. }
  706. if $down then
  707. {
  708. put down
  709. return
  710. }
  711. echo no random direction possible? looking to attempt to reset room exit vars
  712. #might need a counter here to prevent infinite loops
  713. put look
  714. waitforre ^Obvious
  715. pause
  716. goto moveRandomDirection
  717.  
  718.  
  719. end.of.script:
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!