аа фсе вкурил!!=)
пойду спать, завтро доделаю, и буду мучить завтро!))
так что прошу быть на месте
спасибо!
Добавлено через 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"
ну я так понимаю что это тип ненравится, но я же вроде перевел уже в строку чего он парится??