initZoneCont :: State -> Int -> Int -> BS.ByteString
initZoneCont state x y = listToBS (genZoneCont gridw gridh zonew zoneh x y zc0 types sizes rrands conts seeds rands nconts) 1
  where conts    = wpConts           wparams
        seeds    = wpSeeds           wparams
        rands    = wpRands           wparams
        rrands   = wpRRands          wparams
        nconts   = wpNConts          wparams
        types    = wpTypes           wparams
        sizes    = wpSizes           wparams
        worldgen = settingWGSettings settings
        wparams  = stateWParams      state
        settings = stateSettings     state
        zonew    = settingZoneW      settings
        zoneh    = settingZoneH      settings
        gridw    = settingGridW      settings
        gridh    = settingGridH      settings
        zc0      = take (zonew*zoneh) (repeat 1)

-- generates the continent list for a single zone
initZoneCont :: State -> Int -> Int -> BS.ByteString
initZoneCont state x y = listToBS (genZoneCont gridw gridh zonew zoneh x y zc0 types sizes rrands conts seeds rands nconts) 1
  where conts    = wpConts           wparams
        seeds    = wpSeeds           wparams
        rands    = wpRands           wparams
        rrands   = wpRRands          wparams
        nconts   = wpNConts          wparams
        types    = wpTypes           wparams
        sizes    = wpSizes           wparams
        worldgen = settingWGSettings settings
        wparams  = stateWParams      state
        settings = stateSettings     state
        zonew    = settingZoneW      settings
        zoneh    = settingZoneH      settings
        gridw    = settingGridW      settings
        gridh    = settingGridH      settings
        zc0      = take (zonew*zoneh) (repeat 1)

-- generates the continent list for a single zone
initZoneCont state x y = listToBS (genZoneCont gridw gridh zonew zoneh x y zc0 types sizes rrands conts seeds rands nconts) 1
  where conts    = wpConts           wparams
        seeds    = wpSeeds           wparams
        rands    = wpRands           wparams
        rrands   = wpRRands          wparams
        nconts   = wpNConts          wparams
        types    = wpTypes           wparams
        sizes    = wpSizes           wparams
        worldgen = settingWGSettings settings
        wparams  = stateWParams      state
        settings = stateSettings     state
        zonew    = settingZoneW      settings
        zoneh    = settingZoneH      settings
        gridw    = settingGridW      settings
        gridh    = settingGridH      settings
        zc0      = take (zonew*zoneh) (repeat 1)

-- generates the continent list for a single zone