Kosmozone wrote:ИДея такая, если мана 100
каст спел пойзон
пока мана не будет допустим 5....
чтоб до 5 маны он кастовал пойзон подряд
кому не сложно сделайте плиз
Code: Select all
#каст пойзона на последний таргет.
sub Pois()
VAR ManaNeed=5 ; сколько надо маны сам ставь, по идее 9
UO.Set('lasttarget','laststatus')
If NOT UO.Poisoned('lasttarget') Then
If UO.Mana>=ManaNeed Then
UO.Cast('Poison','laststatus')
Else
UO.Print("Malo manki!")
Endif
Else
UO.Print("4ar uge otravlen")
Endif
end sub
Kosmozone wrote:не... не работает....
мне нужен для прокачки магии
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация
Psimorph wrote:Kosmozone wrote:не... не работает....
мне нужен для прокачки магии
что со 100 кастовал кастовал кастовал пока маны не будет допустим 5
если маны 5 юз скил медитация
Ты бы если хоть чуть чуть понимал скрипт, не ответил бы таким тупым постом. Советую почитать хелп, просмотреть все команды используемые в этом скрипте, понять что они делают, и потом уже просить что то другое.
Code: Select all
VAR Fish='0x097B'
VAR TAR='0x009C15FF'
Sub Main()
VAR x = 0,y = 0,z = 0
While NOT UO.Dead()
If UO.Mana == UO.Int Then
Repeat
UO.DeleteJournal()
UO.WaitTargetObject(TAR)
UO.Cast('Poison')
x = UO.Mana
Repeat
Wait(100)
Until UO.InJournal("fizzle") OR x > UO.Mana
Until UO.Mana < 9
Else
Repeat
UO.UseSkill('Medit')
Wait(1000)
Until UO.Mana == UO.Int
EndIf
y = UO.SkillVal('Magery',2)/10
z = UO.SkillVal('Meditation',2)/10
UO.Print('Your skill Magery is '+str(y)+' And Meditation '+str(z)+'')
UO.UseType(Fish)
Wait(100)
UO.UseType(Fish)
Wait(100)
UO.UseType(Fish)
Wend
End Sub