Beginnings of a WH40K.EXE implementation

So far, we just play the opening credits on an external video player.
I want to start loading and displaying the menus next. Perhaps I can
get the entire non-gameplay flow working?

.gitignore

@@ -6,3 +6,4 @@
 /view-map
 /view-minimap
 /view-set
+/wh40k

Makefile

@@ -20,7 +20,10 @@ view-minimap: $(srcfiles)
 view-set: $(srcfiles)
 	go build -o view-set ur.gs/ordoor/cmd/view-set
 
+wh40k: $(srcfiles)
+	go build -o wh40k ur.gs/ordoor/cmd/wh40k
+
 clean:
-	rm -f loader view-obj view-map view-minimap view-set
+	rm -f loader view-obj view-map view-minimap view-set wh40k
 
 .PHONY: all clean

cmd/wh40k/main.go

@@ -1,5 +1,21 @@
 package main
 
-func main() {
+import (
+	"log"
+	"os"
 
+	"ur.gs/ordoor/internal/wh40k"
+)
+
+func main() {
+	configFile := "config.toml"
+	if len(os.Args) == 2 {
+		configFile = os.Args[1]
+	}
+
+	if err := wh40k.Run(configFile); err != nil {
+		log.Fatalf(err.Error())
+	}
+
+	os.Exit(0)
 }

internal/wh40k/videos.go

@@ -0,0 +1,36 @@
+package wh40k
+
+import (
+	"log"
+	"os/exec"
+)
+
+func (w *WH40K) PlayVideo(name string, skippable bool) {
+	// TODO: allow the video to be skipped by pressing the ESC key or so. For
+	// now, skip unconditionally
+	if skippable {
+		log.Printf("TODO: Make videos conditionally skippable")
+		return
+	}
+
+	filename := w.Config.DataFile("SMK/" + name + ".smk")
+
+	if len(w.Config.VideoPlayer) == 0 {
+		log.Printf("Video player not configured, skipping video %v", filename)
+		return
+	}
+
+	argc := w.Config.VideoPlayer[0]
+	argv := append(w.Config.VideoPlayer[1:], filename)
+	if err := exec.Command(argc, argv...).Run(); err != nil {
+		log.Printf("Error playing video %v: %v", filename, err)
+	}
+}
+
+func (w *WH40K) PlayUnskippableVideo(name string) {
+	w.PlayVideo(name, false)
+}
+
+func (w *WH40K) PlaySkippableVideo(name string) {
+	w.PlayVideo(name, true)
+}

internal/wh40k/wh40k.go

@@ -0,0 +1,30 @@
+// package wh40k implements the full WH40K.EXE functionality, and is used from
+// cmd/wh40k/main.go
+//
+// Entrypoint is Run()
+package wh40k
+
+import (
+	"fmt"
+
+	"ur.gs/ordoor/internal/config"
+)
+
+type WH40K struct {
+	Config *config.Config
+}
+
+func Run(configFile string) error {
+	cfg, err := config.Load(configFile)
+	if err != nil {
+		return fmt.Errorf("Couldn't load config file: %v", err)
+	}
+
+	wh40k := &WH40K{
+		Config: cfg,
+	}
+
+	wh40k.PlayUnskippableVideo("LOGOS")
+
+	return nil
+}