 Поднятие эксплоужена , во время рекол-нивиз. |
  Сообщений: 1234 Рег. 1.05.2010 |
 5 ноября 2013 23:34 Сообщение #1
|
Есть вот такой скрипт инвиз - рекола sub invisRecall() UO.Print('Fast recall with invis') Var Type='0x0E24' Var Color='0x0060' UO.FindType(Type, Color, 2) UO.UseObject('finditem') wait(50) UO.Print('Fast recall') UO.FindType('0x1F14', -1, 'backpack') if UO.FindCount('finditem')>0 then UO.waittargetobject('finditem') UO.DeleteJournal() UO.Cast('Recall') wait(100) if UO.InJournal('You lack') then UO.Print("Пью манку!") Var Type1='0x0E24' Var Color1='0x0427' UO.FindType(Type1, Color1, 2) UO.UseObject('finditem') UO.Print('MANAAAAAAAAAAAAAAA. DRINK MANA!!') end if else UO.Print('RUNKI NETU!!!!!!!!!!!!') end if end sub Есть скрипт на лут с земли: sub Ept3() UO.IgnoreReset() UO.Set('finddistance', '3') repeat UO.FindType(-1,-1,'ground') if UO.FindCount('finditem') then UO.MoveItem('finditem', 0, 'backpack') wait(200) UO.Ignore('finditem') else UO.IgnoreReset() return endif until UO.Dead() end sub Ктонить может помочь всем пвм-щикам сервера и вставить с крипт рекол-инвиза поднятие эксплоуженов. Тот скрипт, что на лут с земли собирает всё, поэтому он не всегда может помочь. Нужно именно поиск эксплоужена постоянно, в течении нескольких секунд (длительность рекола). Ктонить поможет из знающих или придётся лепить какую-нить кашу полуработающую ?:) Самая основная проблема в том, что эти эксплоужены нифига не видно.. и таймера нет. Фиг поймёшь - кинули в тебя его или нет. А это, я считаю , косяк Хосе. |
|
|
|
|
Сообщений: 1043 Рег. 18.06.2011 |
6 ноября 2013 10:13 Сообщение #2
|
Exp1 поднимет 1 банку (если она есть) перед прыжком. Exp2 надо запускать отдельно - она будет поднимать все найденный банки пока чар жив. Var Type='0x0E24'; тип зелья Var Type2='0x1F14'; видимо руна Var ColorInv='0x0060'; цвет инвиз Var ColorMan='0x0427'; цвет мана Var ColorExp='0x0060'; цвет бомба sub invisRecall() Ept1() UO.FindType(Type, Color1, 2) UO.UseObject('finditem') wait(100) UO.FindType(Type2, -1, 'backpack') if UO.FindCount('finditem')>0 then UO.waittargetobject('finditem') UO.DeleteJournal() UO.Cast('Recall') wait(100) if UO.InJournal('You lack') then UO.FindType(Type, ColorMan, 2) UO.UseObject('finditem') end if end if end sub sub Ept1() UO.FindType(Type,ColorExp,'ground') if UO.FindCount('finditem') then UO.MoveItem('finditem', 0, 'backpack') wait(300) endif end sub sub Ept2() repeat UO.FindType(Type,ColorExp,'ground') if UO.FindCount('finditem') then UO.MoveItem('finditem', 0, 'backpack') wait(200) endif wait(100) until UO.Dead() end sub ЗЫ Руки решают. Тебя на таких скриптах сложат. |
|
|
|
|
|
Сообщений: 1234 Рег. 1.05.2010 |
6 ноября 2013 10:20 Сообщение #3
|
Благодарю. В принципе, я и думал что-то вроде такого принципа юзать, когда надо дополнительно пустить скрипт на поиск эксплов рядом с собой. Попробую потестить :) |
|
|
|
|
 Сообщений: 2217 Рег. 26.10.2009 |
6 ноября 2013 20:24 Сообщение #4
|
Цитата: Alucard ЗЫ Руки решают.   |
|
|
|
|
|
Сообщений: 1234 Рег. 1.05.2010 |
6 ноября 2013 23:20 Сообщение #5
|
Цитата: Anen Цитата: AlucardЗЫ Руки решают. Я бы просто так и не спрашивал :))) Решил всё таи уйти от автомат инвиз рекола, буду сам пить инвиз, в зависимости от ситуации. Так, глядишь, и не станут эксплоужен кидать ) |
|
|
|
|
Сообщений: 153 Рег. 5.10.2013 |
7 ноября 2013 13:16 Сообщение #6
|
procedure GrabExplosion; begin if FindType($0F0D, Ground) > 0 then for i := Low(GetFindedList) to High(GetFindedList) do begin MoveItem(FindItem, 0, Backpack, 0,0,0); //HelpfullMethod.WaitAndLag(300, 30000); //StatusMsg('Опаньки, полутал эксплоужен...'); Wait(350); end else Wait(50); end; end; Процедурка для поднятия експлоужена, которую я использую в 1 из скриптов. |
|
|
|
|
Последние посетители (0):
| Сейчас: 25 ноября 2024 17:41 |