Автокаст

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
some
Posts: 197
Joined: 2007-05-23 19:51:18

Автокаст

Post by some »

Доброго времени суток .
Как давно я не играл в уо , вот собственно опять начал на клоне альфы и столкнулся с проблемой - не могу перекастовать людей которые на скриптах автокасты.
они прям без задержки идут один за одним, человек как будто не ошибается и не думает что жать .
собственно вопрос - может кто выложить скрипт акаста , чтобы я мог переделать свои скрипты ?
some
Posts: 197
Joined: 2007-05-23 19:51:18

Re: Автокаст

Post by some »

нет, это же обычные касты, а там вроде очередь кастов без задержки и если нажать во время каста на кнопку то он не физлиться а становиться в очередь
some
Posts: 197
Joined: 2007-05-23 19:51:18

Re: Автокаст

Post 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



нашел на форуме альфы, что то типо этого .
tylllkah
Posts: 243
Joined: 2012-03-20 00:32:06
Location: РФ, г. Москва

Re: Автокаст

Post 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
Не быть жадным - уже богатство, не быть расточительным – доход.
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
some
Posts: 197
Joined: 2007-05-23 19:51:18

Re: Автокаст

Post by some »

разобрался, кроме этого

Code: Select all

CastWaitSpeC() 

что должна делать эта функция ???
nana uHTepHeTa
Posts: 6
Joined: 2009-11-04 16:19:04

Re: Автокаст

Post by nana uHTepHeTa »

Требуется скрипт на касты магии с очередью кастов. Кастовать не готовый набор а произвольно. Что бы следующий каст кастовалося по кулдауну предыдущей магии без физлов.
Куплю. 283384670
papan1980
Post Reply