sml-projects/game-sml/fcore/constants.sml

structure Constants =
struct
  val fontSpace = 26
  val fontSize: Real32.real = 60.0

  val worldWidth = 1920
  val worldHeight = 1080
  val worldWidthReal: Real32.real = 1920.0
  val worldHeightReal: Real32.real = 1080.0

  (* constants for player *)
  val playerWidth = 84
  val playerHeight = 96
  val playerWidthReal: Real32.real = 84.0
  val playerHeightReal: Real32.real = 96.0

  val halfPlayerWidthReal: Real32.real = playerWidthReal / 2.0
  val halfPlayerHeightReal: Real32.real = playerHeightReal / 2.0
  val movePlayerBy = 5

  (* player timing values *)
  val jumpLimit = 150
  val floatLimit = 3
  val recoilLimit = 15
  val attackedLimit = 55
  val maxCharge = 60
  val mainAttackLimit = 24

  (* constants for projectiles *)
  val projectilePi: Real32.real = Real32.Math.pi / 180.0
  val projectileSize: Real32.real = 18.0
  val projectileDistance: Real32.real = 26.0
  val projectileSizeInt = 18

  val projectileHeight = 24
  val projectileWidth = 96
  val projectileOffsetY = playerHeight div 3

  (* constants for enemy *)
  val enemySize = 48
  val enemySizeReal: Real32.real = 48.0
  val moveEnemyBy = 3

  val batRestLimit = 55
  val moveBatX = 1
  val moveBatY = 2

  val moveProjectileBy = 11

  val keyDelay = 
    let
      val time = LargeInt.fromInt 300
    in
      Time.fromMilliseconds time
    end
end