/* Planet Drop  1.0 *//
/* Written by Guardian */
/* June 2000 - For Public Use */

CALL ZocTimeout 3600

SAY ""
SAY ""
SAY "This P-Drop Script .... Make sure you are sitting in citidal"
SAY "Try to be at keys when active"
SAY ""

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

call zocsend "#"
CALL ZocWait "Report Sector "
	CALL ZocWait ":"
	planet=ZocLastLine()
	call zocsend "p"
        CALL ZocSend planet
	CALL ZocSend "^M"
        call Zocsend "y"
        call zocbeep 5
     
zocdelay 15

end