Получить триал аккаунт EverQuest 2 на 14 дней бесплатно
На сайте нет свежих новостей В Галерее нет новых фотографий Наш TeamSpeak сервер: ts.hussars-online.ru:8767 (пароль tmppass)
Список форумов Гусары-онлайн
Игровой форум Hussars-online
Присоединяйтесь к нашему сообществу! Мы ВКонтакте Мы в Facebook Мы в Twitter
Получить триал аккаунт EVE Online на 14 дней бесплатно
Перейти к разделу EVE Online на сайте Перейти к разделу EverQuest 2 на сайте Перейти к разделу Lord of the Rings Online на сайте Перейти на сайт Ultima Online гильдии [Hussars]
   RSS Feed: Игровой форум Hussars-online  (подробности)   Home * FAQ * Поиск * Пользователи * Группы * Награды * Регистрация * Профиль * Войти и проверить личные сообщения * Вход  
[script] Прокачка Camping

 
Начать новую тему   Ответить на тему    Список форумов Гусары-онлайн -> UO Скрипты
Предыдущая тема :: Следующая тема  
Автор Сообщение
Askaneli
Модератор

avatar

Награды: 6 [детали]
''Почётный флудер'' I степени (Всего: 1) ''Флудер 2009'' (Всего: 1) ''Флудер 2010'' (Всего: 1)
''Хранитель форума 2011'' (Всего: 1) Редактор новостей (Всего: 1) Участник турнира (Всего: 1)
Благодарностей: 52

Зарегистрирован: 29.01.2007
Сообщения: 5627
Откуда: Уфимский схрон

СообщениеДобавлено: 05.05.2008 09:56    Заголовок сообщения: Ответить с цитатой

Кемпинг. Чар стоит и раскидывает по 1 штучке хворост вокруг себя и поджигает. Если не поджёг, то следущую не выкладывает а пытается поджечь. В данной вариации обкладывает квадрат 5х7 (особенности моей коморки и обстановки в ней). Сундук с хворостом желательно ставить подальше от чара на том расстоянии с которого он открывается. Почему-то за сундук просто хворост не бросается. Если хворост вдруг кончился - выход из УО. Если Кемпинг вдруг ГМ - выход из УО.
Код:

var sunduk='0x4005CCAF'

sub Camping()
var mx=uo.getx(),my=uo.gety(),x,y
uo.set('finddistance',5)
uo.useobject(Sunduk)
wait(200)
uo.DeleteJournal()
while 1==1
   for x=mx-2 to mx+2
      for y=my-3 to my+3
         cheklag()
         if uo.count('0x0DE1','0x0000')<10 then
            UO.FindType('0x0DE1','0x0000',Sunduk)
            wait(200)
            UO.Grab('100','finditem')
            wait(200)
         end if
         if (uo.count('0x0DE1','0x0000')==0) or (uo.skillval('Camping',1)==1000) then
            uo.closeuo()
         end if
         uo.findtype('0x0DE1','0x0000','ground')
         wait(200)
         if UO.FindCount()<>0 then
            uo.useobject('finditem')
            wait(1500)            
         else
            uo.findtype('0x0DE1','0x0000','backpack')
            wait(200)
            uo.drop('1',STR(x),STR(y),STR(uo.getz()),'finditem')
            wait(700)
            uo.findtype('0x0DE1','0x0000','ground')
            wait(200)            
            uo.useobject('finditem')
            wait(1500)            
         end if
      next
   next
wend
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
.
Начать новую тему   Ответить на тему    Список форумов Гусары-онлайн -> UO Скрипты Часовой пояс: GMT + 4
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Vote on the EverQuest 2 Top 200 Рейтинг Ролевых Ресурсов Rambler's Top100 Copyright © 2007-2011 Hussars-online
Powered by phpBB © 2001, 2005 phpBB Group
Appalachia Theme © 2002 Droshi's Island