Получить триал аккаунт 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] Прокачка Spirit Speak и Evaluate Intelligence

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

avatar

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

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

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

Скрипт на прокачку Спирита и Евал для начала
В переменной obj какая нить живность, желательно в дом её затащить незатамленной, тада не подохнет.
Время от времени чар кушает жаренные рыбные котлетки.
Код:

var obj='0x002179AD'
sub Evaluate()
var count=0,i=0
uo.useobject('backpack')
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
i=0
repeat
i=i+1
cheklag()
uo.print("Evaluating...")
UO.Useskill('Evaluating',obj)
wait(5500)
if i==30 then
uo.usetype('0x097B')
wait(1000)
i=0
cheklag()
uo.print("Spirit Speak...")
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
end if
until UO.Dead()
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(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate Evaluate')
wait(1000)
UO.Exec('exec Evaluate')
wait(1000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
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


_________________
"Весь мир в предвкушении очередного апокалипсиса, у нас в стране он судя по всему уже прошёл..." 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