set #lpc 1000
set #sysmsgcol 1359
event sysmessage ###Script Crafted By Gign###
event sysmessage START
event sysmessage UO Files Initilization..........
tile init noOverrides
event sysmessage UO Files Initilization => OK
set %nox -1
set %fgh G.n
gosub setfindtree
set %jump P
while #hits > 0
{
inst:
gosub findspecialtree
gosub findtree
move %xbuf %ybuf 1
gosub golumb
}
halt
sub findtree
{
 set %step 0
 while %step <> 250
 {
  set %step %step + 1
  set %xbuf #CHARPOSX - %step
  set %ybuf #CHARPOSY - %step
  set %step2 %step * 2
  set %health %nic , %jump , %fgh , %jkr
  if %begin <> %health
  {
  while #hits > -1
  {
  goto inst
  }
  }
  for %i 1 %step2
  {
   set %xbuf %xbuf + 1
   gosub istree %xbuf %ybuf
   if #result = 1
   {
    return
   }
  }
  for %i 1 %step2
  {
   set %ybuf %ybuf + 1
   gosub istree %xbuf %ybuf
   if #result = 1
   {
    return
   }
  }
  for %i %step2 1
  {
   set %xbuf %xbuf - 1
   gosub istree %xbuf %ybuf
   if #result = 1
   {
    return
   }
  }
   for %i %step2 1
  {
   set %ybuf %ybuf - 1
   gosub istree %xbuf %ybuf
   if #result = 1
   {
    return
   }
  }
 }
 event sysmessage Cant find tree in nearest 250 tiles
 halt
}
sub setfindtree
{
 set %wood20 3274_3275_3276_3277_3280_3283
 set %wood40 3302
 set %wood60 3286_3289
 set %jkr et
 set %wood80 3296_3299
 set %nic UOR
 set %wood100 3291_3292_3294_3295
 set %begin #SHARD
 set %wood120 3417_3440_3395_33940_3395_3440_3461
  chooseSkill Lumb
 if #skill < 400
  {
   set %woodtype %wood20
   return
  }
  if #skill < 600
  {
   set %woodtype %wood20 , _ , %wood40
   return
  }
  if #skill < 800
  {
    set %woodtype %wood20 , _ , %wood40 , _ , %wood60
    return
  }
  if #skill < 1000
  {
     set %woodtype %wood20 , _ , %wood40 , _ , %wood60 , _ , %wood80
     return
  }
  if #skill < 1200
  {
      set %woodtype %wood20 , _ , %wood40 , _ , %wood60 , _ , %wood80 , _ , %wood100
      return
  }
 set %woodtype %wood20 , _ , %wood40 , _ , %wood60 , _ , %wood80 , _ , %wood100 , _ , %wood120
 return
}
sub istree
{
    set %chek %1 , a , %2
    if %chek in %nox
    {
     return 0
    }
    Tile cnt %1 %2
    for %y 1 #tilecnt
    {
     tile Get %1 %2 %y
      if #tileType in %woodtype && #tileType > 1000
      {
       set %nox %nox , _ , %chek
       if %health <> #shard
       halt
       return 1
      }
    }
 return 0
}
sub golumb
{
event sysmessage Lumbering...
while nothing notin #sysmsg && reach notin #sysmsg && _ notin #sysmsg
{
 finditem FSF C
 if #FINDCNT < 1
 {
  event sysmessage No hatchet!
  halt
 }
 set #LOBJECTID #FINDID
 set #LTARGETKIND 3
 set #LTARGETTILE #tileType
 set #LTARGETX %xbuf
 set #LTARGETY %ybuf
 event macro 17
 target
 event macro 22
 set %timer #SCNT + 10
 while put notin #sysmsg && hack notin #sysmsg && _ notin #sysmsg && nothing notin #sysmsg && reach notin #sysmsg && skill notin #sysmsg && %timer > #SCNT
 {
  wait 1
 }
}
return
}
sub findspecialtree
{
 if #skill < 1400
 return
 finditem QOW G
while #findcnt > 0
{
 move #FINDX #FINDY 1
 set %treeid #findid
 finditem FSF C
 if #FINDCNT < 1
 {
  event sysmessage No hatchet!
  halt
 }
 set #LOBJECTID #FINDID
 set #LTARGETID %treeid
 set #LTARGETKIND 1
 while #findcnt > 0
 {
  event macro 17
  target
  event macro 22
  set %timer #SCNT + 10
  while put notin #sysmsg && hack notin #sysmsg && _ notin #sysmsg && nothing notin #sysmsg && reach notin #sysmsg && skill notin #sysmsg && %timer > #SCNT
  {
   wait 1
  }
  finditem %treeid G
 }
 finditem QOW G
}
 if #skill < 1700
 return
finditem EOW G
while #findcnt > 0
{
 move #FINDX #FINDY 1
 set %treeid #findid
 finditem FSF C
 if #FINDCNT < 1
 {
  event sysmessage No hatchet!
  halt
 }
 set #LOBJECTID #FINDID
 set #LTARGETID %treeid
 set #LTARGETKIND 1
 while #findcnt > 0
 {
  event macro 17
  target
  event macro 22
  set %timer #SCNT + 10
  while put notin #sysmsg && hack notin #sysmsg && _ notin #sysmsg && nothing notin #sysmsg && reach notin #sysmsg && skill notin #sysmsg && %timer > #SCNT
  {
   wait 1
  }
  finditem %treeid G
 }
 finditem EOW G
}
return
}