Macro que te guardia el diario de tu personaje en un documento de texto en el ordenador. Solo tienes que tener el diario abierto en tu pj y darle a Save en el menú de easy UO que se te abre al iniciar la macro. Puedes seleccionar las casillas que están en el menú si se quiere ignorar Spam y hechizos .

; Autor: Zokorast

Inicio:
gosub menuBody
set %jEntry #jIndex
set %listIndex 0
mainLoop:
if ( %jEntry < #jIndex || %jEntry = N/A )
{
set %scanLine #jIndex - %jEntry
scanJournal %scanLine
set %journal #journal
menu get filter_spam
set %filterSpam #menuRes
menu get filter_spells
set %filterSpells #menuRes
if %filterSpells = #true
{
str pos %journal : 1
str del %journal 1 #strRes
set %spellCheckStr #strRes
}
if ( %journal <> %lastEntry || %filterSpam = #false ) && ( %spellCheckStr notIn %wordsOfPower || %filterSpells = #false )
{
set %lastEntry %journal
str count %journal _
while #strRes > 0
{
str pos %journal _
set %underscorePos #strRes
str del %journal #strRes 1
str ins #strRes #spc %underscorePos
set %journal #strRes
str count %journal _
}
set %listIndex %listIndex + 1
gosub time
set %line_ . %listIndex %time , #spc , %journal
menu list add journal %line_ . %listIndex
menu list select journal %listIndex
}
set %jEntry %jEntry + 1
}
if #menuButton <> NONE
{
gosub #menuButton
set #menuButton NONE
}
goto mainLoop

sub save
menu get path
set %file #menuRes
gosub time
set %listIndex %listIndex + 1
set %line_ . %listIndex %time , #spc , SAVING , #SPC , TO: , #SPC , %file
menu list add journal %line_ . %listIndex
menu list select journal %listIndex
set %jEntry %jEntry + 1
if %saveIndex = N/A
{
set %saveIndex 1
}
set %saveGroupIndex 1
set %groups ( %listIndex - %saveIdex ) / 20
event sysMessage %groups
saveLoop:
set %params %listIndex - %saveIndex
if %params > 20
{
set %params %saveIndex + 18
set %lastParam %saveIndex + 19
set %saveGroup . %saveGroupIndex
for %save_i %saveIndex %params
{
set %saveLine %line_ . %save_i
set %saveGroup . %saveGroupIndex %saveGroup . %saveGroupIndex , #SPC , %saveLine , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
}
set %saveLine %line_ . %lastParam
set %saveGroup . %saveGroupIndex %saveGroup . %saveGroupIndex , #SPC , %saveLine , #SPC , >> , #SPC , %file
set %saveGroupIndex %saveGroupIndex + 1
set %saveIndex %params + 1
goto saveLoop
}
else
{
set %params %params - 1
set %params %saveIndex + %params
set %lastParam %saveIndex + %params + 1
set %saveGroup . %saveGroupIndex
for %save_i %saveIndex %params
{
set %saveLine %line_ . %save_i
set %saveGroup . %saveGroupIndex %saveGroup . %saveGroupIndex , #SPC , %saveLine , #SPC , >> , #SPC , %file , #SPC , && , #SPC , echo
}
set %saveLine %line_ . %lastParam
set %saveGroup . %saveGroupIndex %saveGroup . %saveGroupIndex , #SPC , %saveLine , #SPC , >> , #SPC , %file
}
for %save_i 1 %saveGroupIndex
{
execute cmd.exe /c echo %saveGroup . %save_i
}
gosub time
set %listIndex %listIndex + 1
set %line_ . %listIndex %time , #spc , SAVING , #SPC , DONE
menu list add journal %line_ . %listIndex
menu list select journal %listIndex
set %jEntry %jEntry + 1
return

sub left
if %width > 300
{
gosub menuBody -100 0
}
gosub rewriteList
return

sub right
if %width < 1200
{
gosub menuBody 100 0
}
gosub rewriteList
return

sub rewriteList
menu list clear journal
for %restoreList_i 1 %listIndex
{
menu list add journal %line_ . %restoreList_i
}
menu list select journal %listIndex
return

sub closed
stop
return

sub time
set %time #time
str ins %time : 5
str ins #strRes : 3
set %time [ , #strRes , ]
return

sub menuBody
menu Clear
menu Font Name Comic Sans MS
menu Window title Zoko Journal
menu Window color black
menu Font Name Verdana
menu Font color green
menu Font bgcolor black
menu Font size 8
if %width = N/A
{
set %width 500
}
if %height = N/A
{
set %height 120
}
set %yCoordinate 5
if %0 > 0
{
set %width %width + %1
}
menu list create journal 5 %yCoordinate %width %height
menu Font Name Comic Sans MS
set %yCoordinate %yCoordinate + %height
set %yCoordinate %yCoordinate + 5
if %filterSpam = N/A || %filterSpells = N/A
{
set %filterSpam #false
set %filterSpells #false
}
menu check filter_spam 5 %yCoordinate 100 20 %filterSpam Filter spam?
menu check filter_spells 100 %yCoordinate 100 20 %filterSpells Filter spells?
set %yCoordinate %yCoordinate + 20
menu button save 5 %yCoordinate 100 20 SAVE
menu edit path 110 %yCoordinate 150 C:\journal.txt
menu button left 265 %yCoordinate 20 20 <
menu button right 287 %yCoordinate 20 20 >
set %yCoordinate %yCoordinate + 25
set %windowSize %width + 10
menu Window Size %windowSize %yCoordinate
menu Show
set #menuButton NONE
return