Obecně
Skripty
Příkazy

Fishing

Tento skript je velmi jednoduchý na obsluhu. Stačí mít u sebe rybářský prut (fishing pole) a naskočit na nějakou loďku. Skript pak chytá ryby dokud nemáš dovedost Fishing 100% real.
sub Fishing()
	var error_wav = "C:\Program Files\Injection\sound\error.wav"
	var now_x
	var now_y
	var last_x
	var last_y
	var target_x
	var target_y
	UO.Print("Spoustim Fishing makro")
	if UO.Count("0x0DBF") < 1 then
		UO.Print("Nemas u sebe rybarsky prut! Makro zastaveno!")
		UO.PlayWav(error_wav)
	else
		UO.DeleteJournal()
		UO.Say("forward")
		while NOT UO.InJournal("Aye")
			wait(300)
		wend
		while UO.SkillVal("Fishing",1) < 1000
			
			now_x = UO.GetX()
			now_y = UO.GetY()
			target_x = now_x + 3
			target_y = now_y - 3
			if now_x == last_x AND now_y == last_y then
				UO.DeleteJournal()
				UO.Say("turn right")
				while NOT UO.InJournal("Aye")
					wait(300)
				wend
				UO.DeleteJournal()
				UO.Say("forward")
				while NOT UO.InJournal("Aye")
					wait(300)
				wend
			end if
			UO.DeleteJournal()
			UO.WaitTargetTile("0",STR(target_x),STR(target_y),"251")
			UO.UseType('0x0DBF') #fishing pole
			while NOT UO.InJournal("You pull out a nice fish") AND NOT UO.InJournal("You fish a while, but fail to catch anything") AND NOT UO.InJournal("There are no fish here") AND NOT UO.InJournal("That is too far away") AND NOT UO.InJournal("Try fishing in water")
				wait(300)
			wend
			last_x = now_x
			last_y = now_y
		wend
	end if
end sub