макрос в пилоте на рубку леса..

[Old Hang]

поделитесь плз у кого есть...идеально если в нем будет реколл при перевесе и скидывание в сундучек....но мона и без этого...заранее спасибо=)

[JIbICbIu]

Лови он большой

repeat 10 //; 1
send f10
waitfortarget 3000
left 212, 251
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;2
send f10
waitfortarget 3000
left 282, 199
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 432, 223
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 346, 135
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // Прыжок на 2 место
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 40, 391
wait 300
left 41, 391
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 212, 254
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 278, 189
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;3
send f10
waitfortarget 3000
left 341, 136
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 363, 273
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;5
send f10
waitfortarget 3000
left 300, 346
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 3-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 40, 417
wait 300
left 39, 418
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 211, 254
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;2
send f10
waitfortarget 3000
left 272, 203
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 341, 135
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;4
send f10
waitfortarget 3000
left 428, 222
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 378, 242
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;6
send f10
waitfortarget 3000
left 310, 310
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 4-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 62, 416
wait 300
left 61, 417
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 278, 200
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 350, 134
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 435, 210
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;4
send f10
waitfortarget 3000
left 365, 268
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 301, 351
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 5- mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 84, 417
wait 300
left 85, 416
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 206, 266
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 276, 187
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;3
send f10
waitfortarget 3000
left 348, 108
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 433, 216
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 368, 281
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;6
send f10
waitfortarget 3000
left 297, 272
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 6-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 107, 417
wait 300
left 109, 416
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 209, 249
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;2
send f10
waitfortarget 3000
left 280, 183
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 346, 134
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 440, 219
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 367, 255
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;6
send f10
waitfortarget 3000
left 305, 286
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 7-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 132, 417
wait 300
left 132, 417
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 209, 249
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;2
send f10
waitfortarget 3000
left 279, 191
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 342, 69
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;4
send f10
waitfortarget 3000
left 368, 283
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 296, 344
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 8-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 134, 394
wait 300
left 135, 393
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 281, 190
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 344, 98
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;3
send f10
waitfortarget 3000
left 438, 205
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;4
send f10
waitfortarget 3000
left 370, 270
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 301, 349
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 9-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 135, 369
wait 300
left 135, 368
wait 3000
end_repeat
repeat 10 // ;1
send f10
waitfortarget 3000
left 215, 253
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 281, 186
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;3
send f10
waitfortarget 3000
left 345, 116
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 436, 209
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;5
send f10
waitfortarget 3000
left 297, 335
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 10-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 111, 369
wait 300
left 112, 370
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 214, 251
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 282, 184
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;3
send f10
waitfortarget 3000
left 344, 111
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;4
send f10
waitfortarget 3000
left 364, 277
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 // ;5
send f10
waitfortarget 3000
left 299, 331
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 11-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 68, 371
wait 300
left 69, 371
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 207, 267
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 275, 183
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //3
send f10
waitfortarget 3000
left 438, 212
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //4
send f10
waitfortarget 3000
left 371, 279
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //5
send f10
waitfortarget 3000
left 299, 278
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 12-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 66, 390
wait 300
left 65, 391
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 218, 244
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 281, 182
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //3
send f10
waitfortarget 3000
left 344, 115
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //4
send f10
waitfortarget 3000
left 440, 211
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //5
send f10
waitfortarget 3000
left 372, 275
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 6 // 13-e mecto
if mana < 82
break
end_if
send f11 3000
waitfortarget
move 110, 394
wait 300
left 109, 394
wait 3000
end_repeat
repeat 10 //;1
send f10
waitfortarget 3000
left 206, 257
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //;2
send f10
waitfortarget 3000
left 275, 183
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //3
send f10
waitfortarget 3000
left 345, 112
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //4
send f10
waitfortarget 3000
left 435, 222
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
repeat 10 //5
send f10
waitfortarget 3000
left 299, 346
wait 1000
if lastmsg There are no logs left here to chop.
break
end_if
wait 7000
end_repeat
double_left 82, 384 //; Еда
wait 1000
double_left 82, 384 //; Еда
wait 1000
end_script

[Pelmeshka]

о и мне пригодится

[Old Hang]

ух...пасиба а ася есть ? у ламера осталось несколько вопросов

[Zulo]

Можно было выразить и так

while_not lastmsg no logs
send f10 
waitfortarget 3000 
left 299, 346 
wait 7000 
end_while

repeat 2 
set lastobjectid <id еды>//; 
send <LastObject> 
wait 1000 
end_repeat

end_script

[Zulo]

Я так понял что это рекол?

repeat 6 // 12-e mecto 
if mana < 82 
break 
end_if 
send f11 3000 
waitfortarget 
move 66, 390 
wait 300 
left 65, 391 
wait 3000

Выражаем так.

while lastmsg spell //до тех пор пока будет физл
set lasttargetid <id руны>
set lastspell 31 //номер спела реколл
set lasttargetkind 1 //тип цели "итем"
if mana < 82 
break 
end_if 
send <lastspell waitfortarg lasttarget>
waitfortarget 
wait <сколько нужно>
end_while

[Old Hang]

эх...надо изучать пилот....а то что-то с трудом я пока врубаюсь как этим всем пользоваться....там же надо координаты перенастраивать для себя? руны и сундука и еще ожет чего? а Ф10 и Ф11 на какие кнопки забиндены?

[Slight]

Макрос на UOScripte :

Program Lumber;
{
skript rubit odno derevo do konca
binds :
F1 - LastObject
F2 - LastObject, WaitForTarget, LastTarget
}
var
mx,my : LongInt;
f,ex : Boolean;
i,cnt : LongInt;
s : String;
begin
f := true;
GetMouseCoords(mx,my);
GetJournal;
while TRUE do begin
if f then begin
SendKey(k_F1);
WaitForTarget(10000);
LeftClick(mx,my);
f := false;
end else begin
SendKey(k_F2);
end;
while (Pos('use this on',_lastmsg)>0) do begin delay(100); end;
if (Pos('no logs',_lastmsg)>0) then break;
{ obrabotka soobwenij }
ex := true;
while ex do begin
GetJournalNew;
GetJournalCount(cnt);
for i:=0 to cnt-1 do begin
GetJournalString(i,j_LowerCase,s);
if (Pos('no logs',s)>0) then begin
PlaySound('c:\chimes.wav');
exit;
end;
if (Pos('but fail to',s)>0) then ex:=false;
if (Pos('put the logs',s)>0) then ex:=false;
end;
Delay(1000);
end;
end;
end.