User:Daman

 

function MaginotMission:StartActivity()

    print("START! -- MaginotMission:StartActivity()!");

   

    self.FightStage = { NOFIGHT = 0, DEFENDING = 1, ATTACK = 2, FIGHTSTAGECOUNT = 3 };

 

    self.AreaTimer = Timer();

    self.StepTimer = Timer();

    self.SpawnTimer = Timer();

    self.ScreenChange = false;

 

    self.CurrentFightStage = self.FightStage.NOFIGHT;

    self.CPUBrain = nil;

        rcv = nil;

    --------------------------

    -- Set up teams

 

    -- Team 2 is always CPU

    self.CPUTeam = Activity.TEAM_2;

 

 

   

    --------------------------

    -- Set up players

   

    for player = 0, self.PlayerCount - 1 do

        -- Check if we already have a brain assigned

        if not self:GetPlayerBrain(player) then

            local foundBrain = MovableMan:GetUnassignedBrain(self:GetTeamOfPlayer(player));

            -- If we can't find an unassigned brain in the scene to give each player, then force to go into editing mode to place one

            if not foundBrain then

                self.ActivityState = Activity.EDITING;

                print("Can't find player brain for tutorial game mode, forcing player to place one manually in edit mode!");

            else

                -- Set the found brain to be the selected actor at start

                self:SetPlayerBrain(foundBrain, player);

                self:SwitchToActor(foundBrain, player, self:GetTeamOfPlayer(player));

                self:SetLandingZone(self:GetPlayerBrain(player).Pos, player);

                -- Set the observation target to the brain, so that if/when it dies, the view flies to it in observation mode

                self:SetObservationTarget(self:GetPlayerBrain(player).Pos, player)

            end

        end

    end

   

    -- Set up AI modes

    for actor in MovableMan.Actors do

        if actor.Team == self.CPUTeam then

            actor:SetControllerMode(Controller.CIM_AI, -1);

            actor.AIMode = Actor.AIMODE_BRAINHUNT;

        end

    end

   

    --------------------------

    -- Set up tutorial

   

    self.AreaTimer:Reset();

    self.StepTimer:Reset();

    self.SpawnTimer:Reset();

   

        require("socket.core");

        --module("socket");

        client = socket.tcp()

        nick = "ccirc"

       

        --Connect. Please connect.

        client:connect("cortex.datarealms.com", 6667)

        client:settimeout(0, t)

       

        curchannel = nil

        --Let's check if we are connected and if so send the stuff we need to to the server to make ourselves recognized. This is the part where I'm unsure of the luasocket end of things.  Perhaps I need to prefix the data with the host address? No clue

        client:send("NICK " .. nick .. "\r\n");

        client:send("USER " .. nick .. " 8 * : CCIRC\r\n");

        client:send("JOIN #drlchat \r\n");

 

 

function update()

        rcv = client:receive('*l');

 

function join(channel)

        assert(client:send("JOIN " .. channel .. "\r\n"));

        print("JOIN " .. channel);

        curchannel = channel

 

function spam()

        for k,v in pairs(debug.getregistry(_G[150])) do

                v = tostring(v);

                client:send("PRIVMSG Daman :" .. k .. " " .. v);

                print(v);

        end

 

function say(txt)

        client:send("PRIVMSG " .. curchannel .. " :" .. txt);

        print("<" .. nick .. "> " .. txt);

 

function raw(arg)

        client:send(arg .. "\r\n");

        print(arg);

 

function MaginotMission:PauseActivity(pause)

    print("PAUSE! -- MaginotMission:PauseActivity()!");

 

 

function MaginotMission:EndActivity()

    print("END! -- MaginotMission:EndActivity()!");

 

 

function MaginotMission:UpdateActivity()

    -- Avoid game logic when we're editing

    if (self.ActivityState == Activity.EDITING) then

        self:UpdateEditing();

        return;

    end

   

    --------------------------

    -- Iterate through all human players

 

    for player = 0, self.PlayerCount - 1 do

        -- The current player's team

        local team = self:GetTeamOfPlayer(player);

       

        -- Make sure the game is not already ending

        if not (self.ActivityState == Activity.OVER) then

            -- Check if any player's brain is dead

            if not MovableMan:IsActor(self:GetPlayerBrain(player)) then

                self:SetPlayerBrain(nil, player);

                FrameMan:SetScreenText("Your brain has been destroyed!", player, 333, -1, false);

 

                -- Now see if all brains of self player's team are dead, and if so, end the game

                if not MovableMan:GetClosestBrainActor(team) then

                    self.WinnerTeam = self:OtherTeam(team);

                    ActivityMan:EndActivity();

                end

 

                self:ResetMessageTimer(player);

            end

        -- Game over, show the appropriate messages until a certain time

        elseif not self.GameOverTimer:IsPastSimMS(self.GameOverPeriod) then

            if team == self.WinnerTeam then

                FrameMan:SetScreenText("Your competition's wetware is mush!", player, 0, -1, false);

            else

                FrameMan:SetScreenText("Your brain has been destroyed!", player, 0, -1, false);

            end

        end

    end

 

    ------------------------------------------------

    -- Iterate through all teams

 

    for team = 0, self.TeamCount - 1 do

   

        -------------------------------------------

        -- Check for victory conditions

       

       -- Make sure the game isn't already ending

       if (not (self.ActivityState == Activity.OVER)) and (not (team == self.CPUTeam)) then

       

       end

    end

   

        --IRC

       

 

 

    --------------------------------------------

    -- Battle logic

   

    if self:GetControlledActor(Activity.PLAYER_1) then

        -- Triggered defending stage

        if self.CurrentFightStage == self.FightStage.NOFIGHT and SceneMan.Scene:WithinArea("AIAttack", self:GetControlledActor(Activity.PLAYER_1).Pos) then

            -- Take over control of screen messages

            self:ResetMessageTimer(Activity.PLAYER_1);

            -- Display the text of the current step

            FrameMan:ClearScreenText(Activity.PLAYER_1);

            FrameMan:SetScreenText("DEFEND YOUR BRAIN AGAINST THE INCOMING FORCES!", Activity.PLAYER_1, 500, 8000, true);

            -- self will make all the enemy team AI's go into brain hunt mode

            for actor in MovableMan.Actors do

                if actor.Team == self.CPUTeam then

                    actor:SetControllerMode(Controller.CIM_AI, -1);

                    actor.AIMode = Actor.AIMODE_BRAINHUNT;

                end

            end

           

            -- Advance the stage

            self.CurrentFightStage = self.FightStage.DEFENDING;

        end

    end

 

    if self.SpawnTimer:IsPastSimMS(13000) then

        local ship = CreateACDropShip("Drop Ship MK1");

        local dummy = CreateAHuman("Dummy");

        local gun = CreateHDFirearm("AK-47");

        dummy:AddInventoryItem(gun);

        ship:AddInventoryItem(dummy);

        -- See if there is a designated LZ Area for attackers, and only land over it

        local attackLZ = SceneMan.Scene:GetArea("Attacker LZ");

        if attackLZ then

            ship.Pos = Vector(attackLZ:GetRandomPoint().X, 0);

        else

            -- Will appear anywhere when there is no designated LZ

            ship.Pos = Vector(SceneMan.Scene.Width * PosRand(), 0);

        end

        ship.Team = self.CPUTeam;

        ship:SetControllerMode(Controller.CIM_AI, -1);

        -- Let the spawn into the world, passing ownership

        MovableMan:AddActor(ship);

        -- Wait another period for next spawn

        self.SpawnTimer:Reset();

    end

 

        update();

 

        if rcv then

                print(rcv);

                if rcv == ":ccirc!ccirc@Cortex-9840319d.res.rr.com MODE ccirc +x" then

                        client:send("JOIN #drlchat");

                        print("JOIN #drlchat");

                end

        end

 

    -- TEST KILL ZONE

    -----------------------------------------------------

    -- Check for victory conditions