Skript kopajet po koordinatam , kotorije predvaritel'no delajete Lailerom.
Dlja togo , 4to bi zapomnit' koordinati mesta Mininga , nuzno v programe
Easyuo , v razdele Tools, postavit' allow Execute , 4to bi programma sohranjala koordinati v fail. Dlja pomos4i , v konce topika ukaza ssilka.
Rabota scp :
1. Geroj nabirajet polnij ves, i idjot k plavilke, posle ostanavlivajetsa
2. Pri Atake odevajet Me4' , a pri AntiMakro , pojavljajetsa tabli4ka
P.S Po4emu ze netu razgruzki sprosite vi ? Da potomu 4to vsjoravno nado sidet' vozle kompjutera , eto ne off line scp , i ne objazatel'no 4to bi on perekidival vsjo sam. Ja dumaju perekinut' 10 variantov ignotov , eto ne stol' dolgo , po sravneniju s Kopanijem rudi :wink:
==================SCRIPT======================
set %ljtool NPF_qpf ; Zdes' pishim ID pickaxe
start:
GOSUB LJING 1226 1263 1351 ; Koordinati mest Mininga
GOSUB LJING 1226 1262 1339
GOSUB LJING 1225 1262 1351
goto start ; Process Mininga
sub ljing
move %1 %2 1
finditem %ljtool
set #lobjectid #findid
event macro 17 0
target 14s
set #ltargetx %1
set #ltargety %2
set #ltargetkind 3
set #ltargettile %3
event macro 22 0
wait 7
set %overtime #scnt + 25
gosub bp10
return
gosub bp10 ; Idjom k Forge, kogda nabrali Ves
sub bp10
if #weight > 600
gosub smelt
sub scan ; Skanirovanije zurnala na
scan: ; Popitku ataki ili AntiMakro
scanjournal %cnt
if #hits < 140 ; Jesli men'she 150 hp
msg .arm $ ; Odevajem me4', jesli atakujut
wait 7
execute c:1.mp3
if 30_seconds_till_disconnect... in #journal
display ANTI MACROOOO
if 29_seconds_till_disconnect... in #journal
execute c:1.mp3
if THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg
return
if You_stop_Mining in #sysmsg
return
if YOu_CAN'T_REACH_THIS in #sysmsg
return
if #scnt >= %overtime
return
goto scan
sub smelt ; Pereplavljajem vsju rudu
gosub findForge
if %set = 1
{
set %set 0
return
}
set %mark 1
set #lTargetID %return
set #lTargetKind 1
_smelt:
findItem DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF C
if ! #findKind
{
set #lObjectID #findID
event Macro 17 0
target
set #ltargetkind 1
event Macro 22 0
goto _smelt
}
return
sub findForge
move 2569 481 ; Zdes' ukazivajem kak dojti do
wait 7 ; Plavilki, inogda trebujetsa
move 2573 474 ; Primerno 3-5 koordinat , 4to bi
wait 5 ; Obojti prepjatstvija
findItem JBG_ivj_ouj g_2
if #findKind = -1
{
set %set 1
finditem %itemid c_
return
}
set %return #findID
return===================END_OF_SCRIPT==================
===================LAILER========================
initevents
set %tree 0
start:
event macro 13 3
wait 10
targloop:
if #targcurs = 1
goto targloop
set #lobjectid #ltargetid
if %ltargetx = #ltargetx && %ltargety = #ltargety
{
event sysmessage error. try again
goto start
}
execute cmd.exe /c echo >>ljroute2.txt GOSUB LJING #ltargetx #ltargety #ltargetz #ltargettile
set %ltargetx #ltargetx
set %ltargety #ltargety
set %tree %tree + 1
event sysmessage Done with Tree Nr. %tree
wait 10
goto start=====================END_OF_LAILER================
P.S.S Jesli nado pomos4' po etomu scp , ili kak pol'zovatsa Lailerom
rekomenduju zagljanut' sjuda -> http://www.oldp.net/...opic.php?t=3355
