cast timer

[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()"
какой её аналог есть ну чтобы ждало завершения каста ?

спасибо зарание

[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

[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")

[flake]

Классно народ выдумывает новые функции инжи
UO.WaitEndCast()

Я хочу тогда
UO.Kill( [object] )
И
UO.Set( 'SkillValue', '1000' )

[pivovar]

Классно народ выдумывает новые функции инжи
UO.WaitEndCast()

Я хочу тогда
UO.Kill( [object] )
И
UO.Set( 'SkillValue', '1000' )

Проста я скопировал скрипт а там такая штука была : )

[pivovar]

Вот КастВэйтер скриптовый... как функция
можно вставлять перед кастами, вместо вэйта

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 лайты подряд ?

[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

[pivovar]

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мс от секунды

[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

[Solaire]

а этот скрипт я кастую лайтнинг
он показывает 220ms , что это значит? Не может же лайта кастоватся
0.22мс от секунды

UO.Print(str((UO.Timer()-lt)*100)+"ms")
Ну да, опечаталась слегка.