Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Всякие мелочные Скрипты, выкладывайте каму не жалко
GumanoiD
сообщение 25.12.2006, 10:50
Сообщение #1


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



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

Код
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
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 6.8.2007, 2:48
Сообщение #2


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



вот PKG мой на:
Шрин столб ( сворачивает зверя в шринку за 1500гп )
Шринка ( разворасивает зверя обратно )
Команда гма для засовывания любого зверя в шринку

Фразы руссифицированы )

Вам остоёться лиш закинуть это всё в pol/pkg/items/


Прикрепленные файлы
Прикрепленный файл  shrink.zip ( 6,8 килобайт ) Кол-во скачиваний: 723
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 10.8.2007, 15:35
Сообщение #3


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Каманда .invisble
есл вы не в инвизе ставит в инвиз
если в инвизе то выводит вас из него
удобней чем 2 команды на дефолте...

Код
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
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
[XZ]Blood
сообщение 18.8.2007, 15:44
Сообщение #4


**

Neophyte
Сообщений: 36
Регистрация: 6.3.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.388



Ну вот такой вот скриптик когдато на старом сервере написал мож каму пригодитсо ))) По сути просто модифицированый скрипт на ресалку )))

Код

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


--------------------
http://ultimaonline.hut2.ru --- УО ZH Таблицы
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 21.8.2007, 3:39
Сообщение #5


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Подобие чата
Видал подобный на одном шарде, там скрипты зх
вот от делать нечо решил накатать )
каму надо берите
Там настройки:
Приятный голубой шрифт.
Всё на русском языке.
Сообщение отсылаюцо не чаще чем 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
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 22.8.2007, 2:48
Сообщение #6


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Хоть и не скрипт, но всеравно полезная вещь
авторестартер
если сервер по каким либо причинам крашицо, то прога автоматом его запускает


Прикрепленные файлы
Прикрепленный файл  Polrestarter.zip ( 192 байт ) Кол-во скачиваний: 651
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
[XZ]Blood
сообщение 26.8.2007, 15:39
Сообщение #7


**

Neophyte
Сообщений: 36
Регистрация: 6.3.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.388



Цитата(GumanoiD @ 22.8.2007, 3:48) *

Хоть и не скрипт, но всеравно полезная вещь
авторестартер
если сервер по каким либо причинам крашицо, то прога автоматом его запускает

ну если пол установить как службу то он тоже будет сам рестартится =) Кстати тут есть один минус... при некоторых ошибках авто запуск клиента после краша может ненашутку побить БД ...


--------------------
http://ultimaonline.hut2.ru --- УО ZH Таблицы
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 17.9.2007, 22:54
Сообщение #8


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Mass color:
Массово красит вещи на земле, находящиеся на 15 клетках от себя.
Инструкция: .masscolor N
N - Цвет
затем тыкаем на тип предмета каторые хотим перекрасить
з.ы. на земле ищит только предметы таковаже типа и цвета

Код
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
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 11.10.2007, 17:59
Сообщение #9


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



......
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 2.6.2008, 5:30
Сообщение #10


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



..........
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
YouAreNext
сообщение 29.9.2008, 16:52
Сообщение #11


****

Apprentice
Сообщений: 126
Регистрация: 29.9.2008
Группа: Пользователи
Наличность: 0
Пользователь №: 11.146
Возраст: 23



люди... вы не могли бы дать компилятор нормальный ? =)) нигде найти немогу =)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
BELL_2k
сообщение 30.9.2008, 18:11
Сообщение #12


*

Registred
Сообщений: 9
Регистрация: 22.4.2008
Группа: Пользователи
Наличность: 0
Пользователь №: 10.709
Возраст: 26



Цитата(YouAreNext @ 29.9.2008, 17:52) *

люди... вы не могли бы дать компилятор нормальный ? =)) нигде найти немогу =)

эээээ....???????
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
YouAreNext
сообщение 1.10.2008, 6:24
Сообщение #13


****

Apprentice
Сообщений: 126
Регистрация: 29.9.2008
Группа: Пользователи
Наличность: 0
Пользователь №: 11.146
Возраст: 23



что эээээээээээээээ то ?(IMG:style_emoticons/default/smile.gif) компилятор есть ?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 1.10.2008, 21:57
Сообщение #14


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Цитата(YouAreNext @ 1.10.2008, 7:24) *

что эээээээээээээээ то ?(IMG:style_emoticons/default/smile.gif) компилятор есть ?

нормальный? он всего один, каторый идёт вместе полом.
его прост надо правильно настроить
http://gumanid.spnet.ru/other/pol/configfi...ml#ecompile.cfg
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
AMB
сообщение 16.10.2008, 1:58
Сообщение #15


**

Группа: Пользователи
Наличность: 0
Пользователь №: 11.204



(IMG:style_emoticons/default/smile.gif) спасибо пригодился , камень и исход чата ...
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Dev Fast
сообщение 19.12.2008, 15:41
Сообщение #16


***

Novice
Сообщений: 59
Регистрация: 9.8.2007
Группа: Пользователи
Наличность: 0
Из: Екатеринбург
Пользователь №: 10.021
Возраст: 21



Дайте скрипт креста , что-бы при тычке на него ресало (IMG:style_emoticons/default/smile.gif)


--------------------
d'n'b Mafia :)
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
GumanoiD
сообщение 21.12.2008, 8:26
Сообщение #17


****

Apprentice
Сообщений: 176
Регистрация: 6.5.2006
Группа: Пользователи
Наличность: 0
Пользователь №: 5.924



Цитата(Dev Fast @ 19.12.2008, 15:41) *

Дайте скрипт креста , что-бы при тычке на него ресало (IMG:style_emoticons/default/smile.gif)


сразу видно, не читал документацию...
советую прочитай хотябы по файлам конфигурации...
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
PolDev
сообщение 12.8.2012, 22:47
Сообщение #18


****

Группа: Пользователи
Наличность: 0
Пользователь №: 14.164
Возраст: 22



Игровой чат, за сообщение снимаются деньги с банка, задержка на сообщение 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


--------------------
Оказываю услуги по скриптингу Pol серверов.
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Rom1o
сообщение 28.7.2019, 11:28
Сообщение #19


****

Группа: Пользователи
Наличность: 0
Из: город Грехов
Пользователь №: 11.152
Возраст: 33



Цитата
Blood' date='18.8.2007, 15:44' post='98395']
Ну вот такой вот скриптик когдато на старом сервере написал мож каму пригодитсо ))) По сути просто модифицированый скрипт на ресалку )))

Код

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





У меня вопрос ко всем ! на 0.95 дистро use os; - sleep использует. Без етого даже компилятор читать не будет не говоря уже дальше за сам код. Тоесть етот скрипт на 0.95 дистро не запутсить в оборот.


Другие дистро более высокой версии использует уже такие скрипты ? Кто то пробывал ето скрипт хоть на каком-то дистро ?




--------------------
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 19.3.2024, 7:48
Designed by Nickostyle