Yoko
http://forum.yoko.com.ua/

cast timer
http://forum.yoko.com.ua/viewtopic.php?f=20&t=4455		 Page 1 of 1
Author:  pivovar [ 2005-07-08 10:43:18 ]
Post subject:  cast timer
Кому не лень плз помогите
как написать скрипт который будет мне говорить время сколько будет колдоватся каждое заклинание . Т.к. я нашёл тут скрипт
Code:
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:
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()"
какой её аналог есть ну чтобы ждало завершения каста ?

спасибо зарание
Author:  666Man666 [ 2005-07-08 11:35:04 ]
Post subject: 
Вот КастВэйтер скриптовый... как функция
можно вставлять перед кастами, вместо вэйта

Code:
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
Author:  Solaire [ 2005-07-08 11:51:19 ]
Post subject: 
Code:
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")
Author:  flake [ 2005-07-08 12:02:26 ]
Post subject: 
Классно народ выдумывает новые функции инжи :)
UO.WaitEndCast() :lol:

Я хочу тогда
UO.Kill( [object] )
И
UO.Set( 'SkillValue', '1000' )
Author:  pivovar [ 2005-07-08 13:06:17 ]
Post subject: 
flake wrote:
Классно народ выдумывает новые функции инжи :)
UO.WaitEndCast() :lol:

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


Проста я скопировал скрипт а там такая штука была : )
Author:  pivovar [ 2005-07-08 13:10:07 ]
Post subject: 
666Man666 wrote:
Вот КастВэйтер скриптовый... как функция
можно вставлять перед кастами, вместо вэйта

Code:
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 лайты подряд ?
Author:  pivovar [ 2005-07-08 13:14:59 ]
Post subject: 
Code:
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 :(
Author:  pivovar [ 2005-07-08 13:15:58 ]
Post subject: 
Solaire wrote:
Code:
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мс от секунды
Author:  666Man666 [ 2005-07-08 15:01:15 ]
Post subject: 
Вот тебе объеденение моего с твоим
и запускаеш просто exec multi_Drain, естессно стрелку в таргет кого будеш дрейнить

Code:
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
Author:  Solaire [ 2005-07-08 15:29:12 ]
Post subject: 
pivovar wrote:
а этот скрипт я кастую лайтнинг
он показывает 220ms , что это значит? Не может же лайта кастоватся
0.22мс от секунды

UO.Print(str((UO.Timer()-lt)*100)+"ms")
Ну да, опечаталась слегка. :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/