M9b: folk, filer, reklam, sorl och vagnval

Folk på stationen (NPC:er som vandrar, kliver av tåg och går mot
utgången, blockerar spelaren men inte varandra), vänster-/högerfiler
som bromsar på fel sida, bredare gångar, reklamaffischer (clutter),
japanskt sorl i loop (noise), vagnval med kvinnovagn (stort avdrag med
man i sällskapet, tidsstyrd), kömarkeringar på perrongen, trängsel per
vagn (bonus för tom vagn, svettig-debuff och svårare resa i full vagn,
släpp förbi passagerare) och att folk kliver av innan man får gå på.
Ny bana 005 Ueno. Skärmdumpsverktyget kan filtrera på bana/skript.

Co-Authored-By: Claude Fable 5.1 <noreply@anthropic.com>

internal/level/level_test.go

@@ -515,3 +515,39 @@ func TestFloorsValidation(t *testing.T) {
 		}
 	}
 }
+
+func TestCarsWomenOnlyAndCrowdFields(t *testing.T) {
+	l := mustParse(t, sample)
+	tr := l.Trains[0]
+	if tr.Cars != DefaultCars || tr.WomenOnlyCar != 0 || tr.WomenOnlyActive(10) || l.Crowd != 0 {
+		t.Fatal("standardvärden")
+	}
+	src := strings.Replace(sample, `"correct": true`, `"correct": true, "cars": 4, "womenOnlyCar": 1, "womenOnlyFrom": 30, "womenOnlyTo": 90`, 1)
+	src = strings.Replace(src, `"difficulty": 1`, `"difficulty": 1, "crowd": 2, "clutter": 3, "noise": 1`, 1)
+	l2 := mustParse(t, src)
+	tr2 := l2.Trains[0]
+	if tr2.Cars != 4 || tr2.WomenOnlyCar != 1 || tr2.WomenOnlyActive(10) || !tr2.WomenOnlyActive(30) || !tr2.WomenOnlyActive(89.9) || tr2.WomenOnlyActive(90) {
+		t.Fatal("kvinnovagnens tidsfönster")
+	}
+	always := mustParse(t, strings.Replace(sample, `"correct": true`, `"correct": true, "womenOnlyCar": 2`, 1))
+	if !always.Trains[0].WomenOnlyActive(0) || !always.Trains[0].WomenOnlyActive(99999) {
+		t.Fatal("utan fönster gäller kvinnovagnen alltid")
+	}
+	if l2.Crowd != 2 || l2.Clutter != 3 || l2.Noise != 1 {
+		t.Fatal("crowd/clutter/noise")
+	}
+	for name, src := range map[string]string{
+		"för många vagnar":    strings.Replace(sample, `"correct": true`, `"correct": true, "cars": 9`, 1),
+		"kvinnovagn > vagnar": strings.Replace(sample, `"correct": true`, `"correct": true, "cars": 2, "womenOnlyCar": 3`, 1),
+		"fönster baklänges":   strings.Replace(sample, `"correct": true`, `"correct": true, "womenOnlyCar": 1, "womenOnlyFrom": 50, "womenOnlyTo": 10`, 1),
+		"crowd 4":             strings.Replace(sample, `"difficulty": 1`, `"difficulty": 1, "crowd": 4`, 1),
+	} {
+		if _, err := Parse([]byte(src)); err == nil {
+			t.Errorf("%s: förväntade fel", name)
+		}
+	}
+	lanes := mustParse(t, strings.Replace(sample, `"#S..#P#"`, `"#S<>#P#"`, 1))
+	if lanes.FloorAt(0, 2, 1) != LaneLeft || !LaneRight.IsLane() || !LaneLeft.Passable() || Floor.IsLane() {
+		t.Fatal("filer")
+	}
+}