annuncio

Comprimi
Ancora nessun annuncio.

[EasyUO]Looter

Comprimi
X
 
  • Filtro
  • Ora
  • Visualizza
Elimina tutto
nuovi messaggi

  • [EasyUO]Looter

    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 )
    codice:
    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
    Alzò il capo e mi fissò. E proseguì: “ Ho concluso che ho sopravvalutato l’intelligenza delle masse. Nei dialoghi che tante volte ho avuto con le moltitudini, avevo la convinzione che le grida che seguivano le mie domande fossero segno di coscienza, di comprensione, di evoluzione. Invece, era isterismo collettivo...”.
    ----
    E ognuno costruisce il suo sistema
    Di piccoli rancori irrazionali,
    Di cosmi personali
    Scordando che poi infine tutti avremo
    Due metri di terreno

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

    codice:
    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
    Take care of yourself.

    Commenta


    • #3
      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

      codice:
      ..........
      
      ;===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

      codice:
      ;===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.


      ...OkOk...

      ...sono un lamer, spammer, cheater, bug user, chat fragger, flammer, spawn camper, camper...

      ...Ma comunque sono un pro...

      MSN
      balsini88@hotmail.it

      Commenta


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

        L’Arcangelo viene rappresentato, nell’iconografia orientale ed occidentale, come un combattente con la spada in mano, che nella prima immensa guerra apocalittica, svoltasi prima della venuta dell'uomo sulla terra, affronta e sconfigge Lucifero ribellatosi a Dio, facendolo sprofondare nelle tenebre..
        Un angelo nero domina gli arcangeli

        Commenta

        Sto operando...
        X