Simple DBPro Game: BATTLE BALLZ - Let me know what you think!

Author

Message

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 19th Nov 2017 23:42 Edited at: 20th Nov 2017 03:35

Link

Battle Ballz

This is a little game I made in only as couple days using DarkBasic Pro.

A classic two player tank battle that I made for me and my kids to play and given the amount of time it took me I am quite happy with
the results. I only started the project a week ago and in all honesty I could prob reproduce this in around an hour or so now that I
know what I am doing with it.

I started off ready to make a typical platform game similar to Super Mario Smash brothers lay out but over time it morphed into the game you see here.

I wish I was able to make this into a flash game and publish it online because my kids have been begging me to do so. I found out how to convert it over to an Active X game which is pretty cool(and dangerous IMO, Ill never use Active X again after what I found out) but no browsers support Active X anymore other the Internet explorer and lets face it, people only use IE to download Chrome and Firefox anymore lol.

Play a Few rounds of it with a friend and let me know what you think. I spent more time over the past couple days trying to make sure there are no bugs or issues before I posted it so if you happen to notice anything off please let me know.

Version 1:
===========================================================================
MULTIPLE RANDOMLY SELECTED BACKGROUND AND MUSIC
HEALTH BAR
PARTICLE EXPLOSIONS
TWO PLAYER ACTION
RANDOMIZE LEVEL
===========================================================================

I plan on making a Version 2.0 some time soon getting input from my children as to what I should add and so far the consensus is that I need Missiles upgrades, Randomly placed around the level and make them Heat seeking and stronger then normal weapons. I also want a powerup system so that if someone holds the fire button it gets stronger making it a tactical move of when to fire to
encourage waiting and strategy and discourage spamming of the fire key.

I wish to add Net connection to the game to make it two player over a LAN connection and also have the option of making this a first person view which I feel would be very very cool IMO. I think I am going to add knockback as well as I think this will give a more realistic feel to the game.

___________________________________________________________________________
Coming Soon! Battle Ballz V 2.0
_____________________________________________________________________________

UPGRADES SUCH AS MISSILES
LANDMINES
NET CONNECTIONS FOR TWO PLAYER ACTION
HOLD FIRE BUTTON FOR MORE POWERFUL SHOT.
ADD KNOCKBACK

Please Give some feedback I would like to know what everyone thinks of the game, My kids seem to love it.

SOURCE CODE

Rem Project: Game
Rem Created: Monday, November 13, 2017
Rem ***** Main Source File *****

GLOBAL DEBUG = FALSE

SYNC ON:CLS 0:SYNC RATE 60

SET DISPLAY MODE 1000,800,32
COLOR BACKDROP 0,0,0
SET WINDOW POSITION 0,0
MAXIMIZE WINDOW

type Vector2
	X as float
	y as float
endtype

type Vector3
	X as float
	y as float
	z as float
endtype

type Vector4
	X as float
	y as float
	z as float
	w as float
endtype

Type Physical_body
	Mass as float
	Friction as float
	Speed as float
	Angle as float
endtype

type Platform
	position as vector3
	Height as integer
	SURFACE AS Physical_body
endtype

type player
	HEALTH as integer
	SCORE as integer
	SPEED as float
	POSITION as Vector3
	VELOCITY as Vector3 
	FORCE AS Vector3
	JUMP_FLAG as boolean  
	FALLING_FLAG as boolean  	
	DELTA_TIME as float
	MASS as float
endtype

type PROJECTILE
    POSITION AS VECTOR3
    VELOCITY AS VECTOR3
    LIFE_SPAN
endtype

Dim PLAYERS(2) as player
Dim World(10) as Platform

#constant Player_1  1 
#constant Player_2  2

#constant TRUE 1
#constant FALSE 0

#constant xleft   = -300
#constant xright  =  800
#constant ztop    =  350
#constant zbottom = -420

//-------------- Physics Defines -----------------------------------------

GLOBAL GRAVITATIONAL_FORCE AS FLOAT
GLOBAL DELTA_TIME  AS FLOAT
GLOBAL X_ACCELERATION  AS FLOAT
GLOBAL Y_ACCELERATION  AS FLOAT
GLOBAL Z_ACCELERATION  AS FLOAT
GLOBAL CURRENT_TIME
GLOBAL PREVIOUS_TIME = TIMER()

//-------------- Keyboard Defines -----------------------------------------

GLOBAL SPACEKEY_SWITCH
GLOBAL LEFTKEY_SWITCH
GLOBAL RIGHTKEY_SWITCH
GLOBAL UPKEY_SWITCH
GLOBAL DOWNKEY_SWITCH
GLOBAL GLOBAL_TIMER
GLOBAL FIREKEY2_SWITCH

//-------------- Projectile Defines

#constant BULLET_OFFSET  200

GLOBAL MAX_PROJECTILES = 300
GLOBAL NUM_OF_PROJECTILES

DIM BULLETS(MAX_PROJECTILES) as PROJECTILE
//__________________LEVEL SETUP ______________________________________________________________________________________________//

#CONSTANT NUM_OF_BACKGROUNDS 5
#CONSTANT NUM_OF_MUSICS 6

GLOBAL PLAYER1WINS
GLOBAL PLAYER2WINS
GLOBAL BACK_MUSIC
GLOBAL BACK_TEXTURE

//______________________________________________________________________________________________________________________________//
//                           Project Creation Date: 11/13/2017
//                           Dependencies: SPARKY COLLISION DLL                                                                                   
//                                                                                                                      
//                                                                                                                      
//                                  MAIN GAME LOOP
//______________________________________________________________________________________________________________________________//

INITIALIZE()

PLAYERS(1).JUMP_FLAG = FALSE 
PLAYERS(1).VELOCITY.X = 0:PLAYERS(1).VELOCITY.Y = 0:PLAYERS(1).VELOCITY.Z = 0
SHOW SPRITE 5
SHOW SPRITE 3
SHOW SPRITE 4

while inkey$() = ""
sync
endwhile
HIDE SPRITE 3
HIDE SPRITE 4
HIDE SPRITE 5

WHILE KEYSTATE(1) = 0
//  SET CURSOR SCREEN WIDTH() / 2, 10
 //   PRINT BACK_TEXTURE
 //   SET CURSOR 0,0
    
   _INPUT_HANDLER()
   _PHYSICS()
   _COLLISION_HANDLER()
   _UPDATE_PLAYER()

//   print "Collision:";PLAYER1collision;"  Frames:"; SCREEN FPS()
//    PRINT "Position X:";PLAYERS(1).POSITION.X;"  Y:";PLAYERS(1).POSITION.Y ; "  Z:";PLAYERS(1).POSITION.Z
//    PRINT "HIT:"; OBJECT COLLISION(PLAYER_1,0)
    
    SET TEXT SIZE 60
    SET TEXT FONT "POLYGON"
SET CURSOR 0, 0
PRINT PLAYER2WINS ;

if PLAYER1WINS < 10 then SET CURSOR 970, 0
if PLAYER1WINS => 10 then SET CURSOR 945, 0
PRINT PLAYER1WINS;
    SET CURSOR 0,0

sync
ENDWHILE

for count = 0 to 40
    DELETE IMAGE count
    DELETE SOUND count
next

for count= 0 to 2000
	SC_removeObject count
next

exit

function _INPUT_HANDLER()

`==================PLAYER 1============================================================================================

If spacekey() = TRUE AND PLAYERS(1).JUMP_FLAG = FALSE                       
	     SPACEKEY_SWITCH = TRUE
	endif

if SPACEKEY_SWITCH = TRUE and SPACEKEY() = FALSE 
		SPACEKEY_SWITCH = FALSE													
	   _FIRE_PROJECTILE(PLAYER_1)
	endif
	
	
	//IF KEYSTATE(50) = TRUE
//		_FIRE_PROJECTILE(PLAYER_1)
//	ENDIF
	
	IF leftkey() = true 
	      YROTATE OBJECT PLAYER_1,OBJECT ANGLE Y(PLAYER_1) - 3
	endif
	
	IF rightkey() = true 
		 YROTATE OBJECT PLAYER_1,OBJECT ANGLE Y(PLAYER_1) + 3
	endif
	
	
	
	IF upkey() = true 
		 MOVE OBJECT PLAYER_1,7
		 		 
		 IF OBJECT POSITION Z(PLAYER_1) > ztop THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),ztop
		 IF OBJECT POSITION Z(PLAYER_1) < zbottom THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),zbottom
	     IF OBJECT POSITION X(PLAYER_1)> xright  THEN POSITION OBJECT PLAYER_1, xright, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
		 IF OBJECT POSITION X(PLAYER_1)< xleft  THEN POSITION OBJECT PLAYER_1, xleft, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
	
	endif
	
	IF downkey() = true 
		 MOVE OBJECT PLAYER_1,-7

IF OBJECT POSITION Z(PLAYER_1) > ztop THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),ztop
		 IF OBJECT POSITION Z(PLAYER_1) < zbottom THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),zbottom
	     IF OBJECT POSITION X(PLAYER_1)> xright  THEN POSITION OBJECT PLAYER_1, xright, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
		 IF OBJECT POSITION X(PLAYER_1)< xleft THEN POSITION OBJECT PLAYER_1, xleft, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
	endif

`==================PLAYER 2============================================================================================

If KEYSTATE(33) = TRUE AND PLAYERS(2).JUMP_FLAG = FALSE                       ////AND PLAYERS(1).JUMP_FLAG = FALSE
	    FIREKEY2_SWITCH = TRUE
	endif

if FIREKEY2_SWITCH = TRUE and KEYSTATE(33) = FALSE 
		FIREKEY2_SWITCH = FALSE													//PLAYERS(1).JUMP_FLAG      = TRUE
	   _FIRE_PROJECTILE(PLAYER_2)
	endif
		
		
//	IF KEYSTATE(50) = TRUE
	//	_FIRE_PROJECTILE(PLAYER_2)
	//ENDIF
	
	
	IF KEYSTATE(30) = true 
	      YROTATE OBJECT PLAYER_2,OBJECT ANGLE Y(PLAYER_2) - 3
	endif
	
	
	IF KEYSTATE(32) = true 
		 YROTATE OBJECT PLAYER_2,OBJECT ANGLE Y(PLAYER_2) + 3
	endif
	
	
	IF KEYSTATE(17) = true 
	
		 MOVE OBJECT PLAYER_2,7
		 
   	     IF OBJECT POSITION Z(PLAYER_2) > ztop THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),ztop
		 IF OBJECT POSITION Z(PLAYER_2) < zbottom THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),zbottom
	     IF OBJECT POSITION X(PLAYER_2)> xright  THEN POSITION OBJECT PLAYER_2, xright, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
		 IF OBJECT POSITION X(PLAYER_2)< xleft  THEN POSITION OBJECT PLAYER_2, xleft, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
	
	endif
	
	IF KEYSTATE(31) = true 
	
		 MOVE OBJECT PLAYER_2,-7
		 
   	     IF OBJECT POSITION Z(PLAYER_2) > ztop THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),ztop
		 IF OBJECT POSITION Z(PLAYER_2) < zbottom THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),zbottom
	     IF OBJECT POSITION X(PLAYER_2)> xright  THEN POSITION OBJECT PLAYER_2, xright, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
		 IF OBJECT POSITION X(PLAYER_2)< xleft  THEN POSITION OBJECT PLAYER_2, xleft, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)

endif
endfunction

function _PHYSICS() 
   _UPDATE_PROJECTILES()
endfunction

`1.473 <--(GRAVITATIONAL_FORCE * DELTA_TIME)

function _COLLISION_HANDLER()

XPOS# = OBJECT POSITION X(PLAYER_1)
    YPOS# = OBJECT POSITION Y(PLAYER_1)
    ZPOS# = OBJECT POSITION Z(PLAYER_1)

HIT = OBJECT COLLISION(PLAYER_1,0)
    
    IF HIT <> 0 
       DEC XPOS#, GET OBJECT COLLISION X()
       DEC ZPOS#, GET OBJECT COLLISION Z()
       PLAYERS(1).POSITION.X = XPOS#
       PLAYERS(1).POSITION.Y = YPOS#  
       PLAYERS(1).POSITION.Z = ZPOS#
    
    	POSITION OBJECT PLAYER_1,XPOS#,YPOS#,ZPOS#
    ENDIF

XPOS# = OBJECT POSITION X(PLAYER_2)
    YPOS# = OBJECT POSITION Y(PLAYER_2)
    ZPOS# = OBJECT POSITION Z(PLAYER_2)
  
    HIT = OBJECT COLLISION(PLAYER_2,0)
    IF HIT <> 0 
        DEC XPOS#, GET OBJECT COLLISION X()
        DEC ZPOS#, GET OBJECT COLLISION Z() 
        
       PLAYERS(2).POSITION.X = XPOS#
       PLAYERS(2).POSITION.Y = YPOS# 
       PLAYERS(2).POSITION.Z = ZPOS# 
 
    	POSITION OBJECT PLAYER_2,XPOS#,YPOS#,ZPOS#
    ENDIF

endfunction

function INITIALIZE()
	
	SET GLOBAL COLLISION ON
	DRAW SPRITES LAST 
	
	LOAD SOUND "FIRE.WAV",1
	LOAD SOUND "HIT.WAV",2
	LOAD SOUND "DEAD.WAV",3
	LOAD SOUND "MUSIC.WAV",4
	LOAD SOUND "TECH.WAV",5
	LOAD SOUND "RETRO.WAV",6
	LOAD SOUND "LOOP.WAV",7
	LOAD SOUND "LOOP2.WAV",8
	LOAD SOUND "RAVE.WAV",9
	
	BACK_MUSIC = RND(NUM_OF_MUSICS -1) + 4
	LOOP SOUND BACK_MUSIC
	
	LOAD IMAGE "player1.bmp",2
	LOAD IMAGE "LAVAPAR.bmp",4
	
	LOAD IMAGE "DEAD.BMP",9
	LOAD IMAGE "LAVAPAR.BMP",10
	LOAD IMAGE "HEALTH.BMP",11
	LOAD IMAGE "splash.png",12
	LOAD IMAGE "presskey.bmp",13
	LOAD IMAGE "ball.png",14
	
	LOAD IMAGE "BLUEG.BMP",15
	LOAD IMAGE "PURPLEG.BMP",16
	LOAD IMAGE "GREENG.BMP",17
	LOAD IMAGE "RAINBOW.BMP",18
	LOAD IMAGE "WALL2.bmp",19
	
	
	LOAD IMAGE "P1DEAD.BMP",30
	LOAD IMAGE "P2DEAD.BMP",31
	
	SPRITE 1, 250,500,9
	SPRITE 2, 0,750,11
	sprite 3,0,0,12
	sprite 4,395,570,13
	sprite 5,700,75,14
	
	SPRITE 6,200,300,30
	SPRITE 7,200,300,31
	
	HIDE SPRITE 6
	HIDE SPRITE 7

SHOW SPRITE 2:HIDE SPRITE 1

MAKE_LEVEL()
    
    SET AMBIENT LIGHT 80:COLOR AMBIENT LIGHT RGB(255,255,255)
   
    SET LIGHT RANGE 0,1000 
    POSITION LIGHT 0,650,10,0
    COLOR LIGHT 0,RGB(0,0,255)
    SET DIRECTIONAL LIGHT 0,90,90,90

AUTOCAM OFF
	GLOBAL_TIMER = TIMER()
    GRAVITATIONAL_FORCE = .1

POSITION CAMERA 250,800,-50
	POINT CAMERA 250,0,-50
	
    PLAYERS(1).HEALTH = 100: PLAYERS(2).HEALTH = 100	
    
`==================PLAYER 1============================================================================================

MAKE OBJECT sphere PLAYER_1,30 	
	TEXTURE OBJECT PLAYER_1, 2
	MAKE OBJECT CYLINDER 1000,10
	SET OBJECT CULL 1000,1
	XROTATE OBJECT 1000,90
	FIX OBJECT PIVOT 1000
	ZROTATE OBJECT 1000,90
	MAKE MESH FROM object 1,1000
	ADD LIMB PLAYER_1,1,1
	OFFSET LIMB PLAYER_1,1, 0,0,15

DELETE OBJECT 1000
    
`==================PLAYER 2============================================================================================
	
	MAKE OBJECT sphere PLAYER_2,30 //,26,26
	TEXTURE OBJECT PLAYER_2, 2
	MAKE OBJECT CYLINDER 1000,10
	SET OBJECT CULL 1000,1
	XROTATE OBJECT 1000,90
	FIX OBJECT PIVOT 1000
	ZROTATE OBJECT 1000,90
	XROTATE OBJECT PLAYER_2,180
	
	MAKE MESH FROM object 1,1000
	ADD LIMB PLAYER_2,1,1
	OFFSET LIMB PLAYER_2,1, 0,0,15
		
    DELETE OBJECT 1000

`=======================================================================================================================

POSITION OBJECT PLAYER_1,xleft,100,0
	POSITION OBJECT PLAYER_2,xright,100,0

endfunction

function MAKE_LEVEL()
    
    BACK_TEXTURE = RND(NUM_OF_BACKGROUNDS -1) + 15
    
 	for count = 0 to 10
		WORLD(count).position.x =  (xleft + 100) + rnd(xright - 100)
		WORLD(count).position.y = 40
		WORLD(count).position.z =  (ztop) - rnd(screen height())
		WORLD(count).Height     = 150
		WORLD(10).Height     = 150
		WORLD(0).Height     = 150
		MAKE OBJECT cube count + 3,100 
		POSITION OBJECT count + 3,WORLD(count).position.x,100,WORLD(count).position.z
 		
 		SET OBJECT TEXTURE count + 3, 0, 0, 0
        TEXTURE OBJECT count + 3, BACK_TEXTURE
 	    sc_setupobject count + 3, 0, 2
    NEXT 
    
   
   	MAKE OBJECT PLANE 999,1200,1000
	POSITION OBJECT 999,250,50,-100
    TEXTURE OBJECT 999,BACK_TEXTURE
	XROTATE OBJECT 999,90
	SC_SETUPOBJECT 999,0,1
    
endfunction

function _UPDATE_PROJECTILES()

for count = 0 to MAX_PROJECTILES - 1
	
		IF OBJECT EXIST(COUNT + BULLET_OFFSET) = 1
		
			OLDX# = BULLETS(count).POSITION.X  
			OLDY# = BULLETS(count).POSITION.Y  
			OLDZ# = BULLETS(count).POSITION.Z  
    		BULLETS(count).POSITION.X = OLDX#  + (BULLETS(count).VELOCITY.X * .1)
			BULLETS(count).POSITION.Y = OLDY#  + (BULLETS(count).VELOCITY.Y * .1)
			BULLETS(count).POSITION.Z = OLDZ#  + (BULLETS(count).VELOCITY.Z * .1)
			INC BULLETS(count).LIFE_SPAN
			MOVE OBJECT count + BULLET_OFFSET,10
			HIT = OBJECT COLLISION(count + BULLET_OFFSET,0)

IF HIT <> 0
			    HIDE OBJECT count + BULLET_OFFSET
			    SET OBJECT COLLISION OFF count + BULLET_OFFSET
			ENDIF   
			
			
			IF HIT = 1 
			     PLAY SOUND 2
			     DEC PLAYERS(1).HEALTH,5
                HIDE OBJECT count + BULLET_OFFSET
                IF PLAYERS(1).HEALTH =<0 THEN _PLAYER_DEAD(PLAYER_1)
			ENDIF
			IF HIT = 2
			     PLAY SOUND 2
			     DEC PLAYERS(2).HEALTH,5
                  HIDE OBJECT count + BULLET_OFFSET
                 IF PLAYERS(2).HEALTH =<0 THEN _PLAYER_DEAD(PLAYER_2)
			ENDIF
			
	
			IF BULLETS(count).LIFE_SPAN > 100
				DELETE OBJECT count + BULLET_OFFSET
				BULLETS(count).LIFE_SPAN= 0
				DEC NUM_OF_PROJECTILES
			endif
			
		endif

function _FIRE_PROJECTILE(PLAYER)

PLAY SOUND 1
	COUNT = BULLET_OFFSET
	
	while object exist(count) = 1
		inc count
	endwhile
	
	IF COUNT - BULLET_OFFSET > MAX_PROJECTILES THEN EXITFUNCTION
	
    MAKE OBJECT SPHERE COUNT,5
	color object count, rgb(0,255,0)
    
    ROTATE OBJECT   COUNT, OBJECT ANGLE X(PLAYER) ,OBJECT ANGLE Y(PLAYER),OBJECT ANGLE Z(PLAYER)
 	POSITION OBJECT COUNT, OBJECT POSITION X(PLAYER),100,OBJECT POSITION Z(PLAYER)
	
	MOVE OBJECT COUNT, 25

DEC count,BULLET_OFFSET
    BULLETS(count).VELOCITY.X = 5

OLDX# = BULLETS(count).POSITION.X  
	OLDY# = BULLETS(count).POSITION.Y  
	OLDZ# = BULLETS(count).POSITION.Z  
		
	BULLETS(count).POSITION.X = OLDX#  + (BULLETS(count).VELOCITY.X * .1)
	BULLETS(count).POSITION.Y = OLDY#  + (BULLETS(count).VELOCITY.Y * .1)
	BULLETS(count).POSITION.Z = OLDZ#  + (BULLETS(count).VELOCITY.Z * .1)
		
	MOVE OBJECT count + BULLET_OFFSET,1
	SET OBJECT COLLISION ON count + BULLET_OFFSET
endfunction 1

function _PLAYER_DEAD(PLAYERS AS INTEGER)
	DRAW SPRITES LAST 
	
	PLAY SOUND 3
    HIDE OBJECT PLAYERS
	
	IF PLAYERS = 1 THEN SHOW SPRITE 6
	IF PLAYERS = 2 THEN SHOW SPRITE 7

IF PLAYERS = 1 THEN INC PLAYER1WINS
    IF PLAYERS = 2 THEN INC PLAYER2WINS

//============= RESET ALL THE PROJECTILES ======================================================================
	
	FOR COUNT = 0 TO MAX_PROJECTILES
			BULLETS(count).POSITION.X  = 0
			BULLETS(count).POSITION.Y  = 0
			BULLETS(count).POSITION.Z  = 0
			IF OBJECT EXIST (COUNT + BULLET_OFFSET) = 1 
				POSITION OBJECT (COUNT + BULLET_OFFSET),1000,1000,1000
			ENDIF
	NEXT
//==============================================================================================================

//====================== SHORT LOOP SO PARTICLES DISPLAY CORRECTLY =============================================

MAKE PARTICLES 1,10,100,100
	POSITION PARTICLES 1, OBJECT POSITION X(PLAYERS), OBJECT POSITION Y(PLAYERS), OBJECT POSITION Z(PLAYERS)
	FOR G = 0 TO 400
    	SET CURSOR SCREEN WIDTH() / 2 - 180,SCREEN HEIGHT() / 2
		SYNC
	NEXT
//==============================================================================================================

WAIT 100
	DELETE PARTICLES 1
//==============================================================================================================

//====================== RANDOMIZE THE BACKGROUND + MUSIC  =====================================================

BACK_TEXTURE = RND(NUM_OF_BACKGROUNDS -1) + 15
//	for count = 0 to 4
//	     TEXTURE OBJECT COUNT + 3,BACK_TEXTURE
//	NEXT
	
	TEXTURE OBJECT 999,BACK_TEXTURE
	STOP SOUND BACK_MUSIC
	BACK_MUSIC = RND(NUM_OF_MUSICS - 1) + 4
	LOOP SOUND BACK_MUSIC

for count = 0 to 10
		WORLD(count).position.x =  (xleft + 100) + rnd(xright - 100)
		WORLD(count).position.z =  (ztop) - rnd(screen height())
		POSITION OBJECT count + 3,WORLD(count).position.x,100,WORLD(count).position.z
        TEXTURE OBJECT count + 3, BACK_TEXTURE
    NEXT

//====================RESET PLAYER POSITION AND HEALTH ==========================================================

PLAYERS(1).HEALTH = 100
	PLAYERS(2).HEALTH = 100
	POSITION OBJECT PLAYER_1,xleft,100,0
	POSITION OBJECT PLAYER_2,xright,100,0
	SHOW OBJECT PLAYERS
	
	SET TEXT SIZE 20
	
	HIDE SPRITE 6
	HIDE SPRITE 7
ENDFUNCTION

function _UPDATE_PLAYER()

PLAYERS(1).POSITION.X = OBJECT POSITION X(PLAYER_1):PLAYERS(1).POSITION.Y = OBJECT POSITION Y(PLAYER_1):PLAYERS(1).POSITION.Z = OBJECT POSITION Z(PLAYER_1) 
	PLAYERS(2).POSITION.X = OBJECT POSITION X(PLAYER_2):PLAYERS(2).POSITION.Y = OBJECT POSITION Y(PLAYER_2):PLAYERS(2).POSITION.Z = OBJECT POSITION Z(PLAYER_2) 
    
    POSITION OBJECT PLAYER_1,PLAYERS(1).POSITION.X, PLAYERS(1).POSITION.Y, PLAYERS(1).POSITION.Z	
    POSITION OBJECT PLAYER_2,PLAYERS(2).POSITION.X, PLAYERS(2).POSITION.Y, PLAYERS(2).POSITION.Z
             
    INK RGB(255,0,0):BOX 0,SCREEN HEIGHT() - 30,200,SCREEN HEIGHT() -10
    INK RGB(255,0,0):BOX SCREEN WIDTH() -200, SCREEN HEIGHT() - 30,SCREEN WIDTH() ,SCREEN HEIGHT() - 10 
    
    INK RGB(0,255,0):BOX 0,SCREEN HEIGHT() - 30 ,(PLAYERS(1).HEALTH*2),SCREEN HEIGHT() - 10 
    INK RGB(0,255,0):BOX SCREEN WIDTH() - (PLAYERS(2).HEALTH*2),SCREEN HEIGHT() - 30,SCREEN WIDTH() ,SCREEN HEIGHT() - 10  
  	
endfunction

+ Code Snippet

Rem Project: Game
Rem Created: Monday, November 13, 2017
Rem ***** Main Source File *****

GLOBAL DEBUG = FALSE


SYNC ON:CLS 0:SYNC RATE 60

SET DISPLAY MODE 1000,800,32
COLOR BACKDROP 0,0,0
SET WINDOW POSITION 0,0
MAXIMIZE WINDOW 


type Vector2
	X as float
	y as float
endtype

type Vector3
	X as float
	y as float
	z as float
endtype

type Vector4
	X as float
	y as float
	z as float
	w as float
endtype

Type Physical_body
	Mass as float
	Friction as float
	Speed as float
	Angle as float
endtype

type Platform
	position as vector3
	Height as integer
	SURFACE AS Physical_body
endtype

type player
	HEALTH as integer
	SCORE as integer
	SPEED as float
	POSITION as Vector3
	VELOCITY as Vector3 
	FORCE AS Vector3
	JUMP_FLAG as boolean  
	FALLING_FLAG as boolean  	
	DELTA_TIME as float
	MASS as float
endtype


type PROJECTILE
    POSITION AS VECTOR3
    VELOCITY AS VECTOR3
    LIFE_SPAN
endtype


Dim PLAYERS(2) as player
Dim World(10) as Platform


#constant Player_1  1 
#constant Player_2  2 


#constant TRUE 1
#constant FALSE 0


#constant xleft   = -300
#constant xright  =  800
#constant ztop    =  350
#constant zbottom = -420

//-------------- Physics Defines -----------------------------------------

GLOBAL GRAVITATIONAL_FORCE AS FLOAT
GLOBAL DELTA_TIME  AS FLOAT
GLOBAL X_ACCELERATION  AS FLOAT
GLOBAL Y_ACCELERATION  AS FLOAT
GLOBAL Z_ACCELERATION  AS FLOAT
GLOBAL CURRENT_TIME
GLOBAL PREVIOUS_TIME = TIMER()

//-------------- Keyboard Defines -----------------------------------------

GLOBAL SPACEKEY_SWITCH
GLOBAL LEFTKEY_SWITCH
GLOBAL RIGHTKEY_SWITCH
GLOBAL UPKEY_SWITCH
GLOBAL DOWNKEY_SWITCH
GLOBAL GLOBAL_TIMER
GLOBAL FIREKEY2_SWITCH 

//-------------- Projectile Defines

#constant BULLET_OFFSET  200

GLOBAL MAX_PROJECTILES = 300
GLOBAL NUM_OF_PROJECTILES


DIM BULLETS(MAX_PROJECTILES) as PROJECTILE
//__________________LEVEL SETUP ______________________________________________________________________________________________//

#CONSTANT NUM_OF_BACKGROUNDS 5
#CONSTANT NUM_OF_MUSICS 6


GLOBAL PLAYER1WINS
GLOBAL PLAYER2WINS
GLOBAL BACK_MUSIC
GLOBAL BACK_TEXTURE

//______________________________________________________________________________________________________________________________//
//                           Project Creation Date: 11/13/2017
//                           Dependencies: SPARKY COLLISION DLL                                                                                   
//                                                                                                                      
//                                                                                                                      
//                                  MAIN GAME LOOP
//______________________________________________________________________________________________________________________________//


INITIALIZE()

PLAYERS(1).JUMP_FLAG = FALSE 
PLAYERS(1).VELOCITY.X = 0:PLAYERS(1).VELOCITY.Y = 0:PLAYERS(1).VELOCITY.Z = 0
SHOW SPRITE 5
SHOW SPRITE 3
SHOW SPRITE 4

while inkey$() = ""
sync
endwhile
HIDE SPRITE 3
HIDE SPRITE 4
HIDE SPRITE 5

WHILE KEYSTATE(1) = 0
//  SET CURSOR SCREEN WIDTH() / 2, 10
 //   PRINT BACK_TEXTURE
 //   SET CURSOR 0,0
    
   _INPUT_HANDLER()
   _PHYSICS()
   _COLLISION_HANDLER()
   _UPDATE_PLAYER()
   

 //   print "Collision:";PLAYER1collision;"  Frames:"; SCREEN FPS()
//    PRINT "Position X:";PLAYERS(1).POSITION.X;"  Y:";PLAYERS(1).POSITION.Y ; "  Z:";PLAYERS(1).POSITION.Z
//    PRINT "HIT:"; OBJECT COLLISION(PLAYER_1,0)
    
    SET TEXT SIZE 60
    SET TEXT FONT "POLYGON"
SET CURSOR 0, 0
PRINT PLAYER2WINS ;

if PLAYER1WINS < 10 then SET CURSOR 970, 0
if PLAYER1WINS => 10 then SET CURSOR 945, 0
PRINT PLAYER1WINS;
    SET CURSOR 0,0

  sync
ENDWHILE


for count = 0 to 40
    DELETE IMAGE count
    DELETE SOUND count
next


for count= 0 to 2000
	SC_removeObject count
next

exit 






function _INPUT_HANDLER()


`==================PLAYER 1============================================================================================

	If spacekey() = TRUE AND PLAYERS(1).JUMP_FLAG = FALSE                       
	     SPACEKEY_SWITCH = TRUE
	endif

	if SPACEKEY_SWITCH = TRUE and SPACEKEY() = FALSE 
		SPACEKEY_SWITCH = FALSE													
	   _FIRE_PROJECTILE(PLAYER_1)
	endif
	
	
	//IF KEYSTATE(50) = TRUE
//		_FIRE_PROJECTILE(PLAYER_1)
//	ENDIF
	
	IF leftkey() = true 
	      YROTATE OBJECT PLAYER_1,OBJECT ANGLE Y(PLAYER_1) - 3
	endif
	
	IF rightkey() = true 
		 YROTATE OBJECT PLAYER_1,OBJECT ANGLE Y(PLAYER_1) + 3
	endif
	
	
	
	IF upkey() = true 
		 MOVE OBJECT PLAYER_1,7
		 		 
		 IF OBJECT POSITION Z(PLAYER_1) > ztop THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),ztop
		 IF OBJECT POSITION Z(PLAYER_1) < zbottom THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),zbottom
	     IF OBJECT POSITION X(PLAYER_1)> xright  THEN POSITION OBJECT PLAYER_1, xright, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
		 IF OBJECT POSITION X(PLAYER_1)< xleft  THEN POSITION OBJECT PLAYER_1, xleft, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
	
	endif
	
	IF downkey() = true 
		 MOVE OBJECT PLAYER_1,-7

   	     IF OBJECT POSITION Z(PLAYER_1) > ztop THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),ztop
		 IF OBJECT POSITION Z(PLAYER_1) < zbottom THEN POSITION OBJECT PLAYER_1, OBJECT POSITION X(PLAYER_1),OBJECT POSITION Y(PLAYER_1),zbottom
	     IF OBJECT POSITION X(PLAYER_1)> xright  THEN POSITION OBJECT PLAYER_1, xright, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
		 IF OBJECT POSITION X(PLAYER_1)< xleft THEN POSITION OBJECT PLAYER_1, xleft, OBJECT POSITION Y(PLAYER_1),OBJECT POSITION Z(PLAYER_1)
	endif

`==================PLAYER 2============================================================================================

	If KEYSTATE(33) = TRUE AND PLAYERS(2).JUMP_FLAG = FALSE                       ////AND PLAYERS(1).JUMP_FLAG = FALSE
	    FIREKEY2_SWITCH = TRUE
	endif

	if FIREKEY2_SWITCH = TRUE and KEYSTATE(33) = FALSE 
		FIREKEY2_SWITCH = FALSE													//PLAYERS(1).JUMP_FLAG      = TRUE
	   _FIRE_PROJECTILE(PLAYER_2)
	endif
		
		
//	IF KEYSTATE(50) = TRUE
	//	_FIRE_PROJECTILE(PLAYER_2)
	//ENDIF
	
	
	IF KEYSTATE(30) = true 
	      YROTATE OBJECT PLAYER_2,OBJECT ANGLE Y(PLAYER_2) - 3
	endif
	
	
	IF KEYSTATE(32) = true 
		 YROTATE OBJECT PLAYER_2,OBJECT ANGLE Y(PLAYER_2) + 3
	endif
	
	
	IF KEYSTATE(17) = true 
	
		 MOVE OBJECT PLAYER_2,7
		 
   	     IF OBJECT POSITION Z(PLAYER_2) > ztop THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),ztop
		 IF OBJECT POSITION Z(PLAYER_2) < zbottom THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),zbottom
	     IF OBJECT POSITION X(PLAYER_2)> xright  THEN POSITION OBJECT PLAYER_2, xright, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
		 IF OBJECT POSITION X(PLAYER_2)< xleft  THEN POSITION OBJECT PLAYER_2, xleft, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
	
	endif
	
	IF KEYSTATE(31) = true 
	
		 MOVE OBJECT PLAYER_2,-7
		 
   	     IF OBJECT POSITION Z(PLAYER_2) > ztop THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),ztop
		 IF OBJECT POSITION Z(PLAYER_2) < zbottom THEN POSITION OBJECT PLAYER_2, OBJECT POSITION X(PLAYER_2),OBJECT POSITION Y(PLAYER_2),zbottom
	     IF OBJECT POSITION X(PLAYER_2)> xright  THEN POSITION OBJECT PLAYER_2, xright, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)
		 IF OBJECT POSITION X(PLAYER_2)< xleft  THEN POSITION OBJECT PLAYER_2, xleft, OBJECT POSITION Y(PLAYER_2),OBJECT POSITION Z(PLAYER_2)

	endif
endfunction


function _PHYSICS() 
   _UPDATE_PROJECTILES()
endfunction

`1.473 <--(GRAVITATIONAL_FORCE * DELTA_TIME)


function _COLLISION_HANDLER()

    XPOS# = OBJECT POSITION X(PLAYER_1)
    YPOS# = OBJECT POSITION Y(PLAYER_1)
    ZPOS# = OBJECT POSITION Z(PLAYER_1)

    HIT = OBJECT COLLISION(PLAYER_1,0)
    
    IF HIT <> 0 
       DEC XPOS#, GET OBJECT COLLISION X()
       DEC ZPOS#, GET OBJECT COLLISION Z()
       PLAYERS(1).POSITION.X = XPOS#
       PLAYERS(1).POSITION.Y = YPOS#  
       PLAYERS(1).POSITION.Z = ZPOS#
    
    	POSITION OBJECT PLAYER_1,XPOS#,YPOS#,ZPOS#
    ENDIF

   
    XPOS# = OBJECT POSITION X(PLAYER_2)
    YPOS# = OBJECT POSITION Y(PLAYER_2)
    ZPOS# = OBJECT POSITION Z(PLAYER_2)
  
    HIT = OBJECT COLLISION(PLAYER_2,0)
    IF HIT <> 0 
        DEC XPOS#, GET OBJECT COLLISION X()
        DEC ZPOS#, GET OBJECT COLLISION Z() 
        
       PLAYERS(2).POSITION.X = XPOS#
       PLAYERS(2).POSITION.Y = YPOS# 
       PLAYERS(2).POSITION.Z = ZPOS# 
 
    	POSITION OBJECT PLAYER_2,XPOS#,YPOS#,ZPOS#
    ENDIF

endfunction


function INITIALIZE()
	
	SET GLOBAL COLLISION ON
	DRAW SPRITES LAST 
	
	LOAD SOUND "FIRE.WAV",1
	LOAD SOUND "HIT.WAV",2
	LOAD SOUND "DEAD.WAV",3
	LOAD SOUND "MUSIC.WAV",4
	LOAD SOUND "TECH.WAV",5
	LOAD SOUND "RETRO.WAV",6
	LOAD SOUND "LOOP.WAV",7
	LOAD SOUND "LOOP2.WAV",8
	LOAD SOUND "RAVE.WAV",9
	
	BACK_MUSIC = RND(NUM_OF_MUSICS -1) + 4
	LOOP SOUND BACK_MUSIC
	
	LOAD IMAGE "player1.bmp",2
	LOAD IMAGE "LAVAPAR.bmp",4
	
	LOAD IMAGE "DEAD.BMP",9
	LOAD IMAGE "LAVAPAR.BMP",10
	LOAD IMAGE "HEALTH.BMP",11
	LOAD IMAGE "splash.png",12
	LOAD IMAGE "presskey.bmp",13
	LOAD IMAGE "ball.png",14
	
	LOAD IMAGE "BLUEG.BMP",15
	LOAD IMAGE "PURPLEG.BMP",16
	LOAD IMAGE "GREENG.BMP",17
	LOAD IMAGE "RAINBOW.BMP",18
	LOAD IMAGE "WALL2.bmp",19
	
	
	LOAD IMAGE "P1DEAD.BMP",30
	LOAD IMAGE "P2DEAD.BMP",31
	
	SPRITE 1, 250,500,9
	SPRITE 2, 0,750,11
	sprite 3,0,0,12
	sprite 4,395,570,13
	sprite 5,700,75,14
	
	SPRITE 6,200,300,30
	SPRITE 7,200,300,31
	
	HIDE SPRITE 6
	HIDE SPRITE 7


    SHOW SPRITE 2:HIDE SPRITE 1

    MAKE_LEVEL()
    
    SET AMBIENT LIGHT 80:COLOR AMBIENT LIGHT RGB(255,255,255)
   
    SET LIGHT RANGE 0,1000 
    POSITION LIGHT 0,650,10,0
    COLOR LIGHT 0,RGB(0,0,255)
    SET DIRECTIONAL LIGHT 0,90,90,90

    AUTOCAM OFF
	GLOBAL_TIMER = TIMER()
    GRAVITATIONAL_FORCE = .1

	POSITION CAMERA 250,800,-50
	POINT CAMERA 250,0,-50
	
    PLAYERS(1).HEALTH = 100: PLAYERS(2).HEALTH = 100	
    
`==================PLAYER 1============================================================================================

	MAKE OBJECT sphere PLAYER_1,30 	
	TEXTURE OBJECT PLAYER_1, 2
	MAKE OBJECT CYLINDER 1000,10
	SET OBJECT CULL 1000,1
	XROTATE OBJECT 1000,90
	FIX OBJECT PIVOT 1000
	ZROTATE OBJECT 1000,90
	MAKE MESH FROM object 1,1000
	ADD LIMB PLAYER_1,1,1
	OFFSET LIMB PLAYER_1,1, 0,0,15

    DELETE OBJECT 1000
    
`==================PLAYER 2============================================================================================
	
	MAKE OBJECT sphere PLAYER_2,30 //,26,26
	TEXTURE OBJECT PLAYER_2, 2
	MAKE OBJECT CYLINDER 1000,10
	SET OBJECT CULL 1000,1
	XROTATE OBJECT 1000,90
	FIX OBJECT PIVOT 1000
	ZROTATE OBJECT 1000,90
	XROTATE OBJECT PLAYER_2,180
	
	MAKE MESH FROM object 1,1000
	ADD LIMB PLAYER_2,1,1
	OFFSET LIMB PLAYER_2,1, 0,0,15
		
    DELETE OBJECT 1000

`=======================================================================================================================

	POSITION OBJECT PLAYER_1,xleft,100,0
	POSITION OBJECT PLAYER_2,xright,100,0

endfunction





function MAKE_LEVEL()
    
    BACK_TEXTURE = RND(NUM_OF_BACKGROUNDS -1) + 15
    
 	for count = 0 to 10
		WORLD(count).position.x =  (xleft + 100) + rnd(xright - 100)
		WORLD(count).position.y = 40
		WORLD(count).position.z =  (ztop) - rnd(screen height())
		WORLD(count).Height     = 150
		WORLD(10).Height     = 150
		WORLD(0).Height     = 150
		MAKE OBJECT cube count + 3,100 
		POSITION OBJECT count + 3,WORLD(count).position.x,100,WORLD(count).position.z
 		
 		SET OBJECT TEXTURE count + 3, 0, 0, 0
        TEXTURE OBJECT count + 3, BACK_TEXTURE
 	    sc_setupobject count + 3, 0, 2
    NEXT 
    
   
   	MAKE OBJECT PLANE 999,1200,1000
	POSITION OBJECT 999,250,50,-100
    TEXTURE OBJECT 999,BACK_TEXTURE
	XROTATE OBJECT 999,90
	SC_SETUPOBJECT 999,0,1
    
endfunction



function _UPDATE_PROJECTILES()

	for count = 0 to MAX_PROJECTILES - 1
	
		IF OBJECT EXIST(COUNT + BULLET_OFFSET) = 1
		
			OLDX# = BULLETS(count).POSITION.X  
			OLDY# = BULLETS(count).POSITION.Y  
			OLDZ# = BULLETS(count).POSITION.Z  
    		BULLETS(count).POSITION.X = OLDX#  + (BULLETS(count).VELOCITY.X * .1)
			BULLETS(count).POSITION.Y = OLDY#  + (BULLETS(count).VELOCITY.Y * .1)
			BULLETS(count).POSITION.Z = OLDZ#  + (BULLETS(count).VELOCITY.Z * .1)
			INC BULLETS(count).LIFE_SPAN
			MOVE OBJECT count + BULLET_OFFSET,10
			HIT = OBJECT COLLISION(count + BULLET_OFFSET,0)
			

			IF HIT <> 0
			    HIDE OBJECT count + BULLET_OFFSET
			    SET OBJECT COLLISION OFF count + BULLET_OFFSET
			ENDIF   
			
			
			IF HIT = 1 
			     PLAY SOUND 2
			     DEC PLAYERS(1).HEALTH,5
                HIDE OBJECT count + BULLET_OFFSET
                IF PLAYERS(1).HEALTH =<0 THEN _PLAYER_DEAD(PLAYER_1)
			ENDIF
			IF HIT = 2
			     PLAY SOUND 2
			     DEC PLAYERS(2).HEALTH,5
                  HIDE OBJECT count + BULLET_OFFSET
                 IF PLAYERS(2).HEALTH =<0 THEN _PLAYER_DEAD(PLAYER_2)
			ENDIF
			
	
			IF BULLETS(count).LIFE_SPAN > 100
				DELETE OBJECT count + BULLET_OFFSET
				BULLETS(count).LIFE_SPAN= 0
				DEC NUM_OF_PROJECTILES
			endif
			
		endif  

	next

endfunction 1




function _FIRE_PROJECTILE(PLAYER)

    PLAY SOUND 1
	COUNT = BULLET_OFFSET
	
	while object exist(count) = 1
		inc count
	endwhile
	
	IF COUNT - BULLET_OFFSET > MAX_PROJECTILES THEN EXITFUNCTION
	
    MAKE OBJECT SPHERE COUNT,5
	color object count, rgb(0,255,0)
    
    ROTATE OBJECT   COUNT, OBJECT ANGLE X(PLAYER) ,OBJECT ANGLE Y(PLAYER),OBJECT ANGLE Z(PLAYER)
 	POSITION OBJECT COUNT, OBJECT POSITION X(PLAYER),100,OBJECT POSITION Z(PLAYER)
	
	MOVE OBJECT COUNT, 25

    DEC count,BULLET_OFFSET
    BULLETS(count).VELOCITY.X = 5

	OLDX# = BULLETS(count).POSITION.X  
	OLDY# = BULLETS(count).POSITION.Y  
	OLDZ# = BULLETS(count).POSITION.Z  
		
	BULLETS(count).POSITION.X = OLDX#  + (BULLETS(count).VELOCITY.X * .1)
	BULLETS(count).POSITION.Y = OLDY#  + (BULLETS(count).VELOCITY.Y * .1)
	BULLETS(count).POSITION.Z = OLDZ#  + (BULLETS(count).VELOCITY.Z * .1)
		
	MOVE OBJECT count + BULLET_OFFSET,1
	SET OBJECT COLLISION ON count + BULLET_OFFSET
endfunction 1

function _PLAYER_DEAD(PLAYERS AS INTEGER)
	DRAW SPRITES LAST 
	
	PLAY SOUND 3
    HIDE OBJECT PLAYERS
	
	IF PLAYERS = 1 THEN SHOW SPRITE 6
	IF PLAYERS = 2 THEN SHOW SPRITE 7

    IF PLAYERS = 1 THEN INC PLAYER1WINS
    IF PLAYERS = 2 THEN INC PLAYER2WINS

//============= RESET ALL THE PROJECTILES ======================================================================
	
	FOR COUNT = 0 TO MAX_PROJECTILES
			BULLETS(count).POSITION.X  = 0
			BULLETS(count).POSITION.Y  = 0
			BULLETS(count).POSITION.Z  = 0
			IF OBJECT EXIST (COUNT + BULLET_OFFSET) = 1 
				POSITION OBJECT (COUNT + BULLET_OFFSET),1000,1000,1000
			ENDIF
	NEXT
//==============================================================================================================	

//====================== SHORT LOOP SO PARTICLES DISPLAY CORRECTLY =============================================

	MAKE PARTICLES 1,10,100,100
	POSITION PARTICLES 1, OBJECT POSITION X(PLAYERS), OBJECT POSITION Y(PLAYERS), OBJECT POSITION Z(PLAYERS)
	FOR G = 0 TO 400
    	SET CURSOR SCREEN WIDTH() / 2 - 180,SCREEN HEIGHT() / 2
		SYNC
	NEXT
//==============================================================================================================	

	WAIT 100
	DELETE PARTICLES 1
//==============================================================================================================	

//====================== RANDOMIZE THE BACKGROUND + MUSIC  =====================================================	

	BACK_TEXTURE = RND(NUM_OF_BACKGROUNDS -1) + 15
//	for count = 0 to 4
//	     TEXTURE OBJECT COUNT + 3,BACK_TEXTURE
//	NEXT
	
	TEXTURE OBJECT 999,BACK_TEXTURE
	STOP SOUND BACK_MUSIC
	BACK_MUSIC = RND(NUM_OF_MUSICS - 1) + 4
	LOOP SOUND BACK_MUSIC

 	for count = 0 to 10
		WORLD(count).position.x =  (xleft + 100) + rnd(xright - 100)
		WORLD(count).position.z =  (ztop) - rnd(screen height())
		POSITION OBJECT count + 3,WORLD(count).position.x,100,WORLD(count).position.z
        TEXTURE OBJECT count + 3, BACK_TEXTURE
    NEXT 



//====================RESET PLAYER POSITION AND HEALTH ==========================================================

    PLAYERS(1).HEALTH = 100
	PLAYERS(2).HEALTH = 100
	POSITION OBJECT PLAYER_1,xleft,100,0
	POSITION OBJECT PLAYER_2,xright,100,0
	SHOW OBJECT PLAYERS
	
	SET TEXT SIZE 20
	
	HIDE SPRITE 6
	HIDE SPRITE 7
ENDFUNCTION




function _UPDATE_PLAYER()

	PLAYERS(1).POSITION.X = OBJECT POSITION X(PLAYER_1):PLAYERS(1).POSITION.Y = OBJECT POSITION Y(PLAYER_1):PLAYERS(1).POSITION.Z = OBJECT POSITION Z(PLAYER_1) 
	PLAYERS(2).POSITION.X = OBJECT POSITION X(PLAYER_2):PLAYERS(2).POSITION.Y = OBJECT POSITION Y(PLAYER_2):PLAYERS(2).POSITION.Z = OBJECT POSITION Z(PLAYER_2) 
    
    POSITION OBJECT PLAYER_1,PLAYERS(1).POSITION.X, PLAYERS(1).POSITION.Y, PLAYERS(1).POSITION.Z	
    POSITION OBJECT PLAYER_2,PLAYERS(2).POSITION.X, PLAYERS(2).POSITION.Y, PLAYERS(2).POSITION.Z
             
    INK RGB(255,0,0):BOX 0,SCREEN HEIGHT() - 30,200,SCREEN HEIGHT() -10
    INK RGB(255,0,0):BOX SCREEN WIDTH() -200, SCREEN HEIGHT() - 30,SCREEN WIDTH() ,SCREEN HEIGHT() - 10 
    
    INK RGB(0,255,0):BOX 0,SCREEN HEIGHT() - 30 ,(PLAYERS(1).HEALTH*2),SCREEN HEIGHT() - 10 
    INK RGB(0,255,0):BOX SCREEN WIDTH() - (PLAYERS(2).HEALTH*2),SCREEN HEIGHT() - 30,SCREEN WIDTH() ,SCREEN HEIGHT() - 10  
  	
endfunction

DOWNLOAD IS 2 POST DOWN, It Keeps Saying Its Already Attached to This Post.

PLAYER 1
ARROW KEYS AND SPACE TO FIRE

PLAYER 2
AWSD and F for fire

Back to top

Profile PM Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 19th Nov 2017 23:46

Link

I am having Issues Uploading the EXE can anyone help please

I click chose file, then Attach and it just says file is attached and will be shown shortly or it just goes back to No File Chosen most of the time. What do I do.
Worst case I will upload a Zip that contains the Media Files as well so It can be compiled but I don't want to do that I just want everyone to be able to download and play my little game with no hassle.

Back to top

Profile PM Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 20th Nov 2017 00:06

Link

What is the Max File Size?

It is 29 MB.

It feels large to me but the Media is what does it even if I really don't have very much. That's something I wanted to ask everyone. How can I shrink the size of an Exe in Darkbasic. They seem Exceptionally large with even the smallest of programs being at least 4 or 5mb for seemingly no reason at all. Why so bloated?

Back to top

Profile PM Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 20th Nov 2017 03:32 Edited at: 20th Nov 2017 03:46

Link

Wooohooo

I changed out all the music files to MP3 and changed as many images as I could from BMP to PNG but the PNG are not transparent so some sprites had to stay BMP, Either way here is the game

ENJOY

PS: I just wanted to tell everyone because I seen it on the forums but the post was over 90 days and locked so I could not respond, The IDE is terrible at loading media files, its slow and tedious, A much better way to add media to your project is to Add a single media file to your project then open the DBPro project file in a text editor and you will see a line for the Media showing the path. There will be lines saying
media1..2.. etc = and your file name. Just add the appropriate number and file name and when you load your project your media file will be included.

Attachments

Login to view attachments

Back to top

Profile PM Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 20th Nov 2017 08:24 Edited at: 22nd Nov 2017 23:54

Link

Oh man I am so excited, I know its something stupid and prob something everyone else has known for a while but I finally figured it out all by myself when everything I have seen online said I cant do it without getting the normal of the surface of collision but instead I managed to make pretty accurate bouncing of the bullets without really knowing the normal of the collision surface,

These simple lines of code worked exactly how I expected it to which is surprising lol because nothing works the way I expect it to the first time around lol.
HIT= object collision

+ Code Snippet

 YROTATE OBJECT BULLET, -OBJECT ANGLE Y( BULLET)
 XL =  (OBJECT POSITION X(HIT) - (OBJECT SIZE(HIT) / 2)) 
XR =  (OBJECT POSITION X(HIT) + (OBJECT SIZE(HIT) / 2))
IF OBJECT POSITION X(BULLET) > XL AND OBJECT POSITION X(BULLET) <  XR THEN YROTATE OBJECT BULLET, (OBJECT ANGLE Y(BULLET) + 180)

If hitting the side of the wall you simply invert the angle and wrapvalue to get the correct angle needed, however this does not work when you hit the top or bottom so you simply check to see if the X value of the bullet is within the range to be hitting the top or bottom and if it is you take the Inverted angle and rotate it by 180 degrees to get the correct angle. It works like a charm on square objects and I couldn't be happier right now

. Here is the Updated EXE with Reflecting Bullets.... I guess this would be considered V 1.1

Battle Ballz V 1.1

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Attachments

Login to view attachments

Back to top

Profile PM Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 22nd Nov 2017 23:33

Link

Careful with distributing .mp3, that format has licensing requirements. .ogg is comparable and free to use

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 22nd Nov 2017 23:50 Edited at: 22nd Nov 2017 23:52

Link

The Format itself carries Licensing issues?

I got the Music off of Public Domain sites but your saying I might run into problems just using MP3 format in general right?

If that is the case thanks for the heads up I had absolutely no idea that common file formats at all might carry issues with them. I always viewed then as things like BMP and being totally Public Domain.

I did consider the 3 sound effects that I used since they may very well be copyrighted. But that was just the HIT, DEATH, and FIRE wavs gotten From an old MegaMan Game and had every intention of changing them if I ever decided to distribute the game. I just put them in there because my son is currently addicted to playing old Mega Man games and I thought what a better way to get him interested in programming then to have it play out and sound like his favorite game.

I really wouldn't mind putting the game out to the world since its simple, fun, and better then most of the flash games my kids play but I don't have the foggiest idea how I would go about releasing the game. If it were in flash format Im sure I could upload it to various game sites but what about simple EXE like this one that are made in Darkbasic (or even C++ for that matter) what would be the best way to distribute the game so other people can enjoy it as well. I don't really have any desire to make money off of it or nothing like that( although I wouldn't complain lol) but like my son said when we got done the project,

"Why are we putting so much effort into something no one is ever going to get to play"

After attempting to explain to him the over all joys of programming just to program (LMAO which must sound funny to him after watching me cuss at the programs I am trying to write day in and day out), I have to say his words hit home. I would love to put this somewhere for other people to play. Is their any way, or place that you guys know of which I could do that?

PS: OGG LOADS using the LOAD MUSIC and SOUND commands in DBPro?

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 23rd Nov 2017 01:27

Link

Hmm interesting, it looks like the last of the patents expired this year and the licensing program had been discontinued.

The legalities of using mp3 format have always been a bit complicated.

I don't know if dbpro loads ogg natively but there are several audio plugins that can use it

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Chris Tate

DBPro Master

15

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 23rd Nov 2017 01:59

Link

I think the MP3 patent for the licence expired in 2012

, let's do a little Google search.

https://en.wikipedia.org/wiki/MP3#Licensing.2C_ownership_and_legislation
https://www.theregister.co.uk/2017/05/16/mp3_dies_nobody_noticed/

https://www.iis.fraunhofer.de/en/ff/amm/prod/audiocodec/audiocodecs/mp3.html

Quote: "On April 23, 2017, Technicolor's mp3 licensing program for certain mp3 related patents and software of Technicolor and Fraunhofer IIS has been terminated.

We thank all of our licensees for their great support in making mp3 the defacto audio codec in the world, during the past two decades.

The development of mp3 started in the late 80s at Fraunhofer IIS, based on previous development results at the University Erlangen-Nuremberg. Although there are more efficient audio codecs with advanced features available today, mp3 is still very popular amongst consumers. However, most state-of-the-art media services such as streaming or TV and radio broadcasting use modern ISO-MPEG codecs such as the AAC family or in the future MPEG-H. Those technologies, that have been developed with major contributions from Fraunhofer IIS, can deliver more features and a higher audio quality at much lower bitrates compared to mp3.

Further details about the termination of the mp3 licensing program by Technicolor and Fraunhofer are available here.

For more information about mp3’s successful history, please visit www.mp3-history.com"

Take it as you may. MP3 is not the only audio format, and by no means the best.

Back to top

Profile PM Email Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 23rd Nov 2017 02:25

Link

Definitely interesting, even if they are now free its something to keep in mind because in all honesty I never considered a file format to carry a copyright even though in retrospect I guess its obvious.

I have been scanning the web and not gotten any clear answers and Chris response has delivered more information on the topic then half hour or so of googling has.

Thank you all for letting me know because it just means I will be careful whenever, if ever I make something I decide to release.

Still any suggestions on an outlet for simple games like this? There has to be someplace developers can place simple games if for nothing else to test the reception of it before moving in any other direction.

I so want to make this a Net game sometime and make it a FPS so the two players are in a maze and chasing each other around, I think it would be a fun little addition to make that mode into the game but I have never done any sort of net programming so I have been reading up on it lately in hopes to one day incorporate it.

Whatcha guys think bout the game itself though, Is the game play smooth enough, Music tolerable, Graphics etc?

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 23rd Nov 2017 05:46

Link

game does not launch on my machine. No errors, windows asks if I want to allow it to run, but then no process ever starts in task manager. Windows 10 pro, creators update.

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 23rd Nov 2017 09:26

Link

Hmm, Thanks, that's odd. Im sort of new to DB so have you ever heard tell of similar things happening with people that might give me a place to look?

It may be the Screen-Mode perhaps? I did have it set to something abnormal and not really standard when I posted it up here not really thinking. My graphics card is old and strange.

I will recompile it after changing the code to detect video cards and local settings before I set any video modes and what not. It will be good practice for me to start doing that sort of thing anyway if I want to move forward since for the couple decades I been programming I have always done so for myself and not really other people so compatibility and error handling was never exactly on my priority list and it just kind of caused me to have some bad habits when It comes to programming.

I believe I have screen mode set on 1000x800 32 bit.

Thank you I will get right on it and see if I can remedy the situation.

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 24th Nov 2017 03:19

Link

I am looking into the Screen Mode now and trying to get my ducks in a row on how to Test for ScreenModes and then Set it but after much thought can this really be the issue?

You said its not even initializing the EXE.

I have Windows 7, could the compiler be adding something to make my program WIN 7 compatible...

I was thinking, Perhaps try running the program in Compatibility mode for Windows 7, I just checked and I do have Launch.exe for DBPro setup to Run in Compatibility Mode for Win 7. IDK if that changes anything about how its Compiled but being relatively unfamiliar with anything of the sorts I am not sure where to start. Try right clicking the EXE --->Properties ---> Compatibility Mode (Windows 7) .

If that does not work would you be willing to attempt a Compile if I uploaded a Zip of the Assets along with the Source Code?

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 24th Nov 2017 03:35

Link

I sorted it out, it is missing the mscvp71 and mscvr71 .dlls these are required by some of the matrix1 plugins, but usually throw some sort of error.

Games plays well enough and I liked the particle effects when destroying the enemy. nice work

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 24th Nov 2017 05:45

Link

Ahh yeah I noticed that when testing my AI on my Cuz computer couple months ago. I didn't realize they were matrix Pluggins though.

How can I fix that, Would I be able to include that with media or some other way so what I need is compiled?

Either way thanks, I almost have it fixed to the point in which it detects the screen mode and sets it to the highest resolution 32 bit Screen Mode, Its something I have needed to start adding to programs for sometime atleast this was the push I needed to ensure future projects are something others can enjoy as well.

So what ya think, not to terrible right, It only took roughly 3 days or so, much of it just gathering and arranging the Media after the main part of the program was finished.

I just learned how to determine the Angle using X,Y positions and the TAN function so soon I can put REAL reflections instead of the type that I performed in the second EXE I posted above. They work OK but still think its always best to use something official instead of a workaround when possible.

I want to make this a NET game but don't have a way to test working on internet. Think it would be so cool being able to play people esp if I could have an option for first person mode.

Like I said it was just a little toy that I made pretty quick but I am going to update it from time to time and slowly build it up. Any suggestions and I will see what I can do to make it happen. I added START and HELP to the Splash screen So if needed someone can click on help and it takes them to a pop up window that tells them the KEYs to use.

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Derek Darkly

12

Years of Service

User Offline

Joined: 22nd Sep 2011

Location: Whats Our Vector, Victor?

Posted: 24th Nov 2017 15:07

Link

My old computer only supports 1024x768.. perhaps take it down to that, or provide that option, and more people in 3rd world countries can enjoy.

Send your parents to noisy sprite demo hell... enter the D-Zone

Back to top

Profile PM

Sedit

6

Years of Service

User Offline

Joined: 3rd Sep 2017

Location: Ghetto of NJ

Posted: 24th Nov 2017 19:56

Link

I think I am going to have it setup to find the closest Video Adaptor with in the range of what I want it to be and use that.

say if I wanted 1000x800 and yours supports 1024x768 then use the one detected on the system that most closely matches that which I desired it to be.

I have it done already and works fine on my system so far,

The Perform Checklist Command for graphics adaptors returns the X size in CheckList Value A the Y in Value B and the Depth into Value C

I just got to change the relative size and position of a couple sprites that I hard coded so that they align correctly when the new video mode is put into place.

I should have just left it at 800x600 which is relatively standard but I was toying with graphics to see how nice I could get it to look right before I released it and never thought to set it back.

Sphere sphere = new Sphere(0.5f);
InsanelyRedundantJava insanelyredundantjava = new InsanelyRedundantJava(Redundancy1, Redundancy2);

Back to top

Profile PM Website

Ortu

DBPro Master

16

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 24th Nov 2017 20:27

Link

those two are microsoft redistributables, recommended they used to be installed to system folder with a larger resdistributable package. most windows 10 systems wont have them though and the recommended method is to just include them with your application in the same directory as the .exe

for display mode, its usually best to just default to the desktop resolution via screen width() and screen height()

You should try to avoid hard code positioning, and instead position relative to screen width() and screen height()

http://games.joshkirklin.com/sulium

A single player RPG featuring a branching, player driven storyline of meaningful choices and multiple endings alongside challenging active combat and intelligent AI.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Simple DBPro Game: BATTLE BALLZ - Let me know what you think!

Attachments

Attachments