Sign in to follow this  
Boris.

How I can create money and score system in race

Recommended Posts

I want create money and score system in race. When player finish race, get some money and score and save it. And showing in scoreboard.

Share this post


Link to post

Im download one script and work, but when I finish race, I dont get money, and reactions dont work... 

 

-------------------------------------------------------------------------------------------------------------
--  Original file by NeXTreme. Thanks for you'r awesome resource.										   --
--																										   --
--	This work is licensed under a Creative Commons Attribution-NonCommercial-NoDerivs 3.0 Unported License.--
--	http://creativecommons.org/licenses/by-nc-nd/3.0/													   --
--																										   --
--  Edited by Xiti. All right reserved. Copyright 2012.												   --
-------------------------------------------------------------------------------------------------------------

-- String.random characters
chars = {"a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","r","s","t","u","v","w","x","y","z","1","2","3","4","5","6","7","8","9","0"}








local dataTable = {
	"cash",
	"points",
	"firstTimeJoin",
	"totalTimesJoined",
	"unlockedAchievements",
	"mapsWon",
	"totalToptimes",
	"totalHunters",
	"mapsPlayed",
	"totalBets",
	"totalBetsWon",
	"totalDeaths",
	"totalPlayingTimeMinutes",
	"totalPlayingTimeHours",
	"totalReactionTests",
	"bestReactionTime",
	"totalPVP",
	"totalPVPsWon",
	"highestWinstreak",
	"totalSpins",
	"DMs",
	"DMplayed",
	"DDwins",
	"DDplayed",
	"FUNwins",
	"FUNplayed",
	"buyedMaps",
	"totalLoteryWins",
	"ach1",
	"ach2",
	"ach3",
	"ach4",
	"ach5",
	"ach6",
	"ach7",
	"ach8",
	"ach9",
	"ach10",
	"ach11",
	"ach12",
	"ach13",
	"ach14",
	"ach15",
	"ach16",
	"ach17",
	"ach18",
	"ach19",
	"ach20",
	"ach21",
	"ach22",
	"ach23",
	"ach24",
	"ach25",
	"ach26",
	"ach27",
	"ach28",
	"ach29",
	"ach30",
	"everSetCustomVehicleColor",
	"c1R",
	"c1G",
	"c1B",
	"c2R",
	"c2G",
	"c3B",
	"everSetHeadlightsColor",
	"hlcRed",
	"hlcGreen",
	"hlcBlue",
	"headlightBought",
	"rainbowBought",
	"donatorEnabled",
	"donatorTime",
	"freeMaps",
	"timeToRenew",
}
  
textDataTable = {"nick"}
playerTableStats = {}
respawnFix = {}
hunterFix = {}

-----------------------------------
--- Protect Userpanel
-----------------------------------

messege = "???"

function protectUserpanel()
	onResourceStart()
	messege = "tbR2ftLf539jaeWVjfAQ"
end
addEventHandler("onResourceStart",getResourceRootElement(getThisResource()),protectUserpanel)


-----------
-- Settings
-----------
betTimeLimit = 40		-- Duration of the betting period in seconds.
minPlayers = 5 			-- Minimum required players to bet.			
mapCost = 3000			-- The price for setting maps.		
vehicleColor = 15000
headlightColor = 10000  
moneyEarnPart = 30		-- The amount of money to calculate with to get the final money to give to the player.

reactionMin = 200		-- Minimum money for the reaction test
reactionMax = 500		-- Maximum money for the reaction test
reactionDuration = 20	-- Duration of the reaction test in seconds
reactionMinRedo = 300	-- Minimum amount of time to pass before a new reaction test is started in seconds
reactionMaxRedo = 400	-- Maximum amount of time to pass before a new reaction test is started in seconds
reactionLength = 10		-- Number of characters to use in the reaction test


function onResourceStart()
	mapIsAlreadySet = false
	reactionString = ""
	reactionMoney = 0
	mapType = ""
	mapName = ""
	mapBlock = ""
	setTimer(newReactionTest,math.random(reactionMinRedo*1000,reactionMaxRedo*1000),1)

	outputDebugString("Userpanel by Xiti for Alien Racers started!")
end


-- Disable voting
function disableVote()
	cancelEvent()
end
addCommandHandler("voteredo",disableVote)
addCommandHandler("new",disableVote)
	



-----------------------------------------------------------------------------------
-----------------------------------| USERPANEL |-----------------------------------
-----------------------------------------------------------------------------------

----------------------------
-- Refresh Players
----------------------------

function triggerRebuildPlayerGridlist(thePlayer)
	local loggedPlayers = {}
	for i,player in ipairs(getElementsByType("player")) do
		if not (isGuestAccount(getPlayerAccount(player))) then
			table.insert(loggedPlayers, tostring(getPlayerName(player)))
		end
	end
	setTimer(callClientFunction,1000,1,getRootElement(),"buildPlayerGridlist",loggedPlayers)
end
addEventHandler("onPlayerChangeNick",getRootElement(),triggerRebuildPlayerGridlist)
addEventHandler("onPlayerLogin",getRootElement(),triggerRebuildPlayerGridlist)
addEventHandler("onPlayerJoin",getRootElement(),triggerRebuildPlayerGridlist)
addEventHandler("onPlayerLogout",getRootElement(),triggerRebuildPlayerGridlist)
addEventHandler("onPlayerQuit",getRootElement(),triggerRebuildPlayerGridlist)



function checkIfPlayerIsLogged(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not isGuestAccount(account) then
		callClientFunction(thePlayer,"allowBind",true)
		onPlayerLoginSecoundHandler(thePlayer)
	end
end

----------------------------------
-- Tables System based on Accounts
----------------------------------
function createNewTables()
	local account = getPlayerAccount(source)
	if not (isGuestAccount(account)) then
		for i, data in ipairs(dataTable) do
			if not (getAccountData(account, data)) then
				setAccountData(account, data, "0")
				outputDebugString("Setting data: "..tostring(data).." for player: "..tostring(getPlayerName(source)).." to 0")
			end
		end
	end
	if not (isGuestAccount(account)) then
		for i, data in pairs(textDataTable) do
			if not (getAccountData(account, data)) then
				setAccountData(account, data, getPlayerName(source))
			end
		end
	end
end
addEventHandler("onPlayerLogin", getRootElement(), createNewTables)

addCommandHandler("resetStats", 
function (player, cmd, arg1)
	if (arg1) then
		local account = getPlayerAccount(player)
		if (isObjectInACLGroup("user." ..getAccountName(account), aclGetGroup("Admin"))) then
			local target = getPlayerWildcard(arg1)
			if (target) then
				local account = getPlayerAccount(target)
				if not (isGuestAccount(account)) then
					for i, data in ipairs(dataTable) do
						setAccountData(account, data, "0")
						outputDebugString("Setting data: "..tostring(data).." for player: "..tostring(getPlayerName(target)).." to 0")
					end
				end
				if not (isGuestAccount(account)) then
					for i, data in pairs(textDataTable) do
					end
				end
			end
		end
	end
end)








-------------------------------------------
-- Userpanel - handle requests from clients
-------------------------------------------

function timesJoin()
	setElementData(source,"join","joined")
	scoreboardRefresh(source)
end
addEventHandler("onPlayerJoin",getRootElement(),timesJoin)


-- Stats view
function getPlayerStats(triggeringPlayer,thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		playerTableStats[1] = tonumber(getAccountData(account,"cash"))
		playerTableStats[2] = tonumber(getAccountData(account,"points"))
		playerTableStats[3] = tonumber(getAccountData(account,"mapsWon"))
		playerTableStats[4] = tonumber(getAccountData(account,"mapsPlayed"))
		playerTableStats[5] = math.floor((playerTableStats[3]/playerTableStats[4])*100).."%"
		playerTableStats[6] = tonumber(getAccountData(account,"totalHunters"))
		playerTableStats[7] = tonumber(getAccountData(account,"totalToptimes"))
		playerTableStats[8] = 0
		for i=1,25 do
			if tonumber(getAccountData(account,"ach"..i)) == 1 then
				playerTableStats[8] = playerTableStats[8]+1
			end
		end
		playerTableStats[8] = playerTableStats[8].."/25"
		playerTableStats[9] =  tonumber(getAccountData(account,"totalPVP"))
		playerTableStats[10] = tonumber(getAccountData(account,"totalPVPsWon"))
		minutes = tonumber(getAccountData(account,"totalPlayingTimeMinutes"))
		hours = tonumber(getAccountData(account,"totalPlayingTimeHours"))
		if hours < 10 then
			hours = "0"..hours
		end
		if minutes < 10 then
			minutes = "0"..minutes
		end
		playerTableStats[11] = ""..hours..":"..minutes.."" -- Total Playing Time 
		playerTableStats[12] = tonumber(getAccountData(account,"buyedMaps"))
		playerTableStats[13] = tonumber(getAccountData(account,"totalLoteryWins"))
		playerTableStats[14] = tonumber(getAccountData(account,"totalSpins"))
		playerTableStats[15] = tonumber(getAccountData(account,"totalBetsWon"))
		playerTableStats[16] = tonumber(getAccountData(account,"totalSpins"))
		callClientFunction(triggeringPlayer,"displayPersonalStats",thePlayer,playerTableStats)
	end
end


-- Maps
function getServerMaps (loadList)
	local tableOut
	if loadList then
		tableOut = {}
		local maps = call(getResourceFromName("mapmanager"), "getMapsCompatibleWithGamemode" , getResourceFromName("race"))
		for _,map in ipairs (maps) do
			table.insert(tableOut ,getResourceInfo(map, "name") or getResourceName(map))
		end
		table.sort(tableOut, sortCompareFunction)
	end
	callClientFunction(loadList,"loadMaps", tableOut)
end

function sortCompareFunction(s1, s2)
	if type(s1) == "table" and type(s2) == "table" then
		s1, s2 = s1.name, s2.name
	end
    s1, s2 = s1:lower(), s2:lower()
    if s1 == s2 then
        return false
    end
    local byte1, byte2 = string.byte(s1:sub(1,1)), string.byte(s2:sub(1,1))
    if not byte1 then
        return true
    elseif not byte2 then
        return false
    elseif byte1 < byte2 then
        return true
    elseif byte1 == byte2 then
        return sortCompareFunction(s1:sub(2), s2:sub(2))
    else
        return false
    end
end

function callGetMaps()
	for i,player in ipairs(getElementsByType("player")) do
		callClientFunction(player,"getMaps")
	end
end
addCommandHandler("rebuildMaps",callGetMaps)
addCommandHandler("refresh",callGetMaps)

mapTimer = {}
mapQueue = {}

nextByRedo = false

-- Buy a next map
function buyMap(thePlayer,mapName,command)
	if not PVP[thePlayer] then
		local account = getPlayerAccount(thePlayer)
		if not (isGuestAccount(account)) then
			local playerCash = tonumber(getAccountData(account,"cash"))
			if not (mapName == "") then
				if playerCash >= mapCost then
					if command then
						mapName = getMapName(mapName)
					else
						mapName = tostring(mapName)
					end
					if not mapTimer[mapName] then
						table.insert(mapQueue,mapName)
						local freeMaps = tonumber(getAccountData(account,"freeMaps"))
						if freeMaps ~= 0 then
							addStat(account,"freeMaps",-1)
						else
							setAccountData(account,"cash",playerCash - mapCost)
						end
						addStat(account,"buyedMaps",1)
						scoreboardRefresh(thePlayer)
						mapTimer[mapName] = true
						setTimer(resetMapTimer,900000,1,mapName)
						if #mapQueue == 1 then
							triggerEvent("onUseranelWantSetMap",getRootElement(),mapQueue[1])
						end
						callClientFunction(thePlayer,"setFreeMapPurchase",getAccountData(account,"freeMaps"))
						unlockAchievement(thePlayer,18)
						unlockAchievement(thePlayer)
						showServerMsg(getRootElement(),"Map queue",getPlayerName(thePlayer).." #ffffffbought and add "..mapName.." to map queue")
						callClientFunction(getRootElement(),"updateMapQueueList",mapQueue)
					else
						showServerMsg(thePlayer,"Buy nextmap","#FFFFFFYou can't set this map now, wait some time to set!")
					end
				else
					showServerMsg(thePlayer,"Buy nextmap","#FFFFFFYou don't have enough money to set a map!")
				end
			else
				showServerMsg(thePlayer,"Buy nextmap","#FFFFFFPlease select a map from the list first!")
			end
		end
	else
		showServerMsg(thePlayer,"Buy nextmap","#FFFFFFYou can't buy maps because you're playing a PVP match now!")
	end
end

redo = {}

function buyRedo(thePlayer)
	if thePlayer then
		local currentMap = exports.mapmanager:getRunningGamemodeMap()
		local account = getPlayerAccount(thePlayer)
		if isGuestAccount(account) then return end
		if getAccountData(account,"donatorEnabled") == 1 then
			local mapName = getMapName(currentMap)
			if not redo[mapName] then
				local freeMaps = tonumber(getAccountData(account,"freeMaps"))
				if freeMaps ~= 0 then
					addStat(account,"freeMaps",-1)
				elseif (getAccountData(account,"cash") >= 2500) then
setAccountData(account,"cash",getAccountData(account,"cash")-2500)
					if #mapQueue ~= 0 then
					for i=#mapQueue,1 do
						mapQueue[i+1] = mapQueue[i]
					end
					mapQueue[1] = mapName
					triggerEvent("onUseranelWantSetMap",getRootElement(),mapQueue[1])
				else
					mapQueue[1] = mapName
					triggerEvent("onUseranelWantSetMap",getRootElement(),mapQueue[1])
				end
				callClientFunction(thePlayer,"setFreeMapPurchase",getAccountData(account,"freeMaps"))
				redo[mapName] = setTimer(function(mapName) redo[mapName] = false end,900000,1,mapName)
				showServerMsg(getRootElement(),"Redo",getPlayerName(thePlayer).." #ffffffadded this map to map queue as redo!")
				callClientFunction(getRootElement(),"updateMapQueueList",mapQueue)
				scoreboardRefresh(thePlayer)
else
showServerMsg(thePlayer,"Redo","You don't have enough money!")
			end

			else
				showServerMsg(thePlayer,"Redo","You cant redo this map at this moment!")
			end
		else
			showServerMsg(thePlayer,"Buy redo","This option is just for donators")
		end
	end
end
addCommandHandler("buyredo",buyRedo)

function resetMapSetStatus(g_MapInfo)
	if nextByRedo then
		nextByRedo = false
		if #mapQueue ~= 0 then
			triggerEvent("onUseranelWantSetMap",getRootElement(),mapQueue[1])
		end
	else
		if #mapQueue == 1 then
			table.remove(mapQueue,1)
		elseif #mapQueue >1 then
			triggerEvent("onUseranelWantSetMap",getRootElement(),mapQueue[2])
			table.remove(mapQueue,1)
		end
	end
	callClientFunction(getRootElement(),"updateMapQueueList",mapQueue)
end
addEvent("onMapStarting")
addEventHandler("onMapStarting",getRootElement(),resetMapSetStatus)



addCommandHandler("redo",
function()
	nextByRedo = true
end)


function resetMapTimer(mapName)
	if mapTimer[mapName] then 
		mapTimer[mapName] = nil
		showServerMsg( getRootElement(),"Map",mapName.." can be bought again!")
	end
end

function buyMapCommand(player,command,mapString)
	local map, errormsg = findMap( mapString )
    if not map then
        showServerMsg( player,"Next map",errormsg)
        return
    end
	buyMap(player,map,true)
end
addCommandHandler("bm",buyMapCommand)


function onMapStartingStatsReset()
	for _,player in ipairs(getElementsByType("player")) do
		respawnFix[player] = nil
		hunterFix[player] = nil
	end
	respawnFix = {}
	hunterFix = {}
	allowPVP()
end
addEvent("onMapStarting",true)
addEventHandler("onMapStarting",getRootElement(),onMapStartingStatsReset)

-- Playing time
function playingTimeAdd(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	local totalPlayingTimeMinutes = tonumber(getAccountData(account,"totalPlayingTimeMinutes"))
	local totalPlayingTimeHours = tonumber(getAccountData(account,"totalPlayingTimeHours"))
		if totalPlayingTimeMinutes == 59 then
			setAccountData(account,"totalPlayingTimeMinutes",0)
			addStat(account,"totalPlayingTimeHours",1)
			unlockAchievement(thePlayer,25)
		else
			addStat(account,"totalPlayingTimeMinutes",1)
		end
	end
end


-- Times joined the server
function loginHandler()
	local account = getPlayerAccount(source)
	if not (isGuestAccount(account)) then
		local totalTimesJoined = tonumber(getAccountData(account,"totalTimesJoined"))
		local joined = getElementData(source,"join")
		local firstTime = tonumber(getAccountData(account,"firstTimeJoin"))
		if firstTime == 0 then
			setAccountData(account,"nick",getPlayerName(source))
			setAccountData(account,"firstTimeJoin",1)
		end
		if joined == "joined" then
			local nick = getAccountData(account,"nick")
			if nick ~= getPlayerName(source) then
				setAccountData(account,"nick",getPlayerName(source))
			end
			addStat(account,"totalTimesJoined",1)
			destroyElement(source)
			outputChatBox("#00ff00* #FFFFFFWelcome to our DD/DM server, "..getPlayerName(source).."#FFFFFF! Press '#00ff00F7#ffffff' to open our userpanel.",source,255,255,255,true)
		end
		callClientFunction(source,"allowBind",true)
		unlockAchievement(source,2)
		if (isObjectInACLGroup("user." ..getAccountName(getPlayerAccount(source)), aclGetGroup("Donators"))) then
			
		end
	end
end
addEventHandler("onPlayerLogin",getRootElement(), loginHandler)

function logoutHandler()
	callClientFunction(source,"allowBind",false)
	if getTeamName(getPlayerTeam(source)) == "Donators" then
		setPlayerTeam(source,nil)
	end
end
addEventHandler("onPlayerLogout",getRootElement(),logoutHandler)

function onPlayerChangeNick(oldNick,newNick)
	if getElementData ( source, "isNickMuted" ) then
		cancelEvent()
		outputChatBox ( "Please wait some time to change your nick again.", source, 255, 0, 0 )
		return
	end
	if not (isGuestAccount(getPlayerAccount(source))) then
		setAccountData(getPlayerAccount(source),"nick",newNick)
	end
end
addEventHandler ( "onPlayerChangeNick", getRootElement(), onPlayerChangeNick )

-- Total maps played
function totalMapsPlayedAdd()
	local account = getPlayerAccount(source)
	if not (isGuestAccount(account)) then
		local mapsPlayed = tonumber(getAccountData(account,"mapsPlayed"))
		addStat(account,"mapsPlayed",1)
		if mapType == "DM" then
			addStat(account,"DMplayed",1)
		elseif mapType == "DD" then
			addStat(account,"DDplayed",1)
		elseif mapType == "FUN" then
			addStat(account,"FUNplayed",1)
		end
	end
end
addEvent("onNotifyPlayerReady",true)
addEventHandler("onNotifyPlayerReady",getRootElement(),totalMapsPlayedAdd)


-- Total bets
function totalBetsAdd(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	local totalBets = tonumber(getAccountData(account,"totalBets"))
	addStat(account,"totalBets",1)
	end
end


-- Total bets won
function totalBetsWonAdd(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	local totalBetsWon = tonumber(getAccountData(account,"totalBetsWon"))
	addStat(account,"totalBetsWon",1)
	end
end


---------------------------
-- Userpanel - Achievements
---------------------------


function onPlayerLoginSecoundHandler(thePlayer)
	scoreboardRefresh(thePlayer)
	playingTimeAdd(thePlayer)
	updateClientData(thePlayer)
	refreshAchievements(thePlayer)
	donatorLogin(thePlayer)
end

addEventHandler("onPlayerLogin", getRootElement(),
function()
	local thePlayer = source
	scoreboardRefresh(thePlayer)
	playingTimeAdd(thePlayer)
	updateClientData(thePlayer)
	refreshAchievements(thePlayer)
	donatorLogin(thePlayer)
end)



----------------------------------------
-- Toplist
----------------------------------------


local amountOfTopsToDisplay = 20

 

function getTopList( player, value )
	if value then
		local tableOrder = {}
		if value ~= "playingTime" and value ~= "ach" then
			for i, v in ipairs (getAccounts()) do
				table.insert (tableOrder,
					{
						name = getAccountData ( v, "nick" ) or getAccountName ( v ),
						data = getAccountData ( v, value ) or 0
					}
				)
			end
		elseif value == "playingTime" then
			for i, v in ipairs (getAccounts()) do
				local dataH = getAccountData ( v, "totalPlayingTimeHours" ) or 0
				local dataM = getAccountData ( v, "totalPlayingTimeMinutes" ) or 0
				local dataHms = dataH * 3600000
				local dataMms = dataM * 60000
				local time = dataHms+dataMms
				table.insert (tableOrder,
					{
						name = getAccountData ( v, "nick" ) or getAccountName ( v ),
						data = time
					}
				)
			end
		elseif value == "ach" then
			for i, v in ipairs (getAccounts()) do
				local ach = 0
				for i=1,25 do
					if getAccountData(v,"ach"..i) == 1 then
						ach = ach + 1
					end
				end
				table.insert (tableOrder,
					{
						name = getAccountData ( v, "nick" ) or getAccountName ( v ),
						data = ach
					}
				)
			end
		end
		table.sort (tableOrder,
			function (a,b)
				return (tonumber(a.data) or 0) > (tonumber(b.data) or 0)
			end)
		callClientFunction(player,"updateRankingList",tableOrder,value)
	else
		outputDebugString("ERROR! [getTopList] Bad value ("..value..")!",1,255,0,0)
	end
end


achievements = {
	{false,false},
	{false,false},
	{"cash",1000000},
	{"cash",10000000},
	{"points",100000},
	{"points",1000000},
	{false,false},
	{"totalToptimes",1},
	{"totalToptimes",100},
	{"totalHunters",1},
	{"totalHunters",100},
	{false,false},
	{"mapsWon",1000},
	{false,false},
	{false,false},
	{false,false},
	{"totalSpins",100},
	{false,false},
	{"buyedMaps",100},
	{"totalPVP",100},
	{"totalPVPsWon",10},
	{false,false},
	{false,false},
	{false,false},
	{"totalPlayingTimeHours",50}
}

function unlockAchievement(thePlayer,number)
	if thePlayer then
		local account = getPlayerAccount(thePlayer)
		if isGuestAccount(account) then return end
		for i=1,#achievements do
			if achievements[i][1] and not number then
				local data = tonumber(getAccountData(account,achievements[i][1]))
				if data >= achievements[i][2] and tonumber(getAccountData(account,"ach"..i)) == 0 then
					setAccountData(account,"ach"..i,1)
					unlockAchievementHandler(thePlayer,i)
				end
			elseif number and number == i then
				if tonumber(getAccountData(account,"ach"..i)) == 0 then
					setAccountData(account,"ach"..i,1)
					unlockAchievementHandler(thePlayer,i)
				end
			end
		end
	end
end


function refreshAchievements(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if isGuestAccount(account) then return end
	local ach = {}
	for i=1,#achievements do
		ach[i] = tonumber(getAccountData(account,"ach"..i))
	end
	callClientFunction(thePlayer,"updateAchievementState",ach)
end

function unlockAchievementHandler(thePlayer,number)
	refreshAchievements(thePlayer)
	callClientFunction(thePlayer,"unlockAchievement",number)
end

--------------------------------------------
-- Get alive and dead players by their STATE
--------------------------------------------

function getAliveRacePlayers()
    local alivePlayers = 0
	for index,player in ipairs(getElementsByType("player")) do
		if getElementData(player,"state") == "alive" then
			alivePlayers = alivePlayers + 1
		end
	end
    return alivePlayers
end


function getDeadRacePlayers()
	local deadPlayers = 0
	for index,player in ipairs(getElementsByType("player")) do
		if getElementData(player,"state") == "dead" then
			deadPlayers = deadPlayers + 1
		end
	end
	return deadPlayers
end




--------------
-- Race winner
--------------
LastWinners={}

addEvent("onPlayerDestructionDerbyWin",true)
addEventHandler("onPlayerDestructionDerbyWin",getRootElement(),
function (winner)
	local account = getPlayerAccount(winner)
	if not (isGuestAccount(account)) then
		if getPlayerCount() >= 1 then
			local WinStreak = 0
			local thePlayer = winner
			LastWinners[20] = LastWinners[19]
			LastWinners[19] = LastWinners[18]
			LastWinners[18] = LastWinners[17]
			LastWinners[17] = LastWinners[16]
			LastWinners[16] = LastWinners[15]
			LastWinners[15] = LastWinners[14]
			LastWinners[14] = LastWinners[13]
			LastWinners[13] = LastWinners[12]
			LastWinners[12] = LastWinners[11]
			LastWinners[11] = LastWinners[10]
			LastWinners[10] = LastWinners[9]
			LastWinners[9] = LastWinners[8]
			LastWinners[8] = LastWinners[7]
			LastWinners[7] = LastWinners[6]
			LastWinners[6] = LastWinners[5]
			LastWinners[5] = LastWinners[4]
			LastWinners[4] = LastWinners[3]
			LastWinners[3] = LastWinners[2]
			LastWinners[2] = LastWinners[1]
			LastWinners[1] = thePlayer
			if LastWinners[1] == thePlayer then
				WinStreak = 1
					if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer then
						WinStreak = 2
						if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer then
							WinStreak = 3
							if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer then
								WinStreak = 4
								if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer then
									WinStreak = 5
									if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer then
										WinStreak = 6
										if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer then
											WinStreak = 7
											if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer then
												WinStreak = 8
												if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer then
													WinStreak = 9
													if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer then
														WinStreak = 10
														if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer then
															WinStreak = 11
																if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer then
																WinStreak = 12
																	if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer then
																	WinStreak = 13
																		if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer then
																			WinStreak = 14
																			if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer then
																				WinStreak = 15
																				if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer and LastWinners[16] == thePlayer then
																					WinStreak = 16
																					if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer and LastWinners[16] == thePlayer and LastWinners[17] == thePlayer then
																						WinStreak = 17
																						if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer and LastWinners[16] == thePlayer and LastWinners[17] == thePlayer and LastWinners[18] == thePlayer then
																							WinStreak = 18
																							if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer and LastWinners[16] == thePlayer and LastWinners[17] == thePlayer and LastWinners[18] == thePlayer and LastWinners[19] == thePlayer then
																								WinStreak = 19
																								if LastWinners[1] == thePlayer and LastWinners[2] == thePlayer and LastWinners[3] == thePlayer and LastWinners[4] == thePlayer and LastWinners[5] == thePlayer and LastWinners[6] == thePlayer and LastWinners[7] == thePlayer and LastWinners[8] == thePlayer and LastWinners[9] == thePlayer and LastWinners[10] == thePlayer and LastWinners[11] == thePlayer and LastWinners[12] == thePlayer and LastWinners[13] == thePlayer and LastWinners[14] == thePlayer and LastWinners[15] == thePlayer and LastWinners[16] == thePlayer and LastWinners[17] == thePlayer and LastWinners[18] == thePlayer and LastWinners[19] == thePlayer and LastWinners[20] == thePlayer then
																									WinStreak = 20
																								end	
																							end
																						end
																					end
																				end
																			end
																		end
																	end
																end
															end
														end
													end
												end
											end
										end
									end
								end
							end
						end
					end
			local pAlive = getAliveRacePlayers()
			local pDead = getDeadRacePlayers()
			local WinS = tonumber(getAccountData(account,"highestWinstreak"))
			if WinS < WinStreak then
				setAccountData(account,"highestWinstreak",WinStreak)
			end
			local cashToWin = tonumber((moneyEarnPart*getPlayerCount())*WinStreak)
			local playerCash = tonumber(getAccountData(account,"cash"))
			if not (cashToWin < 0) then
				setAccountData(account,"cash",playerCash+cashToWin)
			end
			local points = math.floor(((pAlive + pDead)*pDead)*WinStreak)
			if not (points < 0) then
				local playerPoints = getAccountData(account,"points")
				setAccountData(account,"points",playerPoints+points)
			end
			addStat(account,"mapsWon",1)
			outputChatBox ("#00ff00* #FFFFFF" .. getPlayerName(winner) .." #FFFFFFhas won! He/She gets $#00ff00" .. tostring(cashToWin) .." #ffffffand #00ff00"..points.."#ffffff points || x"..WinStreak.."#00ff00!",getRootElement(),255,255,255,true)
triggerClientEvent("Streaktext", root, WinStreak)
--setTimer ( function(WinStreak)end, 100, 1 )
			scoreboardRefresh(winner)
			unlockAchievement(winner)
			unlockAchievement(winner,12)
		else
			outputChatBox("#00ff00* #FFFFFFNot enough players to earn money - #00ff003 #FFFFFFrequired.",winner,255,255,255,true)
		end
		callClientFunction(winner,"deathReset")
		local thePlayer = winner
		scoreboardRefresh(thePlayer)
	end
end)





-------------------
-- Other race ranks
-------------------

function earnMoney()
	local thePlayer = source
	local position = (getAliveRacePlayers() + 1)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		if getPlayerCount() >= 3 then
			local pAlive = getAliveRacePlayers()
			local pDead = getDeadRacePlayers()
			local finalCash = 0
			if not (position == 1) then
				if pAlive == 0 then pAlive = 1 end
					if not respawnFix[thePlayer] then
					local finalCash = math.floor(((40/position)*pDead)*pAlive)		-- Calculate the final money value.
					local points = math.floor((pAlive + pDead)*pDead)
					local playerCash = getAccountData(account,"cash")
					local playerPoints = getAccountData(account,"points")
					setAccountData(account,"points",playerPoints+points)
					setAccountData(account,"cash",playerCash+finalCash)
					local playerCash = getAccountData(account,"cash")
					local playerPoints = getAccountData(account,"points")
					addStat(account,"totalDeaths",1)
					outputChatBox("#00ff00* #FFFFFFYou have recieved $#00ff00" .. finalCash .. " #ffffff and #00ff00"..points.."#ffffff points for#00ff00 "..position.." #ffffffplace!",thePlayer,255,255,255,true)
					respawnFix[thePlayer] = true
					unlockAchievement(thePlayer)
				end
			end
		else
			outputChatBox("#00ff00* #FFFFFFNot enough players to earn money - #ABCDEF3 #FFFFFFrequired.",thePlayer,255,255,255,true)
			return
		end
		scoreboardRefresh(thePlayer)
	end
end
addEventHandler ("onPlayerWasted",getRootElement(),earnMoney)





-----------------
-- Hunter handler
-----------------
function hunterBonus(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		local cashToWin = 500
		local points = 5
		outputChatBox("#00ff00* #FFFFFFYou recieved #00ff00"..cashToWin.." #FFFFFFand #00ff00"..points.." #FFFFFFpoints for getting hunter! ",thePlayer,255,255,255,true)
		local playerCash = getAccountData(account,"cash")
		local playerPoints = getAccountData(account,"points")
		setAccountData(account,"cash",playerCash+cashToWin)
		setAccountData(account,"points",playerPoints+points)
		scoreboardRefresh(thePlayer)
		addStat(account,"totalHunters",1)
		unlockAchievement(thePlayer)
	end
end

function checkForHunter(number,sort,model)
	if sort == "vehiclechange" then
		if model == 425 then
			if not hunterFix[source] then
				setTimer(hunterBonus,200,1,source)
				hunterFix[source] = true
			end
		end
	end
end
addEvent('onPlayerPickUpRacePickup')
addEventHandler("onPlayerPickUpRacePickup",getRootElement(),checkForHunter)




function toptimeadd(player,newPos,newTime)
	local account = getPlayerAccount(player)
	if not (isGuestAccount(account)) then
		local cashToWin = math.floor(500/newPos)
		local points = math.floor(10/newPos)
		if newPos <= 10 then
			local playerCash = getAccountData(account,"cash")
			setAccountData(account,"cash",playerCash+cashToWin)
			addStat(account, "points",points)
			local thePlayer = player
			if newPos == 1 then
				unlockAchievement(thePlayer,7)
			end
			outputChatBox("#00ff00* #FFFFFFYou recieved $#00ff00"..cashToWin.."#ffffff and #00ff00"..points.."#ffffff points for set a toptime.",thePlayer,255,255,255,true)
			addStat(account,"totalToptimes",1)
			scoreboardRefresh(thePlayer)
			unlockAchievement(thePlayer)
		end
	end
end
addEvent("onPlayerToptimeImprovement",true)
addEventHandler("onPlayerToptimeImprovement",getRootElement(),toptimeadd)


-----------------
-- Reaction tests
-----------------


function newReactionTest()
	reactionString = string.random(reactionLength)
	reactionMoney = math.random(reactionMin,reactionMax)
	outputChatBox("#00ff00* #FFFFFFSay #ABCDEF"..reactionString.."#FFFFFF to win #ABCDEF$"..reactionMoney.."#FFFFFF!",getRootElement(),255,255,255,true)

	addEventHandler("onPlayerChat",getRootElement(),checkForOpenConsole)

	reactionTimer = setTimer(
	function()
		removeEventHandler("onPlayerChat",getRootElement(),checkForOpenConsole)
	end,reactionDuration*1000,1)

	if isTimer(newReactionTimer) then
		killTimer(newReactionTimer)
	end

	newReactionTimer = setTimer(newReactionTest,math.random(reactionMinRedo*1000,reactionMaxRedo*1000),1)

end
addCommandHandler("testr",newReactionTest)

function checkForOpenConsole(message,type)
	callClientFunction(source,"checkForOpenConsole",message,type)
end


function checkReactionTest(thePlayer,message,type,isOpen)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	if (isOpen == true) then
		outputChatBox("#00ff00* #FFFFFF"..getPlayerName(thePlayer).."#FFFFFF attempted to cheat at the reaction test!",getRootElement(),255,255,255,true)
		outputChatBox("#00ff00* #FFFFFFMoney decreased by #ABCDEF$1,000#FFFFFF! Do not cheat!",getRootElement(),255,255,255,true)

		local playerCash = getAccountData(account,"cash")
		setAccountData(account,"cash",playerCash-1000)
		scoreboardRefresh(thePlayer)
		return
	end

	message = tostring(message)
	if message == "..." then
		return
	end

	if (message == reactionString) then
		local timeLeft,leftExec,totalExec = getTimerDetails(reactionTimer)

		killTimer(reactionTimer)
		removeEventHandler("onPlayerChat",getRootElement(),checkForOpenConsole)

		setTimer(outputChatBox,200,1,"#00ff00* #FFFFFF"..getPlayerName(thePlayer).." #FFFFFFhas won the reaction test in #ABCDEF"..math.round((reactionDuration*1000 - timeLeft)/1000,2,floor) .." #FFFFFFseconds and wins #ABCDEF$"..reactionMoney,getRootElement(),255,255,255,true)

		local playerCash = getAccountData(account,"cash")
		local totalReactionTests = tonumber(getAccountData(account,"totalReactionTests"))
		local bestReactionTime = tonumber(getAccountData(account,"bestReactionTime"))

		setAccountData(account,"cash",playerCash+reactionMoney)
		addStat(account,"totalReactionTests",1)
		if (math.round((reactionDuration*1000 - timeLeft)/1000)) < bestReactionTime or (bestReactionTime == 0) then
			addStat(account,"bestReactionTime",math.round((reactionDuration*1000 - timeLeft)/1000,2,floor))
		end
		
		scoreboardRefresh(thePlayer)

		-- Check for achievement here
		if math.round((reactionDuration*1000 - timeLeft)/1000,2,floor) <= 5 then
		end

		reactionString = ""
		reactionMoney = 0
		unlockAchievement(thePlayer,24)
	end
	end
end


function string.random(len)
	local str = ""
	for i=1,len do
		local getChar = math.random(1,35)
		if getChar <= 25 then
			local caps = math.random(1,2)
			if caps == 1 then
				str = str..string.upper(chars[getChar])
			else
				str = str..string.lower(chars[getChar])
			end
		else
			str = str..chars[getChar]
		end
	end
	return str
end





-----------------
-- Betting system
-----------------

function createNewBet(thePlayer,toPlayer,newAmount,oldAmount,betState)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	if getPlayerCount() >= minPlayers then
		if bettingEnabled == true then
			if (betState == 0) then
				if (toPlayer) then
					if (newAmount) then
						local newAmount = tonumber(math.ceil(tonumber(newAmount)))
						if (newAmount >= 1) then
							local playerCash = tonumber(getAccountData(account,"cash"))
							local maxBet = 10000
							if (findPlayerByName(toPlayer)) then
								local toPlayerName = findPlayerByName(toPlayer)
								if (newAmount <= playerCash) then
									if newAmount <= maxBet then
										callClientFunction(thePlayer,"addNewBet",toPlayerName,newAmount)
										setAccountData(account,"cash",playerCash-newAmount)
										scoreboardRefresh(thePlayer)
										totalBetsAdd(thePlayer)
										unlockAchievement(thePlayer,14)
										--outputChatBox("#00ff00* #FFFFFFYou have placed your bet on "..getPlayerName(toPlayerName).."#FFFFFF for #ABCDEF$"..newAmount.."#FFFFFF!",thePlayer,255,255,255,true)
										outputChatBox("#00ff00* #FFFFFF"..getPlayerName(thePlayer).."#FFFFFF has placed a bet on "..getPlayerName(toPlayerName).."#FFFFFF for #ABCDEF$"..newAmount.."#FFFFFF!",getRootElement(),255,255,255,true)
									elseif newAmount > maxBet then
										outputChatBox("#00ff00* #FFFFFFYou are allowed to bet a maximum of #ABCDEF$"..maxBet.."#FFFFFF!",thePlayer,255,255,255,true)
										
										return false
									end
								else
									outputChatBox("#00ff00* #FFFFFFERROR! You don't have enough money!",thePlayer,255,255,255,true)
								end
							else
								outputChatBox("#00ff00* #FFFFFFERROR! The player you specified has not been found! (#FFFF00"..toPlayer.."#FFFFFF)",thePlayer,255,255,255,true)
								return false
							end
						else
							outputChatBox("#00ff00* #FFFFFFERROR! Invalid amount! [#ABCDEF$"..newAmount.."#FFFFFF]",thePlayer,255,255,255,true)
						end
					else
						outputChatBox("#00ff00* #FFFFFFERROR! Please specify an amount to bet! Correct syntax: #ABCDEF/bet [player] [amount]",thePlayer,255,255,255,true)
						return false
					end
				else
					outputChatBox("#00ff00* #FFFFFFERROR! Please specify a player! Correct syntax: #ABCDEF/bet [player] [amount]",thePlayer,255,255,255,true)
					return false
				end
			else
				outputChatBox("#00ff00* #FFFFFFYou have already placed your bet on "..betState.." #FFFFFFfor #ABCDEF$"..oldAmount.."#FFFFFF!",thePlayer,255,255,255,true)
				return false
			end
		else
			outputChatBox("#00ff00* #FFFFFFBetting time is over! You can place your bet on the next map.",thePlayer,255,255,255,true)
		end
	else
		outputChatBox("#00ff00* #FFFFFFBetting #00ff00disabled.#FFFFFF Minimum required players on server: #ABCDEF" ..minPlayers.."#00ff00 | #FFFFFFConnected: #ABCDEF"..getPlayerCount(),thePlayer,255,255,255,true)
	end
	else
		outputChatBox("#00ff00* #FFFFFFYou have to be logged to bet!",thePlayer,255,255,255,true)
	end
end


function onPlayerBetWin(self,betAmount)
	local thePlayer = self
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		outputChatBox("#00ff00* #FFFFFF"..getPlayerName(self).."#FFFFFF has won his bet and has recieved #ABCDEF$".. betAmount*2 .."#FFFFFF!",getRootElement(),255,255,255,true)
		local playerCash = getAccountData(account,"cash")
		setAccountData(account,"cash",playerCash+betAmount+betAmount*2)
		totalBetsWonAdd(thePlayer)
		unlockAchievement(thePlayer,15)
		scoreboardRefresh(thePlayer)
	end
end



function bettingTimer()
	if isTimer(chatTimer) then killTimer(chatTimer) end
	if isTimer(disableTimer) then killTimer(disableTimer) end
	if getPlayerCount() >= minPlayers then
		chatTimer = setTimer(outputChatBox,3500,1,"#00ff00* #FFFFFFPlace your bets!	#FFFFFF[#ABCDEF/bet#FFFFFF]",getRootElement(),255,255,255,true)
		bettingEnabled = true
		disableTimer = setTimer(disableBetting,betTimeLimit*1000+2000,1)
	end
end
addEvent("onMapStarting",true)
addEventHandler("onMapStarting",getRootElement(),bettingTimer)


function disableBetting()
	outputChatBox("#00ff00* #FFFFFFBetting time is over#00ff00!",getRootElement(),255,255,255,true)
	bettingEnabled = false
end


function checkWin(winner)
	callClientFunction(getRootElement(),"compareResult",winner)
end
addEvent("onPlayerDestructionDerbyWin",true)
addEventHandler("onPlayerDestructionDerbyWin",getRootElement(),checkWin)



function retrieveData(thePlayer,commandName,toPlayer,newAmount)
	callClientFunction(thePlayer,"triggerBettingSystem",thePlayer,toPlayer,newAmount)
end
addCommandHandler("bet",retrieveData)


--------------------
-- Spin command
--------------------

spins = {}


function spin(thePlayer,commandName,value)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		if value then
			local value = tonumber(value)
			if (value >= 1) and (value<50001) then
				local playerCash = tonumber(getAccountData(account,"cash"))
				if playerCash >= value then
					if spins[thePlayer] then
						outputChatBox("#00ff00* #ffffffYou have to wait 30 seconds.",thePlayer,255,255,255,true)
					else
						spins[thePlayer] = true
						setTimer(resetSpin,30000,1,thePlayer)
						local luck = math.random(1,2)
						addStat(account,"totalSpins",1)
						if luck == 1 then
							setAccountData(account,"cash",playerCash+value)
							outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).." #ffffffflip a coin and won $#11dd11"..value.."#ffffff!",getRootElement(),255,255,255,true)
							local playerCash = tonumber(getAccountData(account,"cash"))
							unlockAchievement(thePlayer,16)
							scoreboardRefresh(thePlayer)
						else
							setAccountData(account,"cash",playerCash-value)
							scoreboardRefresh(thePlayer)
							outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).." #ffffffflip a coin and lost $#ff0000"..value.."#ffffff!",getRootElement(),255,255,255,true)
						end
						unlockAchievement(thePlayer)
					end
				else
					outputChatBox("#00ff00* #ffffffYou dont have cash to flip a coin.",thePlayer,255,255,255,true)
				end
			else
				outputChatBox("#00ff00* #ffffffSet correct value. Maximal value of flip is $50000 and minimal 1$.",thePlayer,255,255,255,true)
			end
		else
			outputChatBox("#00ff00* #ffffffYou need to set value (For example /flip 1000).",thePlayer,255,255,255,true)
		end
	end
end
addCommandHandler("flip",spin)

function resetSpin(thePlayer)
	spins[thePlayer] = nil
end


----------------------------
-- PVP Script by Xiti!
----------------------------

PVP = {}
PVPrequest = {}
requestTimer = {}


function askForPVP(thePlayer,command,targetPlayer,maps,cash)
	if targetPlayer and maps and cash then
		if not requestTimer[thePlayer] then
		local targetPlayer = findPlayerByName(targetPlayer)
		if targetPlayer ~= thePlayer then
			if not (isGuestAccount(getPlayerAccount(thePlayer))) and not (isGuestAccount(getPlayerAccount(targetPlayer))) then
				if not PVP[thePlayer] and not PVP[targetPlayer] then
					if tonumber(maps) > 1 then
						local playerCash = tonumber(getAccountData(getPlayerAccount(thePlayer),"cash"))
						local targetCash = tonumber(getAccountData(getPlayerAccount(targetPlayer),"cash"))
						if tonumber(cash) >= 1000 then
							if not PVPrequest[targetPlayer] then
								if playerCash > tonumber(cash) and targetCash > tonumber(cash) then
									local PVPData = {}
									PVPData[1] = thePlayer
									PVPData[2] = tonumber(maps)
									PVPData[3] = tonumber(cash)
									PVPrequest[targetPlayer] = PVPData
									outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).." #ffffffchallenge "..getPlayerName(targetPlayer).."#ffffff to a PVP! ",getRootElement(),255,255,255,true)
									outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).." #ffffffchallenge you to a PVP! [Maps: #00ff00"..maps.."#ffffff Cash: #00ff00$"..cash.."#ffffff]",targetPlayer,255,255,255,true)
									outputChatBox("#00ff00* #ffffffType #11dd11[/acceptpvp true]#ffffff to accept or #00ff00[/acceptpvp false] #ffffffto decline!",targetPlayer,255,255,255,true)
									requestTimer[thePlayer] = true
									setTimer(resetPVPTimer,120000,1,targetPlayer,thePlayer)
								else
									outputChatBox("#00ff00* #ffffffYou or opponent dont have enought cash!",thePlayer,255,255,255,true)
								end
							else
								outputChatBox("#00ff00* #ffffffOpponent have other PVP request now!",thePlayer,255,255,255,true)
							end
						else
							outputChatBox("#00ff00* #ffffffMinimal PVP value is $1000!",thePlayer,255,255,255,true)
						end
					else
						outputChatBox("#00ff00* #ffffffMaps must be more than one!",thePlayer,255,255,255,true)
					end
				else
					outputChatBox("#00ff00* #ffffffYou or opponent play now PVP!",thePlayer,255,255,255,true)
				end
			else
				outputChatBox("#00ff00* #ffffffYou or your opponent you are not logged in!",thePlayer,255,255,255,true)
			end
		else
			ouputChatBox("#00ff00* #ffffffYou cant play PVP with youself!",thePlayer,255,255,255,true)
		end
		else
			outputChatBox("#00ff00* #ffffffYou have other request now!",thePlayer,255,255,255,true)
		end
	else
		outputChatBox("#00ff00* #ffffffBad syntax! [/pvp target maps cash]",thePlayer,255,255,255,true)
	end
end
addCommandHandler("pvp",askForPVP)



function resetPVPTimer(thePlayer,targetPlayer)
	if PVPrequest[thePlayer] then
		requestTimer[targetPlayer] = nil
		PVPrequest[thePlayer] = nil
		outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).."#ffffff didn't accept your PVP request!",targetPlayer,255,0,0,true)
	end
end

function confirmPVP(thePlayer,command,string)
	if PVPrequest[thePlayer] then
		if string == "true" then
			local targetPlayer = PVPrequest[thePlayer][1]
			if targetPlayer then
				startPVP(thePlayer,targetPlayer)
			end
		else
			local targetPlayer = PVPrequest[thePlayer][1]
			outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).."#ffffff decline you'r PVP request!",targetPlayer,255,255,255,true)
			outputChatBox("#00ff00* #ffffffYou decline PVP request.",thePlayer,255,255,255,true)
			requestTimer[targetPlayer] = nil
			PVPrequest[thePlayer] = nil
		end
	end
end
addCommandHandler("acceptpvp",confirmPVP)

function startPVP(thePlayer,targetPlayer)
	if thePlayer and targetPlayer then
		if not PVP[thePlayer] and not PVP[targetPlayer] then
			if not (isGuestAccount(getPlayerAccount(thePlayer))) and not (isGuestAccount(getPlayerAccount(targetPlayer))) then
				local PVPDataOne = {}
				local PVPDataTwo = {}
				PVPDataOne[1] = thePlayer
				PVPDataOne[2] = PVPrequest[thePlayer][2]
				PVPDataOne[3] = PVPrequest[thePlayer][3]
				PVPDataOne[4] = tonumber(0)
				PVPDataOne[5] = true
				PVPDataTwo[1] = targetPlayer
				PVPDataTwo[2] = PVPrequest[thePlayer][2]
				PVPDataTwo[3] = PVPrequest[thePlayer][3]
				PVPDataTwo[4] = tonumber(0)
				PVPDataTwo[5] = true
				PVP[thePlayer] = PVPDataTwo
				PVP[targetPlayer] = PVPDataOne
				PVPrequest[thePlayer] = nil
				requestTimer[targetPlayer] = nil
				outputChatBox("#00ff00* #ffffff"..getPlayerName(thePlayer).."#ffffff start PVP vs "..getPlayerName(targetPlayer).."#ffffff for #00ff00$"..PVP[thePlayer][3].."#ffffff!",getRootElement(),255,255,255,true)
				local accountX = getPlayerAccount(thePlayer)
				local accountY = getPlayerAccount(targetPlayer)
				addStat(accountX,"totalPVP",1)
				addStat(accountY,"totalPVP",1)
				local playerCash = tonumber(getAccountData(getPlayerAccount(thePlayer),"cash"))
				local targetCash = tonumber(getAccountData(getPlayerAccount(targetPlayer),"cash"))
				setAccountData(getPlayerAccount(thePlayer),"cash",playerCash - tonumber(PVPDataTwo[3]))
				setAccountData(getPlayerAccount(targetPlayer),"cash",targetCash - tonumber(PVPDataTwo[3]))
			else
				outputChatBox("#00ff00* #ffffffYou can't play PVP becouse you or you'r oppenent aren't logged in!",thePlayer,255,255,255,true)
				outputChatBox("#00ff00* #ffffffYou can't play PVP becouse you or you'r oppenent aren't logged in!",targetPlayer,255,255,255,true)
				PVPrequest[thePlayer] = nil
			end
		end
	end
end


function checkPVP()
	thePlayer = source
	if not respawnFix[thePlayer] then
	if PVP[thePlayer] then
		if PVP[thePlayer][5] == false then
			local opponent = getOpponent(thePlayer)
			PVP[opponent][4] = PVP[opponent][4]+1
			PVP[opponent][2] = PVP[opponent][2]-1
			PVP[thePlayer][2] = PVP[thePlayer][2]-1
			if PVP[thePlayer][2] == 0 and PVP[opponent][4] ~= PVP[thePlayer][4] then
				return endPVP(thePlayer,opponent)
			elseif PVP[thePlayer][2] == 0 and PVP[opponent][4] == PVP[thePlayer][4] then
				PVP[thePlayer][2] = 1
				PVP[opponent][2] = 1
			end
			PVP[thePlayer][5] = true
			PVP[opponent][5] = true
			outputChatBox("#00ff00* #ffffffYou won a PVP round! [ "..getPlayerName(PVP[thePlayer][1]).." #00ff00"..PVP[opponent][4].." #ffffff: #00ff00"..PVP[thePlayer][4].." #ffffff"..getPlayerName(PVP[opponent][1]).."#ffffff ]",PVP[thePlayer][1],255,255,255,true)
			outputChatBox("#00ff00* #ffffffYou lost a PVP round! [ "..getPlayerName(PVP[thePlayer][1]).." #00ff00"..PVP[opponent][4].." #ffffff: #00ff00"..PVP[thePlayer][4].." #ffffff"..getPlayerName(PVP[opponent][1]).."#ffffff ]",thePlayer,255,255,255,true)
		end
	end
	end
end
addEventHandler("onPlayerWasted",getRootElement(),checkPVP)

function getOpponent(thePlayerData)
	return PVP[thePlayerData][1]
end

function allowPVP()
	for _,player in ipairs(getElementsByType("player")) do
		if PVP[player] then
			PVP[player][5] = false
		end
	end
end


function endPVP(thePlayer,targetPlayer)
	if PVP[thePlayer] and PVP[targetPlayer] then
		if PVP[thePlayer][4] > PVP[targetPlayer][4] then
			local playerCash = getAccountData(getPlayerAccount(thePlayer),"cash")
			setAccountData(getPlayerAccount(thePlayer),"cash",playerCash+(PVP[thePlayer][3]*2))
			addStat(getPlayerAccount(thePlayer),"totalPVPsWon",1)
			outputChatBox("*#ffffff You lost a PVP match vs "..getPlayerName(thePlayer)..".#ffffff Final result: #00ff00"..PVP[targetPlayer][4].." #ffffff: #00ff00"..PVP[thePlayer][4].."#ffffff!",targetPlayer,255,0,0,true)
			outputChatBox("*#ffffff You won a PVP match vs "..getPlayerName(targetPlayer)..".#ffffff Final result: #00ff00"..PVP[targetPlayer][4].." #ffffff: #00ff00"..PVP[thePlayer][4].."#ffffff!",thePlayer,255,0,0,true)
			outputChatBox("*#ffffff "..getPlayerName(thePlayer).."#ffffff won PVP vs "..getPlayerName(targetPlayer).."#ffffff and won #00ff00$"..(PVP[targetPlayer][3]*2).."#ffffff!",getRootElement(),255,0,0,true)
			unlockAchievement(thePlayer)
			unlockAchievement(targetPlayer)
			scoreboardRefresh(thePlayer)
			scoreboardRefresh(targetPlayer)
		else
			local playerCash = getAccountData(getPlayerAccount(targetPlayer),"cash")
			setAccountData(getPlayerAccount(targetPlayer),"cash",playerCash+(PVP[targetPlayer][3]*2))
			outputChatBox("*#ffffff You won a PVP vs "..getPlayerName(thePlayer)..".#ffffff Final result: #00ff00"..PVP[targetPlayer][4].." #ffffff: #00ff00"..PVP[thePlayer][4].."#ffffff!",targetPlayer,255,0,0,true)
			outputChatBox("*#ffffff You lose a PVP vs "..getPlayerName(targetPlayer)..".#ffffff Final result: #00ff00"..PVP[targetPlayer][4].." #ffffff: #00ff00"..PVP[thePlayer][4].."#ffffff!",thePlayer,255,0,0,true)
			outputChatBox("*#ffffff "..getPlayerName(targetPlayer).."#ffffff won PVP vs "..getPlayerName(thePlayer).."#ffffff and won #00ff00$"..(PVP[targetPlayer][3]*2).."#ffffff!",getRootElement(),255,0,0,true)
			scoreboardRefresh(thePlayer)
			scoreboardRefresh(targetPlayer)
			unlockAchievement(thePlayer)
			unlockAchievement(targetPlayer)
		end
		PVP[thePlayer] = nil
		PVP[targetPlayer] = nil
	end
end

function playerPVPQuit()
	if PVP[source] then
		local targetPlayer = PVP[source][1]
		if targetPlayer then
			local playerCash = getAccountData(getPlayerAccount(targetPlayer),"cash")
			setAccountData(getPlayerAccount(targetPlayer),"cash",playerCash+(PVP[source][3]*2))
			outputChatBox("*#ffffff You won a PVP vs "..getPlayerName(source)..".#ffffff, becouse you'r opponent left!",targetPlayer,255,0,0,true)
			outputChatBox("*#ffffff "..getPlayerName(targetPlayer).."#ffffff won PVP vs "..getPlayerName(source).."#ffffff and won #00ff00$"..(PVP[source][3]*2).."#ffffff!",getRootElement(),255,0,0,true)
			PVP[targetPlayer] = nil
			PVP[source] = nil
			scoreboardRefresh(thePlayer)
			scoreboardRefresh(targetPlayer)
		end
	end
end
addEventHandler("onPlayerQuit",getRootElement(),playerPVPQuit)
addEventHandler("onPlayerLogout",getRootElement(),playerPVPQuit)



-------------
-- Give money
-------------

function giveMoney(thePlayer,command,targetPlayer,amount)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
	if not (targetPlayer == "") then
		if tonumber(amount) then
			local playerCash = tonumber(getAccountData(account,"cash"))
			if tonumber(amount) > 0 then
				if tonumber(amount) <= playerCash then
					if (findPlayerByName(targetPlayer)) then
						local target = findPlayerByName(targetPlayer)
						local targeta = getPlayerAccount(target)
						if target ~= thePlayer then
							local amount = math.ceil(amount)
							local playerCash = getAccountData(account,"cash")
							local targetCash = getAccountData(targeta,"cash")
							setAccountData(account,"cash",playerCash-tonumber(amount))
							setAccountData(targeta,"cash",targetCash+tonumber(amount))
							local playerCash = getAccountData(account,"cash")
							local targetCash = getAccountData(targeta,"cash")
							scoreboardRefresh(thePlayer)
							scoreboardRefresh(target)
							unlockAchievement(thePlayer)
							outputChatBox("#00ff00* #FFFFFFYou have sent #ABCDEF$"..amount.."#FFFFFF to "..getPlayerName(target).."#FFFFFF!",thePlayer,255,255,255,true)
							outputChatBox("#00ff00* #FFFFFF"..getPlayerName(thePlayer).." #FFFFFFhas sent you #ABCDEF$"..amount.."#FFFFFF!",target,255,255,255,true)
						else
							outputChatBox("#00ff00* #FFFFFFERROR! You cannot send money to yourself!",thePlayer,255,255,255,true)
							return false
						end
					else
						outputChatBox("#00ff00* #FFFFFFERROR! The player you specified does not exist! (#FFFF00"..targetPlayer.."#FFFFFF)",thePlayer,255,255,255,true)
						return false
					end
				else
					outputChatBox("#00ff00* #FFFFFFERROR! You don't have enough money!",thePlayer,255,255,255,true)
					return false
				end
			else
				outputChatBox("#00ff00* #FFFFFFERROR! Invalid amount! [#ABCDEF"..amount.."#FFFFFF]",thePlayer,255,255,255,true)
				return false
			end
		else
			outputChatBox("#00ff00* #FFFFFFERROR! Please specify the amount to send!",thePlayer,255,255,255,true)
			return false
		end
	else
		outputChatBox("#00ff00* #FFFFFFERROR! Please select a player!",thePlayer,255,255,255,true)
		return false
	end
	end
end
addCommandHandler("give",giveMoney)







-------------
-- PM system
-------------

function privateMessage(player, command, toplayername, ...)
local words = { ... }
local message = table.concat(words," ")
	if toplayername then
		if (findPlayerByName (toplayername)) then
		toplayer = (findPlayerByName (toplayername))
			if not (toplayer == player) then
				if message then
					outputChatBox("#00ff00[PM]#00aaff Message to #FFFFFF" .. getPlayerName(toplayer) .. "#FFFFFF: " .. message, player, 255, 255, 255, true)
					outputChatBox("#00ff00[PM]#00aaff Message from #FFFFFF" .. getPlayerName(player) .. "#FFFFFF: " .. message, toplayer, 255, 255, 255, true)
				else
					outputChatBox("#00ff00[PM]#00aaff Invalid syntax! Usage:#FFFFFF /pm [partical player name] [message]", player, 255, 255, 255, true)
					return false
				end
			else
				outputChatBox("#00ff00[PM]#00aaff You cannot PM yourself#FFFFFF!", player, 255, 255, 255, true)
				return false
			end
		else
			outputChatBox("#00ff00[PM]#00aaff Player not found! #FFFFFF("..toplayername..").", player, 255, 255, 255, true)
			return false
		end
	else
		outputChatBox("#00ff00[PM]#00aaff Invalid syntax! Usage:#FFFFFF /pm [partical player name] [message]", player, 255, 255, 255, true)
		return false
	end
end
addCommandHandler("pm", privateMessage)






--------------------------------------
-- Find player by a part of their name
--------------------------------------

function findPlayerByName (name)
	local player = getPlayerFromName(name)
	if player then return player end
	for i, player in ipairs(getElementsByType("player")) do
		if string.find(string.gsub(getPlayerName(player):lower(),"#%x%x%x%x%x%x", ""), name:lower(), 1, true) then
			return player
		end
	end
return false
end

----------------------
-- Automated Ghostmode
----------------------

addEventHandler("onMapStarting", getRootElement(),
function(mapInfo, mapOptions, gameOptions)
	if (ismapDM(mapInfo.name) == 1) then
		for theKey,thePlayer in ipairs(getElementsByType("player")) do
			setElementData( thePlayer, "overrideCollide.uniqueblah", 0, false )
		end
		mapType = "DM"
	elseif (ismapDM(mapInfo.name) == 2) then
		for theKey,thePlayer in ipairs(getElementsByType("player")) do
			setElementData(thePlayer, "overrideCollide.uniqueblah", nil, false )
		end
		mapType = "DD"
	elseif (ismapDM(mapInfo.name) == 3) then
		for theKey,thePlayer in ipairs(getElementsByType("player")) do
			setElementData(thePlayer, "overrideCollide.uniqueblah", nil, false )
		end
		mapType = "FUN"
	elseif (ismapDM(mapInfo.name)) == 4 then
		mapType = "?"
	end
end)

function ismapDM(isim)
if string.find(isim, "[DM]", 1, true) then
	return 1
elseif string.find(isim, "[DD]", 1,true) then
	return 2
elseif string.find(isim, "[FUN]", 1,true) then
	return 3
else
	return 4
end
end





------------------------------------------------
-- Set headlights on map start and on veh-change
------------------------------------------------

function setPlayerHeadlightColor(number, sort, model)
	if sort == "vehiclechange" then
		local car = getPedOccupiedVehicle(source)
		if car then
			if not getElementData(source,"shopFeatures") then return end
			if getElementData(source,"shopFeatures")[4][2] then
				setVehicleHeadLightColor(car,unpack(getElementData(source,"shopFeatures")[3]))
			end
			if getElementData(source,"shopFeatures")[4][1] then
				local firstColors = getElementData(source,"shopFeatures")[1]
				local secoundColors = getElementData(source,"shopFeatures")[2]
				setVehicleColor(car,firstColors[1],firstColors[2],firstColors[3],secoundColors[1],secoundColors[2],secoundColors[3])
			end
		end
	end
end

function setPlayerHeadlightColor2()
	local car = getPedOccupiedVehicle(source)
	if car then
		if getElementData(source,"shopFeatures")[4][2] then
			setVehicleHeadLightColor(car,unpack(getElementData(source,"shopFeatures")[3]))
		end
		if getElementData(source,"shopFeatures")[4][1] then
			local firstColors = getElementData(source,"shopFeatures")[1]
			local secoundColors = getElementData(source,"shopFeatures")[2]
			setVehicleColor(car,firstColors[1],firstColors[2],firstColors[3],secoundColors[1],secoundColors[2],secoundColors[3])
		end
	end
end
addEvent("onNotifyPlayerReady", true)
addEventHandler("onNotifyPlayerReady", getRootElement(), setPlayerHeadlightColor2)
addEventHandler("onPlayerPickUpRacePickup",getRootElement(),setPlayerHeadlightColor)

local shop = {
	colorPrice = 5000,
	headlightsPrice = 10000,
	policeHeadlightsPrice = 200000,
	rainbowColorPrice = 400000,
}

function buyColorsInShop(thePlayer,id,red,green,blue)
	if thePlayer and id then
		local account = getPlayerAccount(thePlayer)
		if (isGuestAccount(account)) then return end
		local playerCash = tonumber(getAccountData(account,"cash"))
		if id == "#1" then
			if playerCash >= shop.colorPrice then
				setAccountData(account,"everSetCustomVehicleColor",1)
				setAccountData(account,"cash",playerCash-shop.colorPrice)
				setAccountData(account,"c1R",red)
				setAccountData(account,"c1G",green)
				setAccountData(account,"c1B",blue)
				scoreboardRefresh(thePlayer)
				showServerMsg(thePlayer,"New car color!","You successfully bought a new car color!")
				updateClientData(thePlayer)
				unlockAchievement(thePlayer,22)
local uVehicle = getPedOccupiedVehicle( thePlayer )
setVehicleColor( uVehicle, getAccountData(account,"c1R",red), getAccountData(account,"c1G",red), getAccountData(account,"c1B",red) )
			else
				showServerMsg(thePlayer,"ERROR!","You don't have enough cash!")
			end
		elseif id == "#2" then
			if playerCash >= shop.colorPrice then
				setAccountData(account,"everSetCustomVehicleColor",1)
				setAccountData(account,"cash",playerCash-shop.colorPrice)
				setAccountData(account,"c2R",red)
				setAccountData(account,"c2G",green)
				setAccountData(account,"c2B",blue)
				scoreboardRefresh(thePlayer)
				showServerMsg(thePlayer,"New car color!","You successfully bought a new car color!")
				updateClientData(thePlayer)
				unlockAchievement(thePlayer,22)
			else
				showServerMsg(thePlayer,"ERROR!","You don't have enough cash!")
			end
		elseif id == "H" then
			if playerCash >= shop.headlightsPrice then
				setAccountData(account,"cash",playerCash-shop.headlightsPrice)
				scoreboardRefresh(thePlayer)
				setAccountData(account,"hlcRed",red)
				setAccountData(account,"hlcGreen",green)
				setAccountData(account,"hlcBlue",blue)
				setAccountData(account,"everSetHeadlightsColor",1)
				showServerMsg(thePlayer,"New headlights color!","You successfully bought a new headlights color!")
				updateClientData(thePlayer)
			else
				showServerMsg(thePlayer,"ERROR!","You don't have enough cash!")
			end
		end
	end
end


function buySpecialTuning(thePlayer,id)
	if thePlayer and id then
		local account = getPlayerAccount(thePlayer)
		if isGuestAccount(account) then return end
		local playerCash = tonumber(getAccountData(account,"cash"))
		if id == 1 then
			if tonumber(getAccountData(account,"headlightBought")) == 0 then
				if playerCash>=shop.policeHeadlightsPrice then
					setAccountData(account,"headlightBought",1)
					setAccountData(account,"cash",playerCash-shop.policeHeadlightsPrice)
					scoreboardRefresh(thePlayer)
					showServerMsg(thePlayer,"Police headlights bought!","You successfully bought this feature!\nToggle on/off in settings window.")
					updateClientData(thePlayer)
				else
					showServerMsg(thePlayer,"ERROR!","You dont have enough cash!")
				end
			else
				showServerMsg(thePlayer,"ERROR!","You already have bought this feature!")
			end
		elseif id == 2 then
			if tonumber(getAccountData(account,"rainbowBought")) == 0 then
				if playerCash>=shop.rainbowColorPrice then
					setAccountData(account,"rainbowBought",1)
					setAccountData(account,"cash",playerCash-shop.rainbowColorPrice)
					scoreboardRefresh(thePlayer)
					showServerMsg(thePlayer,"Rainbow car color bought!","You successfully bought this feature!\nToggle on/off in settings window.")
					updateClientData(thePlayer)
					unlockAchievement(thePlayer,23)
				else
					showServerMsg(thePlayer,"ERROR!","You dont have enough cash!")
				end
			else
				showServerMsg(thePlayer,"ERROR!","You already have bought this feature!")
			end
		end
	end
end


function updateClientData(thePlayer)
	if thePlayer then
		local account = getPlayerAccount(thePlayer)
		if isGuestAccount(account) then return end
		local colors = {{255,255,255},{255,255,255},{255,255,255},{false,false}}
		if tonumber(getAccountData(account,"everSetCustomVehicleColor")) == 1 then
			colors[1] = {tonumber(getAccountData(account,"c1R")),tonumber(getAccountData(account,"c1G")),tonumber(getAccountData(account,"c1B"))}
			colors[2] = {tonumber(getAccountData(account,"c2R")),tonumber(getAccountData(account,"c2G")),tonumber(getAccountData(account,"c2B"))}
			colors[4][1] = true
		end
		if tonumber(getAccountData(account,"everSetHeadlightsColor")) == 1 then
			colors[3] = {tonumber(getAccountData(account,"hlcRed")),tonumber(getAccountData(account,"hlcGreen")),tonumber(getAccountData(account,"hlcBlue"))}
			colors[4][2] = true
		end
		setElementData(thePlayer,"shopFeatures",colors)
		local special = {false,false}
		if tonumber(getAccountData(account,"headlightBought")) == 1 then
			special[1] = true
		end
		if tonumber(getAccountData(account,"rainbowBought")) == 1 then
			special[2] = true
		end
		setElementData(thePlayer,"specialFeatures",special)
		callClientFunction(thePlayer,"udpatePanelData",colors,special)
	end
end


---------------------------------------------
-- Set most widely used stats as element data
---------------------------------------------





-- Get player's element data (testing)
function getElementDataOnCommand(player,command,data)
	outputChatBox(tostring(getAccountData(getPlayerAccount(player),tostring(data))))
end
addCommandHandler("get",getElementDataOnCommand)



-----------------
-- Get dead count
-----------------

function getDeadCount ()
  deadAmount = 0
  for i,v in ipairs (getDeadPlayers()) do
    deadAmount = deadAmount +1
  end
  return deadAmount
end





------------------
-- Get alive count
------------------

function getAliveCount ()
	aliveAmount = 0
	for i,v in ipairs (getAlivePlayers()) do
		aliveAmount = aliveAmount +1
	end
	return aliveAmount
end


-------------------------------------------
-- Calling functions from the client's side
-------------------------------------------

function callServerFunction(funcname, ...)
    local arg = { ... }
    if (arg[1]) then
        for key, value in next, arg do arg[key] = tonumber(value) or value end
    end
    loadstring("return "..funcname)()(unpack(arg))
end
addEvent("onClientCallsServerFunction", true)
addEventHandler("onClientCallsServerFunction", resourceRoot , callServerFunction)





-----------------------
-- Call client function
-----------------------

function callClientFunction(client, funcname, ...)
    local arg = { ... }
    if (arg[1]) then
        for key, value in next, arg do
            if (type(value) == "number") then arg[key] = tostring(value) end
        end
    end
    -- If the clientside event handler is not in the same resource, replace 'resourceRoot' with the appropriate element
    triggerClientEvent(client, "onServerCallsClientFunction", resourceRoot, funcname, unpack(arg or {}))
end




----------------------
-- Math.round function
----------------------

function math.round(number, decimals, method)
    decimals = decimals or 0
    local factor = 10 ^ decimals
    if (method == "ceil" or method == "floor") then return math[method](number * factor) / factor
    else return tonumber(("%."..decimals.."f"):format(number)) end
end




----------------------------------------------- SCOREBOARD -----------------------------------------------------

addEventHandler("onResourceStart", getResourceRootElement(getThisResource()),
	function()
		exports.scoreboard:addScoreboardColumn("Rank",getRootElement(),6,30)
		exports.scoreboard:addScoreboardColumn("Money",getRootElement(),5)
		exports.scoreboard:addScoreboardColumn("Points",getRootElement(),5)
		exports.scoreboard:removeScoreboardColumn("race rank")
		exports.scoreboard:removeScoreboardColumn("checkpoint")
	end)


function scoreboardRefresh(thePlayer)
	local account = getPlayerAccount(thePlayer)
	if not (isGuestAccount(account)) then
		local playerCash = tonumber(getAccountData(account,"cash"))
		local playerPoints = tonumber(getAccountData(account,"points"))
		setElementData(thePlayer,"Money","$"..playerCash)
		setElementData(thePlayer,"Points",playerPoints)
	else 
		setElementData(thePlayer,"Money","Guest")
		setElementData(thePlayer,"Points","Guest")
		setElementData(thePlayer,"Rank","?")
	end
end

function scoreboardRefreshTrigger()
	local thePlayer = source
	scoreboardRefresh(thePlayer)
end
addEventHandler("onPlayerLogout",getRootElement(),scoreboardRefreshTrigger)
addEventHandler("onPlayerLogin",getRootElement(),scoreboardRefreshTrigger)
addEventHandler("onPlayerWasted",getRootElement(),scoreboardRefreshTrigger)

function scoreboardRefreshTriggerRank()
	getRankSB(source)
end
addEventHandler("onPlayerLogin",getRootElement(),scoreboardRefreshTriggerRank)


function getAllRankSB()
	 local tableOrder = { }
            for i, v in ipairs ( getAccounts ( ) ) do
                table.insert (
                    tableOrder,
                    {
                        name = getAccountData ( v, "nick" ) or getAccountName ( v ),
                        data = getAccountData ( v, "points" )
                    }
                )
            end
            table.sort (
                tableOrder,
                function ( a, b )
                    return ( tonumber ( a.data ) or 0 ) > ( tonumber ( b.data ) or 0 )
                end
            )
	for i,player in pairs(getElementsByType("player")) do
		if not (isGuestAccount(getPlayerAccount(player))) then
			for i=1,#tableOrder do
				if tableOrder[i].name == getPlayerName(player) then
					setElementData(player,"Rank",i)
				end
			end
		end
	end
	outputDebugString("Updating rank for all player")
end
setTimer(function() getAllRankSB() end,300000,0)

function getRankSB(player,command)
	 local tableOrder = { }
            for i, v in ipairs ( getAccounts ( ) ) do
                table.insert (
                    tableOrder,
                    {
                        name = getAccountData ( v, "nick" ),
                        data = getAccountData ( v, "points" )
                    }
                )
            end
            table.sort (
                tableOrder,
                function ( a, b )
                    return ( tonumber ( a.data ) or 0 ) > ( tonumber ( b.data ) or 0 )
                end
            )
		for i=1,#tableOrder do
			if tableOrder[i].name == getPlayerName(player) then
				outputDebugString("Updating rank for: "..tostring(string.gsub(getPlayerName(player),"#%x%x%x%x%x%x", "")))
				setElementData(player,"Rank",i)
				break
			end
		end
end

--------------------------------------
-- Very importatnt account functions
--------------------------------------


function addStat(account, data, val)
	if (tostring(data)) and (tonumber(val)) then
		local theData = getAccountData(account, data)
		if (theData) then
			setAccountData(account, data, tonumber(theData) + tonumber(val))
		else
			outputDebugString("Bad argument (Could not get Data)", 1, 255, 0, 0)
		end
	else
		outputDebugString("Bad argument", 1, 255, 0, 0)				
	end
end


local scriptcol = {{255,178,0,true},{255,0,0,true},{0,255,0,true}}

addCommandHandler("setAccountData",
function (player, command, target, data, value)
	local account = getPlayerAccount(player)
	if (isObjectInACLGroup("user." ..getAccountName(account), aclGetGroup("Admin"))) then
			if (target) and (data) and (value) then
				local targetPlayer = getPlayerWildcard(target)
				if (targetPlayer) then
					if not (isGuestAccount(getPlayerAccount(targetPlayer))) then
						for i, v in ipairs(dataTable) do
							if (v == data) then
								setAccountData(getPlayerAccount(targetPlayer), data, value)
								scoreboardRefresh(targetPlayer)
								outputChatBox("* Successfully set account data for : #FFFFFF"..getPlayerName(targetPlayer).." #FFB200[datatype: '"..tostring(data).."' , value: '"..tostring(value).."' ]",player,unpack(scriptcol[1]))
								outputChatBox("* #FFFFFF"..getPlayerName(player).."#00FF00 set new data for your account! [datatype: '"..tostring(data).."' , value: '"..tostring(value).."' ]",targetPlayer,unpack(scriptcol[3]))
								return
							end							
						end
					else
						outputChatBox("* Error: Target not logged in!",player,unpack(scriptcol[2]))
					end
				else
					outputChatBox("* Error: Could not find player!",player,unpack(scriptcol[2]))
				end
			else
				outputChatBox("* Error: Syntax error: /setAccountData <player> <data> <value>!",player,unpack(scriptcol[2]))
			end
	else
		outputChatBox("* Error: You can't use this function!",player,unpack(scriptcol[2]))
	end
end)

addCommandHandler("getAccountData",
function (player, command, target, data)
	local account = getPlayerAccount(player)
	if (isObjectInACLGroup("user." ..getAccountName(account), aclGetGroup("Admin"))) then
			if (target) and (data) then
				local targetPlayer = getPlayerWildcard(target)
				if (targetPlayer) then
					if not (isGuestAccount(getPlayerAccount(targetPlayer))) then
						for i, v in ipairs(dataTable) do
							if (v == data) then
								local value = getAccountData(getPlayerAccount(targetPlayer), data)
								outputChatBox("* Account data for: #FFFFFF"..getPlayerName(targetPlayer).." #00FF00[datatype: '"..tostring(data).."' , value: '"..tostring(value).."' ]",player,unpack(scriptcol[3]))
								return
							end							
						end
					else
						outputChatBox("* Error: Target not logged in!",player,unpack(scriptcol[2]))
					end
				else
					outputChatBox("* Error: Could not find player!",player,unpack(scriptcol[2]))
				end
			else
				outputChatBox("* Error: Syntax error: /getAccountData <player> <data>!",player,unpack(scriptcol[2]))
			end
	else
		outputChatBox("* Error: You can't use this function!",player,unpack(scriptcol[2]))
	end
	outputChatBox("* Error: Could not find the datatype!",player,unpack(scriptcol[2]))
end)

function getPlayerWildcard(namePart)
	namePart = string.lower(namePart)
	
	local bestaccuracy = 0
	local foundPlayer, b, e
	for _,player in ipairs(getElementsByType("player")) do
		b,e = string.find(string.lower(string.gsub(getPlayerName(player):lower(),"#%x%x%x%x%x%x", "")), namePart)
		if b and e then
			if e-b > bestaccuracy then
				bestaccuracy = e-b
				foundPlayer = player
			end
		end
	end
	
	if (foundPlayer) then
		return foundPlayer
	else
		return false
	end
end


function findMap( query )
	local maps = findMaps( query )

	-- Make status string
	local status = "Found " .. #maps .. " match" .. ( #maps==1 and "" or "es" )
	for i=1,math.min(5,#maps) do
		status = status .. ( i==1 and ": " or ", " ) .. "'" .. getMapName( maps[i] ) .. "'"
	end
	if #maps > 5 then
		status = status .. " (" .. #maps - 5 .. " more)"
	end

	if #maps == 0 then
		return nil, status .. " for '" .. query .. "'"
	end
	if #maps == 1 then
		return maps[1], status
	end
	if #maps > 1 then
		return nil, status
	end
end

-- Find all maps which match the query string
function findMaps( query )
	local results = {}
	--escape all meta chars
	query = string.gsub(query, "([%*%+%?%.%(%)%[%]%{%}%\%/%|%^%$%-])","%%%1")
	-- Loop through and find matching maps
	for i,resource in ipairs(exports.mapmanager:getMapsCompatibleWithGamemode(getResourceFromName( "race" ))) do
		local resName = getResourceName( resource )
		local infoName = getMapName( resource  )

		-- Look for exact match first
		if query == resName or query == infoName then
			return {resource}
		end

		-- Find match for query within infoName
		if string.find( infoName:lower(), query:lower() ) then
			table.insert( results, resource )
		end
	end
	return results
end

function getMapName( map )
	return getResourceInfo( map, "name" ) or getResourceName( map ) or "unknown"
end



function addDonatorTime(thePlayer,command,type,donatorPlayer,time)
	if thePlayer and type then
		if type:lower() == "add" then
			local account = getPlayerAccount(thePlayer)
			if (isObjectInACLGroup("user." ..getAccountName(account), aclGetGroup("Admin"))) then
				local donatorPlayer = findPlayerByName(donatorPlayer)
				if donatorPlayer then
					local donatorAccount = getPlayerAccount(donatorPlayer)
					if not isGuestAccount(donatorAccount) then
						local currentTime = getRealTime()
						local oneDay = 86400
						if tonumber(time) then
							local daysToDonate = oneDay * time
							setAccountData(donatorAccount,"donatorEnabled",1)
							setAccountData(donatorAccount,"donatorTime",currentTime.timestamp + daysToDonate)
							addStat(donatorAccount,"cash",10000 * time)
							scoreboardRefresh(donatorPlayer)
							outputChatBox("#00ff00*#ffffff You successfully add a donator status for "..getPlayerName(donatorPlayer),thePlayer,255,255,255,true)
							outputChatBox("#00ff00*#ffffff You recieve a #00ff00"..time.."#ffffff days of donator status!",donatorPlayer,255,255,255,true)
							outputChatBox("#00ff00*#ffffff You recieve "..10000 * time.."$. Thanks for support us!",donatorPlayer,255,255,255,true)
							donatorLogin(donatorPlayer)
							setTeam(thePlayer)
						end
					else
						outputChatBox("Donator: Can't find a player account or player is not logged in!",thePlayer,255,0,0,true)
					end
				else
					outputChatBox("Donator: Can't find a player!",thePlayer,255,0,0,true)
				end
			else
				outputChatBox("Donator: You need to have a admin rights to do that!",thePlayer,255,0,0,true)
			end
		elseif type:lower() == "remove" then
			local account = getPlayerAccount(thePlayer)
			if (isObjectInACLGroup("user." ..getAccountName(account), aclGetGroup("Admin"))) then
				local donatorPlayer = findPlayerByName(donatorPlayer)
				if donatorPlayer then
					local donatorAccount = getPlayerAccount(donatorPlayer)
					if not isGuestAccount(donatorAccount) then
						if getAccountData(donatorAccount,"donatorEnabled") == 1 then
							setAccountData(donatorAccount,"donatorEnabled",0)
							setAccountData(donatorAccount,"donatorTime",0)
							outputChatBox("#00ff00*#ffffff You successfully removed a donator status for "..getPlayerName(donatorPlayer),thePlayer,255,255,255,true)
							outputChatBox("#00ff00*#ffffff".. getPlayerName(thePlayer).."#ffffff remove your donator status.",donatorPlayer,255,255,255,true)
							donatorLogin(donatorPlayer)
							if getTeamName(getPlayerTeam(donatorPlayer)) == "Donators" then
								setPlayerTeam(donatorPlayer,nil)
							end
						end
					else
						outputChatBox("Donator: Can't find a player account or player is not logged in!",thePlayer,255,0,0,true)
					end
				else
					outputChatBox("Donator: Can't find a player!",thePlayer,255,0,0,true)
				end
			else
				outputChatBox("Donator: You need to have a admin rights to do that!",thePlayer,255,0,0,true)
			end
		else
			outputChatBox("Donator: Syntax /donator [add/remove] [donatorPlayer] [time]",thePlayer,255,255,255,true)
		end
	else
		outputChatBox("Donator: Syntax /donator [add/remove] [donatorPlayer] [time]",thePlayer,255,255,255,true)
	end
end
addCommandHandler("donator",addDonatorTime)


function secoundsToDays(secound)
	if secound then
		local value,state
		if secound >= 86400 then
			value = math.floor(secound/86400)
			if secound - (value*86400) > (60*60) then
				value = value.." days and "..math.floor((secound - (value*86400))/(60*60)).." hours"
			else
				value = value.." days"
			end
			state = 1
		else
			value = 0 .."days and "..math.floor(secound/(60*60)).." hours"
			state = 2
		end
		return value
	else
		return false
	end
end


function donatorLogin(thePlayer)
	if thePlayer then
		local account = getPlayerAccount(thePlayer)
		if not isGuestAccount(account) then
			local donatorState,donatorTime = false,"Expired"
			if getAccountData(account,"donatorEnabled") == 1 then
				local donatorTime = tonumber(getAccountData(account,"donatorTime"))
				if donatorTime then
					local currentTime = getRealTime()
					if donatorTime > currentTime.timestamp then
						local donatorState,donatorTime = true,secoundsToDays(donatorTime-currentTime.timestamp)
						showServerMsg(thePlayer,"Donator","Your donation status going to expire in "..donatorTime..". Thanks for support us!")
						callClientFunction(thePlayer,"setDonatorInfo",donatorState,donatorTime)
						local timeToRenew = getAccountData(account,"timeToRenew")
						local currentTime = getRealTime()
						local oneDay = 86400
						if tonumber(timeToRenew)<=tonumber(currentTime.timestamp) then
							showServerMsg(thePlayer,"Free map","You free map purchase were renewed")
							setAccountData(account,"timeToRenew",currentTime.timestamp+oneDay)
							setAccountData(account,"freeMaps",2)
						end
						callClientFunction(thePlayer,"setFreeMapPurchase",getAccountData(account,"freeMaps"))
						setTeam(thePlayer)
					else
						setAccountData(account,"donatorEnabled",0)
						showServerMsg(thePlayer,"Donator","Your donator status was expired")
						return donatorLogin(thePlayer)
					end
				end
			else
				local donatorState,donatorTime = false,"Expired"
				callClientFunction(thePlayer,"setDonatorInfo",donatorState,donatorTime)
			end
		end
	end
end


function setTeam(thePlayer)
	local donators = getTeamFromName ( "Donators" )
	if not getPlayerTeam(thePlayer) then
		if ( donators ) then -- If it was found (not false)
			setPlayerTeam ( thePlayer, donators )
		else
			createTeam ( "Donators", 255, 100, 0 )
			return setTeam(thePlayer)
		end
	end
end





function colouredChat ( message, theType )
	if theType == 0 then --if its normal chat (not /me or teamchat) then
		cancelEvent() --prevent MTA from outputting chat
		message = string.gsub(message, "#%x%x%x%x%x%x", "") --remove any hex tags in a player's chat to prevent custom colours by using lua's string.gsub
		local r,g,b = getPlayerNametagColor ( source ) --get the player's nametag colour
		local chatterName = getPlayerName ( source ) --get his name
		--output a message with the name as his nametag colour, and the rest in white.
		outputChatBox ( chatterName..":#FFFFFF "..message, getRootElement(), r, g, b, true )
	end
end
addEventHandler("onPlayerChat", getRootElement(), colouredChat)

 

Share this post


Link to post

Im try got test message when I finish race, but NOTHING NOTHING NOTHING.......


addEventHandler("onPlayerFinish", root, function(rank, time)
	-- Calculate some reward amount down from 500
		local thePlayer = source
	outputChatBox("#00ff00* #FFFFFF TEST .",thePlayer,255,255,255,true)
	-- Give the calculated reward amount to the player
	givePlayerMoney(source, rewardAmount)
end)

 

Share this post


Link to post

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

  • Recently Browsing   0 members

    No registered users viewing this page.