KPOT^^
30.04.2009, 17:12
Привет всем.У меня такая проблема:на моем сервере есть баг на деньги,заключается он в том что ты покупаешь итемы по одной цене , а продаешь дороже...так как я нуб в этом деле, то единственое что я смог сделать, это изменить скрипт на заточку для грации 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.
Очень надеюсь на вашу помощь.
Я думаю этот скрипт пригодица многим.
Вот я и решил попросить у вас помоши.Хотелось бы чтобы написали такой скрипт, что бы он снала покупал 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.
Очень надеюсь на вашу помощь.
Я думаю этот скрипт пригодица многим.