package game

import (
	"fmt"
	"time"
)

// rip.c — the fun ends: death or a total win.
//
// The C functions here call exit(); the port panics with a gameEnd sentinel
// that Run recovers, so the terminal is restored by normal unwinding.

// gameEnd is the sentinel carried by the panic that replaces my_exit().
type gameEnd struct{}

// myExit leaves the process properly (main.c my_exit): it unwinds to Run.
// Every C caller exited with status 0; abnormal exits panic for real.
func (g *RogueGame) myExit() {
	g.Playing = false

	panic(gameEnd{})
}

// death does something really fun when he dies (rip.c death).
func (g *RogueGame) death(monst byte) {
	p := &g.Player
	p.Purse -= p.Purse / 10

	g.clear()

	killer := g.killname(monst, false)
	if !g.Options.Tombstone {
		g.scr.Std.MvPrintwf(NumLines-2, 0, "Killed by ")

		if monst != 's' && monst != 'h' {
			g.printw("a%s ", vowelstr(killer))
		}

		g.printw("%s with %d gold", killer, p.Purse)
	} else {
		year := time.Now().Year()

		for i, line := range g.data.ripArt {
			g.scr.Std.MvAddStr(8+i, 0, line)
		}

		g.mvaddstr(17, center(killer), killer)

		if monst == 's' || monst == 'h' {
			g.mvaddch(16, 32, ' ')
		} else {
			g.mvaddstr(16, 33, vowelstr(killer))
		}

		g.mvaddstr(14, center(g.Whoami), g.Whoami)

		au := fmt.Sprintf("%d Au", p.Purse)
		g.mvaddstr(15, center(au), au)
		g.mvaddstr(18, 26, fmt.Sprintf("%4d", year))
	}

	g.mvaddstr(NumLines-1, 0, "[Press return to continue]")
	g.refresh()

	flags := 0
	if g.HasAmulet {
		flags = 3
	}

	g.score(p.Purse, flags, monst)
	g.waitFor('\n')
	g.myExit()
}

// center returns the column to center the given string on the tombstone
// (rip.c center).
func center(str string) int {
	return 28 - (len(str)+1)/2
}

// totalWinner is the code for a winner (rip.c total_winner).
func (g *RogueGame) totalWinner() {
	p := &g.Player
	g.clear()
	g.standout()

	banner := []string{
		"                                                               ",
		"  @   @               @   @           @          @@@  @     @  ",
		"  @   @               @@ @@           @           @   @     @  ",
		"  @   @  @@@  @   @   @ @ @  @@@   @@@@  @@@      @  @@@    @  ",
		"   @@@@ @   @ @   @   @   @     @ @   @ @   @     @   @     @  ",
		"      @ @   @ @   @   @   @  @@@@ @   @ @@@@@     @   @     @  ",
		"  @   @ @   @ @  @@   @   @ @   @ @   @ @         @   @  @     ",
		"   @@@   @@@   @@ @   @   @  @@@@  @@@@  @@@     @@@   @@   @  ",
		"                                                               ",
		"     Congratulations, you have made it to the light of day!    ",
	}
	for i, line := range banner {
		g.scr.Std.MvAddStr(i, 0, line)
	}

	g.standend()
	g.scr.Std.MvAddStr(10, 0, "You have joined the elite ranks of those who have escaped the")
	g.scr.Std.MvAddStr(11, 0, "Dungeons of Doom alive.  You journey home and sell all your loot at")
	g.scr.Std.MvAddStr(12, 0, "a great profit and are admitted to the Fighters' Guild.")
	g.mvaddstr(NumLines-1, 0, "--Press space to continue--")
	g.refresh()
	g.waitFor(' ')
	g.clear()
	g.mvaddstr(0, 0, "   Worth  Item")
	g.move(1, 0)

	oldpurse := p.Purse
	line := 1

	for _, obj := range p.Pack {
		worth := g.objectWorth(obj)

		g.scr.Std.MvPrintwf(line, 0, "%c) %5d  %s", obj.PackCh, worth,
			g.inventoryName(obj, false))
		line++
		p.Purse += worth
	}

	g.scr.Std.MvPrintwf(line, 0, "   %5d  Gold Pieces          ", oldpurse)
	g.refresh()
	g.score(p.Purse, 2, ' ')
	g.myExit()
}

// objectWorth appraises one pack item on the way out, marking it known
// (the switch of rip.c total_winner).
func (g *RogueGame) objectWorth(obj *Object) int {
	it := &g.Items
	worth := 0

	switch obj.Kind {
	case KindFood:
		worth = 2 * obj.Count
	case KindWeapon:
		worth = it.Weapons[obj.Which].Worth
		worth *= 3*(obj.HPlus+obj.DPlus) + obj.Count
		obj.Flags.Set(Known)
	case KindArmor:
		worth = it.Armors[obj.Which].Worth
		worth += (9 - obj.ArmorClass) * 100
		worth += 10 * (g.data.aClass[obj.Which] - obj.ArmorClass)
		obj.Flags.Set(Known)
	case KindScroll:
		worth = loreWorth(&it.Scrolls[obj.Which], obj.Count)
	case KindPotion:
		worth = loreWorth(&it.Potions[obj.Which], obj.Count)
	case KindRing:
		worth = g.ringWorth(obj)
	case KindWand:
		worth = g.wandWorth(obj)
	case KindAmulet:
		worth = 1000
	}

	if worth < 0 {
		worth = 0
	}

	return worth
}

// loreWorth appraises a scroll or potion, halved when unidentified, and
// identifies it (rip.c total_winner).
func loreWorth(op *ObjInfo, count int) int {
	worth := op.Worth * count
	if !op.Know {
		worth /= 2
	}

	op.Know = true

	return worth
}

// ringWorth appraises a ring: bonus rings gain by their bonus, cursed
// ones are junk (rip.c total_winner).
func (g *RogueGame) ringWorth(obj *Object) int {
	op := &g.Items.Rings[obj.Which]
	worth := op.Worth

	if obj.RingKind() == RingAddStrength || obj.RingKind() == RingIncreaseDamage ||
		obj.RingKind() == RingProtection || obj.RingKind() == RingDexterity {
		if obj.Bonus > 0 {
			worth += obj.Bonus * 100
		} else {
			worth = 10
		}
	}

	if !obj.Flags.Has(Known) {
		worth /= 2
	}

	obj.Flags.Set(Known)

	op.Know = true

	return worth
}

// wandWorth appraises a wand or staff by its charges (rip.c
// total_winner).
func (g *RogueGame) wandWorth(obj *Object) int {
	op := &g.Items.Sticks[obj.Which]
	worth := op.Worth

	worth += 20 * obj.Charges
	if !obj.Flags.Has(Known) {
		worth /= 2
	}

	obj.Flags.Set(Known)

	op.Know = true

	return worth
}

// killname converts a code to a monster name (rip.c killname).
func (g *RogueGame) killname(monst byte, doart bool) string {
	var (
		sp      string
		article bool
	)

	if isUpper(monst) {
		sp = g.Monsters[monst-'A'].Name
		article = true
	} else {
		sp = "Wally the Wonder Badger"
		article = false

		for _, hp := range g.data.killnameTable {
			if hp.Ch == monst {
				sp = hp.Desc
				article = hp.Print

				break
			}
		}
	}

	if doart && article {
		return "a" + vowelstr(sp) + " " + sp
	}

	return sp
}

// DeathDemo implements the -d command line option (main.c): burn some
// random numbers to break patterns, then die a random death.
func (g *RogueGame) DeathDemo() {
	defer func() {
		if r := recover(); r != nil {
			if _, ok := r.(gameEnd); ok {
				return
			}

			panic(r)
		}
	}()

	dnum := g.rnd(100)
	for dnum--; dnum > 0; dnum-- {
		g.rnd(100)
	}

	g.Player.Purse = g.rnd(100) + 1
	g.Depth = g.rnd(100) + 1
	g.death(g.deathMonst())
}

// deathMonst returns a monster appropriate for a random death (rip.c
// death_monst).
func (g *RogueGame) deathMonst() byte {
	poss := []byte{
		'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L',
		'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X',
		'Y', 'Z', 'a', 'b', 'h', 'd', 's',
		' ', // generates the "Wally the Wonder Badger" message
	}

	return poss[g.rnd(len(poss))]
}