For god's sake, I need understanding, FPS style

Author

Message

Lorraine Evans

20

Years of Service

User Offline

Joined: 17th Aug 2004

Location:

Posted: 25th Nov 2004 10:51

Link

Please help me "upgrade" this program, and explain how it's working. I'm not very good.

rem SETUP GAME SEQUENCE

Rem Setup sync
Sync On
Sync Rate 1000
Draw to front
Backdrop on
Set camera range 1,3000
Autocam off
Hide mouse

Fog on
Fog distance 3000
Fog color RGB(1,128,1)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "rock09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Make Gun, gun stuff (turned off now)
rem load object "handgun.3ds", 1
rem Fix object pivot 1 
rem turn object right 1, 75
rem Scale object 1,25,25,1
rem position object 1,20,-15,50
rem Lock object on 1

Rem 1 = clip capacity, 2 = bullets left, 3 = clips left
nobullet = 0

dim shooter(5)
shooter(1) = 8
shooter(2) = 8
shooter(3) = 1

rem fire texture
Load Image "fire.bmp",2

rem Make Bullet
Make Object Sphere 2,2
texture object 2,2
Hide Object 2

rem Make Explosion
Make Object Sphere 30,20
texture object 30,2
ghost object on 30
Hide Object 30
Make Object Sphere 31,20
texture object 31,2
ghost object on 31
Hide Object 31

rem Load FX sounds
Load 3Dsound "shotgun.wav",2
Load 3Dsound "Explode1.wav",3

rem Randomize the matrix
randomize matrix 1,125

rem Make target Recticle
load image "target.bmp", 1
sprite 1, 304, 227, 1

rem Game Variables

rem player's hp
plife = 100

rem create decorative objects on matrix
load image "rock02.bmp",300
t=300
For x = 1 to 9
	For z = 1 to 9
		Make object cube t,100	
		Scale object t,100,600,100
		y = get ground height(1,x*1000,z*1000)		
		position object t,x*1000,y+275,z*1000
		texture object t,300
		scale object texture t,1,-6
		inc t
	next z
next x

rem load health bmp
rem load image "health.bmp", 1

Gosub PlacePlayer

Rem Main loop
Do
   rem Move your player along
   oldcAY# = cAY#
	oldcAX# = cAX#

oldX#=X#
	oldY#=Y#
	oldZ#=Z#
	
	cAY# = WrapValue(cAY#+MousemoveX()*0.2)
	cAX# = WrapValue(cAX#+MousemoveY()*0.2)
	caZ# = Camera angle Z()

Rem  Control input for camera
	If Upkey()=1
		XTest# = Newxvalue(X#,cAY#,7)
		ZTest# = Newzvalue(Z#,cAY#,7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

If Downkey()=1
		XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

If Leftkey()=1 
		XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

If Rightkey()=1 	
		XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif
	
	Rem Rotate camera
	cTestX#=WrapValue(cAX#-180)
	if cTestX# > 225 then cAX#=45
	if cTestX# < 135 then cAX#=315

YRotate camera CurveAngle(cAY#,oldcAY#,24)
	XRotate camera CurveAngle(cAX#,oldcAX#,24)
	Y# = Get ground height(1,X#,Z#)+35

rem collision detection
	if DecoCollide(X#,Y#,Z#) = 1
		X#=oldX#
		Y#=oldY#
		Z#=oldZ#
	Endif

Rem Position Camera

Position Camera X#,Y#,Z#

Rem Position Listener
	Position Listener X#,Y#,Z#
	Rotate Listener 0,cAY#,0
	
   Rem Shoot bullet	
	if Mouseclick()=1 and Explode = 0
		if shooter(2) > 0
       if BulletLife=0 or BulletLife<50
			Position object 2,X#,Y#-7,Z#
			Set object to camera orientation 2
			BulletLife = 150
			show object 2
			play sound 2
         shooter(2) = shooter(2) - 1
		
       Endif
	   else 
       if shooter(3) > 0
        shooter(3) = shooter(3) - 1
        shooter(2) = 8
       else
        nobullet = 1
       endif
      endif
    Endif

If BulletLife > 0 then Gosub ShootBullet

If Explode > 0 then Gosub ExplodeRocket

rem HUD-- heads up display!!
   set text size 15
   
   text 250, 415, "Bullets left"
   set cursor 255,430 
   print shooter(2)
   set cursor 290, 415
   print "/"
   
   text 345, 415, "Clips left"
   
   set cursor 350, 430
   print shooter(3)
  
   
 
   if mouseclick()=1 & nobullet=1 
    text 20, 50, "NO BULLETS LEFT"
   endif
   
  
  
   Rem Refresh Screen
	Sync
Loop

Rem check for collision with wall decorations
Function DecoCollide(X#,Y#,Z#)

for u = 1 to 9
		for v = 1 to 9
			if X#>u*1000-60 
				if X#<u*1000+60
					if Z#>v*1000-60
						if Z#<v*1000+60
							if Y# < Get ground height(1,u*1000,v*1000)+575
								Collide=1
								Exitfunction Collide
							endif
						endif
					endif
				endif			
			endif
		next v
	next u
	Collide=0

Endfunction Collide

Rem Shoot player bullet
ShootBullet:
		Dec BulletLife
		Move object 2,12

bX#=Object position X(2)
		bY#=Object position Y(2)
		bZ#=Object position Z(2)		
		
		if bY# < Get Ground height(1,bX#,bZ#) then BulletLife=0
		Position sound 2,bX#,bY#,bZ#
		set cursor 10,10

if DecoCollide(bX#,bY#,bZ#) = 1 then BulletLife = 0

if BulletLife = 0 
			Hide object 2
			stop sound 2
			Explode = 20
		endif
Return

Rem Explode bullet
ExplodeRocket:
	Position object 30,bX#,bY#,bZ#
	Show object 30
	Position object 31,bX#,bY#,bZ#
	Show object 31
	EScale=20*(30-Explode)
	Scale object 30,EScale,EScale,EScale
	Yrotate object 30,WrapValue(Explode*37)
	Scale object 31,EScale/1.5,EScale/1.5,EScale/1.5
	Yrotate object 31,WrapValue(359-Explode*37)
	Dec Explode
	If Explode = 0 then hide object 30: Hide object 31
	If Explode=18 
		position sound 3,bX#,bY#,bZ#
		play sound 3
	endif
	If Explode < 15 then position sound 3,X#,Y#,Z#
Return

PlacePlayer:

X#=mX#
			Y#=mY#
			Z#=mZ#

While Sqrt((X# - mX#)^2 + (Y#+25 - mY#)^2 + (Z# - mZ#)^2)<1000

X#=rnd(10000)
				Z#=rnd(10000)
				Y#= get ground height(1,X#,Z#)
				If DecoCollide(X#,Y#,Z#) = 1 
					X#=mX#
					Y#=mY#
					Z#=mZ#
				endif
				
			EndWhile
			
			Position camera X#,Y#,Z#
			Point camera mX#,mY#,mZ#

Return

+ Code Snippet


rem SETUP GAME SEQUENCE

Rem Setup sync
Sync On
Sync Rate 1000
Draw to front
Backdrop on
Set camera range 1,3000
Autocam off
Hide mouse

Fog on
Fog distance 3000
Fog color RGB(1,128,1)
Color Backdrop RGB(128,128,128)

Rem make matrix
Make matrix 1,10000,10000,20,20

Rem texture matrix
Load image "rock09.bmp",1
Prepare matrix texture 1,1,1,1
Fill matrix 1,0,1

rem Make Gun, gun stuff (turned off now)
rem load object "handgun.3ds", 1
rem Fix object pivot 1 
rem turn object right 1, 75
rem Scale object 1,25,25,1
rem position object 1,20,-15,50
rem Lock object on 1

Rem 1 = clip capacity, 2 = bullets left, 3 = clips left
nobullet = 0

dim shooter(5)
shooter(1) = 8
shooter(2) = 8
shooter(3) = 1




rem fire texture
Load Image "fire.bmp",2

rem Make Bullet
Make Object Sphere 2,2
texture object 2,2
Hide Object 2


rem Make Explosion
Make Object Sphere 30,20
texture object 30,2
ghost object on 30
Hide Object 30
Make Object Sphere 31,20
texture object 31,2
ghost object on 31
Hide Object 31


rem Load FX sounds
Load 3Dsound "shotgun.wav",2
Load 3Dsound "Explode1.wav",3



rem Randomize the matrix
randomize matrix 1,125

rem Make target Recticle
load image "target.bmp", 1
sprite 1, 304, 227, 1

rem Game Variables

rem player's hp
plife = 100


rem create decorative objects on matrix
load image "rock02.bmp",300
t=300
For x = 1 to 9
	For z = 1 to 9
		Make object cube t,100	
		Scale object t,100,600,100
		y = get ground height(1,x*1000,z*1000)		
		position object t,x*1000,y+275,z*1000
		texture object t,300
		scale object texture t,1,-6
		inc t
	next z
next x


rem load health bmp
rem load image "health.bmp", 1 

Gosub PlacePlayer

Rem Main loop
Do
   rem Move your player along
   oldcAY# = cAY#
	oldcAX# = cAX#

	oldX#=X#
	oldY#=Y#
	oldZ#=Z#
	
	cAY# = WrapValue(cAY#+MousemoveX()*0.2)
	cAX# = WrapValue(cAX#+MousemoveY()*0.2)
	caZ# = Camera angle Z()

	Rem  Control input for camera
	If Upkey()=1
		XTest# = Newxvalue(X#,cAY#,7)
		ZTest# = Newzvalue(Z#,cAY#,7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

	If Downkey()=1
		XTest# = Newxvalue(X#,Wrapvalue(cAY#-180),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-180),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

	If Leftkey()=1 
		XTest# = Newxvalue(X#,Wrapvalue(cAY#-90),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#-90),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif

	If Rightkey()=1 	
		XTest# = Newxvalue(X#,Wrapvalue(cAY#+90),7)
		ZTest# = Newzvalue(Z#,Wrapvalue(cAY#+90),7)
		If XTest#>0 and XTest#<10000 and ZTest#>0 and ZTest#<10000
			X#=XTest#
			Z#=ZTest#
		Endif
	Endif
	
	Rem Rotate camera
	cTestX#=WrapValue(cAX#-180)
	if cTestX# > 225 then cAX#=45
	if cTestX# < 135 then cAX#=315

	YRotate camera CurveAngle(cAY#,oldcAY#,24)
	XRotate camera CurveAngle(cAX#,oldcAX#,24)
	Y# = Get ground height(1,X#,Z#)+35

	rem collision detection
	if DecoCollide(X#,Y#,Z#) = 1
		X#=oldX#
		Y#=oldY#
		Z#=oldZ#
	Endif


	Rem Position Camera

	Position Camera X#,Y#,Z#

	Rem Position Listener
	Position Listener X#,Y#,Z#
	Rotate Listener 0,cAY#,0
	
   Rem Shoot bullet	
	if Mouseclick()=1 and Explode = 0
		if shooter(2) > 0
       if BulletLife=0 or BulletLife<50
			Position object 2,X#,Y#-7,Z#
			Set object to camera orientation 2
			BulletLife = 150
			show object 2
			play sound 2
         shooter(2) = shooter(2) - 1
		
       Endif
	   else 
       if shooter(3) > 0
        shooter(3) = shooter(3) - 1
        shooter(2) = 8
       else
        nobullet = 1
       endif
      endif
    Endif
	

	If BulletLife > 0 then Gosub ShootBullet

	If Explode > 0 then Gosub ExplodeRocket


	rem HUD-- heads up display!!
   set text size 15
   
   text 250, 415, "Bullets left"
   set cursor 255,430 
   print shooter(2)
   set cursor 290, 415
   print "/"
   
   text 345, 415, "Clips left"
   
   set cursor 350, 430
   print shooter(3)
  
   
 
   if mouseclick()=1 & nobullet=1 
    text 20, 50, "NO BULLETS LEFT"
   endif
   
  
  
   Rem Refresh Screen
	Sync
Loop

Rem check for collision with wall decorations
Function DecoCollide(X#,Y#,Z#)

	for u = 1 to 9
		for v = 1 to 9
			if X#>u*1000-60 
				if X#<u*1000+60
					if Z#>v*1000-60
						if Z#<v*1000+60
							if Y# < Get ground height(1,u*1000,v*1000)+575
								Collide=1
								Exitfunction Collide
							endif
						endif
					endif
				endif			
			endif
		next v
	next u
	Collide=0

Endfunction Collide

Rem Shoot player bullet
ShootBullet:
		Dec BulletLife
		Move object 2,12

		bX#=Object position X(2)
		bY#=Object position Y(2)
		bZ#=Object position Z(2)		
		
		if bY# < Get Ground height(1,bX#,bZ#) then BulletLife=0
		Position sound 2,bX#,bY#,bZ#
		set cursor 10,10

		if DecoCollide(bX#,bY#,bZ#) = 1 then BulletLife = 0

		if BulletLife = 0 
			Hide object 2
			stop sound 2
			Explode = 20
		endif
Return	

Rem Explode bullet
ExplodeRocket:
	Position object 30,bX#,bY#,bZ#
	Show object 30
	Position object 31,bX#,bY#,bZ#
	Show object 31
	EScale=20*(30-Explode)
	Scale object 30,EScale,EScale,EScale
	Yrotate object 30,WrapValue(Explode*37)
	Scale object 31,EScale/1.5,EScale/1.5,EScale/1.5
	Yrotate object 31,WrapValue(359-Explode*37)
	Dec Explode
	If Explode = 0 then hide object 30: Hide object 31
	If Explode=18 
		position sound 3,bX#,bY#,bZ#
		play sound 3
	endif
	If Explode < 15 then position sound 3,X#,Y#,Z#
Return

	
PlacePlayer:

			X#=mX#
			Y#=mY#
			Z#=mZ#

			While Sqrt((X# - mX#)^2 + (Y#+25 - mY#)^2 + (Z# - mZ#)^2)<1000

				X#=rnd(10000)
				Z#=rnd(10000)
				Y#= get ground height(1,X#,Z#)
				If DecoCollide(X#,Y#,Z#) = 1 
					X#=mX#
					Y#=mY#
					Z#=mZ#
				endif
				
			EndWhile
			
			Position camera X#,Y#,Z#
			Point camera mX#,mY#,mZ#

Return

I would really like some help loading directx file levels, loading 3d guns, particles, and PLEASE GOD rapidfire. Thank you! You're my last hope!

Back to top

Profile PM

hyrichter

21

Years of Service

User Offline

Joined: 15th Feb 2004

Location: Arizona

Posted: 25th Nov 2004 11:08

Link

I don't have time to explain the code you have, but I have a rapid fire snippet I developed some time ago.

sync on
sync rate 30
autocam off

Dim BulletActive(5)
Dim BulletPos(6)

gosub _LoadBullets:
`Note:  The following variables are to make the code work properly in this example, as this code was
`Taken from an FPS that I am making

True=1:False=0
Player_Ammo1=500
WeaponSwitch=0:Mode=1

do
   gosub _CheckBullet
   gosub _HandleBullets
   sync
loop

_LoadBullets:
   for bul = 10 to 15
      make object sphere bul,3
      color object bul,RGB(50,50,50)
      `CollisionTypePro(bul,Type_Bullet)
      `SetObjRadiusPro(bul,3.0,3.0,3.0)
      hide object bul
   next bul
return

_CheckBullet:
   bullet_time=bullet_time+1
   if Bullet_Time=5
      Bullet_Fire=true
      Bullet_Time=0
   else
      Bullet_Fire=false
   endif

if Bullet_Fire = False
      Bullet_time=bullet_time+1
      if Bullet_Time=5
         Bullet_Fire=true
         Bullet_Time=0
      endif
   endif
return

_HandleBullets:
   rem Fires Bullets
   if mouseclick()>0 and mode = 1 and Player_ammo1 > 0 and Bullet_Fire = true and weaponSwitch=0
      inc Bullet_Num, 1
      if Bullet_Num = 7 then Bullet_Num = 1
      BulletActive(Bullet_Num-1)=1
      Bullet_Current = (Bullet_Num - 1) + 10
      Bullet_Move = True
      show object bullet_current
      position object Bullet_Current, camera position x(), camera position y(), camera position z()
      set object to camera orientation Bullet_Current
      bulletpos(Bullet_Num) = 0

dec Player_ammo1, 1
      `play sound 1
   endif

rem Moves Bullets
   if Bullet_Move = true
      for x = 10 to 15
         if BulletActive(x-10)=1
            move object x, 50
            BulletPos(x-9)=BulletPos(x-9)+50
         endif

if bulletPos(x-9)>=1200
            hide object x
            BulletActive(x-10)=0
            BulletPos(x-9)=0
         endif
      next x
   endif
return

+ Code Snippet

sync on
sync rate 30
autocam off

Dim BulletActive(5)
Dim BulletPos(6)

gosub _LoadBullets:
`Note:  The following variables are to make the code work properly in this example, as this code was
`Taken from an FPS that I am making

True=1:False=0
Player_Ammo1=500
WeaponSwitch=0:Mode=1


do
   gosub _CheckBullet
   gosub _HandleBullets
   sync
loop


_LoadBullets:
   for bul = 10 to 15
      make object sphere bul,3
      color object bul,RGB(50,50,50)
      `CollisionTypePro(bul,Type_Bullet)
      `SetObjRadiusPro(bul,3.0,3.0,3.0)
      hide object bul
   next bul
return

_CheckBullet:
   bullet_time=bullet_time+1
   if Bullet_Time=5
      Bullet_Fire=true
      Bullet_Time=0
   else
      Bullet_Fire=false
   endif

   if Bullet_Fire = False
      Bullet_time=bullet_time+1
      if Bullet_Time=5
         Bullet_Fire=true
         Bullet_Time=0
      endif
   endif
return

_HandleBullets:
   rem Fires Bullets
   if mouseclick()>0 and mode = 1 and Player_ammo1 > 0 and Bullet_Fire = true and weaponSwitch=0
      inc Bullet_Num, 1
      if Bullet_Num = 7 then Bullet_Num = 1
      BulletActive(Bullet_Num-1)=1
      Bullet_Current = (Bullet_Num - 1) + 10
      Bullet_Move = True
      show object bullet_current
      position object Bullet_Current, camera position x(), camera position y(), camera position z()
      set object to camera orientation Bullet_Current
      bulletpos(Bullet_Num) = 0

      dec Player_ammo1, 1
      `play sound 1
   endif

   rem Moves Bullets
   if Bullet_Move = true
      for x = 10 to 15
         if BulletActive(x-10)=1
            move object x, 50
            BulletPos(x-9)=BulletPos(x-9)+50
         endif

         if bulletPos(x-9)>=1200
            hide object x
            BulletActive(x-10)=0
            BulletPos(x-9)=0
         endif
      next x
   endif
return

Do not click the red button

Back to top

Profile PM Email

Lorraine Evans

20

Years of Service

User Offline

Joined: 17th Aug 2004

Location:

Posted: 26th Nov 2004 10:20

Link

Thanks loads

Back to top

Profile PM

Major Payn

21

Years of Service

User Offline

Joined: 16th Dec 2003

Location: United States of America

Posted: 26th Nov 2004 11:22

Link

EEK! The movement code is way over complicated, there are a few commands that make all that so exremely easy, you can replace all that variable mumbo jumbo with a simple command like...

if upkey()=1
move object 1,1
endif

if downkey()=1
move object 1,-1
endif

if rightkey()=1
turn object right 1,1
endif

if leftkey()=1
turn object left 1,1
endif

Guns arnt the problem, people are the problem, shoot all the people and guns arnt a problem anymore.

Back to top

Profile PM

Benjamin

22

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 26th Nov 2004 11:42

Link

Yeah but the idea(I'm guessing) is that it all works smoothly..or something

AKA teh great Pet Rat.
Peace sells...but who's buying??

Back to top

Profile PM Email

Lorraine Evans

20

Years of Service

User Offline

Joined: 17th Aug 2004

Location:

Posted: 27th Nov 2004 02:06 Edited at: 27th Nov 2004 02:06

Link

What do you mean by move object? The player's perspective is the camera, right?

Back to top

Profile PM

Clackersmith

21

Years of Service

User Offline

Joined: 4th Sep 2003

Location:

Posted: 27th Nov 2004 02:29

Link

Then : Position Camera 0,Object Position x(1),Object Position y(1),Object Position z(1)

Back to top

Profile PM Email

bibz1st

22

Years of Service

User Offline

Joined: 2nd Jan 2003

Location:

Posted: 27th Nov 2004 19:54

Link

flexibility is what

Quote: "variable mumbo jumbo "

provides

Back to top

Profile PM

Underworld 1020

21

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 3rd Dec 2004 23:35 Edited at: 3rd Dec 2004 23:37

Link

I can't run this right now, but here:

+ Code Snippet


rem Settings
Sync On : Sync Rate 30
AutoCam Off
Hide Mouse

rem Matrix To Look At
Make Matrix 1,1000,1000,10,10

rem Main Loop
Do

rem Mouse Look
Cam_XAng#=WrapValue(Cam_XAng#+(MouseMoveX()*.2))
Cam_YAng#=WrapValue(Cam_YAng#+(MouseMoveY()*.2))

rem Rotate Camera
Rotate Camera Cam_XAng#,Cam_YAng#,0

rem Move Foward Or Backward
If UpKey()=1 Then Move Camera 10
If DownKey()=1 Then Move Camera -10

rem Update Camera Varibles
Cam_XPos#=Camera Position X()
Cam_YPos#=20
Cam_ZPos#=Camera Position Z()

rem Straffing
Cam_XPos#=NewXValue(Cam_XPos#,Cam_YAng#,10)
Cam_ZPos#=NewZValue(Cam_ZPos#,Cam_YAng#,10)

rem Update Camera
Position Camera Cam_XPos#,Cam_YPos#,Cam_ZPos#

rem Refresh Screen
Sync

rem End Of Main Loop
Loop

That should work, but I'll test it latter

See Ya!

Back to top

Profile PM

Underworld 1020

21

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 3rd Dec 2004 23:43

Link

If you want ou can add this too

Put this under "Make Matrix":
Randomize Matrix 1,20

Replace "Cam_YPos#=20" with:
Cam_YPos#=Get Ground Height(1,Cam_XPos#,Cam_ZPos#)+20

That will just make some hills in the matrix and able you to walk over them smoothly, but I can't run anything until later, so if its messed up I'll fix it later.

See Ya!

Back to top

Profile PM

Underworld 1020

21

Years of Service

User Offline

Joined: 2nd Mar 2004

Location: NY, USA

Posted: 8th Dec 2004 21:55

Link

never ran my code, did it work?
And did you find out what you wanted to know because I could add shooting with rapid fire, if you want.

Back to top

Profile PM

Lorraine Evans

20

Years of Service

User Offline

Joined: 17th Aug 2004

Location:

Posted: 29th Dec 2004 09:28

Link

yeah, it worked. THANKS All! And i would like some rapidfire stuff.

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Discussion / For god's sake, I need understanding, FPS style