[EASYUO] Personalizzare magie.

[Jekko]

Dunque stavo cercando esattamente uno script del genere in questo thread, grazie a YoungZ per aver scritto la base dello script, io ho solamente trascritto tutte le formule delle magie, in ordine come nel libro al momento ci sono solo tutte le magie da mago, necro e del paladino. Dunque in parole povere lo script serve a inserire un frase personale quando si casta una magia, senza dover fare una macro e impostare mille tasti, io ad esempio che uso spesso magie a mano. Allora, grazie a fnurov non c'è bisogno di cambiare il nome del pg nello script, e si adatta a qualsiasi pg in uso. Inserite la frase da dire per ogni magia al posto del punto esclamativo: msg ! $ , se non volete dire nulla su quella magia lasciare così com'è o per una migliore resa, cancellare la stringa della magia che non si intende usare. Grazie a fengyr per aver sistemato il problema del charname.

ecco qui:

;====================================================================
; INFORMAZIONI:
; Magie e formule trascritte da: Jack
; Base script: YoungZ, Fnurov, Fengyr
; www.uodreams.com

; A COSA SERVE:
; Con questo script è possibile inserire un messaggio
; personalizzato ad ogni magia, senza dover fare mille
; macro e bindare mille tasti, ma semplicemente
; castando a mano.

; COME SI USA:
; Bisogna solamente sostituire il punto esclamativo "!"
; accanto a "msg" con la frase da dire
; se non volete dire nulla lasciare così com'è o
; per una migliore resa, cancellare la stringa della magia
; che non si intende usare.
;====================================================================

gosub riformatta_nome
sub riformatta_nome
str len %charname
set %strlen #strres
set %charname %charname
for %i 1 %strlen
{
str left %charname %i
if #spc in #strres
    {
    str del %charname %i 1
    set %charname #strres
    str ins %charname _ %i
    set %charname #strres
    }
}

;====================================================================
; MAGERY
;====================================================================

scanjournal 1
if %charname , :_Uus_Jux in #journal ;Clumsy
   msg ! $
if %charname , :_In_Mani_Ylem in #journal ;Create Food
   msg ! $
if %charname , :_Rel_Wis in #journal ;Feeblemind
   msg ! $
if %charname , :_In_Mani in #journal ;Heal
   msg ! $
if %charname , :_In_Por_Ylem in #journal ;Magic Arrow
   msg ! $
if %charname , :_In_Lor in #journal ;Night Sight
   msg ! $
if %charname , :_Flam_Sanct in #journal ;Reactive Armor
   msg ! $
if %charname , :_Des_Mani in #journal ;Weaken
   msg ! $
if %charname , :_Ex_Uus in #journal ;Agility
   msg ! $
if %charname , :_Uus_Wis in #journal ;Cunning
   msg ! $
if %charname , :_An_Nox in #journal ;Cure
   msg ! $
if %charname , :_An_Mani in #journal ;Harm
   msg ! $
if %charname , :_In_Jux in #journal ;Magic Trap
   msg ! $
if %charname , :_An_Jux in #journal ;Magic Untrap
   msg ! $
if %charname , :_Uus_Sanct in #journal ;Protection
   msg ! $
if %charname , :_Uus_Mani in #journal ;Strength
   msg ! $
if %charname , :_Rel_Sanct in #journal ;Bless
   msg ! $
if %charname , :_Vas_Flam in #journal ;Fireball
   msg ! $
if %charname , :_An_Por in #journal ;Magic Lock
   msg ! $
if %charname , :_In_Nox in #journal ;Poison
   msg ! $
if %charname , :_Ort_Por_Ylem in #journal ;Telekissen
   msg ! $
if %charname , :_Rel_Por in #journal ;Teleport
   msg ! $
if %charname , :_Ex_Por in #journal ;Unlock
   msg ! $
if %charname , :_In_Sanct_Ylem in #journal ;Wall of Stone
   msg ! $
if %charname , :_Vas_An_Nox in #journal ;Arch Cure
   msg ! $
if %charname , :_Vas_Uus_Sanct in #journal ;Arch Protection
   msg ! $
if %charname , :_Des_Sanct in #journal ;Curse
   msg ! $
if %charname , :_In_Flam_Grav in #journal ;Fire Field
   msg ! $
if %charname , :_In_Vas_Mani in #journal ;Greater Heal
   msg ! $
if %charname , :_Por_Ort_Grav in #journal ;Lightning
   msg ! $
if %charname , :_Ort_Rel in #journal ;Mana Drain
   msg ! $
if %charname , :_Kal_Ort_Por in #journal ;Recall
   msg ! $
if %charname , :_In_Jux_Hur in #journal ;Blade Spirits
   msg ! $
if %charname , :_An_Grav in #journal ;Dispel Field
   msg ! $
if %charname , :_Kal_In_Ex in #journal ;Incognito
   msg ! $
if %charname , :_In_Jux_Sanct in #journal ;Magic Reflection
   msg ! $
if %charname , :_Por_Corp_Wis in #journal ;Mind Blast
   msg ! $
if %charname , :_An_Ex_Por in #journal ;Paralyze
   msg ! $
if %charname , :_In_Nox_Grav in #journal ;Poison Field
   msg ! $
if %charname , :_Kal_Xen in #journal ;Summon Creature
   msg ! $
if %charname , :_An_Ort in #journal ;Dispel
   msg ! $
if %charname , :_Corp_Por in #journal ;Energy Bolt
   msg ! $
if %charname , :_Vas_Ort_Flam in #journal ;Explosion
   msg ! $
if %charname , :_An_Lor_Xen in #journal ;Invisibility
   msg ! $
if %charname , :_Kal_Por_Ylem in #journal ;Mark
   msg ! $
if %charname , :_Vas_Des_Sanct in #journal ;Mass Cursel
   msg ! $
if %charname , :_In_Ex_Grav in #journal ;Paralyze Field
   msg ! $
if %charname , :_Wis_Quas in #journal ;Reveal
   msg ! $
if %charname , :_Vas_Ort_Grav in #journal ;Chain Lightning
   msg ! $
if %charname , :_In_Sanct_Grav in #journal ;Energy Field
   msg ! $
if %charname , :_Kal_Vas_Flam in #journal ;Flamestrike
   msg ! $
if %charname , :_Vas_Rel_Por in #journal ;Gate Travel
   msg ! $
if %charname , :_Ort_Sanct in #journal ;Mana Vampire
   msg ! $
if %charname , :_Vas_An_Ort in #journal ;Mass Dispel
   msg ! $
if %charname , :_Flam_Kal_Des_Ylem in #journal ;Meteor Swarm
   msg ! $
if %charname , :_Vas_Ylem_Rel in #journal ;Polymorph
   msg ! $
if %charname , :_In_Vas_Por in #journal ;Earthquake
   msg ! $
if %charname , :_Vas_Corp_Por in #journal ;Energy Vortex
   msg ! $
if %charname , :_An_Corp in #journal ;Resurrection
   msg ! $
if %charname , :_Kal_Vas_Xen_Hur in #journal ;Air Elemental
   msg ! $
if %charname , :_Kal_Vas_Xen_Corp in #journal ;Summon Daemon
   msg ! $
if %charname , :_Kal_Vas_Xen_Ylem in #journal ;Earth Elemental
   msg ! $
if %charname , :_Kal_Vas_Xen_Flam in #journal ;Fire Elemental
   msg ! $
if %charname , :_Kal_Vas_Xen_An_Flam in #journal ;Water Elemental
   msg ! $
..
target

;====================================================================
; NECROMANCY
;====================================================================

if %charname , :_Uus_Corp in #journal ;Animate Dead
   msg ! $
if %charname , :_In_Jux_Mani_Xen in #journal ;Blood Oath
   msg ! $
if %charname , :_In_Aglo_Corp_Ylem in #journal ;Corpse Skin
   msg ! $
if %charname , :_An_Snact_Gra_Char in #journal ;Curse Weapon
   msg ! $
if %charname , :_Pas_Tym_An_Sanct in #journal ;Evil Omen
   msg ! $
if %charname , :_Rel_Xen_Vas_Bal in #journal ;Horrofic Beast
   msg ! $
if %charname , :_Rel_Xen_Corp_Ort in #journal ;Lich Form
   msg ! $
if %charname , :_Wis_An_Ben in #journal ;Mind Rot
   msg ! $
if %charname , :_In_Sar in #journal ;Pain Spike
   msg ! $
if %charname , :_In_Vas_Nox in #journal ;Poison Strike
   msg ! $
if %charname , :_In_Bal_Nox in #journal ;Strangle
   msg ! $
if %charname , :_Ral_Xen_Bal in #journal ;Summon Familiar
   msg ! $
if %charname , :_Rel_Xen_An_Sanct in #journal ;Vampiric Embrace
   msg ! $
if %charname , :_Ral_Xen_Bal_Beh in #journal ;Vengeful Spirit
   msg ! $
if %charname , :_Ral_Vas_An_Flam in #journal ;Whiter
   msg ! $
if %charname , :_Rel_Xen_Um in #journal ;Wraith Form
   msg ! $
if %charname , :_Ort_Corp_Grav in #journal ;Exorcism
   msg ! $
..
target

;====================================================================
; CHIVARLY
;====================================================================

if %charname , :_Expor_Flamus in #journal ;Cleanse by Fire
   msg ! $
if %charname , :_Obsu_Vulni in #journal ;Close Wounds
   msg ! $
if %charname , :_Consecrus_Arma in #journal ;Consecrate Weapon
   msg ! $
if %charname , :_Dispiro_Malas in #journal ;Dispel Evil
   msg ! $
if %charname , :_Divinum_Furis in #journal ;Divine Fury
   msg ! $
if %charname , :_Forul_Solum in #journal ;Enemy of Once
   msg ! $
if %charname , :_Augus_Luminos in #journal ;Holy Light
   msg ! $
if %charname , :_Dium_Prostra in #journal ;Noble Sacrifice
   msg ! $
if %charname , :_Extermo_Vomica in #journal ;Remove Curse
   msg ! $
if %charname , :_Sanctum_Viatas in #journal ;Sacred Journey
   msg ! $
..
target

Per problemi o migliorie, postate pure.

[fnurov]

if #charname , :_Uus_Jux in #journal ;Clumsy

[Jekko]

if #charname , :_Uus_Jux in #journal ;Clumsy

Grande, ti amo ho aggiornato.

[khios]

Aggiungendo alcune righe sarebbe possibile farlo anche per le magie Necro e di Chivalry vero?

[Jekko]

Aggiungendo alcune righe sarebbe possibile farlo anche per le magie Necro e di Chivalry vero?

Certo, appena posso trascrivo anche quelle

EDIT: ho aggiunto le magie Necro e Chivarly

[fengyr]

ho 2 appunti;
per i pg con spazi nel nome gli spazi non vengono riconosciuti dall'if.
esempio:

il pg si chiama Paolo Bitta e casta consecrus arma

nel journal risulta:
Paolo_Bitta:_Consecrus_arma

l'if cerca:
Paolo Bitta:_Consecrus_arma

risultato lo script non funziona ;)

lo script fa un check per tutte le spell, è vero in pratica tutte sono castabili ma è poco logico controllare le spell che hanno 0% di riuscita e inoltre rallenta lo script.

[Jekko]

ho 2 appunti;
per i pg con spazi nel nome gli spazi non vengono riconosciuti dall'if.
esempio:
*
risultato lo script non funziona

Si si, fnurov, se vedi sopra ha cambiato una stringa, quindi prende il nome in automatico del pg in uso e non dovrebbero esserci problemi

lo script fa un check per tutte le spell, è vero in pratica tutte sono castabili ma è poco logico controllare le spell che hanno 0% di riuscita e inoltre rallenta lo script.

cioè? essondoci troppe formule scritte nello script, per leggerle tutte e prendere quella giusta rallenta? non ho mica capito, ho fatto delle prove cancellando le formule delle magie che non usavo, e in effetti sembra funzionare meglio ovvero: a volte non mi usciva la frase ora invece va un pò meglio... ho aggiunto questa info.

[fengyr]

forse non mi sono spiegato bene, lo script non funziona se ci sono spazi nel nome perchè #charname non riconosce gli spazi e fa fallire la lettura nel journal del tuo script.

per correggere metti questo all'inizio dello script:

gosub riformatta_nome
sub riformatta_nome
str len #charname
set %strlen #strres
set %charname #charname
for %i 1 %strlen
{
str left %charname %i
if #spc in #strres
    {
    str del %charname %i 1
    set %charname #strres
    str ins %charname _ %i
    set %charname #strres
    }
}

e sostituisci tutti i #charname con %charname

[pstexano]

set #lpc 200 (anche di più volendo, ma non esagerare) a inizio script velocizza ancora la lettura

[gyorn]

a me non funziona :S