Kód: Vybrat vše
sub Necromancy()
var mana = 1 ; 0 = MR, 1 = TMR, 2 = meditace
var dex
Dim refresh[2]
refresh[0] = "0x0005"
refresh[1] = "0x0003"
UO.FilterSpeech("on")
While True
While UO.Mana > 20
UO.Set("quiet", 1)
UO.FilterSpeech("add", "Select Target")
UO.Set("quiet", 0)
dex = UO.Dex
UO.DeleteJournal()
UO.WaitTargetSelf()
UO.UseType("0x0E35","0x0079")
Repeat
Wait(100)
Until UO.InJournal("You must wait|You feel yourself|The spell")
UO.Set("quiet", 1)
UO.FilterSpeech("clear")
UO.Set("quiet", 0)
Wait(2250)
Wend
If UO.Mana < 20 then
If mana == 2 then
While UO.Mana < UO.INT
UO.DeleteJournal()
UO.UseSkill("Meditation")
Journal.Wait("You enter|You lose|You must wait|You are at peace.")
Wait(2500)
Wend
Else
While NOT UO.Count("0x0F09", refresh[mana])
Preliti("0x1843", refresh[mana])
Wend
Piti("0x0F09", refresh[mana])
EndIf
EndIf
Wend
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Piti(type, color)
UO.DeleteJournal()
UO.FindType(type, color, "my")
UO.UseObject("finditem")
Wait(500)
Repeat
Wait(100)
Until UO.InJournal("You put the")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub Preliti(type, color)
UO.DeleteJournal()
UO.FindType(type, color, "my")
UO.WaitTargetType("0x0F0E","0x0000")
UO.UseObject("finditem")
Wait(500)
Repeat
Wait(100)
Until UO.InJournal("You put the|Pri praci s nadobou")
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sub WaitForJournal(text)
Repeat
Wait(100)
Until UO.Injournal(text)
end sub