Quote:
InitEvents
gosub OpenBackPack
Set %LootBag #BACKPACKID
finditem ZJF_CKF C_ , %LootBag
if #findkind = -1
{
msg nn hai un bag nel tuo back pack
halt
}
set %LootBag #findid
;CKF
;Set %LootBag RVCGKMD
Set %CorpseID YFM_YNF
;===Loot Items===
Set %Everything *
Set %Gold POF
Set %Blades FUO_ATF_NPO_JPH_TSF_NMH_VRH_JTF_SOH_BPH
Set %Shields FIK_GIK_CIK_NIK_AIK_MIK_HLK_CLK_OIK
Set %Gioielli IJG_UJG_CWL_LWL
Set %Reagenti JZF_RZF_MZF_KUF_WZF_KZF_JUF_SZF
Set %ScrollNecro KYM_TYM_SYM_OYM_JYM_IYM_MYM_WYM
Set %Helmets GSH_OSH_TSH
Set %Shields FIK_GIK_CIK_NIK_AIK_MIK_HLK_CLK
Set %Axes LSF_BSF_NSF_ZRF_RMH_LPH_UOH
Set %Polearms HSF_ZTO_BUO_XTH_OPO_CUO_XRH_GUO_MTF_RRH
Set %Bashing VTH_YSF_BUH_AUO_TRH_ZTH
Set %Dragon RKO_LKO_NKO_DLO_PKO
Set %Bow WHO_QPO_USF_WOH
Set %Ossa OZF
Set %funghi TTO
Set %Freccie RWF
Set %PetBall GMF
Set %Pozze UUF_ZUF_NUF_YUF_XUF
;===Loot Lists===
;set %LootList1 %Gioielli
;Set %LootList2 %Gold
;Set %LootList3 %Reagenti
;Set %LootList4 %ScrollNecro , %Reagenti
;Set %LootList5 %Ossa
Set %LootList1 %Gold
Set %LootList2 %Gioielli
;===WaitTimes===
;Set %OpenCorpseWait 11
Set %OpenCorpseWait 3
set %BeforeStackWait 8
;Set %NextLootWait 6
Set %NextLootWait 20
;===Script===
Main:
;OnhotKey F4
OnhotKey CAPSLOCK
{
gosub FindCorpse
}
goto Main
sub FindCorpse
finditem %CorpseID G_2
if #findkind = -1
return
set %Corpse #findid
ignoreitem %Corpse 1
gosub LootCorpse
return
sub LootCorpse
set #lobjectid %Corpse
event macro 17
wait %OpenCorpseWait
; contpos 413 707
; gosub FindLoot
for %i 1 5
{
SearchLoop:
finditem %LootList . %i C_ , %Corpse
if #findkind <> -1
{
set %Loot #findid
set %Quantita #FINDSTACK
exevent drag %Loot %Quantita
wait 1
exevent dropc %LootBag
wait %NextLootWait
goto SearchLoop
}
}
return
sub OpenBackPack
OpenBackPackLoop:
event macro 8 7
gosub waitForVar ContSize = 230_204 2
if ! #result && #CharGhost = NO
{
goto OpenBackPackLoop
}
set %BackPackID #contID
contpos 645 620
return
sub waitForVar
set %timeout #time + 5
if %0 > 3
set %timeout #time + %4
waitForVarLoop:
if # . %1 %2 %3
return #true
if #time >= %timeout
return #false
goto waitForVarLoop
return
devi avere una bag nel backpack e per usarlo premi capslock, č settato che raccoglie soldi e monili
cos'č CAPSLOCK ????
InitEvents
gosub OpenBackPack
Set %LootBag #BACKPACKID
finditem ZJF_CKF C_ , %LootBag
if #findkind = -1
{
msg nn hai un bag nel tuo back pack
halt
}
set %LootBag #findid
;CKF
;Set %LootBag RVCGKMD
Set %CorpseID YFM_YNF
;===Loot Items===
Set %Everything *
Set %Gold POF
Set %Blades FUO_ATF_NPO_JPH_TSF_NMH_VRH_JTF_SOH_BPH
Set %Shields FIK_GIK_CIK_NIK_AIK_MIK_HLK_CLK_OIK
Set %Gioielli IJG_UJG_CWL_LWL
Set %Reagenti JZF_RZF_MZF_KUF_WZF_KZF_JUF_SZF
Set %ScrollNecro KYM_TYM_SYM_OYM_JYM_IYM_MYM_WYM
Set %Helmets GSH_OSH_TSH
Set %Shields FIK_GIK_CIK_NIK_AIK_MIK_HLK_CLK
Set %Axes LSF_BSF_NSF_ZRF_RMH_LPH_UOH
Set %Polearms HSF_ZTO_BUO_XTH_OPO_CUO_XRH_GUO_MTF_RRH
Set %Bashing VTH_YSF_BUH_AUO_TRH_ZTH
Set %Dragon RKO_LKO_NKO_DLO_PKO
Set %Bow WHO_QPO_USF_WOH
Set %Ossa OZF
Set %funghi TTO
Set %Freccie RWF
Set %PetBall GMF
Set %Pozze UUF_ZUF_NUF_YUF_XUF
;===Loot Lists===
;set %LootList1 %Gioielli
;Set %LootList2 %Gold
;Set %LootList3 %Reagenti
;Set %LootList4 %ScrollNecro , %Reagenti
;Set %LootList5 %Ossa
Set %LootList1 %Gold
Set %LootList2 %Gioielli
;===WaitTimes===
;Set %OpenCorpseWait 11
Set %OpenCorpseWait 3
set %BeforeStackWait 8
;Set %NextLootWait 6
Set %NextLootWait 20
;===Script===
Main:
;OnhotKey F4
OnhotKey CAPSLOCK
{
gosub FindCorpse
}
goto Main
sub FindCorpse
finditem %CorpseID G_2
if #findkind = -1
return
set %Corpse #findid
ignoreitem %Corpse 1
gosub LootCorpse
return
sub LootCorpse
set #lobjectid %Corpse
event macro 17
wait %OpenCorpseWait
; contpos 413 707
; gosub FindLoot
for %i 1 5
{
SearchLoop:
finditem %LootList . %i C_ , %Corpse
if #findkind <> -1
{
set %Loot #findid
set %Quantita #FINDSTACK
exevent drag %Loot %Quantita
wait 1
exevent dropc %LootBag
wait %NextLootWait
goto SearchLoop
}
}
return
sub OpenBackPack
OpenBackPackLoop:
event macro 8 7
gosub waitForVar ContSize = 230_204 2
if ! #result && #CharGhost = NO
{
goto OpenBackPackLoop
}
set %BackPackID #contID
contpos 645 620
return
sub waitForVar
set %timeout #time + 5
if %0 > 3
set %timeout #time + %4
waitForVarLoop:
if # . %1 %2 %3
return #true
if #time >= %timeout
return #false
goto waitForVarLoop
return
devi avere una bag nel backpack e per usarlo premi capslock, č settato che raccoglie soldi e monili
cos'č CAPSLOCK ????
Commenta