c.d.t sto cercadno uno script che mi trasformi board in shaft e se poi mi trasforma i shaft in crossbow ancora meglio
ICQ: 381-802-629
ICQ: 381-802-629


: algander#6292;must be standing at bank and bankbox open
;must have fletching tools in bag,
;boards or shafts, and feathers must be in bank
;script uses tinkering to make new tools so might be a good idea to have tinkering tools and iron in bank (or maybe in bag, cant remember)
set %bankid X
set %shaftamount 2000 ; when making bolts, how many shafts u can carry
set %featheramount 2000 ; when making bolts, how many feathers u can carry
set %boards 500 ; if needed to craft shafts, how many boards u can carry
set %tool UFG ; fletching tool
set %shaft SLK
set %wood TLK
set %feather VLK
set %bolt LNK
set %iron ENK
set %tinkertool KTL
msg bank $
wait 1s
set %bankid #CONTID
wait 1s
gosub start
sub start
gosub reagentsfrombank
gosub makebolts
gosub boltstobank
gosub start
sub reagentsfrombank
wait 10
Finditem %bankid G_2
set #lobjectid #findid
event macro 17
wait 10
gosub checktools
Finditem %shaft C_ , %bankid
if #findcnt < 1
{
gosub makeshafts
}
wait 10
Finditem %shaft C_ , %bankid
Exevent Drag #findid %shaftamount
wait 20
Exevent Dropc #backpackid
wait 20
Finditem %feather C_ , %bankid
if #findcnt < 1
{
halt
}
Exevent Drag #findid %featheramount
wait 10
Exevent Dropc #backpackid
wait 10
return
sub makeshafts
for %i 1 20
{
gosub checktools
Finditem %wood C_ , %bankid
if #findcnt < 1
{
halt
}
Exevent Drag #findid %boards
wait 10
Exevent Dropc #backpackid
wait 20
Finditem %tool C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 10
click 68 132
wait 5
click 276 132
wait 40
gosub shaftstobank
}
return
sub notools
Finditem %iron C_ , %bankid
Exevent Drag #findid 20
wait 10
Exevent Dropc #backpackid
wait 10
Finditem %tinkertool C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 5
click 67 151
wait 5
click 423 310
wait 5
click 423 310
wait 5
click 275 110
wait 2s
click 69 453 ; exit
Finditem %iron C_ , #backpackid
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %bankid
wait 10
return
sub checktools
Finditem %tool C_ , #backpackid
if #findkind = -1
{
gosub notools
}
return
sub shaftstobank
wait 10
click 69 453 ; exit
Finditem %shaft C_ , #backpackid
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %bankid
wait 10
return
sub makebolts
gosub checktools
Finditem %tool C_ , #backpackid
set #lobjectid #findid
event macro 17
wait 5
click 69 151
wait 5
click 274 133
wait 40
click 69 453 ; exit
return
sub boltstobank
Finditem %bolt C_ , #backpackid
Exevent Drag #findid #findstack
wait 10
Exevent Dropc %bankid
wait 20
return

Commenta