      SUBROUTINE NEWCOND
	INCLUDE 'TREKCOM/NOLIST'
      CONDIT=IHGREEN
      IF(ENERGY .LT. 1000.0) CONDIT=IHYELLO
      IF((GALAXY(QUADX,QUADY) .GT. 99) .OR. (NEWSTUF(QUADX,QUADY) .GT.
     C 9))CONDIT=IHRED
      RETURN
      END