romund
14.02.2012, 23:14
Как реализовать автоматизацию продажи на ГФ птс .
Например : есть стопка с большим каунт , на сервере есть лимит продажи.
Возможно ли сделать первый раз продал , а затем скрипт будет сам подставлять нужный ListID
Почему скрипт ниже отправляет только пакет с байтом 37 ?
Вот наброски.
var
i,ObjectID,ItemID,Count,ListID: integer;
begin
if FromClient and (pck[1]=#$37) then
begin
i:=2;
ListID:=ReadD(i);
inc(i,4);
ObjectID:=ReadD(i);
ItemID:=ReadD(i);
Count:=ReadQ(i);
pck:='';
buf:=#$37;
WriteMask('123',[ListID, 1, ObjectID, ItemID, Count\]);
SendToServer;
end;
end.
Например : есть стопка с большим каунт , на сервере есть лимит продажи.
Возможно ли сделать первый раз продал , а затем скрипт будет сам подставлять нужный ListID
Почему скрипт ниже отправляет только пакет с байтом 37 ?
Вот наброски.
var
i,ObjectID,ItemID,Count,ListID: integer;
begin
if FromClient and (pck[1]=#$37) then
begin
i:=2;
ListID:=ReadD(i);
inc(i,4);
ObjectID:=ReadD(i);
ItemID:=ReadD(i);
Count:=ReadQ(i);
pck:='';
buf:=#$37;
WriteMask('123',[ListID, 1, ObjectID, ItemID, Count\]);
SendToServer;
end;
end.