Вобщем опробовал я дома замену 2F на 45 вместо скилов поставил действие
delphi Код:
procedure MagicSkillUse(MagicID:integer);
begin
buf:=#$45;
WriteD(MagicID);
WriteD(00);
WriteC(00);
SendToServerEx(Name);
procedure createskillbase;
var
i, j, n: integer;
begin
for i:=1 to 200 do
begin
skillbase[i,1]:=0;
skillbase[i,2]:=0;
end;
n:=0;
J:=10;
listbox1.items.Clear;
for I:=1 to 200 do
begin
skillbase[i,1]:=ReadD(j);
skillbase[i,2]:=ReadD(j);
if skillbase[i,2]=0 then break;
j:=j+5;
inc(n);
listbox1.items.Add('ID:'+inttostr(1007)+' '+SkillsName.Values[IntToStr(1007)]);
end;
if N>0 then skillhave:=true;
end;
пати принимает скил самона кидает, но из пати не выходит, правлю интуитивно скрипт, но чувствую с дельфи и паскалем начну знакомится
