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