Здравствуйте помогите переделать скрипт чтобы над чаром писалась его профа .Сам скрипт:
№ 1
delphi Код:
var
m:TMemo;
frm:TForm;
ClassID, i,j,k, ms,ps,mc,cc: Integer;
Message, Name, Class,t: String;
//......................................
//***************************************************************
procedure Init;
begin
//ShowTab;
frm := TForm.Create(nil);
frm.Caption := 'Char Info!';
frm.BorderStyle := bsSizeable;
frm.Position := poScreenCenter;
frm.Width:=320;
frm.Height:=600;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
frm.Show;
end;
//......................................
//***************************************************************
procedure Free;
begin
m.Free;
frm.Free;
//HideTab;
end;
begin
if FromServer and (pck[1]=#$03) then begin
{CharInfo:
22=s(Name)
i=i+116
i=d(MSpeed)
i=d(PSpeed)
i=i+84
i=s(Title)
i=i+27
i=h(cubics:For.0001)
i=i+cubics*2
i=i+8
i=d(classID:Get.ClassID)
i=d(maxCP)
i=d(curCP)
}
i:=22;
Name:=ReadS(i);
i:=i+116;
ms:=readD(i);
ps:=readD(i);
i:=i+84;
j:=i;
t:=reads(i);
k:=i;
i:=i+27;
mc:=ReadH(i);
i:=i+mc*2+8;
classid:=readD(i);
mc:=readD(i);
cc:=readD(i);
case ClassID of
88:class:='hDT';
89:class:='hDN';
90:class:='hPhK';
91:class:='hHK';
93:class:='hAD';
92:class:='hSG';
94:class:='hAM';
95:class:='hST';
96:class:='hAL';
97:class:='hCD';
98:class:='hHPh';
99:class:='eET';
101:class:='eWR';
102:class:='eMlS';
103:class:='eMM';
104:class:='eEM';
105:class:='eEvS';
33:class:='dShK';
106:class:='dShT';
107:class:='dSD';
108:class:='dGH';
37:class:='dPhR';
109:class:='dGS';
110:class:='dStS';
111:class:='dSM';
112:class:='dShS';
113:class:='oTitan';
114:class:='oGK';
115:class:='oDM';
116:class:='oDC';
117:class:='gFS';
118:class:='gMO';
end;
m.Lines.Add(Name+': "'+t+'" '+class+', cp:'+inttostr(ms)+'/'+inttostr(ps)+', cp:'+inttostr(mc)+'/'+inttostr(cc));
Message:=class+'='+inttostr(ms)+'/'+inttostr(ps);
buf:=copy(pck,1,j-1);
WriteS(Message);
j:=length(buf);
buf:=buf+copy(pck,k,length(pck)-k+1);
pck:='';
SendToClient;
end;
end.