[EASYUO] Producing Bolts, Arrows

[fnurov]

.

[Simo63]

Già che ci siamo posto il mio primo script crea shaft e bolt. Per qualsiasi dubbio critica miglioramento non esitate a contattarmi.

;Scripted By Simo63 for Uod 
gosub Main
halt

Sub Main
set %legname ZLK_TLK_
gosub initConstants
gosub selectContainer
while #true ; Uscita tramite istruzioni halt
    {
        gosub cleanwood
        gosub getwood
        gosub opengump
        gosub creashaft
        gosub grabfeather
        gosub creabolt
        gosub cleanBP
        gosub cleanbolts
        gosub cleanwood
        }
return


sub selectContainer
    event exmsg #charid 3 0 Target the container with the logs and feathers.
    set #targCurs 1
    while ( #targCurs = 1 )
    {
    }
    set %supplyBag #lTargetID
    set #lobjectid %supplyBag
    event macro 17 0
    wait 1s
return

sub getwood
finditem %legname C_ , %supplyBag
if #findkind = -1
    {
       display non hai più legna
       halt
    }
Exevent Drag #findid  200
wait 2
Exevent Dropc #backpackid
wait 70
return

sub initConstants
set %normalCol 0
set %feather VLK
set %bolts  LNK
set %shaft  SLK
return

sub opengump
  set %pen UFG
  finditem %pen C_ , %supplyBag
    if #findkind = -1
    {
       display ok tools finiti
       halt
    }
    exevent drag #findid
    exevent dropc #backpackid
    wait 1s
    set #lobjectid #findid
    event macro 17
    wait 20
    set %pengumpx #contposx
    set %pengumpy #contposy
    set %materialsX %pengumpx + 26
    set %materialsY %pengumpy + 90
set %shaftX %pengumpx + 229
set %shaftY %pengumpy + 91
set %munitionx %pengumpx + 26
set %munitiony %pengumpy + 109
set %boltx %pengumpx + 234
set %bolty %pengumpy + 90
  gosub gumpWait
  return

sub gumpWait
    set %curTime #scnt
    _gumpWait:
    if %curTime < ( #scnt - 5 )
       return
    if worn in #journal || worn in #sysmsg
       return

wait 5
return

Sub Creashaft
gosub gumpWait
click %materialsX %materialsY
gosub gumpWait
click %shaftX %shaftY
gosub gumpwait
wait 120
 return
Sub creabolt
gosub gumpwait
click %munitionx %munitiony
gosub gumpwait
click %boltx %bolty
gosub gumpwait
wait 120
 return
 
sub grabfeather
finditem %feather C_ , %supplyBag
    if #findkind = -1
    {
       display ok piume finite
       halt
    }
    set %grabAmt 200
    exevent drag #findid %grabAmt
    exevent dropc #backpackid
    wait 1s
return


sub cleanBP
    _cleanBP:
    set %organize UFG
    finditem %organize  C_ , #backpackid
    if #findkind = -1
       return
    exevent drag #findid #findstack
    exevent dropc %supplyBag
    wait 15

return

sub cleanbolts
finditem %bolts  C_ , #backpackid
    if #findkind = -1
       return
    exevent drag #findid #findstack
    exevent dropc %supplyBag
    wait 15
return

sub cleanwood
finditem %legname  C_ , #backpackid
    if #findkind = -1
       return
    exevent drag #findid #findstack
    exevent dropc %supplyBag
    wait 15
return