[Скрипт] Подстава

[Usilok77]

Всем привет!!
Хочу выложить вам скрипт для подстав и приколов . Просьба не принимать всерьёз.
Скрипт по сути бесполезен но может кому-то пригодится (для само-обучения, например)

Вот сам скрипт для 2.6

PHP код:

//Script by Usilok77
var 
Mob_id,CharID,i,temp,cnt:integer;
msgName,skill:string;
jumper:boolean;
procedure PHX_Message(msg1:string);
begin
         buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
         msgName:='Attack';
         WriteS(msgName);
         WriteS(msg1);
         SendToClient;
end;

procedure bl();
begin
   buf:=HStr('48 54 E7 D1 43 2D 00 00 C4 D3 56 00 70 07 01 78 00 00 00 A3 02 00 20 00 00 01 00 C4 D3 56 00 00 07 64 00 10 00 00 00 01 00 0a 1a 00 00 0A 00  ');
   writed(Mob_id,4);
   writed(CharID,9);
   writed(CharID,28);
   SendToClient;
   pck:='';
end;
begin
//проверяем пакет
    if FromClient  then
    case pck[1] of   
//узнаем id моба
    #$b5: 
         begin   
            Mob_id:=readD(4);
            if (Mob_id<>0) then
        end;  
    end;  
 
 if FromClient and (ReadC(1)=$66) then
    CharID:=ReadD(4);
       
    if FromClient and (ReadC(1)=$B9) then  
        begin
           if (ReadS(5)='.подстава') then bl;          
        end;
end. 


Вот сам скрипт для 2.7

PHP код:

//Script by Usilok v_2.7
var 
Mob_id,CharID,i,temp,cnt:integer;
msgName,skill:string;
jumper:boolean;
procedure PHX_Message(msg1:string);
begin
         buf:=HStr('16 00 54 D5 FF 19 00 00 00 00 00 00 00 ');
         msgName:='Attack';
         WriteS(msgName);
         WriteS(msg1);
         SendToClient;
end;

procedure bl();
begin
   buf:=HStr('4B 00 54 E8 FF 38 FF 58 00 00 98 B8 5C 00 E9 48 05 B0 04 00 00 F4 01 00 00 00 00 01 00 98 B8 5C 00 00 5C 64 00 10 00 00 00 01 00 DC 0A 00 00 0A 00 ');
   writed(Mob_id,6);
   writed(CharID,11);
   writed(CharID,30);
   SendToClient;
   pck:='';
end;
begin
//проверяем пакет
    if FromClient  then
    case pck[1] of   
//узнаем id моба
    #$CE: 
         begin   
            Mob_id:=readD(6);
            if (Mob_id<>0) then
        end;  
    end;  
 
 if FromClient and (ReadC(1)=$67) then
    CharID:=ReadD(6);
       
    if FromClient and (ReadC(1)=$B2) then  
        begin
           if (ReadS(7)='.подстава') then bl;          
        end;
end. 


Можно редактировать скил и урон
48 54 E7 D1 43 2D 00 00 C4 D3 56 00 70 07 01 78 00 00 00 A3 02 00 20 00 00 01 00 C4 D3 56 00 00 07 64 00 10 00 00 00 01 00 0A 1A 00 00 0A 00
70 07 -Это отвечает за скил (это ид скила переведённый в Word )
0A 1A 00 00 -Это отвечает за урон (это урон 6666 переведённый в DWord)

Тестилась на Нью х2
[Ссылки могут видеть только зарегистрированные пользователи. ]

[dimenone]

Распиши что как работаетт, наверное ты что то напутал.

[Usilok77]

Пишешь в чат команду .подстава, и моб/игрок, который у тебя в таргете бьет тебя скиллом "Гнев разработчика" (визуально)

Добавлено через 20 минут
Забыл добавить то что скрип надо включать на стороннице выбора персонажа

[priest.nrts]

0 _ o с помощью этого скрипта можно недоброжелателей банить))автору - спасибо, пойду тролить