/* Sector Moving */


CALL ZocRespond "You do not have any Photon Missiles!", "q"
CALL ZocRespond "Confirmed? (Y/N)?", "n"
CALL ZocRespond "hoose NavPoint (?=Help) [Q] :","q"

a=1
x= 1729

DO 100000

if a=1 then do
	x= x+1
	CALL ZocSend x
	CALL ZocSend "e"
	a=0
end

MOVING1:

result=ZocWaitMux("You have to destroy the fighters", "Stop in this s", "Arriving sector","Mined Sector: Do you w")
select
	WHEN result=0 then DO
		CALL ZocSend "a10^M^M"
		
	end
	WHEN result=1 then DO
		CALL ZocSend "n"
		
	end
	WHEN result=2 then DO
		call zocsend "p"
		result=ZocWaitMux("<A> Attack this Port","Captain! Are you sure you","There is no port in this sector!")
		select
			when result=0 then do
			call zocsend "pay5000^Mf1^Mct"
			a=1
			end
			when result=1 then do
			call zocsend "nf1^Mct"
			a=1
			end
			when result=2 then do
			call zocsend "f1^Mct"
			a=1
			end
			when result=640 THEN do
			call zocsend "f1^Mct"
			a=1
			end
                end
        end
	when result=3 then do
	call zocsend "n"
	
	end
	
	when result=640 THEN do
		call zocsend "f1^Mct"	
	a=1
	end
end

end

EXIT