[script]

[franc0103]

Ciao a tutti.. qualcuno di voi sarebbe cosi gentile da dirmi come si fa x settare una macro in modo ke vengano presi in automatico solo i soldi da un corpo, oppure uno script ke lo faccia x me... o cmq conoscete qualcosa disimile? grazie

[tnsj69sod]

ci sn vari script che lootano i corpi nn so se nella sezione script qui sopra o su easyuo.com (ora nn ho tempo di guardare). te ne precuri uno e lo setti in modo che looti sl i soldi.

se lo fai da away e' un reato

[franc0103]

su easyuo li ho visti ma nn riesco a setttarli.. qualcunoke magari ne ha uno gia pronto=?

[dio_brando89]

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

[gordoso]

devi avere una bag nel backpack e per usarlo premi capslock, è settato che raccoglie soldi e monili

cosè capslock sto cercando di usarlo ma nn parte

[BlackBraveKnight]

Il lucchetto per scrivere tutto maiuscolo, sta sulla tastiera.

[fnurov]

set %corpse YFM
set %bag CKF
set %lastcont #contid
:loop
finditem %corpse G_2
set %foundcorpse #findid
set #LOBJECTID %foundcorpse
event macro 17
wait 15
finditem POF  C_ , %foundcorpse
if #FINDCNT > 0
   {
   Exevent Drag #findid #findstack
   Exevent Dropc #backpackid
   wait 10
   }
finditem POF  C_ , %foundcorpse
if #FINDCNT > 0
   {
   Exevent Drag #findid #findstack
   Exevent Dropc #backpackid
   wait 10
   }
ignoreItem %foundcorpse
if #weight > #maxweight
   {
   finditem %bag C_ , #backpackid
   if #FINDCNT > 0
      {
       set %foundbag #findid
       finditem POF C_ , #backpackid
       if #FINDCNT > 0
          {
           set #LOBJECTID %foundbag
           event macro 17
           wait 10
           set #LTARGETID #findid
           event macro 22 0
          }
       }
   }
goto loop