ACS Prefab Database

Post by **TheDarkArchon** » Thu Jan 26, 2006 1:44 pm

Ack, should there be a rule that the scripts be usable in Doom at the very least Freedoomer's can see the scripts. (N.B I have DCE, not FreeDoom)

justin024 · Post by **justin024** » Thu Jan 26, 2006 3:12 pm

Here is the 4 simultaneous HP bars demo, based on apothems. I added an auto terminate feature too.

Spoiler:

Code: Select all

/*This script is a healthbar script for bosses and minibosses
To use this script replace mtid with the TID of the monster
you want the bar to monitor and replace the value of mmaxhp 
with the max health of the monster you're monitoring.
!! Make sure to replace ENTER with (void) if you dont want 
the script to activate with the player entering the level. !!
The lumps fillcrit, filldang, fillnorm, and fillcaut are all
the filler pics for the bar. Please put these inside the wad 
outside of any tags. The bar itself, HPMONBAR, is the actual 
bar pic. also place that inside the wad, but outside of any 
tags.
*/

#include "zcommon.acs"

//int monhp;
int tids[2][4] = {{666,667,668,669},{4000,4000,4000,4000}};


script 1 open{
	acs_executealways(4,0);
	acs_executealways(5,0);
	acs_executealways(6,0);
	acs_executealways(7,0);
}

Script 4 (void){ //meter 1
	int hdisp; int bcounter=0;
	int monhp = getactorproperty(tids[0][0], APROP_Health);
	hdisp = (monhp * 100 / tids[1][0]);
	if (hdisp <= 0) hdisp = 0;
	setfont("NORMAL");
	sethudsize(800,600,0);
	hudmessagebold(i:hdisp; 1, 0, CR_WHITE, 120.1, 10.1, 1);
	setfont ("MONHPBAR");
	hudmessagebold(s:"a"; 1, 101, CR_GREEN, 0.1, 1.1, 1);
	for (int acounter=0;acounter<=hdisp;acounter++){
		if (hdisp <= 0) break;
		bcounter += 2.0;
		setfont ("FILLNORM"); //By default, the bar shows as a blue bar.
		if (hdisp < 75) setfont ("FILLCAUT"); //If the hp is at a caution level (75%) Display a yellow bar.
		if (hdisp < 50) setfont ("FILLDANG"); //If the hp is at a danger level (50%) Display an orange bar. 
		if (hdisp < 25) setfont ("FILLCRIT"); // If the hp is at a critical level (25%) Display a red bar.
		hudmessagebold(s:"a"; 1, acounter, CR_GREEN, 23.1 + bcounter, 7.1, 1);
	}
	//bcounter = 0; acounter = 0;
	delay(1); 
	if (thingcount(t_none, tids[0][0])!=0) restart;
}
Script 5 (void){ //meter 2
	int hdisp; int bcounter=0;
	int monhp = getactorproperty(tids[0][1], APROP_Health);
	hdisp = (monhp * 100 / tids[1][1]);
	if (hdisp <= 0) hdisp = 0;
	setfont("NORMAL");
	sethudsize(800,600,0);
	hudmessagebold(i:hdisp; 1, 0, CR_WHITE, 120.1, 24.0+10.1, 1);
	setfont ("MONHPBAR");
	hudmessagebold(s:"a"; 1, 301, CR_GREEN, 0.1, 24.0+1.1, 1);
	for (int acounter=200;(acounter-200)<=hdisp;acounter++){
		if (hdisp <= 0) break;
		bcounter += 2.0;
		setfont ("FILLNORM"); //By default, the bar shows as a blue bar.
		if (hdisp < 75) setfont ("FILLCAUT"); //If the hp is at a caution level (75%) Display a yellow bar.
		if (hdisp < 50) setfont ("FILLDANG"); //If the hp is at a danger level (50%) Display an orange bar. 
		if (hdisp < 25) setfont ("FILLCRIT"); // If the hp is at a critical level (25%) Display a red bar.
		hudmessagebold(s:"a"; 1, acounter, CR_GREEN, 23.1 + bcounter, 24.0+7.1, 1);
	}
	//bcounter = 0; acounter = 0;
	delay(1); 
	if (thingcount(t_none, tids[0][1])!=0) restart;
}

Script 6 (void){ //meter 3
	int hdisp; int bcounter=0;
	int monhp = getactorproperty(tids[0][2], APROP_Health);
	hdisp = (monhp * 100 / tids[1][2]);
	if (hdisp <= 0) hdisp = 0;
	setfont("NORMAL");
	sethudsize(800,600,0);
	hudmessagebold(i:hdisp; 1, 0, CR_WHITE, 120.1, 48.0+10.1, 1);
	setfont ("MONHPBAR");
	hudmessagebold(s:"a"; 1, 501, CR_GREEN, 0.1, 48.0+1.1, 1);
	for (int acounter=400;(acounter-400)<=hdisp;acounter++){
		if (hdisp <= 0) break;
		bcounter += 2.0;
		setfont ("FILLNORM"); //By default, the bar shows as a blue bar.
		if (hdisp < 75) setfont ("FILLCAUT"); //If the hp is at a caution level (75%) Display a yellow bar.
		if (hdisp < 50) setfont ("FILLDANG"); //If the hp is at a danger level (50%) Display an orange bar. 
		if (hdisp < 25) setfont ("FILLCRIT"); // If the hp is at a critical level (25%) Display a red bar.
		hudmessagebold(s:"a"; 1, acounter, CR_GREEN, 23.1 + bcounter, 48.0+7.1, 1);
	}
	//bcounter = 0; acounter = 0;
	delay(1); 
	if (thingcount(t_none, tids[0][2])!=0) restart;
}

Script 7 (void){ //meter 4
	int hdisp; int bcounter=0;
	int monhp = getactorproperty(tids[0][3], APROP_Health);
	hdisp = (monhp * 100 / tids[1][3]);
	if (hdisp <= 0) hdisp = 0;
	setfont("NORMAL");
	sethudsize(800,600,0);
	hudmessagebold(i:hdisp; 1, 0, CR_WHITE, 120.1, 72.0+10.1, 1);
	setfont ("MONHPBAR");
	hudmessagebold(s:"a"; 1, 701, CR_GREEN, 0.1, 72.0+1.1, 1);
	for (int acounter=600;(acounter-600)<=hdisp;acounter++){
		if (hdisp <= 0) break;
		bcounter += 2.0;
		setfont ("FILLNORM"); //By default, the bar shows as a blue bar.
		if (hdisp < 75) setfont ("FILLCAUT"); //If the hp is at a caution level (75%) Display a yellow bar.
		if (hdisp < 50) setfont ("FILLDANG"); //If the hp is at a danger level (50%) Display an orange bar. 
		if (hdisp < 25) setfont ("FILLCRIT"); // If the hp is at a critical level (25%) Display a red bar.
		hudmessagebold(s:"a"; 1, acounter, CR_GREEN, 23.1 + bcounter, 72.0+7.1, 1);
	}
	//bcounter = 0; acounter = 0;
	delay(1); 
	if (thingcount(t_none, tids[0][3])!=0) restart;
}

Also, the last monster script

Spoiler:

Code: Select all

#library "ending"
#include "zcommon.acs"

//Ettin***********************************************************************
#define ettin_tics_x 15
int ettin_tics[15] = {5,5,5,5,5,5,5,5,5,5,5,5,	//Walk
		6,6,6};			//Attack
str ettin[8][15]={{"ETTNA1","ETTNB1","ETTNC1","ETTND1","ETTNA1","ETTNB1","ETTNC1","ETTND1","ETTNA1","ETTNB1","ETTNC1","ETTND1","ETTNE1","ETTNF1","ETTNG1"},
	         {"ETTNA2","ETTNB2","ETTNC2","ETTND2","ETTNA2","ETTNB2","ETTNC2","ETTND2","ETTNA2","ETTNB2","ETTNC2","ETTND2","ETTNE2","ETTNF2","ETTNG2"},
                       {"ETTNA3","ETTNB3","ETTNC3","ETTND3","ETTNA3","ETTNB3","ETTNC3","ETTND3","ETTNA3","ETTNB3","ETTNC3","ETTND3","ETTNE3","ETTNF3","ETTNG3"},
	         {"ETTNA4","ETTNB4","ETTNC4","ETTND4","ETTNA4","ETTNB4","ETTNC4","ETTND4","ETTNA4","ETTNB4","ETTNC4","ETTND4","ETTNE4","ETTNF4","ETTNG4"},
	         {"ETTNA5","ETTNB5","ETTNC5","ETTND5","ETTNA5","ETTNB5","ETTNC5","ETTND5","ETTNA5","ETTNB5","ETTNC5","ETTND5","ETTNE5","ETTNF5","ETTNG5"},
	         {"ETTNA6","ETTNB6","ETTNC6","ETTND6","ETTNA6","ETTNB6","ETTNC6","ETTND6","ETTNA6","ETTNB6","ETTNC6","ETTND6","ETTNE6","ETTNF6","ETTNG6"},
	         {"ETTNA7","ETTNB7","ETTNC7","ETTND7","ETTNA7","ETTNB7","ETTNC7","ETTND7","ETTNA7","ETTNB7","ETTNC7","ETTND7","ETTNE7","ETTNF7","ETTNG7"},
	         {"ETTNA8","ETTNB8","ETTNC8","ETTND8","ETTNA8","ETTNB8","ETTNC8","ETTND8","ETTNA8","ETTNB8","ETTNC8","ETTND8","ETTNE8","ETTNF8","ETTNG8"}};

#define ettin_die_x 9
str ettin_die[9] = {"ETTNI0","ETTNj0","ETTNk0","ETTNl0","ETTNm0","ETTNn0","ETTNo0","ETTNp0","ETTNq0"};
int ettin_die_tics[9] = {4,4,4,4,4,4,4,4,70};

bool keepLooping=true;

script 502 (void){ //Disable in order to exit loop

	if (keepLooping) keepLooping=false;
}

int dim=0; //The Y-Dimension of the sprite array

script 503 (int way){
	switch (way)
	{
		case 0:
			if (++dim==8) dim=0;
			break;
		case 1:
			if (--dim==-1) dim=7;
			break;
	}
}

script 504 (int ending){
	switch (ending)
	{
		case 0: //Doom 2 ending
			break;
		case 1: //Hexen ending
			do{
				for(int i=0;i<ettin_tics_x&&keepLooping;i++){
					if (i==0&&random(1,2)%2==0) ambientsound("EttinSight", 120);
					if (i==13) ambientsound("EttinAttack", 120);
					draw(ettin[dim][i], "Ettin", ettin_tics[i]);
					delay(ettin_tics[i]);
				}
			}while (keepLooping); keepLooping=true;

			for(i=0;i<ettin_die_x;i++){
				if (i==1) ambientsound("EttinDeath", 120);
				draw(ettin_die[i], "Ettin", ettin_die_tics[i]);
				delay(ettin_die_tics[i]);
			}


			break;
	}
	restart;
}

Tormentor667 · Post by **Tormentor667** » Fri Jan 27, 2006 6:02 am

@Justin - Thx for that, but what I really need is ONE bar for FOUR (or even more (!) make this flexible) Monsters, one centered bar at the top middle, that counts the hp of all the tagged monsters as a whole.

justin024 · Post by **justin024** » Fri Jan 27, 2006 11:00 am

Flexible HP bar for multiple monsters: Done and Done. Simply change the value of x_index to that of the size of the tids[] array, define the monster TIDs in the tids[] array, and set totHP to the combined HP of the monsters. (Sorry, no test wad yet, I'm including this as part of the next release of my ACS Demos project)

Spoiler:

Tormentor667 · Post by **Tormentor667** » Fri Jan 27, 2006 11:04 am

Okay, thx for that, but now I need demo grpahics for that script, where do I get them? These FILLCRIT, FILLCAUT, etc. stuff?

justin024 · Post by **justin024** » Fri Jan 27, 2006 11:07 am

Either in the "4 HP bars demo" I made earlier, or Apotherm's HP bar demo.

Tormentor667 · Post by **Tormentor667** » Fri Jan 27, 2006 11:23 am

Okay, works fine

Now I have another few questions:

1st: The percentage counter (100, 98, 37, 22 and so on) fades into each other, when it changes, that makes it hard to read, how can I change that?
2nd: This is how the bar looks for me:

These little HPGraphics don't fit into the border, looks like the script is messing up something, how can I correct this? Other than that: Great script, works amazingly good

justin024 · Post by **justin024** » Fri Jan 27, 2006 6:33 pm

Tormentor667 wrote:Okay, works fine Now I have another few questions:

1st: The percentage counter (100, 98, 37, 22 and so on) fades into each other, when it changes, that makes it hard to read, how can I change that?

Change this line:

Code: Select all

hudmessagebold(i:hdisp; 1, 0, CR_WHITE, 420.1, 10.1, 1);

To this:

Code: Select all

hudmessagebold(i:hdisp; 0, 0, CR_WHITE, 420.1, 10.1, 1.0);

Tormentor667 wrote:2nd: This is how the bar looks for me:

These little HPGraphics don't fit into the border, looks like the script is messing up something, how can I correct this? Other than that: Great script, works amazingly good

I'm not sure, it could be the resolution you're using or the way the WAD is set up. The only problem I encountered was that the bar is segmented at certain resolutions.

Post by **TheDarkArchon** » Fri Jan 27, 2006 6:35 pm

I kinda like that effect.

Post by **Enjay** » Fri Jan 27, 2006 6:45 pm

The problem with the segmented bar was mentioned waaaay back here

http://forum.zdoom.org/potato.php?t=802 ... c&start=60

justin024 · Post by **justin024** » Fri Jan 27, 2006 7:03 pm

The segmented bar doesn't bother me enough to do something about it

Tormentor667 · Post by **Tormentor667** » Sat Jan 28, 2006 5:55 am

justin024 wrote: I'm not sure, it could be the resolution you're using or the way the WAD is set up. The only problem I encountered was that the bar is segmented at certain resolutions.

Tried different resolutions and it is always the same. The little HPparts are not aligned correctly into the box

Post by **Apothem** » Sat Jan 28, 2006 6:07 am

There's a way to completely fix the problem with the resolutions, and yes, it's possible to detect the resolution and everything else and have it be self fixing within the script. I'm waiting for someone to figure it out, because I'm tired of doing it all for you guys.

As a minor side note, I've already got the solution coded out, based off of Enjay's script. As Enjay's script saved me a buncha extra typing

jallamann · Post by **jallamann** » Sat Jan 28, 2006 1:39 pm

Fixing the graphics instead of the script?

Tormentor667 · Post by **Tormentor667** » Sat Jan 28, 2006 2:05 pm

jallamann wrote:Fixing the graphics instead of the script?

How? I really need this working for my arena!

The hpbar is still above the "placeholder" and this really looks totally odd

whether I use 800x600 or 1024x786 or anything else