Here's my GOLFed down version:
Code:

$a=-1,-1,-1,0,-1
if ubound($a)*3+2=len(join(split(join($a),'-')))
? 'Array contains only -1s'
else
? 'Array does not only contain -1s'
endif


for a score of 45 for the "-1" check
_________________________
There are two types of vessels, submarines and targets.