annuncio

Comprimi
Ancora nessun annuncio.

[script]

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

  • [script]

    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 ????

  • #2
    il tasto per scrivere tutto maiuscolo, tra lo shift di sinistra e il tab

    Commenta


    • #3
      Avevamo gią risposto altrove...
      "Garmr latra feroce dinanzi Gnipahelli, le corde si spezzeranno ed il cane si libererą.
      Ella conosce molte arti, lą lontano scorge il Crepuscolo degli Dči, frammenti della fine.
      I fratelli si scontreranno e si uccideranno, i cugini spezzeranno i legami di parentela, il mondo č crudo, il tradimento č grande.
      Tempo d’asce, tempo di spade, gli scudi s'infrangeranno, tempo di venti, tempo di lupi, prima che il mondo finisca nessun uomo risparmierą l'altro.
      I figli di Mķmir si agitano, il fato si compie al suono del potente Gjallarhorni.
      Heimdallr soffia con forza nel suo corno, Óšinn parla alla testa di Mķmir."

      Commenta

      Sto operando...
      X