 скрипт на, разгребание бекпака |
 3 декабря 2010 21:20 Сообщение #1
|
|
Нужно что-бы складывал всё из бекпака в контейнер |
|
|
|
|
  Сообщений: 1842 Рег. 5.06.2010 |
3 декабря 2010 22:13 Сообщение #2
|
##################################### sub pereclad() ##################################### VAR gr,flag ###################### # Игнорировать ###################### DIM ignor[9] ignor[1] = '0x1012'; маджик кей ignor[2] = '0x0EFA'; спеллбук ignor[3] = '0x0EED'; ГП ignor[4] = '0x1F14'; руны ignor[5] = '0x0EF0'; реварды ignor[6] = '0x0E75'; бэкпак-сумка ignor[7] = '0x0E21'; бинты чистые ignor[8] = '0x0E20'; бинты грязные ignor[9] = '0x0E76'; мешки uo.print('---ПЕРЕКЛАДЫВАЛКА---') uo.print('Выберете мешок ИЗ которого') uo.addobject('mesh1') while uo.targeting() wait(100) wend uo.print('Выберете мешок В который') uo.addobject('mesh2') while uo.targeting() wait(100) wend repeat uo.findtype(-1,-1,'mesh1') gr = uo.getGraphic('finditem') flag = 0 for i=1 to 9 if gr==ignor[i] then glag = 1 endif next if flag == 1 then uo.ignore('finditem') else if uo.Weight<620 then uo.moveitem('finditem',0,'mes h2') wait(100) else uo.print('Перегруз...') uo.ignorereset() return endif endif until not UO.FindCount('finditem') uo.ignorereset() end sub |
|
|
|
|
|
3 декабря 2010 22:39 Сообщение #3
|
|
За этот спасибо, но вообще нужно что-бы выкидывал всё, что найдет в паке). А каждый итем отдельно вписывать... Короче мне надо, что-бы после того как откроет пандорки - скидывать всё в контейнер. |
|
|
|
|
|
Сообщений: 1842 Рег. 5.06.2010 |
3 декабря 2010 23:25 Сообщение #4
|
Ну только ради тебя поюзил форумы))) sub packduper() ## Разгрузка всего содержимого бэкпака в другой контейнер var X,Y MessageBox('Ткни прицелом на пустой рюкзак') UO.Exec('addobject TmpCont') While UO.Targeting() Wait(222) Wend UO.UseObject('backpack') repeat UO.FindType('-1','-1','backpack') wait(222) if UO.FindCount() then X=UO.GetX('finditem') Y=UO.GetY('finditem') UO.MoveItem('finditem',0,'TmpCont',X,Y,0) wait(222) UO.Ignore('finditem') end if until not UO.FindCount() or UO.dead() UO.IgnoreReset() UO.Resend() end sub sub packreduper() ## Загрузка содержимого другого контейнера в бэкпак var X,Y MessageBox('Ткни прицелом на сумку для разгрузки в паке') UO.Exec('addobject TmpCont') While UO.Targeting() Wait(222) Wend UO.UseObject('backpack') UO.UseObject('TmpCont') repeat UO.FindType('-1','-1','TmpCont') wait(222) if UO.FindCount() then X=UO.GetX('finditem') Y=UO.GetY('finditem') UO.MoveItem('finditem',0,'backpack',X,Y,0) wait(222) UO.Ignore('finditem') end if until not UO.FindCount() or UO.dead() UO.IgnoreReset() UO.Resend() end sub |
|
|
|
|
|
4 декабря 2010 00:20 Сообщение #5
|
|
Ай пасиба  |
|
|
|
|
Последние посетители (0):
| Сейчас: 2 мая 2024 11:01 |