Page 1 of 1
cast timer
Posted: 2005-07-08 10:43:18
by pivovar
Кому не лень плз помогите
как написать скрипт который будет мне говорить время сколько будет колдоватся каждое заклинание . Т.к. я нашёл тут скрипт
Code: Select all
sub multi_Drain()
VAR a = 3000 ; Подбери время каста
UO.Cast( 'Mana Drain', 'laststatus' )
wait( a )
UO.Cast( 'Mana Drain', 'laststatus' )
wait( a )
UO.Cast( 'Mana Drain', 'laststatus' )
wait( a )
UO.Cast( 'Mana Drain', 'laststatus' )
wait( a )
end sub
и я хочу узнать вот это "a"
и ещё есле не лень
Code: Select all
sub supermegagiga()
for var i=1 to 4
UO.Cast( 'Mana Drain', 'laststatus' )
UO.WaitENDCAST()
next
uo.exec('wall of stone')
UO.waitENDCAST()
uo.exec('paralyze field')
END SUB
Так в этом скрипте пишет что не знает команды " uo.waitendcast()"
какой её аналог есть ну чтобы ждало завершения каста ?
спасибо зарание
Posted: 2005-07-08 11:35:04
by 666Man666
Вот КастВэйтер скриптовый... как функция
можно вставлять перед кастами, вместо вэйта
Code: Select all
sub CastWait()
var LastMana=UO.Mana
UO.DeleteJournal()
REPEAT
If LastMana > UO.Mana or UO.InJournal("The spell fizzles") Then
return
Else
If LastMana < UO.Mana Then
LastMana = UO.Mana
End If
End If
Wait(250)
Until UO.Dead()
end sub
Posted: 2005-07-08 11:51:19
by Solaire
Code: Select all
VAR m=UO.Mana, lt
UO.WaitTargetObject('laststatus')
UO.Cast('Mana Drain')
lt=UO.Timer()
repeat
wait(50)
until UO.Mana<m
UO.Print(str((UO.Timer()-lt)*10)+"ms")
Posted: 2005-07-08 12:02:26
by flake
Классно народ выдумывает новые функции инжи
UO.WaitEndCast()
Я хочу тогда
UO.Kill( [object] )
И
UO.Set( 'SkillValue', '1000' )
Posted: 2005-07-08 13:06:17
by pivovar
flake wrote:Классно народ выдумывает новые функции инжи
UO.WaitEndCast()
Я хочу тогда
UO.Kill( [object] )
И
UO.Set( 'SkillValue', '1000' )
Проста я скопировал скрипт а там такая штука была : )
Posted: 2005-07-08 13:10:07
by pivovar
666Man666 wrote:Вот КастВэйтер скриптовый... как функция
можно вставлять перед кастами, вместо вэйта
Code: Select all
sub CastWait()
var LastMana=UO.Mana
UO.DeleteJournal()
REPEAT
If LastMana > UO.Mana or UO.InJournal("The spell fizzles") Then
return
Else
If LastMana < UO.Mana Then
LastMana = UO.Mana
End If
End If
Wait(250)
Until UO.Dead()
end sub
а может ктонить из данных мной скриптов обьединить с этим так , чтобы кастовалось 4 или 3 лайты подряд ?
Posted: 2005-07-08 13:14:59
by pivovar
Code: Select all
sub light()
for var i=1 to 4
uo.cast('Lightning','last')
var LastMana=UO.Mana
UO.DeleteJournal()
REPEAT
If LastMana > UO.Mana or UO.InJournal("The spell fizzles") Then
return
Else
If LastMana < UO.Mana Then
LastMana = UO.Mana
End If
End If
Wait(250)
Until UO.Dead()
next
end sub
вот попробовал но всеравно кастует 1 раз , а нужно 3
Posted: 2005-07-08 13:15:58
by pivovar
Solaire wrote:Code: Select all
VAR m=UO.Mana, lt
UO.WaitTargetObject('laststatus')
UO.Cast('Mana Drain')
lt=UO.Timer()
repeat
wait(50)
until UO.Mana<m
UO.Print(str((UO.Timer()-lt)*10)+"ms")
а этот скрипт я кастую лайтнинг
он показывает 220ms , что это значит? Не может же лайта кастоватся
0.22мс от секунды
Posted: 2005-07-08 15:01:15
by 666Man666
Вот тебе объеденение моего с твоим
и запускаеш просто exec multi_Drain, естессно стрелку в таргет кого будеш дрейнить
Code: Select all
sub multi_Drain()
UO.Cast('Mana Drain','lasttarget')
CastWait()
UO.Cast('Mana Drain','lasttarget')
CastWait()
UO.Cast('Mana Drain','lasttarget')
CastWait()
UO.Cast('Mana Drain','lasttarget')
CastWait()
end sub
Sub CastWait()
var LastMana=UO.Mana
UO.DeleteJournal()
REPEAT
If LastMana > UO.Mana or UO.InJournal("The spell fizzles") Then
return
Else
If LastMana < UO.Mana Then
LastMana = UO.Mana
End If
End If
Wait(250)
Until UO.Dead()
end sub
Posted: 2005-07-08 15:29:12
by Solaire
pivovar wrote:а этот скрипт я кастую лайтнинг
он показывает 220ms , что это значит? Не может же лайта кастоватся
0.22мс от секунды
UO.Print(str((UO.Timer()-lt)*10
0)+"ms")
Ну да, опечаталась слегка.