It is currently 28 Mar 2024, 19:28

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 17 posts ]  Go to page Previous  1, 2
Author Message
 Post subject: Re: Мининг-Бс
PostPosted: 01 Mar 2016, 03:56 
Offline
Ветеран

Joined: 25 Jul 2014, 19:22
Posts: 929
kolen37 wrote:
разобрался. теперь пишет We have neough , no hammers found и все молотки есть, пробовал покупать новые пробовал менять положение! в чем причина?

Чтобы ковать из слитков вещи, молоток в руках должен быть и нужно находиться возле наковальни. Чтобы плавить руду в слитки, возле плавильни нужно находиться, и в руках инструменты необязательны.


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 01 Mar 2016, 11:14 
Offline
Начинающий игрок

Joined: 25 Feb 2016, 22:26
Posts: 13
я же написал что молотки есть в бекпаке. он подходит к наковальне и берет его в руки и все равно пишет We have neough , no hammers found


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 11 Mar 2016, 04:51 
Offline
Начинающий игрок

Joined: 10 Feb 2016, 20:17
Posts: 27
kolen37 wrote:
я же написал что молотки есть в бекпаке. он подходит к наковальне и берет его в руки и все равно пишет We have neough , no hammers found
Мало молотков в паке.


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 10 Jun 2016, 17:45 
Offline
Игрок

Joined: 13 Sep 2009, 16:12
Posts: 101
Eternal wrote:
Работает с металлами до Dark Steel.
;######### 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 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
}


Подскажите пожалуйста, в скриптах не шарю, пишет "No Pickaes" кирку не видит, как и где вписать правильную стро4ку на кирку


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 10 Jun 2016, 18:03 
Offline
Ветеран

Joined: 08 Nov 2015, 15:09
Posts: 535
Location: Симферополь
ANANIM wrote:
Eternal wrote:
Работает с металлами до Dark Steel.
;######### 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 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
}


Подскажите пожалуйста, в скриптах не шарю, пишет "No Pickaes" кирку не видит, как и где вписать правильную стро4ку на кирку



finditem DWJ C по идее вот эта строка. в изиуо надо взять ластобжект и заменить DWJ на тот объект который выдаст.

_________________
Ufert 'выгрызает' мозг игрокам сервера.


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 10 Jun 2016, 19:47 
Offline
Игрок

Joined: 13 Sep 2009, 16:12
Posts: 101
А подробнее, как это сделать пошагово, я имею ввиду взять ластобжект это как ??? заранее спасибо
1 день этой программой пользуюсь, хз 4то да как


Top
 Profile  
 
 Post subject: Re: Мининг-Бс
PostPosted: 07 Apr 2017, 15:05 
Offline
Новичок

Joined: 31 Mar 2017, 13:16
Posts: 4
у меня проблема, таже у других скриптов, пишет "You can't reach that"! pls help


Top
 Profile  
 
Display posts from previous:  Sort by  
Post new topic Reply to topic  [ 17 posts ]  Go to page Previous  1, 2

All times are UTC + 2 hours [ DST ]


Who is online

Users browsing this forum: No registered users and 173 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