Código:
; Macro by Alex (Ultima Alianza)
; Muestra información útil en la barra superior del UO.
; Para que cuente los reagentes que tenemos en bolsas es necesario tener abierta la bolsa.
; Para que actualice la información de manera más rápida hay disminuir el valor de %tempsRefresc
set %tempsRefresc 5
set %nomOriginal #CHARNAME
set %ultimEscanejat #jIndex
set %tempsVena 15
set %tempsPocio 18
set %vena 0
set %pocio 0
chooseskill Heal real
if #SKILL > 300
set %habilitatCurar 1
chooseskill Chiv real
if #SKILL > 300
set %habilitatCavalleria 1
chooseskill Mage real
if #SKILL > 300
set %habilitatMagia 1
repetir:
if #CHARGHOST = no
{
gosub vida
gosub incognit
gosub escanejarJournal #jIndex
gosub assistencia
gosub reagents
setuotitle %nomOriginal %incognit | [ , %barraVida , ] #HITS , / , #MAXHITS %percentVida , % | %assist | AR: #AR | %regs
}
else
{
set %pocio 0
set %vena 0
setuotitle %nomOriginal | MORT DEAD MUERTO MORTO TOT
}
wait %tempsRefresc
goto repetir
sub vida
{
set %hits #MAXHITS / 10
set %hits #HITS / %hits
set %noHits 10 - %hits
set %barraVida
set %percentVida #HITS * 100
set %percentVida %percentVida / #MAXHITS
for %i 0 %hits
{
if %i <> 0
set %barraVida %barraVida , #
}
for %i 0 %noHits
{
if %i <> 0
set %barraVida %barraVida , -
}
return
}
sub incognit
{
set %incognit
if %nomOriginal notIn #CHARNAME && #CHARNAME in Hombre || %nomOriginal notIn #CHARNAME && #CHARNAME in Mujer
set %incognit [Incognito]
return
}
sub reagents
{
set %regs
if %habilitatCavalleria = 1
{
findItem POF C_ , #BACKPACKID
if #FINDCNT > 0
set %regs %regs , #SPC , D: , #SPC , #FINDSTACK , #SPC , |
}
if %habilitatMagia = 1
{
set %ns 0
set %ss 0
set %sa 0
set %bm 0
set %bp 0
set %mr 0
set %gs 0
set %ga 0
findItem IUD_CKF C_ , #BACKPACKID
for %i 1 #FINDCNT
{
findItem IUD_CKF %i C_ , #BACKPACKID
set %bossa #FINDID
findItem WZF C_ , %bossa
if #FINDCNT > 0
set %ns %ns + #FINDSTACK
findItem RZF C_ , %bossa
if #FINDCNT > 0
set %ss %ss + #FINDSTACK
findItem SZF C_ , %bossa
if #FINDCNT > 0
set %sa %sa + #FINDSTACK
findItem JUF C_ , %bossa
if #FINDCNT > 0
set %bm %bm + #FINDSTACK
findItem KUF C_ , %bossa
if #FINDCNT > 0
set %bp %bp + #FINDSTACK
findItem MZF C_ , %bossa
if #FINDCNT > 0
set %mr %mr + #FINDSTACK
findItem JZF C_ , %bossa
if #FINDCNT > 0
set %gs %gs + #FINDSTACK
findItem KZF C_ , %bossa
if #FINDCNT > 0
set %ga %ga + #FINDSTACK
}
findItem WZF C_ , #BACKPACKID
if #FINDCNT > 0
set %ns %ns + #FINDSTACK
findItem RZF C_ , #BACKPACKID
if #FINDCNT > 0
set %ss %ss + #FINDSTACK
findItem SZF C_ , #BACKPACKID
if #FINDCNT > 0
set %sa %sa + #FINDSTACK
findItem JUF C_ , #BACKPACKID
if #FINDCNT > 0
set %bm %bm + #FINDSTACK
findItem KUF C_ , #BACKPACKID
if #FINDCNT > 0
set %bp %bp + #FINDSTACK
findItem MZF C_ , #BACKPACKID
if #FINDCNT > 0
set %mr %mr + #FINDSTACK
findItem JZF C_ , #BACKPACKID
if #FINDCNT > 0
set %gs %gs + #FINDSTACK
findItem KZF C_ , #BACKPACKID
if #FINDCNT > 0
set %ga %ga + #FINDSTACK
set %regs %regs , NS: , #SPC , %ns , #SPC
set %regs %regs , SS: , #SPC , %ss , #SPC
set %regs %regs , SA: , #SPC , %sa , #SPC
set %regs %regs , BM: , #SPC , %bm , #SPC
set %regs %regs , BP: , #SPC , %bp , #SPC
set %regs %regs , MR: , #SPC , %mr , #SPC
set %regs %regs , GS: , #SPC , %gs , #SPC
set %regs %regs , GA: , #SPC , %ga
}
return
}
sub assistencia
{
set %assist
if %habilitatCurar = 1
{
set %assist V: , #SPC
if %vena = 1
{
set %textVena %venaAplicada + %tempsVena
set %textVena %textVena - #SCNT
set %assist %assist , %textVena , #SPC
}
else {
set %assist %assist , - , #SPC
}
}
set %assist %assist , #SPC , P: , #SPC
if %pocio = 1
{
set %textPocio %pocioAplicada + %tempsPocio
set %textPocio %textPocio - #SCNT
set %assist %assist , %textPocio , #SPC
}
else
{
set %assist %assist , - , #SPC
}
return
}
sub escanejarJournal
{
for %i %ultimEscanejat %1
{
scanJournal %i
if #JOURNAL = Te_aplicas_las_vendas.
{
set %vena 1
set %venaAplicada #SCNT
}
if #JOURNAL = Ya_puedes_usar_las_vendas_de_nuevo!.
{
set %vena 0
}
if #JOURNAL = You_put_the_frascos_in_your_pack.
{
set %pocio 1
set %pocioAplicada #SCNT
}
if #JOURNAL = Ya_puedes_tomar_pociones_de_nuevo!.
set %pocio 0
}
set %ultimEscanejat %1 + 1
return
}
Citar
Iniciado por ToTeKiNg
