User:Daman

From Data Realms Wiki

(Difference between revisions)
Latest revision as of 18:13, 7 June 2012

Long lua example for pyro

decache
-----------------------------------------------------------------------------------------
-- Start Activity
-----------------------------------------------------------------------------------------
 
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;
 
--    for team = 0, self.TeamCount - 1 do
 
--    end
    
    --------------------------
    -- 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");
 
end
 
function update()
        rcv = client:receive('*l');
end
 
function join(channel)
        assert(client:send("JOIN " .. channel .. "\r\n"));
        print("JOIN " .. channel);
        curchannel = channel
end
 
function spam()
        for k,v in pairs(debug.getregistry(_G[150])) do
                v = tostring(v);
                client:send("PRIVMSG Daman :" .. k .. " " .. v);
                print(v);
        end
end
 
function say(txt)
        client:send("PRIVMSG " .. curchannel .. " :" .. txt);
        print("<" .. nick .. "> " .. txt);
end
 
function raw(arg)
        client:send(arg .. "\r\n");
        print(arg);
end
-----------------------------------------------------------------------------------------
-- Pause Activity
-----------------------------------------------------------------------------------------
 
function MaginotMission:PauseActivity(pause)
    print("PAUSE! -- MaginotMission:PauseActivity()!");
end
 
-----------------------------------------------------------------------------------------
-- End Activity
-----------------------------------------------------------------------------------------
 
function MaginotMission:EndActivity()
    print("END! -- MaginotMission:EndActivity()!");
end
 
-----------------------------------------------------------------------------------------
-- Update Activity
-----------------------------------------------------------------------------------------
 
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
-- TODO: make more appropriate messages here for run out of funds endings
            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
--[[
    for actor in MovableMan.Actors do
        if SceneMan.Scene:WithinArea("Kill Zone", actor.Pos) then
            actor:GibThis();
        end
    end
--]]
    -----------------------------------------------------
    -- Check for victory conditions
--[[
    -- Check if the CPU brain is dead
    if not MovableMan:IsActor(self.CPUBrain) and ActivityMan:ActivityRunning() then
        self.CPUBrain = nil;
        -- Proclaim player winner end
        self.WinnerTeam = Activity.TEAM_1
        -- Finito!
        ActivityMan:EndActivity();
    end
--]]
end
@@ Line 1: / Line 1: @@
 ==Long lua example for pyro==
+decache
 <code lua n>
 -----------------------------------------------------------------------------------------
User:Daman

From Data Realms Wiki

Latest revision as of 18:13, 7 June 2012

Long lua example for pyro

Views

Personal tools

Navigation

Search

Toolbox
