API tools faq
paste
Advertisement
moctga

Untitled

moctga
Nov 7th, 2019
142
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 22.29 KB | None | 0 0
raw download clone embed print report
  1. #######################################
  2. # DARKBOX BY SHROOM
  3. # Hollow's Eve DarkBox Script
  4. # Finds the Darkbox and plays
  5. # Runs to get healed when hurt
  6. # Gets money from bank when broke
  7. #######################################
  8. var junk pouch|rockweed|kelp|sharkskin|cloak|belt|flowers|root
  9. var searchloop 0
  10. var item null
  11. var cambrinth armband
  12. var charge 15
  13. action goto GET_HEALED when ^Unfortunately\, your wounds make it impossible for you to play the Darkbox
  14. action goto GET_COIN when ^You try to play the Darkbox\, but realize you don't have the 100 Dokoras required
  15. action var item $1;goto DROPPED_ITEM when ^Your (.*) falls to the ground\.
  16. pause 0.1
  17. if matchre("$righthand $lefthand", "(bow|crossbow|sling)") then send unload
  18. pause 0.2
  19. pause 0.1
  20. pause 0.1
  21. if ("$righthand" != "Empty") then put STOW right
  22. if ("$lefthand" != "Empty") then put STOW left
  23. PLAY:
  24. if !contains("$roomobjs", "the Darkbox") then goto FIND_DARKBOX
  25. if ($bleeding) && ($health < 90) then goto GET_HEALED
  26. var DarkboxRoom $roomid
  27. pause 0.1
  28. pause 0.2
  29. put play darkbox
  30. pause 2
  31. pause
  32. if ("$righthandnoun" = "pouch") then put open my $righthand
  33. if ("$lefthandnoun" = "pouch") then put open my $lefthand
  34. pause 0.5
  35. pause 0.2
  36. if matchre("$righthand $lefthand", "pouch") then put get ticket
  37. pause 0.4
  38. if ("$righthand" != "Empty") then put #echo >Log Pink *** Darkbox - Found $righthand
  39. if ("$lefthand" != "Empty") then put #echo >Log Pink *** Darkbox - Found $lefthand
  40. pause 0.2
  41. if ("$righthand" != "Empty") && matchre("%junk", "$righthandnoun") then gosub EMPTY_RIGHT
  42. if ("$lefthand" != "Empty") && matchre("%junk", "$lefthandnoun") then gosub EMPTY_LEFT
  43. pause 0.2
  44. if ("$righthand" != "Empty") then put STOW right
  45. if ("$lefthand" != "Empty") then put STOW left
  46. pause .1
  47. goto PLAY
  48.  
  49. DROPPED_ITEM:
  50. pause
  51. if contains("%item", "pouch") then put open my pouch
  52. pause
  53. if contains("%item", "pouch") then put get ticket
  54. pause
  55. if !matchre("%junk", "%item") then goto PLAY
  56. put get %item
  57. pause 0.5
  58. if ("$righthand" != "Empty") then put #echo >Log Pink *** Darkbox - Found $righthand
  59. if ("$lefthand" != "Empty") then put #echo >Log Pink *** Darkbox - Found $lefthand
  60. put stow %item
  61. pause 0.4
  62. goto PLAY
  63.  
  64. EMPTY_RIGHT:
  65. gosub TRASH_CHECK
  66. pause 0.2
  67. if ("%trash" != "null") then put put my $righthand in %trash
  68. else put drop my $righthand
  69. pause 0.5
  70. if ("$righthand" != "Empty") then send empty right
  71. pause 0.5
  72. return
  73. EMPTY_LEFT:
  74. gosub TRASH_CHECK
  75. pause 0.2
  76. if ("%trash" != "null") then put put my $lefthand in %trash
  77. else put drop my $lefthand
  78. pause 0.5
  79. if ("$lefthand" != "Empty") then send empty right
  80. pause 0.5
  81. return
  82. TRASH_CHECK:
  83. var trash null
  84. if matchre("$roomobjs", "trash receptacle") then var trash receptacle
  85. if matchre("$roomobjs", "a small hole") then var trash hole
  86. if matchre("$roomobjs", "a small mud puddle") then var trash puddle
  87. if matchre("$roomobjs", "a marble statue ") then var trash statue
  88. if matchre("$roomobjs", "a bucket of viscous gloop|a waste bucket|a bucket|metal bucket") then var trash bucket
  89. if matchre("$roomobjs", "a large stone turtle") then var trash turtle
  90. if matchre("$roomobjs", "a tree hollow|darken hollow") then var trash hollow
  91. if matchre("$roomobjs", "an oak crate") then var trash crate
  92. if matchre("$roomobjs", "a driftwood log") then var trash log
  93. if matchre("$roomobjs", "a disposal bin|a waste bin|firewood bin") then var trash bin
  94. if matchre("$roomobjs", "ivory urn") then var trash urn
  95. if matchre("$roomobjs", "a bottomless pit") then var trash pit
  96. if matchre("$roomname", "^\[Garden Rooftop, Medical Pavilion\]") then var trash gutter
  97. return
  98.  
  99. FIND_DARKBOX:
  100. math searchloop add 1
  101. echo
  102. echo *** No Darkbox found! Searching...
  103. echo
  104. # waitforre the Darkbox
  105. # goto PLAY
  106. BABY_ARACHNID:
  107. echo *** SEARCHING IN BABY ARACHNID
  108. gosub BOX_SEARCH 135
  109. gosub BOX_SEARCH 134
  110. gosub BOX_SEARCH 116
  111. gosub BOX_SEARCH 136
  112. gosub BOX_SEARCH 115
  113. gosub BOX_SEARCH 133
  114. gosub BOX_SEARCH 132
  115. gosub BOX_SEARCH 114
  116. gosub BOX_SEARCH 128
  117. gosub BOX_SEARCH 129
  118. gosub BOX_SEARCH 108
  119. gosub BOX_SEARCH 109
  120. gosub BOX_SEARCH 117
  121. gosub BOX_SEARCH 118
  122. gosub BOX_SEARCH 110
  123. gosub BOX_SEARCH 123
  124. gosub BOX_SEARCH 124
  125. gosub BOX_SEARCH 119
  126. gosub BOX_SEARCH 120
  127. gosub BOX_SEARCH 121
  128. gosub BOX_SEARCH 122
  129. gosub BOX_SEARCH 111
  130. gosub BOX_SEARCH 127
  131. gosub BOX_SEARCH 125
  132. gosub BOX_SEARCH 126
  133. gosub BOX_SEARCH 112
  134. gosub BOX_SEARCH 113
  135. ####
  136. gosub BOX_SEARCH 89
  137. gosub BOX_SEARCH 88
  138. gosub BOX_SEARCH 87
  139. gosub BOX_SEARCH 86
  140. gosub BOX_SEARCH 97
  141. gosub BOX_SEARCH 96
  142. gosub BOX_SEARCH 95
  143. gosub BOX_SEARCH 104
  144. gosub BOX_SEARCH 101
  145. gosub BOX_SEARCH 100
  146. gosub BOX_SEARCH 98
  147. gosub BOX_SEARCH 99
  148. gosub BOX_SEARCH 103
  149. gosub BOX_SEARCH 102
  150. gosub BOX_SEARCH 105
  151. gosub BOX_SEARCH 106
  152. gosub BOX_SEARCH 107
  153. gosub BOX_SEARCH 90
  154. gosub BOX_SEARCH 91
  155. gosub BOX_SEARCH 92
  156. gosub BOX_SEARCH 93
  157. gosub BOX_SEARCH 94
  158. UPPER_ABDOMEN:
  159. echo *** SEARCHING IN UPPER ABDOMEN
  160. gosub BOX_SEARCH 28
  161. gosub BOX_SEARCH 29
  162. gosub BOX_SEARCH 30
  163. gosub BOX_SEARCH 31
  164. gosub BOX_SEARCH 32
  165. gosub BOX_SEARCH 33
  166. gosub BOX_SEARCH 34
  167. gosub BOX_SEARCH 27
  168. gosub BOX_SEARCH 26
  169. gosub BOX_SEARCH 35
  170. gosub BOX_SEARCH 38
  171. gosub BOX_SEARCH 39
  172. gosub BOX_SEARCH 36
  173. gosub BOX_SEARCH 37
  174. gosub BOX_SEARCH 44
  175. gosub BOX_SEARCH 45
  176. gosub BOX_SEARCH 46
  177. gosub BOX_SEARCH 47
  178. ABDOMEN:
  179. echo *** SEARCHING IN ABDOMEN
  180. gosub BOX_SEARCH 3
  181. gosub BOX_SEARCH 4
  182. gosub BOX_SEARCH 5
  183. gosub BOX_SEARCH 6
  184. gosub BOX_SEARCH 7
  185. gosub BOX_SEARCH 8
  186. gosub BOX_SEARCH 9
  187. gosub BOX_SEARCH 10
  188. gosub BOX_SEARCH 11
  189. gosub BOX_SEARCH 12
  190. gosub BOX_SEARCH 13
  191. gosub BOX_SEARCH 14
  192. gosub BOX_SEARCH 15
  193. gosub BOX_SEARCH 16
  194. THORAX:
  195. echo *** SEARCHING IN THORAX
  196. gosub BOX_SEARCH 17
  197. gosub BOX_SEARCH 18
  198. gosub BOX_SEARCH 19
  199. gosub BOX_SEARCH 20
  200. gosub BOX_SEARCH 21
  201. gosub BOX_SEARCH 22
  202. gosub BOX_SEARCH 23
  203. gosub BOX_SEARCH 24
  204. gosub BOX_SEARCH 25
  205. INTESTINES:
  206. echo *** SEARCHING IN LOWEST DEPTHS
  207. gosub BOX_SEARCH 54
  208. gosub BOX_SEARCH 79
  209. gosub BOX_SEARCH 80
  210. gosub BOX_SEARCH 81
  211. gosub BOX_SEARCH 82
  212. gosub BOX_SEARCH 55
  213. gosub BOX_SEARCH 56
  214. gosub BOX_SEARCH 57
  215. gosub BOX_SEARCH 58
  216. gosub BOX_SEARCH 59
  217. gosub BOX_SEARCH 60
  218. gosub BOX_SEARCH 61
  219. gosub BOX_SEARCH 62
  220. gosub BOX_SEARCH 63
  221. gosub BOX_SEARCH 64
  222. gosub BOX_SEARCH 65
  223. gosub BOX_SEARCH 66
  224. gosub BOX_SEARCH 67
  225. gosub BOX_SEARCH 68
  226. gosub BOX_SEARCH 69
  227. gosub BOX_SEARCH 70
  228. gosub BOX_SEARCH 53
  229. gosub BOX_SEARCH 50
  230. gosub BOX_SEARCH 51
  231. gosub BOX_SEARCH 52
  232. gosub BOX_SEARCH 71
  233. gosub BOX_SEARCH 72
  234. gosub BOX_SEARCH 73
  235. gosub BOX_SEARCH 74
  236. gosub BOX_SEARCH 75
  237. gosub BOX_SEARCH 76
  238. gosub BOX_SEARCH 77
  239. gosub BOX_SEARCH 78
  240. if (%searchloop > 4) then goto QUIT
  241. echo =====================================
  242. echo *** NO DARKBOX FOUND!!!
  243. echo *** Maybe it moved.. checking again.
  244. echo =====================================
  245. pause 3
  246. goto FIND_DARKBOX
  247.  
  248. BOX_SEARCH:
  249. var room $0
  250. pause 0.1
  251. gosub automove %room
  252. if contains("$roomobjs", "the Darkbox") then goto FOUND_DARKBOX
  253. return
  254.  
  255. FOUND_DARKBOX:
  256. pause 0.1
  257. echo ======================
  258. echo ** FOUND THE DARKBOX!
  259. echo ** RoomID: $roomid
  260. echo ======================
  261. put #echo >Log Lime *** Found Darkbox - Room: $roomid
  262. goto PLAY
  263. ####################################################
  264. GET_HEALED:
  265. pause 0.1
  266. if matchre("%item", "pouch") then
  267. {
  268. send open pouch
  269. pause 0.5
  270. send get ticket
  271. pause 0.5
  272. }
  273. gosub automove clearing
  274. pause 0.5
  275.  
  276. WAIT_HEAL:
  277.  
  278. PRIME_HEAL:
  279.  
  280. Healing.External:
  281. move go path
  282. waitforre The extravagance of the eastern quarter of Shard is evident here milk-white
  283. pause .1
  284. if $charactername = XXXXXXX then
  285. {
  286. put #echo >Log Red Healing yourself!
  287. if $mana < 50 then
  288. {
  289. pause 30
  290. }
  291. put prep heal 40
  292. pause 5
  293. put charge my %cambrinth %charge
  294. wait
  295. pause 3
  296. put charge my %cambrinth %charge
  297. wait
  298. pause 3
  299. put invoke my %cambrinth
  300. wait
  301. pause 2
  302. put cast
  303. pause
  304. if $mana < 50 then
  305. {
  306. pause 30
  307. }
  308. put prep VH 40
  309. pause 5
  310. put charge my %cambrinth %charge
  311. wait
  312. pause 3
  313. put charge my %cambrinth %charge
  314. wait
  315. pause 3
  316. put invoke my %cambrinth
  317. wait
  318. pause 2
  319. put cast
  320. pause
  321. }
  322. move go path
  323. waitforre ^\[Paasvadh Forest\, Clearing\]
  324. pause
  325. goto RETURN_TO_BOX
  326.  
  327. GET_COIN:
  328. pause 0.1
  329. gosub automove teller
  330. pause 0.5
  331. matchre COIN_DONE ^The clerk counts out
  332. matchre BROKE ^The clerk tells you\, \"You don't have that much money
  333. put withdraw 15 plat
  334. matchwait 20
  335. goto BROKE
  336. COIN_DONE:
  337. pause 0.5
  338. put #echo >Log Yellow *** Got 15 plat from bank
  339. RETURN_TO_BOX:
  340. gosub TEETH
  341. pause 0.5
  342. gosub automove %DarkboxRoom
  343. put #echo >Log Lime *** Returning to darkbox - Room %DarkboxRoom
  344. if !contains("$roomobjs", "the Darkbox") then goto FIND_DARKBOX
  345. goto PLAY
  346.  
  347. TEETH:
  348. matchre RETURN ^What|^I could not
  349. matchre GIVE_TEETH ^You get|You pull
  350. put get my shark tooth
  351. matchwait 3
  352. GIVE_TEETH:
  353. put give tooth to work
  354. pause 0.4
  355. goto TEETH
  356. #######################################################
  357. AUTO_HEALER:
  358. var LAST AUTO_HEALER
  359. pause 0.1
  360. pause 0.2
  361. if matchre ("$roomplayers", "Kinoko who is lying down") then goto LIE_DOWN
  362. if matchre ("$roomplayers", "Aksel who is lying down") then goto LIE_DOWN
  363. if matchre ("$roomplayers", "who is lying down") then goto HEALTH_WAIT
  364. HEALTH_ANYWAY:
  365. LIE_DOWN:
  366. var empathloop 0
  367. if matchre("$roomobjs", "(Shalvard|Dokt|Arthianna|Kaiva|Martyr Saedelthorp|Fraethis|Srela|Yrisa|Quentin|Elys)") then var Empath $1
  368. pause 0.001
  369. send lie
  370. pause 0.5
  371. pause 0.2
  372. send join list
  373. pause 0.5
  374. if ($standing) then send lie
  375. pause 0.5
  376. if ($standing) then send lie
  377. pause 0.2
  378. EMPATH_WAIT:
  379. math empathloop add 1
  380. if (%empathloop > 8) then goto EMPATH_HEALTH_CHECK
  381. if ($sitting) then goto DONE_AUTOEMPATH
  382. if ($standing) then send lie
  383. #if matchre ("$roomplayers", "who is lying down") && ($bleeding = 0) then goto HEALTH_WAIT
  384. matchre DONE_AUTOEMPATH ^Shalvard says, "Please get up|Shalvard looks around and says, "Kindly leave|^Kaiva crosses your name off|you look fine and healthy to me
  385. matchre DONE_AUTOEMPATH ^You sit up|^Arthianne nudges you|I think you don't really need healing|you are well|Quentin whispers, "Just between you and me and the Queen
  386. matchre DONE_AUTOEMPATH ^Srela says, "You're healthy|A little rest and exercise and you'll be good as new
  387. matchre DONE_AUTOEMPATH ^Dokt waves a large hand at you and says|Dokt give you a quick glance\, "Look fine to me
  388. put exp
  389. pause 5
  390. if ($standing) then send lie
  391. pause 8
  392. if ($standing) then send lie
  393. pause 8
  394. if ($standing) then send lie
  395. pause 8
  396. if ($standing) then send lie
  397. pause 8
  398. if ($standing) then send lie
  399. put look
  400. matchwait 30
  401. goto EMPATH_WAIT
  402. EMPATH_HEALTH_CHECK:
  403. gosub HEALTH_CHECK
  404. if !($needHealing) then goto DONE_AUTOEMPATH
  405. if !matchre("$roomobjs", "(Shalvard|Dokt|Arthianna|Kaiva|Martyr Saedelthorp|Fraethis|Srela|Yrisa|Quentin|Elys)") then goto AUTOHEAL
  406. pause 5
  407. goto EMPATH_WAIT
  408. HEALTH_WAIT:
  409. pause 0.2
  410. var healcounter 0
  411. if ($sitting = 0) then send sit
  412. pause 0.2
  413. var healingwaitlist $roomplayers
  414. eval healingwaitlist replacere("%healingwaitlist", "Also here\:\s+", "")
  415. eval healingwaitlist replacere("%healingwaitlist", "Pirate", "")
  416. eval healingwaitlist replacere("%healingwaitlist", "King of the Road", "")
  417. eval healingwaitlist replace("%healingwaitlist", " and", ",")
  418. eval healingwaitlist replace("%healingwaitlist", ".", ", ")
  419. eval healingwaitlist replacere("%healingwaitlist", "\swho is lying down", ",")
  420. eval healingwaitlist replacere("%healingwaitlist", "\swho is kneeling", ",")
  421. eval healingwaitlist replacere("%healingwaitlist", "\swho is sitting", ",")
  422. eval healingwaitlist replacere("%healingwaitlist", "\swho is in .+ cage", ",")
  423. eval healingwaitlist replacere("%healingwaitlist", "\swho has .+ visage", ",")
  424. eval healingwaitlist replacere("%healingwaitlist", "\swho is almost invisible", ",")
  425. eval healingwaitlist replacere("%healingwaitlist", "\swho is in a globe of blue fire", ",")
  426. eval healingwaitlist replacere("%healingwaitlist", "\swho is radiating a glowing aura", ",")
  427. eval healingwaitlist replacere("%healingwaitlist", "\swho is emanating a .+ holy aura", ",")
  428. eval healingwaitlist replacere("%healingwaitlist", "\swho is who is mounted on .+ horse", ",")
  429. eval healingwaitlist replacere("%healingwaitlist", "\swho is shrouded in ghostly flames", ",")
  430. eval healingwaitlist replacere("%healingwaitlist", "\swho is blurred by hazy afterimages", ",")
  431. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by a fiery mantle", ",")
  432. eval healingwaitlist replacere("%healingwaitlist", "\swho is covered with whitened ridges", ",")
  433. eval healingwaitlist replacere("%healingwaitlist", "\swho is shrouded by swirling grey fog", ",")
  434. eval healingwaitlist replacere("%healingwaitlist", "\swho is darkened by an unnatural shadow", ",")
  435. eval healingwaitlist replacere("%healingwaitlist", "\swho is behind a plexus of azure lines", ",")
  436. eval healingwaitlist replacere("%healingwaitlist", "\swho is bathed in pale golden sunlight", ",")
  437. eval healingwaitlist replacere("%healingwaitlist", "\swho is enveloped in a hellish inferno", ",")
  438. eval healingwaitlist replacere("%healingwaitlist", "\swho is shining with a dark golden glow", ",")
  439. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by a hellish inferno", ",")
  440. eval healingwaitlist replacere("%healingwaitlist", "\swho is behind a plexus of azure lines", ",")
  441. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by an electric storm", ",")
  442. eval healingwaitlist replacere("%healingwaitlist", "\swho is engulfed in a hazy cloud of dust", ",")
  443. eval healingwaitlist replacere("%healingwaitlist", "\swho is shining with a dark golden glow", ",")
  444. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by .+ shimmering shield", ",")
  445. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by .+ circling blades? of ice", ",")
  446. eval healingwaitlist replacere("%healingwaitlist", "\swho is sheathed in an aura of crackling electricity", ",")
  447. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by a band of twittering songbirds", ",")
  448. eval healingwaitlist replacere("%healingwaitlist", "\swho is followed by a rabid confusion of smirking weasels", ",")
  449. eval healingwaitlist replacere("%healingwaitlist", "\swho is being harassed by an intrigue of phantasmal kittens", ",")
  450. eval healingwaitlist replacere("%healingwaitlist", "\swho is surrounded by a ring of jagged stone spears at melee range", ",")
  451. eval healingwaitlist replacere("%healingwaitlist", "\swho is trailed by a discombobulated shadow jumping in and out of view", ",")
  452. eval healingwaitlist replacere("%healingwaitlist", "\swho is covered in layers of filth and surrounded by a cloud of putrescence", ",")
  453. eval healingwaitlist replacere("%healingwaitlist", "\swho has coalesced into a battle of light and shadow, each warring for dominance", ",")
  454. eval healingwaitlist replacere("%healingwaitlist", "\.", ",")
  455. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  456. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  457. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  458. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  459. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  460. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  461. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  462. eval healingwaitlist replacere("%healingwaitlist", "\,\s[\w'-]+\s", ", ")
  463. eval healingwaitlist replacere("%healingwaitlist", "\,\s", "|")
  464. var healingwaitlist |%healingwaitlist|
  465. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  466. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  467. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  468. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  469. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  470. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  471. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  472. eval healingwaitlist replacere("%healingwaitlist", "\|[\w'-]+\s", "|")
  473. eval healingwaitlist replace("%healingwaitlist", "," "")
  474. eval healingwaitlist replace("%healingwaitlist", "||" "|")
  475. eval healingwaitlist replacere("%healingwaitlist", "\|$", "")
  476. eval healtotal count("%healingwaitlist", "|")
  477. # eval healtotal count("%healingwaitlist", "|%healingwaitlist")
  478. echo Waiting list: %healingwaitlist
  479. echo %healtotal people ahead of us in line
  480. pause 2
  481. goto HEALING_WAIT
  482. HEAL_WAIT_PAUSE:
  483. var healcounter 0
  484. echo *** Waiting for %healingwaitlist to finish healing
  485. gosub HEALTH_CHECK
  486. if !($needHealing) then goto DONE_AUTOEMPATH
  487. if matchre ("$roomplayers", "the body of .* who is lying down") then goto LIE_DOWN
  488. if !matchre ("$roomplayers", "who is lying down") then goto AUTO_HEALER
  489. if matchre ("$roomplayers", "Kinoko who is lying down") then goto LIE_DOWN
  490. if matchre ("$roomplayers", "Aksel who is lying down") then goto LIE_DOWN
  491. if ($health < 50) && ($bleeding = 1) then goto HEALTH_ANYWAY
  492. pause 6
  493. HEALING_WAIT:
  494. math healcounter add 1
  495. var healplayer %healingwaitlist(%healcounter)
  496. if matchre("$roomplayers", "%healplayer who is lying down") then goto HEAL_WAIT_PAUSE
  497. pause 0.5
  498. if (%healcounter > %healtotal) then goto LIE_DOWN
  499. goto HEALING_WAIT
  500.  
  501. QUIT:
  502. echo =================================
  503. echo ** CANNOT FIND DARKBOX ANYWHERE!
  504. echo =================================
  505. exit
  506. BROKE:
  507. echo ================================
  508. echo * NOT ENOUGH MONEY IN BANK
  509. echo * Too broke to play darkbox
  510. echo ================================
  511. exit
  512. ##### STANDING SUB
  513. STAND:
  514. delay 0.0001
  515. var LOCATION STAND_1
  516. STAND_1:
  517. matchre WAIT ^\.\.\.wait|^Sorry\,|^Please wait\.
  518. matchre WAIT ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
  519. matchre WAIT ^The weight of all your possessions prevents you from standing\.
  520. matchre WAIT ^You are overburdened and cannot manage to stand\.
  521. matchre STUNNED ^You are still stunned
  522. matchre WEBBED ^You can't do that while entangled in a web
  523. matchre IMMOBILE ^You don't seem to be able to move to do that
  524. matchre STAND_RETURN ^You stand (?:back )?up\.
  525. matchre STAND_RETURN ^You stand up in the water
  526. matchre STAND_RETURN ^You are already standing\.
  527. send stand
  528. matchwait
  529. STAND_RETURN:
  530. pause 0.1
  531. pause 0.1
  532. if (!$standing) then goto STAND
  533. return
  534. AUTOMOVE:
  535. delay 0.0001
  536. var Destination $0
  537. var automovefailCounter 0
  538. if (!$standing) then gosub AUTOMOVE_STAND
  539. if ("$roomid" = "%Destination") then return
  540. AUTOMOVE_GO:
  541. delay 0.0001
  542. matchre AUTOMOVE_FAILED ^(?:AUTOMAPPER )?MOVE(?:MENT)? FAILED
  543. matchre AUTOMOVE_RETURN ^YOU HAVE ARRIVED(?:\!)?
  544. matchre AUTOMOVE_RETURN ^SHOP CLOSED(?:\!)?
  545. matchre AUTOMOVE_FAIL_BAIL ^DESTINATION NOT FOUND
  546. put #goto %Destination
  547. matchwait
  548. AUTOMOVE_STAND:
  549. pause 0.1
  550. matchre AUTOMOVE_STAND ^\.\.\.wait|^Sorry\,
  551. matchre AUTOMOVE_STAND ^Roundtime\:?|^\[Roundtime\:?|^\(Roundtime\:?
  552. matchre AUTOMOVE_STAND ^The weight of all your possessions prevents you from standing\.
  553. matchre AUTOMOVE_STAND ^You are still stunned\.
  554. matchre AUTOMOVE_RETURN ^You stand(?:\s*back)? up\.
  555. matchre AUTOMOVE_RETURN ^You are already standing\.
  556. send stand
  557. matchwait
  558. AUTOMOVE_FAILED:
  559. evalmath automovefailCounter (automovefailCounter + 1)
  560. if (%automovefailCounter > 5) then goto AUTOMOVE_FAIL_BAIL
  561. send #mapper reset
  562. pause 0.5
  563. pause 0.1
  564. goto AUTOMOVE_GO
  565. AUTOMOVE_FAIL_BAIL:
  566. put #echo
  567. put #echo >$Log Crimson *** AUTOMOVE FAILED. ***
  568. put #echo >$Log Destination: %Destination
  569. put #echo Crimson *** AUTOMOVE FAILED. ***
  570. put #echo Crimson Destination: %Destination
  571. put #echo
  572. exit
  573. AUTOMOVE_RETURN:
  574. return
  575. #### HEALTH CHECKING
  576. HEALTH_CHECK:
  577. delay 0.0001
  578. put #var needHealing 0
  579. delay 0.5
  580. matchre HEALTH_GOOD ^You have no significant injuries\.
  581. matchre HEALTH_BAD ^\s*Encumbrance\s+\:
  582. put -health;-2 encumbrance
  583. matchwait 15
  584. goto HEALTH_CHECK
  585. HEALTH_BAD:
  586. delay 0.0001
  587. put #var needHealing 1
  588. delay 0.5
  589. return
  590. HEALTH_GOOD:
  591. delay 0.0001
  592. put #queue clear
  593. put #var needHealing 0
  594. delay 0.5
  595. return
  596. #### RETURNS
  597. RETURN_CLEAR:
  598. delay 0.0001
  599. put #queue clear
  600. pause 0.0001
  601. return
  602. RETURN:
  603. delay 0.0001
  604. return
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!