Page 1 of 1

НА хелинг

Posted: 2004-06-21 19:39:44
by Ex-Brodyaga
Дайте плиз скрипт + с спиритом для ДРВ

Re: НА хелинг

Posted: 2004-06-22 01:17:52
by M0ke
Ex-Brodyaga wrote:Дайте плиз скрипт + с спиритом для ДРВ

;Скрипт на Healing + SpiritSpeak

sub Healing()
var exit, LastTimer, live
uo.disarm()
wait(2000)
exit = 0
while exit <> 1
live = UO.STR
CheckLag()
uo.waittargettype ('0x1008')
uo.usetype ('0x0E20')
wait(500)
uo.usetype('0x0E85') ;Курсанутая кирка

uo.useskill('Spirit Speak')

repeat
wait(500)
until UO.Life < live
CheckLag()

LastTimer=UO.Timer()

repeat
UO.BandageSelf()
wait(4000)
until UO.Life==UO.STR OR LastTimer+300<UO.Timer()
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(50)
until UO.InJournal('backpack')
end sub

Posted: 2004-06-23 09:00:07
by Bloodmoon
Че-то у меня не пашет:(.
Говорит,что:"Не найден объект"!:(

Posted: 2004-06-23 21:31:58
by BETEPAH
Перед началом скрипта надо одеть "курсанутую вещь" и написать в консоле ,setdress cursa

;Сделать снимаемую курсу (1 шмот) одеть ее и в консоли:
;,setdress cursa
;Кинуть в пак бандажек сколько может держать чар и вперед
sub HealTrain()
VAR CharHP=160, LastTimer
uo.useskill('Spirit Speak')
repeat
wait(500)
While UO.GetHP()>CharHP-5
wait(500)
Wend
UO.UnDress()
UO.BandageSelf()
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100
Wend
end sub

Posted: 2004-06-24 09:33:29
by Bloodmoon
BETEPAH wrote:Перед началом скрипта надо одеть "курсанутую вещь" и написать в консоле ,setdress cursa

;Сделать снимаемую курсу (1 шмот) одеть ее и в консоли:
;,setdress cursa
;Кинуть в пак бандажек сколько может держать чар и вперед
sub HealTrain()
VAR CharHP=160, LastTimer
uo.useskill('Spirit Speak')
repeat
wait(500)
While UO.GetHP()>CharHP-5
wait(500)
Wend
UO.UnDress()
UO.BandageSelf()
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal('You don') OR UO.InJournal('You put') OR UO.InJournal('You applay the') OR UO.Timer()>LastTimer+100
Wend
end sub

В Ультиме есть консоль?

Posted: 2004-06-24 15:25:16
by Ex-Brodyaga
Имеется ввиду просто в игре написать

Posted: 2004-06-24 15:43:32
by Bloodmoon
Ex-Brodyaga wrote:Имеется ввиду просто в игре написать

Ааа....спасибо за объяснение:).

Posted: 2004-06-24 15:46:38
by Bloodmoon
А этот скрипт можно просто оставлять,чтоб качался хилинг?:)

Posted: 2004-06-24 17:59:40
by BETEPAH
да конечно

Posted: 2004-06-25 20:28:37
by Bloodmoon
BETEPAH wrote:да конечно

Выдает ошибку.