diff options
Diffstat (limited to 'src/LivingVillage.Desktop/Game.fs')
| -rw-r--r-- | src/LivingVillage.Desktop/Game.fs | 133 |
1 files changed, 126 insertions, 7 deletions
diff --git a/src/LivingVillage.Desktop/Game.fs b/src/LivingVillage.Desktop/Game.fs index 62fccb9..09d3364 100644 --- a/src/LivingVillage.Desktop/Game.fs +++ b/src/LivingVillage.Desktop/Game.fs @@ -71,7 +71,67 @@ module NpcView = | Wander -> "wander" | Work -> "work" | Chat -> "chat" - | Work -> "work" + +module PixelText = + let private glyphs = + [ 'A', [| "01110"; "10001"; "10001"; "11111"; "10001"; "10001"; "10001" |] + 'B', [| "11110"; "10001"; "10001"; "11110"; "10001"; "10001"; "11110" |] + 'C', [| "01111"; "10000"; "10000"; "10000"; "10000"; "10000"; "01111" |] + 'D', [| "11110"; "10001"; "10001"; "10001"; "10001"; "10001"; "11110" |] + 'E', [| "11111"; "10000"; "10000"; "11110"; "10000"; "10000"; "11111" |] + 'F', [| "11111"; "10000"; "10000"; "11110"; "10000"; "10000"; "10000" |] + 'G', [| "01111"; "10000"; "10000"; "10111"; "10001"; "10001"; "01111" |] + 'H', [| "10001"; "10001"; "10001"; "11111"; "10001"; "10001"; "10001" |] + 'I', [| "11111"; "00100"; "00100"; "00100"; "00100"; "00100"; "11111" |] + 'J', [| "00111"; "00010"; "00010"; "00010"; "00010"; "10010"; "01100" |] + 'K', [| "10001"; "10010"; "10100"; "11000"; "10100"; "10010"; "10001" |] + 'L', [| "10000"; "10000"; "10000"; "10000"; "10000"; "10000"; "11111" |] + 'M', [| "10001"; "11011"; "10101"; "10101"; "10001"; "10001"; "10001" |] + 'N', [| "10001"; "11001"; "10101"; "10011"; "10001"; "10001"; "10001" |] + 'O', [| "01110"; "10001"; "10001"; "10001"; "10001"; "10001"; "01110" |] + 'P', [| "11110"; "10001"; "10001"; "11110"; "10000"; "10000"; "10000" |] + 'Q', [| "01110"; "10001"; "10001"; "10001"; "10101"; "10010"; "01101" |] + 'R', [| "11110"; "10001"; "10001"; "11110"; "10100"; "10010"; "10001" |] + 'S', [| "01111"; "10000"; "10000"; "01110"; "00001"; "00001"; "11110" |] + 'T', [| "11111"; "00100"; "00100"; "00100"; "00100"; "00100"; "00100" |] + 'U', [| "10001"; "10001"; "10001"; "10001"; "10001"; "10001"; "01110" |] + 'V', [| "10001"; "10001"; "10001"; "10001"; "10001"; "01010"; "00100" |] + 'W', [| "10001"; "10001"; "10001"; "10101"; "10101"; "11011"; "10001" |] + 'X', [| "10001"; "10001"; "01010"; "00100"; "01010"; "10001"; "10001" |] + 'Y', [| "10001"; "10001"; "01010"; "00100"; "00100"; "00100"; "00100" |] + 'Z', [| "11111"; "00001"; "00010"; "00100"; "01000"; "10000"; "11111" |] + '0', [| "01110"; "10001"; "10011"; "10101"; "11001"; "10001"; "01110" |] + '1', [| "00100"; "01100"; "00100"; "00100"; "00100"; "00100"; "01110" |] + '2', [| "01110"; "10001"; "00001"; "00010"; "00100"; "01000"; "11111" |] + '3', [| "11110"; "00001"; "00001"; "01110"; "00001"; "00001"; "11110" |] + '4', [| "00010"; "00110"; "01010"; "10010"; "11111"; "00010"; "00010" |] + '5', [| "11111"; "10000"; "10000"; "11110"; "00001"; "00001"; "11110" |] + '6', [| "01110"; "10000"; "10000"; "11110"; "10001"; "10001"; "01110" |] + '7', [| "11111"; "00001"; "00010"; "00100"; "01000"; "01000"; "01000" |] + '8', [| "01110"; "10001"; "10001"; "01110"; "10001"; "10001"; "01110" |] + '9', [| "01110"; "10001"; "10001"; "01111"; "00001"; "00001"; "01110" |] + '-', [| "00000"; "00000"; "00000"; "11111"; "00000"; "00000"; "00000" |] + '.', [| "00000"; "00000"; "00000"; "00000"; "00000"; "00110"; "00110" |] + '=', [| "00000"; "11111"; "00000"; "00000"; "11111"; "00000"; "00000" |] + ':', [| "00000"; "00110"; "00110"; "00000"; "00110"; "00110"; "00000" |] + ';', [| "00000"; "00110"; "00110"; "00000"; "00110"; "00100"; "01000" |] + '/', [| "00001"; "00010"; "00010"; "00100"; "01000"; "01000"; "10000" |] + '?', [| "01110"; "10001"; "00001"; "00010"; "00100"; "00000"; "00100" |] ] + |> Map.ofList + + let draw (spriteBatch: SpriteBatch) (pixel: Texture2D) (x: int) (y: int) (scale: int) (color: Color) (text: string) = + let fallback = glyphs.['?'] + let mutable cursor = x + for character in text.ToUpperInvariant() do + if character = ' ' then + cursor <- cursor + (4 * scale) + else + let rows = glyphs |> Map.tryFind character |> Option.defaultValue fallback + for row in 0 .. rows.Length - 1 do + for column in 0 .. rows.[row].Length - 1 do + if rows.[row].[column] = '1' then + spriteBatch.Draw(pixel, Rectangle(cursor + column * scale, y + row * scale, scale, scale), color) + cursor <- cursor + (6 * scale) type LivingVillageGame() as this = inherit Game() @@ -98,6 +158,7 @@ type LivingVillageGame() as this = let mutable prevKb = Unchecked.defaultof<KeyboardState> let mutable relationView = false let mutable relationSnapshot: float32[,] option = None + let mutable m5View = M5Interaction.initial do graphics.PreferredBackBufferWidth <- 1280 @@ -105,8 +166,9 @@ type LivingVillageGame() as this = graphics.SynchronizeWithVerticalRetrace <- true this.IsFixedTimeStep <- true this.TargetElapsedTime <- TimeSpan.FromTicks(TimeSpan.TicksPerSecond / 60L) - this.Window.Title <- if autoplay then "Living Village M1 [AUTOPLAY]" else "Living Village M1" + this.Window.Title <- if autoplay then "Living Village M5 [AUTOPLAY]" else "Living Village M5" printfn $"mode={modeName} seed=42" + printfn "controls=WASD move E interact 1-6 choose Q observe Tab needs C chronicle L relations Esc close/exit" member private this.CenterCamera() = let viewport = this.GraphicsDevice.Viewport let vw = float32 viewport.Width @@ -130,15 +192,44 @@ type LivingVillageGame() as this = override this.Update(gameTime: GameTime) = let kb = Keyboard.GetState() - if kb.IsKeyDown(Keys.Escape) then this.Exit() - let lPressed = kb.IsKeyDown(Keys.L) && not (prevKb.IsKeyDown(Keys.L)) - prevKb <- kb + let pressed (key: Keys) = kb.IsKeyDown(key) && not (prevKb.IsKeyDown(key)) + let pressedAny (keys: Keys list) = keys |> List.exists pressed + let lPressed = pressed Keys.L + let escapePressed = pressed Keys.Escape + if escapePressed then + if m5View.Panel <> WorldPanel then + let nextWorld, nextView = M5Interaction.apply ClosePanel world m5View + world <- nextWorld + m5View <- nextView + printfn $"m5 panel={M5Interaction.panelName m5View} status={m5View.Status} tick={world.Tick}" + else + this.Exit() if lPressed then relationView <- not relationView if relationView then relationSnapshot <- Some(Sim.relationMatrix world) let state = if relationView then "on" else "off" printfn $"relation view={state} tick={world.Tick}" - if not relationView then + let m5Command = + if pressed Keys.E then Some Interact + elif pressedAny [ Keys.D1; Keys.NumPad1 ] then Some Intent1 + elif pressedAny [ Keys.D2; Keys.NumPad2 ] then Some Intent2 + elif pressedAny [ Keys.D3; Keys.NumPad3 ] then Some Intent3 + elif pressedAny [ Keys.D4; Keys.NumPad4 ] then Some Intent4 + elif pressedAny [ Keys.D5; Keys.NumPad5 ] then Some Intent5 + elif pressedAny [ Keys.D6; Keys.NumPad6 ] then Some Intent6 + elif pressed Keys.Q then Some Observe + elif pressed Keys.Tab then Some ToggleNeeds + elif pressed Keys.C then Some ShowChronicle + else None + match m5Command with + | Some command -> + let nextWorld, nextView = M5Interaction.apply command world m5View + world <- nextWorld + m5View <- nextView + printfn $"m5 panel={M5Interaction.panelName m5View} status={m5View.Status} tick={world.Tick}" + | None -> () + let panelOpen = m5View.Panel <> WorldPanel + if not relationView && not panelOpen then let input = if autoplay then let t = float32 world.Tick @@ -168,8 +259,10 @@ type LivingVillageGame() as this = NpcView.actionName world.Npcs.[0].Mind.Action else "none" let viewTag = if relationView then " | [RELATIONS]" else "" - this.Window.Title <- $"Living Village M3b{titleSuffix} | fps {fps:F1} | tick {world.Tick} | npc {npcAction}{viewTag}" + this.Window.Title <- + $"Living Village M5{titleSuffix} | fps {fps:F1} | tick {world.Tick} | npc {npcAction}{viewTag} | panel {M5Interaction.panelName m5View} | {M5Interaction.titleText m5View}" printfn $"fps={fps:F1} tick={world.Tick} pos=({world.Avatar.Pos.X:F0},{world.Avatar.Pos.Y:F0})" + prevKb <- kb member private this.DrawLine (a: Vector2) (b: Vector2) (thickness: float32) (color: Color) = let d = b - a @@ -212,6 +305,7 @@ type LivingVillageGame() as this = override this.Draw(gameTime: GameTime) = if relationView then this.DrawRelationView() + this.DrawM5Overlay() else this.DrawWorldView() @@ -242,3 +336,28 @@ type LivingVillageGame() as this = let (NpcId idx) = npc.Id spriteBatch.Draw(pixel, npcDst, npcShades.[idx % npcShades.Length]) spriteBatch.End() + this.DrawM5Overlay() + + member private this.DrawM5Overlay() = + let viewport = this.GraphicsDevice.Viewport + let panelWidth = min 460 (max 1 (viewport.Width - 32)) + let panelHeight = min 520 (max 1 (viewport.Height - 32)) + let panelX = max 16 (viewport.Width - panelWidth - 16) + let panelY = 16 + let panel = Rectangle(panelX, panelY, panelWidth, panelHeight) + let innerX = panelX + 16 + let innerWidth = panelWidth - 32 + let textScale = 2 + let lineHeight = 18 + let maxChars = max 1 (innerWidth / (6 * textScale)) + let maxLines = max 1 ((panelHeight - 32) / lineHeight) + let lines = M5Interaction.panelLines world m5View |> List.truncate maxLines + spriteBatch.Begin() + spriteBatch.Draw(pixel, panel, Color(15, 19, 25, 220)) + spriteBatch.Draw(pixel, Rectangle(panelX, panelY, panelWidth, 4), Color(92, 180, 190)) + lines + |> List.iteri (fun index line -> + let visible = if line.Length > maxChars then line.Substring(0, maxChars) else line + let color = if index = 0 then Color(220, 235, 220) else Color(190, 205, 210) + PixelText.draw spriteBatch pixel innerX (panelY + 12 + index * lineHeight) textScale color visible) + spriteBatch.End() |