Skip to content
Browse files

Make clearing terrain less annoying.

  • Loading branch information...
1 parent 6c7cb3f commit 5a7b753595db518c11c4271f478f735066dc9cae @clanehin committed
Showing with 3 additions and 3 deletions.
  1. +3 −3 roguestar-engine/src/Behavior.hs
View
6 roguestar-engine/src/Behavior.hs
@@ -66,9 +66,9 @@ facingBehavior creature_ref face =
case t of
_ | not (null who) -> return $ Attack face
_ | not (null what) -> return $ ActivateBuilding face
- Forest -> return $ TurnInPlace face
- DeepForest -> return $ TurnInPlace face
- RockFace -> return $ TurnInPlace face
+ Forest -> return $ ClearTerrain face
+ DeepForest -> return $ ClearTerrain face
+ RockFace -> return $ ClearTerrain face
_ -> return $ Step face
dbBehave :: Behavior -> CreatureRef -> DB ()

0 comments on commit 5a7b753

Please sign in to comment.
Something went wrong with that request. Please try again.