API tools faq
paste
Advertisement
Guest User

Evil LJ 3.6c

a guest
Apr 23rd, 2017
75
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 124.12 KB | None | 0 0
raw download clone embed print report
  1. set *countathome on
  2. set %addition off ; currently plays a harp added for int
  3. ; ___________
  4. ; / _________/ __ __ __ __ ____________
  5. ; / / \ \ / / / / / / / / /_____ ____/ ________ _________
  6. ; / /_____ \ \ / / / / / / / / / / /____ / / ______/
  7. ; / _____/ \ \ / / / / / / / / / / _____/ / / /____ ////////
  8. ; / / \ \/ / / / / / / / __ / / /____ / ___ / --- / //
  9. ; / /_________ \ / / / / /_____ / /_____ / /_/ / _____/ / / / / /_/ / //
  10. ; /____________/ \/ /_/ /_______/ /_______//_____/ /_______/ /__/ /_______/ # /////////
  11. ; Script Name: Razors Evil LJ!
  12. ; Version Codename: GETSOME
  13. ; Client: 2.00
  14. ; EasyUO: 1.5 Version 202
  15. ; Shard: Neverlands - Pheonix, POL Edition
  16. ; Version: 3.6b- Updated 29/09/12
  17. ; Development stage: Beta B
  18. ; Author: RAZOR911
  19. ; Purpose: Massive Functionality LJ Script
  20. ; Links With Pocket Journal
  21. ; hist 3.0 rewrite complete from version 2
  22. ; hist 3.1 fixed several small sub bugs added help function made more colourfull
  23. ; hist 3.2 added options for dropping logs as you go and updated help file
  24. ; hist 3.3 added back up option to keep a hard text file set of all trees and settings
  25. ; hist 3.4 shortend a few things fixed some subs that could loop out in saves made from 1864 lines to 1593 including The End :)
  26. ; hist 3.5 Added on the go status menu for extra feedback :) few other small tweaks. stable version E old NL F new NL
  27. ; hits 3.6 Added update menu for all logs on you and at home
  28. ;=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
  29. ;=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#=#
  30. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  31.  
  32. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33. ;==========================================================================
  34. ; Main menu INITIAL START UP
  35. ;==========================================================================
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  38. ;===================================== Variables that need to be set
  39. if %addition = on
  40. gosub addition
  41. set %usesounds no ;yes/no
  42. set %startrecallsound C:\ljsound\startrecall.wav
  43. set %endrecallsound C:\ljsound\endrecall.wav
  44. set %failsound alarm.wav
  45. set %backupcompletesound C:\ljsound\backupcomplete.wav
  46. set %dontmakeboards off
  47. set %droppinglogsactive on
  48. set #sysmsgcol 45
  49. set %currentspot 0
  50. set *tooldatabase ZHG_KGG_IGG_DGG_CGG_CIG_AIG_AGG_BIG_WFG
  51. set *choppingtool YTH_KSF_ZRF_LSF_BSF_NSF_SMH_JOH_MPH_FSF
  52. gosub menu
  53. event sysmessage If You Dont Know How To Set Up Use Help ( bottom right corner )
  54. goto control_watch
  55. sub menu
  56. ;===================================== INTRODUCTION MENU
  57. if *firstimerazorlj <> 36c
  58. {
  59. set *spot1lj #false
  60. set *spot2lj #false
  61. set *spot3lj #false
  62. set *spot4lj #false
  63. set *spot5lj #false
  64. set *spot6lj #false
  65. set *spot7lj #false
  66. set *spot8lj #false
  67. set *spot9lj #false
  68. set *spot10lj #false
  69. set *spot11lj #false
  70. set *spot12lj #false
  71. set *spot13lj #false
  72. set *spot14lj #false
  73. set *spot15lj #false
  74. set *spot16lj #false
  75. set *spot17lj #false
  76. set *spot18lj #false
  77. set *checkJungle #false
  78. set *checkPlain #false
  79. set *checkPine #false
  80. set *checkSun #false
  81. set *checkCherry #false
  82. set *checkOak #false
  83. set *checkSilver #false
  84. set *checkDark #false
  85. ; Update to NL Logs
  86. set *checkMaple #false
  87. set *checkBirch #false
  88. set *checkSilver #false
  89. set *checkPoisen #false
  90. set *checkDespair #false
  91. set *checkBlood #false
  92. set *checkBlessed #false
  93. set *checkStar #false
  94.  
  95. menu clear
  96. menu show
  97. menu Window Color moneygreen
  98. menu Window Title RZR LJ Ver 3.6
  99. menu Window Size 600 240
  100. menu Font Size 11
  101. menu font verdana
  102. menu font bgcolor moneygreen
  103. menu Font Color black
  104. set #menubutton 0
  105. Menu Text info1 5 5 Script Name - Razors Evil LJ Script
  106. Menu Text info1 5 30 Client - 2.0
  107. Menu Text info1 5 55 EasyUO - 1.5 Version 202
  108. Menu Text info1 5 80 Shard - Neverlands, POL Edition
  109. Menu Text info1 5 105 Version - 3.6b - Beta 29/09/2012
  110. Menu Text info1 5 130 Author - RAZOR
  111.  
  112. Menu Text info1 5 180 Other Script's Interface
  113. menu Font Color Blue
  114. menu Text info1 160 180 - Pocket Journal ( A Ravenwing Production )
  115. menu font bgcolor red
  116. menu button NEXT 530 220 70 20 NEXT
  117. menu Font Color Black
  118. repeat
  119. {
  120. wait 5
  121. }
  122. until #menubutton = Next
  123. set #menubutton 0
  124. menu clear
  125. menu Font Size 11
  126. menu font bgcolor moneygreen
  127. menu Font Color black
  128. Menu Text info1 5 5 Records 18 custom routes and Locations
  129. Menu Text info1 5 30 Recalls to and from house
  130. Menu Text info1 5 55 Auto Restocks Regs and Tools from house
  131. Menu Text info1 5 80 Auto Eats when hungry from house chest
  132. Menu Text info1 5 105 Auto Makes Boards and dumps selected logs
  133. menu Text info1 5 130 New 3.6a!! Detects moongates to stop you walking into them
  134. menu text ifn01 5 155 New 3.6b!! Menu to show all current logs as you chop
  135. menu text ifn01 5 180 New 3.6c!! Uses Pathfindind Now
  136. menu font color black
  137. menu font size 9
  138. menu text info1 5 200 If you have used a earlier version 3 script your trees will still work, tho please save checkboxes again
  139. menu font bgcolor red
  140. menu font size 11
  141. menu button NEXT 530 220 70 20 NEXT
  142. Menu Text info1 5 220 Click The help Button In Window for setup guide !!!
  143. repeat
  144. {
  145. wait 5
  146. }
  147. until #menubutton = Next
  148. set #menubutton 0
  149. set *firstimerazorlj 36c
  150. }
  151. ;================================================== Header FULL TIME MENU
  152. menu clear
  153. menu show
  154. menu Window Color SkyBlue
  155. menu Window Title RZR LJ Ver 3.6
  156. menu Window Size 280 310
  157. menu Font Name verdana
  158. menu Font Size 7
  159. menu Font Color 0
  160. menu Font BGColor SkyBlue
  161. ;================================================== Drop Boxes
  162. menu combo create NumberofPaths 2 2 100
  163. for %paths1 1 18
  164. {
  165. Menu combo add NumberofPaths Location %paths1
  166. }
  167. menu text info1 110 5 <-- Spot to edit
  168. ;================================================= Check Boxes
  169. menu Font Color green
  170. menu check Spot1 5 100 50 10 *spot1lj Spot1
  171. menu check Spot2 5 115 50 10 *spot2lj Spot2
  172. menu check Spot3 5 130 50 10 *spot3lj Spot3
  173. menu check Spot4 5 145 50 10 *spot4lj Spot4
  174. menu check Spot5 5 160 50 10 *spot5lj Spot5
  175. menu check Spot6 5 175 50 10 *spot6lj Spot6
  176. menu check Spot7 60 100 60 10 *spot7lj Spot7
  177. menu check Spot8 60 115 60 10 *spot8lj Spot8
  178. menu check Spot9 60 130 60 10 *spot9lj Spot9
  179. menu check Spot10 60 145 60 10 *spot10lj Spot10
  180. menu check Spot11 60 160 60 10 *spot11lj Spot11
  181. menu check Spot12 60 175 60 10 *spot12lj Spot12
  182. menu check Spot13 125 100 60 10 *spot13lj Spot13
  183. menu check Spot14 125 115 60 10 *spot14lj Spot14
  184. menu check Spot15 125 130 60 10 *spot15lj Spot15
  185. menu check Spot16 125 145 60 10 *spot16lj Spot16
  186. menu check Spot17 125 160 60 10 *spot17lj Spot17
  187. menu check Spot18 125 175 60 10 *spot18lj Spot18
  188. menu Font Color maroon
  189. menu check Plain 5 210 60 10 *checkplain Plain
  190. menu Font Color olive
  191. menu check Pinetree 5 225 60 10 *checkpine Pine
  192. menu Font Color Fuchsia
  193. menu check Cherry 5 240 69 10 *checkcherry Cherry
  194. menu Font Color Green
  195. menu check Maple 5 255 60 10 *checkmaple Maple
  196. menu Font Color 44
  197. menu check Oak 5 270 60 10 *checkoak Oak
  198. menu Font Color yellow
  199. menu check Sun 100 210 60 10 *checkSun Sun
  200. menu check Birch 100 225 60 10 *checkBirch Birch
  201. menu Font Color maroon
  202. menu check Jungle 100 240 60 10 *checkJungle Jungle
  203. menu Font Color Gray
  204. menu check Silver 100 255 60 10 *checksilver Silver
  205. menu Font Color Green
  206. menu check Poisen 100 270 60 10 *checkPoisen Poisen
  207. menu Font Color Fuchsia
  208. menu check Despair 195 210 60 10 *checkDespair Despair
  209. menu Font Color Red
  210. menu check Blood 195 225 60 10 *checkBlood Blood
  211. menu Font Color Navy
  212. menu check Dark 195 240 60 10 *checkDark Dark
  213. menu Font Color Aqua
  214. menu check Blessed 195 255 60 10 *checkBlessed Blessed
  215. menu Font Color White
  216. menu check Star 195 270 60 10 *checkStar Star
  217. ;================================================= Info Lines
  218. menu Font Color red
  219. Menu Text info1 190 100 Home Rune ID
  220. Menu Text info1 190 140 Home Chest ID
  221. menu Font Color blue
  222. Menu Text info1 190 115 *homerune
  223. Menu Text info1 190 155 *dropchest
  224. menu font color 0
  225. menu text info1 5 80 Locations to use:
  226. menu text info1 190 80 INFO:
  227. menu text info1 5 190 Logs To Dump on Move:
  228. ;================================================= Buttons
  229. menu Font BGColor Silver
  230. menu Font Color yellow
  231. menu button spot_rune 90 25 80 20 Set rune
  232. menu Font Color green
  233. menu button program_trees 175 25 100 20 Program Trees
  234. menu button spots 175 50 100 20 Remember Spots
  235. menu Font Color blue
  236. menu button set_home_rune 5 50 80 20 Home Rune
  237. menu button itemchest 5 25 80 20 Learn Chest
  238. menu Font Color red
  239. menu button chop 90 50 80 20 Begin LJ
  240. menu button HelpWindow 235 285 40 20 HELP
  241. menu button BackUP 170 285 60 20 BACK UP
  242. set #menubutton 0
  243. return
  244. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  245. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  246. ; End Of Menu and Intro
  247. ; Key Holding Loop
  248. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  249. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  250. control_watch:
  251. if #menubutton = spot_rune
  252. {
  253. set #menubutton 0
  254. gosub learn_rune
  255. }
  256. if #menubutton = program_trees
  257. {
  258. set #menubutton 0
  259. gosub learn_trees
  260. }
  261. if #menubutton = set_home_rune
  262. {
  263. set #menubutton 0
  264. gosub home_rune_learn
  265. gosub menu
  266. }
  267. if #menubutton = spots
  268. {
  269. set #menubutton 0
  270. gosub CheckConFig
  271. }
  272. if #menubutton = itemchest
  273. {
  274. set #menubutton 0
  275. gosub Home_Chest
  276. gosub menu
  277. }
  278. if #menubutton = chop
  279. {
  280. set #menubutton 0
  281. chooseSkill carp
  282. if #skill < 300 && %dontmakeboards = on
  283. display Your Carpentry Is Less Than 30 Failing To Make Boards is Likely, Consider Dropping Plain Logs, Click OK to Continue
  284. gosub Buildlist
  285. gosub Homerunecheck
  286. gosub Tool_Check
  287. gosub LJ_Menu
  288. gosub menu_updater_home
  289. gosub menu_updater
  290. gosub Intelligent_eater
  291. gosub Regs_Check
  292. gosub Make_Boards #FALSE
  293. gosub DropStuffOff
  294. if *countathome = on
  295. gosub menu_updater_home
  296. gosub menu_updater
  297. goto auto
  298. }
  299. if #menubutton = helpwindow
  300. {
  301. set #menubutton 0
  302. gosub helpwindow
  303. gosub menu
  304. }
  305. if #menubutton = backup
  306. {
  307. set #menubutton 0
  308. gosub savebackup
  309. gosub menu
  310. }
  311. goto control_watch
  312. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  313. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  314. ;New Subs For LJ Ver 3
  315. ;Itelligent_Eater ---------------------------------
  316. ;requires *dropchest
  317. ;Learn_trees ---------------------------------------
  318. ;requires #menusres for location NumberOfPaths
  319. ;Creates *TreeX Tree X
  320. ; *TreeY Tree Y
  321. ; *TreeZ Tree Z
  322. ; *TreeT Tree TiTle
  323. ; *Treeprog Used in In programming will be replaced by %variable after testing
  324. ; *Trees . *possitionbeingedited Total Trees For this spot
  325. ;Home_rune_learn -----------------------------------
  326. ;Creates *HOMERUNE
  327. ;Regs_Check ---------------------------------------
  328. ;requires *dropchest
  329. ;Tool_Check ---------------------------------------
  330. ;requires *tooldatabase ZHG_KGG_IGG_DGG_CGG_CIG_AIG_AGG_BIG_WFG
  331. ;requires *dropchest
  332. ;Make_Boards ---------------------------------------
  333. ;requires *tooldatabase ZHG_KGG_IGG_DGG_CGG_CIG_AIG_AGG_BIG_WFG
  334. ;Learn_rune ---------------------------------------
  335. ;requires #menusres for location NumberOfPaths
  336. ;Creates *Locationrune . %Location
  337. ;Chop_Tree ---------------------------------------
  338. ;requires %target To provide what tree to get from index
  339. ;*choppingtool List of all axe type
  340. ;Recall_Location -----------------------------------
  341. ;requires *dropchest
  342. ;requires %runeid
  343. ; CheckConFig -------------------------------------
  344. ;For Saving the Checkboxes
  345. ; Home_Chest --------------------------------------
  346. ;Creates *dropchest
  347. ; BuildList ------------------------------------
  348. ;Creates %spottochop
  349. ;DropStuffOff
  350. ;NextSpot
  351. ;HelpWindow
  352. ;Homerunecheck
  353. ;Dump_Logs
  354. ;savebackup
  355. ;LJ_Menu
  356. ;Menu_Updater
  357. ;Menu_Updater_Home
  358. ;Moongate
  359. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  360. ;===========================================================================
  361. ;===========================================================================
  362. ; Sub Intelligent_Eater Looks for food in backpack or ground around you
  363. ;===========================================================================
  364. ;===========================================================================
  365. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  366. sub Intelligent_eater
  367. if %addition = on
  368. gosub addition
  369. ignoreitem reset
  370. event macro 8 7
  371. wait 15
  372. event Sysmessage Checking Hunger Level
  373. finditem *Dropchest G_2
  374. if #findkind <> -1
  375. {
  376. wait 5
  377. set #lobjectid #findid
  378. event macro 17
  379. }
  380. wait 15
  381. eatloop:
  382. finditem EDF_QQD_FWI_UWI_TWI_KPE_MQE_UQE_CWE_KPE_ZPE_AXI_YWI_WLI_ACG_QRD_NRD_FUD_WBG_JQE_YWI_YSD_QQD C_ , #backpackid
  383. if #findkind = -1
  384. finditem EDF_QQD_FWI_UWI_TWI_KPE_MQE_UQE_CWE_KPE_ZPE_AXI_YWI_WLI_ACG_QRD_NRD_FUD_WBG_JQE_YWI_YSD_QQD C
  385. if #findkind = -1
  386. {
  387. event sysmessage You are out of food.
  388. if %usesounds = yes
  389. sound %failsound
  390. return
  391. }
  392. set #lobjectid #findid
  393. msg .hunger$
  394. wait 2
  395. scanjournal 1
  396. if are_you_anorexic in #journal
  397. event macro 17
  398. if stomach_is_growling in #journal
  399. event macro 17
  400. if some_food_would_be_welcome in #journal
  401. event macro 17
  402. if still_space_in_your_stomach in #journal
  403. event macro 17
  404. if eating_three_square_meals_a_day in #journal || watch_your_weight in #journal
  405. return
  406. wait 5
  407. goto eatloop
  408. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  409. ;=================================================================================
  410. ;=================================================================================
  411. ; Program Trees
  412. ;=================================================================================
  413. ;=================================================================================
  414. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  415. Sub Learn_trees
  416. ignoreitem reset
  417. event sysmessage Trick Alt A will force accept last tree
  418. event sysmessage Learning Trees...
  419. menu Get NumberOfPaths
  420. if #menures = 0 || #menures = N/A
  421. {
  422. event sysmessage Select a location to program then try again
  423. return
  424. }
  425. set %possitionbeingedited #menures
  426. if *trees . %possitionbeingedited = 0 || *trees . %possitionbeingedited = N/A
  427. goto program_first_tree
  428.  
  429. event sysmessage you have already set trees for this spot
  430. event sysmessage press d to delete them and press R to return
  431. delete_or_return:
  432. onhotkey R
  433. {
  434. event sysmessage Program of trees stopped
  435. return
  436. }
  437. onhotkey D
  438. {
  439. set *trees . %possitionbeingedited 0
  440. goto program_first_tree
  441. }
  442. goto delete_or_return
  443. program_first_tree:
  444. set *treeprog %possitionbeingedited
  445. set *treeprog *treeprog * 1000
  446. set %treeprog2 *treeprog
  447. set *treeprog *treeprog + 1
  448. event sysmessage Chop First Tree
  449. looping1:
  450. scanjournal 1
  451. set %j1 #journal
  452. scanjournal 2
  453. set %j2 #journal
  454. scanjournal 3
  455. set %j3 #journal
  456. scanjorrnal 4
  457. set %j4 #journal
  458. scanjournal 5
  459. set %j5 #journal
  460. set %journal %j1 , %j2 , %j3 , %j4 , %j5
  461. onhotkey ctrl a
  462. {
  463. set %journal You_Begin_Chopping
  464. event sysmessage Tree Forcefully accepted
  465. wait 2s
  466. }
  467.  
  468. if you_begin_chopping in %journal
  469. {
  470. set *TreeX . *Treeprog #LTARGETX
  471. set *TreeY . *TreeProg #LTARGETY
  472. set *TreeZ . *TreeProg #LTARGETZ
  473. set *TreeT . *TreeProg #LTARGETTILE
  474. set %treeprog3 *treeprog - %treeprog2
  475. set *Treeprog *Treeprog + 1
  476. event sysmessage Tree %treeprog3 Learned
  477. event sysmessage When your done editing tress press D to complete `
  478. event sysmessage That was easy
  479. event sysmessage How about another
  480. event sysmessage Tree
  481. }
  482. onhotkey D
  483. {
  484. set *possitionbeingedited %possitionbeingedited
  485. set *Trees . *possitionbeingedited %treeprog3
  486. event sysmessage Programming Complete added %treeprog3 Trees
  487. return
  488. }
  489. goto Looping1
  490. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  491. ;==================================================================================
  492. ;==================================================================================
  493. ; Home Rune
  494. ;==================================================================================
  495. ;==================================================================================
  496. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  497. sub Home_rune_learn
  498. ignoreitem reset
  499. event sysmessage Edditing Home Rune..
  500. event sysmessage Target A Rune Or Press R To Go Back
  501. set #targcurs 1
  502. homerune:
  503. onhotkey r
  504. {
  505. set #targcurs 0
  506. event sysmessage Program of rune stopped
  507. return
  508. }
  509. if #targcurs = 1
  510. goto homerune
  511. wait 10
  512. finditem #ltargetid
  513. wait 5
  514. if #findtype <> QWL
  515. {
  516. Event sysmessage You a appear to have hit somthing other than a rune
  517. if %usesounds = yes
  518. sound %failsound
  519. set #targcurs 1
  520. goto homerune
  521. }
  522. if #findcol <> 6
  523. {
  524. Event sysmessage Only a blue rune is a home rune silly
  525. if %usesounds = yes
  526. sound %failsound
  527. set #targcurs 1
  528. goto homerune
  529. }
  530. set *HOMERUNE #ltargetid ;================================================================================Variable ref.
  531. event sysmessage New Home Rune Set
  532. return
  533. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  534. ;======================================================================
  535. ;======================================================================
  536. ;Sub Regs Restock
  537. ;======================================================================
  538. ;======================================================================
  539. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  540. sub regs_check
  541. if %addition = on
  542. gosub addition
  543. event sysmessage Restocking Regs...
  544. ignoreitem reset
  545. event macro 8 7
  546. wait 15
  547. set %warningregs BloodMoss
  548. gosub regs_incheck JUF
  549. set %warningregs Mandrake
  550. gosub regs_incheck MZF
  551. set %warningregs BlackPearl
  552. gosub regs_incheck KUF
  553. return
  554. sub regs_incheck
  555. finditem %1 C_ , #Backpackid
  556. wait 5
  557. ignoreitem #findid
  558. if #findstack < 20
  559. {
  560. finditem *Dropchest G_2 ;================================================================================Variable ref.
  561. if #findkind = -1
  562. {
  563. Display Chest is Missing Script will Halt
  564. if %usesounds = yes
  565. sound %failsound
  566. halt
  567. }
  568. wait 5
  569. set #lobjectid #findid
  570. event macro 17
  571. wait 15
  572. finditem %1 C_ , *dropchest
  573. if #findkind -1
  574. {
  575. Display Out of %warningregs Script will halt
  576. if %usesounds = yes
  577. sound %failsound
  578. halt
  579. }
  580. if #findstack < 40
  581. display Warning %warningregs Low Regs
  582. wait 5
  583. Exevent drag #findid 20
  584. wait 5
  585. Exevent dropc #backpackid
  586. }
  587. return
  588. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  589. ;==========================================================
  590. ;==========================================================
  591. ; Drop Stuff Off
  592. ;==========================================================
  593. ;==========================================================
  594. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  595. Sub DropStuffOff
  596. if %addition = on
  597. gosub addition
  598. ignoreitem reset
  599. event macro 8 7
  600. wait 15
  601. event sysmessage Dropping All items to Chest...
  602. finditem *Dropchest G_2 ;================================================================================Variable ref.
  603. if #findkind = -1
  604. {
  605. Display Chest is Missing Script will Halt
  606. if %usesounds = yes
  607. sound %failsound
  608. halt
  609. }
  610. wait 5
  611. drop_stuff:
  612. Finditem EAG_ZLK_TLK_CKF C_ , #backpackid
  613. wait 5
  614. ignoreitem #findid
  615. if #findkind = -1
  616. {
  617. Event Sysmessage NO Logs or Boards Found
  618. return
  619. }
  620. exevent drag #findid #findstack
  621. wait 5
  622. exevent dropc *dropchest
  623. wait 5
  624. goto drop_stuff
  625. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  626. ;======================================================================
  627. ;======================================================================
  628. ;Sub Tool Check
  629. ;======================================================================
  630. ;======================================================================
  631. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  632. Sub Tool_Check
  633. if %addition = on
  634. gosub addition
  635. event sysmessage Checking Chopping Tool...
  636. finditem *choppingtool c_ , #backpackid
  637. if #findkind = -1
  638. {
  639. Display Chopping Tool is Missing Script will Halt
  640. if %usesounds = yes
  641. sound %failsound
  642. halt
  643. }
  644.  
  645. finditem *Dropchest G_2 ;================================================================================Variable ref.
  646. if #findkind = -1
  647. {
  648. Display Chest is Missing, Or Your Not Close Enought Script will Halt
  649. if %usesounds = yes
  650. sound %failsound
  651. halt
  652. }
  653. wait 5
  654. set #lobjectid #findid
  655. event macro 17
  656. wait 15
  657.  
  658. if %dontmakeboards = on
  659. return
  660. ignoreitem reset
  661. event sysmessage Checking Tool Count...
  662. event macro 8 7
  663. wait 15
  664. finditem *tooldatabase C_ , #backpackid
  665. if #findcnt > 3
  666. return
  667. grabsparetool:
  668. finditem *tooldatabase C_ , *dropchest ;================================================================================Variable ref.
  669. if #findkind -1
  670. {
  671. event sysmessage LOW TOOLS
  672. if %usesounds = yes
  673. sound %failsound
  674. return
  675. }
  676. exevent drag #findid
  677. wait 5
  678. exevent dropc #backpackid
  679. wait 5
  680. finditem *tooldatabase C_ , #backpackid
  681. if #findcnt > 3
  682. return
  683. goto grabsparetool
  684. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  685. ;===================================================================================
  686. ;===================================================================================
  687. ; Make Boards
  688. ;===================================================================================
  689. ;===================================================================================
  690. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  691. Sub Make_Boards
  692. if %addition = on
  693. gosub addition
  694. if %dontmakeboards = on
  695. return
  696. ignoreitem reset
  697. event macro 8 7
  698. wait 15
  699. event Sysmessage Making Boards...
  700. FIND_PLAIN_LOGS:
  701. Finditem ZLK C
  702. wait 5
  703. if #findkind = -1
  704. {
  705. Event Sysmessage No Logs to make Boards Out of
  706. Return
  707. }
  708. if %1 && #FINDCOL <> 0
  709. {
  710. ignoreitem #FINDID
  711. goto FIND_PLAIN_LOGS
  712. }
  713. set #ltargetid #findid
  714. set %plainlogsid #findid
  715. FindItem *tooldatabase C_ , #backpackid
  716. if #findkind = -1
  717. {
  718. event sysmessage all tools for making boards missing
  719. if %usesounds = yes
  720. sound %failsound
  721. return
  722. }
  723. set *genericgump yes
  724. wait 5
  725. set #lobjectid #findid
  726. repeat
  727. {
  728. FindItem *tooldatabase C_ , #backpackid
  729. set #lobjectid #findid
  730. event macro 17
  731. wait 25
  732. click 117 131
  733. wait 25
  734. click 165 209
  735. wait 25
  736. }
  737. until #targcurs = 1
  738. wait 10
  739. repeat
  740. {
  741. set #ltargetkind 1
  742. event macro 22
  743. }
  744. until #targcurs = 0
  745. set #scnt 0
  746. repeat
  747. {
  748. finditem %plainlogsid
  749. wait 5
  750. if #scnt > 45
  751. {
  752. event sysmessage Something went wrong
  753. if %usesounds = yes
  754. sound %failsound
  755. return
  756. }
  757. scanjournal
  758. if You_destroy_some_materials. in #sysmsg
  759. {
  760. wait 2
  761. event sysmessage Failed To Make Boards
  762. if %usesounds = yes
  763. sound %failsound
  764. goto FIND_PLAIN_LOGS
  765. }
  766. until #findkind = -1
  767. event sysmessage Boards Made
  768. set *genericgump no
  769. goto FIND_PLAIN_LOGS
  770. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  771. ;===========================================================================
  772. ;===========================================================================
  773. ; Learn Rune
  774. ;===========================================================================
  775. ;===========================================================================
  776. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  777. Sub learn_rune
  778. ignoreitem reset
  779. menu Get NumberOfPaths
  780. if #menures = 0 || #menures = N/A
  781. {
  782. event sysmessage Select a location to program then try again
  783. if %usesounds = yes
  784. sound %failsound
  785. return
  786. }
  787. set #targcurs 1
  788. set %possitionbeingedited #menures
  789. event sysmessage Edditing Possition #menures RUNE...
  790. event sysmessage Target A Rune Or Press R To Go Back
  791. runelearning:
  792. onhotkey r
  793. {
  794. set #targcurs 0
  795. event sysmessage Program of rune stopped
  796. return
  797. }
  798. if #targcurs = 1
  799. goto runelearning
  800. wait 10
  801. finditem #ltargetid
  802. wait 5
  803. if #findtype <> QWL
  804. {
  805. Event sysmessage You a appear to have hit somthing other than a rune
  806. set #targcurs 1
  807. if %usesounds = yes
  808. sound %failsound
  809. goto runelearning
  810. }
  811. if #findcol <> 0
  812. {
  813. Event sysmessage Only a yellow rune is a location rune silly
  814. if %usesounds = yes
  815. sound %failsound
  816. set #targcurs 1
  817. goto runelearning
  818. }
  819. wait 10
  820. set *LocationRune . %possitionbeingedited #ltargetid ;------------------------------------------ Variable Ref
  821. event sysmessage New Rune Set for location %possitionbeingedited
  822. return
  823. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  824. ;===============================================================================================
  825. ;===============================================================================================
  826. ; Sub Tree Chooping ============================================================================
  827. ;===============================================================================================
  828. ;===============================================================================================
  829. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  830. Sub Chop_Tree
  831. if %addition = on
  832. gosub addition
  833. ignoreitem reset
  834. event sysmessage Chopping Location TAG %target
  835. set #LTARGETX *Treex . %target ;------------------------------------------------ Variable Ref
  836. set #LTARGETY *Treey . %target
  837. set #LTARGETZ *TreeZ . %target
  838. set #LTARGETTILE *TreeT . %target
  839. set #LTARGETKIND 3
  840. gosub moongate
  841. msg $
  842. gosub pathfind #ltargetx #ltargety #ltargetz 1 15
  843. finditem *choppingtool C
  844. wait 5
  845. if #findkind = -1
  846. {
  847. All chopping Tools Missing Scripted Ended
  848. if %usesounds = yes
  849. sound %failsound
  850. halt
  851. }
  852. set #LOBJECTID #findid
  853. event Macro 17 0
  854. target
  855. if #TARGCURS = 1
  856. {
  857. event Macro 22 0
  858. }
  859. set #scnt 0
  860. CHOPPINGLOOP:
  861. scanjournal 1
  862. set %j1 #journal
  863. scanjournal 2
  864. set %j2 #journal
  865. scanjournal 3
  866. set %j3 #journal
  867. scanjorrnal 4
  868. set %j4 #journal
  869. scanjournal 5
  870. set %j5 #journal
  871. set %journal %j1 , %j2 , %j3 , %j4 , %j5
  872. if there's_not_enough in %journal
  873. {
  874. for %flood 1 5
  875. {
  876. event sysmessage %flood
  877. }
  878. return
  879. }
  880. if that_is_too_far in %journal
  881. {
  882. for %flood 1 5
  883. {
  884. event sysmessage %flood
  885. }
  886. return
  887. }
  888. if you_put in %journal
  889. {
  890. set #scnt 0
  891. }
  892. if you_fail in %journal
  893. set #scnt 0
  894. if #scnt > 25
  895. {
  896. event sysmessage Suspect Inactivity Returning
  897. if %usesounds = yes
  898. sound %failsound
  899. return
  900. }
  901. gosub Menu_Updater
  902. goto CHOPPINGLOOP
  903. ;=========================================================
  904. ;=========================================================
  905. ; Recall On Target
  906. ;=========================================================
  907. ;=========================================================
  908. Sub Recall_Location
  909. if %addition = on
  910. gosub addition
  911. if %usesounds = yes
  912. sound %startrecallsound
  913. if #maxmana < 11
  914. {
  915. display You Are too stupid to recall script ended
  916. if %usesounds = yes
  917. sound %failsound
  918. halt
  919. }
  920. ignoreitem reset
  921. set %tempx #charposx
  922. set %tempy #charposy
  923. msg .quip 2 $
  924. Event sysmessage Recalling...
  925. Event Macro 8 7
  926. finditem *Dropchest G_2 ;================================================================================Variable ref.
  927. wait 5
  928. if #findkind <> -1
  929. {
  930. set #lobjectid #findid
  931. event macro 17
  932. wait 15
  933. }
  934. finditem %runeid C
  935. wait 5
  936. if #findkind = -1
  937. {
  938. if %usesounds = yes
  939. sound %failsound
  940. Display Target Rune is Missing Check Rune Location
  941. Halt
  942. }
  943. Finditem JUF C_ , #backpackid
  944. wait 5
  945. if #findkind = -1
  946. {
  947. if %usesounds = yes
  948. sound %failsound
  949. display Recall Failed BloobMoss Script Halted
  950. halt
  951. }
  952. Finditem MZF C_ , #backpackid
  953. wait 5
  954. if #findkind = -1
  955. {
  956. if %usesounds = yes
  957. sound %failsound
  958. display Recall Failed Mandrake Script Halted
  959. halt
  960. }
  961. Finditem KUF C_ , #backpackid
  962. wait 5
  963. if #findkind = -1
  964. {
  965. if %usesounds = yes
  966. sound %failsound
  967. display Recall Failed BlackPearl Script Halted
  968. halt
  969. }
  970. event macro 15 30
  971. if #mana < 11
  972. {
  973. event sysmessage Waiting for mana to regain.
  974. repeat
  975. {
  976. wait 5
  977. }
  978. until #mana > 10
  979. }
  980. set #scnt 0
  981. Recall_Cast:
  982. scanjournal 1
  983. set %j1 #journal
  984. scanjournal 2
  985. set %j2 #journal
  986. scanjournal 3
  987. set %j3 #journal
  988. scanjorrnal 4
  989. set %j4 #journal
  990. scanjournal 5
  991. set %j5 #journal
  992. set %journal %j1 , %j2 , %j3 , %j4 , %j5
  993. if the_spell_fizzles in %journal || #scnt > 15
  994. {
  995. set #scnt 0
  996. msg .quip 2 $
  997. event macro 15 30
  998. for %flood 1 5
  999. {
  1000. event sysmessage %flood
  1001. }
  1002. }
  1003. if #targcurs = 1
  1004. {
  1005. set #ltargetkind 1
  1006. set #ltargetid %RuneID
  1007. set #scnt 0
  1008. event macro 22
  1009. if %usesounds = yes
  1010. sound %endrecallsound
  1011. repeat
  1012. {
  1013. if #scnt > 40
  1014. {
  1015. display Have Not Moved Something has gone wrong
  1016. halt
  1017. }
  1018. }
  1019. until %tempx <> #charposx || %tempy <> #charposy
  1020. wait 3s
  1021. msg .age $
  1022. msg .accountage $
  1023. wait 3s
  1024. return
  1025. }
  1026. goto Recall_Cast
  1027. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1028. ;===========================================================================
  1029. ;===========================================================================
  1030. ; Check Boxes Con-Fig
  1031. ;===========================================================================
  1032. ;===========================================================================
  1033. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1034. sub CheckConFig
  1035. event sysmessage Storing Check Box Config...
  1036. menu get spot1
  1037. set *spot1lj #menures
  1038. menu get spot2
  1039. set *spot2lj #menures
  1040. menu get spot3
  1041. set *spot3lj #menures
  1042. menu get spot4
  1043. set *spot4lj #menures
  1044. menu get spot5
  1045. set *spot5lj #menures
  1046. menu get spot6
  1047. set *spot6lj #menures
  1048. menu get spot7
  1049. set *spot7lj #menures
  1050. menu get spot8
  1051. set *spot8lj #menures
  1052. menu get spot9
  1053. set *spot9lj #menures
  1054. menu get spot10
  1055. set *spot10lj #menures
  1056. menu get spot11
  1057. set *spot11lj #menures
  1058. menu get spot12
  1059. set *spot12lj #menures
  1060. menu get spot13
  1061. set *spot13lj #menures
  1062. menu get spot14
  1063. set *spot14lj #menures
  1064. menu get spot15
  1065. set *spot15lj #menures
  1066. menu get spot16
  1067. set *spot16lj #menures
  1068. menu get spot17
  1069. set *spot17lj #menures
  1070. menu get spot18
  1071. set *spot18lj #menures
  1072. menu get Plain
  1073. set *checkPlain #menures
  1074. menu get Pinetree
  1075. set *checkPine #menures
  1076. menu get Sun
  1077. set *checkSun #menures
  1078. menu get Cherry
  1079. set *checkCherry #menures
  1080. menu get Oak
  1081. set *checkOak #menures
  1082. menu get Silver
  1083. set *checkSilver #menures
  1084. menu get Dark
  1085. set *checkDark #menures
  1086. menu get Jungle
  1087. set *checkJungle #menures
  1088. menu get Maple
  1089. set *checkmaple #menures
  1090. menu get Birch
  1091. set *checkBirch #menures
  1092. menu get Poisen
  1093. set *checkPoisen #menures
  1094. menu get Despair
  1095. set *checkDespair #menures
  1096. menu get Blood
  1097. set *checkBlood #menures
  1098. menu get Blessed
  1099. set *checkBlesses #menures
  1100. set #menubutton 0
  1101. event sysmessage Done...
  1102. return
  1103. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1104. ;===========================================================================
  1105. ;===========================================================================
  1106. ; Set Home Chest
  1107. ;===========================================================================
  1108. ;===========================================================================
  1109. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1110. sub Home_Chest
  1111. ignoreitem reset
  1112. event sysmessage Edditing Home Chest...
  1113. event sysmessage Target A Chest Or Press R To Go Back
  1114. set #targcurs 1
  1115. chestlearning:
  1116. onhotkey r
  1117. {
  1118. set #targcurs 0
  1119. event sysmessage Program of chest stopped
  1120. return
  1121. }
  1122. if #targcurs = 1
  1123. goto chestlearning
  1124. wait 10
  1125. finditem #ltargetid
  1126. wait 5
  1127. if #findtype = HIF
  1128. {
  1129. goto chestpass
  1130. }
  1131. if #findtype <> IIF
  1132. {
  1133. set #targcurs 1
  1134. if %usesounds = yes
  1135. sound %failsound
  1136. event Sysmessage That Does not appear to be a chest try again
  1137. goto chestlearning
  1138. }
  1139. chestpass:
  1140. set *dropchest #ltargetid ;================================================================================Variable ref.
  1141. event sysmessage New Home Chest Set...
  1142. return
  1143. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1144. ;==========================================================================
  1145. ; BuildLIst
  1146. ;==========================================================================
  1147. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1148. Sub BuildList
  1149. set %spottochop _
  1150. for %menugetspot 1 18
  1151. {
  1152. menu get spot , %menugetspot
  1153. if #menures = #true
  1154. set %spottochop %spottochop , %menugetspot , _
  1155. }
  1156. if %spottochop = _
  1157. {
  1158. Display NO SPOTS CHOSEN SCRIPT HALTED.
  1159. halt
  1160. }
  1161. set %logstodrop _
  1162. menu get Plain
  1163. if #menures = #true
  1164. {
  1165. set %logstodrop %logstodrop , 0 , _
  1166. event sysmessage Boards Making Disabled Plain Logs Dropped
  1167. set %dontmakeboards on
  1168. }
  1169. menu get Pinetree
  1170. if #menures = #true
  1171. set %logstodrop %logstodrop , 1447 , _
  1172. menu get Sun
  1173. if #menures = #true
  1174. set %logstodrop %logstodrop , 43 , _
  1175. menu get Cherry
  1176. if #menures = #true
  1177. set %logstodrop %logstodrop , 136 , _
  1178. menu get Oak
  1179. if #menures = #true
  1180. set %logstodrop %logstodrop , 1887 , _
  1181. menu get Dark
  1182. if #menures = #true
  1183. set %logstodrop %logstodrop , 1106 , _
  1184. menu get Jungle
  1185. if #menures = #true
  1186. set %logstodrop %logstodrop , 1002 , _
  1187. menu get Silver
  1188. if #menures = #true
  1189. set %logstodrop %logstodrop , 2301 , _
  1190. menu get Maple
  1191. if #menures = #true
  1192. set %logstodrop %logstodrop , 567 , _
  1193. menu get Birch
  1194. if #menures = #true
  1195. set %logstodrop %logstodrop , 48 , _
  1196. menu get Poisen
  1197. if #menures = #true
  1198. set %logstodrop %logstodrop , 267 , _
  1199. menu get Despair
  1200. if #menures = #true
  1201. set %logstodrop %logstodrop , 533 , _
  1202. menu get Blood
  1203. if #menures = #true
  1204. set %logstodrop %logstodrop , 1171 , _
  1205. menu get Blessed
  1206. if #menures = #true
  1207. set %logstodrop %logstodrop , 1193 , _
  1208. menu get Star
  1209. if #menures = #true
  1210. set %logstodrop %logstodrop , 1953 , _
  1211.  
  1212. if %logstodrop = _
  1213. {
  1214. event sysmessage You have chosen to drop no logs..
  1215. set %droppinglogsactive off
  1216. }
  1217. return
  1218. ;=========================================================
  1219. ; Gets Next Chosen Spot and Loads out Info <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1220. ;=========================================================
  1221. sub nextspot
  1222. checkingspotsallowance:
  1223. set %currentspot %currentspot + 1
  1224. if _ , %currentSpot , _ in %spottochop
  1225. {
  1226. set %treelimit *trees . %currentspot
  1227. if %treelimit = n/a
  1228. {
  1229. display No Trees Set for Spot %currentspot
  1230. goto checkingspotsallowance
  1231. }
  1232. set %runeid *locationrune . %currentspot
  1233. set %target %currentspot * 1000
  1234. set %target %target + 1
  1235. set %endtree %target + %treelimit
  1236. set %endtree %endtree - 1
  1237. return
  1238. }
  1239. if %currentspot = 19
  1240. set %currentspot 0
  1241. goto checkingspotsallowance
  1242. ;=============================================================================
  1243. ;Auto THE WHOLE SCRIPT RUNS FROM HERE <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  1244. ;=============================================================================
  1245. auto:
  1246. gosub nextspot
  1247. gosub recall_location
  1248. choppingmonitor:
  1249. ; after that tree make boards if heavy
  1250. if #weight => #maxweight
  1251. {
  1252. gosub Dump_Logs
  1253. gosub menu_updater
  1254. gosub Make_Boards #TRUE
  1255. }
  1256. ; if still heavey after boards do this
  1257. if #weight => #maxweight
  1258. {
  1259. set %runeid *homerune
  1260. gosub recall_location
  1261. wait 15
  1262. gosub Intelligent_eater
  1263. gosub Regs_Check
  1264. gosub Tool_Check
  1265. gosub Make_Boards #FALSE
  1266. gosub DropStuffOff
  1267. set %runeid *locationrune . %currentspot
  1268. gosub menu_updater_home
  1269. gosub menu_updater
  1270. Gosub Recall_Location
  1271. }
  1272. gosub menu_updater
  1273. gosub chop_tree
  1274. gosub menu_updater
  1275. ; After Chopping individual tree
  1276. set %target %target + 1
  1277. if %target <= %endtree
  1278. goto choppingmonitor
  1279.  
  1280. ; At End of this location
  1281. gosub Dump_Logs
  1282. gosub menu_updater
  1283. set %runeid *homerune
  1284. gosub recall_location
  1285. wait 15
  1286. gosub Intelligent_eater
  1287. gosub Regs_Check
  1288. gosub Tool_Check
  1289. gosub Make_Boards #FALSE
  1290. gosub DropStuffOff
  1291. gosub menu_updater_home
  1292. gosub menu_updater
  1293. goto auto
  1294. ; Addition from 3.0 to 3.1 ========================================================================================================= VERSION ADDITION
  1295. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1296. ;===========================================================================
  1297. ;===========================================================================
  1298. ; Sub helpwindow
  1299. ;===========================================================================
  1300. ;===========================================================================
  1301. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1302. sub helpwindow
  1303. menu clear
  1304. menu show
  1305. menu Window Color 0
  1306. menu Window Title RAZOR LJ HELP WINDOW
  1307. menu Window Size 700 650
  1308. menu Font Size 10
  1309. menu Font Color RED
  1310. menu Font BGColor 0
  1311. Menu Text info1 5 5 Hello and Welcome to Razors LJ Script Ver 3.5 SETUP GUIDE Page 1 of 2
  1312. menu Font Color Yellow
  1313. Menu Text info1 5 20 The First thing you need to decide is how many groups of trees you wish to lumberjack
  1314. Menu Text info1 5 35 Then Mark runes at each of these locations somehwere in the middle of all the trees at that spot
  1315. Menu Text info1 5 50 Then use the Program rune button in conjuction with the drop down location editor to add those runes
  1316. menu Font BGColor Silver
  1317. menu button spot_rune 250 70 80 20 Set rune
  1318. menu font bgcolor 0
  1319. Menu Text info1 400 70 <----- These Options
  1320. Menu Text info1 5 95 Once these runes have been learned into the macro they should be stored in the home chest
  1321. Menu Text info1 5 110 TIP!! Naming the runes e.g (Spot1 Cove Fruit) etc.. helps you keep track of them
  1322. menu Font Color Blue
  1323. ;========================================== Chest and Home
  1324. menu font bgcolor 0
  1325. Menu Text info1 5 140 Next Task Setting HOME RUNE and HOME CHEST
  1326. Menu Text info1 5 155 The Home Rune Should be marked in your house next to chest to be used by script
  1327. Menu Text info1 5 170 You Learn This Rune into the macro by using the following button
  1328. menu Font BGColor Silver
  1329. menu button set_home_rune 5 190 80 20 Home Rune
  1330. menu font bgcolor 0
  1331. Menu Text info1 5 210 The Home Chest is the chest is where all spare regs, tools, and location runes should be located
  1332. Menu Text info1 5 225 You learn the Chest into the macro by using the following button
  1333. menu Font BGColor Silver
  1334. menu button itemchest 5 245 80 20 Learn Chest
  1335. menu font bgcolor 0
  1336. ;========================================= Tree Learning
  1337. menu Font Color Green
  1338. menu text info1 5 280 Next we need to actually learn some trees into the script
  1339. menu text info1 5 295 Goto your frist location ( This is why naming runes is important )Then to the first tree to record
  1340. menu text info1 5 310 At your first location select the 1st location from drop box and click the program trees button
  1341. menu Font BGColor Silver
  1342. menu button program_trees 250 330 90 20 Program Trees
  1343. menu font bgcolor 0
  1344. menu text info1 5 355 After hitting the Program Button the script will ask you too target trees to record
  1345. menu text info1 5 375 TIP!! If you target a tree and theres no lumber because its been harvested by someone else
  1346. menu text info1 5 390 Ctrl A will forcefully accept it
  1347. menu text info1 5 410 When your done and have recorded enuff trees for spot 1 ( reccomend 10 minimum )
  1348. menu text info1 5 425 Press D To complete. Then repeat for all locations using the apropriate drop down selection
  1349. menu text info1 5 465 Now we have learnt all the locations we select the ones to use, using the following check boxes
  1350. menu font bgcolor Silver
  1351. menu check Spot1 5 485 80 10 #true Spot1
  1352. menu check Spot2 5 500 80 10 #false Spot2
  1353. menu check Spot3 5 515 80 10 #true Spot3
  1354. menu text info1 100 500 Etc...
  1355. menu font bgcolor 0
  1356. menu text info1 5 540 All the Runes, Trees, and Chest Id's are stored permantly in registry once recorded
  1357. menu text info1 5 555 If u want to save your check box selection for next time hit the Remember Spots Button
  1358. menu font bgcolor Silver
  1359. menu button spots 5 580 120 20 Remember Spots
  1360. menu font bgcolor 0
  1361. ;===========================================Drop Boxes
  1362. menu Font BGColor SkyBlue
  1363. menu Font Color Black
  1364. menu combo create NumberofPaths2 2 330 200
  1365. for %paths1 1 18
  1366. {
  1367. Menu combo add NumberofPaths2 Location %paths1
  1368. }
  1369. menu combo create NumberofPaths 2 70 200
  1370. for %paths1 1 18
  1371. {
  1372. Menu combo add NumberofPaths Location %paths1
  1373. }
  1374. ;==========================================Next pge
  1375. menu font color red
  1376. menu font size 15
  1377. menu button NextPge 350 600 160 40 Next
  1378. helpbeingread1:
  1379. if #menubutton <> NextPge
  1380. goto helpbeingread1
  1381. set #menubutton 0
  1382. ;======================================== Second Page ; Dump logs
  1383. menu clear
  1384. menu show
  1385. menu Window Color 0
  1386. menu Window Title RAZOR LJ HELP WINDOW
  1387. menu Window Size 700 650
  1388. menu Font Size 10
  1389. menu Font Color RED
  1390. menu Font BGColor 0
  1391. Menu Text info1 5 5 Hello and Welcome to Razors LJ Script Ver 3.5 SETUP GUIDE Page 2 of 2
  1392. menu Font Color Teal
  1393. Menu Text info1 5 20 Now we have all those key features set the last thing to decide is what logs to ditch, if any
  1394. Menu Text info1 5 35 Warning!! Ditching them means they are dumped to the floor while lumberjacking
  1395. Menu Text info1 5 50 You make your choice of logs using the checkboxes below
  1396. menu fond color green
  1397. menu check Jungle 5 115 60 20 #false Jungle
  1398. menu Font Color maroon
  1399. menu check Plain 5 70 60 20 #false Plain
  1400. menu Font Color olive
  1401. menu check Pinetree 5 85 60 20 #false Pine
  1402. menu Font Color yellow
  1403. menu check Sun 5 100 60 20 #false Sun
  1404. menu Font Color Fuchsia
  1405. menu check Cherry 100 70 60 20 #false Cherry
  1406. menu Font Color 44
  1407. menu check Oak 100 85 60 20 #false Oak
  1408. menu Font Color gray
  1409. menu check Silver 100 100 60 20 #false Silver
  1410. menu Font Color Navy
  1411. menu check Dark 100 115 60 20 #false Dark
  1412. menu font color red
  1413. menu text info1 200 92 PLEASE NOTE COLOURS AND AMOUNT HAS CHANGED VER 3.5f
  1414. menu text info1 200 110 set up for Neverlands-Phoenix logs 16/09/12
  1415. menu font color Teal
  1416. Menu Text info1 5 140 Once you have checked the boxes you want you save there config using the same button for locations
  1417. menu font bgcolor Silver
  1418. menu font color Green
  1419. menu button spots 5 160 120 20 Remember Spots
  1420. menu font bgcolor 0
  1421. menu Font Color Lime
  1422. menu text info1 5 180 Note! At present if your set to make boards you keep dead wood if your set to dump plain logs you dump them
  1423. menu text info1 5 195 if there given a use on neverlands ill seperate them
  1424. menu Font Color Aqua
  1425. menu text info1 5 220 We are ready to roll !!
  1426. menu text info1 5 235 Make sure you have plenty of recallers,carp tools and food in the home chest
  1427. menu text info1 5 250 Note .Quip 1 Needs to be set as Lumberjacking quip and .Quip 2 as Recalling Quip
  1428. menu text info1 5 265 Stand Next to your home chest. You Must always run the script from here
  1429. menu text info1 5 280 Hit the begin Lumberjacking button to start the automation of your LumberJack :)
  1430. menu font bgcolor Silver
  1431. menu font color red
  1432. menu button chop 5 300 80 20 Begin LJ
  1433. menu font bgcolor 0
  1434. menu Font Color Lime
  1435. menu text info1 5 630 I FEEL EDUCATED AND AM READY TO
  1436. menu button ExitHelp 250 630 150 20 EXIT
  1437. ;Extras from 3.3
  1438. menu text info1 5 400 EXTRAS: Back Up
  1439. menu text info1 5 420 Next to the help button is a BACK UP button
  1440. menu text info1 5 435 This button brings up a menu to create a text file back up of all settings and trees
  1441. menu text info1 5 460 This text file is itself a script to run in easyuo. Although all settings are stored in the registy normally
  1442. menu text info1 5 475 What if you format your pc?, or want to use another pc?, simply export all settings to a text file
  1443. menu text info1 5 490 Run that text file once in easyuo and all we be restored (Runes, Trees, All set info)
  1444. menufont color blue
  1445. menu text info1 5 530 UO Assist stops the move command working properly dont use UO Assist with this script
  1446. menu text info 5 545 Checking always run in the game options makes you that much faster :)
  1447. helpbeingread2:
  1448. if #menubutton <> ExitHelp
  1449. goto helpbeingread2
  1450. set #menubutton 0
  1451. return
  1452. ; Addition from 3.1 to 3.2 ========================================================================================================= VERSION ADDITION
  1453. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1454. ;===========================================================================
  1455. ;===========================================================================
  1456. ; Sub Homerunecheck
  1457. ;===========================================================================
  1458. ;===========================================================================
  1459. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1460. sub Homerunecheck
  1461. event sysmessage Checking Home Rune
  1462. event macro 8 7
  1463. wait 25
  1464. Finditem *homerune C_ , #backpackid
  1465. wait 5
  1466. if #findkind = -1
  1467. {
  1468. if %usesounds = yes
  1469. sound %failsound
  1470. display Home Rune is Missing or set to a invalid target
  1471. halt
  1472. }
  1473. return
  1474. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1475. ;==========================================================
  1476. ;==========================================================
  1477. ; Dump Logs
  1478. ;==========================================================
  1479. ;==========================================================
  1480. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1481. Sub Dump_Logs
  1482. if %droppinglogsactive = off
  1483. return
  1484. event sysmessage Dumping selected logs
  1485. ignoreitem reset
  1486. dump_logs:
  1487. Finditem EAG_ZLK_TLK C_ , #backpackid
  1488. wait 5
  1489. ignoreitem #findid
  1490. if #findkind = -1
  1491. {
  1492. Event Sysmessage NO more logs to dump
  1493. return
  1494. }
  1495. if _ , #findcol , _ notin %logstodrop
  1496. goto dump_logs
  1497. exevent drag #findid #findstack
  1498. wait 5
  1499. Exevent Dropg #charposx #charposy #charposz
  1500. wait 5
  1501. goto dump_logs
  1502. ; Addition from 3.2 to 3.3 ========================================================================================================= VERSION ADDITION
  1503. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1504. ;===========================================================================
  1505. ;===========================================================================
  1506. ; Sub Savebackup
  1507. ;===========================================================================
  1508. ;===========================================================================
  1509. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1510. Sub savebackup
  1511. menu clear
  1512. menu show
  1513. menu Window Color SkyBLue
  1514. menu Window Title BACKUP
  1515. menu Window Size 240 240
  1516. menu Font Size 10
  1517. menu Font Color black
  1518. menu font BgColor SkyBlue
  1519. menu text info 5 0 Save Backup Where
  1520. menu button save 5 50 100 20 SAVE
  1521. menu button abort 120 50 100 20 ABORT
  1522. menu edit path 5 20 150 C:\LJBackUP.txt
  1523. repeat
  1524. {
  1525. if #menubutton = Abort
  1526. {
  1527. set #menubutton 0
  1528. Return
  1529. }
  1530. }
  1531. until #menubutton = Save
  1532. set #menubutton 0
  1533. menu get path
  1534. set %file #menuRes
  1535. menu text Treet 5 70 Tree Titles
  1536. menu text Treex 5 100 Tree X-CoOrd
  1537. menu text Treey 5 130 Tree y-CoOrd
  1538. menu text Treez 5 160 Tree z-CoOrd
  1539. menu text Other 5 190 Runes, Chest, TreeCounts, CheckBox's
  1540. menu font color red
  1541. menu text Treetp 5 85 Pending...
  1542. menu text Treexp 5 115 Pending...
  1543. menu text Treeyp 5 145 Pending...
  1544. menu text Treezp 5 175 Pending...
  1545. menu text Otherp 5 205 Pending...
  1546. wait 2s
  1547. menu delete Treetp
  1548. menu font color Yellow
  1549. menu text Treetp 5 85 Started...
  1550. ;========================================== Saves Trees Titles
  1551. set %savegroup #spc
  1552. for %backupper 1 18
  1553. {
  1554. set %backuptrees . %backupper *trees . %backupper
  1555. set %firstbacktitle %backupper * 1000
  1556. set %firstbacktitle %firstbacktitle + 1
  1557. set %lastbacktitle %firstbacktitle + %backuptrees . %backupper
  1558. set %lastbacktitle %lastbacktitle - 1
  1559. if *trees . %backupper <> N/A
  1560. {
  1561. for %listing %firstbacktitle %lastbacktitle
  1562. {
  1563. set %nametosave set , #spc , * , treet , %listing , #spc , *treet . %listing
  1564. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1565. }
  1566. }
  1567. }
  1568. execute cmd.exe /c echo %saveGroup
  1569. ;===================================== Backsup Tree X Co-Ord
  1570. menu delete Treetp
  1571. menu font color Green
  1572. menu text Treetp 5 85 Complete
  1573. menu delete Treexp
  1574. menu font color Yellow
  1575. menu text Treexp 5 115 Started...
  1576. set %savegroup #spc
  1577. for %backupper 1 18
  1578. {
  1579. set %backuptrees . %backupper *trees . %backupper
  1580. set %firstbacktitle %backupper * 1000
  1581. set %firstbacktitle %firstbacktitle + 1
  1582. set %lastbacktitle %firstbacktitle + %backuptrees . %backupper
  1583. set %lastbacktitle %lastbacktitle - 1
  1584. if *trees . %backupper <> N/A
  1585. {
  1586. for %listing %firstbacktitle %lastbacktitle
  1587. {
  1588. set %nametosave set , #spc , * , treex , %listing , #spc , *treex . %listing
  1589. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1590. }
  1591. }
  1592. }
  1593. execute cmd.exe /c echo %saveGroup
  1594. ;===================================== Backsup Tree y Co-Ord
  1595. menu delete Treexp
  1596. menu font color Green
  1597. menu text Treexp 5 115 Complete
  1598. menu delete Treeyp
  1599. menu font color Yellow
  1600. menu text Treeyp 5 145 Started...
  1601. set %savegroup #spc
  1602. for %backupper 1 18
  1603. {
  1604. set %backuptrees . %backupper *trees . %backupper
  1605. set %firstbacktitle %backupper * 1000
  1606. set %firstbacktitle %firstbacktitle + 1
  1607. set %lastbacktitle %firstbacktitle + %backuptrees . %backupper
  1608. set %lastbacktitle %lastbacktitle - 1
  1609. if *trees . %backupper <> N/A
  1610. {
  1611. for %listing %firstbacktitle %lastbacktitle
  1612. {
  1613. set %nametosave set , #spc , * , treey , %listing , #spc , *treey . %listing
  1614. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1615. }
  1616. }
  1617. }
  1618. execute cmd.exe /c echo %saveGroup
  1619. ;===================================== Backsup Tree z Co-Ord
  1620. menu delete Treeyp
  1621. menu font color Green
  1622. menu text Treeyp 5 145 Complete
  1623. menu delete Treezp
  1624. menu font color Yellow
  1625. menu text Treezp 5 175 Started...
  1626. set %savegroup #spc
  1627. for %backupper 1 18
  1628. {
  1629. set %backuptrees . %backupper *trees . %backupper
  1630. set %firstbacktitle %backupper * 1000
  1631. set %firstbacktitle %firstbacktitle + 1
  1632. set %lastbacktitle %firstbacktitle + %backuptrees . %backupper
  1633. set %lastbacktitle %lastbacktitle - 1
  1634. if *trees . %backupper <> N/A
  1635. {
  1636. for %listing %firstbacktitle %lastbacktitle
  1637. {
  1638. set %nametosave set , #spc , * , treez , %listing , #spc , *treez . %listing
  1639. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1640. }
  1641. }
  1642. }
  1643. execute cmd.exe /c echo %saveGroup
  1644. ;============================================= Config Boxes
  1645. menu delete Treezp
  1646. menu font color Green
  1647. menu text Treezp 5 175 Complete
  1648. menu delete otherp
  1649. menu font color Yellow
  1650. menu text Otherp 5 205 Started...
  1651. set %savegroup #spc
  1652. set %nametosave set , #spc , * , checkplain , #spc , *checkplain
  1653. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1654. set %nametosave set , #spc , * , checkpine , #spc , *checkpine
  1655. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1656. set %nametosave set , #spc , * , checkcherry , #spc , *checkcherry
  1657. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1658. set %nametosave set , #spc , * , checksun , #spc , *checksun
  1659. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1660. set %nametosave set , #spc , * , checkjungle , #spc , *checkjungle
  1661. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1662. set %nametosave set , #spc , * , checkoak , #spc , *checkoak
  1663. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1664. set %nametosave set , #spc , * , checksilver , #spc , *checksilver
  1665. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1666. set %nametosave set , #spc , * , checkdark , #spc , *checkdark
  1667. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1668.  
  1669. ; addition for nlp ---------------------------------------------------------------------------------------------------------------------
  1670.  
  1671. set %nametosave set , #spc , * , checkMaple , #spc , *checkMaple
  1672. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1673. set %nametosave set , #spc , * , checkBirch , #spc , *checkpine
  1674. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1675. set %nametosave set , #spc , * , checkSilver , #spc , *checkSilver
  1676. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1677. set %nametosave set , #spc , * , checkPoisen , #spc , *checkPoisen
  1678. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1679. set %nametosave set , #spc , * , checkDespair , #spc , *checkDespair
  1680. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1681. set %nametosave set , #spc , * , checkBlood , #spc , *checkBlood
  1682. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1683. set %nametosave set , #spc , * , checkBlessed , #spc , *checkBlessed
  1684. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1685. set %nametosave set , #spc , * , checkStar , #spc , *checkStar
  1686. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1687.  
  1688. ; end of addition --------------------------------------------------------------------------------------------------------------------------
  1689.  
  1690. set %nametosave set , #spc , * , spot1lj , #spc , *spot1lj
  1691. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1692. set %nametosave set , #spc , * , spot12j , #spc , *spot2lj
  1693. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1694. set %nametosave set , #spc , * , spot3lj , #spc , *spot3lj
  1695. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1696. set %nametosave set , #spc , * , spot4lj , #spc , *spot4lj
  1697. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1698. set %nametosave set , #spc , * , spot5lj , #spc , *spot5lj
  1699. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1700. set %nametosave set , #spc , * , spot6lj , #spc , *spot6lj
  1701. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1702. set %nametosave set , #spc , * , spot7lj , #spc , *spot7lj
  1703. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1704. set %nametosave set , #spc , * , spot8lj , #spc , *spot8lj
  1705. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1706. set %nametosave set , #spc , * , spot9lj , #spc , *spot9lj
  1707. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1708. set %nametosave set , #spc , * , spot10lj , #spc , *spot10lj
  1709. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1710. set %nametosave set , #spc , * , spot11lj , #spc , *spot11lj
  1711. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1712. set %nametosave set , #spc , * , spot12lj , #spc , *spot12lj
  1713. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1714. set %nametosave set , #spc , * , spot13lj , #spc , *spot13lj
  1715. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1716. set %nametosave set , #spc , * , spot14lj , #spc , *spot14lj
  1717. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1718. set %nametosave set , #spc , * , spot15lj , #spc , *spot15lj
  1719. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1720. set %nametosave set , #spc , * , spot16lj , #spc , *spot16lj
  1721. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1722. set %nametosave set , #spc , * , spot17lj , #spc , *spot17lj
  1723. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1724. set %nametosave set , #spc , * , spot18lj , #spc , *spot18lj
  1725. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1726. set %nametosave set , #spc , * , homerune , #spc , *homerune
  1727. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1728. for %runestore 1 18
  1729. {
  1730. set %nametosave set , #spc , * , locationrune , %runestore , #spc , *locationrune . %runestore
  1731. if *locationrune . %runestore <> N/A
  1732. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1733. }
  1734. set %nametosave set , #spc , * , dropchest , #spc , *dropchest
  1735. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1736. for %runestore 1 18
  1737. {
  1738. set %nametosave set , #spc , * , trees , %runestore , #spc , *trees . %runestore
  1739. if *trees . %runestore <> N/A
  1740. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1741. }
  1742. set %nametosave halt
  1743. set %saveGroup %saveGroup , #SPC , %nametosave , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
  1744. execute cmd.exe /c echo %saveGroup
  1745. menu delete otherp
  1746. menu font color Green
  1747. menu text Otherp 5 205 Complete
  1748. wait 2s
  1749. menu delete Treet
  1750. menu delete Treex
  1751. menu delete Treey
  1752. menu delete Treez
  1753. menu delete Other
  1754. menu delete Treetp
  1755. menu delete Treexp
  1756. menu delete Treeyp
  1757. menu delete Treezp
  1758. menu delete Otherp
  1759. if %usesounds = yes
  1760. sound %backupcompletesound
  1761. menu text info1 5 200 Please Verify The File Was Created
  1762. wait 5s
  1763. return
  1764. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1765. ;==========================================================
  1766. ;==========================================================
  1767. ; LJ_Menu
  1768. ;==========================================================
  1769. ;==========================================================
  1770. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1771. sub Lj_menu
  1772. menu clear
  1773. menu show
  1774. menu Window Color moneygreen
  1775. menu Window Title RZR LJ Ver 3.6 Status
  1776. if *countathome = off
  1777. menu Window Size 200 420
  1778. if *countathome = on
  1779. menu Window Size 310 420
  1780. menu Font Name verdana
  1781. menu Font Size 10
  1782. menu Font Color 0
  1783. menu Font BGColor moneygreen
  1784.  
  1785. menu text KEEP 5 5 Name:
  1786. menu text KEEP 50 5 Count=
  1787. menu font color red
  1788. menu text KEEP 100 5 ON YOU
  1789. if *countathome = on
  1790. {
  1791. menu font color blue
  1792. menu text KEEP 160 5 AT HOME
  1793. menu font color black
  1794. menu text KEEP 230 5 TOTAL
  1795. }
  1796. menu Font Color maroon
  1797. menu text KEEP 5 20 PLAIN
  1798. menu Font Color olive
  1799. menu text KEEP 5 35 PINE
  1800. menu Font Color Fuchsia
  1801. menu text KEEP 5 50 CHERRY
  1802. menu Font Color Green
  1803. menu text KEEP 5 65 MAPLE
  1804. menu Font Color 44
  1805. menu text KEEP 5 80 OAK
  1806. menu Font Color yellow
  1807. menu text KEEP 5 95 SUN
  1808. menu text KEEP 5 110 BIRCH
  1809. menu font color maroon
  1810. menu text KEEP 5 125 JUNGLE
  1811. menu font color Gray
  1812. menu text KEEP 5 140 SILVER
  1813. menu font color green
  1814. menu text KEEP 5 155 POISEN
  1815. menu font color red
  1816. menu text KEEP 5 170 DESPAIR
  1817. menu font color red
  1818. menu text KEEP 5 185 BLOOD
  1819. menu font color navy
  1820. menu text KEEP 5 200 DARK
  1821. menu font color blue
  1822. menu text KEEP 5 215 BLESSED
  1823. menu font color white
  1824. menu text KEEP 5 230 STAR
  1825. menu Font Color blue
  1826. menu text KEEP 0 245 -----------------------------------------
  1827. menu text KEEP 0 305 -----------------------------------------
  1828. menu text KEEP 0 350 -----------------------------------------
  1829. menu font color black
  1830. Menu Text KEEP 5 260 X-POS
  1831. Menu Text KEEP 5 275 Y-POS
  1832. Menu Text KEEP 5 290 Z-POS
  1833. Menu Text KEEP 5 320 Maxweight
  1834. menu text KEEP 5 335 Weight
  1835. menu font color maroon
  1836. menu text KEEP 5 365 Mandrake
  1837. menu font color red
  1838. menu text KEEP 5 380 BloodMoss
  1839. menu font color Navy
  1840. menu text KEEP 5 395 BlackPearl
  1841. set %plaindisplay 60001
  1842. set %pinedisplay 600010
  1843. set %sundisplay 60001
  1844. set %cherrydisplay 60001
  1845. set %oakdisplay 60001
  1846. set %jungledisplay 60001
  1847. set %silverdisplay 60001
  1848. set %mapledisplay 60001
  1849. set %birchdisplay 60001
  1850. set %silverdisplay 60001
  1851. set %poisendisplay 60001
  1852. set %despairdisplay 60001
  1853. set %blooddisplay 60001
  1854. set %blesseddisplay 60001
  1855. set %stardisplay 60001
  1856. set %displayx 999999
  1857. set %displayy 999999
  1858. set %displayz 999999
  1859. set %displaymaxw 60001
  1860. set %displayw 60001
  1861. set %displaymandrake 60001
  1862. set %displayblood 60001
  1863. set %displayblack 60001
  1864. if *countathome = on
  1865. {
  1866. set %plaindisplayhome 6000001
  1867. set %pinedisplayhome 60000010
  1868. set %sundisplayhome 6000001
  1869. set %cherrydisplayhome 6000001
  1870. set %oakdisplayhome 6000001
  1871. set %jungledisplayhome 6000001
  1872. set %silverdisplayhome 6000001
  1873. set %mapledisplayhome 6000001
  1874. set %birchdisplayhome 6000001
  1875. set %silverdisplayhome 6000001
  1876. set %poisendisplayhome 6000001
  1877. set %despairdisplayhome 6000001
  1878. set %blooddisplayhome 6000001
  1879. set %blesseddisplayhome 6000001
  1880. set %stardisplayhome 6000001
  1881. set %displaymandrakehome 6000001
  1882. set %displaybloodhome 6000001
  1883. set %displayblackhome 6000001
  1884. set %plaindisplaytotal 6000001
  1885. set %pinedisplaytotal 60000010
  1886. set %sundisplaytotal 6000001
  1887. set %cherrydisplaytotal 6000001
  1888. set %oakdisplaytotal 6000001
  1889. set %jungledisplaytotal 6000001
  1890. set %silverdisplaytotal 6000001
  1891. set %mapledisplaytotal 6000001
  1892. set %birchdisplaytotal 6000001
  1893. set %silverdisplaytotal 6000001
  1894. set %poisendisplaytotal 6000001
  1895. set %despairdisplaytotal 6000001
  1896. set %blooddisplaytotal 6000001
  1897. set %blesseddisplaytotal 6000001
  1898. set %stardisplaytotal 6000001
  1899. set %displaymandraketotal 6000001
  1900. set %displaybloodtotal 6000001
  1901. set %displayblacktotal 6000001
  1902. }
  1903. ignoreitem reset
  1904. return
  1905. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1906. ;==========================================================
  1907. ;==========================================================
  1908. ; Menu_Updater
  1909. ;==========================================================
  1910. ;==========================================================
  1911. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1912. sub menu_updater
  1913. if #clilogged = 1 && #contname = waiting_gump && #contposx = 222
  1914. {
  1915. repeat
  1916. {
  1917. click 414 382 d
  1918. wait 50
  1919. }
  1920. until #contname <> waiting_gump || #contposx <> 222
  1921. wait 50
  1922. msg CHOP CHOP $
  1923. }
  1924. set %lpc #lpc
  1925. set #lpc 200
  1926. ignoreitem reset
  1927. set #scnt2 0
  1928. set %plainlogs 0
  1929. set %pinelogs 0
  1930. set %sunlogs 0
  1931. set %cherrylogs 0
  1932. set %oaklogs 0
  1933. set %junglelogs 0
  1934. set %silverlogs 0
  1935. set %maplelogs 0
  1936. set %birchlogs 0
  1937. set %silverlogs 0
  1938. set %poisenlogs 0
  1939. set %despairlogs 0
  1940. set %bloodlogs 0
  1941. set %blessedlogs 0
  1942. set %starlogs 0
  1943. set %darklogs 0
  1944. findalllogs:
  1945. finditem TLK_ZLK C_ , #backpackid ;boards
  1946. if #findkind <> -1
  1947. {
  1948. if #findcol = 0
  1949. set %plainlogs %plainlogs + #findstack
  1950. if #findcol = 43
  1951. set %sunlogs %sunlogs + #findstack
  1952. if #findcol = 136
  1953. set %cherrylogs %cherrylogs + #findstack
  1954. if #findcol = 1887
  1955. set %oaklogs %oaklogs + #findstack
  1956. if #findcol = 1447
  1957. set %pinelogs %pinelogs + #findstack
  1958. if #findcol = 2301
  1959. set %silverlogs %silverlogs + #findstack
  1960. if #findcol = 1106
  1961. set %darklogs %darklogs + #findstack
  1962. if #findcol = 1002
  1963. set %junglelogs %junglelogs + #findstack
  1964. if #findcol = 567
  1965. set %maplelogs %maplelogs + #findstack
  1966. if #findcol = 48
  1967. set %birchlogs %birchlogs + #findstack
  1968. if #findcol = 267
  1969. set %poisenlogs %poisenlogs + #findstack
  1970. if #findcol = 533
  1971. set %despairlogs %despairlogs + #findstack
  1972. if #findcol = 1171
  1973. set %bloodlogs %bloodlogs + #findstack
  1974. if #findcol = 1193
  1975. set %blessedlogs %blessedlogs + #findstack
  1976. if #findcol = 1953
  1977. set %starlogs %starlogs + #findstack
  1978. ignoreitem #findid
  1979. goto findalllogs
  1980. }
  1981. ignoreitem reset
  1982.  
  1983. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1984. ;==========================================================
  1985. ;==========================================================
  1986. ; Menu_Updater
  1987. ;==========================================================
  1988. ;==========================================================
  1989. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  1990. sub menu_updater
  1991. if #clilogged = 1 && #contname = waiting_gump && #contposx = 222
  1992. {
  1993. repeat
  1994. {
  1995. click 414 382 d
  1996. wait 50
  1997. }
  1998. until #contname <> waiting_gump || #contposx <> 222
  1999. wait 50
  2000. msg CHOP CHOP $
  2001. }
  2002. set %lpc #lpc
  2003. set #lpc 200
  2004. ignoreitem reset
  2005. set #scnt2 0
  2006. set %plainlogs 0
  2007. set %pinelogs 0
  2008. set %sunlogs 0
  2009. set %cherrylogs 0
  2010. set %oaklogs 0
  2011. set %junglelogs 0
  2012. set %silverlogs 0
  2013. set %maplelogs 0
  2014. set %birchlogs 0
  2015. set %silverlogs 0
  2016. set %poisenlogs 0
  2017. set %despairlogs 0
  2018. set %bloodlogs 0
  2019. set %blessedlogs 0
  2020. set %starlogs 0
  2021. set %darklogs 0
  2022. findalllogs:
  2023. finditem TLK_ZLK C_ , #backpackid ;boards
  2024. if #findkind <> -1
  2025. {
  2026. if #findcol = 0
  2027. set %plainlogs %plainlogs + #findstack
  2028. if #findcol = 43
  2029. set %sunlogs %sunlogs + #findstack
  2030. if #findcol = 136
  2031. set %cherrylogs %cherrylogs + #findstack
  2032. if #findcol = 1887
  2033. set %oaklogs %oaklogs + #findstack
  2034. if #findcol = 1447
  2035. set %pinelogs %pinelogs + #findstack
  2036. if #findcol = 2301
  2037. set %silverlogs %silverlogs + #findstack
  2038. if #findcol = 1106
  2039. set %darklogs %darklogs + #findstack
  2040. if #findcol = 1002
  2041. set %junglelogs %junglelogs + #findstack
  2042. if #findcol = 567
  2043. set %maplelogs %maplelogs + #findstack
  2044. if #findcol = 48
  2045. set %birchlogs %birchlogs + #findstack
  2046. if #findcol = 267
  2047. set %poisenlogs %poisenlogs + #findstack
  2048. if #findcol = 533
  2049. set %despairlogs %despairlogs + #findstack
  2050. if #findcol = 1171
  2051. set %bloodlogs %bloodlogs + #findstack
  2052. if #findcol = 1193
  2053. set %blessedlogs %blessedlogs + #findstack
  2054. if #findcol = 1953
  2055. set %starlogs %starlogs + #findstack
  2056. ignoreitem #findid
  2057. goto findalllogs
  2058. }
  2059. ignoreitem reset
  2060. if %plainlogs <> %plaindisplay
  2061. {
  2062. menu font color Maroon
  2063. menu delete StatusPlain
  2064. menu text StatusPlain 100 20 %plainlogs
  2065. set %plaindisplay %plainlogs
  2066. if *countathome = on
  2067. {
  2068. set %plaintotal %plaindisplayhome + %plaindisplay
  2069. menu delete StatusPlainTotal
  2070. menu text StatusPlainTotal 230 20 %plaintotal
  2071. }
  2072. }
  2073. if %pinelogs <> %pinedisplay
  2074. {
  2075. menu font color olive
  2076. menu delete Statuspine
  2077. menu text Statuspine 100 35 %pinelogs
  2078. set %pinedisplay %pinelogs
  2079. if *countathome = on
  2080. {
  2081. set %pinetotal %pinedisplayhome + %pinedisplay
  2082. menu delete StatuspineTotal
  2083. menu text StatuspineTotal 230 35 %pinetotal
  2084. }
  2085. }
  2086. if %cherrylogs <> %cherrydisplay
  2087. {
  2088. menu font color Fuchsia
  2089. menu delete StatusCherry
  2090. menu text StatusCherry 100 50 %cherrylogs
  2091. set %cherrydisplay %cherrylogs
  2092. if *countathome = on
  2093. {
  2094. set %cherrytotal %cherrydisplayhome + %cherrydisplay
  2095. menu delete StatuscherryTotal
  2096. menu text StatuscherryTotal 230 50 %cherrytotal
  2097. }
  2098. }
  2099. if %maplelogs <> %mapledisplay
  2100. {
  2101. menu font color green
  2102. menu delete Statusmaple
  2103. menu text Statusmaple 100 65 %maplelogs
  2104. set %mapledisplay %maplelogs
  2105. if *countathome = on
  2106. {
  2107. set %mapletotal %mapledisplayhome + %mapledisplay
  2108. menu delete StatusmapleTotal
  2109. menu text StatusmapleTotal 230 65 %mapletotal
  2110. }
  2111. }
  2112. if %oaklogs <> %oakdisplay
  2113. {
  2114. menu font color 44
  2115. menu delete Statusoak
  2116. menu text Statusoak 100 80 %oaklogs
  2117. set %oakdisplay %oaklogs
  2118. if *countathome = on
  2119. {
  2120. set %oaktotal %oakdisplayhome + %oakdisplay
  2121. menu delete StatusoakTotal
  2122. menu text StatusoakTotal 230 80 %oaktotal
  2123. }
  2124. }
  2125. if %sunlogs <> %sundisplay
  2126. {
  2127. menu font color yellow
  2128. menu delete Statussun
  2129. menu text Statussun 100 95 %sunlogs
  2130. set %sundisplay %sunlogs
  2131. if *countathome = on
  2132. {
  2133. set %suntotal %sundisplayhome + %sundisplay
  2134. menu delete StatussunTotal
  2135. menu text StatussunTotal 230 95 %suntotal
  2136. }
  2137. }
  2138. if %birchlogs <> %birchdisplay
  2139. {
  2140. menu font color yellow
  2141. menu delete Statusbirch
  2142. menu text Statusbirch 100 110 %birchlogs
  2143. set %birchdisplay %birchlogs
  2144. if *countathome = on
  2145. {
  2146. set %birchtotal %birchdisplayhome + %birchdisplay
  2147. menu delete StatusbirchTotal
  2148. menu text StatusbirchTotal 230 110 %birchtotal
  2149. }
  2150. }
  2151. if %junglelogs <> %jungledisplay
  2152. {
  2153. menu font color maroon
  2154. menu delete StatusJungle
  2155. menu text StatusJungle 100 125 %junglelogs
  2156. set %jungledisplay %junglelogs
  2157. if *countathome = on
  2158. {
  2159. set %jungletotal %jungledisplayhome + %jungledisplay
  2160. menu delete StatusjungleTotal
  2161. menu text StatusjungleTotal 230 125 %jungletotal
  2162. }
  2163. }
  2164. if %silverlogs <> %silverdisplay
  2165. {
  2166. menu font color gray
  2167. menu delete Statussilver
  2168. menu text Statussilver 100 140 %silverlogs
  2169. set %silverdisplay %silverlogs
  2170. if *countathome = on
  2171. {
  2172. set %silvertotal %silverdisplayhome + %silverdisplay
  2173. menu delete StatussilverTotal
  2174. menu text StatussilverTotal 230 140 %silvertotal
  2175. }
  2176. }
  2177. if %poisenlogs <> %poisendisplay
  2178. {
  2179. menu font color green
  2180. menu delete Statuspoisen
  2181. menu text Statuspoisen 100 155 %poisenlogs
  2182. set %poisendisplay %poisenlogs
  2183. if *countathome = on
  2184. {
  2185. set %poisentotal %poisendisplayhome + %poisendisplay
  2186. menu delete StatuspoisenTotal
  2187. menu text StatuspoisenTotal 230 155 %poisentotal
  2188. }
  2189. }
  2190. if %despairlogs <> %despairdisplay
  2191. {
  2192. menu font color green
  2193. menu delete Statusdespair
  2194. menu text Statusdespair 100 170 %despairlogs
  2195. set %despairdisplay %despairlogs
  2196. if *countathome = on
  2197. {
  2198. set %despairtotal %despairdisplayhome + %despairdisplay
  2199. menu delete StatusdespairTotal
  2200. menu text StatusdespairTotal 230 170 %despairtotal
  2201. if *countathome = on
  2202. }
  2203. }
  2204. if %bloodlogs <> %blooddisplay
  2205. {
  2206. menu font color red
  2207. menu delete Statusblood
  2208. menu text Statusblood 100 185 %bloodlogs
  2209. set %blooddisplay %bloodlogs
  2210. if *countathome = on
  2211. {
  2212. set %bloodtotal %blooddisplayhome + %blooddisplay
  2213. menu delete StatusbloodTotal
  2214. menu text StatusbloodTotal 230 185 %bloodtotal
  2215. }
  2216. }
  2217. if %darklogs <> %darkdisplay
  2218. {
  2219. menu font color navy
  2220. menu delete Statusdark
  2221. menu text Statusdark 100 200 %darklogs
  2222. set %darkdisplay %darklogs
  2223. if *countathome = on
  2224. {
  2225. set %darktotal %darkdisplayhome + %darkdisplay
  2226. menu delete StatusdarkTotal
  2227. menu text StatusdarkTotal 230 200 %darktotal
  2228. }
  2229. }
  2230. if %Blessedlogs <> %Blesseddisplay
  2231. {
  2232. menu font color blue
  2233. menu delete StatusBlessed
  2234. menu text StatusBlessed 100 215 %Blessedlogs
  2235. set %Blesseddisplay %Blessedlogs
  2236. if *countathome = on
  2237. {
  2238. set %blessedtotal %blesseddisplayhome + %blesseddisplay
  2239. menu delete StatusblessedTotal
  2240. menu text StatusblessedTotal 230 215 %blessedtotal
  2241. }
  2242. }
  2243. if %Starlogs <> %Stardisplay
  2244. {
  2245. menu font color white
  2246. menu delete StatusStar
  2247. menu text StatusStar 100 230 %Starlogs
  2248. set %Stardisplay %Starlogs
  2249. if *countathome = on
  2250. {
  2251. set %startotal %stardisplayhome + %stardisplay
  2252. menu delete StatusstarTotal
  2253. menu text StatusstarTotal 230 230 %startotal
  2254. }
  2255. }
  2256. menu font color black
  2257. if %displayx <> #charposx
  2258. {
  2259. menu delete StatusX
  2260. Menu Text StatusX 120 260 #charposx
  2261. set %displayx #charposx
  2262. }
  2263.  
  2264. if %displayy <> #charposy
  2265. {
  2266. menu delete StatusY
  2267. Menu Text StatusY 120 275 #charposy
  2268. set %displayy #charposy
  2269. }
  2270.  
  2271. if %displayz <> #charposz
  2272. {
  2273. menu delete StatusZ
  2274. Menu Text StatusZ 120 290 #charposz
  2275. set %displayz #charposz
  2276. }
  2277.  
  2278. if %displaymaxw <> #maxweight
  2279. {
  2280. menu font color black
  2281. menu Delete StatusWeightM
  2282. menu text StatusWeightM 120 320 #maxweight
  2283. set %displaymaxw #maxweight
  2284. }
  2285.  
  2286. if %displayw <> #weight
  2287. {
  2288. if #weight > #maxweight
  2289. {
  2290. menu font color red
  2291. menu Delete StatusWeight
  2292. menu text StatusWeight 120 335 #weight !!
  2293. set %displayw #weight
  2294. }
  2295. else
  2296. {
  2297. menu font color blue
  2298. menu Delete StatusWeight
  2299. menu text StatusWeight 120 335 #weight
  2300. set %displayw #weight
  2301. }
  2302. }
  2303.  
  2304.  
  2305. Finditem MZF C_ , #backpackid
  2306. if %displaymandrake <> #findstack
  2307. {
  2308. menu font color maroon
  2309. menu delete StatusMandrake
  2310. menu text StatusMandrake 100 365 #findstack
  2311. set %displaymandrake #findstack
  2312. }
  2313. Finditem JUF C_ , #backpackid
  2314. if %displayblood <> #findstack
  2315. {
  2316. menu font color red
  2317. menu delete StatusBloodmoss
  2318. menu text StatusBloodmoss 100 380 #findstack
  2319. set %displayblood #findstack
  2320. }
  2321. Finditem KUF C_ , #backpackid
  2322. if %displayblack <> #findstack
  2323. {
  2324. menu font color Navy
  2325. menu delete StatusBlack
  2326. menu text StatusBlack 100 395 #findstack
  2327. ignoreitem reset
  2328. set %displayblack #findstack
  2329. }
  2330. set #lpc %lpc
  2331. return
  2332.  
  2333.  
  2334.  
  2335.  
  2336. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2337. ;==========================================================
  2338. ;==========================================================
  2339. ; Menu_Updater
  2340. ;==========================================================
  2341. ;==========================================================
  2342. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2343. sub menu_updater
  2344. if #clilogged = 1 && #contname = waiting_gump && #contposx = 222
  2345. {
  2346. repeat
  2347. {
  2348. click 414 382 d
  2349. wait 50
  2350. }
  2351. until #contname <> waiting_gump || #contposx <> 222
  2352. wait 50
  2353. msg CHOP CHOP $
  2354. }
  2355. set %lpc #lpc
  2356. set #lpc 200
  2357. ignoreitem reset
  2358. set #scnt2 0
  2359. set %plainlogs 0
  2360. set %pinelogs 0
  2361. set %sunlogs 0
  2362. set %cherrylogs 0
  2363. set %oaklogs 0
  2364. set %junglelogs 0
  2365. set %silverlogs 0
  2366. set %maplelogs 0
  2367. set %birchlogs 0
  2368. set %silverlogs 0
  2369. set %poisenlogs 0
  2370. set %despairlogs 0
  2371. set %bloodlogs 0
  2372. set %blessedlogs 0
  2373. set %starlogs 0
  2374. set %darklogs 0
  2375. findalllogs:
  2376. finditem TLK_ZLK C_ , #backpackid ;boards
  2377. if #findkind <> -1
  2378. {
  2379. if #findcol = 0
  2380. set %plainlogs %plainlogs + #findstack
  2381. if #findcol = 43
  2382. set %sunlogs %sunlogs + #findstack
  2383. if #findcol = 136
  2384. set %cherrylogs %cherrylogs + #findstack
  2385. if #findcol = 1887
  2386. set %oaklogs %oaklogs + #findstack
  2387. if #findcol = 1447
  2388. set %pinelogs %pinelogs + #findstack
  2389. if #findcol = 2301
  2390. set %silverlogs %silverlogs + #findstack
  2391. if #findcol = 1106
  2392. set %darklogs %darklogs + #findstack
  2393. if #findcol = 1002
  2394. set %junglelogs %junglelogs + #findstack
  2395. if #findcol = 567
  2396. set %maplelogs %maplelogs + #findstack
  2397. if #findcol = 48
  2398. set %birchlogs %birchlogs + #findstack
  2399. if #findcol = 267
  2400. set %poisenlogs %poisenlogs + #findstack
  2401. if #findcol = 533
  2402. set %despairlogs %despairlogs + #findstack
  2403. if #findcol = 1171
  2404. set %bloodlogs %bloodlogs + #findstack
  2405. if #findcol = 1193
  2406. set %blessedlogs %blessedlogs + #findstack
  2407. if #findcol = 1953
  2408. set %starlogs %starlogs + #findstack
  2409. ignoreitem #findid
  2410. goto findalllogs
  2411. }
  2412. ignoreitem reset
  2413. if %plainlogs <> %plaindisplay
  2414. {
  2415. menu font color Maroon
  2416. menu delete StatusPlain
  2417. menu text StatusPlain 100 20 %plainlogs
  2418. set %plaindisplay %plainlogs
  2419. if *countathome = on
  2420. {
  2421. set %plaintotal %plaindisplayhome + %plaindisplay
  2422. menu delete StatusPlainTotal
  2423. menu text StatusPlainTotal 230 20 %plaintotal
  2424. }
  2425. }
  2426. if %pinelogs <> %pinedisplay
  2427. {
  2428. menu font color olive
  2429. menu delete Statuspine
  2430. menu text Statuspine 100 35 %pinelogs
  2431. set %pinedisplay %pinelogs
  2432. if *countathome = on
  2433. {
  2434. set %pinetotal %pinedisplayhome + %pinedisplay
  2435. menu delete StatuspineTotal
  2436. menu text StatuspineTotal 230 35 %pinetotal
  2437. }
  2438. }
  2439. if %cherrylogs <> %cherrydisplay
  2440. {
  2441. menu font color Fuchsia
  2442. menu delete StatusCherry
  2443. menu text StatusCherry 100 50 %cherrylogs
  2444. set %cherrydisplay %cherrylogs
  2445. if *countathome = on
  2446. {
  2447. set %cherrytotal %cherrydisplayhome + %cherrydisplay
  2448. menu delete StatuscherryTotal
  2449. menu text StatuscherryTotal 230 50 %cherrytotal
  2450. }
  2451. }
  2452. if %maplelogs <> %mapledisplay
  2453. {
  2454. menu font color green
  2455. menu delete Statusmaple
  2456. menu text Statusmaple 100 65 %maplelogs
  2457. set %mapledisplay %maplelogs
  2458. if *countathome = on
  2459. {
  2460. set %mapletotal %mapledisplayhome + %mapledisplay
  2461. menu delete StatusmapleTotal
  2462. menu text StatusmapleTotal 230 65 %mapletotal
  2463. }
  2464. }
  2465. if %oaklogs <> %oakdisplay
  2466. {
  2467. menu font color 44
  2468. menu delete Statusoak
  2469. menu text Statusoak 100 80 %oaklogs
  2470. set %oakdisplay %oaklogs
  2471. if *countathome = on
  2472. {
  2473. set %oaktotal %oakdisplayhome + %oakdisplay
  2474. menu delete StatusoakTotal
  2475. menu text StatusoakTotal 230 80 %oaktotal
  2476. }
  2477. }
  2478. if %sunlogs <> %sundisplay
  2479. {
  2480. menu font color yellow
  2481. menu delete Statussun
  2482. menu text Statussun 100 95 %sunlogs
  2483. set %sundisplay %sunlogs
  2484. if *countathome = on
  2485. {
  2486. set %suntotal %sundisplayhome + %sundisplay
  2487. menu delete StatussunTotal
  2488. menu text StatussunTotal 230 95 %suntotal
  2489. }
  2490. }
  2491. if %birchlogs <> %birchdisplay
  2492. {
  2493. menu font color yellow
  2494. menu delete Statusbirch
  2495. menu text Statusbirch 100 110 %birchlogs
  2496. set %birchdisplay %birchlogs
  2497. if *countathome = on
  2498. {
  2499. set %birchtotal %birchdisplayhome + %birchdisplay
  2500. menu delete StatusbirchTotal
  2501. menu text StatusbirchTotal 230 110 %birchtotal
  2502. }
  2503. }
  2504. if %junglelogs <> %jungledisplay
  2505. {
  2506. menu font color maroon
  2507. menu delete StatusJungle
  2508. menu text StatusJungle 100 125 %junglelogs
  2509. set %jungledisplay %junglelogs
  2510. if *countathome = on
  2511. {
  2512. set %jungletotal %jungledisplayhome + %jungledisplay
  2513. menu delete StatusjungleTotal
  2514. menu text StatusjungleTotal 230 125 %jungletotal
  2515. }
  2516. }
  2517. if %silverlogs <> %silverdisplay
  2518. {
  2519. menu font color gray
  2520. menu delete Statussilver
  2521. menu text Statussilver 100 140 %silverlogs
  2522. set %silverdisplay %silverlogs
  2523. if *countathome = on
  2524. {
  2525. set %silvertotal %silverdisplayhome + %silverdisplay
  2526. menu delete StatussilverTotal
  2527. menu text StatussilverTotal 230 140 %silvertotal
  2528. }
  2529. }
  2530. if %poisenlogs <> %poisendisplay
  2531. {
  2532. menu font color green
  2533. menu delete Statuspoisen
  2534. menu text Statuspoisen 100 155 %poisenlogs
  2535. set %poisendisplay %poisenlogs
  2536. if *countathome = on
  2537. {
  2538. set %poisentotal %poisendisplayhome + %poisendisplay
  2539. menu delete StatuspoisenTotal
  2540. menu text StatuspoisenTotal 230 155 %poisentotal
  2541. }
  2542. }
  2543. if %despairlogs <> %despairdisplay
  2544. {
  2545. menu font color red
  2546. menu delete Statusdespair
  2547. menu text Statusdespair 100 170 %despairlogs
  2548. set %despairdisplay %despairlogs
  2549. if *countathome = on
  2550. {
  2551. set %despairtotal %despairdisplayhome + %despairdisplay
  2552. menu delete StatusdespairTotal
  2553. menu text StatusdespairTotal 230 170 %despairtotal
  2554. if *countathome = on
  2555. }
  2556. }
  2557. if %bloodlogs <> %blooddisplay
  2558. {
  2559. menu font color red
  2560. menu delete Statusblood
  2561. menu text Statusblood 100 185 %bloodlogs
  2562. set %blooddisplay %bloodlogs
  2563. if *countathome = on
  2564. {
  2565. set %bloodtotal %blooddisplayhome + %blooddisplay
  2566. menu delete StatusbloodTotal
  2567. menu text StatusbloodTotal 230 185 %bloodtotal
  2568. }
  2569. }
  2570. if %darklogs <> %darkdisplay
  2571. {
  2572. menu font color navy
  2573. menu delete Statusdark
  2574. menu text Statusdark 100 200 %darklogs
  2575. set %darkdisplay %darklogs
  2576. if *countathome = on
  2577. {
  2578. set %darktotal %darkdisplayhome + %darkdisplay
  2579. menu delete StatusdarkTotal
  2580. menu text StatusdarkTotal 230 200 %darktotal
  2581. }
  2582. }
  2583. if %Blessedlogs <> %Blesseddisplay
  2584. {
  2585. menu font color blue
  2586. menu delete StatusBlessed
  2587. menu text StatusBlessed 100 215 %Blessedlogs
  2588. set %Blesseddisplay %Blessedlogs
  2589. if *countathome = on
  2590. {
  2591. set %blessedtotal %blesseddisplayhome + %blesseddisplay
  2592. menu delete StatusblessedTotal
  2593. menu text StatusblessedTotal 230 215 %blessedtotal
  2594. }
  2595. }
  2596. if %Starlogs <> %Stardisplay
  2597. {
  2598. menu font color white
  2599. menu delete StatusStar
  2600. menu text StatusStar 100 230 %Starlogs
  2601. set %Stardisplay %Starlogs
  2602. if *countathome = on
  2603. {
  2604. set %startotal %stardisplayhome + %stardisplay
  2605. menu delete StatusstarTotal
  2606. menu text StatusstarTotal 230 230 %startotal
  2607. }
  2608. }
  2609. menu font color black
  2610. if %displayx <> #charposx
  2611. {
  2612. menu delete StatusX
  2613. Menu Text StatusX 120 260 #charposx
  2614. set %displayx #charposx
  2615. }
  2616.  
  2617. if %displayy <> #charposy
  2618. {
  2619. menu delete StatusY
  2620. Menu Text StatusY 120 275 #charposy
  2621. set %displayy #charposy
  2622. }
  2623.  
  2624. if %displayz <> #charposz
  2625. {
  2626. menu delete StatusZ
  2627. Menu Text StatusZ 120 290 #charposz
  2628. set %displayz #charposz
  2629. }
  2630.  
  2631. if %displaymaxw <> #maxweight
  2632. {
  2633. menu font color black
  2634. menu Delete StatusWeightM
  2635. menu text StatusWeightM 120 320 #maxweight
  2636. set %displaymaxw #maxweight
  2637. }
  2638.  
  2639. if %displayw <> #weight
  2640. {
  2641. if #weight > #maxweight
  2642. {
  2643. menu font color red
  2644. menu Delete StatusWeight
  2645. menu text StatusWeight 120 335 #weight !!
  2646. set %displayw #weight
  2647. }
  2648. else
  2649. {
  2650. menu font color blue
  2651. menu Delete StatusWeight
  2652. menu text StatusWeight 120 335 #weight
  2653. set %displayw #weight
  2654. }
  2655. }
  2656.  
  2657.  
  2658. Finditem MZF C_ , #backpackid
  2659. if %displaymandrake <> #findstack
  2660. {
  2661. menu font color maroon
  2662. menu delete StatusMandrake
  2663. menu text StatusMandrake 100 365 #findstack
  2664. set %displaymandrake #findstack
  2665. }
  2666.  
  2667. Finditem JUF C_ , #backpackid
  2668. if %displayblood <> #findstack
  2669. {
  2670. menu font color red
  2671. menu delete StatusBloodmoss
  2672. menu text StatusBloodmoss 100 380 #findstack
  2673. set %displayblood #findstack
  2674. }
  2675.  
  2676. Finditem KUF C_ , #backpackid
  2677. if %displayblack <> #findstack
  2678. {
  2679. menu font color Navy
  2680. menu delete StatusBlack
  2681. menu text StatusBlack 100 395 #findstack
  2682. ignoreitem reset
  2683. set %displayblack #findstack
  2684. }
  2685.  
  2686. return
  2687.  
  2688. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2689. ;==========================================================
  2690. ;==========================================================
  2691. ; Menu_Updater_AT_Home
  2692. ;==========================================================
  2693. ;==========================================================
  2694. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2695. sub menu_updater_home
  2696. if *countathome <> on
  2697. return
  2698. set %lpc #lpc
  2699. set #lpc 200
  2700. ignoreitem reset
  2701. set #scnt2 0
  2702. set %plainlogshome 0
  2703. set %pinelogshome 0
  2704. set %sunlogshome 0
  2705. set %cherrylogshome 0
  2706. set %oaklogshome 0
  2707. set %junglelogshome 0
  2708. set %silverlogshome 0
  2709. set %maplelogshome 0
  2710. set %birchlogshome 0
  2711. set %silverlogshome 0
  2712. set %poisenlogshome 0
  2713. set %despairlogshome 0
  2714. set %bloodlogshome 0
  2715. set %blessedlogshome 0
  2716. set %starlogshome 0
  2717. set %darklogshome 0
  2718. wait 15
  2719. findalllogs:
  2720. finditem TLK_ZLK C_ , *dropchest ;boards
  2721. if #findkind <> -1
  2722. {
  2723. if #findcol = 0
  2724. set %plainlogshome %plainlogshome + #findstack
  2725. if #findcol = 43
  2726. set %sunlogshome %sunlogshome + #findstack
  2727. if #findcol = 136
  2728. set %cherrylogshome %cherrylogshome + #findstack
  2729. if #findcol = 1887
  2730. set %oaklogshome %oaklogshome + #findstack
  2731. if #findcol = 1447
  2732. set %pinelogshome %pinelogshome + #findstack
  2733. if #findcol = 2301
  2734. set %silverlogshome %silverlogshome + #findstack
  2735. if #findcol = 1106
  2736. set %darklogshome %darklogshome + #findstack
  2737. if #findcol = 1002
  2738. set %junglelogshome %junglelogshome + #findstack
  2739. if #findcol = 567
  2740. set %maplelogshome %maplelogshome + #findstack
  2741. if #findcol = 48
  2742. set %birchlogshome %birchlogshome + #findstack
  2743. if #findcol = 267
  2744. set %poisenlogshome %poisenlogshome + #findstack
  2745. if #findcol = 533
  2746. set %despairlogshome %despairlogshome + #findstack
  2747. if #findcol = 1171
  2748. set %bloodlogshome %bloodlogshome + #findstack
  2749. if #findcol = 1193
  2750. set %blessedlogshome %blessedlogshome + #findstack
  2751. if #findcol = 1953
  2752. set %starlogshome %starlogshome + #findstack
  2753. ignoreitem #findid
  2754. goto findalllogs
  2755. }
  2756. ignoreitem reset
  2757. if %plainlogshome <> %plaindisplayhome
  2758. {
  2759. menu font color Maroon
  2760. menu delete StatusPlainhome
  2761. menu text StatusPlainhome 160 20 %plainlogshome
  2762. set %plaindisplayhome %plainlogshome
  2763. }
  2764. if %pinelogshome <> %pinedisplayhome
  2765. {
  2766. menu font color olive
  2767. menu delete Statuspinehome
  2768. menu text Statuspinehome 160 35 %pinelogshome
  2769. set %pinedisplayhome %pinelogshome
  2770. }
  2771. if %cherrylogshome <> %cherrydisplayhome
  2772. {
  2773. menu font color Fuchsia
  2774. menu delete StatusCherryhome
  2775. menu text StatusCherryhome 160 50 %cherrylogshome
  2776. set %cherrydisplayhome %cherrylogshome
  2777. }
  2778. if %maplelogshome <> %mapledisplayhome
  2779. {
  2780. menu font color green
  2781. menu delete Statusmaplehome
  2782. menu text Statusmaplehome 160 65 %maplelogshome
  2783. set %mapledisplayhome %maplelogshome
  2784. }
  2785. if %oaklogshome <> %oakdisplayhome
  2786. {
  2787. menu font color 44
  2788. menu delete Statusoakhome
  2789. menu text Statusoakhome 160 80 %oaklogshome
  2790. set %oakdisplayhome %oaklogshome
  2791. }
  2792. if %sunlogshome <> %sundisplayhome
  2793. {
  2794. menu font color yellow
  2795. menu delete Statussunhome
  2796. menu text Statussunhome 160 95 %sunlogshome
  2797. set %sundisplayhome %sunlogshome
  2798. }
  2799. if %birchlogshome <> %birchdisplayhome
  2800. {
  2801. menu font color yellow
  2802. menu delete Statusbirchhome
  2803. menu text Statusbirchhome 160 110 %birchlogshome
  2804. set %birchdisplayhome %birchlogshome
  2805. }
  2806. if %junglelogshome <> %jungledisplayhome
  2807. {
  2808. menu font color maroon
  2809. menu delete StatusJunglehome
  2810. menu text StatusJunglehome 160 125 %junglelogshome
  2811. set %jungledisplayhome %junglelogshome
  2812. }
  2813. if %silverlogshome <> %silverdisplayhome
  2814. {
  2815. menu font color gray
  2816. menu delete Statussilverhome
  2817. menu text Statussilverhome 160 140 %silverlogshome
  2818. set %silverdisplayhome %silverlogshome
  2819. }
  2820. if %poisenlogshome <> %poisendisplayhome
  2821. {
  2822. menu font color green
  2823. menu delete Statuspoisenhome
  2824. menu text Statuspoisenhome 160 155 %poisenlogshome
  2825. set %poisendisplayhome %poisenlogshome
  2826. }
  2827. if %despairlogshome <> %despairdisplayhome
  2828. {
  2829. menu font color red
  2830. menu delete Statusdespairhome
  2831. menu text Statusdespairhome 160 170 %despairlogshome
  2832. set %despairdisplayhome %despairlogshome
  2833. }
  2834. if %bloodlogshome <> %blooddisplayhome
  2835. {
  2836. menu font color red
  2837. menu delete Statusbloodhome
  2838. menu text Statusbloodhome 160 185 %bloodlogshome
  2839. set %blooddisplayhome %bloodlogshome
  2840. }
  2841. if %darklogshome <> %darkdisplayhome
  2842. {
  2843. menu font color navy
  2844. menu delete Statusdarkhome
  2845. menu text Statusdarkhome 160 200 %darklogshome
  2846. set %darkdisplayhome %darklogshome
  2847. }
  2848. if %Blessedlogshome <> %Blesseddisplayhome
  2849. {
  2850. menu font color blue
  2851. menu delete StatusBlessedhome
  2852. menu text StatusBlessedhome 160 215 %Blessedlogshome
  2853. set %Blesseddisplayhome %Blessedlogshome
  2854. }
  2855. if %Starlogshome <> %Stardisplayhome
  2856. {
  2857. menu font color white
  2858. menu delete StatusStarhome
  2859. menu text StatusStarhome 160 230 %Starlogshome
  2860. set %Stardisplayhome %Starlogshome
  2861. }
  2862. Finditem MZF C_ , *dropchest
  2863. if %displaymandrakehome <> #findstack
  2864. {
  2865. menu font color maroon
  2866. menu delete StatusMandrakehome
  2867. menu text StatusMandrakehome 160 365 #findstack
  2868. set %displaymandrakehome #findstack
  2869. }
  2870.  
  2871. Finditem JUF C_ , *dropchest
  2872. if %displaybloodhome <> #findstack
  2873. {
  2874. menu font color red
  2875. menu delete StatusBloodmosshome
  2876. menu text StatusBloodmosshome 160 380 #findstack
  2877. set %displaybloodhome #findstack
  2878. }
  2879.  
  2880. Finditem KUF C_ , *dropchest
  2881. if %displayblackhome <> #findstack
  2882. {
  2883. menu font color Navy
  2884. menu delete StatusBlackhome
  2885. menu text StatusBlackhome 160 395 #findstack
  2886. ignoreitem reset
  2887. set %displayblackhome #findstack
  2888. }
  2889.  
  2890. return
  2891.  
  2892. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2893. ;==========================================================
  2894. ;==========================================================
  2895. ; Moongate
  2896. ;==========================================================
  2897. ;==========================================================
  2898. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2899. sub moongate
  2900. finditem OTF G_10
  2901. if #findkind = -1
  2902. return
  2903. set %alarm on
  2904. repeat
  2905. {
  2906. set #sysmsgcol 33
  2907. if #scnt > 2
  2908. {
  2909. Event sysmessage ALARM GATE DETECTED
  2910. sound *alarmsoundo
  2911. set #scnt 0
  2912. }
  2913. finditem OTF G_10
  2914. if #findkind = -1
  2915. {
  2916. set #sysmsgcol 67
  2917. Event sysmessage ALARM CLEARED, GATE GONE
  2918. sound *alarmsoundo
  2919. set %alarm off
  2920. }
  2921. }
  2922. until %alarm = off
  2923. return
  2924.  
  2925. ; THE END or is it?
  2926.  
  2927.  
  2928.  
  2929.  
  2930. sub addition
  2931. event sysmessage MUSIC TIME...
  2932. finditem QRF C
  2933. set #lobjectid #findid
  2934. event macro 17
  2935. return
  2936.  
  2937. ;===========================================================
  2938. ; Name: pathFind
  2939. ; Author: ScriptFellow (the.WZA)
  2940. ; Parameters: %1 = X
  2941. ; %2 = Y
  2942. ; %3 = Z
  2943. ; %4 = tolerance
  2944. ; %5 = timeout (in seconds)
  2945. ; Purpose: Pathfind to the given coordinates
  2946. ; Return: %return (#true or #false )
  2947. ;-----------------------------------------------------------
  2948. sub pathFind
  2949. set %_x %1
  2950. set %_y %2
  2951. if %0 <= 2 || %2 = N/A
  2952. set %_z -1
  2953. else
  2954. set %_z %3
  2955. if %0 <= 3 || %3 = N/A
  2956. set %_tolerance 0
  2957. else
  2958. set %_tolerance %4
  2959. if %0 <= 4
  2960. set %_endTime #sCnt + 15
  2961. else
  2962. set %_endTime #sCnt + %5
  2963. set %return #false
  2964. deleteJournal
  2965. scanJournal 2
  2966. event PathFind %_x %_y %_z
  2967. _pathFindScanAgain:
  2968. scanJournal 1
  2969. if pathfinding in #journal
  2970. goto _pathFindOkay
  2971. if can't_get_there in #journal || #sCnt > %_endTime
  2972. return
  2973. goto _pathFindScanAgain
  2974. _pathFindOkay:
  2975. gosub _pathFindDist %_x %_y %_z #charPosX #charPosY #charPosZ
  2976. set %return %return <= %_tolerance
  2977. if %return
  2978. {
  2979. if %_tolerance > 0
  2980. {
  2981. set %1 #cliLeft + #cliXRes / 2
  2982. set %2 #cliTop + #cliYRes / 2
  2983. if #charDir < 3
  2984. set %1 %1 + 1
  2985. else
  2986. {
  2987. if #charDir > 3 && #charDir < 7
  2988. set %1 %1 - 1
  2989. }
  2990. if #charDir = 0 || #charDir = 6
  2991. set %2 %2 - 1
  2992. else
  2993. {
  2994. if #charDir > 1 && #charDir < 5
  2995. set %2 %2 + 1
  2996. }
  2997. click %1 %2 R
  2998. }
  2999. return
  3000. }
  3001. if #sCnt > %_endTime
  3002. return
  3003. goto _pathFindOkay
  3004.  
  3005. sub _pathFindDist
  3006. set %1 %1 - %4 abs
  3007. set %2 %2 - %5 abs
  3008. set %3 %3 - %6 abs
  3009. gosub max %1 %2 %3
  3010. return
  3011.  
  3012. ; to be defined
  3013. sub max
  3014. set %return %1
  3015. for %_idx 2 %0
  3016. {
  3017. if % . %_idx > %return
  3018. set %return % . %_idx
  3019. }
  3020. 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!