Magery-Gainscript

[Lorgan]

Auf wunsch poste ich hier ein kleines aber feines Magerygainscript. Es killt und resst einen Spieler!

Code: Alles auswählen

sub magery()
#Programmiert von BB21 für Sigena
 
VAR i = 1

 UO.DeleteJournal()
 UO.DeleteJournal()
 UO.DeleteJournal()
 
 UO.AddObject('Spieler','0x66666666') 
 UO.AddObject('Spieler')      
 
REPEAT
 wait(500)
UNTIL (UO.GetSerial('Spieler')<>'0x66666666')

WHILE TRUE
 
wait(2000)
IF UO.InJournal("Leiche") THEN
  WHILE uo.mana < 60 
   UO.UseSkill("Meditation")
   wait(10000)
  WEND
   UO.SAY(".castspell Wiederbeleben") 
 #UO.SAY(".castspell Wiedergeburt") --> Nekro C8 
   UO.waittargetobject('Spieler')
   WAIT(11000)
    while UO.InJournal("konntet")
       UO.DeleteJournal()
       UO.DeleteJournal()
       UO.DeleteJournal() 
       UO.SAY(".castspell Wiederbeleben") 
     #UO.SAY(".castspell Wiedergeburt") --> Nekro C8 
       UO.waittargetobject('Spieler')
       WAIT(11000)   
    wend  
END IF  

        UO.DeleteJournal()
        UO.DeleteJournal()
        UO.DeleteJournal()

   WHILE uo.mana < 60 
   UO.UseSkill("Meditation")
   wait(10000)
   WEND
  UO.SAY(".castspell Entladung")
  WAIT(200)
  UO.waittargetobject('Spieler')
  wait(6000)

WEND

end sub


#Allgemeine Funktionen
sub addObjectByName(name)
 UO.AddObject(name,'0x66666666') 
 UO.AddObject(name)   
 UO.Print("adding type" + name)
    
 REPEAT
 wait(500)
 UNTIL (UO.GetSerial(name)<>'0x66666666')
end sub

Viel Spaß damit