Spirit Speak

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 #

Spirit Speak.sc #

sub main()
	While Uo.Life > 0
		While UO.Mana > 20
			UO.Press(112) #spirit speak (num 1)
			Wait(1000)
			UO.Press(113) #dispel (num 2)
			Wait(4000)
			UO.Press(114) #target self (num 3)
			Wait(8000)
		wend
		While UO.Mana < 130
			UO.Press(119) #med (f8)
			Wait(10000)
		Wend
	wend
end sub

Spirit Speak 2.sc #

sub main()
	aaa:
	
    repeat
    Uo.deletejournal(0) 
    wait(9000)
	UO.Exec("useskill 'Spirit Speak'")
   wait(1500)
   until Uo.Injournal("You contact the netherworld.") || UO.InJournal("You are already in contact with the netherworld.")
   uo.print("Contact Made! Wat crazy ghost will I speak to today?!")
 
   repeat
   Uo.deletejournal(0) 
   uo.exec("waittargetself")
   uo.exec("cast 'Dispel'")
   #uo.exec("useobject 'dispellscroll'")
   wait(5000)
   until UO.InJournal("All the magical effects active on this creature have been wiped.") || UO.InJournal("You do not have enough mana to cast that spell.") || UO.InJournal("Insufficient Mana.")
   
   repeat
   wait(2000);
   Uo.Useskill("Meditation");
   until UO.InJournal("You enter") || UO.InJournal("You are at peace.")
   
   repeat
   wait(2000);
   until UO.InJournal("You stop") || UO.InJournal("You lost") || UO.InJournal("You must wait some time before being able to meditate again.") || UO.InJournal("You are at peace.")
 
goto aaa
end sub

Spirit Speak 3.sc #

sub main()
a:
	While Uo.Life > 0
		While UO.Mana > 20
			UO.Press(120) #spirit speak 
			Wait(1000)
			UO.Exec("waittargetself")
			uo.exec("cast 'Dispel'") 
			Wait(9000)
			
		wend
		While UO.Mana < 120
			UO.Useskill("Meditation")
			Wait(19000)
		Wend
	wend
	goto a
end sub

Spirit Speak 4.sc #

sub main()
	var time
	Repeat
		UO.DeleteJournal()
		Repeat 
			UO.UseSkill("Spirit Speak") 
			wait(1000)
		Until UO.InJournal("contact") 
 		
		If UO.Mana < 35 Then
			Repeat
				UO.Useskill("Meditation") 
				wait(1000)
			Until UO.InJournal("enter a meditative")
			Repeat
				wait(500)
			Until UO.InJournal("stop meditating")
		End If
		
		UO.WaitTargetSelf()
		UO.Cast("Dispel")
		Wait(4000)
	Until FALSE
end sub