[M6vsKGB]

аа фсе вкурил!!=)
пойду спать, завтро доделаю, и буду мучить завтро!))
так что прошу быть на месте

спасибо!

Добавлено через 20 часов 44 минуты
ну вот еще адын вариант.. только он чота выдает ашибку=((

const
Name='Kooper';
ItemID=148;
AdenID=54;
max=100;
var
ItemBaseS:array[1..max] of integer;
KolvoI, KolvoM: integer;
procedure Init;
begin
end;
procedure Free;
begin
end;
procedure GiveAden;
var o: integer;
 begin
  ItemBase;
   for o:=1 to max-10 do begin
      buf:=hstr('C6 C0 13 00 00 19 00 00 00 01 00 00 00 81 00 00 00');
      SendToServerEx(Name);
      buf:=hstr('A7 30 7D 8D 12 C0 A5 5F 03 01 00 00 00');
      SendToServerEx(Name);
      delay(200);
      UpdateItemBase;
    end;
    delay(1000);
    SellItem;
end;
procedure ItemBase;
var i,ss,j,ObjID,ItmID,ListCount,Count,aug:integer;
begin
  ss:=1;
  j:=4; 
  ListCount:=ReadH(j); 
  if ListCount>max then ListCount:=max;
  j:=8; 
  for i:=1 to ListCount do begin
     ObjID:=ReadD(j);    
     ItmID:=ReadD(j);    
     Count:=ReadD(j);
     j:=j+14;
     aug:=ReadD(j);
     case ItmID of
        ItemID: begin
            ItemBaseS[ss]:=ObjID;
            inc(ss);
        end;
        AdenID: begin
            KolvoM:=Count;
        end;
     end;
    j:=j+6;
  end;
end;
procedure UpdateItemBase;
var i,ii,j,ObjID,ItmID,ListCount,Count,UpdType,aug: integer;
begin
  ListCount:=ReadH(2);
  j:=4;
  for i:=1 to ListCount do begin
    UpdType:=ReadH(j);
    j:=j+2;
    ObjID:=ReadD(j);
    ItmID:=ReadD(j);
    Count:=ReadD(j);
    j:=j+14;
    aug:=ReadD(j);
    case UpdType of
      1:case ItmID of
          ItemID: begin
            for ii:=1 to max do
             if ItemBaseS[ii]=0 then begin
              ItemBaseS[ii]:=ObjID;
              KolvoI:=KolvoI+1;
              break;
             end;
          end;
        AdenID: begin
            KolvoM:=Count;
        end;
      end;
      end;
    end;
    j:=j+6;
  end;
procedure SellItem;
var i: integer;
ll,ss1: string;
begin
   buf:=HStr('1E 00 00 00 00');
   ll:=HStr(IntToStr(KolvoI));
   WriteD(ll);
   for i:=1 to max do begin
     ss1:=HStr(IntToStr(ItemBaseS[i]));
     WriteD(ssq);
     ll:=HStr('9E 00 00 00 01 00 00 00');
     WriteD(ll);
   end;
   SendToServerEx(Name);
   Clear;
end;
procedure Clear;
var i: integer;
begin
  for i:=1 to max do begin
    ItemBaseS[i]:=0;
  end;
  KolvoI:=0;
end;
begin
   if FromClient and (pck[1]=#$04) then begin
      GiveAden;
   end;
   if KolvoM=2147483648 then begin
   exit;
   end;
end.

вот тут ошибка
buf:=HStr('1E 00 00 00 00');
ll:=HStr(IntToStr(KolvoI));
WriteD(ll); <пишет что Incompatible types :"Integer", "String"
ну я так понимаю что это тип ненравится, но я же вроде перевел уже в строку чего он парится??