|
25.10.2011, 15:39
|
#1
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Crazy P.E.T. (+)
Последний раз редактировалось valsoray; 30.11.2011 в 21:49.
|
|
|
58 пользователя(ей) сказали cпасибо:
|
#OMEGA# (17.11.2011), ∑ЕVS (07.11.2011), -NegaTiV_4eK- (06.12.2011), .uckpa (25.10.2011), 32влад32 (25.10.2011), =Бронепоезд= (27.10.2011), бармен_м (27.10.2011), Валенок (12.11.2011), ae_2010 (13.05.2012), ВОРОБЕЙ(UA) (26.10.2011), АнтиАмерика (25.10.2011), АнтиКапч (25.10.2011), alexandr_rr (10.11.2011), Andriu- (08.11.2011), Andryxa90 (02.11.2011), ВеЧныЙ_мСтИтЕлЬ (02.12.2011), baltik123 (12.11.2011), bard03 (25.10.2011), daaaniiil73 (25.10.2011), Danikmalets (20.11.2011), Dante_^ (25.10.2011), flatra777 (25.10.2011), fromexerussia (27.10.2011), Fullass (26.10.2011), God_of_dark (25.10.2011), HeaDShoTRuS (25.07.2012), himerOK (25.10.2011), Ivan959 (30.06.2012), ivan_k97/RiZZoF (25.10.2011), justbot (25.10.2011), Knight_of_Dark2 (26.10.2011), KompleviT (10.12.2011), kystik (26.10.2011), LOH#1 (07.12.2011), mafia׳i√ė (25.10.2011), malahov911 (17.11.2011), MoHoJLuT (25.10.2011), Na3aR4uK (14.01.2012), Счетовод (25.10.2011), OmqHell (27.10.2011), Or1oN (17.11.2011), rasta_baby (28.10.2011), Ronik80 (25.10.2011), sanekag007777 (27.10.2011), Sapfirka (19.11.2011), semechka2 (25.10.2011), sergovan (01.12.2011), Shook† (14.01.2012), SHTIL12 (06.11.2011), Snow-_-Leopard (25.10.2011), sos^ (25.10.2011), speed_fire (23.11.2011), tamerlan_1996 (25.10.2011), Teocrat (20.11.2011), v.i.per (24.11.2011), wadimkad (25.10.2011), WreckeR/9/ (01.12.2011), _RaNd0m_ (03.01.2012) |
25.10.2011, 16:26
|
#2
|
|
|
|
Разведчик
|
Регистрация: 09.10.2011
Сообщений: 15
Популярность: -294
Сказал(а) спасибо: 47
Поблагодарили 91 раз(а) в 60 сообщениях
|
Re: Crazy P.E.T.
Как я понял он ремает пета через ангар?
________________
˜” *°•.TopтиК.•°*”˜|BK's| ru2 MMO Вызываю у школьников дикий агр
|
|
|
Пользователь сказал cпасибо:
|
|
25.10.2011, 16:46
|
#3
|
|
|
|
Сержант
|
Регистрация: 13.03.2011
Сообщений: 118
Популярность: 1812
Сказал(а) спасибо: 102
Поблагодарили 305 раз(а) в 76 сообщениях
|
Re: Crazy P.E.T.
А разве аналогичного скрипта нет в подполье?
|
|
|
Пользователь сказал cпасибо:
|
|
25.10.2011, 16:55
|
#4
|
|
|
|
Капитан
|
Регистрация: 27.10.2010
Сообщений: 270
Популярность: 64151
Золото Zhyk.Ru: 35
Сказал(а) спасибо: 1,922
Поблагодарили 1,198 раз(а) в 582 сообщениях
|
Re: Crazy P.E.T.
Вот это спасибо, а то авторем не катит - тут уже и режим сам включается! Низкий поклон!
|
|
|
Пользователь сказал cпасибо:
|
|
25.10.2011, 17:15
|
#5
|
|
|
|
Старший сержант
|
Регистрация: 31.12.2010
Сообщений: 231
Популярность: 2578
Сказал(а) спасибо: 30
Поблагодарили 195 раз(а) в 104 сообщениях
|
Re: Crazy P.E.T.
|
Цитата: |
|
|
|
|
|
|
Спасибо скрипт очень полезный особенно в портах)
|
|
|
25.10.2011, 17:23
|
#6
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Re: Crazy P.E.T.
|
|
|
Пользователь сказал cпасибо:
|
|
25.10.2011, 17:24
|
#7
|
|
|
|
Разведчик
|
Регистрация: 24.10.2011
Сообщений: 3
Популярность: 40
Сказал(а) спасибо: 13
Поблагодарили 23 раз(а) в 16 сообщениях
|
Re: Crazy P.E.T.
|
Цитата: |
|
|
|
|
|
|
|
|
|
Рискну предоставить вашему вниманию даный скрипт:
Функции скрипта:
1. Заменяет пасивный режим на режим камикадзе. (включает камикадзе если вы включаете пасивный режим или если он по умолчанию вклечён (после активации P.E.T.));
2. Даёт возможность использовать защитный режим;
3. Ремонтирует P.E.T. сразу после разрушения и во время входа в игру если P.E.T. разрушен;
4. Нет задержки на включение P.E.T. и механизмов, тоесть после разрушеия P.E.T. ремонтирует и активирует его как можно быстрее.
5. Всегда пытается "держать" P.E.T. в активном состоянии (без вмешательства игрока в работу P.E.T. он будет включен до того момента пока кончится топливо);
|
|
|
|
|
|
Извините за нубский вопрос,его нужно через вп цеплять?
|
|
|
25.10.2011, 17:26
|
#8
|
|
|
|
Разведчик
|
Регистрация: 25.06.2011
Сообщений: 15
Популярность: 306
Сказал(а) спасибо: 32
Поблагодарили 22 раз(а) в 20 сообщениях
|
Re: Crazy P.E.T.
________________
Собираю зеленые кубики
|
|
|
25.10.2011, 17:34
|
#9
|
|
|
|
Разведчик
|
Регистрация: 23.09.2011
Сообщений: 1
Популярность: 10
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
|
Re: Crazy P.E.T.
|
|
|
25.10.2011, 17:46
|
#10
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Re: Crazy P.E.T.
|
|
|
25.10.2011, 17:48
|
#12
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Re: Crazy P.E.T.
|
|
|
25.10.2011, 18:00
|
#13
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Re: Crazy P.E.T.
Последний раз редактировалось valsoray; 25.10.2011 в 22:22.
|
|
|
25.10.2011, 18:14
|
#14
|
|
|
|
Маршал
|
Регистрация: 27.06.2010
Сообщений: 878
Популярность: 10385
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 87
Поблагодарили 906 раз(а) в 416 сообщениях
|
Re: Crazy P.E.T.
КАМ это мой декомпилированый скрипт, его уже удалили.
Если не верите сравните исходники скриптов (даже переменные однаковые).
Исходник КАМ_4_4.xml
Код:
var
mex: integer;
procedure OnCreate;
begin
gSys.SetTimer(1, 0);
mex := 0;
end;
procedure OnDestroy;
begin
gSys.SetTimer(1, 0);
end;
function OnTimer(var ntimer, count, third: integer): boolean;
begin
if (ntimer=1) then
begin
gSys.SendS(HStr('50 45 54 7C 52 0A 00'));
gSys.SetTimer(1, 800);
end;
if (count=1) then
begin
if (mex=4) then
begin
gSys.SetTimer(2, 0);
mex := 1;
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 37 7C 0A 00'));
end;
end;
begin
if (mex=5) then
begin
gSys.SendS(HStr('50 45 54 7C 4C 0A 00'));
gSys.SetTimer(1, 500);
mex := 1;
end;
end;
end;
begin
if pos('0|PET|Z', _gBuff) then
begin
gSys.SetTimer(1, 2000);
end;
if pos(HStr('30 7C 50 45 54 7C 49 7C 31 7C 31 7C 30 00 0D 0A'), _gBuff) then
begin
gSys.SetTimer(1, 2000);
end;
if pos(HStr('30 7C 50 45 54 7C 52 00 0D 0A'), _gBuff) then
begin
gSys.SetTimer(1, 0);
end;
if pos(HStr('30 7C 50 45 54 7C 52 00 0D 0A'), _gBuff) then
begin
if (mex>0) then
begin
gSys.SendS(HStr('50 45 54 7C 4C 0A 00'));
mex := 1;
gSys.SetTimer(1, 0);
end;
end;
if pos(HStr('30 7C 6E 7C 77 7C 2D 31 00 0D 0A'), _gBuff) then
begin
mex := 5;
gSys.SetTimer(1, 2000);
end;
if pos(HStr('30 7C 50 45 54 7C 4C 7C'), _gBuff) then
begin
mex := 6;
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 37 7C 0A 00'));
gSys.SetTimer(2, 2000);
end;
if (mex<>2)and(mex<>0) then
begin
if pos(Hstr('30 7C 59 7C'), _gBuff) then
begin
if _gFromServ then
begin
mex := 2;
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 37 7C 0A 00'));
gSys.SetTimer(1, 3000);
end;
end;
end;
if (mex=2) then
begin
if pos(Hstr('50 4E 47 0A 00'), _gBuff) then
begin
if not _gFromServ then
begin
gSys.SetTimer(2, 60000);
mex := 4;
end;
end;
end;
if pos(HStr('30 7C 50 45 54 7C 47 7C 53 45 4C 7C 31 30 32 00 0D 0A'), _gBuff) then
begin
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 37 7C 0A 00'));
gSys.SetTimer(1, 3000);
mex := 4;
end;
if pos(HStr('30 7C 50 45 54 7C 44 7C'), _gBuff) then
begin
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 37 7C 0A 00'));
gSys.SetTimer(1, 3000);
mex := 0;
end;
end.
Исходник Auto Collector
Код:
const
Title = 'Title:Auto.Collector.v1.2.[valsoray].zhyk.ru';
var
mex: integer;
procedure OnCreate;
begin
gSys.SetTimer(1, 0);
mex := 0;
end;
procedure OnDestroy;
begin
gSys.SetTimer(1, 0);
end;
function OnTimer(var ntimer, count, third: integer): boolean;
begin
if (ntimer=1) then
begin
gSys.SendS(HStr('50 45 54 7C 52 0A 00'));
end;
if (count=1) then
begin
if (mex=4) then
begin
gSys.SetTimer(2, 0);
mex := 1;
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 31 7C 0A 00'));
gSys.SendC(HStr('30 7C 50 45 54 7C 47 7C 53 45 4C 7C 31 00 0D 0A'));
end;
end;
begin
if (mex=5) then
begin
gSys.SendS(HStr('50 45 54 7C 4C 0A 00'));
mex := 1;
end;
end;
end;
begin
if pos('0|PET|Z', _gBuff) then
begin
gSys.SetTimer(1, 15000);
end;
if pos(HStr('30 7C 50 45 54 7C 49 7C 31 7C 31 7C 30 00 0D 0A'), _gBuff) then
begin
gSys.SetTimer(1, 10000);
end;
if pos(HStr('30 7C 50 45 54 7C 52 00 0D 0A'), _gBuff) then
begin
gSys.SetTimer(1, 0);
end;
if pos(HStr('30 7C 50 45 54 7C 52 00 0D 0A'), _gBuff) then
begin
if (mex>0) then
begin
gSys.SendS(HStr('50 45 54 7C 4C 0A 00'));
mex := 1;
end;
end;
if pos(HStr('30 7C 6E 7C 77 7C 30 00 0D 0A'), _gBuff) then
begin
mex := 5;
gSys.SetTimer(2, 5000);
end;
if pos(HStr('30 7C 6E 7C 77 7C 2D 31 00 0D 0A'), _gBuff) then
begin
mex := 5;
gSys.SetTimer(2, 5000);
end;
if pos(HStr('30 7C 6E 7C 77 7C 31 00 0D 0A'), _gBuff) then
begin
mex := 0;
gSys.SendS(HStr('50 45 54 7C 44 0A 00'));
end;
if pos(HStr('30 7C 6E 7C 77 7C 32 00 0D 0A'), _gBuff) then
begin
mex := 0;
gSys.SendS(HStr('50 45 54 7C 44 0A 00'));
end;
if pos(HStr('30 7C 6E 7C 77 7C 33 00 0D 0A'), _gBuff) then
begin
mex := 0;
gSys.SendS(HStr('50 45 54 7C 44 0A 00'));
end;
if pos(HStr('30 7C 6E 7C 77 7C 34 00 0D 0A'), _gBuff) then
begin
mex := 0;
gSys.SendS(HStr('50 45 54 7C 44 0A 00'));
end;
if pos(HStr('30 7C 6E 7C 77 7C 35 00 0D 0A'), _gBuff) then
begin
mex := 0;
gSys.SendS(HStr('50 45 54 7C 44 0A 00'));
end;
if (mex<>2)and(mex<>0) then
begin
if pos(Hstr('30 7C 59 7C'), _gBuff) then
begin
if _gFromServ then
begin
mex := 2;
gSys.SendS(HStr('50 45 54 7C 47 7C 4C 7C 31 30 32 7C 0A 00'));
gSys.SendC(HStr('30 7C 50 45 54 7C 47 7C 53 45 4C 7C 31 30 32 00 0D 0A'));
end;
end;
end;
if pos(HStr('50 45 54 7C 47 7C 4C 7C 31 30 32 7C 0A 00'), _gBuff) then
mex := 2;
if pos(HStr('50 45 54 7C 47 7C 4C 7C 31 30 31 7C 0A 00'), _gBuff) then
begin
gSys.SetTimer(2, 3000);
mex := 4;
end;
if (mex=2) then
begin
if pos(Hstr('50 4E 47 0A 00'), _gBuff) then
begin
if not _gFromServ then
begin
gSys.SetTimer(2, 60000);
mex := 4;
end;
end;
end;
if pos(HStr('30 7C 50 45 54 7C 47 7C 53 45 4C 7C 31 30 31 00 0D 0A'), _gBuff) then
begin
gSys.SetTimer(2, 3000);
mex := 4;
end;
if pos(HStr('30 7C 50 45 54 7C 44 7C'), _gBuff) then
begin
mex := 0;
end;
end.
Тот кто все буквы в алфавите знает тот, я думаю, понял.
Последний раз редактировалось valsoray; 25.10.2011 в 18:20.
|
|
|
Пользователь сказал cпасибо:
|
|
25.10.2011, 18:54
|
#15
|
|
|
|
Разведчик
|
Регистрация: 05.03.2011
Сообщений: 12
Популярность: 112
Сказал(а) спасибо: 23
Поблагодарили 3 раз(а) в 3 сообщениях
|
Re: Crazy P.E.T.
Балдею от скрипта кубиконы тока так лопаються
|
|
|
Пользователь сказал cпасибо:
|
|
Ваши права в разделе
|
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения
HTML код Выкл.
|
|
|
Заявление об ответственности / Список мошенников
Часовой пояс GMT +4, время: 03:31.
|
|