SurvivalGames [Remake]

agusnat16 · (This post was last modified: 03-27-2014, 11:11 AM by agusnat16.)

Hello, i was three days rewriting this based on the original code(HungerGames by Fankins).
PD: Never programmed in LUA, if have errors post it.

Features:

/editor - If you need edit the map or place chests
/startround - Starts the round
/restartround - Restarts the round

*Players can only break leaves.
*You need wait the protection time end for kill.
*If you die you have to wait until the round ends to enter again.

In the first load the plugin make a archive "Config.ini" there you can edit the times, chests, spawns, etc.

Group permissions: survivalgames.start, survivalgames.restart, survivalgames.editor.

Configuration:
[General]
(Timers on tick, default recommended)
BeforeTime=3505
StartTime=605
ProtectionTime=605
EndTime=12000

(Mínimum players for start the game)
MinPlayers=3

(Number of chests on the map)
MaxChests=3

(Default spawn, before start the game and also end)
SpawnX=0
SpawnY=64
SpawnZ=0

(Spawn position for each player)
[Spawn]
X=0
Y=64
Z=0

(Position for each chest)
[Chest]
X=0
Y=64
Z=0

Installation:

Make a folder with the name "SurvivalGames" and paste the survivalgames.lua into.
Edit the file "settings.ini" from the server and add the line "Plugins=SurvivalGames" on "[Plugins]".

Source:

--//===Remake by agusnat16===//
ServerData = {};
ItemsIDToChest = { 280, 297, 265, 262, 266, 261, 268, 272, 260, 320, 332, 322, 267, 368, 268, 299, 300, 301, 263, 393, 358, 315, 316, 317, 319, 333, 264};

function Initialize(Plugin)
	--Plugin information
	PLUGIN = Plugin;
	Plugin:SetName("SurvivalGames");
	Plugin:SetVersion(1);
	
	--Set Hooks
	cPluginManager.AddHook(cPluginManager.HOOK_WORLD_TICK,				BeforeTime);
	cPluginManager.AddHook(cPluginManager.HOOK_WORLD_TICK,				StartTime);
	cPluginManager.AddHook(cPluginManager.HOOK_WORLD_TICK,				ProtectionTime);
	cPluginManager.AddHook(cPluginManager.HOOK_TICK,        			EndTime);
	
	cPluginManager.AddHook(cPluginManager.HOOK_PLAYER_PLACING_BLOCK, 	OnPlayerPlacingBlock);
	cPluginManager.AddHook(cPluginManager.HOOK_PLAYER_LEFT_CLICK,    	OnPlayerLeftClick);
	cPluginManager.AddHook(cPluginManager.HOOK_HANDSHAKE,            	OnHandshake);
	cPluginManager.AddHook(cPluginManager.HOOK_DISCONNECT,           	OnDisconnect);
	cPluginManager.AddHook(cPluginManager.HOOK_TAKE_DAMAGE,          	OnTakeDamage);
	cPluginManager.AddHook(cPluginManager.HOOK_KILLING,              	OnKilling);
	
	--Plugin commands
	ServerData.root = cRoot:Get();
	PM = ServerData.root:GetPluginManager()
	PM:BindCommand("/restartround",    "survivalgames.restart",   	 RestartRound,      	" - Restart the round");
	PM:BindCommand("/startround",      "survivalgames.start",   	 StartRound,      		" - Start the round");
	PM:BindCommand("/editor",      	"survivalgames.editor", 	 EditorMode,            " - 1 = Activate / 0 = Desactivate");
	
	LoadData();
	MakeDatabase();
	
	return true;
end

function LoadData()	
	--Get General Settings
	local Folder = PLUGIN:GetLocalDirectory() .. "/Config.ini";
	local Ini = cIniFile();
	
	Ini:ReadFile(Folder);
	ServerData.beftime 		= Ini:GetValueSetI("General", "BeforeTime", 	3505);
	ServerData.time			= Ini:GetValueSetI("General", "StartTime", 		605);
	ServerData.protime 		= Ini:GetValueSetI("General", "ProtectionTime", 605);
	ServerData.inttime		= Ini:GetValueSetI("General", "EndTime", 		12000);
	ServerData.minplayers 	= Ini:GetValueSetI("General", "MinPlayers", 	3);
	ServerData.maxchests 	= Ini:GetValueSetI("General", "MaxChests", 		3);
	ServerData.xspawn 		= Ini:GetValueSetI("General", "SpawnX", 		0);
	ServerData.yspawn		= Ini:GetValueSetI("General", "SpawnY", 		64);
	ServerData.zspawn		= Ini:GetValueSetI("General", "SpawnZ", 		0);
	Ini:WriteFile(Folder);
end

function LoadChest()
	--Get chests positions and set the items
	local Folder = PLUGIN:GetLocalDirectory() .. "/Config.ini";
	for i = 1, ServerData.maxchests do
		local Ini = cIniFile();
		Ini:ReadFile(Folder);
		local chestx = Ini:GetValueSetI("Chest" .. i, "X", 0);
		local chesty = Ini:GetValueSetI("Chest" .. i, "Y", 64);
		local chestz = Ini:GetValueSetI("Chest" .. i, "Z", 0);
		Ini:WriteFile(Folder);
		
		ServerData.root:GetDefaultWorld():DoWithChestAt(tonumber(chestx), tonumber(chesty), tonumber(chestz),
			function (a_ChestEntity)
				a_ChestEntity:SetSlot(math.random(27), cItem(ItemsIDToChest[math.random(27)]));
			end
		);
	end
end

function LoadSpawn()
	local SpawnPlayers = function(Player)
		
		for i = 0, ServerData.ptotal do
			local Folder = PLUGIN:GetLocalDirectory() .. "/Config.ini";
			
			local Ini = cIniFile();
			Ini:ReadFile(Folder);
			local spawnx = Ini:GetValueSetI("Spawn" .. i, "X", 0);
			local spawny = Ini:GetValueSetI("Spawn" .. i, "Y", 64);
			local spawnz = Ini:GetValueSetI("Spawn" .. i, "Z", 0);
			Ini:WriteFile(Folder);
			
			Player:TeleportToCoords(tonumber(spawnx),tonumber(spawny),tonumber(spawnz));
			
			Player:Heal(100);
			Player:SetFoodLevel(20);
			
			local Inventory = Player:GetInventory();
			Inventory:Clear();
			Inventory:AddItem(cItem(297, 2));
			Inventory:AddItem(cItem(268));
		end
	end
	ServerData.root:ForEachPlayer(SpawnPlayers);
end

function BeforeTime()	
	if not(CanBefore) then
		ServerData.beftime = ServerData.beftime - 1;
		
		if (ServerData.beftime == 3500) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 3 minutes before the start of the game.");
		end
		if (ServerData.beftime == 2400) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 2 minutes before the start of the game.");
		end
		if (ServerData.beftime == 1200) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 1 minute before the start of the game.");
		end
		if (ServerData.beftime == 600) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 30 seconds before the start of the game.");
		end
		if (ServerData.beftime == 0) then
			--Check if have required players
			
			if (ServerData.ptotal <= ServerData.minplayers) then
				ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " Waiting for players.");
			else
				ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Blue .. "    Waiting for players.");
				CanBefore = true;
			end
		end
	end
end

function StartTime()
	if (CanBefore) then
		ServerData.time = ServerData.time - 1;
		
		if not(CanMoving) then
			LoadSpawn();
		end
		
		if (ServerData.time == 600) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 30 seconds for start the game.");
		end
		if (ServerData.time == 400) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 20 seconds for start the game.");
		end
		if (ServerData.time == 200) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 10 seconds for start the game.");
		end
		if (ServerData.time == 100) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 5 seconds for start the game.");
		end
		if (ServerData.time == 80) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 4 seconds for start the game.");
		end
		if (ServerData.time == 60) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 3 seconds for start the game.");
		end
		if (ServerData.time == 40) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 2 seconds for start the game.");
		end
		if (ServerData.time == 20) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " 1 seconds for start the game.");
		end
		if (ServerData.time == 5) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " The game start, keep alive!");
			CanMoving = true;
			LoadChest();
		end
	end
end

function ProtectionTime()
	if (CanMoving and CanBefore) then
		ServerData.protime = ServerData.protime - 1;
		
		if (ServerData.protime == 600) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 30 second protection.");
		end
		if (ServerData.protime == 400) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 20 second protection.");
		end
		if (ServerData.protime == 200) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 10 second protection.");
		end
		if (ServerData.protime == 100) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 5 second protection.");
		end
		if (ServerData.protime == 80) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 4 second protection.");
		end
		if (ServerData.protime == 60) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 3 second protection.");
		end
		if (ServerData.protime == 40) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 2 second protection.");
		end
		if (ServerData.protime == 20) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " 1 second protection.");
		end
		if (ServerData.protime == 0) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightBlue .. " Time protection ended!");
			CanKill = true;
		end
	end
end

function EndTime()
	--Refresh the players online
	ServerData.ptotal = ServerData.root:GetServer():GetNumPlayers();
	
	if (CanMoving and CanBefore and CanKill) then
		ServerData.inttime = ServerData.inttime - 1;
		
		if (ServerData.inttime == 6000) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 5 minutes before the end of the round.");
		end
		if (ServerData.inttime == 3600) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 3 minutes before the end of the round.");
		end
		if (ServerData.inttime == 1200) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 1 minutes before the end of the round.");
		end
		if (ServerData.inttime == 200) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 10 seconds before the end of the round.");
		end
		if (ServerData.inttime == 100) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 5 seconds before the end of the round.");
		end
		if (ServerData.inttime == 80) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 4 seconds before the end of the round.");
		end
		if (ServerData.inttime == 60) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 3 seconds before the end of the round.");
		end
		if (ServerData.inttime == 40) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 2 seconds before the end of the round.");
		end
		if (ServerData.inttime == 20) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Gold .. " 1 second before the end of the round.");
		end
		if (ServerData.inttime == 0) then
			ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Red .. " The game end, restarting.");
			RestartRound();
		end
	end
end

function RestartRound()
	--Reset variables for Restart the round
	local SpawnPlayers = function(OtherPlayer)
		OtherPlayer:GetInventory():Clear();
		OtherPlayer:TeleportToCoords(ServerData.xspawn, ServerData.yspawn, ServerData.zspawn);
	end
	ServerData.root:ForEachPlayer(SpawnPlayers);
	ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightGreen .. " Round restarted.");
	
	ServerData.beftime 	= 3505;
	ServerData.time		= 605;
	ServerData.protime 	= 605;
	ServerData.inttime	= 12000;
	CanBefore 	= false; 
	CanMoving 	= false;
	CanKill 	= false;
	
	RegenerateBlocks();
	
	return true;
end

function StartRound()
	--Set variables for Start the round
	if not(CanBefore) then
		ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.LightGreen .. " Round started.");
		ServerData.time 	= 105;
		ServerData.protime 	= 605;
		CanBefore = true;
	end

	return true;
end

function CheckWinner()
	--Check if any win
	if (CanBefore and ServerData.ptotal <= 1) then
		ServerData.Winner = "Unknown";
		
		local ScanWinner = function(OtherPlayer)
			ServerData.Winner = OtherPlayer:GetName();
		end
		ServerData.root:ForEachPlayer(ScanWinner)
		
		ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " Congratulations to the winner of the nickname: ".. cChatColor.LightBlue .. ServerData.Winner .."".. cChatColor.Yellow .. "!!!");
		ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Rose .. " Survival games over!" );

		RestartRound();
	end
end

function OnTakeDamage(Receiver, TDI)
	--Only kill if the game start
	if not(CanKill) then
		return true;
	else
		if (TDI.FinalDamage <=1) then
			TDI.FinalDamage=TDI.FinalDamage*math.random(1, 2);
		end
		TDI.FinalDamage = TDI.FinalDamage/math.random(2, 3);
	end
end

function OnKilling(Victim, Killer)
	--Thunder on the dead player and broadcast
	if (Victim:IsPlayer()) then
		local PlayerPos = Victim:GetPosition();
		Victim:GetWorld():CastThunderbolt(PlayerPos.x, PlayerPos.y, PlayerPos.z);
		ServerData.ptotal = ServerData.ptotal - 1; 
		ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " The remaining ".. ServerData.ptotal .." players.");
		
		local ClientHandle = Victim:GetClientHandle();
        ClientHandle:Kick("You are dead!");

        CheckWinner();
	end
end

function OnDisconnect(Player)
	--Broadcast disconnected player
	if (CanBefore) then
		ServerData.ptotal = ServerData.ptotal - 1; 
		ServerData.root:BroadcastChat(cChatColor.LightGray .. "[".. cChatColor.Rose .. "SG".. cChatColor.LightGray .. "]".. cChatColor.Yellow .. " The remaining ".. ServerData.ptotal .." players.");
		CheckWinner();
	end
end

function OnHandshake(ClientHandle, UserName)
	local loopPlayers = function(Player)
		if (Player:GetName() == UserName) then
			ClientHandle:Kick("The user is already connected!");
			return true;
		end
    end
    local loopWorlds = function (World)
        World:ForEachPlayer(loopPlayers);
    end
	ServerData.root:ForEachWorld(loopWorlds);
	--Dont join if the game started
	if (CanBefore) then
		ClientHandle:Kick("Wait until the game ends!");
		return true;
	end
end

function OnPlayerPlacingBlock(Player)
	if not(EdtitorMode) then
		return true;
	end
end

function EditorMode(Split,Player)
	if (Split[2] == "1") then
		EdtitorMode = true;
		Player:SendMessage(cChatColor.LightGreen .. "Editor mode activated.");
	end
	if (Split[2] == "0") then
		EdtitorMode= false;
		Player:SendMessage(cChatColor.Red .. "Editor mode desactivated.");
	end
	
	return true;
end

--SQLITE
function OnPlayerLeftClick(Player, BlockX, BlockY, BlockZ, BlockFace, Status, BlockMeta)
	if not(EdtitorMode) then
		local Blocks = {};
		Blocks.world = Player:GetWorld();
		Blocks.name = Blocks.world:GetName();
		Blocks.type = Blocks.world:GetBlock(BlockX, BlockY, BlockZ);
		
		if (Blocks.type == E_BLOCK_LEAVES and CanBefore) then
			Blocks.sqlx = tonumber(BlockX);
			Blocks.sqly = tonumber(BlockY);
			Blocks.sqlz = tonumber(BlockZ);
			Blocks.pname = Player:GetName();
			
			local TestDB, ErrCode, ErrMsg = sqlite3.open("survival.sqlite");
			local sql = "INSERT INTO BlocksBroken (x, y, z, BF, BT, BM, WorldName, Owner) VALUES ('" .. Blocks.sqlx .. "', '" .. Blocks.sqly .. "', '" .. Blocks.sqlz .. "', '".. BlockFace .."', '".. Blocks.type .."', '".. Blocks.world:GetBlockMeta(BlockX, BlockY, BlockZ) .."', '".. Blocks.name .."', '".. Blocks.pname .."');";
			local Res = TestDB:exec(sql, ShowRow, 'UserData');
			if (Res ~= sqlite3.OK) then
				LOG("TestDB:exec() failed: " .. Res .. " (" .. TestDB:errmsg() .. ")");
			end;
			TestDB:close();
				
			return false;
		else
			return true;
		end
	end
end

function MakeDatabase()
	local TestDB, ErrCode, ErrMsg = sqlite3.open("survival.sqlite");
	local sql = "CREATE TABLE IF NOT EXISTS BlocksBroken(x, y, z, BF, BT, BM, WorldName, Owner)"
	local Res = TestDB:exec(sql, ShowRow, 'UserData');
		
	if (Res ~= sqlite3.OK) then
		LOG("TestDB:exec() failed: " .. Res .. " (" .. TestDB:errmsg() .. ")");
	end;
	TestDB:close();
end

function RegenerateBlocks()
	local Blocks = {};
	Blocks.world = ServerData.root:GetDefaultWorld();
	Blocks.name = Blocks.world:GetName();
	Blocks.blocks = 0;
	
	local TestDB, ErrCode, ErrMsg = sqlite3.open("survival.sqlite");
	local function ShowRow(UserData, NumCols, Values, Names)
		Blocks.blocks = Values[1];
	end

	local sql = "SELECT COUNT(*) FROM BlocksBroken";
	local Res = TestDB:exec(sql, ShowRow, 'UserData');

	for i = 1, Blocks.blocks do
	local sqls = "SELECT * FROM BlocksBroken WHERE (rowid = '" .. i .. "')";
	local function Parser(UserData, NumValues, Values, Names)
		Blocks.removedx = Values[1];
		Blocks.removedy = Values[2];
		Blocks.removedz = Values[3];
		Blocks.removebf = Values[4];
		Blocks.removedbt = Values[5];
		Blocks.removedbm = Values[6];
	end

	if (not(TestDB:exec(sqls, Parser))) then
		return false;
	end
	Blocks.world:FastSetBlock(Blocks.removedx, Blocks.removedy, Blocks.removedz, Blocks.removedbt, Blocks.removedbm);

	local sqlr = "DELETE FROM BlocksBroken  WHERE (x = '" .. Blocks.removedx .. "') AND (y ='" .. Blocks.removedy .. "') AND (z ='" .. Blocks.removedz .. "') AND (WorldName ='" .. Blocks.name .. "')";
	local Res = TestDB:exec(sqlr, ShowRow, 'UserData');
		if (Res ~= sqlite3.OK) then
			LOG("TestDB:exec() failed: " .. Res .. " (" .. TestDB:errmsg() .. ")");
		end;
	end
	TestDB:close();
end

Download source: SurvivalGames
Original code: HungerGames

Sorry for my english... enjoy!