Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Подкорректируйте

тут можно задать вопрос по скриптингу
Post Reply
Spirit
Neophyte
Neophyte
Posts: 13
Joined: 05.02.2006 19:50
Contact:

Подкорректируйте

Post by Spirit »

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;).



а сама проблема вот в чём -->>
при одинакых предметах и различном цвете дерева не скидывает предметы в сумку
или же
если в сумке одинаковые предметы из различного цвета дерева не скидывает на землю саму сумку, а пытается доложить в неё ещё предметов


подправте плиз, или подскажите как лучше сделать.
Post Reply