[EasyUO]Looter

[CristalBall]

ok avevo promesso ke se avessero aperto una sezione script io avrei postato gli script piu importanti

unica cosa dovete avere una bag nel vostro back pack

questo e' la modifica di uno script trovato sul forum di easyuo
ma riadattato per la versione 1.5 con le nuove feature ke lo rendono piu veloce

per attivarlo basta premere caps lock e lui cerca il corpo nelle vicinanze
se qualcuno fa il furbo basta commentare questa riga
OnhotKey CAPSLOCK
modificandola in
;OnhotKey CAPSLOCK
e lo script APRE IN AUTOMATICO i cadaveri nelle vicinanze
ha una lista prioritaria
bah provatelo
(essendo solo una modifica la mia nn mi prendo ovviamente i meriti )

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
Set %LootList3 %Axes
Set %LootList4 %Blades
Set %LootList5 %Bow



;===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

[froncy]

secondo me sarebbe interessante inserire in questi casi una routine che controlli la versione di easyuo, qualcosa del genere:

gosub checkeuox
if #result = #true
	...
else
	...

...
sub checkeuox
	str Left #euover 3
	if 1_5 in #strres
		return #true
	if 1_5 notin #strres
		return #false

in modo da rendere lo script funzionante anche con le altre versioni (senza usare exevent) finchè non è completamente stabile la 1.5xxx

[galeazzi]

NO, questo autolooter deve essere rivisto, infatti non è pronto all'uso...

per farlo partire a modo bisogna fare qualche piccola modifica molto semplice, ma che non è possibile fare se non si conosce un monimo EUO.

Allora ad esempio, è simpatico il giochino per i da 1 fino a 5 , ma visto che le variabili sono sbagliate a causa della traduzione, il looter non prende alcuni oggetti, quindi bisogna cambiare il punto

..........

;===Loot Lists===
;set %LootList1 %Gioielli
;Set %LootList2 %Gold
;Set %LootList3 %Reagenti
;Set %LootList4 %ScrollNecro , %Reagenti
;Set %LootList5 %Ossa

[COLOR="Red"]Set %LootList1 %Gold
Set %LootList2 %Gioielli
Set %LootList3 %Axes
Set %LootList4 %Blades
Set %LootList5 %Bow[/COLOR]



;===WaitTimes===
;Set %OpenCorpseWait 11
Set %OpenCorpseWait 3
set %BeforeStackWait 8
;Set %NextLootWait 6
Set %NextLootWait 20

.........

con un semplice

;===Loot Lists===
;set %LootList1 %Gioielli
;Set %LootList2 %Gold
;Set %LootList3 %Reagenti
;Set %LootList4 %ScrollNecro , %Reagenti
;Set %LootList5 %Ossa

[COLOR="Red"]Set %LootList1 %Everything[/COLOR]

;===WaitTimes===
;Set %OpenCorpseWait 11
Set %OpenCorpseWait 3
set %BeforeStackWait 8
;Set %NextLootWait 6
Set %NextLootWait 20

a questo punto però il "da 1 a 5" non serve più e il programmino loota TUTTO il contenuto del cadavere. Vedrò di fare, se ci riesco, un programmino che permette di scegliere cosa lootare e cosa lasciar stare.

[GianlucaFarroni]

Raga potreste postarne uno modificato pls??
che funzioni che l'ultima versione io sono nullo in script ^^