Автоматизация продажи

[romund]

Как реализовать автоматизацию продажи на ГФ птс .

Например : есть стопка с большим каунт , на сервере есть лимит продажи.
Возможно ли сделать первый раз продал , а затем скрипт будет сам подставлять нужный 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.

[supernewbie]

romund, наверное потому что маска "123"?