Describe doors as either closed or open
Rather than just describing them as "a door". Descriptions should ideally be as injective as possible!
This commit is contained in:
		
							parent
							
								
									5c5aa14a3d
								
							
						
					
					
						commit
						c4351d46ef
					
				
					 1 changed files with 2 additions and 1 deletions
				
			
		| 
						 | 
					@ -88,7 +88,8 @@ instance Brain Door where step = brainVia Brainless
 | 
				
			||||||
 | 
					
 | 
				
			||||||
instance Entity Door where
 | 
					instance Entity Door where
 | 
				
			||||||
  blocksVision = not . view open
 | 
					  blocksVision = not . view open
 | 
				
			||||||
  description _ = "a door"
 | 
					  description door | door ^. open = "an open door"
 | 
				
			||||||
 | 
					                   | otherwise    = "a closed door"
 | 
				
			||||||
  entityChar _ = "d"
 | 
					  entityChar _ = "d"
 | 
				
			||||||
 | 
					
 | 
				
			||||||
-- | A closed, unlocked door
 | 
					-- | A closed, unlocked door
 | 
				
			||||||
| 
						 | 
					
 | 
				
			||||||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue