Классные макросы на изменение цвета шрифта

Lexus

Дата: Среда, 18.06.2008, 13:14 | Сообщение # 1

Начинающий

Группа: Пользователи

Сообщений: 1

Репутация: 0

Статус: Offline

Ну кароче вот так:

"black" ЧЕРНЫЙ
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm("\124c00000000\124Hitem: 19:0:0:0:0:0:0:0\124h"..msg.."\124h\124r", type, lang, chan); end;

"Gray" СЕРЫЙ
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm("\124caa88aa88\124Hitem: 19:0:0:0:0:0:0:0\124h"..msg.."\124h\124r", type, lang, chan); end;

"Light Green" СВЕТЛО-ЗЕЛЕНЫЙ
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm("\124cff00ff00\124Hitem: 19:0:0:0:0:0:0:0\124h"..msg.."\124h\124r", type, lang, chan); end;

"pink" РОЗОВЫЙ
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm("\124c00FF23CC\124Hitem: 19:0:0:0:0:0:0:0\124h"..msg.."\124h\124r", type, lang, chan); end;

КРАСНЫЙ (не советую :))
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm("\124cFFF00000\124Hitem: 19:0:0:0:0:0:0:0\124h"..msg.."\124h\124r", type, lang, chan); end;

убрать цвет:
/run if (not scm) then scm = SendChatMessage; end; function SendChatMessage(msg, type, lang, chan) scm(msg, type, lang, chan); end;

Всё это делаем как макросы

Жду ваши комментарии smile

Добавлено (18.06.2008, 13:14)
---------------------------------------------
Ну и де комменты cool

Добавлено (18.06.2008, 13:14)
---------------------------------------------
angry angry angry

Сообщение отредактировал Lexus - Понедельник, 02.06.2008, 16:04