|
|
|
Всякие мелочные Скрипты, выкладывайте каму не жалко |
|
|
GumanoiD |
25.12.2006, 10:50
|
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
|
|
|
|
GumanoiD |
10.8.2007, 15:35
|
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
|
|
|
|
GumanoiD |
21.8.2007, 3:39
|
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
|
|
|
|
[XZ]Blood |
26.8.2007, 15:39
|
Neophyte
Сообщений: 36
Регистрация: 6.3.2006 Группа: Пользователи Наличность: 0
Пользователь №: 5.388
|
Цитата(GumanoiD @ 22.8.2007, 3:48) Хоть и не скрипт, но всеравно полезная вещь авторестартер если сервер по каким либо причинам крашицо, то прога автоматом его запускает
ну если пол установить как службу то он тоже будет сам рестартится =) Кстати тут есть один минус... при некоторых ошибках авто запуск клиента после краша может ненашутку побить БД ...
--------------------
http://ultimaonline.hut2.ru --- УО ZH Таблицы
|
|
|
|
GumanoiD |
17.9.2007, 22:54
|
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
|
|
|
|
BELL_2k |
30.9.2008, 18:11
|
Registred
Сообщений: 9
Регистрация: 22.4.2008 Группа: Пользователи Наличность: 0
Пользователь №: 10.709
Возраст: 26
|
Цитата(YouAreNext @ 29.9.2008, 17:52) люди... вы не могли бы дать компилятор нормальный ? =)) нигде найти немогу =)
эээээ....???????
|
|
|
|
GumanoiD |
21.12.2008, 8:26
|
Apprentice
Сообщений: 176
Регистрация: 6.5.2006 Группа: Пользователи Наличность: 0
Пользователь №: 5.924
|
Цитата(Dev Fast @ 19.12.2008, 15:41) Дайте скрипт креста , что-бы при тычке на него ресало (IMG: style_emoticons/default/smile.gif) сразу видно, не читал документацию... советую прочитай хотябы по файлам конфигурации...
|
|
|
|
PolDev |
12.8.2012, 22:47
|
Группа: Пользователи Наличность: 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
--------------------
|
|
|
|
Rom1o |
28.7.2019, 11:28
|
Группа: Пользователи Наличность: 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 дистро не запутсить в оборот. Другие дистро более высокой версии использует уже такие скрипты ? Кто то пробывал ето скрипт хоть на каком-то дистро ?
--------------------
|
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
|