/* Photon Script Version 2 */
/* Now Tries to fire at limpets   */
/* Written by Guardian*/
/* June 2000 - For Public Use */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "This Photon Script is Any Where .... Make sure you are sitting in Computer Prompt"
SAY " Also Remember to put mines or figs in defensive to slow the person down"
SAY ""

call zocrespond "INACTIVITY WARNING:","#"
DO 100000

result=ZocWaitMux("Report Sector", "Limpet mine in","INACTIVITY WARNING:")
SELECT        
	WHEN result=0 then x=1
	WHEN result=1 then x=2
        WHEN result=2 then x=3	
end
if x=1 then DO
	CALL ZocWait ":"

	planet=ZocLastLine()
	call zocsend "py"
        CALL ZocSend planet
	CALL ZocSend "^M^M"
        call zocbeep 5
end
if x=2 then DO
	CALL ZocWait "a"

	planet=ZocLastLine()
	call zocsend "py"
        CALL ZocSend planet
	CALL ZocSend "^M^M"
        call zocbeep 5 
end
if x=3 then DO
        call zocsend "#"
end

delay 5
end