Писать цветными буквами
Posted: 2006-08-12 15:44:56
Видел у одног очела у него каждый раз разными цветами пишет.Чет написал потом пишет уже другой цвет.Подскажите че за скрипт ?
Просто обычный текст..просто каждый раз разные цвета букв.Skazi69 wrote:а что писал ?
Писал тошто купит логи...и каждый раз цветные буквы разног цввета.Skazi69 wrote:что он писал ????? это вопрос
Вот мой скриптnewman wrote:Писал тошто купит логи...и каждый раз цветные буквы разног цввета.Skazi69 wrote:что он писал ????? это вопрос
Code: Select all
sub msg()
uo.fontcolor (0x0000)
uo.msg('|||||||||||| ГИЛЬДИЯ ||||||||||||')
uo.fontcolor (0x005d)
uo.msg('|||||||||| MILITARY COMMAND ||||||||||')
uo.fontcolor (0x003a)
uo.msg('|||||||||||| ЛУЧШАЯ |||||||||||||')
end sub
Code: Select all
sub speechcolor()
var i,n
Dim A[12]
A[0] = 0x0003 ;Blu
A[1] = 0x0026 ;Red
A[2] = 0x0035 ;Yellow
A[3] = 0x000D ;Purple
A[4] = 0x00ad ;Green
A[5] = 0x0120 ;Brigh Blue
A[6] = 0x03c6 ;Bright Grey
A[7] = 0x0331 ;Dark Grey
A[8] = 0x002B ;Orange
A[9] = 0x0005 ;Bright Blue
A[10] = 0x0021 ;Bright Red
A[11] = 0x01a2 ;Purple
A[12] = 0x028d ;Dark Yellow
i = 750
Restart:
FOR n=0 TO 12
Uo.fontcolor(A[n])
Wait(i)
NEXT
goto Restart