API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 22nd, 2018
82
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 11.03 KB | None | 0 0
raw download clone embed print report
  1. initEvents
  2. tile Init
  3. DeleteJournal
  4.  
  5. set %fail You_fish_a_while,_but_fail_to_catch_anything.
  6. set %succ You_catch_a_fish
  7. ;set %start Heität_kohon_veteen.
  8. set %onki KDF
  9. set %save World_State
  10. set %maxWeight 390
  11. set %mount Tuuli
  12. set %startTime #sCnt
  13. set %reachTiles |
  14.  
  15. ; Tile Variables
  16. set %digable |220|221|222|223|224|225|226|227|228|229|230|231|236|237|238|239|240|241|242|243|
  17. +244|245|246|247|252|253|254|255|256|257|258|259|260|261|262|263|268|269|270|271|
  18. +272|273|274|275|276|277|278|279|286|287|288|289|290|291|292|293|294|296|296|297|
  19. +321|322|323|324|467|468|469|470|471|472|473|474|476|477|478|479|480|481|482|483|
  20. +484|485|486|487|492|493|494|495|543|544|545|546|547|548|549|550|551|552|553|554|
  21. +555|556|557|558|559|560|561|562|563|564|565|566|567|568|569|570|571|572|573|574|
  22. +575|576|577|578|579|581|582|583|584|585|586|587|588|589|590|591|592|593|594|595|
  23. +596|597|598|599|600|601|610|611|612|613|1010|1741|1742|1743|1744|1745|1746|1747|
  24. +1748|1749|1750|1751|1752|1753|1754|1755|1756|1757|1771|1772|1773|1774|1775|1776|
  25. +1777|1778|1779|1780|1781|1782|1783|1784|1785|1786|1787|1788|1789|1790|1801|1802|
  26. +1803|1804|1805|1806|1807|1808|1809|1811|1812|1813|1814|1815|1816|1817|1818|1819|
  27. +1820|1821|1822|1823|1824|1831|1832|1833|1834|1835|1836|1837|1838|1839|1840|1841|
  28. +1842|1843|1844|1845|1846|1847|1848|1849|1850|1851|1852|1853|1854|1861|1862|1863|
  29. +1864|1865|1866|1867|1868|1869|1870|1871|1872|1873|1874|1875|1876|1877|1878|1879|
  30. +1880|1881|1882|1883|1884|1981|1982|1983|1984|1985|1986|1987|1988|1989|1990|1991|
  31. +1992|1993|1994|1995|1996|1997|1998|1999|2000|2001|2002|2003|2004|2028|2029|2030|
  32. +2031|2032|2033|2100|2101|2102|2103|2104|2105|1339|1340|1341|1342|1343|1344|1345|
  33. +1346|1347|1348|1349|1350|1351|1352|1353|1354|1355|1356|1357|1358|1359|
  34. set %water |100|97|93|89|85|81|77|78|86|98|90|96|95|88|84|76|83|
  35. +91|87|99|79|82|94|92|80|
  36. set %forest |15855|15856|15854|15853|2506|2501|2511|2508|2500|
  37. +2510|2502|2507|15809|15844|15842|15849|15851|15852|15850|
  38. +15843|15839|15846|15836|15845|15835|2509|2504|2503|2505|
  39. +15838|15810|15848|
  40.  
  41. ; Status Variables
  42. set %gridsize 21
  43. set %gridcolor black
  44. set %gridwidth 1
  45. set %gridIncrement 6
  46.  
  47. ; Color Variables
  48. set %sand_color $8cb4d2
  49. set %water_color blue
  50. set %stone_color $696969
  51. set %dirt_color $13458b
  52. set %snow_color white
  53. set %rock_color gray
  54. set %GFJ_color green
  55. set %cave_color $20a5da
  56. set %void_color black
  57. set %reach_color $B18B6A
  58. set %mine_color $3E4C4E
  59. set %fished $634225
  60. set %current_color $0000FF
  61. set %default_color Fuchsia
  62.  
  63. set %spots 0
  64. goSub checkSpots
  65. set #lpc 1000
  66. set %cpos #charposx , _ , #charposy
  67. goSub initMenu
  68. goSub fillTiles
  69. set #lpc 10
  70. set %oldTiles |
  71. set %olded 0
  72.  
  73. Ohjelma:
  74. Random:
  75. set %fishTile #random % %spots
  76. if ( | , %fishTile , | in %oldTiles )
  77. goto Random
  78. set %oldTiles %oldTiles , %fishTile , |
  79. set %olded %olded + 1
  80. if ( %olded >= %spots )
  81. set %olded 0
  82. event sysMessage %fishTile \ %spots
  83. event sysMessage %spotX . %fishTile \ %spotY . %fishTile
  84. goSub fish %fishTile
  85. goto Ohjelma
  86.  
  87. ;======================================================================
  88. ; CHECKSPOTS MAKRO ========================================================
  89. ;======================================================================
  90. sub checkSpots
  91. set #lpc 1000
  92.  
  93. ; Tallennetaan tilet joihin yletytään
  94. for %x -6 6
  95. {
  96. for %y -6 6
  97. {
  98. set %posX #CharPosX + %x
  99. set %posY #CharPosY + %y
  100. set %tilePos %posX , _ , %posY , |
  101. set %reachTiles %reachTiles , %tilePos
  102. }
  103. }
  104. for %a -6 6
  105. {
  106. for %b -6 6
  107. {
  108. goSub CheckTile %a %b
  109. if ( #RESULT )
  110. {
  111. set %spotX . %spots %a
  112. set %spotY . %spots %b
  113. set %spots %spots + 1
  114. }
  115. }
  116. }
  117. set #lpc 10
  118. return
  119. ;======================================================================
  120. ; FISHING MAKRO =======================================================
  121. ;======================================================================
  122. sub Fish
  123. set %TargX #CharPosX + %spotX . %1
  124. set %TargY #CharPosY + %spotY . %1
  125. event sysMessage X: %spotX . %1
  126. event sysMessage Y: %spotY . %1
  127. set #LTargetZ 30
  128.  
  129. ; Aloitetaan kaivaminen
  130. goSub fishTile %TargX %TargY
  131.  
  132. ; Päivitetään statusikkuna
  133. ;set #lpc 1000
  134. ;goSub initMenu
  135. ;goSub fillTiles
  136. ;set #lpc 10
  137.  
  138. ; Aletaan tarkastamaan journalia
  139. Journal:
  140. gosub CheckHand #TRUE ;taa voi kusta jotain
  141. wait 5
  142. set %jrnl #jindex
  143. while #true
  144. {
  145. if #jindex > %jrnl
  146. {
  147. set %jrnl %jrnl + 1
  148. scanJournal %jrnl
  149. if %fail in #Journal
  150. event sysMessage fail
  151. return
  152. if %succ in #Journal
  153. event sysMessage succes
  154. return
  155. if You_are_already_fishing. in #Journal
  156. goto Journal
  157. }
  158. }
  159. ;goto Journal
  160. ;return
  161.  
  162.  
  163. ;======================================================================
  164. ; CHECKHAND MAKRO =====================================================
  165. ;======================================================================
  166. sub CheckHand
  167. findItem %onki C_ , #CHARID
  168. if ( #FindKind <> -1 )
  169. {
  170. set #LObjectID #FindID
  171. return
  172. }
  173. else
  174. {
  175. finditem %onki C_ , #BackPackID
  176. if ( #Findkind <> -1 )
  177. {
  178. set #RHandID #FindID
  179. event Macro 24 2
  180. wait 10
  181. set #LObjectID #FindID
  182. if ( %1 )
  183. {
  184. goSub fishTile %TargX %TargY
  185. }
  186. return
  187. }
  188. sound sound.wav
  189. display ok There's no more poles in backpack. Halt script.
  190. Halt
  191. }
  192. return
  193.  
  194. ;=============================================
  195. ; CheckTile ==================================
  196. ;=============================================
  197. sub CheckTile
  198. set %ScanX #CharPosX + %1
  199. set %ScanY #CharPosY + %2
  200.  
  201. tile cnt %ScanX %ScanY #CURSKIND
  202. set %cnt #tilecnt
  203. for %i 1 %cnt
  204. {
  205. tile get %ScanX %ScanY %i #curskind
  206. if water in #tilename || | , #tiletype , | in %water
  207. return #TRUE
  208. }
  209. return #FALSE
  210.  
  211.  
  212. ;======================================================================
  213. ; ALETAAN KAIVAMAAN MAKRO =============================================
  214. ;======================================================================
  215. sub fishTile
  216. ; Asetetaan vika tile
  217. set #LTargetX %1
  218. set #LTargetY %2
  219. set #LTargetZ -5
  220. set #LTargetKind 3
  221.  
  222. ; Aletaan kaivamaan
  223. TargetMine:
  224. goSub checkHand
  225. event Macro 17 0
  226. wait 5
  227. target 3s
  228. set %jStart #jIndex
  229. event Macro 22 0
  230. set %empty %empty , | , %1 , _ , %2
  231. wait 10
  232. if #targCurs = 1
  233. goto TargetMine
  234. return
  235.  
  236.  
  237. ;--------- EasyUO Menu Designer Code Begin ---------
  238.  
  239.  
  240. sub initMenu
  241. set #menubutton N/A
  242. set %menusize %gridsize * %gridincrement
  243. set %height %menusize
  244. menu clear
  245. menu Window Size %menusize %height
  246. menu Window Color BtnFace
  247. menu window title Fishing
  248. menu show
  249. menu image create map 0 0 %menusize %menusize
  250. for %x 0 %gridsize
  251. {
  252. set %off %x * %gridincrement
  253. menu image line map %off 0 %off %menusize %gridcolor %gridwidth
  254. menu image line map 0 %off %menusize %off %gridcolor %gridwidth
  255. }
  256. set %dot ( ( %gridsize / 2 ) * %gridincrement ) + 1
  257. set %dot2 %dot + ( %gridincrement - 1 )
  258. menu image ellipse map %dot %dot %dot2 %dot2 $634225 1
  259. return
  260.  
  261. sub fillTiles
  262. set %ftEnd %gridsize / 2
  263.  
  264. for %ftCTile 0 %ftEnd
  265. {
  266. set %ftScanLen %ftCTile * 2 - 1
  267. set %ftSides 4
  268. if %ftCTile = %ftEnd && %gridsize % 2 = 0
  269. set %ftSides 2
  270. for %ftSide 1 %ftSides
  271. {
  272. if %ftSide in 14
  273. set %ftOperator -
  274. if %ftSide in 23
  275. set %ftOperator +
  276. if %ftSide in 13
  277. {
  278. set %ftDirection x
  279. set %ftStartY %ftCTile
  280. if %ftSide = 1
  281. set %ftStartY %ftStartY * -1
  282. }
  283. if %ftSide in 24
  284. {
  285. set %ftDirection y
  286. set %ftStartX %ftCTile
  287. if %ftSide = 2
  288. set %ftStartX %ftStartX * -1
  289. }
  290. set %ftStart . %ftDirection ( %ftCTile - 1 ) * ( %ftOperator , 1 ) * -1
  291. set %ftCurrX %ftStartX
  292. set %ftCurrY %ftStartY
  293. for %ftScanI 0 %ftScanLen
  294. {
  295. if %cpos <> #charposx , _ , #charposy
  296. return
  297.  
  298. set %ftCurr . %ftDirection %ftStart . %ftDirection %ftOperator %ftScanI
  299. set %ftDrawX ( ( ( ( %gridsize / 2 ) + 1 ) * %gridincrement ) - ( %gridincrement / 2 ) ) + ( %ftCurrX * %gridincrement )
  300. set %ftDrawY ( ( ( ( %gridsize / 2 ) + 1 ) * %gridincrement ) - ( %gridincrement / 2 ) ) + ( %ftCurrY * %gridincrement )
  301. set %ftTileX #charposx + %ftCurrX
  302. set %ftTileY #charposy + %ftCurrY
  303.  
  304. tile get %ftTileX %ftTileY 1 #curskind
  305. gosub colorcheck %ftTileX %ftTileY
  306. menu image floodfill map %ftDrawX %ftDrawY %color
  307. }
  308. }
  309. }
  310. return
  311.  
  312. ;================
  313. ;taken from CPMR
  314. ;================
  315. sub colorcheck
  316. set %color %default_color
  317. str len #tilename
  318. if #strres = 0
  319. set %color %noname_color
  320. if stone in #tilename
  321. set %color %stone_color
  322. if water in #tilename || | , #tiletype , | in %water
  323. set %color %water_color
  324. if sand in #tilename
  325. set %color %sand_color
  326. if dirt in #tilename || wood in #tilename || #tilename = embank
  327. set %color %dirt_color
  328. if jungle in #tilename || grass in #tilename || forest in #tilename || | , #tiletype , | in %forest
  329. set %color %GFJ_color
  330. if snow in #tilename || marble in #tilename
  331. set %color %snow_color
  332. if void in #tilename || nodraw in #tilename || unused in #tilename || #tilename = cave_exit
  333. set %color %void_color
  334. if | , #tiletype , | in %digable
  335. set %color %rock_color
  336.  
  337. tile cnt %ftTileX %ftTileY #curskind
  338. if #tilename = rock && #tilecnt > 1
  339. {
  340. for %cnt 2 #tilecnt
  341. {
  342. tile get %coordx %coordy %cnt #curskind
  343. if cave in #tilename
  344. set %color %cave_color
  345. }
  346. }
  347.  
  348. if ( %1 , _ , %2 in %reachTiles ) && ( water in #tilename || | , #tiletype , | in %water )
  349. set %color %reach_color
  350. if ( %1 , _ , %2 in %empty )
  351. set %color %fished
  352. if ( %1 , _ , %2 = %TargX , _ , %TargY )
  353. set %color %current_color
  354. return
  355. ;==================================
  356. sub logout ; click logout
  357. event macro 8 1 ; open paperdoll
  358. wait 2s ; or put your waitgump paperdoll_gump here
  359. contpos 700 0
  360. set %x #contposx + 211
  361. set %y #contposy + 109
  362. click %x %y ; logout
  363. wait 2s ; or waitgump for yesno_gump
  364. set %x #contposx + 119
  365. set %y #contposy + 84
  366. click %x %y ; yes
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!