[Project] "Knee-Deep in ZDoom"

[Vader]

This cool intermission system should be standard for all upcoming projects

[Risen]

I hope those scanlines move erraticly. It'll really ruin the effect if they're static with the occasional green fade.

They're not scan lines, it's interlacing, which is static. However, as I said, that part of it is far from done.

If that was done with only ACS, i say,

"MAKE IT OPEN-SOURCE SO WE CAN SEE HOW YOU DID IT OR ELSE I'LL THINK IT WAS MAGIC AND I'LL BECOME EVEN MORE INSANE THAN I AM NOW!"

Yes, all ACS. The code will be public after KDIZD's release. Maybe I'll even document it if there's interest.

Um, won't that require scripting every single pickup and enemy in all the maps to make it work?

No, as Chris pointed out. Randy added this function at my request, specifically for this project.
However, it will require a small group of scripts in each map that run in the background, and that a script be executed on map exit. I'll be providing these a bit later once I've tested them more.

Heh. I never would have dreamed GetLevelInfo did all that. Did it?

*/me goes to wiki to check it out*

Only the first screenshot. The second shot is a result of collecting those into a global array, and the third shot is all stuff you can script without it (less the last two stats, which are actually just calculations). I'm not sure if it made it into the wiki yet, but if I have some time I'll make sure it's right.

and the code i saw hardly did anything! i can only imagine what it looks like now...

1400 lines. It will grow as I fix things, clean things, and add some remaining features.

This cool intermission system should be standard for all upcoming projects :D

Fine with me! :)

[Tormentor667]

@Risen - Great job, this intermission job rocks. This is sometzhing, which has never been done before and make our project absolutely unique!!!

@wildweasel - Can you point outthe link once more?

[ellmo]

This cool intermission system should be standard for all upcoming projects

Fine with me!

Should get yourself a patent on this... I mean you really should. Before people start using this kind of intermission forgetting who started it.

[Risen]

Tormentor: Perhaps now you can appreciate why it has taken me so long, and why I will definitely need more time!

Should get yourself a patent on this... I mean you really should. Before people start using this kind of intermission forgetting who started it.

I would be quite honored enough just to see it used in other places.
If anyone copies the code I release, though, I would expect to be credited for it.

[Tormentor667]

BTW, don'T forget, tomorrow, WEEK 2 is over...

[Da_maniaC]

BTW, don'T forget, tomorrow, WEEK 2 is over...

I know its off topic, but Tormentor , please check your PMs.

[TheDarkArchon]

The 3rd Intermission screenie reminds me of "TimeSplitters"

[Risen]

I'm not familiar with Timesplitters.

BTW, don'T forget, tomorrow, WEEK 2 is over...

Yes, I need to discuss that with you.

As you can see, the intermission is coming along well, but it will not be done by Friday. I am signed up for M6 on week three.

I can take M6 on week three and set aside the intermission map. Once week three is over, I will pick up the intermission again and finish it while the other maps are beta-tested. How does this sound?

[Tormentor667]

@Risen - I am ok with that!

[Risen]

Okay, here is the script you need to put in your maps! Please add it before you finish your work today.

---

Code: Select all

#include "zcommon.acs"

#define i_kills 0
#define i_monsters 1
#define i_pickups 2
#define i_items 3
#define i_found 4
#define i_secrets 5
#define i_time 6
#define i_par 7

#define s_hgain 0
#define s_hlost 1
#define s_again 2
#define s_alost 3
#define s_bgain 4
#define s_blost 5
#define s_sgain 6
#define s_slost 7
#define s_rgain 8
#define s_rlost 9
#define s_cgain 10
#define s_clost 11
#define s_deaths 12

global int 1:g_ms[];
global int 2:g_ps[];
global int 3:secretmap;

int pasthealth[8];
int pastarmor[8];
int pastbullets[8];
int pastshells[8];
int pastrockets[8];
int pastcells[8];
int playerstat[8][4];
int mapstat[8][4];

script 800 ENTER {
	pasthealth[playernumber()] = CheckInventory("Health");	
	pastarmor[playernumber()] = CheckInventory("Armor");	
	pastbullets[playernumber()] = CheckInventory("Clip");	
	pastshells[playernumber()] = CheckInventory("Shell");	
	pastrockets[playernumber()] = CheckInventory("RocketAmmo");	
	pastcells[playernumber()] = CheckInventory("Cell");	
	delay(1);
	ACS_executealways(801, 0, 0, 0, 0);
}

script 801 (void) {
	int currenthealth = CheckInventory("Health");
	int currentarmor = CheckInventory("Armor");
	int currentbullets = CheckInventory("Clip");
	int currentshells = CheckInventory("Shell");
	int currentrockets = CheckInventory("RocketAmmo");
	int currentcells = CheckInventory("Cell");

	if (pasthealth[playernumber()] > currenthealth) {
		playerstat[playernumber()][s_hlost] += pasthealth[playernumber()] - currenthealth;
	} else if (pasthealth[playernumber()] < currenthealth) {
		playerstat[playernumber()][s_hgain] += currenthealth - pasthealth[playernumber()];
	}

	if (pastarmor[playernumber()] > currentarmor) {
		playerstat[playernumber()][s_alost] += pastarmor[playernumber()] - currentarmor;
	} else if (pastarmor[playernumber()] < currentarmor) {
		playerstat[playernumber()][s_again] += currentarmor - pastarmor[playernumber()];
	}

	if (pastbullets[playernumber()] > currentbullets) {
		playerstat[playernumber()][s_blost] += pastbullets[playernumber()] - currentbullets;
	} else if (pastbullets[playernumber()] < currentbullets) {
		playerstat[playernumber()][s_bgain] += currentbullets - pastbullets[playernumber()];
	}
	
	if (pastshells[playernumber()] > currentshells) {
		playerstat[playernumber()][s_slost] += pastshells[playernumber()] - currentshells;
	} else if (pastshells[playernumber()] < currentshells) {
		playerstat[playernumber()][s_sgain] += currentshells - pastshells[playernumber()];
	}
	
	if (pastrockets[playernumber()] > currentrockets) {
		playerstat[playernumber()][s_rlost] += pastrockets[playernumber()] - currentrockets;
	} else if (pastrockets[playernumber()] < currentrockets) {
		playerstat[playernumber()][s_rgain] += currentrockets - pastrockets[playernumber()];
	}
	
	if (pastcells[playernumber()] > currentcells) {
		playerstat[playernumber()][s_clost] += pastcells[playernumber()] - currentcells;
	} else if (pastcells[playernumber()] < currentcells) {
		playerstat[playernumber()][s_cgain] += currentcells - pastcells[playernumber()];
	}

	pasthealth[playernumber()] = CheckInventory("Health");	
	pastarmor[playernumber()] = CheckInventory("Armor");	
	pastbullets[playernumber()] = CheckInventory("Clip");	
	pastshells[playernumber()] = CheckInventory("Shell");	
	pastrockets[playernumber()] = CheckInventory("RocketAmmo");	
	pastcells[playernumber()] = CheckInventory("Cell");	
	delay(1);
	restart;	
}

// use this script to exit the map
script 803 (int secret) {
	mapstat[0] = GetLevelInfo(LEVELINFO_KILLED_MONSTERS);
	mapstat[1] = GetLevelInfo(LEVELINFO_TOTAL_MONSTERS);
	mapstat[2] = GetLevelInfo(LEVELINFO_FOUND_ITEMS);
	mapstat[3] = GetLevelInfo(LEVELINFO_TOTAL_ITEMS);
	mapstat[4] = GetLevelInfo(LEVELINFO_FOUND_SECRETS);
	mapstat[5] = GetLevelInfo(LEVELINFO_TOTAL_SECRETS);
	mapstat[6] = (Timer() - GetLevelInfo(LEVELINFO_START_TIME));
	mapstat[7] = GetLevelInfo(LEVELINFO_PAR_TIME);

	// group map stats into single global
	for (int s2=0; s2 <= 8; s2++) {
		g_ms[(GetLevelInfo(LEVELINFO_LEVELNUM)-1)*8 + s2] = mapstat[s2];
	}
	
	// group player stats into single global
	for (int p=0; p <= 8; p++) {
		for (int s=0; s <= 12; s++) {
			g_ps[(p*(9*12)) + ((GetLevelInfo(LEVELINFO_LEVELNUM)-1)*12) + s] = playerstat[p][s];
		}
	}
	
	secretmap = secret;

	Teleport_NewMap(10, 0, 0);
}

script 804 DEATH {
	playerstat[playernumber()][s_deaths]++;
}

script 805 RESPAWN {
	pasthealth[playernumber()] = CheckInventory("Health");	
	pastarmor[playernumber()] = CheckInventory("Armor");	
	pastbullets[playernumber()] = CheckInventory("Clip");	
	pastshells[playernumber()] = CheckInventory("Shell");	
	pastrockets[playernumber()] = CheckInventory("RocketAmmo");	
	pastcells[playernumber()] = CheckInventory("Cell");	
}

script 806 OPEN {
	// initialize the globals (necessary for map skipping: secret map)
	if (GetLevelInfo(LEVELINFO_LEVELNUM) == 1) {
		for (int a1=0; a1 <= 8; a1++) {
			for (int a2=0; a2 <= 8; a2++) {
				g_ms[a1*8 + a2] = 0;
			}
		}
		
		for (int p=0; p <= 8; p++) {
			for (int m=0; m <= 9; m++) {
				for (int s=0; s <= 12; s++) {
					g_ps[(p*(9*12)) + (m*12) + s] = 0;
				}
			}
		}
	}
}

How to use it:
Copy/past into your scripts lump. Compile.

You need to call script 803 to exit the map with the first argument set to 0. If you are using the secret exit, you still need to call 803, but the first argument needs to be set to 1.

The rest of the scripts run themselves when necessary.

You do not need to edit the script at all. I know that you can't call 803 directly from a map, but please don't modify the number. Create another script that you can call and have it execute 803. If you do this and I find a bug and correct it, then your map may not be affected.

[Graf Zahl]

Wouldn't it be better do do this as an ACS library? That way there'd be no duplicate code and eventual changes would only have to be done in one place.

[Risen]

Perhaps. But honestly, I don't have enough experience with that and while I do plan on learning I just haven't had the time.

[Graf Zahl]

It is really easy. Let's name your statistics file 'stats.acs'.
All you have to do is put a line

Code: Select all

#library "stats"

at the top and then put a line

Code: Select all

#import "stats.acs"

at the top of each level's ACS source. Then you must add the compiled output of the library file into the WAD between the AC_START and AC_END markers.

[Risen]

But everyone still needs the source code of stats.acs in order to compile their scripts. Wouldn't that mean if I make a change, everyone needs to recompile anyway?