API tools faq
paste
Advertisement
moctga

Untitled

moctga
Jan 12th, 2020
707
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 20.21 KB | None | 0 0
raw download clone embed print report
  1. ABSOLUTE_TOP:
  2. action clear
  3. if !def(Guild) then gosub GUILD_CHECK
  4. if !def(Circle) then gosub GUILD_CHECK
  5. if !matchre("$Guild" , "Moon") then
  6. {
  7. put #echo crimson You aren't a Moon Mage!
  8. exit
  9. }
  10. action var spellPrepared 1 when ^You feel fully prepared
  11. var spellPrepared 0
  12. var In_Conduit 0
  13. var At_Microcosm 0
  14. var At_Exit 0
  15. if_1 then goto SCRIPT_BEGIN
  16. else goto USAGE
  17. SCRIPT_BEGIN:
  18. eval 0 tolower(%0)
  19. var Spell mg
  20. var Mana 5
  21. var Harness_Mana 50
  22. LOOK:
  23. matchre LOOK ^\.\.\.wait|^Sorry\,
  24. matchre IN_ASTRAL_PLANE ^\[Astral Plane
  25. send look
  26. matchwait 1
  27. #########################################################################################
  28. OPEN_CONDUIT:
  29. # echo OPEN_CONDUIT
  30. gosub DESTINATIONS
  31. gosub SHORTCUT
  32. gosub INITIAL_SHARD
  33. gosub PREPARE
  34. if ("%Focus" != "Grazhir") then gosub FOCUS
  35. if ("%Focus" != "Grazhir") then pause 10
  36. gosub HARNESS
  37. gosub CAST
  38. #########################################################################################
  39. IN_ASTRAL_PLANE:
  40. gosub DESTINATIONS
  41. gosub clear
  42. goto FIND_MICROCOSM
  43. #########################################################################################
  44. FIND_MICROCOSM:
  45. action var Direction north when You believe the center of the microcosm is to the north\.
  46. action var Direction south when You believe the center of the microcosm is to the south\.
  47. action var Direction east when You believe the center of the microcosm is to the east\.
  48. action var Direction west when You believe the center of the microcosm is to the west\.
  49. action var Direction northeast when You believe the center of the microcosm is to the northeast\.
  50. action var Direction northwest when You believe the center of the microcosm is to the northwest\.
  51. action var Direction southwest when You believe the center of the microcosm is to the southwest\.
  52. action var Direction southeast when You believe the center of the microcosm is to the southeast\.
  53. action var At_Microcosm 1 when ^\[Astral Plane\, Pillar\]
  54. action var At_Microcosm 1 when ^Obvious exits\: east\, west\, up\, down
  55. FIND_AXIS:
  56. # echo FIND_AXIS
  57. gosub PERCEIVE
  58. gosub MOVE
  59. var Direction clear
  60. if (!%At_Microcosm) then goto FIND_AXIS
  61. gosub clear
  62. goto AT_PILLARS
  63. ##########################################################################################
  64. AT_PILLARS:
  65. # echo AT_PILLARS
  66. action clear
  67. var Direction east
  68. action var In_Conduit 1 when You move into the chaotic tides of energy
  69. action var In_Conduit 1 when You reach out into the seemingly infinite strands of Lunar mana and find a conduit
  70. gosub DESTINATIONS
  71. gosub FOCUS
  72. gosub MOVE
  73. gosub EVALUATE_LOCATION
  74. gosub clear
  75. goto AT_PILLARS
  76. ###########################################################################################
  77. FIND_EXIT:
  78. # echo FIND_EXIT
  79. action clear
  80. action var Direction north when You believe the end of the conduit lies north\.
  81. action var Direction northeast when You believe the end of the conduit lies northeast\.
  82. action var Direction northwest when You believe the end of the conduit lies northwest\.
  83. action var Direction east when You believe the end of the conduit lies east\.
  84. action var Direction west when You believe the end of the conduit lies west\.
  85. action var Direction south when You believe the end of the conduit lies south\.
  86. action var Direction southwest when You believe the end of the conduit lies southwest\.
  87. action var Direction southeast when You believe the end of the conduit lies southeast\.
  88. action var At_Microcosm 1 when Astral Plane\, Pillar
  89. action var At_Microcosm 1 when ^Obvious exits\: east\, west\, up\, down
  90. action var At_Exit 1 when silvery-white shard
  91. action var At_Exit 1 when silvery shard
  92. gosub clear
  93. gosub PERCEIVE
  94. gosub MOVE
  95. ## if (%At_Microcosm) then gosub PERCEIVE
  96. if (!%At_Exit) then goto FIND_EXIT
  97. goto AT_EXIT
  98. ############################################################################################
  99. AT_EXIT:
  100. # echo AT_EXIT
  101. gosub PREPARE
  102. gosub FOCUS
  103. gosub CAST
  104. goto EXIT
  105. #############################################################################################
  106. EXIT:
  107. # echo EXIT
  108. gosub release
  109. echo *** Arrived at %1 ***
  110. exit
  111. #############################################################################################
  112. CAST:
  113. # echo CAST
  114. if (!%spellPrepared) then waiteval (%spellPrepared)
  115. matchre CAST ^\.\.\.wait|^Sorry\,
  116. matchre RETURN You gesture
  117. send cast %Focus
  118. matchwait 3
  119. if $spelltime != 0 then gosub CAST
  120. return
  121. DESTINATIONS:
  122. var Focus NULL
  123. #
  124. # if ("%0" = "dirge") then var Focus Emalerje
  125. # if ("%0" = "dirg") then var Focus Emalerje
  126. # if ("%0" = "dir") then var Focus Emalerje
  127. # if ("%0" = "tiv") then var Focus Emalerje
  128. #
  129. if ("%0" = "muspari") then var Focus Tabelrem
  130. if ("%0" = "muspar") then var Focus Tabelrem
  131. if ("%0" = "muspa") then var Focus Tabelrem
  132. if ("%0" = "musp") then var Focus Tabelrem
  133. if ("%0" = "mus") then var Focus Tabelrem
  134. #
  135. if ("%0" = "the crossings") then var Focus Rolagi
  136. if ("%0" = "thecrossings") then var Focus Rolagi
  137. if ("%0" = "crossings") then var Focus Rolagi
  138. if ("%0" = "the crossing") then var Focus Rolagi
  139. if ("%0" = "thecrossing") then var Focus Rolagi
  140. if ("%0" = "crossing") then var Focus Rolagi
  141. if ("%0" = "crossin") then var Focus Rolagi
  142. if ("%0" = "crossi") then var Focus Rolagi
  143. if ("%0" = "cross") then var Focus Rolagi
  144. if ("%0" = "cros") then var Focus Rolagi
  145. if ("%0" = "xing") then var Focus Rolagi
  146. #
  147. if ("%0" = "leth deriel") then var Focus Asharshpar'i
  148. if ("%0" = "leth derie") then var Focus Asharshpar'i
  149. if ("%0" = "leth deri") then var Focus Asharshpar'i
  150. if ("%0" = "leth der") then var Focus Asharshpar'i
  151. if ("%0" = "leth de") then var Focus Asharshpar'i
  152. if ("%0" = "leth d") then var Focus Asharshpar'i
  153. if ("%0" = "leth ") then var Focus Asharshpar'i
  154. if ("%0" = "lethderiel") then var Focus Asharshpar'i
  155. if ("%0" = "lethderie") then var Focus Asharshpar'i
  156. if ("%0" = "lethderi") then var Focus Asharshpar'i
  157. if ("%0" = "lethder") then var Focus Asharshpar'i
  158. if ("%0" = "lethde") then var Focus Asharshpar'i
  159. if ("%0" = "lethd") then var Focus Asharshpar'i
  160. if ("%0" = "leth") then var Focus Asharshpar'i
  161. #
  162. if ("%0" = "riverhaven") then var Focus Taniendar
  163. if ("%0" = "riverhave") then var Focus Taniendar
  164. if ("%0" = "riverhav") then var Focus Taniendar
  165. if ("%0" = "riverha") then var Focus Taniendar
  166. if ("%0" = "riverh") then var Focus Taniendar
  167. if ("%0" = "river") then var Focus Taniendar
  168. if ("%0" = "rive") then var Focus Taniendar
  169. if ("%0" = "riv") then var Focus Taniendar
  170. if ("%0" = "haven") then var Focus Taniendar
  171. if ("%0" = "have") then var Focus Taniendar
  172. if ("%0" = "hav") then var Focus Taniendar
  173. #
  174. if ("%0" = "throne city") then var Focus Mintais
  175. if ("%0" = "throne cit") then var Focus Mintais
  176. if ("%0" = "throne ci") then var Focus Mintais
  177. if ("%0" = "throne c") then var Focus Mintais
  178. if ("%0" = "throne ") then var Focus Mintais
  179. if ("%0" = "throne") then var Focus Mintais
  180. if ("%0" = "thron") then var Focus Mintais
  181. if ("%0" = "thro") then var Focus Mintais
  182. if ("%0" = "thr") then var Focus Mintais
  183. if ("%0" = "thronecity") then var Focus Mintais
  184. if ("%0" = "thronecit") then var Focus Mintais
  185. if ("%0" = "throneci") then var Focus Mintais
  186. if ("%0" = "thronec") then var Focus Mintais
  187. if ("%0" = "tc") then var Focus Mintais
  188. #
  189. if ("%0" = "therenborough") then var Focus Dinegavren
  190. if ("%0" = "therenboroug") then var Focus Dinegavren
  191. if ("%0" = "therenborou") then var Focus Dinegavren
  192. if ("%0" = "therenboro") then var Focus Dinegavren
  193. if ("%0" = "therenbor") then var Focus Dinegavren
  194. if ("%0" = "therenbo") then var Focus Dinegavren
  195. if ("%0" = "therenb") then var Focus Dinegavren
  196. if ("%0" = "theren") then var Focus Dinegavren
  197. if ("%0" = "there") then var Focus Dinegavren
  198. if ("%0" = "ther") then var Focus Dinegavren
  199. if ("%0" = "the") then var Focus Dinegavren
  200. #
  201. if ("%0" = "shard") then var Focus Marendin
  202. if ("%0" = "shar") then var Focus Marendin
  203. if ("%0" = "sha") then var Focus Marendin
  204. #
  205. if ("%0" = "taisgath") then var Focus Erekinzil
  206. if ("%0" = "taisg") then var Focus Erekinzil
  207. if ("%0" = "taisg") then var Focus Erekinzil
  208. if ("%0" = "tais") then var Focus Erekinzil
  209. if ("%0" = "ratha") then var Focus Erekinzil
  210. if ("%0" = "rath") then var Focus Erekinzil
  211. if ("%0" = "rat") then var Focus Erekinzil
  212. #
  213. if ("%0" = "raven") then var Focus Tamigen
  214. if ("%0" = "dragonpriest") then var Focus Tamigen
  215. if ("%0" = "dragon") then var Focus Tamigen
  216. if ("%0" = "dp") then var Focus Tamigen
  217. if ("%0" = "cragstone") then var Focus Tamigen
  218. if ("%0" = "cragston") then var Focus Tamigen
  219. if ("%0" = "cragsto") then var Focus Tamigen
  220. if ("%0" = "cragst") then var Focus Tamigen
  221. if ("%0" = "crags") then var Focus Tamigen
  222. #
  223. if ("%0" = "hibarnhvidar") then var Focus Dor'na'torna
  224. if ("%0" = "hibarnhvida") then var Focus Dor'na'torna
  225. if ("%0" = "hibarnhvid") then var Focus Dor'na'torna
  226. if ("%0" = "hibarnhvi") then var Focus Dor'na'torna
  227. if ("%0" = "hibarnhv") then var Focus Dor'na'torna
  228. if ("%0" = "hibarnh") then var Focus Dor'na'torna
  229. if ("%0" = "hibarn") then var Focus Dor'na'torna
  230. if ("%0" = "hibar") then var Focus Dor'na'torna
  231. if ("%0" = "hiba") then var Focus Dor'na'torna
  232. if ("%0" = "hib") then var Focus Dor'na'torna
  233. if ("%0" = "p5") then var Focus Dor'na'torna
  234. #
  235. if ("%0" = "aesry") then var Focus Auilusi
  236. if ("%0" = "aesr") then var Focus Auilusi
  237. if ("%0" = "aes") then var Focus Auilusi
  238. #
  239. if ("%0" = "merkresh") then var Focus Besoge
  240. if ("%0" = "kresh") then var Focus Besoge
  241. if ("%0" = "mriss") then var Focus Besoge
  242. if ("%0" = "riss") then var Focus Besoge
  243. #
  244. if ("%0" = "fangcove") then var Focus Vellano
  245. if ("%0" = "fangcov") then var Focus Vellano
  246. if ("%0" = "fangco") then var Focus Vellano
  247. if ("%0" = "fangc") then var Focus Vellano
  248. if ("%0" = "fang cove") then var Focus Vellano
  249. if ("%0" = "fang cov") then var Focus Vellano
  250. if ("%0" = "fang co") then var Focus Vellano
  251. if ("%0" = "fang c") then var Focus Vellano
  252. if ("%0" = "fang ") then var Focus Vellano
  253. if ("%0" = "fang") then var Focus Vellano
  254. if ("%0" = "fan") then var Focus Vellano
  255. if ("%0" = "fa") then var Focus Vellano
  256. if ("%0" = "f") then var Focus Vellano
  257. if ("%0" = "fc") then var Focus Vellano
  258. #
  259. if matchre("%Focus", "NULL") then var Focus Vellano
  260. #
  261. return
  262. FOCUS:
  263. # echo FOCUS
  264. matchre FOCUS ^\.\.\.wait|^Sorry\,
  265. matchre RETURN but cannot find the conduit you are looking for here
  266. matchre RETURN ^I could not find what you were referring to\.
  267. matchre FIND_EXIT You reach out into the seemingly infinite strands of Lunar mana and find a conduit anchored by the presence
  268. send focus %Focus
  269. matchwait 3
  270. return
  271. EVALUATE_LOCATION:
  272. # echo EVALUATE_LOCATION
  273. if (%In_Conduit) then goto FIND_EXIT
  274. goto AT_PILLARS
  275. HARNESS:
  276. # echo HARNESS
  277. matchre HARNESS ^\.\.\.wait|^Sorry\,
  278. matchre RETURN You tap
  279. send harness %Harness_Mana
  280. matchwait 3
  281. return
  282. INITIAL_SHARD:
  283. var Focus Grazhir
  284. # if ("$zoneid" = "7") then if ("$roomid" = "696") then var Focus Emalerje
  285. if ("$zoneid" = "8a") then if ("$roomid" = "14") then var Focus Rolagi
  286. if ("$zoneid" = "32") then if ("$roomid" = "80") then var Focus Taniendar
  287. if ("$zoneid" = "35") then if ("$roomid" = "196") then var Focus Mintais
  288. if ("$zoneid" = "42") then if ("$roomid" = "293") then var Focus Dinegavren
  289. if ("$zoneid" = "47") then if ("$roomid" = "199") then var Focus Tabelrem
  290. if ("$zoneid" = "63") then if ("$roomid" = "116") then var Focus Asharshpar'i
  291. if ("$zoneid" = "67") then if ("$roomid" = "541") then var Focus Marendin
  292. if ("$zoneid" = "69") then if ("$roomid" = "266") then var Focus Tamigen
  293. if ("$zoneid" = "99") then if ("$roomid" = "280") then var Focus Auilusi
  294. if ("$zoneid" = "90d") then if ("$roomid" = "2") then var Focus Erekinzil
  295. if ("$zoneid" = "107") then if ("$roomid" = "301") then var Focus Besoge
  296. if ("$zoneid" = "116") then if ("$roomid" = "185") then var Focus Dor'na'torna
  297. if ("$zoneid" = "150") then if ("$roomid" = "213") then var Focus Vellano
  298. return
  299. MOVE:
  300. # echo MOVE
  301. matchre MOVE ^\.\.\.wait|^Sorry\,
  302. matchre RETURN You move
  303. matchre RETURN referring
  304. send %Direction
  305. matchwait 2
  306. var Direction clear
  307. return
  308. PAUSE:
  309. # echo PAUSE
  310. pause 0.5
  311. return
  312. PERCEIVE:
  313. # echo PERCEIVE
  314. matchre PERCEIVE ^\.\.\.wait|^Sorry\,
  315. matchre FIND_AXIS referring
  316. matchre RETURN You sense a constant flow
  317. matchre AT_PILLARS You sense an immense source of Lunar mana flowing
  318. matchre AT_PILLARS From this vantage point
  319. matchre AT_PILLARS ^\[Astral Plane\, Pillar
  320. send perceive
  321. matchwait
  322. PREPARE:
  323. # echo PREPARE
  324. matchre PREPARE ^\.\.\.wait|^Sorry\,
  325. matchre RETURN You raise
  326. send prepare %Spell %Mana
  327. matchwait 3
  328. if $spelltime = 0 then gosub PREPARE
  329. return
  330. RELEASE:
  331. pause 0.1
  332. matchre RELEASE ^\.\.\.wait\s+\d+\s+sec(?:onds?|s)?\.?
  333. matchre RELEASE ^Sorry\,
  334. matchre RETURN ^You let your concentration lapse and feel the spell's energies dissipate\.
  335. matchre RETURN ^You aren't preparing a spell\.
  336. matchre RETURN ^RELEASE Options\:
  337. send release
  338. matchwait 1
  339. return
  340. RETURN:
  341. return
  342. SHORTCUT:
  343. ## Wolf Clan to Leth Deriel
  344. if ("$zoneid" = "4") then if ("$roomid" = "118") then goto TELEPORT
  345. ## Promado Village to Throne City
  346. if ("$zoneid" = "9b") then if ("$roomid" = "77") then if ("%Focus" = "Mintais") then goto TELEPORT
  347. ## Dirge to Throne City
  348. if ("$zoneid" = "13") then if ("$roomid" = "119") then if ("%Focus" = "Mintais") then goto TELEPORT
  349. ## Riverhaven to Tiv (Inside the Fortress)
  350. # if ("$zoneid" = "30") then if ("%Focus" = "Emalerje") then goto TELEPORT
  351. ## Zaulfung, Standing Stones to Throne City
  352. if ("$zoneid" = "31") then if ("$roomid" = "25") then if ("%Focus" = "Mintais") then goto TELEPORT
  353. ## Road to Therenborough to Therenborough
  354. if ("$zoneid" = "33a") then if ("%Focus" = "Dinegavren") then goto TELEPORT
  355. ## Rossmans to Therenborough
  356. if ("$zoneid" = "34a") then if ("$roomid" = "77") then if ("%Focus" = "Dinegavren") then goto TELEPORT
  357. ## Selgotha to Crossing
  358. if ("$zoneid" = "50") then if ("%Focus" = "Rolagi") then goto TELEPORT
  359. ## Horseclan to Hibarnhvidar
  360. if ("$zoneid" = "69") then if ("%Focus" = "Dor'na'torna") then goto TELEPORT
  361. ## Hara'jaal to Ratha
  362. if ("$zoneid" = "106") then if ("%Focus" = "Erekinzil") then goto TELEPORT
  363. ## Mer'kresh to M'riss
  364. if ("$zoneid" = "108") then if ("%Focus" = "Besoge") then goto TELEPORT
  365. ## Boar Clan to Muspar'i
  366. if ("$zoneid" = "127") then if ("$roomid" = "190") then if ("%Focus" = "Tabelrem") then goto TELEPORT
  367. return
  368. TELEPORT:
  369. echo
  370. echo Teleport on a moonbeam that you do not have set. Don't gate. Keep out of the Astral Plane on this one. You don't need it.
  371. echo
  372. exit
  373. #####################################################################################################################################################
  374. GUILD_CHECK:
  375. echo
  376. echo **** CHECKING GUILD...................
  377. echo
  378. action put #var Race $2;put #var Guild $3 when ^Name\:\s*(.*)\s*Race\:\s*(.*)\s*Guild\:\s*(.*)$
  379. action put #var Circle $3 when ^Gender\:\s*(.*)\s*Age\:\s*(\d+)\s*Circle\:\s*(\d+)$
  380. action put #var Favors $1 when ^\s*Favors\s*\:\s*(\d*)
  381. send info;enc
  382. waitforre ^\s*Encumbrance\s*\:
  383. action remove ^Name\:\s*(.*)\s*Race\:\s*(.*)\s*Guild\:\s*(.*)$
  384. action remove ^Gender\:\s*(.*)\s*Age\:\s*(\d+)\s*Circle\:\s*(\d+)$
  385. action remove ^\s*Favors\s*\:\s*(\d*)
  386. pause 0.2
  387. echo
  388. echo **** Guild: $Guild ****
  389. echo **** Circle: $Circle ****
  390. echo
  391. pause 0.2
  392. return
  393. #####################################################################################################################################################
  394. USAGE:
  395. echo
  396. echo ######################################################################
  397. echo ######################### SHARD LISTING #########################
  398. echo ######################################################################
  399. echo #### Shard ~~ City ~~ Pillar ###
  400. echo #### _____________________________________________________________ ###
  401. echo #### ###
  402. echo #### Rolagi The Crossing Nightmare ###
  403. echo #### ------------------------------------------------------------- ###
  404. echo #### Marendin Shard Secret ###
  405. echo #### ------------------------------------------------------------- ###
  406. echo #### Emalerje The Volcano Shrew ###
  407. echo #### ------------------------------------------------------------- ###
  408. echo #### Asharshpar'i Leth Deriel Heavens ###
  409. echo #### ------------------------------------------------------------- ###
  410. echo #### Erekinzil Taisgath Heavens ###
  411. echo #### ------------------------------------------------------------- ###
  412. echo #### Dinegavren Therenborough Introspection ###
  413. echo #### ------------------------------------------------------------- ###
  414. echo #### Mintais Throne City Fortune ###
  415. echo #### ------------------------------------------------------------- ###
  416. echo #### Taniendar Riverhaven Broken ###
  417. echo #### ------------------------------------------------------------- ###
  418. echo #### Dor'na'torna Hibarnhvidar Tradion ###
  419. echo #### ------------------------------------------------------------- ###
  420. echo #### Unity ###
  421. echo #### ------------------------------------------------------------- ###
  422. echo #### Tamigen Raven's Point Convergence ###
  423. echo #### Dragon Priests ###
  424. echo #### Cragstone Vale ###
  425. echo #### ------------------------------------------------------------- ###
  426. echo #### Besoge Mer'kresh Besoge ###
  427. echo #### ------------------------------------------------------------- ###
  428. echo #### Tabelrem Muspar'i Nightmares ###
  429. echo #### ------------------------------------------------------------- ###
  430. echo #### Auilusi Aesry Surlaenis'a Tradition ###
  431. echo #### ------------------------------------------------------------- ###
  432. echo #### ###
  433. echo ######################################################################
  434. echo ######################################################################
  435. echo
  436. echo (Tiv|Hib|Crossing|Leth|Haven|Throne|Theren|Shard|Taisgath|Ratha|Kresh|Aesry|Muspari|Raven|Dragon|Cragstone)
  437. echo
  438. exit
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!