Получить триал аккаунт 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] Фабрика по производству бутылок

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

avatar

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

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

СообщениеДобавлено: 05.05.2008 10:02    Заголовок сообщения: [script] Фабрика по производству бутылок Ответить с цитатой

Скрипт для фабрики ...
Было дело развлекали нубов тем что нанимали на крафт бутылок их )))

Код:

VAR Sunduk='0x400E90E6' ## Сундук, откуда берут айрон и кладут обратно бутылки
VAR ResCount=500 ## Количество забираемого айрона, зависит от силы игрока

sub Tinkering()
VAR LastTimer,p

uo.Exec("filterspeech clear")
uo.Exec("filterspeech on")
uo.Exec("filterspeech add 'You make the item'")
uo.Exec("filterspeech add 'The item is of'")
uo.Exec("filterspeech add 'Due to your exceptional skill, the item is of superior quality'")
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.useobject('backpack')
uo.cancelmenu()
uo.automenu('Tinkering','Tools')
uo.automenu('Tools','empty bottle (3 iron ingot)')
uo.useobject(Sunduk)
wait(1000)
LastTimer=uo.Timer()
while not uo.dead()
   ToHide()
   if uo.Timer()>(LastTimer+3000) then
      if uo.skillval("Spirit Speak",1)<1000 then
         uo.print("Spirit Speak...")
         p=0
         repeat
            p=p+1
            uo.useskill("Spirit Speak")
            uo.deletejournal()
            repeat
               wait(10)
            until uo.InJournal("netherworld") or uo.InJournal("You must wait to perform another action") or uo.dead()
         until (uo.InJournal("You establish a connection to the netherworld.")) or (p>=10) or uo.dead()
      end if
      Eda()
      LastTimer=uo.Timer()
   end if
   
   if uo.count('0x1BEF','0x0000')<30 then
      uo.FindType('0x0F0E','0x0000','backpack')
      cheklag()
      uo.moveitem('finditem','-1',Sunduk)
      wait(1000)
      uo.FindType('0x1BEF','0x0000',Sunduk)
      cheklag()
      uo.moveitem('finditem',STR(ResCount),'backpack')
      wait(1000)
      cheklag()
   end if
   
   if uo.count('0x1BEF','0x0000')<3 then
      uo.closeuo()
   end if
   
   uo.deletejournal()
   uo.usetype('0x1EBC','0x0000')
   repeat
      Wait(10)
   until uo.InJournal("You put the") OR uo.InJournal("Tinkering failed")
wend
end sub

Sub Eda()
if uo.count('0x097B','0x0000')<50 then ## Жрачка, кушаем до изнеможения
   uo.findtype('0x097B','0x0000',Sunduk)
   Cheklag()
   uo.moveitem('finditem',STR(50-uo.count('0x097B','0x0000')),'backpack')
   wait(1000)
end if
uo.deletejournal()
repeat
   uo.usetype('0x097B','0x0000')
   wait(1000)
until uo.injournal("You are stuffed!") or uo.injournal("You can't think of a way to use that item.")
end sub

Sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
   wait(10)
until uo.InJournal("backpack")
end sub
 
Sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
   While (uo.ObjAtLayer('Bpack') == '')
      if RFlag Then
         ReconnectTime = MakeTime()
         RFlag = 0
      endif
      Wait(70000) # WorldSave Protection
      uo.Say('')
      Wait(5000)
      uo.Say('')
      Wait(5000)
      uo.Say('')
      Wait(5000)
      uo.LDblClick(357,164)
      uo.LClick(616,459)
      Wait(5000)
   WEnd
   Wait(3000)
   if (RFlag == 0) and (ReconnectTime <> '0') Then
      uo.TextOpen()
      uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
      uo.RClick(196,193)
      wait(2000)
      uo.RClick(196,193)
      wait(2000)
      uo.useobject('self')
      wait(2000)
      uo.useobject('backpack')
      wait(2000)
      uo.Exec('terminate Tinkering')
      wait(5000)
      uo.Exec('exec Tinkering')
      wait(5000)
      RFlag = 1
      ReconnectTime = '0'
   endif
Until false
end sub

Sub MakeTime()
VAR D, T, Ret, i
Ret = STR(uo.Time())
T = ""
For i = 0 To Len(Ret)
   T = Ret[Len(Ret)-i] + T
   If (I == 2) OR (I == 4) Then
      T = ":" + T
   EndIf
Next
Ret = STR(uo.Date())
D = ""
For i = 0 To Len(Ret)
   D = Ret[Len(Ret)-i] + D
   If (I == 2) OR (I == 4) Then
      D = "." + D
   EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

Sub ToHide()
while not uo.hidden()
   uo.exec("warmode 0")
   uo.DeleteJournal()
   uo.useskill("Hiding")
   repeat
      wait(10)
   until uo.InJournal("You have hidden yourself well") or uo.InJournal("You can't seem to hide here.") or uo.InJournal("You are preoccupied with thoughts of battle.")
   if uo.InJournal("You are preoccupied with thoughts of battle.") then
      uo.exec("warmode 0")
   end if
wend
end sub

_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." Askaneli.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Askaneli
Модератор

avatar

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

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

СообщениеДобавлено: 10.01.2012 11:00    Заголовок сообщения: Ответить с цитатой

Помню привёл одного товарища и поставил на крафт бутылочек с этим скриптом, ну парень видимо не знал что персонажа надо кормить и он у него как начал хрустеть котлету за котлетой Smile
_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." 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