С киркой разобрался... Как сказано подошел в минок к верхней плавильне, запустил скрипт(даже пробывал копнуть толку нет) и стоит с надписью цель слишком долеко.. Что под править, чтобы он начал сам копать? В скриптах не шарю особо... помагите
;######### CRAFT CORDINATES ############# set %categx 70 set %categy 210
set %selectx 270 set %selecty 150
;#########################################
sub findiron { event sysmessage ## SEARCHING FO-R IRON ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 0 { set %ironfound #FINDID event sysmessage found %ironfound iron #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol +1 } else { event sysmessage found not iron #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 set %mycontrol %mycontrol +1 finditem RMK C_ , #BACKPACKID } if %mycontrol > 16 { break } } return }
sub findsteel { event sysmessage ## SEARCHING FO-R steel ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 1068 { set %steelfound #FINDID event sysmessage found %steelfound steel #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol +1 } else { event sysmessage found not steel #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 set %mycontrol %mycontrol +1 finditem RMK C_ , #BACKPACKID } if %mycontrol > 16 { break } } return }
sub findmeteor { event sysmessage ## SEARCHING FO-R meteor ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 2720 { set %meteorfound #FINDID event sysmessage found %meteorfound meteor #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol +1 } else { event sysmessage found not meteor #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 set %mycontrol %mycontrol +1 finditem RMK C_ , #BACKPACKID } if %mycontrol > 16 { break } } return }
sub findblack_steel { event sysmessage ## SEARCHING FO-R black_steel ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 2723 { set %black_steelfound #FINDID event sysmessage found %black_steelfound steel #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol +1 } else { event sysmessage found not black_steel #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 set %mycontrol %mycontrol +1 finditem RMK C_ , #BACKPACKID } if %mycontrol > 16 { break } } return }
sub findbronze { event sysmessage ## SEARCHING FO-R bronze ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 1160 { set %bronzefound #FINDID event sysmessage found %bronzefound bronze #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol + 1 } else { event sysmessage found not bronze #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 set %mycontrol %mycontrol + 1 finditem RMK C_ , #BACKPACKID } if %mycontrol > 16 { break }
} return }
sub findcopper { event sysmessage ## SEARCHING FO-R copper ### event sysmessage looping metal find ignoreitem reset 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol 0 while %x_m_s <> 1 { if #FINDCOL = 2738 { set %copperfound #FINDID event sysmessage found %copperfound copper #FINDSTACK ignots set %x_m_s 1 set %mycontrol %mycontrol +1 } else { event sysmessage found not copper #FINDSTACK ignots #FINDID ignoreitem #FINDID 1 set %x_m_s 0 finditem RMK C_ , #BACKPACKID set %mycontrol %mycontrol +1 if %mycontrol > 14 { break } } } return }
sub bsiron {
finditem %ironfound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %ironfound iron ###### while %enoughiron <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughiron 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughiron 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng iron %ironfound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %ironfound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %ironfound C_ , #BACKPACKID } return gosub clean find %ironfound C_ , #BACKPACKID }
sub bssteel {
finditem %steelfound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %steelfound steel ###### while %enoughsteel <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughiron 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughiron 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng steel %steelfound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %steelfound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %steelfound C_ , #BACKPACKID } return gosub clean find %steelfound C_ , #BACKPACKID }
sub bsmeteor {
finditem %meteorfound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %meteorfound meteor ###### while %enoughmeteor <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughmeteor 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughmeteor 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng meteor %meteorfound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %meteorfound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %meteorfound C_ , #BACKPACKID } return gosub clean find %meteorfound C_ , #BACKPACKID }
sub bsblack_steel {
finditem %black_steelfound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %black_steelfound black_steel ###### while %enoughblack_steel <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughblack_steel 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughblack_steel 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng steel %black_steelfound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %black_steelfound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %black_steelfound C_ , #BACKPACKID } return gosub clean find %black_steelfound C_ , #BACKPACKID }
sub bscopper {
finditem %copperfound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %copperfound copper ###### while %enoughcopper <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughcopper 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughcopper 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng copper %copperfound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %copperfound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %copperfound C_ , #BACKPACKID } return gosub clean find %copperfound C_ , #BACKPACKID }
sub bsbronze {
finditem %bronzefound C_ , #BACKPACKID event sysmessage UNDER BS found #FINDSTACK %bronzefound bronze ###### while %enoughbronze <> 0 { if #FINDSTACK > 30 event sysmessage We have neough { set %enoughbronze 1 } else { gosub clean if #FINDSTACK > 30 event sysmessage We have neough { set %enoughbronze 1 } else { return } } finditem TLH C_ , #BACKPACKID if #FINDCNT > 1 { event sysmessage found #FINDCNT hammers set %myhammer #FINDID } else { event sysmessage no hammers found
halt } event sysmessage using hammer %myhammer usinng bronze %bronzefound set #LOBJECTID %myhammer event macro 17 0 target set #LTARGETID %bronzefound set #LTARGETKIND 1 event sysmessage LTARGETID IS #LTARGETID event Macro 22 0 wait 30 click %categx %categy f wait 30 click %selectx %selecty f wait 7s finditem %bronzefound C_ , #BACKPACKID } return gosub clean find %bronzefound C_ , #BACKPACKID }
sub clean { finditem JBG G set %myforge #FINDID finditem BPH C_ , #BACKPACKID event sysmessage ## THERE ARE LEFT #FINDCNT SWORDS ## while #FINDCNT <> 0 { finditem BPH C_ , #BACKPACKID event sysmessage ##SWORDS CLEANING #FINDID ## set #LOBJECTID %myforge set #LTARGETID #FINDID set #LTARGETKIND 1 event macro 17 wait 2s event macro 22 wait 1s } event sysmessage ##NO SWORD TO CLEAN## find %ironfound C_ , #BACKPACKID return }
gosub window while 1 = 1 {
Enable Event Sysmessage set #sysmsgcol 1359 event SysMessage ###Script Crafted by Gign### move 2566 463 1 gosub wait move 2562 467 1 gosub wait move 2564 467 1 gosub wait move 2567 466 1 gosub wait move 2570 464 1 gosub wait move 2567 463 1 gosub wait move 2567 461 1 gosub wait move 2569 461 1 gosub wait move 2571 461 1 gosub wait move 2573 459 1 gosub wait move 2570 458 1 gosub wait move 2570 456 1 gosub wait move 2572 455 1 gosub wait move 2572 453 1 gosub wait move 2570 453 1 gosub wait move 2568 453 1 gosub wait move 2569 451 1 gosub wait move 2571 451 1 gosub wait move 2567 456 0
gosub smeltall
while 1 = 1 { gosub findiron find %ironfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bsiron } else { break } }
while 1 = 1 { gosub findsteel find %steelfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bssteel } else { break } }
while 1 = 1 { gosub findmeteor find %meteorfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bsmeteor } else { break } }
while 1 = 1 { gosub findbronze find %bronzefound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bsbronze } else { break } }
while 1 = 1 { gosub findcopper find %copperfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bscopper } else { break } } while 1 = 1 { gosub findblack_steel find %black_steelfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bsblack_steel } else { break } }
move 2574 452 1 gosub wait move 2578 452 1 gosub wait move 2581 453 1 gosub wait move 2585 453 1 gosub wait move 2586 451 1 gosub wait move 2584 449 1 gosub wait move 2581 449 1 gosub wait move 2576 445 1 gosub wait move 2567 456 0
gosub smeltall gosub findiron while 1 = 1 {
find %ironfound C_ , #BACKPACKID
if #FINDSTACK > 30 { gosub clean gosub bsiron } else { break } }
}
sub smeltall { wait 1s finditem DWJ C wait 1s while #FINDCNT > 0 { set #LOBJECTID #FINDID event macro 17 finditem DWJ C wait 1s } return }
sub wait { set #LTargetKind 2 for %x -1 1 { if #MAXWEIGHT < #WEIGHT + 101 { return } for %y -1 1 { repeat { set #lTargetX #CHARPOSX + %x set #lTargetY #CHARPOSY + %y set #lTargetZ #CHARPOSZ gosub usepick target event Macro 22 0 set %weigh #WEIGHT set %timer2 #SCNT repeat { wait 1 } until %weigh < #WEIGHT || nothing in #sysMsg || Try in #sysMsg || put in #sysMsg || close in #sysMsg || see in #sysMsg || destroyed in #sysMsg || line in #sysMsg || loosen in #sysMsg || %timer2 < #SCNT - 12 } until nothing in #sysMsg || line in #sysMsg || decide in #sysMsg || Try in #sysMsg || close in #sysMsg || see in #sysMsg || line in #sysMsg } } gosub dropore return }
sub usepick { finditem NPF_QPF C while #FINDCNT < 1 { event SysMessage No Pickaxes wait 2s finditem NPF C } set #lObjectID #FINDID event macro 17 return }
sub dropore { finditem DWJ C for %i 1 #findcnt { set #findindex %i if _ , #findcol , _ in %dropcolor { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 10 } } return }
sub window } set %charInfo #charName set %checksizex 100 set %checksizey 20 set %checkposx 55 set %checkposy 10 set %checkname1 Iron set %checkname2 Copper set %checkname3 Bronze set %checkname4 Steel set %checkname5 Black_Steel set %checkname6 Meteor set %checkname7 Dark_Crystal set %checkname8 Lava set %checkname9 Elemental set %checknamec1 0 set %checknamec2 2738 set %checknamec3 1160 set %checknamec4 1068 set %checknamec5 2723 set %checknamec6 2720 set %checknamec7 2735 set %checknamec8 1094 set %checknamec9 2734 menu window size 240 330 menu window title #spc , Crafted , #spc , by , #spc , Gign menu Text text_1 10 10 Eaeo? ?oao aueeauaaou ia caie?? for %i 1 9 { set %name %checkname . %i set %posy %checkposy + ( 25 * %i ) menu check %name %checkposx %posy %checksizex %checksizey #false %name } menu Button button_1 50 260 100 50 Ia?aou eiiaou! menu show set #menubutton nothing while #menubutton <> button_1 { wait 1 } menu Hide for %i 1 9 { set %name %checkname . %i menu get %name if #menures = #true { set %mycolor %checknamec . %i set %dropcolor %dropcolor , _ , %mycolor } } set %dropcolor %dropcolor , _ return }
|