Just a quick question about gunspec.txt file.

Author

Message

AndrewT

17

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 25th Jun 2009 05:42 Edited at: 25th Jun 2009 05:43

Link

I'm working on a FPS engine with DBP, and because I have access to several FPSC weapon model packs I bought awhile back I thought I'd loosely base the weapons system off that of FPSC--that way all of the FPSC weapons are totally compatible with my engine. So I took a look at the gunspec.txt file for each weapon and most of it is pretty straightforward. The only fields I'm unsure about are:

-brass
-damagetype
-iterate
-fireloop

Could anybody explain their significance?

Also I was hoping I could find a field for the gun's rate of fire--are any of the above used for that? Or did I just miss it?

Thanks.

i like orange

Back to top

Profile PM

Mr Bigglesworth

16

Years of Service

User Offline

Joined: 4th Mar 2008

Location:

Posted: 25th Jun 2009 06:35 Edited at: 25th Jun 2009 06:40

Link

Ieterate is how many bulletholes the wep makes
brass is the type of bullet shell it ejects, the rest I am not sure about.

I am doing the same, and what I am doing is doing a subroutine (gosub) for all my weps and just used the frame rate values from it. Here is a example (I am not all the way done yet so I have't added brass or actual firing.

+ Code Snippet

if mouseclick() = 1

play sound 1
play object 3, 130, 189
set object speed 3, 38

endif

if mouseclick() = 1

play sound 3
play object 4, 111, 135
set object speed 4, 38

endif

that is to make them play a sound and do a fire animation it is in my main loop.

+ Code Snippet

gosub make_weapons


Make_Weapons:

load object "C:dr6 Engine v1datamodelsweaponsold_crossbowHUD.x", 3
load object "C:dr6 Engine v1datamodelsweaponscommon_swordHUD.x", 4
 rotate object 3, 0, 180, 0
  position object 3, 0.5, -1, 2
 scale object 3, 15, 15, 15
rotate object 4, 0, 180, 0
  position object 4, 0.5, -1, 2
 scale object 4, 15, 15, 15
load image "C:dr6 Engine v1datamodelsweaponsold_crossbowgun_D2.dds", 1
load image "C:dr6 Engine v1datamodelsweaponscommon_swordgun_D2.dds", 2
 texture object 3, 0, 1
 texture object 4, 0, 2
load sound "C:dr6 Engine v1datamodelsweaponsold_crossbowfire.wav", 1
load sound "C:dr6 Engine v1datamodelsweaponsold_crossbowreload.wav", 2
load sound "C:dr6 Engine v1datamodelsweaponscommon_swordfire.wav", 3
load sound "C:dr6 Engine v1datamodelsweaponscommon_swordselect.wav", 4
 lock object on 3
  disable object zdepth 3
 loop object 3, 40, 80
 lock object on 4
  disable object zdepth 4
 loop object 4, 41, 83
 hide object 4

return

that is to load them and their data. It is far from complete, as they don't shoot or do dmage or even make a bullet hole, but they play the animation and sound and it sets them up. I like it my way better so I don't have to have things outside my code but my way also gives less flexebility.

Back to top

Profile PM Email

AndrewT

17

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 25th Jun 2009 06:41 Edited at: 25th Jun 2009 06:45

Link

Yep, I've actually already got almost everything else done. All I need is muzzle flash and bullet holes, which should both be pretty easy. I've got all the animation, sounds, reloading, and switching weapons worked out, as well as reading the weapon info from it's gunspec file. I use this to create a weapon from a folder containing the required media and gunspec file:

Function NewWeapon(Name$)
	Array Insert At Bottom Weapons()
	Count = Array Count(Weapons())
	ID = Find Free Object()
	Weapons(Count).ObjID = ID
	Load Object "Guns/" + Name$ + "/HUD.x", ID
	Hide Object ID
	Set Object Light ID, 0
	
	OpenFile("Guns/" + Name$ + "/gunspec.txt")
	
	Weapons(Count).Pos.X = PropFloat("horiz")
	Weapons(Count).Pos.Y = PropFloat("vert")
	Weapons(Count).Pos.Z = PropFloat("forward")
	Position Object Weapons(Count).ObjID, PropFloat("horiz"), PropFloat("vert"), PropFloat("forward")
	YRotate Object Weapons(Count).ObjID, 180.0
	Lock Object On ID
	
	Weapons(Count).SelectStart = PropInt("SelectStart")
	Weapons(Count).SelectEnd = PropInt("SelectEnd")
	Weapons(Count).IdleStart = PropInt("IdleStart")
	Weapons(Count).IdleEnd = PropInt("IdleEnd")
	Weapons(Count).MoveStart = PropInt("MoveStart")
	Weapons(Count).MoveEnd = PropInt("MoveEnd")
	Weapons(Count).FireStart = PropInt("FireStart")
	Weapons(Count).FireEnd = PropInt("FireEnd")
	Weapons(Count).ReloadStart = PropInt("ReloadStart")
	Weapons(Count).ReloadEnd = PropInt("ReloadEnd")
	Weapons(Count).CockStart = PropInt("CockStart")
	Weapons(Count).CockEnd = PropInt("CockEnd")
	Weapons(Count).PutAwayStart = PropInt("PutAwayStart")
	Weapons(Count).PutAwayEnd = PropInt("PutAwayEnd")
	
	Weapons(Count).ClipSize = PropInt("reloadqty")
	Weapons(Count).InClip = Weapons(Count).ClipSize
	Weapons(Count).Ammo = 3 * Weapons(Count).InClip
	
	Weapons(Count).Fire = Find Free Sound()
	Weapons(Count).DryFire = Find Free Sound()
	Weapons(Count).Reload = Find Free Sound()
	Weapons(Count).Cock= Find Free Sound()
	Weapons(Count).PutAway = Find Free Sound()
	Weapons(Count).Retrieve = Find Free Sound()
	
	Load Sound "guns/" + Name$ + "/fire.wav", Weapons(Count).Fire
	Load Sound "guns/" + Name$ + "/dryfire.wav", Weapons(Count).DryFire
	Load Sound "guns/" + Name$ + "/reload.wav", Weapons(Count).Reload
	Load Sound "guns/" + Name$ + "/cock.wav", Weapons(Count).Cock
	Load Sound "guns/" + Name$ + "/putaway.wav", Weapons(Count).PutAway
	Load Sound "guns/" + Name$ + "/retrieve.wav", Weapons(Count).Retrieve
	
EndFunction Count

+ Code Snippet

Function NewWeapon(Name$)
	Array Insert At Bottom Weapons()
	Count = Array Count(Weapons())
	ID = Find Free Object()
	Weapons(Count).ObjID = ID
	Load Object "Guns/" + Name$ + "/HUD.x", ID
	Hide Object ID
	Set Object Light ID, 0
	
	OpenFile("Guns/" + Name$ + "/gunspec.txt")
	
	Weapons(Count).Pos.X = PropFloat("horiz")
	Weapons(Count).Pos.Y = PropFloat("vert")
	Weapons(Count).Pos.Z = PropFloat("forward")
	Position Object Weapons(Count).ObjID, PropFloat("horiz"), PropFloat("vert"), PropFloat("forward")
	YRotate Object Weapons(Count).ObjID, 180.0
	Lock Object On ID
	
	Weapons(Count).SelectStart = PropInt("SelectStart")
	Weapons(Count).SelectEnd = PropInt("SelectEnd")
	Weapons(Count).IdleStart = PropInt("IdleStart")
	Weapons(Count).IdleEnd = PropInt("IdleEnd")
	Weapons(Count).MoveStart = PropInt("MoveStart")
	Weapons(Count).MoveEnd = PropInt("MoveEnd")
	Weapons(Count).FireStart = PropInt("FireStart")
	Weapons(Count).FireEnd = PropInt("FireEnd")
	Weapons(Count).ReloadStart = PropInt("ReloadStart")
	Weapons(Count).ReloadEnd = PropInt("ReloadEnd")
	Weapons(Count).CockStart = PropInt("CockStart")
	Weapons(Count).CockEnd = PropInt("CockEnd")
	Weapons(Count).PutAwayStart = PropInt("PutAwayStart")
	Weapons(Count).PutAwayEnd = PropInt("PutAwayEnd")
	
	Weapons(Count).ClipSize = PropInt("reloadqty")
	Weapons(Count).InClip = Weapons(Count).ClipSize
	Weapons(Count).Ammo = 3 * Weapons(Count).InClip
	
	Weapons(Count).Fire = Find Free Sound()
	Weapons(Count).DryFire = Find Free Sound()
	Weapons(Count).Reload = Find Free Sound()
	Weapons(Count).Cock= Find Free Sound()
	Weapons(Count).PutAway = Find Free Sound()
	Weapons(Count).Retrieve = Find Free Sound()
	
	Load Sound "guns/" + Name$ + "/fire.wav", Weapons(Count).Fire
	Load Sound "guns/" + Name$ + "/dryfire.wav", Weapons(Count).DryFire
	Load Sound "guns/" + Name$ + "/reload.wav", Weapons(Count).Reload
	Load Sound "guns/" + Name$ + "/cock.wav", Weapons(Count).Cock
	Load Sound "guns/" + Name$ + "/putaway.wav", Weapons(Count).PutAway
	Load Sound "guns/" + Name$ + "/retrieve.wav", Weapons(Count).Retrieve
	
EndFunction Count

And this to update the weapons:

Function UpdateWeapons(Elapsed as Float)
	Set Object Speed Weapons(ActiveWeapon).ObjID, Elapsed * 0.4
	
	If Mouse.MMZ
		Weapons(ActiveWeapon).IsActive = 0
		AW = ActiveWeapon
		While Done = 0
			If Mouse.MMZ > 0
				Inc AW
			Else
				Dec AW
			EndIf
			If AW > Array Count(Weapons())
				AW = 0
			EndIf
			If AW < 0
				AW = Array Count(Weapons())
			EndIf
			If Weapons(AW).InInv
				Weapons(AW).IsActive = 1
				Done = 1
				NextWeapon = AW
				Weapons(ActiveWeapon).State = 7
				Play Sound Weapons(ActiveWeapon).PutAway
			Endif
		EndWhile
	EndIf
	
	If Mouse.Click = 1 and Mouse.LastClick <> 1
		If Weapons(ActiveWeapon).InClip > 0
			//If player is walking or idle then he can shoot
			If Weapons(ActiveWeapon).State < 3
				//Set state to firing.
				Weapons(ActiveWeapon).State = 3
				//
				Play Sound Weapons(ActiveWeapon).Fire
				//Decrease ammo in clip.
				Dec Weapons(ActiveWeapon).InClip
				//If ammo has run out in clip
				If Weapons(ActiveWeapon).InClip = 0
					//Player needs to reload. (only if ammo left)
					Weapons(ActiveWeapon).NeedsToReload = 1
					//If there is enough ammo, fill up the clip completely
					If Weapons(ActiveWeapon).Ammo >= Weapons(ActiveWeapon).ClipSize
						Weapons(ActiveWeapon).InClip = Weapons(ActiveWeapon).ClipSize
						Dec Weapons(ActiveWeapon).Ammo, Weapons(ActiveWeapon).ClipSize
					Else
						//There isn't enough ammo.
						Weapons(ActiveWeapon).InClip = Weapons(ActiveWeapon).Ammo
						Weapons(ActiveWeapon).Ammo = 0
						Weapons(ActiveWeapon).NeedsToReload = 0
					EndIf
				EndIf
			EndIf
		Else
			Play Sound Weapons(ActiveWeapon).DryFire
		EndIf
	EndIf
	
	Select Weapons(ActiveWeapon).State
		Case 1:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).IdleStart, Weapons(ActiveWeapon).IdleEnd
		EndCase
		Case 2:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).MoveStart, Weapons(ActiveWeapon).MoveEnd
		EndCase
		Case 3:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).FireStart, Weapons(ActiveWeapon).FireEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).FireEnd - 1
				If Weapons(ActiveWeapon).NeedsToReload
					Weapons(ActiveWeapon).NeedsToReload = 0
					Weapons(ActiveWeapon).State = 4
					Play Sound Weapons(ActiveWeapon).Reload
				Else
					Weapons(ActiveWeapon).State = 1
				EndIf
			EndIf
		EndCase
		Case 4:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).ReloadStart, Weapons(ActiveWeapon).ReloadEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).ReloadEnd - 1
				Weapons(ActiveWeapon).State = 5
				Play Sound Weapons(ActiveWeapon).Cock
			EndIf
		EndCase
		Case 5:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).CockStart, Weapons(ActiveWeapon).CockEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).CockEnd - 1
				Weapons(ActiveWeapon).State = 1
			EndIf
		EndCase
		Case 6:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).SelectStart, Weapons(ActiveWeapon).SelectEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).SelectEnd - 1
				Weapons(ActiveWeapon).State = 1
			EndIf
		EndCase
		Case 7:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).PutAwayStart, Weapons(ActiveWeapon).PutAwayEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).PutAwayEnd - 1
				Weapons(ActiveWeapon).State = 1
				SetActiveWeapon(NextWeapon)
			EndIf
		EndCase
	EndSelect
EndFunction

+ Code Snippet

Function UpdateWeapons(Elapsed as Float)
	Set Object Speed Weapons(ActiveWeapon).ObjID, Elapsed * 0.4
	
	If Mouse.MMZ
		Weapons(ActiveWeapon).IsActive = 0
		AW = ActiveWeapon
		While Done = 0
			If Mouse.MMZ > 0
				Inc AW
			Else
				Dec AW
			EndIf
			If AW > Array Count(Weapons())
				AW = 0
			EndIf
			If AW < 0
				AW = Array Count(Weapons())
			EndIf
			If Weapons(AW).InInv
				Weapons(AW).IsActive = 1
				Done = 1
				NextWeapon = AW
				Weapons(ActiveWeapon).State = 7
				Play Sound Weapons(ActiveWeapon).PutAway
			Endif
		EndWhile
	EndIf
	
	If Mouse.Click = 1 and Mouse.LastClick <> 1
		If Weapons(ActiveWeapon).InClip > 0
			//If player is walking or idle then he can shoot
			If Weapons(ActiveWeapon).State < 3
				//Set state to firing.
				Weapons(ActiveWeapon).State = 3
				//
				Play Sound Weapons(ActiveWeapon).Fire
				//Decrease ammo in clip.
				Dec Weapons(ActiveWeapon).InClip
				//If ammo has run out in clip
				If Weapons(ActiveWeapon).InClip = 0
					//Player needs to reload. (only if ammo left)
					Weapons(ActiveWeapon).NeedsToReload = 1
					//If there is enough ammo, fill up the clip completely
					If Weapons(ActiveWeapon).Ammo >= Weapons(ActiveWeapon).ClipSize
						Weapons(ActiveWeapon).InClip = Weapons(ActiveWeapon).ClipSize
						Dec Weapons(ActiveWeapon).Ammo, Weapons(ActiveWeapon).ClipSize
					Else
						//There isn't enough ammo.
						Weapons(ActiveWeapon).InClip = Weapons(ActiveWeapon).Ammo
						Weapons(ActiveWeapon).Ammo = 0
						Weapons(ActiveWeapon).NeedsToReload = 0
					EndIf
				EndIf
			EndIf
		Else
			Play Sound Weapons(ActiveWeapon).DryFire
		EndIf
	EndIf
	
	Select Weapons(ActiveWeapon).State
		Case 1:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).IdleStart, Weapons(ActiveWeapon).IdleEnd
		EndCase
		Case 2:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).MoveStart, Weapons(ActiveWeapon).MoveEnd
		EndCase
		Case 3:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).FireStart, Weapons(ActiveWeapon).FireEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).FireEnd - 1
				If Weapons(ActiveWeapon).NeedsToReload
					Weapons(ActiveWeapon).NeedsToReload = 0
					Weapons(ActiveWeapon).State = 4
					Play Sound Weapons(ActiveWeapon).Reload
				Else
					Weapons(ActiveWeapon).State = 1
				EndIf
			EndIf
		EndCase
		Case 4:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).ReloadStart, Weapons(ActiveWeapon).ReloadEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).ReloadEnd - 1
				Weapons(ActiveWeapon).State = 5
				Play Sound Weapons(ActiveWeapon).Cock
			EndIf
		EndCase
		Case 5:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).CockStart, Weapons(ActiveWeapon).CockEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).CockEnd - 1
				Weapons(ActiveWeapon).State = 1
			EndIf
		EndCase
		Case 6:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).SelectStart, Weapons(ActiveWeapon).SelectEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).SelectEnd - 1
				Weapons(ActiveWeapon).State = 1
			EndIf
		EndCase
		Case 7:
			Loop Object Weapons(ActiveWeapon).ObjID, Weapons(ActiveWeapon).PutAwayStart, Weapons(ActiveWeapon).PutAwayEnd
			If Object Frame(Weapons(ActiveWeapon).ObjID) > Weapons(ActiveWeapon).PutAwayEnd - 1
				Weapons(ActiveWeapon).State = 1
				SetActiveWeapon(NextWeapon)
			EndIf
		EndCase
	EndSelect
EndFunction

It's very cool because I can take any FPSC weapon and plug it right in with very little editing to the gunspec file, or I can model my own and write a gunspec file for it and plug that in. I can create multiple weapons and switch between them smoothly with my mouse button, utilizing the default animations and sounds.

However that doesn't really answer my initial question.

What are the fields I mentioned in my first post used for?

i like orange

Back to top

Profile PM

Mr Bigglesworth

16

Years of Service

User Offline

Joined: 4th Mar 2008

Location:

Posted: 25th Jun 2009 06:45

Link

Ietrate is how many bulletholes the weapon makes
brass is the type of bullet shell it ejects, the rest I am not sure about,
I think fireloop might be how fast the gun fires, but I'm not sure.

Back to top

Profile PM Email

AndrewT

17

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 25th Jun 2009 06:47

Link

Thanks.

i like orange

Back to top

Profile PM

Sorry your browser is not supported!

FPSC Classic Product Chat / Just a quick question about gunspec.txt file.