Писать цветными буквами

newman · Post by **newman** » 2006-08-12 15:44:56

Видел у одног очела у него каждый раз разными цветами пишет.Чет написал потом пишет уже другой цвет.Подскажите че за скрипт ?

Skazi69 · Post by **Skazi69** » 2006-08-12 17:59:52

а что писал ?

newman · Post by **newman** » 2006-08-12 18:04:34

Skazi69 wrote:а что писал ?

Просто обычный текст..просто каждый раз разные цвета букв.

Skazi69 · Post by **Skazi69** » 2006-08-12 18:23:03

что он писал ????? это вопрос

newman · Post by **newman** » 2006-08-12 18:54:09

Skazi69 wrote:что он писал ????? это вопрос

Писал тошто купит логи...и каждый раз цветные буквы разног цввета.

Skazi69 · Post by **Skazi69** » 2006-08-12 19:04:01

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

newman · Post by **newman** » 2006-08-12 19:27:28

Ну у тя это одно сообщение.А он писал как все общаются в уо.И каждый раз новые цвета пс..

ДРВ · Post by **ДРВ** » 2006-08-12 19:32:35

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

newman · Post by **newman** » 2006-08-12 19:36:46

ВО спасибо!!