Подкорректируйте
Posted: 11.08.2006 15:24
Code: Select all
Trash,ItemType : word;
TrashID : cardinal;
.....
procedure MoveMakeItem;
begin
while FindTypeEx(ItemType,$FFFF,backpack,false) > 0 do
begin
Checksave;
WaitConnection(5000);
if findtype(Trash,backpack) > 0 then
TrashID:=finditem;
begin
if CountEx(ItemType,$FFFF,TrashID) <= 39 then
begin
Checksave;
WaitConnection(5000);
moveitem(findtype(ItemType,backpack),1,TrashID,0,0,0);
wait(700);
end
else
begin
Checksave;
WaitConnection(5000);
moveitem(findtype(Trash,backpack),1,ground,0,0,0);
wait(700);
CheckTrash;
end
else
begin
Checksave;
WaitConnection(5000);
CheckTrash;
end
end;
end;
end;
1. находим предметы одинакого типа любого цвета и
2. если есть сумочка и
3. если в ней предметов заданного типа меньше 39 или ровно 39 то
4. слаживаем предметы заданного типа в сумку пока их не будет в ней больше 39,
5. если в сумке больше 39 предметов заданного типа то выкидываем её на землю и делаем новую (CheckTrash;).
а сама проблема вот в чём -->>
при одинакых предметах и различном цвете дерева не скидывает предметы в сумку
или же
если в сумке одинаковые предметы из различного цвета дерева не скидывает на землю саму сумку, а пытается доложить в неё ещё предметов
подправте плиз, или подскажите как лучше сделать.