set %kurek TWF
set %tinker KTL
set %makelast_clickx 285
set %makelast_clicky 410
set %ingot ENK

finditem %tinker c_ , #backpackid
set %1 #findcnt

finditem %ingot c_ , #backpackid
set %2 #findstack

display OkCancel %1 adet tinker zýmbýrtýn ve %2 adet ingotun var. Devam mý?
if #dispres = Cancel
halt

baslangic:
Display ok Kürek doldurmak istediðin kutuyu seç bakim
SET #TARGCURS 1
start:
IF #TARGCURS = 1
{
    WAIT 1
    GOTO start

}
SET %kutu #LTARGETID
set #lobjectid %kutu
event macro 17 0
wait 10

loop:
finditem * C_ , %kutu
if #findcnt < 115
{
finditem %kurek C_ , #backpackid
if #findcnt < 1
gosub kurekyap
else
gosub transfer
}
else
{
Display YesNo Kutu doldu usta. Evet : Sýradakine Geçelim, Hayýr : Bitirelim
if #dispres = yes
goto baslangic:
if #dispres = no
event ExMsg #charID 3 6 BeaLzeBuB cok yakisiklidir
halt
}
goto loop:

sub transfer
finditem %kurek C_ , #backpackid
exevent drag #FINDID
wait 4
exevent Dropc %kutu
wait 4
return

sub kurekyap
finditem %tinker C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 20
set %gumpx #contposx
set %gumpy #contposy
set %clickx %gumpx + %makelast_clickx
set %clicky %gumpy + %makelast_clicky
click %clickx %clicky f
return