k2_target
08.08.2011, 14:06
Создаём новый макрос.
Заполняем его так: (копируете и в поле нажимаете Shift+Insrert)
Название:
Проклятие
Описание:
Прокляте отчаяния
Откат 3 минуты
Команда макроса:
/смех
И выносите макрос на панель скилов.
и готово. при активации макроса у вас вылетает скил - Проклятие отчаяния I
Сам скрипт:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript "Skill_2008"',[TargetID]));
end;
end;
begin
if(fromserver)and(pck[1]=#$42) and (ReadH(19)= 1 )then
begin
buf:=hstr('CF 57 6C D8 07 00 00');
writeD(readD(8));
buf:=buf+hstr('EE 02 A5 09 00 00');
sendtoserver;
end;
end;
end.
Скил с помощью макроса
Создаём новый макрос.
Заполняем его так: (копируете и в поле нажимаете Shift+Insrert)
Название:
Проклятие
Описание:
Прокляте отчаяния
Откат 3 минуты
Команда макроса:
/гнев
И выносите макрос на панель скилов.
и готово. при активации макроса у вас вылетает скил - Проклятие отчаяния I
Cам скрипт:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript "Skill_2002"',[TargetID]));
end;
end;
begin
if(fromserver)and(pck[1]=#$42) and (ReadH(19)= 2 )then
begin
buf:=hstr('CF 57 6C D2 07 00 00');
writeD(readD(8));
buf:=buf+hstr('EE 02 A5 09 00 00');
sendtoserver;
end;
end;
end.
Взял с другова чит портала. Сам в скриптах 0.
Заполняем его так: (копируете и в поле нажимаете Shift+Insrert)
Название:
Проклятие
Описание:
Прокляте отчаяния
Откат 3 минуты
Команда макроса:
/смех
И выносите макрос на панель скилов.
и готово. при активации макроса у вас вылетает скил - Проклятие отчаяния I
Сам скрипт:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript "Skill_2008"',[TargetID]));
end;
end;
begin
if(fromserver)and(pck[1]=#$42) and (ReadH(19)= 1 )then
begin
buf:=hstr('CF 57 6C D8 07 00 00');
writeD(readD(8));
buf:=buf+hstr('EE 02 A5 09 00 00');
sendtoserver;
end;
end;
end.
Скил с помощью макроса
Создаём новый макрос.
Заполняем его так: (копируете и в поле нажимаете Shift+Insrert)
Название:
Проклятие
Описание:
Прокляте отчаяния
Откат 3 минуты
Команда макроса:
/гнев
И выносите макрос на панель скилов.
и готово. при активации макроса у вас вылетает скил - Проклятие отчаяния I
Cам скрипт:
var
SpeedTable1:array[1..10] of integer;
cSpeed:integer;
rSpeed:single;
vx1:variant;
DangePacket:array[1..10] of string;
//DangePacket1:string;
//DangePacket2:string;
CharID:array[1..4] of integer;
TargetID:integer;
var
msgName:string;
procedure PHX_Message(msg1:string);
begin
buf:=HStr('17 54 D4 07 00 00 00 00 00 ');
msgName:='[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
WriteS(msgName);
WriteS(msg1);
SendToClient;
end;
begin
if FromClient and (ReadC(1)=$C9{select}) then
begin
TargetID:=ReadD(4);
if DangePacket[1]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[1]:=buf;
PHX_Message(Format('SK-NS',[TargetID]));
end;
if DangePacket[2]='' then
begin
buf:=HStr('9A 57 59 ');
WriteD(TargetID);
DangePacket[2]:=buf;
PHX_Message(Format('- Skript "Skill_2002"',[TargetID]));
end;
end;
begin
if(fromserver)and(pck[1]=#$42) and (ReadH(19)= 2 )then
begin
buf:=hstr('CF 57 6C D2 07 00 00');
writeD(readD(8));
buf:=buf+hstr('EE 02 A5 09 00 00');
sendtoserver;
end;
end;
end.
Взял с другова чит портала. Сам в скриптах 0.