переделать скрипт пакет хак для WPF669

[Gressy]

Помогите переделать этот скрипт чтоб он подходил для WPF669
Заранее спасибо)



procedure Init; //Вызывается при включении скрипта
begin

end;

procedure Free; //Вызывается при выключении скрипта
begin

end;


Function OOP(str: String): integer;
var
b:BOOLean;
s,s1:string;
sum,ds,k,i:byte;
mas:array[1..101] of string;
begin
mas[1] := 'один' ;
mas[2] := 'два' ;
mas[3] := 'три' ;
mas[4] := 'четыре' ;
mas[5] := 'пять' ;
mas[6] := 'шесть' ;
mas[7] := 'семь' ;
mas[8] := 'восемь' ;
mas[9] := 'девять' ;
mas[10]:= 'десять' ;
mas[11]:='одиннадцать' ;
mas[12]:='двенадцать' ;
mas[13]:='тринадцать' ;
mas[14]:='четырнадцать' ;
mas[15]:='пятнадцать' ;
mas[16]:='шестнадцать' ;
mas[17]:='семнадцать' ;
mas[18]:='восемнадцать' ;
mas[19]:='девятнадцать' ;
mas[20]:='двадцать' ;
mas[30]:='тридцать' ;
mas[40]:='сорок';
mas[50]:='пятьдесят';
mas[60]:='шестьдесят';
mas[70]:='семьдесят';
mas[80]:='восемьдесят';
mas[90]:='девяносто';
mas[100]:='сто' ;
// mas[200]:='двести';
// mas[300]:='тристо';
//mas[400]:='четыресто';
//msa[500]:='пятьсот';



s := str + ' ';
sum:=0;
result:=0;
b:=true;
while b do
begin
result := sum;
k := 0;
k := pos( ' ', s );
if k < 1 then
b:= false;
ds := length ( s ) ;
s1 := copy ( s, 0, k);
s := copy ( s, k + 1 , ds );
for i:=100 downto 1 do
begin
if (pos( ' '+mas[i], ' '+s1 ) > 0) and (length(mas[i])>1) then
begin
sum := sum + i;
s1:='' ;
end
else if i = 1 then
begin
s1:='' ;
end;
end;
end;
end;

// сюда дописывать возможные искажения текста
function preob(msg:string):string;
var
str:string;
c:char;
i:integer;
begin
str:=msg;
for i:=1 to length(str) do
begin
c:=msg[i];
case c of
'a':str[i]:= 'а';
'o':str[i]:= 'о';
'e':str[i]:= 'е';
'c':str[i]:= 'с';
'p':str[i]:= 'р';
end;
end;
result:=str;
end;





//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
var
Wname : string;
RName: string;
msg : string;
i:integer;
str: string;
begin
if FromServer and (pck[1]=#$FD) then
begin
i:=10;
WName:=ReadS(i);
RName:=ReadS(i);
msg :=ReadS(i);
msg:=preob(msg)+' ';
str:= inttostr(OOP(msg));

if strtoint(str) <> 0 then
begin
buf:=#$CC;
WriteS(str);
WriteS(Rname);
SendToServer;
end;
end;
end.