Понедельник, 10.12.2018, 22:38
Приветствую Вас Гость | RSS
Обитель неприкаянных душ
Главная | Каталог файлов | Регистрация | Вход
Меню сайта
Категории каталога
Скрипты [43]
Мини-чат
Главная » Файлы » Скрипты

Отличный скрипт на хеллинг+спирт спик
[ ] 27.10.2009, 18:45
В чем плюс...
1. Скрипт имеет систему реконнекта
2. Работает без перебоев
3. САМОЕ ВАЖНОЕ!!! скрипт не использует все бандаги сразу а потом их моет(bad) Скрипт берет из куучи одну бандажку хелится ей и моет её одну до полного её износа, и уж затем берет новую бандажку smile

Вот и сам скрипт:

sub Train_Healing()
var i,j,tekstr
uo.Exec('terminate Reconnector')
wait(1000)
uo.Exec('exec Reconnector')
wait(1000)
uo.undress()
wait(100)
repeat
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
tekstr=uo.str
wait(100)
cheklag()
uo.usetype(0x1530); Cursed Hat
uo.useskill ("Spirit Speak")
wait(2000)
j=0
repeat
wait(10)
j=j+1
until (uo.life <= tekstr-1) or (j>1000)
cheklag()
uo.undress()
wait(100)
cheklag()
uo.exec('bandageself')
Wait(2000)
uo.usetype('0x09EA') ; Тип того что кушаем !!!
wait(100)
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
cheklag()
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
cheklag()
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
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.useobject('self')
wait(2000)
uo.useobject('backpack')
wait(2000)
uo.Exec('terminate Train_Healing')
wait(5000)
uo.Exec('exec Train_Healing')
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

Категория: Скрипты | Добавил: fiker | Автор: Владимир Fiker
Просмотров: 562 | Загрузок: 8
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа
Поиск
Друзья сайта

    Статистика

    Онлайн всего: 1
    Гостей: 1
    Пользователей: 0

    Copyright MyCorp © 2018

    Бесплатный хостинг uCoz