[string "..."]:154: 'end' expected (to close 'while' at line 36) near ''?

The reason why you are having trouble is because you did not indent your code properly.

Everytime you create a new scope, you always want to indent your code. The benefits of indenting your code include:

• Easily able to distinguish the error.
• Makes the code more readable.

Hence, I took some time and indented your code and fixed your problem. Take a good look. This is how indenting should be done and should be practiced on your other codes as well. The problem was that you had forgotten to close the while true do statement. Thus, simply adding in an another end would have had solved the trick.

Take this as a lesson as to why indenting your code is very important.

-- [Declaration Section
local maps                    = {"Dodge the Doges"};
local Positions               = {};
local Winners                 = {};

local Players                 = game:GetService('Players');
local ReplicatedStoragge      = game:GetService('ReplicatedStorage');
local text                    = "Waiting for players.....";
local intermission            = 1;
local timebeforeroundstarts   = 5;
local dodgethedogeswait       = 6;
local Remotes                 = ReplicatedStoragge:WaitForChild('Remotes');
local CountDown               = Remotes:WaitForChild('Countdown');

-- [Processing Section]
local function m(update)
    local c = game.Players:GetChildren();

    for i=1, #c do
        c[i].PlayerGui.InformationGui.loltext.Text = "" .. update;
    end;
end;

local function FindIndex(Table,Val)
    for index,v in pairs(Table) do
        if v == Val then
            return index;
        end;
    end;
end;

-- [Output Section]

while true do
    for i = 1, #text do
    	wait();
    	script.Parent.VD.Text = string.sub(text, 1, i);
	end;

    if #Players:GetPlayers() >= 5 then
        wait(1);

    	for i=1, intermission do
        	m("Intermission: " .. intermission - i);
        end;

    	local gtl = game.Players:GetChildren();

   		for i=1, #gtl do
        	gtl[i].Playing.Value = true;
   		end;

    	local mapnum = #maps;
    	local map = maps[mapnum];
    	game.Lighting[map]:Clone().Parent = workspace;
    	m("Game Starting...");
    	wait(3);

   		m("Game Starting...");
    	wait(2);

    	for i=1, timebeforeroundstarts do
        m("The game will start in: " .. timebeforeroundstarts -i);
        	wait(1);
    	end;

   		local getall = game.Players:GetChildren();
    	local getspawns = game.Workspace[map].Spawns:GetChildren();

    	for i=1, #getall do
        	if getall[i].Playing.Value == true then
        		curspawn = game.Workspace[map].Spawns.Spawn;
        		getall[i].Character.Torso.CFrame = CFrame.new(curspawn.Position);
        		curspawn:remove();
        	end;
    	end;

   		if map == "Dodge the Doges" then
        	for i=1, dodgethedogeswait do
            	m("The game will end In: " .. dodgethedogeswait -i);
            	wait(1);
        	end;
    	end;

    	local getllas = game.Players:GetChildren();

    	for i=1, #getllas do
    		if getllas[i]:FindFirstChild("leaderstats") then
        		if getllas[i].Playing.Value == true then
            		getllas[i].leaderstats.Wins.Value = getllas[i].leaderstats.Wins.Value + 1;
            		getllas[i].leaderstats.Points.Value = getllas[i].leaderstats.Points.Value + 10;
            		table.insert(Winners, getllas[i].Name);
        		end;
    		end;
    	end;

    	if #Winners == 0 then
    		m("Nobody Won!")
		else
    		m(table.concat(Winners, ", ").." Has won!");
    	end;

		game.Workspace[map]:Destroy();
		
		for i=1, #Winners do
    		table.remove(Winners, 1);
		end;
	end;
end;