package main

import (
	"fmt"
	"sort"
	"strings"
	"time"

	"gitee.com/ling_boogie/mahjong-helper/platform/majsoul/proto/lq"
	"gitee.com/ling_boogie/mahjong-helper/util"
	"gitee.com/ling_boogie/mahjong-helper/util/model"
	"github.com/fatih/color"
)

type majsoulMessage struct {
	// 对应到服务器用户数据库中的ID，该值越小表示您的注册时间越早
	AccountID int `json:"account_id"`

	// 友人列表
	Friends lq.FriendList `json:"friends"`

	// 新获取到的牌谱基本信息列表
	RecordBaseInfoList []*majsoulRecordBaseInfo `json:"record_list"`

	// 分享的牌谱基本信息
	SharedRecordBaseInfo *majsoulRecordBaseInfo `json:"shared_record_base_info"`

	// 当前正在观看的牌谱的 UUID
	CurrentRecordUUID string `json:"current_record_uuid"`

	// 当前正在观看的牌谱的全部操作
	RecordActions []*majsoulRecordAction `json:"record_actions"`

	// 玩家在网页上的（点击）操作（网页响应了的）
	RecordClickAction      string `json:"record_click_action"`
	RecordClickActionIndex int    `json:"record_click_action_index"`
	FastRecordTo           int    `json:"fast_record_to"` // 闭区间

	// 观战
	LiveBaseInfo   *majsoulLiveRecordBaseInfo `json:"live_head"`
	LiveFastAction *majsoulRecordAction       `json:"live_fast_action"`
	LiveAction     *majsoulRecordAction       `json:"live_action"`

	// 座位变更
	ChangeSeatTo *int `json:"change_seat_to"`

	// 游戏重连时收到的数据
	SyncGameActions []*majsoulRecordAction `json:"sync_game_actions"`

	// ResAuthGame
	// {"seat_list":[x,x,x,x],"is_game_start":false,"game_config":{"category":1,"mode":{"mode":1,"ai":true,"detail_rule":{"time_fixed":60,"time_add":0,"dora_count":3,"shiduan":1,"init_point":25000,"fandian":30000,"bianjietishi":true,"ai_level":1,"fanfu":1}},"meta":{"room_id":18269}},"ready_id_list":[0,0,0]}
	IsGameStart *bool              `json:"is_game_start"` // false=新游戏，true=重连
	SeatList    []int              `json:"seat_list"`
	ReadyIDList []int              `json:"ready_id_list"`
	GameConfig  *majsoulGameConfig `json:"game_config"`

	// NotifyPlayerLoadGameReady
	//ReadyIDList []int `json:"ready_id_list"`

	// ActionNewRound
	// {"chang":0,"ju":0,"ben":0,"tiles":["1m","3m","7m","3p","6p","7p","6s","1z","1z","2z","3z","4z","7z"],"dora":"6m","scores":[25000,25000,25000,25000],"liqibang":0,"al":false,"md5":"","left_tile_count":69}
	MD5   string      `json:"md5"`
	Chang *int        `json:"chang"`
	Ju    *int        `json:"ju"`
	Ben   *int        `json:"ben"`
	Tiles interface{} `json:"tiles"` // 一般情况下为 []interface{}, interface{} 即 string，但是暗杠的情况下，该值为一个 string
	Dora  string      `json:"dora"`

	// RecordNewRound
	Tiles0 []string `json:"tiles0"`
	Tiles1 []string `json:"tiles1"`
	Tiles2 []string `json:"tiles2"`
	Tiles3 []string `json:"tiles3"`

	// ActionDealTile
	// {"seat":1,"tile":"5m","left_tile_count":23,"operation":{"seat":1,"operation_list":[{"type":1}],"time_add":0,"time_fixed":60000},"zhenting":false}
	// 他家暗杠后的摸牌
	// {"seat":1,"left_tile_count":3,"doras":["7m","0p"],"zhenting":false}
	Seat          *int     `json:"seat"`
	Tile          string   `json:"tile"`
	Doras         []string `json:"doras"` // 暗杠摸牌了，同时翻出杠宝牌指示牌
	LeftTileCount *int     `json:"left_tile_count"`

	// ActionDiscardTile
	// {"seat":0,"tile":"5z","is_liqi":false,"moqie":true,"zhenting":false,"is_wliqi":false}
	// {"seat":0,"tile":"1z","is_liqi":false,"operation":{"seat":1,"operation_list":[{"type":3,"combination":["1z|1z"]}],"time_add":0,"time_fixed":60000},"moqie":false,"zhenting":false,"is_wliqi":false}
	// 吃 碰 和
	// {"seat":0,"tile":"6p","is_liqi":false,"operation":{"seat":1,"operation_list":[{"type":2,"combination":["7p|8p"]},{"type":3,"combination":["6p|6p"]},{"type":9}],"time_add":0,"time_fixed":60000},"moqie":false,"zhenting":true,"is_wliqi":false}
	IsLiqi    *bool     `json:"is_liqi"`
	IsWliqi   *bool     `json:"is_wliqi"`
	Moqie     *bool     `json:"moqie"`
	Operation *struct{} `json:"operation"`

	// ActionChiPengGang || ActionAnGangAddGang
	// 他家吃 {"seat":0,"type":0,"tiles":["2s","3s","4s"],"froms":[0,0,3],"zhenting":false}
	// 他家碰 {"seat":1,"type":1,"tiles":["1z","1z","1z"],"froms":[1,1,0],"operation":{"seat":1,"operation_list":[{"type":1,"combination":["1z"]}],"time_add":0,"time_fixed":60000},"zhenting":false,"tingpais":[{"tile":"4m","zhenting":false,"infos":[{"tile":"6s","haveyi":true},{"tile":"6p","haveyi":true}]},{"tile":"7m","zhenting":false,"infos":[{"tile":"6s","haveyi":true},{"tile":"6p","haveyi":true}]}]}
	// 他家大明杠 {"seat":2,"type":2,"tiles":["3z","3z","3z","3z"],"froms":[2,2,2,0],"zhenting":false}
	// 他家加杠 {"seat":2,"type":2,"tiles":"3z"}
	// 他家暗杠 {"seat":2,"type":3,"tiles":"3s"}
	Type  int   `json:"type"`
	Froms []int `json:"froms"`

	// ActionLiqi

	// ActionHule
	Hules []struct {
		Seat          int  `json:"seat"`
		Zimo          bool `json:"zimo"`
		PointRong     int  `json:"point_rong"`
		PointZimoQin  int  `json:"point_zimo_qin"`
		PointZimoXian int  `json:"point_zimo_xian"`
	} `json:"hules"`

	// ActionLiuJu
	// {"liujumanguan":false,"players":[{"tingpai":true,"hand":["3s","3s","4s","5s","6s","1z","1z","7z","7z","7z"],"tings":[{"tile":"1z","haveyi":true},{"tile":"3s","haveyi":true}]},{"tingpai":false},{"tingpai":false},{"tingpai":true,"hand":["4m","0m","6m","6m","6m","4s","4s","4s","5s","7s"],"tings":[{"tile":"6s","haveyi":true}]}],"scores":[{"old_scores":[23000,29000,24000,24000],"delta_scores":[1500,-1500,-1500,1500]}],"gameend":false}
	//Liujumanguan *bool `json:"liujumanguan"`
	//Players *struct{ } `json:"players"`
	//Gameend      *bool `json:"gameend"`

	// ActionBabei
}

const (
	majsoulMeldTypeChi = iota
	majsoulMeldTypePon
	majsoulMeldTypeMinkanOrKakan
	majsoulMeldTypeAnkan
)

type majsoulRoundData struct {
	*roundData

	originJSON string
	msg        *majsoulMessage
	// 自家初始座位：0-第一局的东家 1-第一局的南家 2-第一局的西家 3-第一局的北家
	selfSeat int
}

func (d *majsoulRoundData) fatalParse(info string, msg string) {
	panic(fmt.Sprintln(info, len(msg), msg, []byte(msg)))
}

func (d *majsoulRoundData) normalTiles(tiles interface{}) (majsoulTiles []string) {
	_tiles, ok := tiles.([]interface{})
	if !ok {
		_tile, ok := tiles.(string)
		if !ok {
			panic(fmt.Sprintln("[normalTiles] 解析错误", tiles))
		}
		return []string{_tile}
	}

	majsoulTiles = make([]string, len(_tiles))
	for i, _tile := range _tiles {
		_t, ok := _tile.(string)
		if !ok {
			panic(fmt.Sprintln("[normalTiles] 解析错误", tiles))
		}
		majsoulTiles[i] = _t
	}
	return majsoulTiles
}

func (d *majsoulRoundData) parseWho(seat int) int {
	// 转换成 0=自家, 1=下家, 2=对家, 3=上家
	// 对三麻四麻均适用
	who := (seat + d.dealer - d.roundNumber%4 + 4) % 4
	return who
}

func (d *majsoulRoundData) mustParseMajsoulTile(humanTile string) (tile34 int, isRedFive bool) {
	tile34, isRedFive, err := util.StrToTile34(humanTile)
	if err != nil {
		panic(err)
	}
	return
}

func (d *majsoulRoundData) mustParseMajsoulTiles(majsoulTiles []string) (tiles []int, numRedFive int) {
	tiles = make([]int, len(majsoulTiles))
	for i, majsoulTile := range majsoulTiles {
		var isRedFive bool
		tiles[i], isRedFive = d.mustParseMajsoulTile(majsoulTile)
		if isRedFive {
			numRedFive++
		}
	}
	return
}

func (d *majsoulRoundData) isNewDora(doras []string) bool {
	return len(doras) > len(d.doraIndicators)
}

func (d *majsoulRoundData) GetDataSourceType() int {
	return dataSourceTypeMajsoul
}

func (d *majsoulRoundData) GetSelfSeat() int {
	return d.selfSeat
}

func (d *majsoulRoundData) GetMessage() string {
	return d.originJSON
}
func (d *majsoulRoundData) GetNickName() string {
	// 丑陋的实现，暴力匹配d.originJSON中的第0个nickname，再匹配其之后的第一个':'和第一个','
	// 包裹的中间子串就是nickname
	ans := ""
	if len(d.originJSON) < 400 {
		return ""
	}
	_tmpStr := d.originJSON[:400]
	if debugMode {
		fmt.Println(_tmpStr)
	}
	// ID+nickname应该不会超过400，减少内存
	index1 := strings.Index(_tmpStr, "nickname")
	if index1 == -1 {
		return ""
	}
	index1 = index1 + len("nickname") + len(":") + len("\"")
	_tmpStr = _tmpStr[index1+1:]
	// 非0开始，左开
	if debugMode {
		fmt.Println(_tmpStr)
	}
	index2 := strings.Index(_tmpStr, ",")
	if debugMode {
		fmt.Printf("GetNickName: %d %d\n\n", index1, index1+index2-1)
	}
	ans = string([]rune(_tmpStr)[:index2-1])
	// :开始 右闭
	return ans
}

func (d *majsoulRoundData) SkipMessage() bool {
	msg := d.msg

	// 没有账号 skip
	if gameConf.currentActiveMajsoulAccountID == -1 {
		return true
	}

	// TODO: 重构
	if msg.SeatList != nil {
		// 特判古役模式
		isGuyiMode := msg.GameConfig.isGuyiMode()
		util.SetConsiderOldYaku(isGuyiMode)
		if isGuyiMode {
			color.HiGreen("古役模式已开启")
			time.Sleep(2 * time.Second)
		}
	} else {
		// msg.SeatList 必须为 nil
		if msg.ReadyIDList != nil {
			// 打印准备信息
			fmt.Printf("等待玩家准备 (%d/%d) %v\n", len(msg.ReadyIDList), d.playerNumber, msg.ReadyIDList)
		}
	}

	return false
}

func (d *majsoulRoundData) IsLogin() bool {
	msg := d.msg
	return msg.AccountID > 0 || msg.SeatList != nil
}

func (d *majsoulRoundData) HandleLogin() {
	// 获取用户信息
	msg := d.msg

	if accountID := msg.AccountID; accountID > 0 {
		// 可以直接从majsoulRoundData获取的话
		err := gameConf.addMajsoulAccountID(accountID)
		if err != nil {
			return
		}
		if accountID != gameConf.currentActiveMajsoulAccountID {
			nickName := d.parser.GetNickName()
			if nickName == "" {
				nickName = "unknown"
			}
			fmt.Printf("登录")
			printAccountInfo(accountID, nickName)
			gameConf.setMajsoulAccountID(accountID)
			gameConf.setMajsoulNickName(nickName)
		}
		return
	}

	// 从对战 ID 列表中获取账号 ID
	if seatList := msg.SeatList; seatList != nil {
		// 尝试从中找到缓存账号 ID
		for _, accountID := range seatList {
			if accountID > 0 && gameConf.isIDExist(accountID) {
				nickName := d.parser.GetNickName()
				if nickName == "" {
					nickName = gameConf.currentActiveMajsoulNickName
				}
				if nickName == "" {
					nickName = "unknown"
				}
				// 找到了，更新当前使用的账号 ID
				if gameConf.currentActiveMajsoulAccountID != accountID {
					fmt.Printf("缓存")
					printAccountInfo(accountID, nickName)
					gameConf.setMajsoulAccountID(accountID)
					gameConf.setMajsoulNickName(nickName)
				}
				return
			}
		}

		// 未找到缓存 ID
		if gameConf.currentActiveMajsoulAccountID > 0 {
			color.HiRed("尚未获取到您的账号 ID，请您刷新网页，或开启一局人机对战（错误信息：您的账号 ID %d 不在对战列表 %v 中）", gameConf.currentActiveMajsoulAccountID, msg.SeatList)
			return
		}

		// 判断是否为人机对战，若为人机对战，则获取账号 ID
		if !util.InInts(0, msg.SeatList) {
			return
		}
		for _, accountID := range msg.SeatList {
			// 最多只有四个
			if accountID > 0 {
				gameConf.addMajsoulAccountID(accountID)
				printAccountInfo(accountID, gameConf.currentActiveMajsoulNickName)
				gameConf.setMajsoulAccountID(accountID)
				return
			}
		}
	}
}

func (d *majsoulRoundData) IsInit() bool {
	msg := d.msg
	// ResAuthGame || ActionNewRound RecordNewRound
	return msg.IsGameStart != nil || msg.MD5 != ""
}

func (d *majsoulRoundData) ParseInit() (roundNumber int, benNumber int, dealer int, doraIndicators []int, handTiles []int, numRedFives []int) {
	msg := d.msg
	// fmt.Printf("qwq: %v\n", msg.SeatList)
	if playerNumber := len(msg.SeatList); playerNumber >= 3 {
		d.playerNumber = playerNumber
		// 获取自家初始座位：0-第一局的东家 1-第一局的南家 2-第一局的西家 3-第一局的北家
		for i, accountID := range msg.SeatList {
			if accountID == gameConf.currentActiveMajsoulAccountID {
				d.selfSeat = i
				break
			}
		}
		// dealer: 0=自家, 1=下家, 2=对家, 3=上家
		dealer = (4 - d.selfSeat) % 4
		return
	} else if len(msg.Tiles2) > 0 {
		if len(msg.Tiles3) > 0 {
			d.playerNumber = 4
		} else {
			d.playerNumber = 3
		}
	}
	dealer = -1

	roundNumber = 4*(*msg.Chang) + *msg.Ju
	benNumber = *msg.Ben
	if msg.Dora != "" {
		doraIndicator, _ := d.mustParseMajsoulTile(msg.Dora)
		doraIndicators = append(doraIndicators, doraIndicator)
	} else {
		for _, dora := range msg.Doras {
			doraIndicator, _ := d.mustParseMajsoulTile(dora)
			doraIndicators = append(doraIndicators, doraIndicator)
		}
	}
	numRedFives = make([]int, 3)

	var majsoulTiles []string
	if msg.Tiles != nil { // 实战
		majsoulTiles = d.normalTiles(msg.Tiles)
	} else { // 牌谱、观战
		majsoulTiles = [][]string{msg.Tiles0, msg.Tiles1, msg.Tiles2, msg.Tiles3}[d.selfSeat]
	}
	for _, majsoulTile := range majsoulTiles {
		tile, isRedFive := d.mustParseMajsoulTile(majsoulTile)
		handTiles = append(handTiles, tile)
		if isRedFive {
			numRedFives[tile/9]++
		}
	}

	return
}

func (d *majsoulRoundData) IsSelfDraw() bool {
	msg := d.msg
	// ActionDealTile RecordDealTile
	return msg.Seat != nil && msg.Tile != "" && msg.Moqie == nil && d.parseWho(*msg.Seat) == 0
}

func (d *majsoulRoundData) ParseSelfDraw() (tile int, isRedFive bool, kanDoraIndicator int) {
	msg := d.msg
	tile, isRedFive = d.mustParseMajsoulTile(msg.Tile)
	kanDoraIndicator = -1
	if d.isNewDora(msg.Doras) {
		kanDoraIndicator, _ = d.mustParseMajsoulTile(msg.Doras[len(msg.Doras)-1])
	}
	return
}

func (d *majsoulRoundData) IsDiscard() bool {
	msg := d.msg
	// ActionDiscardTile RecordDiscardTile
	return msg.IsLiqi != nil
}

func (d *majsoulRoundData) ParseDiscard() (who int, discardTile int, isRedFive bool, isTsumogiri bool, isReach bool, canBeMeld bool, kanDoraIndicator int) {
	msg := d.msg
	who = d.parseWho(*msg.Seat)
	discardTile, isRedFive = d.mustParseMajsoulTile(msg.Tile)
	isTsumogiri = *msg.Moqie
	isReach = *msg.IsLiqi
	if msg.IsWliqi != nil && !isReach { // 兼容雀魂早期牌谱（无 IsWliqi 字段）
		isReach = *msg.IsWliqi
	}
	canBeMeld = msg.Operation != nil // 注意：观战模式下无此选项
	kanDoraIndicator = -1
	if d.isNewDora(msg.Doras) {
		kanDoraIndicator, _ = d.mustParseMajsoulTile(msg.Doras[len(msg.Doras)-1])
	}
	return
}

func (d *majsoulRoundData) IsOpen() bool {
	msg := d.msg
	// ActionChiPengGang RecordChiPengGang || ActionAnGangAddGang RecordAnGangAddGang
	return msg.Tiles != nil && len(d.normalTiles(msg.Tiles)) <= 4
}

func (d *majsoulRoundData) ParseOpen() (who int, meld *model.Meld, kanDoraIndicator int) {
	msg := d.msg

	who = d.parseWho(*msg.Seat)

	kanDoraIndicator = -1
	if d.isNewDora(msg.Doras) { // 暗杠（有时会在玩家摸牌后才发送 doras，可能是因为需要考虑抢暗杠的情况）
		kanDoraIndicator, _ = d.mustParseMajsoulTile(msg.Doras[len(msg.Doras)-1])
	}

	var meldType, calledTile int

	majsoulTiles := d.normalTiles(msg.Tiles)
	isSelfKan := len(majsoulTiles) == 1 // 自家加杠或暗杠
	if isSelfKan {
		majsoulTile := majsoulTiles[0]
		majsoulTiles = []string{majsoulTile, majsoulTile, majsoulTile, majsoulTile}
	}
	meldTiles, numRedFive := d.mustParseMajsoulTiles(majsoulTiles)
	containRedFive := numRedFive > 0
	if len(majsoulTiles) == 4 && meldTiles[0] < 27 && meldTiles[0]%9 == 4 {
		// 杠5意味着一定有赤5
		containRedFive = true
	}

	if isSelfKan {
		calledTile = meldTiles[0]
		// 用 msg.Type 判断是加杠还是暗杠
		// 也可以通过是否有相关碰副露来判断是加杠还是暗杠
		if msg.Type == majsoulMeldTypeMinkanOrKakan {
			meldType = meldTypeKakan // 加杠
		} else if msg.Type == majsoulMeldTypeAnkan {
			meldType = meldTypeAnkan // 暗杠
		}
		meld = &model.Meld{
			MeldType:       meldType,
			Tiles:          meldTiles,
			CalledTile:     calledTile,
			ContainRedFive: containRedFive,
		}
		return
	}

	var rawCalledTile string
	for i, seat := range msg.Froms {
		fromWho := d.parseWho(seat)
		if fromWho != who {
			rawCalledTile = majsoulTiles[i]
		}
	}
	if rawCalledTile == "" {
		panic("数据解析异常: 未找到 rawCalledTile")
	}
	calledTile, redFiveFromOthers := d.mustParseMajsoulTile(rawCalledTile)

	if len(meldTiles) == 3 {
		if meldTiles[0] == meldTiles[1] {
			meldType = meldTypePon // 碰
		} else {
			meldType = meldTypeChi // 吃
			sort.Ints(meldTiles)
		}
	} else if len(meldTiles) == 4 {
		meldType = meldTypeMinkan // 大明杠
	} else {
		panic("鸣牌数据解析失败！")
	}
	meld = &model.Meld{
		MeldType:          meldType,
		Tiles:             meldTiles,
		CalledTile:        calledTile,
		ContainRedFive:    containRedFive,
		RedFiveFromOthers: redFiveFromOthers,
	}
	return
}

func (d *majsoulRoundData) IsReach() bool {
	return false
}

func (d *majsoulRoundData) ParseReach() (who int) {
	return 0
}

func (d *majsoulRoundData) IsFuriten() bool {
	return false
}

func (d *majsoulRoundData) IsRoundWin() bool {
	msg := d.msg
	// ActionHule RecordHule
	return msg.Hules != nil
}

func (d *majsoulRoundData) ParseRoundWin() (whos []int, points []int) {
	msg := d.msg

	for _, result := range msg.Hules {
		who := d.parseWho(result.Seat)
		whos = append(whos, d.parseWho(result.Seat))
		point := result.PointRong
		if result.Zimo {
			if who == d.dealer {
				point = 3 * result.PointZimoXian
			} else {
				point = result.PointZimoQin + 2*result.PointZimoXian
			}
			if d.playerNumber == 3 {
				// 自摸损（一个子家）
				point -= result.PointZimoXian
			}
		}
		points = append(points, point)
	}
	return
}

func (d *majsoulRoundData) IsRyuukyoku() bool {
	// TODO
	// ActionLiuJu RecordLiuJu
	return false
}

func (d *majsoulRoundData) ParseRyuukyoku() (type_ int, whos []int, points []int) {
	// TODO
	return
}

// 拔北宝牌
func (d *majsoulRoundData) IsNukiDora() bool {
	msg := d.msg
	// ActionBaBei RecordBaBei
	return msg.Seat != nil && msg.Moqie != nil && msg.Tile == ""
}

func (d *majsoulRoundData) ParseNukiDora() (who int, isTsumogiri bool) {
	msg := d.msg
	return d.parseWho(*msg.Seat), *msg.Moqie
}

// 在最后处理该项
func (d *majsoulRoundData) IsNewDora() bool {
	msg := d.msg
	// ActionDealTile
	return d.isNewDora(msg.Doras)
}

func (d *majsoulRoundData) ParseNewDora() (kanDoraIndicator int) {
	msg := d.msg

	kanDoraIndicator, _ = d.mustParseMajsoulTile(msg.Doras[len(msg.Doras)-1])
	return
}