This algorithm is a little rough around the edges right now, but generally the idea is we find a relatively closed-off region of the map, and place rooms randomly on it, expanding them until they run into each other, then we put doors in the walls of the rooms and a single door opening into the region. Later on, we'll generate friendly (or unfriendly!) NPCs to put in those rooms. Change-Id: Ic989b9905f55ad92a01fdf6db11aa57afb4ce383 Reviewed-on: https://cl.tvl.fyi/c/depot/+/726 Reviewed-by: glittershark <grfn@gws.fyi>
		
			
				
	
	
		
			47 lines
		
	
	
	
		
			1.7 KiB
		
	
	
	
		
			Haskell
		
	
	
	
	
	
			
		
		
	
	
			47 lines
		
	
	
	
		
			1.7 KiB
		
	
	
	
		
			Haskell
		
	
	
	
	
	
--------------------------------------------------------------------------------
 | 
						|
import           Test.Prelude
 | 
						|
--------------------------------------------------------------------------------
 | 
						|
import qualified Xanthous.Data.EntitiesSpec
 | 
						|
import qualified Xanthous.Data.EntityCharSpec
 | 
						|
import qualified Xanthous.Data.EntityMap.GraphicsSpec
 | 
						|
import qualified Xanthous.Data.EntityMapSpec
 | 
						|
import qualified Xanthous.Data.LevelsSpec
 | 
						|
import qualified Xanthous.Data.NestedMapSpec
 | 
						|
import qualified Xanthous.DataSpec
 | 
						|
import qualified Xanthous.Entities.RawsSpec
 | 
						|
import qualified Xanthous.GameSpec
 | 
						|
import qualified Xanthous.Generators.UtilSpec
 | 
						|
import qualified Xanthous.MessageSpec
 | 
						|
import qualified Xanthous.Messages.TemplateSpec
 | 
						|
import qualified Xanthous.OrphansSpec
 | 
						|
import qualified Xanthous.RandomSpec
 | 
						|
import qualified Xanthous.Util.GraphSpec
 | 
						|
import qualified Xanthous.Util.GraphicsSpec
 | 
						|
import qualified Xanthous.Util.InflectionSpec
 | 
						|
import qualified Xanthous.UtilSpec
 | 
						|
--------------------------------------------------------------------------------
 | 
						|
 | 
						|
main :: IO ()
 | 
						|
main = defaultMain test
 | 
						|
 | 
						|
test :: TestTree
 | 
						|
test = testGroup "Xanthous"
 | 
						|
  [ Xanthous.Data.EntitiesSpec.test
 | 
						|
  , Xanthous.Data.EntityMap.GraphicsSpec.test
 | 
						|
  , Xanthous.Data.EntityMapSpec.test
 | 
						|
  , Xanthous.Data.LevelsSpec.test
 | 
						|
  , Xanthous.Data.NestedMapSpec.test
 | 
						|
  , Xanthous.DataSpec.test
 | 
						|
  , Xanthous.Entities.RawsSpec.test
 | 
						|
  , Xanthous.GameSpec.test
 | 
						|
  , Xanthous.Generators.UtilSpec.test
 | 
						|
  , Xanthous.MessageSpec.test
 | 
						|
  , Xanthous.Messages.TemplateSpec.test
 | 
						|
  , Xanthous.OrphansSpec.test
 | 
						|
  , Xanthous.RandomSpec.test
 | 
						|
  , Xanthous.Util.GraphSpec.test
 | 
						|
  , Xanthous.Util.GraphicsSpec.test
 | 
						|
  , Xanthous.Util.InflectionSpec.test
 | 
						|
  , Xanthous.UtilSpec.test
 | 
						|
  , Xanthous.Data.EntityCharSpec.test
 | 
						|
  ]
 |