Цитата:
в макросе прописана атака рипера? если да то поставь задержку
Да есть атака ... но где имено ?
Initevents
Set %weight 420
Set %tree 0
Set #SYSMSGCOL 70
Event Sysmessage Lamber Script Sturla v3.0
GoSub Autorun_On
Next:
Event Sysmessage Going to %tree tree
Msg - $
Set %i 0
Set %tree %tree + 1
If %tree > 38
Set %tree 1
If %tree = 1
{
Set #LTARGETX 1844
Set #LTARGETY 1515
Set #LTARGETTILE 3296
}
If %tree = 2
{
Set #LTARGETX 1844
Set #LTARGETY 1512
Set #LTARGETTILE 3280
}
If %tree = 3
{
Set #LTARGETX 1844
Set #LTARGETY 1509
Set #LTARGETTILE 3296
}
If %tree = 4
{
Set #LTARGETX 1844
Set #LTARGETY 1506
Set #LTARGETTILE 3302
}
If %tree = 5
{
Set #LTARGETX 1844
Set #LTARGETY 1500
Set #LTARGETTILE 3288
}
If %tree = 6
{
Set #LTARGETX 1844
Set #LTARGETY 1497
Set #LTARGETTILE 3302
}
If %tree = 7
{
Set #LTARGETX 1840
Set #LTARGETY 1497
Set #LTARGETTILE 3302
}
If %tree = 8
{
Set #LTARGETX 1840
Set #LTARGETY 1500
Set #LTARGETTILE 3299
}
If %tree = 9
{
Set #LTARGETX 1840
Set #LTARGETY 1509
Set #LTARGETTILE 3280
}
If %tree = 10
{
Set #LTARGETX 1840
Set #LTARGETY 1512
Set #LTARGETTILE 3299
}
If %tree = 11
{
Set #LTARGETX 1840
Set #LTARGETY 1515
Set #LTARGETTILE 3288
}
If %tree = 12
{
Set #LTARGETX 1840
Set #LTARGETY 1518
Set #LTARGETTILE 3288
}
If %tree = 13
{
Set #LTARGETX 1836
Set #LTARGETY 1512
Set #LTARGETTILE 3277
}
If %tree = 14
{
Set #LTARGETX 1836
Set #LTARGETY 1509
Set #LTARGETTILE 3280
}
If %tree = 15
{
Set #LTARGETX 1836
Set #LTARGETY 1500
Set #LTARGETTILE 3288
}
If %tree = 16
{
Set #LTARGETX 1836
Set #LTARGETY 1497
Set #LTARGETTILE 3299
}
If %tree = 17
{
Set #LTARGETX 1836
Set #LTARGETY 1494
Set #LTARGETTILE 3286
}
If %tree = 18
{
Set #LTARGETX 1832
Set #LTARGETY 1497
Set #LTARGETTILE 3290
}
If %tree = 19
{
Set #LTARGETX 1832
Set #LTARGETY 1506
Set #LTARGETTILE 3280
}
If %tree = 20
{
Set #LTARGETX 1832
Set #LTARGETY 1515
Set #LTARGETTILE 3288
}
If %tree = 21
{
Set #LTARGETX 1832
Set #LTARGETY 1518
Set #LTARGETTILE 3302
}
If %tree = 22
{
Set #LTARGETX 1828
Set #LTARGETY 1518
Set #LTARGETTILE 3299
}
If %tree = 23
{
Set #LTARGETX 1828
Set #LTARGETY 1512
Set #LTARGETTILE 3288
}
If %tree = 24
{
Set #LTARGETX 1828
Set #LTARGETY 1506
Set #LTARGETTILE 3302
}
If %tree = 25
{
Set #LTARGETX 1828
Set #LTARGETY 1500
Set #LTARGETTILE 3286
}
If %tree = 26
{
Set #LTARGETX 1828
Set #LTARGETY 1494
Set #LTARGETTILE 3286
}
If %tree = 27
{
Set #LTARGETX 1824
Set #LTARGETY 1488
Set #LTARGETTILE 3299
}
If %tree = 28
{
Set #LTARGETX 1820
Set #LTARGETY 1494
Set #LTARGETTILE 3277
}
If %tree = 29
{
Set #LTARGETX 1816
Set #LTARGETY 1497
Set #LTARGETTILE 3280
}
If %tree = 30
{
Set #LTARGETX 1820
Set #LTARGETY 1497
Set #LTARGETTILE 3293
}
If %tree = 31
{
Set #LTARGETX 1820
Set #LTARGETY 1500
Set #LTARGETTILE 3277
}
If %tree = 32
{
Set #LTARGETX 1820
Set #LTARGETY 1503
Set #LTARGETTILE 3283
}
If %tree = 33
{
Set #LTARGETX 1824
Set #LTARGETY 1503
Set #LTARGETTILE 3280
}
If %tree = 34
{
Set #LTARGETX 1820
Set #LTARGETY 1509
Set #LTARGETTILE 3283
}
If %tree = 35
{
Set #LTARGETX 1820
Set #LTARGETY 1509
Set #LTARGETTILE 3283
}
If %tree = 36
{
Set #LTARGETX 1824
Set #LTARGETY 1512
Set #LTARGETTILE 3288
}
If %tree = 37
{
Set #LTARGETX 1828
Set #LTARGETY 1518
Set #LTARGETTILE 3299
}
If %tree = 38
{
Set #LTARGETX 1832
Set #LTARGETY 1521
Set #LTARGETTILE 3302
}
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 + 1
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 + 1
If %tree > 20
Set %tree 1
Goto Next
}
Wait 1s
Goto Scan
Store:
Move 1847 1514 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 1
Click 486 247
Wait 5
Goto Store
Sub Autorun_On
Event Macro 32 0
Wait 1s
Scanjournal 1
If _OFF in #JOURNAL
Event Macro 32 0
Return
Sub Autorun_Off
Event Macro 32 0
Wait 1s
Scanjournal 1
If _ON in #JOURNAL
Event Macro 32 0
Return
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