It is currently 28 Mar 2024, 16:14

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 6 posts ] 
Author Message
 Post subject: Mining pomogite plz
PostPosted: 25 Jan 2015, 15:15 
Offline
Игрок

Joined: 19 Jan 2015, 13:38
Posts: 71
Vot moj skript ! vzjal ot foruma . proboval menjatj stob delal ne iron viking swordi a copper... iron vibrasoval i delal toka iz coppera ... i dolshe kopal do polnogo vesa do 1700 ! .

sto mne nado menjatj , ja proboval sam , no nechego nepoluchajetsa , nemogu najti gde smenjitj na copper... pozalsto dajte info . sposibo ogromnoe ! Werneq , Serdi. !

;######### CRAFT CORDINATES #############
set %categx 68
set %categy 212

set %selectx 274
set %selecty 152

;#########################################





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 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 clean
{
finditem JBG G_2
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 2556 498 1
gosub wait
move 2559 498 1
gosub wait
move 2559 495 1
gosub wait
move 2559 492 1
gosub wait
move 2559 489 1
gosub wait
move 2562 485 1
gosub wait
move 2562 488 1
gosub wait
move 2562 491 1
gosub wait
move 2562 494 1
gosub wait
move 2565 490 1
gosub wait
move 2565 487 1
gosub wait
move 2565 484 1
gosub wait
move 2565 481 1
gosub wait
move 2567 485 1
gosub wait
move 2567 488 1
gosub wait
move 2570 488 1
gosub wait
move 2570 485 1
gosub wait
move 2573 485 1
gosub wait
move 2573 475 0

gosub smeltall

while 1 = 1
{
gosub findiron
find %ironfound C_ , #BACKPACKID

if #FINDSTACK > 30
{
gosub clean
gosub bsiron
}
else
{
break
}
}




move 2568 476 1
gosub wait
move 2570 477 1
gosub wait
move 2576 477 1
gosub wait
move 2579 480 1
gosub wait
move 2576 480 1
gosub wait
move 2573 480 1
gosub wait
move 2570 480 1
gosub wait
move 2567 480 1
gosub wait
move 2573 475 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 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 Fire
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
}


Top
 Profile  
 
 Post subject: Re: Mining pomogite plz
PostPosted: 25 Jan 2015, 15:40 
Offline
Начинающий игрок

Joined: 15 Jan 2015, 08:00
Posts: 18
ну вообще когда скрипт запускаешь) вылазиет окошко какую РУДУ выкидывать) ты наверное поставил галку на ирон вот и делает из купера


Top
 Profile  
 
 Post subject: Re: Mining pomogite plz
PostPosted: 25 Jan 2015, 15:44 
Offline
Игрок

Joined: 19 Jan 2015, 13:38
Posts: 71
Net ,esli ja stavlu na iron galku , on vobshe nechego ne delajet :D


Top
 Profile  
 
 Post subject: Re: Mining pomogite plz
PostPosted: 24 Mar 2017, 14:21 
Offline
Начинающий игрок

Joined: 24 Feb 2017, 15:53
Posts: 15
Я тут попробовал этот скрипт, пишет нет кирки ?! что делать ? ))))


Top
 Profile  
 
 Post subject: Re: Mining pomogite plz
PostPosted: 01 Apr 2017, 23:43 
Offline
Новичок

Joined: 30 Mar 2017, 16:22
Posts: 9
С киркой разобрался...
Как сказано подошел в минок к верхней плавильне, запустил скрипт(даже пробывал копнуть толку нет) и стоит с надписью цель слишком долеко..
Что под править, чтобы он начал сам копать? В скриптах не шарю особо... помагите

;######### 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
}


Top
 Profile  
 
 Post subject: Re: Mining pomogite plz
PostPosted: 02 Apr 2017, 06:56 
Offline
English Support
User avatar

Joined: 21 Nov 2010, 18:42
Posts: 1460
Location: Deutschland
На будущее - оставляйте скрипты в тег CODE /CODE а то глаза болят читать всё это...
Code:
Script
Script
Script




Тебе надо координаты перебить. Есть отдельный скрипт который записывает координаты копки в блакнотик, ты видимо не в той шахте стоишь - по этому он и не копает


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 6 posts ] 

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 178 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Group