Код:
Initevents
Set %weight 160
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 1710
Set #LTARGETY 1489
Set #LTARGETTILE 3280
}
If %tree = 2
{
Set #LTARGETX 1716
Set #LTARGETY 1488
Set #LTARGETTILE 3290
}
If %tree = 3
{
Set #LTARGETX 1720
Set #LTARGETY 1485
Set #LTARGETTILE 3286
}
If %tree = 4
{
Set #LTARGETX 1720
Set #LTARGETY 1491
Set #LTARGETTILE 3293
}
If %tree = 5
{
Set #LTARGETX 1724
Set #LTARGETY 1494
Set #LTARGETTILE 3296
}
If %tree = 6
{
Set #LTARGETX 1728
Set #LTARGETY 1491
Set #LTARGETTILE 3286
}
If %tree = 7
{
Set #LTARGETX 1728
Set #LTARGETY 1488
Set #LTARGETTILE 3288
}
If %tree = 8
{
Set #LTARGETX 1732
Set #LTARGETY 1482
Set #LTARGETTILE 3293
}
If %tree = 9
{
Set #LTARGETX 1736
Set #LTARGETY 1491
Set #LTARGETTILE 3293
}
If %tree = 10
{
Set #LTARGETX 1736
Set #LTARGETY 1494
Set #LTARGETTILE 3288
}
If %tree = 11
{
Set #LTARGETX 1732
Set #LTARGETY 1497
Set #LTARGETTILE 3288
}
If %tree = 12
{
Set #LTARGETX 1728
Set #LTARGETY 1497
Set #LTARGETTILE 3299
}
If %tree = 13
{
Set #LTARGETX 1732
Set #LTARGETY 1500
Set #LTARGETTILE 3299
}
If %tree = 14
{
Set #LTARGETX 1732
Set #LTARGETY 1503
Set #LTARGETTILE 3293
}
If %tree = 15
{
Set #LTARGETX 1732
Set #LTARGETY 1506
Set #LTARGETTILE 3280
}
If %tree = 16
{
Set #LTARGETX 1740
Set #LTARGETY 1500
Set #LTARGETTILE 3296
}
If %tree = 17
{
Set #LTARGETX 1740
Set #LTARGETY 1497
Set #LTARGETTILE 3293
}
If %tree = 18
{
Set #LTARGETX 1740
Set #LTARGETY 1494
Set #LTARGETTILE 3283
}
If %tree = 19
{
Set #LTARGETX 1736
Set #LTARGETY 1485
Set #LTARGETTILE 3296
}
If %tree = 21
{
Set #LTARGETX 1744
Set #LTARGETY 1476
Set #LTARGETTILE 3283
}
If %tree = 22
{
Set #LTARGETX 1744
Set #LTARGETY 1470
Set #LTARGETTILE 3288
}
If %tree = 23
{
Set #LTARGETX 1740
Set #LTARGETY 1473
Set #LTARGETTILE 3296
}
If %tree = 24
{
Set #LTARGETX 1732
Set #LTARGETY 1479
Set #LTARGETTILE 3288
}
Set %x #LTARGETX + 1
Set %y #LTARGETY + 1
Move %x %y 0 30s
eat:
FindItem HND
IF #FindKind = 1 2
Ignoreitem #Findid
Goto eat
If #FindKind = -1 2
Event Sysmessage Eat not found
Goto Chop
Set #lobjectID #FindID
Event Macro 17 0
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 1716 1483 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 379 274
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
Вот собсно
Реєстрація
)))