Dark Paradise

Kód: Vybrat vše

sub necro_MR_med()
var i
While True
    IF NOT kontrola_regu() OR NOT kontrola_svitku() THEN
      return
    EndIF
    While UO.Mana >= 15
        UO.WaitTargetSelf()
        UO.UseType("0x0E35","0x0079") 
        Repeat
            Wait(100)
        Until UO.InJournal("Uus Jux|The spell fizzles")
        Wait(3750)
    Wend
    prelivani_a_piti()
Wend
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub kontrola_regu()
   IF UO.Count("0x0F8F","0x0000") < 1 OR UO.Count("0x0F8B","0x0000") < 1 THEN
      UO.Print("Nemas potrebne regy!")
      return 0
   EndIF
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub kontrola_svitku()
   IF UO.Count("0x0E35","0x0079") < 1 THEN
      UO.Print("Nemas svitky!")
      return 0
   EndIF
end sub
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sub prelivani_a_piti()
    If UO.Mana < UO.INT Then
        If (UO.Count("0x1843","0x0005") > 0 && UO.Count("0x0F0E","0x0000") > 0) || (UO.Count("0x1843","0x0003") > 0 && UO.Count("0x0F0E","0x0000") > 0) THEN
            UO.DeleteJournal()
            UO.WaitTargetType("0x0F0E","0x0000")
            UO.UseType("0x1843")
            repeat
                wait(100)
            Until UO.InJournal("You put the")    
        EndIF
        wait(200)
        IF UO.Count("0x0F09") > 0 then
            UO.UseType("0x0F09")
        EndIF
    EndIf
end sub