Доброго времени суток .
Как давно я не играл в уо , вот собственно опять начал на клоне альфы и столкнулся с проблемой - не могу перекастовать людей которые на скриптах автокасты.
они прям без задержки идут один за одним, человек как будто не ошибается и не думает что жать .
собственно вопрос - может кто выложить скрипт акаста , чтобы я мог переделать свои скрипты ?
Автокаст
Moderators: Murderator+, Murderator
Re: Автокаст
нет, это же обычные касты, а там вроде очередь кастов без задержки и если нажать во время каста на кнопку то он не физлиться а становиться в очередь
Re: Автокаст
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: Автокаст
### задержка каста
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
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"
TylllKaH
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Re: Автокаст
разобрался, кроме этого
что должна делать эта функция ???
Code: Select all
CastWaitSpeC()
что должна делать эта функция ???
-
- Posts: 6
- Joined: 2009-11-04 16:19:04
Re: Автокаст
Требуется скрипт на касты магии с очередью кастов. Кастовать не готовый набор а произвольно. Что бы следующий каст кастовалося по кулдауну предыдущей магии без физлов.
Куплю. 283384670
papan1980
Куплю. 283384670
papan1980