Всякие мелочные Скрипты, выкладывайте каму не жалко Опции

[GumanoiD]

Вот например плитка она не пропускает людей на райдах и пишет "Вход только для пеших"
Полезно когда не хочеш чтобы к аренам пробегали на лошадях
Координаты свои ток впишите

Код

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

[PolDev]

Игровой чат, за сообщение снимаются деньги с банка, задержка на сообщение 15 секунд.

Код

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