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