EQ2EMu/server/SpawnScripts/ThunderingSteppes/Blackjack.lua

-- Blackjack script
--[[
Phil NPCID: 2490682 (on live)
Script Name: SpawnScripts/ThunderingSteppes/Blackjack.lua
Script Purpose: a Blackjack game with bets, payouts, and real shuffling
Script Author: Patrikpatrik
Script Date: August 22 2016
Script Notes: seems bulletproof but needs more testing. 7th revision
--]]

--52 cards in a deck
local cardtable = {
'A♠', '2♠', '3♠','4♠','5♠','6♠','7♠',
'8♠','9♠','10♠','Jack♠','Queen♠','King♠',
'A♥', '2♥', '3♥','4♥','5♥','6♥','7♥',
'8♥','9♥','10♥','Jack♥','Queen♥','King♥',
'A♣', '2♣', '3♣','4♣','5♣','6♣','7♣',
'8♣','9♣','10♣','Jack♣','Queen♣','King♣',
'A♦', '2♦', '3♦','4♦','5♦','6♦','7♦',
'8♦','9♦','10♦','Jack♦','Queen♦','King♦',
}
--This shuffles the deck of cards randomly each pass
function shuffle(NPC, Spawn)
	new = {}
	for i=1, #cardtable do
		table.insert(new, math.random(i), cardtable[i])
	end
end
--Assign values to firstcard
function CardValues1(NPC, Spawn)
	if firstcard == 'A♠' or firstcard == 'A♥' or firstcard == 'A♣' or firstcard == 'A♦' then
		first = 1
		myace = 10
	elseif firstcard == '2♠' or firstcard == '2♥' or firstcard == '2♣' or firstcard == '2♦' then
		first = 2
	elseif firstcard == '3♠' or firstcard == '3♥' or firstcard == '3♣' or firstcard == '3♦' then
		first = 3
	elseif firstcard == '4♠' or firstcard == '4♥' or firstcard == '4♣' or firstcard == '4♦' then
		first = 4
	elseif firstcard == '5♠' or firstcard == '5♥' or firstcard == '5♣' or firstcard == '5♦' then
		first = 5
	elseif firstcard == '6♠' or firstcard == '6♥' or firstcard == '6♣' or firstcard == '6♦' then
		first = 6
	elseif firstcard == '7♠' or firstcard == '7♥' or firstcard == '7♣' or firstcard == '7♦' then
		first = 7
	elseif firstcard == '8♠' or firstcard == '8♥' or firstcard == '8♣' or firstcard == '8♦' then
		first = 8
	elseif firstcard == '9♠' or firstcard == '9♥' or firstcard == '9♣' or firstcard == '9♦' then
		first = 9
	elseif firstcard == '10♠' or firstcard == '10♥' or firstcard == '10♣' or firstcard == '10♦' then
		first = 10
	elseif firstcard == 'Jack♠' or firstcard == 'Jack♥' or firstcard == 'Jack♣' or firstcard == 'Jack♦' then
		first = 10
	elseif firstcard == 'Queen♠' or firstcard == 'Queen♥' or firstcard == 'Queen♣' or firstcard == 'Queen♦' then
		first = 10
	elseif firstcard == 'King♠' or firstcard == 'King♥' or firstcard == 'King♣' or firstcard == 'King♦' then
		first = 10
	else
	end
end
--Assign values to secondcard
function CardValues2(NPC, Spawn)
	if secondcard == 'A♠' or secondcard == 'A♥' or secondcard == 'A♣' or secondcard == 'A♦' then
		second = 1
		dealerace = 10
	elseif secondcard == '2♠' or secondcard == '2♥' or secondcard == '2♣' or secondcard == '2♦' then
		second = 2
	elseif secondcard == '3♠' or secondcard == '3♥' or secondcard == '3♣' or secondcard == '3♦' then
		second = 3
	elseif secondcard == '4♠' or secondcard == '4♥' or secondcard == '4♣' or secondcard == '4♦' then
		second = 4
	elseif secondcard == '5♠' or secondcard == '5♥' or secondcard == '5♣' or secondcard == '5♦' then
		second = 5
	elseif secondcard == '6♠' or secondcard == '6♥' or secondcard == '6♣' or secondcard == '6♦' then
		second = 6
	elseif secondcard == '7♠' or secondcard == '7♥' or secondcard == '7♣' or secondcard == '7♦' then
		second = 7
	elseif secondcard == '8♠' or secondcard == '8♥' or secondcard == '8♣' or secondcard == '8♦' then
		second = 8
	elseif secondcard == '9♠' or secondcard == '9♥' or secondcard == '9♣' or secondcard == '9♦' then
		second = 9
	elseif secondcard == '10♠' or secondcard == '10♥' or secondcard == '10♣' or secondcard == '10♦' then
		second = 10
	elseif secondcard == 'Jack♠' or secondcard == 'Jack♥' or secondcard == 'Jack♣' or secondcard == 'Jack♦' then
		second = 10
	elseif secondcard == 'Queen♠' or secondcard == 'Queen♥' or secondcard == 'Queen♣' or secondcard == 'Queen♦' then
		second = 10
	elseif secondcard == 'King♠' or secondcard == 'King♥' or secondcard == 'King♣' or secondcard == 'King♦' then
		second = 10
	else
	end
end
--Assign values to thirdcard
function CardValues3(NPC, Spawn)
	if thirdcard == 'A♠' or thirdcard == 'A♥' or thirdcard == 'A♣' or thirdcard == 'A♦' then
		third = 1
		myace = 10
	elseif thirdcard == '2♠' or thirdcard == '2♥' or thirdcard == '2♣' or thirdcard == '2♦' then
		third = 2
	elseif thirdcard == '3♠' or thirdcard == '3♥' or thirdcard == '3♣' or thirdcard == '3♦' then
		third = 3
	elseif thirdcard == '4♠' or thirdcard == '4♥' or thirdcard == '4♣' or thirdcard == '4♦' then
		third = 4
	elseif thirdcard == '5♠' or thirdcard == '5♥' or thirdcard == '5♣' or thirdcard == '5♦' then
		third = 5
	elseif thirdcard == '6♠' or thirdcard == '6♥' or thirdcard == '6♣' or thirdcard == '6♦' then
		third = 6
	elseif thirdcard == '7♠' or thirdcard == '7♥' or thirdcard == '7♣' or thirdcard == '7♦' then
		third = 7
	elseif thirdcard == '8♠' or thirdcard == '8♥' or thirdcard == '8♣' or thirdcard == '8♦' then
		third = 8
	elseif thirdcard == '9♠' or thirdcard == '9♥' or thirdcard == '9♣' or thirdcard == '9♦' then
		third = 9
	elseif thirdcard == '10♠' or thirdcard == '10♥' or thirdcard == '10♣' or thirdcard == '10♦' then
		third = 10
	elseif thirdcard == 'Jack♠' or thirdcard == 'Jack♥' or thirdcard == 'Jack♣' or thirdcard == 'Jack♦' then
		third = 10
	elseif thirdcard == 'Queen♠' or thirdcard == 'Queen♥' or thirdcard == 'Queen♣' or thirdcard == 'Queen♦' then
		third = 10
	elseif thirdcard == 'King♠' or thirdcard == 'King♥' or thirdcard == 'King♣' or thirdcard == 'King♦' then
		third = 10
	else
	end
end
--Assign values to fourthcard
function CardValues4(NPC, Spawn)
	if fourthcard == 'A♠' or fourthcard == 'A♥' or fourthcard == 'A♣' or fourthcard == 'A♦' then
		fourth = 1
		dealerace = 10
	elseif fourthcard == '2♠' or fourthcard == '2♥' or fourthcard == '2♣' or fourthcard == '2♦' then
		fourth = 2
	elseif fourthcard == '3♠' or fourthcard == '3♥' or fourthcard == '3♣' or fourthcard == '3♦' then
		fourth = 3
	elseif fourthcard == '4♠' or fourthcard == '4♥' or fourthcard == '4♣' or fourthcard == '4♦' then
		fourth = 4
	elseif fourthcard == '5♠' or fourthcard == '5♥' or fourthcard == '5♣' or fourthcard == '5♦' then
		fourth = 5
	elseif fourthcard == '6♠' or fourthcard == '6♥' or fourthcard == '6♣' or fourthcard == '6♦' then
		fourth = 6
	elseif fourthcard == '7♠' or fourthcard == '7♥' or fourthcard == '7♣' or fourthcard == '7♦' then
		fourth = 7
	elseif fourthcard == '8♠' or fourthcard == '8♥' or fourthcard == '8♣' or fourthcard == '8♦' then
		fourth = 8
	elseif fourthcard == '9♠' or fourthcard == '9♥' or fourthcard == '9♣' or fourthcard == '9♦' then
		fourth = 9
	elseif fourthcard == '10♠' or fourthcard == '10♥' or fourthcard == '10♣' or fourthcard == '10♦' then
		fourth = 10
	elseif fourthcard == 'Jack♠' or fourthcard == 'Jack♥' or fourthcard == 'Jack♣' or fourthcard == 'Jack♦' then
		fourth = 10
	elseif fourthcard == 'Queen♠' or fourthcard == 'Queen♥' or fourthcard == 'Queen♣' or fourthcard == 'Queen♦' then
		fourth = 10
	elseif fourthcard == 'King♠' or fourthcard == 'King♥' or fourthcard == 'King♣' or fourthcard == 'King♦' then
		fourth = 10
	else
	end
end
--Assign values to nextcard
function CardValues5(NPC, Spawn)
	if extracard == 'A♠' or extracard == 'A♥' or extracard == 'A♣' or extracard == 'A♦' then
		extra = 1
		nextace = 10
	elseif extracard == '2♠' or extracard == '2♥' or extracard == '2♣' or extracard == '2♦' then
		extra = 2
	elseif extracard == '3♠' or extracard == '3♥' or extracard == '3♣' or extracard == '3♦' then
		extra = 3
	elseif extracard == '4♠' or extracard == '4♥' or extracard == '4♣' or extracard == '4♦' then
		extra = 4
	elseif extracard == '5♠' or extracard == '5♥' or extracard == '5♣' or extracard == '5♦' then
		extra = 5
	elseif extracard == '6♠' or extracard == '6♥' or extracard == '6♣' or extracard == '6♦' then
		extra = 6
	elseif extracard == '7♠' or extracard == '7♥' or extracard == '7♣' or extracard == '7♦' then
		extra = 7
	elseif extracard == '8♠' or extracard == '8♥' or extracard == '8♣' or extracard == '8♦' then
		extra = 8
	elseif extracard == '9♠' or extracard == '9♥' or extracard == '9♣' or extracard == '9♦' then
		extra = 9
	elseif extracard == '10♠' or extracard == '10♥' or extracard == '10♣' or extracard == '10♦' then
		extra = 10
	elseif extracard == 'Jack♠' or extracard == 'Jack♥' or extracard == 'Jack♣' or extracard == 'Jack♦' then
		extra = 10
	elseif extracard == 'Queen♠' or extracard == 'Queen♥' or extracard == 'Queen♣' or extracard == 'Queen♦' then
		extra = 10
	elseif extracard == 'King♠' or extracard == 'King♥' or extracard == 'King♣' or extracard == 'King♦' then
		extra = 10
	else
	end
end
--Deals the cards
function Deal(NPC, Spawn)
	shuffle(NPC, Spawn)
	shuffle(NPC, Spawn)
	
	burncard = table.remove(new, 1) --burns a card off the top
	firstcard = table.remove(new, 1) --1st card goes to player
	secondcard = table.remove(new, 1) --2nd card goes to dealer
	thirdcard = table.remove(new, 1) --3rd card goes to player
	fourthcard = table.remove(new, 1) --4th card goes to dealer
	
	CardValues1()
	CardValues2()
	CardValues3()
	CardValues4() --assigns values
	
	--peeking at what goes on at this junction
	--Say(NPC, "In deal function firstcard is [" .. firstcard .. "] value of " .. first .. ". Secondcard is [" .. secondcard .. "] value of " .. second .. ".")
	--Say(NPC, "In deal function thirdcard is [" .. thirdcard .. "] value of " .. third .. ". Fourthcard is [" .. fourthcard .. "] value of " .. fourth .. ".")
	
end
--This function combines total, checks for aces logic, and determines if blackjack occured
function Calculates(NPC, Spawn)
	playertotal = first + third
	dealertotal = second + fourth
	if myace == 10 and dealerace == 10 and playertotal == 11 and dealertotal == 11 then
		Bothbj(NPC, Spawn)
	elseif dealerace == 10 and dealertotal == 11 then
		dealertotal = 21
		Dealerbj(NPC, Spawn)
	elseif myace == 10 and playertotal == 11 then
		playertotal = 21
		Playerbj(NPC, Spawn)
	elseif myace == 10 and dealerace == 10 then
		alt = " or "
		alt2 = " or "
		myaces = first + third + 10
		dealeraces = second + fourth + 10
		HitStand1(NPC, Spawn)
	elseif myace == 10 then
		alt = " or "
		alt2 = ""
		dealeraces = ""
		myaces = first + third + 10
		HitStand1(NPC, Spawn)
	elseif dealerace == 10 then
		alt = ""
		alt2 = " or "
		myaces = ""
		dealeraces = second + fourth + 10
		HitStand1(NPC, Spawn)
	else
		alt = ""
		alt2 = ""
		myaces = ""
		dealeraces = ""
		HitStand1(NPC, Spawn)
	end
end
--calculates the next card etc..
function CalcMore(NPC, Spawn)
	playertotal = playertotal + extra
	if myace == 10 then
		alt = " or "
		myaces = playertotal + 10
	elseif nextace == 10 then
		alt = " or "
		myaces = playertotal + 10
	else
		alt = ""
		myaces = ""
	end
end
--Text results
function Bothbj(NPC, Spawn)
	Emote(NPC, "reveals [" .. secondcard .. "][" .. fourthcard .. "]")
	Emote(Spawn, "peeks at [" .. firstcard .. "][" .. thirdcard .. "]")
	Say(NPC, "You both get blackjack, it's a push!")
	SendPopUpMessage(Spawn, "You both get blackjack, it's a push!", 255, 255, 0)
	PushLose1(NPC, Spawn)
	AddCoin(Spawn, coins)  -- Get your money back
	Dumbdoh1(NPC, Spawn)
	Clearvars()
end
function Dealerbj(NPC, Spawn)
	Emote(Spawn, "peeks at [" .. firstcard .. "][" .. thirdcard .. "] for a total of " .. playertotal .. ".")
	Emote(NPC, "reveals [" .. secondcard .. "][" .. fourthcard .. "]")
	Say(NPC, "I'm sorry but dealer hits blackjack!")
	SendPopUpMessage(Spawn, "Dealer hits blackjack! You lose" .. GetCoinMessage(coins) .. "!", 255, 0, 0)
	ApplySpellVisual(Spawn, 874)
	Sorry1(NPC, Spawn)
	Clearvars()
end
function Playerbj(NPC, Spawn)
	Emote(Spawn, "peeks at [" .. firstcard .. "][" .. thirdcard .. "]")
	Say(NPC, "Congratulations, you got blackjack!")
	Winning1(NPC, Spawn)
	PlaySound(NPC, "sounds/test/endquest.wav", GetX(NPC), GetY(NPC), GetZ(NPC)) --Ding!
	ApplySpellVisual(Spawn, 872) --Jackpot style!
	AddCoin(Spawn, coins/2*3)
	SendPopUpMessage(Spawn, "Congratulations " .. GetName(Spawn) .. " you got blackjack! You win" .. GetCoinMessage(coins/2*3) .. "!" , 0, 255, 0)
	Emote(NPC, "reveals [" .. secondcard .. "][" .. fourthcard .. "]")
	Clearvars()
end
-- Agree sounds
function Agree(NPC, Spawn)
	agree1 = math.random(3)
	if agree1 == 1 then
		--PlayFlavor(NPC, "voiceover/english/voice_emotes/agree/agree_1_1006.mp3", "", "agree", 0, 0, Spawn)
		PlaySound(NPC, "voiceover/english/voice_emotes/agree/agree_1_1006.mp3", GetX(NPC), GetY(NPC), GetZ(NPC))
	elseif agree1 == 2 then
		--PlayFlavor(NPC, "voiceover/english/voice_emotes/agree/agree_2_1006.mp3", "", "agree", 0, 0, Spawn)
		PlaySound(NPC, "voiceover/english/voice_emotes/agree/agree_2_1006.mp3", GetX(NPC), GetY(NPC), GetZ(NPC))
	elseif agree1 == 3 then
		--PlayFlavor(NPC, "voiceover/english/voice_emotes/agree/agree_3_1006.mp3", "", "agree", 0, 0, Spawn)
		PlaySound(NPC, "voiceover/english/voice_emotes/agree/agree_3_1006.mp3", GetX(NPC), GetY(NPC), GetZ(NPC))
	end
end
-- dumb doh sounds
function Dumbdoh1(NPC, Spawn)
	randpickv = math.random(3)
	if randpickv == 1 then
		PlayFlavor(NPC, "voiceover/english/voice_emotes/doh/doh_1006.mp3", "", "doh", 0, 0, Spawn)
	elseif randpickv == 2 then
		PlayFlavor(NPC, "voiceover/english/voice_emotes/doh/doh_1022.mp3", "", "doh", 0, 0, Spawn)
	else
		PlayFlavor(NPC, "voiceover/english/voice_emotes/doh/doh_1050.mp3", "", "doh", 0, 0, Spawn)
	end
end
-- Sorry sounds
function Sorry1(NPC, Spawn)
	sorrypick = math.random(3)
	if sorrypick == 1 then
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_1_1006.mp3", "", "apologize", 0, 0, Spawn)
	elseif sorrypick == 2 then
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_2_1006.mp3", "", "apologize", 0, 0, Spawn)
	elseif sorrypick == 3 then
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
	end
end
-- Levels of coin falling function
function CoinFalling1(NPC, Spawn)
	-- if coins == 100 then
	
	if coins == 10000 then
		--Too cheap for falling coins!
	elseif coins == 100000 then
		ApplySpellVisual(Spawn, 869)	
	elseif coins == 500000 then
		ApplySpellVisual(Spawn, 870)
	elseif coins == 10000000 then
		ApplySpellVisual(Spawn, 871)
	end
end
-- Winning emotes function
function Winning1(NPC, Spawn)
	winning = math.random(12)
	if winning == 1 then
		PlayFlavor(Spawn, "", "", "agree", 0, 0, NPC)
	elseif winning == 2 then
		PlayFlavor(Spawn, "", "", "bow", 0, 0, NPC)
	elseif winning == 3 then
		PlayFlavor(Spawn, "", "", "cackle", 0, 0, NPC)
	elseif winning == 4 then
		PlayFlavor(Spawn, "", "", "cheer", 0, 0, NPC)
	elseif winning == 5 then
		PlayFlavor(Spawn, "", "", "chuckle", 0, 0, NPC)
	elseif winning == 6 then
		PlayFlavor(Spawn, "", "", "cutthroat", 0, 0, NPC)
	elseif winning == 7 then
		PlayFlavor(Spawn, "", "", "flex", 0, 0, NPC)
	elseif winning == 8 then
		PlayFlavor(Spawn, "", "", "happy", 0, 0, NPC)
	elseif winning == 9 then
		PlayFlavor(Spawn, "", "", "heartattack", 0, 0, NPC)
	elseif winning == 10 then
		PlayFlavor(Spawn, "", "", "heelclick", 0, 0, NPC)
	elseif winning == 11 then
		PlayFlavor(Spawn, "", "", "howl", 0, 0, NPC)
	elseif winning == 12 then
		PlayFlavor(Spawn, "", "", "laugh", 0, 0, NPC)
	end
end
-- Losing /pushing emotes function
function PushLose1(NPC, Spawn)
	PushLose = math.random(11)
	if PushLose == 1 then
		PlayFlavor(Spawn, "", "", "shrug", 0, 0, NPC)
	elseif PushLose == 2 then
		PlayFlavor(Spawn, "", "", "violin", 0, 0, NPC)
	elseif PushLose == 3 then
		PlayFlavor(Spawn, "", "", "boggle", 0, 0, NPC)
	elseif PushLose == 4 then
		PlayFlavor(Spawn, "", "", "confused", 0, 0, NPC)
	elseif PushLose == 5 then
		PlayFlavor(Spawn, "", "", "cringe", 0, 0, NPC)
	elseif PushLose == 6 then
		PlayFlavor(Spawn, "", "", "doh", 0, 0, NPC)
	elseif PushLose == 7 then
		PlayFlavor(Spawn, "", "", "doubletake", 0, 0, NPC)
	elseif PushLose == 8 then
		PlayFlavor(Spawn, "", "", "hearnoevil", 0, 0, NPC)
	elseif PushLose == 9 then
		PlayFlavor(Spawn, "", "", "speaknoevil", 0, 0, NPC)
	elseif PushLose == 10 then
		PlayFlavor(Spawn, "", "", "lookaway", 0, 0, NPC)
	elseif PushLose == 11 then
		PlayFlavor(Spawn, "", "", "sigh", 0, 0, NPC)
	end
end
-- Busting emotes function
function Busting1(NPC, Spawn)
	Busting = math.random(11)
	if Busting == 1 then
		PlayFlavor(Spawn, "", "", "rude", 0, 0, NPC)
	elseif Busting == 2 then
		PlayFlavor(Spawn, "", "", "heartattack", 0, 0, NPC)
	elseif Busting == 3 then
		PlayFlavor(Spawn, "", "", "curse", 0, 0, NPC)
	elseif Busting == 4 then
		PlayFlavor(Spawn, "", "", "frustrated", 0, 0, NPC)
	elseif Busting == 5 then
		PlayFlavor(Spawn, "", "", "swear", 0, 0, NPC)
	elseif Busting == 6 then
		PlayFlavor(Spawn, "", "", "tantrum", 0, 0, NPC)
	elseif Busting == 7 then
		PlayFlavor(Spawn, "", "", "threaten", 0, 0, NPC)
	elseif Busting == 8 then
		PlayFlavor(Spawn, "", "", "brandish", 0, 0, NPC)
	elseif Busting == 9 then
		PlayFlavor(Spawn, "", "", "crazy", 0, 0, NPC)
	elseif Busting == 10 then
		PlayFlavor(Spawn, "", "", "cry", 0, 0, NPC)
	elseif Busting == 11 then
		PlayFlavor(Spawn, "", "", "sulk", 0, 0, NPC)
	end
end
--This function iterates player hit
function Hit1(NPC, Spawn)
	extracard = table.remove(new, 1)
	CardValues5()
	CalcMore(NPC, Spawn)
	
	if playertotal > 21 then
		Emote(Spawn, "receives a [" .. extracard .. "] for a total of " .. playertotal .. ".")
		Say(NPC, "I'm sorry but you bust!")
		Busting1(NPC, Spawn)
		Sorry1(NPC, Spawn)
		Emote(NPC, "reveals [" .. secondcard .. "][" .. fourthcard .. "]")
		SendPopUpMessage(Spawn, "Player busts! You lose " .. GetCoinMessage(coins) .. "!", 255, 0, 0)
		Clearvars()
	elseif myaces~= "" and myaces < 22 then
		conversation = CreateConversation()
		AddConversationOption(conversation, "Hit!", "Hit1")
		AddConversationOption(conversation, "Stand!", "Stand1")
		StartConversation(conversation, NPC, Spawn, "You HIT!")
		Emote(Spawn, "receives a [" .. extracard .. "] for a total of " .. playertotal .. alt .. myaces .. ".")
	elseif playertotal <= 21 then
		conversation = CreateConversation()
		AddConversationOption(conversation, "Hit!", "Hit1")
		AddConversationOption(conversation, "Stand!", "Stand1")
		StartConversation(conversation, NPC, Spawn, "You HIT!")
		Emote(Spawn, "receives a [" .. extracard .. "] for a total of " .. playertotal .. ".")
	end	
end
--Function for dealer's hit iteration and lower/higher value logic
function DealerHit(NPC, Spawn)
	if dealeraces ~= "" and dealeraces > 16 then
		dealertotal = dealeraces
		Say(NPC, dealertotal .. "!")
	elseif dealeraces~= "" and dealeraces < 17 then
		while dealeraces < 17 do
			extracard = table.remove(new, 1)
			CardValues5()
			Emote(NPC, "next card is [" .. extracard .. "]")
			dealeraces = dealeraces + extra
			dealertotal = dealertotal + extra
			if dealeraces > 21 then
				dealeraces = dealertotal
				Say(NPC, dealeraces .. "!")
			else
				dealertotal = dealeraces
				Say(NPC, dealertotal .. "!")
			end
		end
	elseif dealertotal < 17 then
		while dealertotal < 17 do
			extracard = table.remove(new, 1)
			CardValues5()
			Emote(NPC, "next card is [" .. extracard .. "]")
			dealertotal = dealertotal + extra
			if nextace == 10 then
				dealeraces = dealertotal + 10
				if dealeraces > 21 then
					dealeraces = dealertotal
					Say(NPC, dealeraces .. "!")
				else
					dealertotal = dealeraces
					Say(NPC, dealertotal .. "!")
				end
			else
			Say(NPC, dealertotal .. "!")
			end
		end
	end
	ComparingFinal(NPC, Spawn)
end
--Comparing final values and ending the game
function ComparingFinal(NPC, Spawn)
	if dealertotal > 21 then
		Say(NPC, "Dealer busts and player wins" .. GetCoinMessage(coins) .. "!")
		Winning1(NPC, Spawn)
		CoinFalling1(NPC, Spawn)
		AddCoin(Spawn, coins*2)
		SendPopUpMessage(Spawn, "Dealer busts! You win" .. GetCoinMessage(coins) .. "!", 255, 255, 0)
	elseif myaces~= "" and dealertotal > myaces then
		Say(NPC, "Dealer must stand and Dealer wins!")
		PushLose1(NPC, Spawn)
		SendPopUpMessage(Spawn, "Dealer wins! You lose" .. GetCoinMessage(coins) .. "!", 213, 89, 0)
		Sorry1(NPC, Spawn)
	elseif myaces~= "" and dealertotal < myaces then
		Say(NPC, "Dealer must stand and Player wins!")
		Winning1(NPC, Spawn)
		CoinFalling1(NPC, Spawn)
		AddCoin(Spawn, coins*2)
		SendPopUpMessage(Spawn, "Player wins! You win" .. GetCoinMessage(coins) .. "!", 255, 255, 0)
	elseif myaces~= "" and dealertotal == myaces then
		Say(NPC, "Dealer stands. It's a push, nobody wins!")
		AddCoin(Spawn, coins) -- Get your money back
		SendPopUpMessage(Spawn, "It's a push. You get your money back!", 255, 255, 0)
		PushLose1(NPC, Spawn)
		Dumbdoh1(NPC, Spawn)
	elseif dealertotal > playertotal then
		Say(NPC, "Dealer must stand and Dealer wins!")
		PushLose1(NPC, Spawn)
		SendPopUpMessage(Spawn, "Dealer wins! You lose" .. GetCoinMessage(coins) .. "!", 213, 89, 0)
		Sorry1(NPC, Spawn)
	elseif playertotal > dealertotal then
		Say(NPC, "Dealer must stand and Player wins!")
		Winning1(NPC, Spawn)
		CoinFalling1(NPC, Spawn)
		AddCoin(Spawn, coins*2)
		SendPopUpMessage(Spawn, "Player wins! You win" .. GetCoinMessage(coins) .. "!", 255, 255, 0)
	else
		Say(NPC, "Dealer stands. It's a push, nobody wins!")
		AddCoin(Spawn, coins)  -- Get your money back
		SendPopUpMessage(Spawn, "It's a push. You get your money back!", 255, 255, 0)
		PushLose1(NPC, Spawn)
		Dumbdoh1(NPC, Spawn)
	end
	Clearvars()
end
--Function on STAND now dealer needs to iterate value, determine aces, and compare players total
function Stand1(NPC, Spawn)
	if myaces == "" then
		myaces = ""
	elseif myaces > 21 then
		alt = ""
		myaces = ""
	elseif myaces < 22 then
		alt = ""
		playertotal = ""
	end
	Emote(NPC, "reveals [" .. secondcard .. "][" .. fourthcard .. "]")
	DealerHit(NPC, Spawn)
end

--Function for hit or stand option with cards revealed.
function HitStand1(NPC, Spawn)
	conversation = CreateConversation()
	AddConversationOption(conversation, "Hit!", "Hit1")
	AddConversationOption(conversation, "Stand!", "Stand1")
	StartConversation(conversation, NPC, Spawn, "Dealer's top card is [" .. fourthcard .. "]")
	Emote(Spawn, "peeks at [" .. firstcard .. "][" .. thirdcard .. "] for a total of " .. playertotal .. alt .. myaces .. ".")
end
--Resets variables for the next playthrough
function Clearvars(NPC, Spawn)
	alt = ""
	alt2 = ""
	myaces = ""
	dealeraces = ""
	myace = 0
	dealerace = 0
	playertotal = 0
	dealertotal = 0
	nextace = ""
end
--Start of usual functions
function spawn(NPC)
	SetPlayerProximityFunction(NPC, 4, "InRange", "LeaveRange")
end
function respawn(NPC)
	spawn(NPC)
	Clearvars()
end
function InRange(NPC, Spawn)
	Emote(NPC, "shuffles a crisp deck of cards.")
	Say(NPC, "Test your luck mate?")
	Clearvars()
end
function LeaveRange(NPC, Spawn)
	Say(NPC, "See you next time!")
	PlayFlavor(NPC, "", "", "bye", 0, 0, Spawn)
	Clearvars() --Just in case
end
function hailed(NPC, Spawn)
	Clearvars() --Just in case
	conversation = CreateConversation()
	AddConversationOption(conversation, "Let's play.", "Play1")
	AddConversationOption(conversation, "Rules please.", "Rules1")
	StartConversation(conversation, NPC, Spawn, "Ready to play?")
end
function Play1(NPC, Spawn)
	conversation = CreateConversation()
	AddConversationOption(conversation, "I'll bet 10 platinum!", "Plat1")
	AddConversationOption(conversation, "I'll bet 50 gold!", "Gold2")
	AddConversationOption(conversation, "I'll bet 10 gold.", "Gold1")
	AddConversationOption(conversation, "I'll bet 1 gold.", "Silver1")
	-- AddConversationOption(conversation, "I'll bet 100 copper.", "Copper1") -- Too cheap!!
	AddConversationOption(conversation, "I changed my mind, sorry.", "Bye1")
	StartConversation(conversation, NPC, Spawn, "Let's begin! Place your bets please.")
end
--Start of blackjack script
function Plat1(NPC, Spawn)
	conversation = CreateConversation()
	coins = 10000000 -- 10 platinum
	local poolCoins = RemoveCoin(Spawn, coins)
	if(poolCoins) then
		Agree(NPC, Spawn)
		Emote(NPC, "shuffles twice and then begins to deal.")
		--Deal the cards
		Deal(NPC, Spawn) --adding parameters for troubleshooting
		--Do calculations
		Calculates(NPC, Spawn)
	else
		Say(NPC, "I'm sorry but you don't have enough money.")
		PlaySound(NPC, "sounds/combat/impact/leather/impact_metal_to_leather04.wav", GetX(NPC), GetY(NPC), GetZ(NPC))
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
		Clearvars()
	end
end
function Gold2(NPC, Spawn)
	conversation = CreateConversation()
	coins = 500000 -- 50 gold
	local poolCoins = RemoveCoin(Spawn, coins)
	if(poolCoins) then
		Agree(NPC, Spawn)
		Emote(NPC, "shuffles twice and then begins to deal.")
		--Deal the cards
		Deal(NPC, Spawn) --adding parameters for troubleshooting
		--Do calculations
		Calculates(NPC, Spawn)
	else
		Say(NPC, "I'm sorry but you don't have enough money.")
		PlaySound(NPC, "sounds/combat/impact/leather/impact_metal_to_leather04.wav", GetX(NPC), GetY(NPC), GetZ(NPC))
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
		Clearvars()
	end
end
function Gold1(NPC, Spawn)
	conversation = CreateConversation()
	coins = 100000 -- 10 gold
	local poolCoins = RemoveCoin(Spawn, coins)
	if(poolCoins) then
		Agree(NPC, Spawn)
		Emote(NPC, "shuffles twice and then begins to deal.")
		--Deal the cards
		Deal(NPC, Spawn) --adding parameters for troubleshooting
		--Do calculations
		Calculates(NPC, Spawn)
	else
		Say(NPC, "I'm sorry but you don't have enough money.")
		PlaySound(NPC, "sounds/combat/impact/leather/impact_metal_to_leather04.wav", GetX(NPC), GetY(NPC), GetZ(NPC))
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
		Clearvars()
	end
end
function Silver1(NPC, Spawn)
	conversation = CreateConversation()
	coins = 10000 -- 1 gold
	local poolCoins = RemoveCoin(Spawn, coins)
	if(poolCoins) then
		Agree(NPC, Spawn)
		Emote(NPC, "shuffles twice and then begins to deal.")
		--Deal the cards
		Deal(NPC, Spawn) --adding parameters for troubleshooting
		--Do calculations
		Calculates(NPC, Spawn)
	else
		Say(NPC, "I'm sorry but you don't have enough money.")
		PlaySound(NPC, "sounds/combat/impact/leather/impact_metal_to_leather04.wav", GetX(NPC), GetY(NPC), GetZ(NPC))
		PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
		Clearvars()
	end
end
function Copper1(NPC, Spawn) --Omitted for now
	-- conversation = CreateConversation()
	-- coins = 100 -- 1 silver
	-- local poolCoins = RemoveCoin(Spawn, coins)
	-- if(poolCoins) then
		-- Agree(NPC, Spawn)
		-- Emote(NPC, "shuffles twice and then begins to deal.")
		-- --Deal the cards
		-- Deal(NPC, Spawn) --adding parameters for troubleshooting
		-- --Do calculations
		-- Calculates(NPC, Spawn)
	-- else
		-- Say(NPC, "I'm sorry but you don't have enough money.")
		-- PlaySound(NPC, "sounds/combat/impact/leather/impact_metal_to_leather04.wav", GetX(NPC), GetY(NPC), GetZ(NPC))
		-- PlayFlavor(NPC, "voiceover/english/voice_emotes/apologies/apologies_3_1006.mp3", "", "apologize", 0, 0, Spawn)
		-- Clearvars()
	-- end
end
--Rules of blackjack
function Rules1(NPC, Spawn)
	conversation = CreateConversation()
	AddConversationOption(conversation, "I understand.", "Play1")
	AddConversationOption(conversation, "Maybe next time.", "Bye1")
	StartConversation(conversation, NPC, Spawn, "The object of Blackjack is to achieve a hand greater than the dealer to 21 without going over. If you go over 21, it is called a 'bust' and the dealer wins. Winning hands are paid out 1 to 1 and a tie results in a 'push'. Card values are scored from 2 to 9 respectively with 10 and face cards worth 10 points and Ace being worth 1 or 11 points. If you have a 10 point card and an Ace in your starting hand, it is called a natural 21 or 'Blackjack' and it pays 3 to 2. Lastly, dealers must draw to 17.")
end
function Bye1(NPC, Spawn)
	Say(NPC, "Goodbye!")
	PlayFlavor(NPC, "voiceover/english/voice_emotes/goodbye/goodbye_3_1006.mp3", "", "bye", 0, 0, Spawn)
	Clearvars()
end
--END Blackjack.lua