Magery

Details #

All scripts have been collected over the years and if available will still contain the creators details, these scripts may run well or not.

Scripts #

mage.sc #

sub main()
	aaa:
	
    repeat
    Uo.deletejournal(0) 
	UO.Press(113) # Hotkey in game to Cast Spell
	wait(2000)
  
   until UO.Injournal("You do not have enough mana to cast that spell.") || UO.InJournal("Insufficient Mana.") 
   uo.print("outta mana!")
   
   repeat
   wait(2000);
   Uo.Useskill("Meditation");
   until UO.InJournal("You enter");
   
   repeat
   wait(2000);
   until UO.InJournal("You stop") || UO.InJournal("You lost")
 
goto aaa
end sub

magery 2.sc #

sub Main()
While TRUE 
repeat
UO.Waittargettype("0x0efa")
UO.Exec("cast 'Reveal'") 
wait(2500)
until (UO.Mana < 49) 
repeat
UO.Exec("useskill Meditation") 
wait(5000)
until (UO.Mana == UO.INT)
end if
WEND 
end sub

magery 3.sc #

sub magery()
a:

UO.Press(112) # Hotkey in game to Cast Spell
wait(5000);
repeat
until UO.InJournal("You do not have enough mana")
uo.print("outta mana!")
wait(2000)
until UO.Mana<=20
UO.DeleteJournal();

repeat
wait(2000);
Uo.Useskill("Meditation");
until UO.InJournal("You enter");

repeat
wait(2000);
until UO.InJournal("You stop") || UO.InJournal("You lost")

uo.print("end");

goto a
end sub

magery PP.sc #

sub main()
	var book = 0x0EFA
	
	While UO.SkillVal('Magery') < 1000
		While UO.Mana >= 50
			UO.WaitTargetType(book)
			UO.Cast("Resurrection")
			Wait(4500)
		Wend
 		
		While UO.Mana < UO.INT
			UO.Useskill("Meditation") 
			Wait(1000)
		Wend
	Wend
	
	While UO.SkillVal('Hiding') < 1000
		UO.UseSkill('Hiding')
		Wait(10000)
	Wend
	
	Repeat
		UO.WaitMenu('What', 'P', 'W', 'u')
		UO.UseSkill('Tracking')
		Wait(10000)
	Until False
end sub

mage 2.sc #

sub main()
	aaa:
	
    repeat
    Uo.deletejournal(0) 
	UO.Press(116)  # Hotkey in game to Cast Spell
	wait(2000)
  
   until Uo.Injournal("You do not have enough mana to cast that spell.") || UO.InJournal("Insufficient Mana.") || UO.InJournal("Not enough mana!") 
   uo.print("outta mana!")
   
   repeat
   wait(2000);
   Uo.Useskill("Meditation");
   until UO.InJournal("You enter");
   
   repeat
   wait(2000);
   until UO.InJournal("You stop") || UO.InJournal("You lost")
 
goto aaa
end sub

magebot.sc #

sub main()
	var requester
	Repeat
		UO.DeleteJournal()
		While NOT UO.InJournal("heal|cure|buff|dispel")
			Wait(200)
			checkMana()
		Wend
		requester = UO.JournalSerial(0)
		If UO.GetDistance(requester) < 1 Then
			UO.Print("Invalid requester")
		Else
		If UO.InJournal("heal") Then
			UO.Print("Healing...")
			heal(requester)
		Else
		If UO.InJournal("cure") Then
			UO.Print("Curing...")
			cure(requester)
		Else
		If UO.InJournal("buff") Then
			UO.Print("Buffing...")
			buff(requester)
		Else
		If UO.InJournal("dispel") Then
			UO.Print("Dispelling...")
			dispel(requester)
		End If
		End If
		End If
		End If
		End If
	Until FALSE
end sub

sub checkMana()
	If UO.Mana < 50 Then
		meditate()
	End If
end sub

sub heal(target)
	If UO.Mana < 20 Then
		meditate()
	End If
	UO.WaitTargetObject(target)
	UO.Cast("Heal")
	Wait(2000)
end sub

sub cure(target)
	If UO.Mana < 20 Then
		meditate()
	End If
	UO.WaitTargetObject(target)
	UO.Cast("Cure")
	Wait(2000)
end sub

sub buff(target)
	If UO.Mana < 50 Then
		meditate()
	End If
	UO.WaitTargetObject(target)
	UO.Cast("Strength")
	Wait(2000)
	UO.WaitTargetObject(target)
	UO.Cast("Agility")
	Wait(2000)
	UO.WaitTargetObject(target)
	UO.Cast("Cunning")
	Wait(2000)
	UO.WaitTargetObject(target)
	UO.Cast("Bless")
	Wait(2000)
	UO.WaitTargetObject(target)
	UO.Cast("Protection")
	Wait(2000)
end sub

sub dispel(target)
	If UO.Mana < 20 Then
		meditate()
	End If
	UO.WaitTargetObject(target)
	UO.Cast("Dispel")
	Wait(2000)
end sub

sub meditate()
	UO.DeleteJournal()
	Repeat
		UO.UseSkill("Meditation")
		Wait(2000)
	Until UO.InJournal("You enter|at peace")
	While UO.Mana < UO.Int && NOT UO.InJournal("lost your")
		Wait(500)
	Wend
end sub