PDA

Просмотр полной версии : Новый скрипт на невидимость.


Lynx
22.05.2009, 01:57
Улучшил ckрипт на нeвидимость. Теперь ты видишь мобов, а они тебя-нет.
Работает не у всех. У меня работает:pardon:
//Invisible Mode
var
pck48:string;
hidden,bi:boolean;
i,x,y,targetid:integer;
timer1:ttimer;
procedure Init;
begin
hidden:=false;
pck48:='';
randomize;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer; //
timer1.enabled:=false; //
timer1.interval:=200;
end;

procedure Free; //Вызывается при выключении скрипта
begin
timer1.free;
end;
procedure OnTimer(Sender: TObject);
begin
bi:=false;
timer1.enabled:=false;
end;
procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then begin
case ord(pck[1]) of
$28:pck:=#$48;
$12:if bi=true then pck:=#$48;
$2A:if bi=true then pck:=#$48;
end;
end;
if FromServer then exit;
case ord(pck[1]) of
$04:targetid:=ReadD(2);
$1B:case ord(pck[2]) of
$05:begin
SendMsg('invisible_mode: Off');
pck:=#$30;
hidden:=false;
timer1.enabled:=true;
bi:=true;

end;
$06:begin
if pck48='' then exit;
SendMsg('invisible_mode: On');
hidden:=true;
pck:=pck48;
i:=2;
x:=ReadD(i);
y:=ReadD(i);
x:=x+1000+round(random*200)-100;
y:=y+1000+round(random*200)-100;
buf:=pck;
WriteD(x,2);
WriteD(y,6);
pck:=buf;
timer1.enabled:=true;
bi:=true;
end;
end;
$48:pck48:=pck;
$30:if hidden then pck:='';

end;
end.

pmen
22.05.2009, 02:04
Молодец) Спс работает))

Vklu4atel^^
22.05.2009, 02:24
эм вопрос а если ударю будет бить???

Lynx
22.05.2009, 17:54
Некоторые побочные эффекты:
1)Вы невидимы)
2)У всех, кто вас выделил сбрасывается таргет.
3)Мобы теряют цель(почти все мобы) и набрасываются на других;
4)Вся отрава, как и банки перестают действовать, пока вы исчезли;
5)И ваша магия, и магия других пресекаются, даже в самом конце.
6)Вы не можете НИЧЕГО делать, кроме как писать в чат.

Добавлено через 1 час 2 минуты
Ой, извените, забыл блокировать DelitObjeckt и поэтому монстры пропадали
Щас исправлю. Ещё не будет прицел у вас сбиваться.

Scaem
22.05.2009, 19:20
это канает на шоке ? и для любых проф?

Lynx
22.05.2009, 20:27
Попробуй, где канает. от проф не зависит.

Добавлено через 32 секунды
я не играю на шоке.

Добавлено через 1 час 5 минут
Помогите придумать алгоритм, я блокирую удаление всех объектов на 200 мс, чтобы не удалялись мобы при исчезании. За это время могут исчезнуть дохлые мобы, могут поднять дроп, а в клиенте они остаются. в результате я пытаюсь поднять несуществующий дроп, убить несуществуюших мобов.
Можно сделать, чтобы, скажем, раз в 30 секунд весь мир перезагружался в клиент.
Но хочется-то большего)

xkor
22.05.2009, 20:54
это помойму для хроник до интерлюда включительно, так что на шоках не будет пахать, + думаю если переписать под ХБ то всёравно на шоках пахать не будет, эту багу на шоках не один раз уже фиксили)

ЗЫ бага ещё с 3х хроник существует, неужели до сих пор не фиксанули где то?

Lynx
22.05.2009, 21:00
Молодец) Спс работает))
И у меня пашет- видать не везде фиксанули

TAMBIK
22.05.2009, 22:59
это помойму для хроник до интерлюда включительно, так что на шоках не будет пахать, + думаю если переписать под ХБ то всёравно на шоках пахать не будет, эту багу на шоках не один раз уже фиксили)

ЗЫ бага ещё с 3х хроник существует, неужели до сих пор не фиксанули где то?
новое хорошо забытое старое
я на ХБ опять пользую баг с С4

Lynx
22.05.2009, 23:44
этот? и что, пашет?

Grinch
23.05.2009, 00:57
перенёс туда где ему и место, флудим по поводу этого скрипта тут

Lucky
24.05.2009, 23:44
Спс,работает))

Doberman
01.07.2009, 04:34
У меня не работает (((
Первый скрипт: при атаке нпс вокруг всё исщезает,я некого невижу и немогу двигатся ток чат работает.
Второй скрипт: мобы меня видят(

Gremlin
26.07.2009, 20:24
рабит на интерлюдах

HORSE
27.07.2009, 00:08
а у меня ругается на SendMsg=(

8tomat8
27.07.2009, 00:25
HORSE, юзай верчию 3,5... и выше)

NLObP
27.07.2009, 00:37
а у меня ругается на SendMsg=(

Переименуй в SendMsg2 (уже писали много раз). Такая функция есть в пакетхаке (выводит сообщение в лог).

He3eMHou
08.08.2009, 02:35
Скажите пожалуйсто.. как им пользоватся.. как его включать надо? или он сам должен... у меня не чего не пишет... и не каких емоций.. это значит его по фиксили? Спс зарания!!

LiS
08.08.2009, 19:05
Lynx, как его включить? Компилирую, ставлю галочку... ничего не пишет, мобы видят... Что нужно сделать, чтобы он написал, что режим невидимости включен?
С уважением, LiS.

tarrrik
22.08.2009, 14:52
У меня не пашет... скрипт не включается (не ставится галочка в проге)
выбивает красным шрифтом вот эту строку- procedure SendMsg(msg:string);

TAMBIK
22.08.2009, 14:57
по поводу SendMsg ответели неужели трудно прочитать тему

Переименуй в SendMsg2 (уже писали много раз). Такая функция есть в пакетхаке (выводит сообщение в лог).