ZDoom

(A quick note from the moderation staff: yes, we renamed the thread. This thread is where you post works in progress, or WIPs as they've come to be known. If you just want to make an update about your life, you might want this thread instead. Thank you for your cooperation. Good day. -mgmt)

old thread gone so



update:this is not a life blog!

IKKE

Spoiler:

---

Code: Select all

ACTOR PeekABoo : Weapon {

States {
Ready:
TNT1 A_JumpIfInventory("PowerStrength",1,DEMPSEY)
TNT1 A 0 A_TakeInventory("Hook",5)
TNT1 A 0 A_TakeInventory("LastHandUsed",1)
TNT1 AAAA 4 A_WeaponReady
Loop

Fire:
TNT1 A 0 A_JumpIfInventory("PowerStrength",1,DEMPSEYROLL)
TNT1 A 0 A_JumpIfInventory("Hook",2,Straight)
TNT1 A 3 A_TakeInventory("Jabu",2)
TNT1 A 0 A_Refire
Jab:
TNT1 A 2 A_JumpIfInventory("Jabu",2,Straight)
TNT1 A 5 A_CustomPunch(4,1,0,"HnI-Cloud",56)
TNT1 A 0 A_GiveInventory("Jabu",1)
TNT1 A 0 A_GiveInventory("LastHandUsed",1)
TNT1 A 0 A_Refire
TNT1 A 0 A_WeaponReady
TNT1 A 8
/* Will try this way later
TNT1 A 0 A_WeaponReady
TNT1 A 1
TNT1 A 0 A_WeaponReady
TNT1 A 1
TNT1 A 0 A_WeaponReady
TNT1 A 1
TNT1 A 0 A_WeaponReady
TNT1 A 1
*/
Goto Ready

Hold:
TNT1 A 0 A_JumpIfInventory("Jabu",1,Jab)
Straight:
TNT1 A 4
TNT1 A 4 A_CustomPunch(8,1,0,"HnI-Cloud",56)
TNT1 A 0 A_TakeInventory("Jabu",2)
TNT1 A 8
TNT1 A 0 //A_Refire //not including it can screw with things
Goto Ready

AltFire:
TNT1 A 3 A_JumpIfInventory("LastUsedHand",1,RightHook)
TNT1 A 0 A_Refire
LeftHook:
TNT1 A 4
TNT1 A 3 A_CustomPunch(9,1,0,"HnI-Cloud",32)
TNT1 A 0 A_GiveInventory("Hook",1)
TNT1 A 1 A_GiveInventory("LastUsedHand",1)
TNT1 A 1 A_JumpIfInventory("Hook",5,3) //End the combo after 5 hooks
TNT1 A 0 A_Refire
TNT1 A 0 A_WeaponReady
TNT1 A 12
Goto Ready
RightHook:
TNT1 A 0 A_JumpIfInventory("Hook",2,1)
Goto RightHookPunch
TNT1 A 0 A_JumpIfInventory("Jabu",1,UpperCut)
RightHookPunch:
TNT1 A 4
TNT1 A 3 A_CustomPunch(9,1,0,"HnI-Cloud",32)
TNT1 A 0 A_GiveInventory("Hook",1)
TNT1 A 1 A_TakeInventory("LastUsedHand",1)
TNT1 A 0 A_Refire
TNT1 A 0 A_WeaponReady
TNT1 A 12
Goto Ready
UpperCut:
TNT1 A 4
TNT1 A 3 A_CustomPunch(12,1,0,"HnI-Cloud",32)
TNT1 A 0 A_GiveInventory("Hook",1)
TNT1 A 1 A_TakeInventory("LastUsedHand",1)
TNT1 A 12
Goto Ready

AltHold: //BodyPunch
TNT1 A 4
TNT1 A 4 A_CustomPunch(18,1,0,"HnI-Cloud",32)
TNT1 A 14
TNT1 A 0 //A_Refire
Goto Ready

DEMPSEY:
TNT1 AAAA 2
TNT1 A 0 A_WeaponReady
TNT1 A 0 A_TakeInventory("LastHandUsed",1)
TNT1 AAAA 2
TNT1 A 0 A_WeaponReady
TNT1 A 0 A_GiveInventory("LastHandUsed",1)
Goto DEMPSEY

DEMPSEYROLL:
//not complete yet
Goto DEMPSEY

Imma killin' ma marines

There's some form of Kaisery going on here o.O

ZDLSharp? That's the only doom related thing I'm working on.

The ZDOOM Table Top Strategy Game.

It's on the verge of Beta Testing, so volunteer if you want to earn special stuff!

Demented,
just a ZDoom mod I'm working on for fun. Got sick of Demon Wars.

zap610 wrote:Imma killin' ma marines

wow!! what mod is that?????

and for me, a couple of mods including Cult and others...

zap610 wrote:Imma killin' ma marines...

I dont know why, but this screen reminds me the Fate game

EDIT: by the way, none of this games content was ripped and used in any mods yet.

because it sucks

Ben2k9 wrote:wow!! what mod is that?????

I wrote:There's some form of Kaisery going on here o.O

Fun with Hud code!

Spoiler:

---

Code: Select all

function void Draw_Weapons(int Arraysize, int ValueCheck, int Drawtype)
{
	int Xres = Getscreenwidth();
	int Yres = Getscreenheight();
	//int WeaponHudID = 1;
	int Hudoffset = 0.0;
	int DrawDistance = 64;
	int startpoint;
	int x = Yres / 2;
	int y;
	
	Sethudsize(Xres, Yres, 1);
	startpoint = (Xres / 2) - ((DrawDistance * Arraysize) / 2);
	WeaponHudID = 1;
	
	For(int d = 0; d < Arraysize; d++)
	 {
		If(d == ValueCheck)
		 {
		 	//Hudmessage(s:Arsenal[Graphics][d]; Drawtype, WeaponHudID, HudSelectionColor, Startpoint + hudoffset, x + 0.0, 1);
			y = (Startpoint + Hudoffset) - 0.0;
			ACS_Execute(Weapon_Enlarger, 0, y, x, Weaponhudid); 
		 }	
	
		else
		 {
		 	Setfont("weaponal");
		 	Hudmessage(s:Arsenal[Graphics][d]; Drawtype, WeaponHudID, -1, (Startpoint + hudoffset) << 16, (x << 16)+ 0.0, 1);
		 }	
	 	
	 	Hudoffset += DrawDistance;
	 	WeaponHudID++;
	 }
}							  

Script Weapon_Enlarger (int Xoffset, int Yoffset , int z) 
{
int diff = 480;
int Xhudres = Getscreenwidth();
int Yhudres = Getscreenheight();
int enddrawres = Xhudres - diff;
int Xcenter;
int Ycenter;
int yhudsize;
int countdown = 0;

	For (int x = Xhudres; x > (enddrawres - 1); x = x - 40)
	 { 
		yhudsize = (x * 3) / 4;
		Xcenter = ((xoffset * x) / Xhudres) << 16;
		Ycenter = ((yoffset * yhudsize) / Yhudres) << 16;
					
		Sethudsize(x, yhudsize, 1);
		Setfont("Weaponal");
		Hudmessage(s:Arsenal[Graphics][z - 1]; HUDMSG_PLAIN, z, HudSelectionColor, Xcenter + 0.4, Ycenter + 0.4, -1);
		delay(1);
	 }		
}

Just Maps in a Hat for me.

Of course, the name seems to not be that, but it'll always remain so for me

Nearly finished stage 2 now. Just two more stages after that, and the whole deal is complete.

skadoomer wrote:Fun with Hud code!

Spoiler:

---

Code: Select all

function void Draw_Weapons(int Arraysize, int ValueCheck, int Drawtype)
{
	int Xres = Getscreenwidth();
	int Yres = Getscreenheight();
	//int WeaponHudID = 1;
	int Hudoffset = 0.0;
	int DrawDistance = 64;
	int startpoint;
	int x = Yres / 2;
	int y;
	
	Sethudsize(Xres, Yres, 1);
	startpoint = (Xres / 2) - ((DrawDistance * Arraysize) / 2);
	WeaponHudID = 1;
	
	For(int d = 0; d < Arraysize; d++)
	 {
		If(d == ValueCheck)
		 {
		 	//Hudmessage(s:Arsenal[Graphics][d]; Drawtype, WeaponHudID, HudSelectionColor, Startpoint + hudoffset, x + 0.0, 1);
			y = (Startpoint + Hudoffset) - 0.0;
			ACS_Execute(Weapon_Enlarger, 0, y, x, Weaponhudid); 
		 }	
	
		else
		 {
		 	Setfont("weaponal");
		 	Hudmessage(s:Arsenal[Graphics][d]; Drawtype, WeaponHudID, -1, (Startpoint + hudoffset) << 16, (x << 16)+ 0.0, 1);
		 }	
	 	
	 	Hudoffset += DrawDistance;
	 	WeaponHudID++;
	 }
}							  

Script Weapon_Enlarger (int Xoffset, int Yoffset , int z) 
{
int diff = 480;
int Xhudres = Getscreenwidth();
int Yhudres = Getscreenheight();
int enddrawres = Xhudres - diff;
int Xcenter;
int Ycenter;
int yhudsize;
int countdown = 0;

	For (int x = Xhudres; x > (enddrawres - 1); x = x - 40)
	 { 
		yhudsize = (x * 3) / 4;
		Xcenter = ((xoffset * x) / Xhudres) << 16;
		Ycenter = ((yoffset * yhudsize) / Yhudres) << 16;
					
		Sethudsize(x, yhudsize, 1);
		Setfont("Weaponal");
		Hudmessage(s:Arsenal[Graphics][z - 1]; HUDMSG_PLAIN, z, HudSelectionColor, Xcenter + 0.4, Ycenter + 0.4, -1);
		delay(1);
	 }		
}

That looks incredibly amusing. Have a wad as a test for this? I'd like to see what it does.

Blade Nightflame wrote: Have a wad as a test for this? I'd like to rip it.

Fixed.