/* REXX (created by EleqTrizi'T) */

CALL ZocTimeout 120


call zocsend "a"

result=ZocWaitMux("unmanned Merchant Freighter","(Y/N)")
	select
		WHEN result=0 then DO
			call zocsend "y50^M"		
			end
		WHEN result=1 then DO
			call zocsend "n"
			end
	end

result=ZocWaitMux("unmanned Merchant Freighter","(Y/N)","You destroyed the ship and salvaged these cargo holds:")
	select
		WHEN result=0 then DO
			call zocsend "y50^M"		
			end
		WHEN result=1 then DO
			call zocsend "n"
			end
		when result=2 then DO
			call zocsend ""
			end
	end

result=ZocWaitMux("unmanned Merchant Freighter","(Y/N)","You destroyed the ship and salvaged these cargo holds:", "Command" [)
	select
		WHEN result=0 then DO
			call zocsend "y50^M"		
			end
		WHEN result=1 then DO
			call zocsend "n"
			end
		when result=2 then DO
			call zocsend ""
			end
		when result=3 then DO
			call zocsend ""
			end
	end