Resisting Spells

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 #

wf.sc #

sub main() 
 start:
 IF UO.Mana>=90 THEN
 UO.exec("useobject 'wf'")
 wait(2000)
 endif
 goto start
end sub

wf 2.sc #

sub main()
  aaa:
	UO.Exec("usetype wfscroll")
         wait(3000)
  goto aaa
end sub

casting wf.sc #

sub main()
	var scroll
	var book
	
	Repeat
		UO.FindType(0x1C13, -1, 'my')
		book=UO.GetSerial("finditem")
		
		UO.FindType(0x0E34, -1, 'my')
		scroll = UO.GetSerial('finditem')
		
		If UO.INT < 150 Then
			intBuff()
		End If

		While UO.Mana > 100
			scribe(scroll, book, 0x6C)
		Wend
 		
		While UO.Mana < UO.INT
			meditate()
		Wend
	Until FALSE
end sub

sub intBuff()
	sub buff(target)
	If UO.Mana < 50 Then
		meditate()
	End If
	UO.WaitTargetObject('self')
	UO.Cast("Cunning")
	Wait(3000)
	UO.WaitTargetObject('self')
	UO.Cast("Bless")
	Wait(3000)
	UO.Cast("Polymorph")
	Wait(4000)
end sub

sub scribe(scroll, book, choice)
	var time
	UO.DeleteJournal()
	UO.WaitTargetObject(scroll, book)
	UO.OnGump('anygump', 0x6F)
	UO.DeleteJournal()
	Repeat
		UO.UseSkill("Inscription")
		Wait(500)
	Until UO.InJournal("Looping")
	time = 0
	Repeat
		Wait(1000)
		time = time + 200
	Until UO.InJournal("finished|aborted") || time > 40000
end sub

sub meditate()
	var time
	UO.DeleteJournal()
	Repeat
		UO.Useskill("Meditation") 
		wait(1000)
	Until UO.InJournal("enter a")
	time = 0
	Repeat
		Wait(200)
		time = time + 200
	Until UO.InJournal("stop meditating|lost your") || time > 60000
	Wait(500)
end sub