Макрос плохо работает...Инногда подбегает к дереву делает дабл клик на топор и не рубит(такое случается не с одним и темжеш деревом, бывает первый круг он нормально рубит, а второй нет). Я думал что это связано с кординатами дерева но он все равно не рубит.
Зарание благодарен
nitevents
Set %weight #STR * 3
Set %tree 0
Set #SYSMSGCOL 30
Event Sysmessage Lamber Script by MAXHO v3.0

Next:
Event Sysmessage Going to %tree tree
Msg - $
Set %i 0
Set %tree %tree + 1
If %tree > 30
Set %tree 1
If %tree = 1
{
Set #LTARGETX 2954
Set #LTARGETY 371
Set #LTARGETTILE 3288
}
If %tree = 2
{
Set #LTARGETX 2963
Set #LTARGETY 378
Set #LTARGETTILE 3302
}
If %tree = 3
{
Set #LTARGETX 2966
Set #LTARGETY 379
Set #LTARGETTILE 3302
}
If %tree = 4
{
Set #LTARGETX 2962
Set #LTARGETY 381
Set #LTARGETTILE 3290
}
If %tree = 5
{
Set #LTARGETX 2962
Set #LTARGETY 383
Set #LTARGETTILE 3288
}
If %tree = 6
{
Set #LTARGETX 2973
Set #LTARGETY 378
Set #LTARGETTILE 3286
}
If %tree = 7
{
Set #LTARGETX 2969
Set #LTARGETY 388
Set #LTARGETTILE 3296
}
If %tree = 8
{
Set #LTARGETX 2959
Set #LTARGETY 388
Set #LTARGETTILE 3280
}
If %tree = 9
{
Set #LTARGETX 2959
Set #LTARGETY 390
Set #LTARGETTILE 3277
}
If %tree = 10
{
Set #LTARGETX 2958
Set #LTARGETY 391
Set #LTARGETTILE 3286
}
If %tree = 11
{
Set #LTARGETX 2949
Set #LTARGETY 386
Set #LTARGETTILE 3302
}
If %tree = 12
{
Set #LTARGETX 2948
Set #LTARGETY 387
Set #LTARGETTILE 3283
}
If %tree = 13
{
Set #LTARGETX 2944
Set #LTARGETY 391
Set #LTARGETTILE 3277
}
If %tree = 14
{
Set #LTARGETX 2946
Set #LTARGETY 383
Set #LTARGETTILE 3277
}
If %tree = 15
{
Set #LTARGETX 2940
Set #LTARGETY 385
Set #LTARGETTILE 3293
}
If %tree = 16
{
Set #LTARGETX 2938
Set #LTARGETY 379
Set #LTARGETTILE 3286
}
If %tree = 17
{
Set #LTARGETX 2944
Set #LTARGETY 373
Set #LTARGETTILE 3280
}
If %tree = 18
{
Set #LTARGETX 2944
Set #LTARGETY 371
Set #LTARGETTILE 3290
}
If %tree = 19
{
Set #LTARGETX 2941
Set #LTARGETY 372
Set #LTARGETTILE 3283
}
If %tree = 20
{
Set #LTARGETX 2941
Set #LTARGETY 366
Set #LTARGETTILE 3277
}
If %tree = 21
{
Set #LTARGETX 2939
Set #LTARGETY 366
Set #LTARGETTILE 3277
}
If %tree = 22
{
Set #LTARGETX 2936
Set #LTARGETY 365
Set #LTARGETTILE 3302
}
If %tree = 23
{
Set #LTARGETX 2938
Set #LTARGETY 357
Set #LTARGETTILE 3296
}
If %tree = 24
{
Set #LTARGETX 2935
Set #LTARGETY 356
Set #LTARGETTILE 3293
}
If %tree = 25
{
Set #LTARGETX 2936
Set #LTARGETY 351
Set #LTARGETTILE 3293
}
If %tree = 26
{
Set #LTARGETX 2929
Set #LTARGETY 370
Set #LTARGETTILE 3293
}
If %tree = 27
{
Set #LTARGETX 2928
Set #LTARGETY 369
Set #LTARGETTILE 3277
}
If %tree = 28
{
Set #LTARGETX 2929
Set #LTARGETY 370
Set #LTARGETTILE 3293
}
If %tree = 29
{
Set #LTARGETX 2931
Set #LTARGETY 376
Set #LTARGETTILE 3283
}
If %tree = 30
{
Set #LTARGETX 2933
Set #LTARGETY 384
Set #LTARGETTILE 3290
}
Set %x #LTARGETX + 1
Set %y #LTARGETY + 1
Move %x %y 0 30s
Wait 2s
Chop:
Finditem FSF_BSF_YTH_RMH
Set #LOBJECTID #FINDID
Set #LTARGETKIND 3
Event Macro 17 0
Wait 1s
Event Macro 22 0
Wait 1s
Scan:
Set %i %i - 12
GoSub FindMonster
If #WEIGHT > %weight
Goto Store
Scanjournal 1
If [202] in #JOURNAL
Goto Next
Scanjournal 2
If [202] in #JOURNAL
Goto Next
Scanjournal 3
If [202] in #JOURNAL
Goto Next
If %i > 20
{
Set %i 0
Set %tree %tree - 2
If %tree > 20
Set %tree 1
Goto Next
}
Wait 1s
Goto Scan
Store:
Move 2958 367 0 30s
Finditem MMK_MZF_WZF
If #FINDKIND = 1
{
Ignoreitem #FINDID
Goto store
}
If #FINDKIND <> 0
{
Move %x %y 0 30s
Goto Chop
}
Event Drag #FINDID
Wait 5
Key Enter
Wait 5
Click 441 287
Wait 5
Goto Store

KillMonster:
Finditem HS_JE
Wait 1s
If #FINDKIND = -1
{
Move %x %y 0 30s
Goto Chop
}
Move #FINDX #FINDY 0 30s
Goto KillMonster

Sub FindMonster
Finditem HS_JE
Wait 1s
If #FINDKIND <> -1
Goto KillMonster
Return

_________________
Live if you wanna live(c)Bob Marley