Приятный голубой шрифт.
Всё на русском языке.
Сообщение отсылаюцо не чаще чем 1 раз в минуту.
use uo;
use unicode;
program chat( who, text, wide_text, langcode )
var text1 := array {1057, 1086, 1086, 1073, 1097, 1077, 1085, 1080, 1103, 32, 1084, 1086, 1078, 1085, 1086, 32, 1086, 1090, 1089, 1099, 1083, 1072, 1090, 1100, 32, 1085, 1077, 32, 1095, 1072, 1097, 1077, 32, 1095, 1077, 1084, 32, 49, 32, 1089, 1086, 1086, 1073, 1097, 1077, 1085, 1080, 1077, 32, 1074, 32, 1084, 1080, 1085, 1091, 1090, 1091, 46};
var chats := GetObjProperty(who, "chat");
if(chats)
if(chats > ReadGameClock())
SendSysMessageUC(who, text1, "rus", 3, 88);
return 0;
else
SetObjProperty(who, "chat", ReadGameClock() + 60);
BroadcastUC( CAscZ(who.name + ": ") + wide_text, langcode, 3, 88);
return 1;
endif
else
SetObjProperty(who, "chat", ReadGameClock() + 60);
BroadcastUC( CAscZ(who.name + ": ") + wide_text, langcode, 3, 88);
return 1;
endif
endprogram