Помошь в написании

[KPOT^^]

Привет всем.У меня такая проблема:на моем сервере есть баг на деньги,заключается он в том что ты покупаешь итемы по одной цене , а продаешь дороже...так как я нуб в этом деле, то единственое что я смог сделать, это изменить скрипт на заточку для грации 2 под покупку итемов...но в этом случае мне все равно приходится в ручную продавать..
Вот я и решил попросить у вас помоши.Хотелось бы чтобы написали такой скрипт, что бы он снала покупал 400 раз итемы а потом 2 раза продавал, и так до безконечности.
вот что у меня было
Оффтоп

const
Name='nick';
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=50;
timer.OnTimer:=@fireTimer;
timer.enabled:=true;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('покупка');
SendToServer;
end;
begin
if FromServer and (ConnectName=Name) and (pck = HStr('нет денег')) then begin
timer.enabled:=false;
end;
end.

Очень надеюсь на вашу помощь.
Я думаю этот скрипт пригодица многим.