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

[Lynx]

Улучшил ckрипт на нeвидимость. Теперь ты видишь мобов, а они тебя-нет.
Работает не у всех. У меня работает

//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]

Молодец) Спс работает))

[Vklu4atel^^]

эм вопрос а если ударю будет бить???

[Lynx]

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

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

[Scaem]

это канает на шоке ? и для любых проф?

[Lynx]

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

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

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

[xkor]

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

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

[Lynx]

Сообщение от pmen

Молодец) Спс работает))

И у меня пашет- видать не везде фиксанули

[TAMBIK]

Сообщение от xkor

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

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

новое хорошо забытое старое
я на ХБ опять пользую баг с С4

[Lynx]

этот? и что, пашет?