WFIFOW(0, $00c7);
w := 0;
for i := 1 to 100 do begin
if (tc.Item[i].Amount > 0) and (tc.Item[i].ID <> 0) and (tc.Item[i].Equip = 0) then begin
WFIFOW( 4+ w*10, i);
WFIFOL( 6+ w*10, tc.Item[i].Data.Price div 2);
WFIFOL(10+ w*10, tc.Item[i].Data.Price div 2);//OC未対応
Inc(w);
end;
end;
WFIFOW(2, 4 + w * 10);
Socket.SendBuf(buf, 4 + w * 10);
