; #################################
; Script Name:  YB WoodChest Maker
; Version: 1.0
; Client Tested with: EA 6.0.1.10 (Patch 72)
; EUO version tested with: 1.5 Version 176
; Shard OSI / FS: RunUo Server
; #################################

set %tool agg_egg
set %adet 0
Set %Grab 20
GoSub MainMenu
Sub MainMenu
menu Clear
menu Window Title YB WoodChest
menu Window Color Silver
menu Window Size 180 180
menu font bgcolor silver
Menu font color Navy
Menu text txt 40 10 YB WoodChest
Menu font color green
menu font size 8
Menu Shape Upper 5 35 165 1 4 7 1 Gray 2 Gray
Menu Shape Lower 5 160 165 1 4 7 1 White 10 White
Menu Shape Left_ 5 35 1 125 4 7 1 Gray 5 Gray
Menu Shape Right 170 35 1 125 4 7 1 White 10 White
menu Edit ma_kutusu 20 40 65 %ma_kutusu
Menu Font Color Black
menu Button m_kutusu 115 40 50 22 M Kutusu
Menu Edit adet 20 80 25 %adet
menu font size 8
menu text txt 53 83 Chest yap..
menu font color Black
menu button basla 115 130 50 22  Baþla
menu font color Navy
menu font size 7
menu text status 80 135 Hazýr !
menu Show

Set #menuButton N/A
MainLoop:
if #menuButton = m_kutusu
     {
     menu delete status
     menu font size 7
     menu font color green
     menu text status 35 135 Malzeme Kutusu
     set #targCurs 1
      SetResourceChest:
       if #targCurs = 1
     goto SetResourceChest
     Set %ma_kutusu #LTargetID
     Set #LObjectID %ma_kutusu
     Event Macro 17 0
      wait 20
     contpos 610 440
      wait 10
     menu font size 10
     menu set m_kutusu %ma_kutusu
     set #menubutton N/A
     gosub MainMenu
     }
if #menuButton = basla
{

menu delete status
menu font size 7
menu font color Navy
menu text status 60 135 Yapýlýyor..
gosub GrabWood
wait 10
finditem %tool  , #Backpackid
        wait 10
        set #LOBJECTID #findid
   event macro 17 0
      wait 20
     
set %clickx #contposx + 25
set %clicky #contposy + 129
click %clickx %clicky
wait 5

set %clickx #contposx + 235
set %clicky #contposy + 148
click %clickx %clicky
wait 10


}

goto MainLoop

return

Sub GrabWood
FindItem TLK  C_ , %ma_kutusu
if #FindKind = -1
   {
   Display ok  Kasa da Odun Yok .$
           +Lütfen Odun Koyunuz .$
           +$
           +Script Sona Erdi.$
   halt
   }
exEvent Drag #FindID %Grab
 wait 10
exEvent Dropc #BackpackID
 wait 20

Return