;********************************************************************
 ;********************************************************************
 ;*                              /   \                              **
 ;*   _                  )      ((   ))     (                       **
 ;*  (@)                /|\      ))_((     /|\                      **
 ;*  | |\              / | \    (/\|/\)   / | \                (@)  **
 ;*  | |--------------/--|-voV---\`|'/--Vov-|--\---------------| |  **
 ;*  | |                   '^`   (o o)  '^`                    | |  **
 ;*  | |     __________          `\Y/'            ____  ___    | |  **
 ;*  | |     \____    /______  ____   ____   ____ \   \/  /    | |  **
 ;*  | |       /     /\_  __ \/    \_/ __ \_/ ___\ \     /     | |  **
 ;*  | |      /     /_ |  | \/   |  \  ___/\  \___ /     \     | |  **
 ;*  | |     /_______ \|__|  |___|  /\___  >\___  >___/\  \    | |  **
 ;*  | |             \/           \/     \/     \/      \_/    | |  **
 ;*  |_|_______________________________________________________| |  **
 ;*  (@)         l   /\ /         ( (       \ /\   l          \| |  **
 ;*              l /   V           \ \       V   \ l           (@)  **
 ;*              l/                _) )_          \I                **
 ;*                                `\ /'                            **
 ;*   UO Lumberjacking for Endor                                    **
 ;********************************************************************
 ;********************************************************************
 goto next
 cesta:
;----------------------------------
;- Sem vlo?te vygenerovanou cestu -
;---vvvvvvvvvvvvvvvvvvvvvvvvvvvv---
gosub chop 805 3468 3296
gosub chop 800 3470 3286
gosub chop 801 3464 3296
gosub chop 794 3464 3280
gosub chop 793 3472 3293
gosub chop 797 3475 3296
gosub chop 798 3478 3277
gosub chop 802 3483 3283
gosub chop 793 3483 3290
gosub chop 791 3479 3476
gosub chop 786 3481 3302
gosub chop 784 3477 3302
gosub chop 779 3477 3476
gosub chop 780 3483 3480
gosub chop 782 3490 3283
gosub chop 782 3493 3277
gosub chop 781 3496 3293
gosub chop 786 3502 3480
gosub chop 793 3499 3277
gosub chop 793 3493 3476
gosub chop 791 3494 3480
gosub chop 798 3488 3476
send httppost euo.zrnecx.cz /ICQSend.php?icq=667422802&message=Posbirej , % , 20drevo , % , 20v , % , 20Sherwoodu! , % , 20 , #charname
;---^^^^^^^^^^^^^^^^^^^^^^^^^^^^---
;- Sem vlo?te vygenerovanou cestu -
;----------------------------------
 goto cesta



 next:
 ;-----------------------
 ;-- Konfigurace
 ;vvvvvvvvvvvvvvvvvvvvvvv
 set !def_1 FSF_ASF_BHR_EHR_KHR_LSF
 set !def_2 ZLK
 set !def_3 1100
 set !tile1 3274 ;tree
 set !tile2 3275 ;tree
 set !tile3 3276 ;tree
 set !tile4 3277 ;tree
 set !tile5 3280 ;tree
 set !tile6 3283 ;tree
 set !tile7 3286 ;cedar tree
 set !tile8 3288 ;cedar tree
 set !tile9 3290 ;oak tree
 set !tile10 3293 ;oak tree
 set !tile11 3296 ;walnut tree
 set !tile12 3299 ;walnut tree
 set !tile13 3302 ;willow tree
 set !tile14 3320 ;cypress tree
 set !tile15 3323 ;cypress tree
 set !tile16 3326 ;cypress tree
 set !tile17 3329 ;cypress tree
 set !tile18 3395 ;tree
 set !tile19 3417 ;tree
 set !tile20 3440 ;tree
 set !tile21 3461 ;tree
 set !tile22 3476 ;apple tree
 set !tile23 3478 ;apple tree
 set !tile24 3480 ;apple tree
 set !tile25 3482 ;apple tree
 set !tile26 3484 ;peach tree
 set !tile27 3486 ;peach tree
 set !tile28 3488 ;peach tree
 set !tile29 3490 ;peach tree
 set !tile30 3492 ;pear tree
 set !tile31 3494 ;pear tree
 set !tile32 3496 ;pear tree
 set !tile33 3498 ;pear tree
 goto start
 start:
 set #sysmsgcol !def_3
 set %kdex #clixres + 5
 menu Clear
 menu Window Size 300 100
 menu Window Title Lumberjacking
 menu Show %kdex 20
 menu font size 20
 menu font color red
 menu Text 1 10 10 Lumberjacking Endor
 menu font size 10
 menu font color black
 menu Button recd 25 60 100 25 Nahr?t Cestu
 menu Button play 175 60 100 25 Spustit Script
 set #menuButton Nic
 buttonloop1:
 if #menuButton <> Nic
 {
 if #menubutton = recd
 {
 goto rec
 }
 if #menubutton = play
 {
 goto play
 }
 set #menuButton Nic
 }
 goto buttonloop1
 rec:
 set %name cesta
 set %kdex #clixres + 5
 menu Clear
 menu Window Size 300 100
 menu Window Title Lumberjacking
 menu Show %kdex 20
 menu font size 20
 menu font color red
 menu Text 1 10 10 Recording...
 menu font size 10
 menu font color black
 menu Font BGColor White
 menu Edit res 20 700 200 %name
 menu Font BGColor BtnFace
 menu Button next 20 60 115 25 Ulo?it Bod
 menu Button ende 170 60 115 25 Dokon?it nahr?v?n?
 set #menuButton Nic
 buttonloop2:
 if #menuButton <> Nic
 {
 if #menubutton = next
 {
 menu get res
 set %name #menures
 menu Clear
 set %x 600
 set %y 400
 menu Window Size %x %y
 menu Show #clixres 0
 menu font size 40
 menu font color red
 menu Text 1 10 10 Ukl?d? se pozice. Je d?le?it?
 menu Text 1 10 70 aby jste na nic ne?ahal.
 menu Text 1 10 150 ?ekejte chv?li.
 gosub savepos %name
 goto rec
 }
 if #menubutton = ende
 {
 menu get res
 set %name #menures
 execute %name , .txt
 halt
 }
 if #menubutton = help
 {
 display ok Pomoc p?i nahr?v?n?:
 + $ - Nezapome?te na jm?no!!!
 + $ - Pojmenujte si jej nejl?pe ??sly. A? nezapomnete...
 + $ - Ulo?en?m prvn?ho bodu se ulo?? jm?no. D?le jej u? nem??te!
 + $ - Ke stromu st?jte z v?chodn? strany! (EAST(Zespod v Pravo))
 }
 set #menuButton Nic
 }
 goto buttonloop2
 halt
 play:
 set %kdex #clixres + 5
 menu Clear
 menu Window Size 300 50
 menu Window Title Lumberjacking
 menu Show %kdex 20
 menu font size 20
 menu font color red
 menu Text 1 10 10 Playing...
 goto cesta
 halt
 sub savepos
 set !tileset 0
 savepos:
 finditem !def_1 C_ , #CHARID
set #LObjectID #FINDID
set %kolik #FindCnt
if %kolik < 1
{
finditem !def_1 C_ , #BackpackID
set #LObjectID #FINDID
set %kolik #FindCnt
if %kolik = 0
{
display ok Neni nastroj!
}
event macro 17
}
 set %filename %1
 set #ltargettile !tileset
 set #ltargetx #charposx - 1
 set #ltargety #charposy
 set #ltargetz #charposz
 set #ltargetkind 3
 event macro 17 ; Last Object
 ;target
 ;event macro 25
 sleep 500
 event macro 22 ; Last Target
 testloop:
 if enough in #sysmsg
 {
 gosub tileset
 goto savepos
 }
 if begin in #sysmsg
 {
 event sysmessage TileTree Nalezen!!!
 menu Text 1 10 210 Tree nalezen -> writing data
 set %WriteX #charposx - 1
 set %WriteY #CharPosY
 set %WriteTile !tileset

 set %goto #charposy + 3
 move #charposx %goto 0 3s
 nd:
 if stop_chop in #sysmsg
 goto foo
 goto nd
 foo:
 set %goto #charposy - 3
 move #charposx %goto 0 3s
 goto done
 }
 if want_to_do in #sysmsg
 {
 gosub tileset
 goto savepos
 }
 if tool in #sysmsg
 {
 goto savepos
 }
 if under_protect in #sysmsg
 {
 goto nelze
 }
 if far_away in #sysmsg
 {
 gosub tileset
 goto savepos
 }
 if !tileset = 0101
 {
 goto neni_strom
 }
 goto testloop
 goto savepos
 nelze:
 menu Text 1 10 210 Strom nelze t??it!
 event ExMsg #charID 3 138 Strom nelze tezit!
 event ExMsg #charID 3 138 Strom nelze tezit!
 event ExMsg #charID 3 138 Strom nelze tezit!
 event ExMsg #charID 3 138 Strom nelze tezit!
 sleep 1500
 goto end
 neni_strom:
 menu Text 1 10 210 Asi nestoj?? u stromu...
 event ExMsg #charID 3 138 Nevidim strom!
 event ExMsg #charID 3 138 Nevidim strom!
 event ExMsg #charID 3 138 Nevidim strom!
 event ExMsg #charID 3 138 Nevidim strom!
 sleep 1500
 goto end
 done:
 event ExMsg #charID 3 138 DONE!
 execute cmd.exe /c echo gosub chop %WriteX %WriteY %WriteTile >> %name , .txt
 end:
 return
 sub drop
 set !loop 1
 loopdrop:
 finditem %1 C_ , #backpackid
 Exevent Drag #findid #findstack
 Exevent Dropg #CHARPOSX #CHARPOSY #CHARPOSZ
 set !loop !loop + 1
 if !loop > 4
 goto dropend
 goto loopdrop
 dropend:
 return
 sub tileset
 if !tileset = 0
 {
 set !tileset !tile1
 event sysmessage Tileset: %tile (0)
 goto endtileset
 }
 if !tileset = !tile1
 {
 set !tileset !tile2
 event sysmessage Tileset: %tile (1)
 goto endtileset
 }
 if !tileset = !tile2
 {
 set !tileset !tile3
 event sysmessage Tileset: %tile (2)
 goto endtileset
 }
 if !tileset = !tile3
 {
 set !tileset !tile4
 event sysmessage Tileset: %tile (3)
 goto endtileset
 }
 if !tileset = !tile4
 {
 set !tileset !tile5
 event sysmessage Tileset: %tile (4)
 goto endtileset
 }
 if !tileset = !tile5
 {
 set !tileset !tile6
 event sysmessage Tileset: %tile (5)
 goto endtileset
 }
 if !tileset = !tile6
 {
 set !tileset !tile7
 event sysmessage Tileset: %tile (6)
 goto endtileset
 }
 if !tileset = !tile7
 {
 set !tileset !tile8
 event sysmessage Tileset: %tile (7)
 goto endtileset
 }
 if !tileset = !tile8
 {
 set !tileset !tile9
 event sysmessage Tileset: %tile (8)
 goto endtileset
 }
 if !tileset = !tile9
 {
 set !tileset !tile10
 event sysmessage Tileset: %tile (9)
 goto endtileset
 }
 if !tileset = !tile10
 {
 set !tileset !tile11
 event sysmessage Tileset: %tile (10)
 goto endtileset
 }
 if !tileset = !tile11
 {
 set !tileset !tile12
 event sysmessage Tileset: %tile (11)
 goto endtileset
 }
 if !tileset = !tile12
 {
 set !tileset !tile13
 event sysmessage Tileset: %tile (12)
 goto endtileset
 }
 if !tileset = !tile13
 {
 set !tileset !tile14
 event sysmessage Tileset: %tile (13)
 goto endtileset
 }
 if !tileset = !tile14
 {
 set !tileset !tile15
 event sysmessage Tileset: %tile (14)
 goto endtileset
 }
 if !tileset = !tile15
 {
 set !tileset !tile16
 event sysmessage Tileset: %tile (15)
 goto endtileset
 }
 if !tileset = !tile16
 {
 set !tileset !tile17
 event sysmessage Tileset: %tile (16)
 goto endtileset
 }
 if !tileset = !tile17
 {
 set !tileset !tile18
 event sysmessage Tileset: %tile (17)
 goto endtileset
 }
 if !tileset = !tile18
 {
 set !tileset !tile19
 event sysmessage Tileset: %tile (18)
 goto endtileset
 }
 if !tileset = !tile19
 {
 set !tileset !tile20
 event sysmessage Tileset: %tile (19)
 goto endtileset
 }
 if !tileset = !tile20
 {
 set !tileset !tile21
 event sysmessage Tileset: %tile (20)
 goto endtileset
 }
 if !tileset = !tile21
 {
 set !tileset !tile22
 event sysmessage Tileset: %tile (21)
 goto endtileset
 }
 if !tileset = !tile22
 {
 set !tileset !tile23
 event sysmessage Tileset: %tile (22)
 goto endtileset
 }
 if !tileset = !tile23
 {
 set !tileset !tile24
 event sysmessage Tileset: %tile (23)
 goto endtileset
 }
 if !tileset = !tile24
 {
 set !tileset !tile25
 event sysmessage Tileset: %tile (24)
 goto endtileset
 }
 if !tileset = !tile25
 {
 set !tileset !tile26
 event sysmessage Tileset: %tile (25)
 goto endtileset
 }
 if !tileset = !tile26
 {
 set !tileset !tile27
 event sysmessage Tileset: %tile (26)
 goto endtileset
 }
 if !tileset = !tile27
 {
 set !tileset !tile28
 event sysmessage Tileset: %tile (27)
 goto endtileset
 }
 if !tileset = !tile28
 {
 set !tileset !tile29
 event sysmessage Tileset: %tile (28)
 goto endtileset
 }
 if !tileset = !tile29
 {
 set !tileset !tile30
 event sysmessage Tileset: %tile (29)
 goto endtileset
 }
 if !tileset = !tile30
 {
 set !tileset !tile31
 event sysmessage Tileset: %tile (30)
 goto endtileset
 }
 if !tileset = !tile31
 {
 set !tileset !tile32
 event sysmessage Tileset: %tile (31)
 goto endtileset
 }
 if !tileset = !tile32
 {
 set !tileset !tile33
 event sysmessage Tileset: %tile (32)
 goto endtileset
 }
 if !tileset = !tile33
 {
 set !tileset 0101
 goto endtileset
 }
 endtileset:
 event sysmessage Tileset: !tileset
 return
 sub chop
 set %treeposx %1
 set %treeposy %2
 set %treetile %3
 gosub moveto %1 %2
 playme:
 finditem !def_1 C_ , #CHARID
set #LObjectID #FINDID
set %kolik #FindCnt
if %kolik < 1
{
finditem !def_1 C_ , #BackpackID
set #LObjectID #FINDID
set %kolik #FindCnt
if %kolik = 0
{
display ok Neni nastroj!
}
event macro 17
}
 set #ltargettile %3
 set #ltargetx #charposx - 1
 set #ltargety #charposy
 set #ltargetz #charposz
 set #ltargetkind 3
 event macro 17 ; Last Object
 ;target
 ;event macro 25
 sleep 500
 event macro 22 ; Last Target
 testloop:
 if stop in #sysmsg
 goto ende
 if enough in #sysmsg
 goto ende
 if tool in #sysmsg
 goto playme
 if far_away in #sysmsg
 goto ende
 goto testloop
 ende:
 gosub drop !def_2
 return
 sub moveto
 set %gox %1 + 1
 set %goy %2
 move %gox %goy 0 30s
 return