ciao so che devo cambiare solo 2 o 3 parole quindi è una cosa facile facile.. se volessi portare del legno invece che degli ingots.. come faccio:??

set %MaxIronSale 4000 set %IronType ENK ; iron = 0 ; dull copper = 2419 ; shadow iron = 2406 ; agapite = 2425 ; copper = 2413 ; bronzo = 2418 ; gold = 2213 ; verite = 2207 ; valorite = 2219 set %iron_col 0
set %MaxIronSale 4000 set %IronType TLK ;TLK dovrebbero essere le board ; iron = 0 ; dull copper = 2419 ; shadow iron = 2406 ; agapite = 2425 ; copper = 2413 ; bronzo = 2418 ; gold = 2213 ; verite = 2207 ; valorite = 2219 set %iron_col 0
initevents
ignoreItem reset
set #lTargetID X
set #targCurs 1
set #lTargetKind 1
N1:
wait 1
if #lTargetID = X
{
goto N1
}
finditem #lTargetID
event exmsg #charid 3 0 #findcol
set %homeposx #charposx
set %homeposy #charposy
set %homeposz #charposz
set %MaxIronSale 4000
set %IronType ENK
; iron = 0
; dull copper = 2419
; shadow iron = 2406
; agapite = 2425
; copper = 2413
; bronzo = 2418
; gold = 2213
; verite = 2207
; valorite = 2219
set %iron_col 0
display ok seleziona la cassa dove prendere il metallo
set #targcurs 1
set %loop #true
while %loop
{
if #targcurs = 1
wait 5
else
set %loop #false
}
set %Cassa #ltargetid
event macro 2 0 Cassa salvata
display ok seleziona il runebook da utilizzare
set #targcurs 1
set %loop #true
while %loop
{
if #targcurs = 1
wait 5
else
set %loop #false
}
set %RuneBook #ltargetid
event macro 2 0 runebook salvato
set %continua #true
while #true
{
gosub Rifornimento
if #result
{
gosub s7UseRunebook %RuneBook 2 r
set %loop #true
while %loop
{
set #NEXTCPOSX 10
set #NEXTCPOSY 30
msg Bank $
wait 10
if #CONTTYPE = IKF
{
set %BancaID #CONTID
set %loop #false
findItem %IronType C_ , #backpackid
if #findkind <> -1
{
Exevent Drag #findid #findstack
wait 20
Exevent Dropc %BancaID
}
}
else
{
event macro 2 0 Id banca non trovato, riprovo...
wait 50
}
}
gosub s7UseRunebook %RuneBook 1 r
event PathFind %homeposx %homeposy %homeposz
wait 3s
}
else
{
display ok Materiale spostato.
halt
}
}
sub Rifornimento
set #lobjectid %Cassa
event macro 17
wait 15
piloop:
finditem %IronType c_ , %Cassa
if #findkind = -1
{
ignoreitem reset
return #false
}
if #findCol <> %iron_col
{
ignoreitem #findid
goto piloop
}
ignoreitem reset
wait 10
piridrag:
if #findstack < 4
{
return #false
}
set %fspi #findstack
if %fspi > %MaxIronSale
{
set %fspi %MaxIronSale
}
Exevent Drag #findID %fspi
gosub AntiBlock
wait 10
Exevent Dropc #BACKPACKID
return #true
return

Commenta