Перейти к содержанию
Форум шарда Middle-Earth

imaborg

Members
  • Публикаций

    40
  • Зарегистрирован

  • Посещение

Репутация

0 Обычный

Информация о imaborg

  • Звание
    Member
  • День рождения 03/28/1988

Контакты

  • AIM
    asphexiadnb
  • Сайт
    http://vkontakte.ru/asphexia
  • ICQ
    394946786

Информация

  • Пол
    Мужчина
  • Город
    Москва/Королев
  • Интересы
    <br /><br />
  1. Захотел я "of Shiftiness" вещи заточить и хочется уточнить некоторые моменты) 1.Фиолетовые кристаллы создаются из 5 зеленых и позволяют улучшать магические эффекты вещей! Вопрос: какой скилл влияет на соединение кристаллов? (кинул 5 кристалов в бэкпэк, двойной клик, после чего один кристалл сломался - информации о вероятности создания фиолетового кристалла не появилась. Дабы избежать излишней траты кристаллов, хотелось бы услышать чей нибудь совет!) 2.Опишите процесс заточки предметов! Пример: -хочу заточить предмет с маг эффектами "Resistive, of Shiftiness" до "Resistive, of Evading" Вопрос: чем на что жать, какой скилл нужен, есть ли вариант сломать вещь? -если предмет с "of Shiftiness, of Fortification", а я хочу сделать его "of Evading, of Fortification" или "of Shiftiness, of Invulnerability" как это сделать? ps. информация о магических свойствах и о их уровнях дана тут ==>> middle-earth.ru
  2. вот сам абы как переделал, ибо не вникал в этот скрипт с головой)) просто тайлы подставил нужные! теперь это чудо ходит и вскапывает землю!!! УРа))) ща бетатесчу... если кто-то поможет доработать - фермеры будут счастливы! Sub MiningTile(t, x, y, z) var timer repeat uo.canceltarget() uo.WaitTargetTile(Str(t), Str(x), Str(y), Str(z)) uo.UseType(0x0F39) uo.DeleteJournal() timer = 0 repeat wait(500) timer = timer + 1 until UO.injournal("There is no") or uo.injournal("You fail to prospect") or uo.injournal("Âû âñêîïàëè çåìëþ") or UO.injournal("There is no brimstone") or UO.injournal("There is nothing") or timer > 5 uo.canceltarget() #UO.Usetype("0x0F39") until uo.injournal("You fail to prospect") or uo.InJournal("line") or uo.InJournal("far away") or UO.injournal("There is no brimstone") or UO.injournal("There is nothing") or uo.injournal("Âû âñêîïàëè çåìëþ") end sub sub Mining() var i, j, tile, f, b, p f = 0 b = 0 while not uo.dead() for i = -2 to 2 for j = -2 to 2 tile = 168 while (not uo.PrivateGetTile(uo.GetX() + i, uo.GetY() + j, 251, tile, tile)) and (tile < 1343) if tile == 1617 then tile = 310 else if tile == 311 then tile = 1 else tile = tile + 1 endif endif wend if tile < 1617 then tile = 0 endif if tile < 1617 then uo.concolor(0x53) uo.Print("Êîïàåì òàéë " + Str((i + 2) * 5 + j + 3) + " èç 25...") uo.concolor(0) MiningTile(tile, uo.GetX() + i, uo.GetY() + j, 251) endif next next uo.Print("Çàâåðøèë êðóã. Ïðîäîëæàþ.") f = f + 1 if b == 2 then for p=1 to 11 wait(1000) uo.press(36) next uo.press(34) f = 0 b = 0 else if f == 3 then for p=1 to 5 wait(1000) uo.press(34) next f = 0 b = b + 1 endif endif wend end sub
  3. Ааааааааааааааааа парни попробовал я вскапывать цемлю наконец.......... это полный скремдец! есть у кого скрипт для этого? ну или может ктонить поможет переделать мининг под вскапывание?
  4. imaborg

    Обменяюсь

    Ну я селестит за 30 не ставил)) у меня файр гранк вроде 22 стоит.... эт слегка дорого, но я без бижи делал!! затрат логов оч много получалось!
  5. imaborg

    Обменяюсь

    я часто бегаю покупаю броню! так что ставь вендора на черный и выставляй комплекты с броней по 6 итемов. + отдельно хитер щиты и war axe. Будут адекватные цены - буду постоянным покупателем) в добавок можешь поставить вендора на скупку перьев и регов (по той цене, которую хочешь) - периодически бывают моменты когда перьев и регов куча валяется в доме) п.с. - мой вендор на черном рынке Graham (желтый плащ, с файр гранком в руках) цены ставлю наименьшие, по сравнению с остальными предложениями!
  6. imaborg

    Окно игры!

    есть специальные патчи для клиентов, которые изменяют стандартные 800-600 на любое значение... сильно много ты всё равно не увеличишь, ибо сервер не будет показывать объекты свыше 20тайлов... (поправьте если не 20 а меньше или больше - я не помню сколько точно) если инжектом не пользуешься, то разрешение меняют такие проги как: uostealth uorazor
  7. если земля не плодородная, можно ли это изменить? и какой дом наилучший для выращивания регов? (фермерский домик??)
  8. есть у кого скрипт на сбор посаженных регов? чтобы сам ходил и собирал!) ну и на посадку за одно))) заранее спс вот нашёл в предыдущих постах кое что: Сбор регов ,все реги которые растут он собирает,естественно вокруг себя,сам он не ходит.
  9. ну задачу он свою выполняет) так что можно выложить я думаю, 1.0 версию) к сожалению у меня нету игрового чара с прокаченным БС(( и возможности отладить скрипт мне не светит! но можно сказать совместными усилиями мы написали его ГЫГ) полюбому пригодиится комунить)
  10. опишите плиз процесс посева регов по стадиям! 1. как\чем сделать почву плодородной? (чем на что нажимать) 2. когда и как сажать и через сколько оно выростит? 3. как раздобыть зёрна? ну вообщем TIPS & TRICS по выращиванию реагентов!
  11. сервер неадекватно реагирует на слово "скуй" - кидает на тебя молчанку) куй - мат?)
  12. imaborg

    Отпуск

    отличного отпуска тебе месс!) ждем тебя со свежими силами и чистой головой))
  13. неееее мэн) это печалька какаято а не предложение! Я сначала подумал ты чочешь чтобы нпс вендоры продавали такое! И кста такая вещь была на какомто шарде уже)) темболее ты и так можешь выставить такие мешочки у своего вендора)))) котвмешке 1 котвмешке 2 итд. и придумай условие! В одном из этих 20 мешков стоимостью 100к лежит фуллвирм) сыграй! рискни и он твой!
  14. о! хоть что-то прояснилось у меня в голове) я незнал что массив из функции выносить нельзя! Спасиб! По поводу лишних переменных - я еще планировал сделать чтобы скрипт определял количество пустых мешков в паке или сундуке, искал пустой, запоминал серийник, заносил в игнор лист после того как сделается фулл дв! Чтобы к примеру поставил скрипт, ушел) а он тебе 10 комплектов брони сделал! Конечно это рассчитано не на вышку, но кто знает у кого ее сколько)))) вообще изначально я начал писать ээтот скрипт для того чтобы один чел поставил вендора и продавал различные комплекты брони - от вауксита до вышки! А то ему лень вручную сидеть) через пару часиков буду дома, попробую все это дописать!
  15. Писал скрипт для производства полного комплекта экскептиональной брони и помещения её в мешок! у меня слабый уровень скриптинга и никакой научной подготовки (учусь на юрфаке), прочитал пару раз все уроки на joko форуме, видел кучу разных скриптов и анализировал их. помогите дописать этот скрипт! sub main() var i var dwserial var expserial VAR FoodType='0x097B' # Тип еды #'0x097B' - жаренная рыба #'0x09F2' - жаренное мясо #'0x171F' - бананы dim dwitem[7] dwitem[0]='0x1416' #Breastplate dwitem[1]='0x141A' #Legs dwitem[2]='0x1417' #Arms dwitem[3]='0x1419' #Helm dwitem[4]='0x1418' #Gloves dwitem[5]='0x1413' #Gorget dwitem[6]='0x1B76' #Shield dim dwmenu[7] dwmenu[0]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Dwarven Platemail Breastplate'" dwmenu[1]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Dwarven Platemail Legs'" dwmenu[2]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Dwarven Platemail Arms'" dwmenu[3]="'What' 'Armor' 'Select' 'Helmets' 'Select' 'Dwarven Plate Helm'" dwmenu[4]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Dwarven Platemail Gloves'" dwmenu[5]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Platemail Gorget'" dwmenu[6]="'What' 'Shields' 'Select' 'Heater'" uo.CancelMenu() uo.CancelTarget() UO.Print("Укажите контейнер для FULL DW Exceptional комплекта!") UO.Exec('addobject Expbag') While UO.Targeting() Wait(300) Wend UO.Print("Укажите из какого металла будем ковать?") UO.Exec('addobject dwmetall') While UO.Targeting() Wait(300) Wend if UO.GetQuantity('dwmetall') <= 150 then uo.print("Недостаточное количество ингов в паке") wait(100) else uo.print('Приступаем к ковке Dwarven Platemail Breastplate') For i = 0 to 6 fulldw() next endif end sub Sub fullDW() while not UO.InJournal("exceptional") UO.DeleteJournal() UO.waitmenu("dwmenu[i]") ################################################################## uo.waittargetobject('dwmetall') uo.useobject('^0x13E3') while not (UO.InJournal("You create") or UO.InJournal("You make") or UO.InJournal("You destroy")) wait(300) wend repeat uo.findtype('dwitem[i]','-1','Backpack') uo.waittargettype('0x0F51') UO.Usetype('0x0FBB') wait(4000) until uo.injournal("You could make some material from that.") wend UO.Findtype('dwitem[i]','-1','Backpack') uo.MoveItem('finditem','-1','ExpBag') CheckLag() uo.print('Exceptional сделан!') uo.usetype('FoodType') wait(1000) end sub Sub CheckLag() UO.DeleteJournal("Backpack") UO.Click('backpack') repeat wait(100) until UO.InJournal("Backpack") end sub как я только не вставлял этот dwmenu ничего не выходит(( возможные ошибки: 1. заменить пробелы на запятые или убрать " в dwmenu[0]="'What' 'Armor' 'Select' 'Platemail' 'Select' 'Dwarven Platemail Breastplate'" 2. заменить uo.waitmenu("dwmenu") на uo.exec("waitmenu.............. или использовать uo.automenu пс - наткнулся в стандартной документации на вот что sub Craft(tool, resource, minresource, delay, menu1, choice1, menu2, choice2, menu3, choice3) if menu1<>"" then UO.Exec("automenu '"+menu1+"' '"+choice1+"'") if menu2<>"" then UO.Exec("automenu '"+menu2+"' '"+choice2+"'") if menu3<>"" then UO.Exec("automenu '"+menu3+"' '"+choice3+"'") while UO.Count(resource)>minresource if UO.Count(tool) < 1 then UO.Print("Tool not found") return end if UO. Print("Resource "+STR(UO.Count(resource))) wait(delay) UO. waittargettype(resource) UO.usetype(tool) wend UO.Print("Out of resource ("+STR(UO.Count(resource))+")") end sub не понимаю что означает и кроется за этим if menu1<>"" then и зачемто везде + ставит перед менюшками может в этом ключ к успеху моего скрипта?
×
×
  • Создать...