Приятный голубой шрифт.
Всё на русском языке.
Сообщение отсылаюцо не чаще чем 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