ZDoom

Spoiler:

---

Code: Select all

#include "zcommon.acs"

#define P_BASETID 1000
#define MAXPLAYERS 64
int Time = (60*5);

script 1 ENTER
{
    ClearInventory();
    delay(1);
    Thing_ChangeTID(0, P_BASETID+PlayerNumber());
}

script 2 RESPAWN
{
    Thing_ChangeTID(P_BASETID+PlayerNumber(), 0);
    Thing_ChangeTID(0, P_BASETID+PlayerNumber());
    Delay(1);
    Thing_ChangeTID(1, 0);
}

script 3 OPEN
{
    delay(1);
    int r = random(0, MAXPLAYERS-1);
    if (PlayerInGame(r))
    {
        SetFont("BIGFONT");
	HudMessageBold(s:"\ccSelecting the Seeker"; HUDMSG_PLAIN, 2, 0, 0.020, 0.78, 3.5);
        Delay(100);
        Thing_ChangeTID(P_BASETID + r, 1);
        SetFont("BIGFONT");
        HudMessageBold(n:r+1, s:" \cdhas been chosen!"; HUDMSG_FADEOUT, 2, 0, 1.5, 0.4, 3.5);
        TeleportOther(1,667,0);
		Delay(1);
		ACS_Execute(6,1,0,0,0);
    }
    else
        restart;    
}

script 4 DEATH
{
    if (ActivatorTID() == 1)
	{
         ACS_Terminate(9, 0);
		 delay(1);
		 SetFont("BIGFONT");
		 HudMessageBold(s:"\cr<\cf!\cr> \cfSeeker died! Choosing new one! \cr<\cf!\cr>"; HUDMSG_FADEOUT, 3, 0, 1.5, 0.4, 3.5); 
         delay(35);
		 ACS_Execute(3,0,0,0,0); //Choosing new Seeker
    }
}

script 5 (int playernum) DISCONNECT
{
    if (ActivatorTID() == 1)
	{    
	 SetFont("BIGFONT");
         HudMessageBold(s:"\ciSeeker left the game! Choosing new one!"; HUDMSG_FADEOUT, 3, 0, 1.5, 0.4, 3.5); 
         delay(35);
		 ACS_Execute(3,0,0,0,0); //Choosing new Seeker
    }
}

script 6 (void)

{
   acs_execute(7,0,0,0,0); //Gives seeker morph
   acs_execute(8,0,0,0,0); //Seeker timer
   acs_execute(11,0,0,0,0); //Player counter  
}

script 7 (void)

{
    SetActivator(1);
	GiveInventory("seekermorph",1);
}


script 8 (void)

{
   delay(35*5);
   SetFont("BIGFONT");
   HudMessageBold(s:"\cd10 \ccseconds left to hide.."; HUDMSG_PLAIN, 2, 0, 0.020, 0.78, 3.5);
   Delay(35);
   ...
   ...
   HudMessageBold(s:"\cg1 \ccseconds left to hide..."; HUDMSG_PLAIN, 2, 0, 0.020, 0.78, 3.5);
   Delay(35);
   SetHudSize(320, 200, TRUE);
   SetFont("BIGFONT");
   HudMessageBold(s:"\cgBegins!"; HUDMSG_FADEOUT, 3, 0, 160.0, 75.0, 3.5); 
   delay(1);
   acs_execute(9,0,0,0,0);
}

script 9 (void)

{
    SetFont("BIGFONT");
    HudMessageBold(s:"\ccYou have \cg",
    d:Time,
    s:" \ccseconds left";
    HUDMSG_PLAIN, 2, 0, 0.020, 0.78, 3.5);
    delay(36);
    Time--;
    if(Time == 0)
        {
            delay(35);
	    SetHudSize(320, 200, TRUE);
	    SetFont("BIGFONT");
	    HudMessageBold(s:"\cgThe Hiders have won!"; HUDMSG_FADEOUT, 3, 0, 160.0, 75.0, 3.5);
            delay(100);
            exit_normal(0);
        }
    restart;
}

script 11 (void)

{
delay(35);
if (playercount() == 1)
    {
	if (CheckActorInventory(1, "SeekerEyes"))
	 {
        ACS_Terminate(3, 0);
	ACS_Terminate(8, 0);
	ACS_Terminate(9, 0);
	delay(35);
	SetHudSize(320, 200, TRUE);
	SetFont("BIGFONT");
        HudMessageBold(s: "\cgThe Seeker has won!"; HUDMSG_FADEOUT, 3, 0, 160.0, 75.0, 3.5);
        delay(100);
        exit_normal(0);
        }
        else
	{
	ACS_Terminate(3, 0);
	ACS_Terminate(8, 0);
	ACS_Terminate(9, 0);
	delay(35);
	HudMessageBold(s:""; HUDMSG_PLAIN, 3, 0, 0, 0, 0);
	delay(1);
	SetFont("BIGFONT");
        HudMessageBold(s:"\cr<\cf!\cr> \cgSeeker died! Not enough players. \cr<\cf!\cr>"; HUDMSG_FADEOUT, 2, 0, 0.020, 0.78, 3.5);
        delay(35);
	SetHudSize(320, 200, TRUE);
	SetFont("BIGFONT");
        HudMessageBold(s:"\chThe Hiders have won!"; HUDMSG_FADEOUT, 3, 0, 160.0, 75.0, 3.5);
        delay(100);
        exit_normal(0);
		}
	}
	else	
	restart;
}

The wiki wrote:[wiki=Script_types#DISCONNECT]A DISCONNECT script must be declared with a single argument. ZDoom will pass the number of the disconnecting player into this variable. Because the player has already left the game by the time this script is called, no actions can be taken on that player. The script is executed by the world itself.

Disconnect scripts activate immediately before the player actor is destroyed, setting the leaving player as the activator instead of the world. Note that any delays or waiting will cause the script to reset the activator back to the world.[/wiki]