Версия для печати темы

use uo;
use os;
use unicode;

program nohorseU(who)
  var mount := GetEquipmentByLayer(who, 25);
if(mount)
MoveCharacterToLocation( who, 5710, 1195, 0 );
var textU := array{1042, 1093, 1086, 1076, 32, 1090, 1086, 1083, 1100, 1082, 1086, 32, 1076, 1083, 1103, 32, 1087, 1077, 1096, 1080, 1093};
SendSysMessageUC(who, textU", "RUS", font:=3, color:=910);
endif
endprogram

use uo;
include "include/attributes";
program invisible(who, txt)
if(who.concealed == 0)
PlayStationaryEffect(who.x, who.y, who.z, FX_SMOKE, 7, loop := 10 );
txt := CInt(txt);
if(!txt)
txt := 1;
endif
if(txt > who.cmdlevel)
txt := who.cmdlevel;
endif
who.concealed := txt;
else
who.concealed := 0;
if(who.cmdlevel >= 3)
PlayObjectCenteredEffect(who, 0x3709, 0x0a, 0x1e );
PlaySoundEffect(who,0xf8);
endif
endif
endprogram

use uo;


include "include/res";


program pacifist(who)

If (who.dead)
SendSysmessage(who, " Resurection Through 10 seconds.");
    ResurrectMobile( who );
    who.hidden := 1;
    who.frozen := 1;
    sleep(5);
SendSysmessage(who, " Resurection Through 5 seconds.");
    sleep(5);
    who.hidden := 0;
    who.frozen := 0;
SendSysmessage(who, "Live again by the Virtues!");

else
   SendSysmessage(who, "Your body begins to feel warm.");

endif

endprogram

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

use uo;
use unicode;

program masscolor(who, val)
var textr := array {1059, 1082, 1072, 1078, 1080, 1090, 1077, 32, 1090, 1080, 1087, 32, 1074, 1077, 1097, 1077, 1081, 32, 1082, 1072, 1090, 1086, 1088, 1099, 1077, 32, 1093, 1086, 1090, 1080, 1090, 1077, 32, 1087, 1086, 1082, 1088, 1072, 1089, 1080, 1090, 1100, 32, 1074, 32, 1088, 1072, 1076, 1080, 1091, 1089, 1077, 32, 49, 53, 32, 1082, 1083, 1077, 1090, 1086, 1082, 46};
sendsysmessageuc(who, textr);
var itemc := target(who);
foreach item in ListItemsNearLocationOfType(who.x, who.y, who.z, 15, itemc.objtype)
if(item.color == itemc.color)
item.color := CInt(val);
endif
endforeach
endprogram

use os;
use uo; 
use unicode; 
include "include/bank"; //путь к инклюде с банковскими функциями.
program textcommand(who, text, uc_text)
var last_time := GetObjProperty(who,"_last_message_time");
if((polcore().systime - last_time) < 15)
SendSysMessageUC(who,CascZ ("Писать сообщение можно раз в 15 секунд..."),"RUS",3,33);
return 0;
endif
   if (!ConsumeSubstance(FindBankBox(who), 0xEED, 6000)) //снимает с банка деньги.
   SendSysMessageUC(who, CAscZ("В вашем банке недостаточно средств!"),"RUS",3, 33);
   return 1;
   endif      
SetObjProperty(who,"_last_message_time",polcore().systime);
    BroadCastUC(UC(who.name) + UC(": ") + uc_text, "RUS",0, 66 );
    Syslog( "account " + who.acctname + " Name " + who.name + " " + text );
endprogram
function UC(strs) 
  var result := array {}; 
  if (TypeOf(strs) != "Array") 
    result := CAscZ(CStr(strs)); 
  else 
    foreach str in (strs) 
      if (TypeOf(str) != "Array") 
        str := CAscZ(CStr(str)); 
      endif 
      result := result + str;      
      foreach elem in (str) 
        result.append(elem); 
      endforeach 
      // 
    endforeach 
  endif 
  return result; 
endfunction