sub color()
UO.Print( "Врубаим Цвета:)" )
DIM color[22] 
var a 
color[1] = 0x0003 
color[2] = 0x0008 
color[3] = 0x000d
color[4] = 0x0012 
color[5] = 0x0017
color[6] = 0x001c
color[7] = 0x0021
color[8] = 0x0026
color[9] = 0x002b 
color[10] = 0x0030 
color[11] = 0x0035 
color[12] = 0x003a
color[13] = 0x003f
color[14] = 0x0044
color[15] = 0x0049
color[16] = 0x004e
color[17] = 0x0053
color[18] = 0x0058
color[19] = 0x005d
color[20] = 0x0062
color[21] = 0x0386
color[22] = 0x03e4

while UO.Life>0 
for a=1 to 22 
start: 
wait(10) 
if UO.InJournal(UO.GetName()+":") then 
UO.Exec("fontcolor "+str(color[a])) 
UO.DeleteJournal() 
wait(10) 
else 
goto start 
end if 
next 
wait(5) 
wend 
end sub