Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set #SYSMSGCOL 1186
- event sysmessage My scripts never have Bugs
- event sysmessage It just develops random features - Picxie
- set %fruits TWI_QQD_FWI_UQE_YSD_FWI_YWI_AXI_QQD_UWI_TWI_KPE_CWE_AXI_YWI_MQE_ZPE_JQE
- if #MAXWEIGHT >= 400
- set %maxweight 300
- else
- set %maxweight #MAXWEIGHT - 100
- set #TARGCURS 1
- event sysmessage Select rune to recall to clay
- repeat
- until #TARGCURS = 0
- set %rune #LTARGETID
- set #TARGCURS 1
- event sysmessage Select rune home
- repeat
- until #TARGCURS = 0
- set %home #LTARGETID
- set #TARGCURS 1
- event sysmessage Select chest to store clay
- repeat
- until #TARGCURS = 0
- set %chest #LTARGETID
- gosub store
- gosub hunger
- gosub recall %rune
- while #TRUE
- {
- gosub mining
- gosub dced
- }
- sub mining
- {
- for %titleX -1 1
- {
- for %titleY -1 1
- {
- set %mineX #CHARPOSX
- set %mineY #CHARPOSY
- set %mineX %mineX + %titleX
- set %mineY %mineY + %titleY
- gosub minpos %mineX %mineY
- }
- }
- return
- }
- sub minpos
- {
- finditem TWF C_
- set #lobjectid #findid
- event macro 17 0
- set #lTargetKind 2
- set #lTargetX %1
- set #lTargetY %2
- set %jStart #JINDEX
- target
- event macro 22 0
- set %time #SYSTIME + 3000
- while #TRUE
- {
- gosub panic
- if #JINDEX >= %jStart
- {
- For %j %jStart #JINDEX
- {
- ScanJournal %j
- if You_stop_digging_for in #journal || you_cant_dig_here in #journal
- {
- deleteJournal
- return
- }
- if #weight >= %maxweight
- {
- gosub home
- return
- }
- set %jStart %jStart + 1
- }
- }
- if #SYSTIME > %time
- return
- }
- return
- }
- sub panic
- {
- if #HITS < #MAXHITS || #ENEMYHITS <> N/A
- {
- gosub recall %home
- gosub store
- while #TRUE
- {
- gosub dced
- msg $.age$
- msg $.accountage$
- wait 200s
- }
- }
- return
- }
- sub home
- {
- gosub recall %home
- gosub store
- gosub hunger
- gosub recall %rune
- return
- }
- sub store
- {
- finditem TMK C_ , #BACKPACKID
- if #LTARGETKIND <> -1
- {
- ExEvent Drag #FINDID #FINDSTACK
- wait 20
- ExEvent Dropc %chest
- wait 20
- }
- return
- }
- sub recall
- {
- set %charX #CHARPOSX
- set %charY #CHARPOSY
- repeat
- {
- set #LSPELL 31
- event macro 16 0
- target 4s
- }
- until #targcurs = 1
- set #LTARGETID %1
- set #LTARGETKIND 1
- event macro 22 0
- repeat
- until #CHARPOSX <> 0 && #CHARPOSY <> 0 && ( #CHARPOSX <> %charX || #CHARPOSY <> %charY )
- return
- }
- sub dced
- {
- if #CLILOGGED = 0
- {
- display you were DC. Script Stopped.
- stop
- }
- return
- }
- sub hunger
- {
- set %eat N/A
- set %jstart #jIndex
- msg $.hunger$
- wait 20
- set %jend #jIndex
- for %ji %jstart %jend
- {
- scanjournal %ji
- if watch_your_weight in #journal
- return
- if three_square_meals in #journal
- return
- if Your_diet_is_consistent in #journal
- set %eat 1
- if food_would_be_welcome in #journal
- set %eat 3
- if stomach_is_growling in #journal
- set %eat 6
- if Are_you_Anorexic in #journal
- set %eat 8
- }
- if %eat = N/A
- return
- finditem %fruits c_
- if #findkind = -1
- {
- event sysmessage YOU HAVE NO FRUITS
- event sysmessage YOU HAVE NO FRUITS
- event sysmessage YOU HAVE NO FRUITS
- return
- }
- set #LOBJECTID #FINDID
- for %i 1 %eat
- {
- event macro 17
- wait 20
- }
- if %eat > 0
- gosub hunger
- return
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement