Page 1 of 1

Автокаст

Posted: 2014-01-08 04:35:47
by some
Доброго времени суток .
Как давно я не играл в уо , вот собственно опять начал на клоне альфы и столкнулся с проблемой - не могу перекастовать людей которые на скриптах автокасты.
они прям без задержки идут один за одним, человек как будто не ошибается и не думает что жать .
собственно вопрос - может кто выложить скрипт акаста , чтобы я мог переделать свои скрипты ?

Re: Автокаст

Posted: 2014-01-08 09:51:33
by Mirage

Re: Автокаст

Posted: 2014-01-08 13:51:18
by some
нет, это же обычные касты, а там вроде очередь кастов без задержки и если нажать во время каста на кнопку то он не физлиться а становиться в очередь

Re: Автокаст

Posted: 2014-01-09 01:53:59
by some

Code: Select all

sub Glob()
Uo.SetGlobal('Cast','on')
end sub



sub Mana()
var Mana = Uo.Mana
Uo.SetGlobal('Cast','off')
   repeat
      wait(25)
   until Uo.Mana < Mana
Uo.SetGlobal('Cast','on')
end sub



sub lightL()
if Uo.GetGlobal('Cast')  == 'on' then
   UO.Cast('Lightning','laststatus')
           mana()
else
           Uo.Msg("Еще кастим")
end if
end sub



sub fsL()
if Uo.GetGlobal('Cast')  == on then
           UO.Cast('Flame Strike','laststatus')
           mana()
else
           Uo.Msg("Еще кастим")
end if
end sub



нашел на форуме альфы, что то типо этого .

Re: Автокаст

Posted: 2014-01-09 21:25:18
by tylllkah
### задержка каста

Sub CastWait()
var LastMana=UO.Mana
var LastHP = uo.life
UO.DeleteJournal()
REPEAT
If LastMana > UO.Mana or LastHP > uo.life Then
return
Else
If LastMana < UO.Mana Then
LastMana = UO.Mana
End If
if LastHP < uo.life Then
LastHP = uo.life
End If
End If
Wait(5)
Until UO.InJournal("You have been poizoned!")
end sub


### пример

sub apoi()
CastWaitSpeC()
var LastMana=UO.Mana
UO.Cast('Lightning','laststatus')
REPEAT
Wait(5)
Until LastMana > UO.Mana
end sub


### пример 2
sub supalait()
UO.Cast('Lightning','lasttarget')
CastWait()
UO.Cast('Lightning','lasttarget')
CastWait()
UO.Cast('Lightning','lasttarget')
CastWait()
UO.Cast('Flame Strike','lasttarget')
CastWait()
end sub

Re: Автокаст

Posted: 2014-01-10 03:27:07
by some
разобрался, кроме этого

Code: Select all

CastWaitSpeC() 

что должна делать эта функция ???

Re: Автокаст

Posted: 2014-01-22 18:10:11
by nana uHTepHeTa
Требуется скрипт на касты магии с очередью кастов. Кастовать не готовый набор а произвольно. Что бы следующий каст кастовалося по кулдауну предыдущей магии без физлов.
Куплю. 283384670
papan1980