making an enemy

BlitzPlus Forums/BlitzPlus Beginners Area/making an enemy

simo	(Posted 2011) [#1]

Hello I'm a new programmer and I'm having trouble with a game I wrote. In my game a bug flys around and you have to shoot it ( I know simple but it's my first game). But right now the bug flys around in this little circle and the player doesn't move. Here is the code for it:

AppTitle "Bug"
Graphics 800,600
AutoMidHandle True 
SetBuffer BackBuffer()
SeedRnd MilliSecs()


Type bullet 
Field x,y
End Type

Type player
Field x,y
End Type

Type fly
Field x,y
Field xv,yv
Field image
End Type

Global player.player = New player
Global fly.fly = New fly


;sounds
Global explodesound=LoadSound("explode.wav")
Global bulletsound=LoadSound("ricochet.wav")

;pictures
Global bugimage=LoadImage("bug.bmp")
Global grassimage=LoadImage("grass.bmp")
Global bulletimage=LoadImage("bullet_red.bmp")
Global flyimage=LoadAnimImage("fly_take1.bmp",64,64,0,4)


Const upkey = 200, downkey = 208, Leftkey = 203, rightkey = 205
Const mselft = 1, spckey = 57
Const movex = 5
Const movey = 5
Const changedirection = 1500

;x and y
 x = 400
 y = 300
fly\x = 400
fly\y = 100
xv = 5
yv = 5



While Not KeyDown(1)
Cls
TileImage grassimage


testkeys()

updatebullets()

DrawImage bugimage,x,y

Flip

Delay 20

Wend

Function testkeys()

If KeyDown(upkey)
	y= y - movey
EndIf

If KeyDown(downkey)
	y = y + movey
EndIf

If KeyDown(leftkey)
	x = x - movex
EndIf

If KeyDown(rightkey)
	x = x +movex 
EndIf


frame = 0

timerbegin = MilliSecs()

timeractive = 0

  
If MilliSecs() >= timerbegin + changedirections

xv = xv + Rand(5,-5)
yv = yv + Rand(5,-5)

timeractive = 0
EndIf

If timeractive = 0
timerbegin = MilliSecs()
timeractive = 1
EndIf 

fly\x = fly\x + xv
fly\y = fly\y + yv


DrawImage flyimage, fly\x, fly\y, frame

frame = frame + 1

If frame > 3 
frame = 0
Else If frame < 0
frame = 3
EndIf  


If MouseHit(mselft) Or KeyHit(spckey)
bullet.bullet = New bullet
bullet\x = x
bullet\y = y
PlaySound bulletsound
EndIf

End Function

Function updatebullets()
For bullet.bullet = Each bullet
bullet\y = bullet\y - 5

If bullet\y < 0
Delete bullet
Else DrawImage bulletimage, bullet\x, bullet\y
EndIf

Next

End Function

Last edited 2012

Yeshu777

(Posted 2011) [#2]

You need to declare x & y as Global.


Global x
Global y

Although it would be better to use the x & y vars that are declared with the player Type.

Best Regards.

simo	(Posted 2011) [#3]

Thank you Yeshu777 it really helped. Now I have another problem :the destroying part(as I said before I'm a noob at this so I will have a lot of problems). This is what I entered for it:
If(ImagesCollide(enemyimage,enemy\x,enemy\y,playerimage,x,y))
End
EndIf

If(ImagesCollide(enemyimage,enemy\x,enemy\y,bulletimage,bullet\x,bullet\y))
End
EndIf

When I put that in it gives me an error message saying "Not enough perameters"

Serpent

(Posted 2011) [#4]

You have to specify frames as well:

If(ImagesCollide(enemyimage,enemy\x,enemy\y,0,playerimage,x,y,0))
End
EndIf 

If(ImagesCollide(enemyimage,enemy\x,enemy\y,0,bulletimage,bullet\x,bullet\y,0))
End
EndIf

simo	(Posted 2011) [#5]

Alright I did that but now it's giving another error message saying "variable must be a type"

simo	(Posted 2011) [#6]

Does anybody know what that means?

big10p

(Posted 2011) [#7]

Your enemy and/or bullet type variables aren't visible where you have that code (inside a function?). As such, blitz defaults to creating the variables as integers, which is why you're being told they need to be a type when using the \ (as in enemy\x).

simo	(Posted 2011) [#8]

Sorry I don't get it.

big10p

(Posted 2011) [#9]

Post the code you have so far and I'll try and explain things a bit better.

Last edited 2011

simo	(Posted 2011) [#10]

I was able to figure one of the things out but now i can't shoot so this is the code so far:

Graphics 800,600
AutoMidHandle True
SetBuffer BackBuffer()

Type bullet
Field x,y
End Type

Type player 
Field x,y
End Type

Type enemy
Field enemyx,enemyy
Field enemyxv,enemyyv
Field image
End Type

player.player = New player
enemy.enemy = New enemy
Global playerimage = LoadImage("enemyship.bmp")
Global bulletimage = LoadImage("laser1.bmp")
Global starsimage = LoadImage("stars.bmp")
Global enemyimage = LoadImage("spaceship.bmp")
Global explodesound = LoadSound("explode.wav")
Global bulletsound = LoadSound("ricochet.wav")
Global x = 400
Global y = 300
Global enemyx = 400
Global enemyy = 100

enemyxv = 5
enemyyv = 5

 
Const Leftkey = 203, rightkey = 205, upkey = 200, downkey = 208
Const spcbar = 57, mseleft = 1
Const movex = 5
Const movey = 5
Const changedirections = 1500


While Not KeyDown(1)

Cls
TileImage starsimage

DrawImage enemyimage, enemyx, enemyy


If ImagesCollide(bulletimage,bulletx,bullety,0,enemyimage,enemyx,enemyy,0)
PlaySound(explodesound)
End 
EndIf 

If ImagesCollide(playerimage,x,y,0,enemyimage,enemyx,enemyy,0)
PlaySound(explodesound)
End 
EndIf 



enemyx = enemyx + enemyxv
enemyy = enemyy + enemyyv

If enemyx < 0
 enemyxv = -enemyxv
EndIf

If enemyx > 800
 enemyxv = -enemyxv
EndIf 

If enemyy < 0
enemyyv = -enemyyv
EndIf 

If enemyy > 600
enemyyv = -enemyyv
EndIf

testkeys()

updatebullets()

DrawImage playerimage,x,y

Flip

Delay 20

Wend

Function testkeys()

If KeyDown(upkey)
	y=y - movey
EndIf
	
If KeyDown(downkey)
	y = y + movey
EndIf

If KeyDown(leftkey)
	x = x - movex
EndIf

If KeyDown(rightkey)
	x = x + movex
EndIf

If x < 0
 x = 0
EndIf

If x > 800
 x = 800
EndIf 

If y < 0
y = 0
EndIf 

If y > 600
y = 600
EndIf 

If KeyHit(spcbar) Or KeyHit(mseleft)
bullet.bullet = New bullet
bulletx = x
bullety = y
PlaySound(bulletsound)
EndIf

End Function

Function updatebullets()
For bullet.bullet = Each bullet
bullety = bullety - 5

If bullety => 0
Delete bullet
Else DrawImage(bulletimage,bulletx,bullety)
EndIf

Next 

End Function

Last edited 2012

big10p

(Posted 2011) [#11]

You were basically getting in a muddle with your global and type field variables. Try this:

AutoMidHandle True
SetBuffer BackBuffer()

Type bullet
	Field x,y
End Type

Type player
	Field x,y
End Type

Type enemy
	Field x,y
	Field xv,yv
	;Field image
End Type

Global player.player = New player
player\x = 400
player\y = 300

Global enemy.enemy = New enemy
enemy\x = 400
enemy\y = 100
enemy\xv = 5
enemy\yv = 5

Global playerimage = LoadImage("enemyship.bmp")
Global bulletimage = LoadImage("laser1.bmp")
Global starsimage = LoadImage("stars.bmp")
Global enemyimage = LoadImage("spaceship.bmp")
Global explodesound = LoadSound("explode.wav")
Global bulletsound = LoadSound("ricochet.wav")

Const Leftkey = 203, rightkey = 205, upkey = 200, downkey = 208
Const spcbar = 57, mseleft = 1
Const movex = 5
Const movey = 5
Const changedirections = 1500


While Not KeyDown(1)

	Cls

	TileImage starsimage
	
	updateplayer()
	
	updatebullets()

	updateenemy()
		
	Flip
	
	Delay 20
	
Wend



Function updateenemy()

	enemy\x = enemy\x + enemy\xv
	enemy\y = enemy\y + enemy\yv
	
	If enemy\x < 0
		enemy\xv = -enemy\xv
	EndIf
	
	If enemy\x > 800
		enemy\xv = -enemy\xv
	EndIf
	
	If enemy\y < 0
		enemy\yv = -enemy\yv
	EndIf
	
	If enemy\y > 600
		enemy\yv = -enemy\yv
	EndIf

 	DrawImage enemyimage, enemy\x, enemy\y

End Function



Function updateplayer()

	If ImagesCollide(playerimage,player\x,player\y,0,enemyimage,enemy\x,enemy\y,0)
		PlaySound(explodesound)
		End
	EndIf

	If KeyDown(upkey)
		player\y = player\y - movey
	EndIf
	
	If KeyDown(downkey)
		player\y = player\y + movey
	EndIf
	
	If KeyDown(leftkey)
		player\x = player\x - movex
	EndIf
	
	If KeyDown(rightkey)
		player\x = player\x + movex
	EndIf
	
	If player\x < 0
		player\x = 0
	EndIf
	
	If player\x > 800
		player\x = 800
	EndIf
	
	If player\y < 0
		player\y = 0
	EndIf
	
	If player\y > 600
		player\y = 600
	EndIf
	
	If KeyHit(spcbar) Or KeyHit(mseleft)
		bullet.bullet = New bullet
		bullet\x = player\x
		bullet\y = player\y
		PlaySound(bulletsound)
	EndIf

	DrawImage playerimage,player\x,player\y

End Function



Function updatebullets()

	For bullet.bullet = Each bullet
	
		If ImagesCollide(bulletimage,bullet\x,bullet\y,0,enemyimage,enemy\x,enemy\y,0)
			PlaySound(explodesound)
			End
		EndIf
		
		bullet\y = bullet\y - 5
	
		If bullet\y <= 0
			Delete bullet
		Else
			DrawImage(bulletimage,bullet\x,bullet\y)
		EndIf
	
	Next

End Function

simo	(Posted 2011) [#12]

Thank you so much its finally working.

simo	(Posted 2012) [#13]

Alright I have more questions :P
I have just been updating the same game as before

My first question is: How do I make levels?
I have been trying to figure it out so the game won't compile correctly right now.

My second question is: How do I get animated images in my game?
I have the picture and a frame variable called already.

And my last question a of right now is:Do you have any tips to organize my code?
Right now it is all sloppy and I want it to look better.

Thank you you have been a lot of help on this game,

Simo

simo	(Posted 2012) [#14]

Here is the code for the game:

;Title
AppTitle "Aliens!"

;set graphice to 800 pixels by 600 pixels
Graphics 800,600

;sets enemy velocity (First thing when you play)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While Not KeyHit(entkey)
 Flip 
Cls 


Text 275,200,"Press up to go faster"
Text 275,212,"Press down to go slower"
Text 275,224,"Then press enter"
Text 275,236,velocity

If KeyHit(upkey)
velocity = velocity + 5
If velocity => 50
velocity = 50
EndIf 
EndIf

If KeyHit(downkey)
velocity = velocity - 5
If velocity <= 0
velocity = 0
EndIf
EndIf 


Wend 


;make it so it grabs the picture in the corner
AutoMidHandle True
SetBuffer BackBuffer()


;;;;;TYPES;;;;;
Type bullet
	Field x,y
End Type

Type player
	Field x,y
	Field frame
End Type

Type enemy
	Field x,y
	Field xv,yv
	Field image
End Type


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;PICTURES;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Global playerimage = LoadImage("enemyship.bmp")
Global bulletimage = LoadImage("laser1.bmp")
Global backgroundimageclose = LoadImage("stars.bmp")
Global backgroundimagefar = LoadImage("starsfarther.bmp")
Global enemyimage = LoadImage("spaceship.bmp")
Global titleimage = LoadImage("Aliens Title.bmp")
Global enterimage = LoadImage("Enterimage.bmp")
Global explodeimage = LoadAnimImage("explosion2.bmp",512,64,0,8)
Global panimimage = LoadAnimImage("Enemy1_V1.bmp",680,38,0,9)

;sounds/music
Global explodesound = LoadSound("explode.wav")
Global bulletsound = LoadSound("ricochet.wav")

;other globals
Global ammo = 10
Global level = 1

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;KEYS;;;;;;;;;;;;;;
Const Leftkey = 203, rightkey = 205, upkey = 200, downkey = 208
Const spcbar = 57, mseleft = 1
Const pkey = 25, rkey = 19
Const entkey = 28

;sets how much the player moves if he/she presses up/down/left/right
Const movex = 10
Const movey = 10


Global player.player = New player;creates the player;
Global enemy.enemy = New enemy;creates the enemy





;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;*****OTHER VARIABLES*****;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;for background
scrolly = 0

;makes a milli second timer for the point system
oldmilli = MilliSecs()

;if I add a countdown to make it harder
countdown = MilliSecs();Ignore this


timer = 10  ;Time timer

;plays the music
music = PlayMusic("Interim Nation - Future Experience.mp3")

;draws the title image for 1.5 seconds
Cls 
DrawImage(titleimage,400,300)
Flip

Delay 1500
;clears the screen
Cls

;draws the enter image and waits for you to press enter
While Not KeyHit(57)
DrawImage(enterimage,400,300)
Flip 
Wend
Cls 
	initializelevel()


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;****************Main program*****************;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;while you don't press esc
While Not KeyDown(1)
 ;;;;;;;;;;;;;;;;;;;;;;;;;;Draws the background;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		TileBlock backgroundimageclose,0,scrolly
	TileBlock backgroundimagefar,0,scrolly*2

	scrolly = scrolly + 3
	
	If scrolly >= ImageHeight(backgroundimageclose )
		scrolly = 0


		EndIf 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;Timer setup;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If MilliSecs() - countdown > 0 Then timer = timer - 1000: oldmilli = MilliSecs()

Text 0,24,"Time: " + timer / 1000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

		
;flips the buffers
	Flip
	
;has a 20 millisecond delay
	Delay 20
	
	;if you hit p it pauses the game
	If KeyHit(pkey)
;clear screen
Cls


;draws this on the blank screen
Text 325,300,"You have pause the game"
Text 325,250,"Press r to resume."

Flip
;waits until you press r
While Not KeyDown(rkey)
Wend

EndIf

Wend
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;*****************INITIALIZELEVEL()*******************
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function initializelevel()

;Text 400,300,"Now entering level... " + level
;Flip


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;FUNCTIONS;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	
updatebullets()
updateenemy()
updateplayer()
updateHUD()
;_________________________________________
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
player\x = 400;sets starting x value
player\y = 300;sets starting y value
player\frame = 0;for if I get a animated picture
	

enemy\x = 400;sets starting enemy x value
enemy\y = 100;sets starting enemy y value
enemy\xv = velocity ;sets enemy x speed
enemy\yv = velocity ;sets enemy y speed

DrawImage(playerimage,player\x,player\y)
DrawImage(enemyimage,enemy\x,enemy\y)

End Function 

Function updateenemy()
 

;moves the enemy 
	enemy\x = enemy\x + enemy\xv
	enemy\y = enemy\y + enemy\yv
	;if he hits the left side he goes backwards
	If enemy\x < 0
		enemy\xv = -enemy\xv
	EndIf
	;if he hits the right side he goes backwards
	If enemy\x > 800
		enemy\xv = -enemy\xv
	EndIf
	
	;if he hits the top he goes backwards
	If enemy\y < 0
		enemy\yv = -enemy\yv
	EndIf
	
	;if he hits the bottem he goes backwards
	If enemy\y > 600
		enemy\yv = -enemy\yv
	EndIf

;draws the enemy
 	

End Function



Function updateplayer()

	
If ImagesCollide(playerimage,player\x,player\y,0,enemyimage,enemy\x,enemy\y,0) 

		PlaySound(explodesound)
		Cls 
		Text 350,200,"You lost!!!"
		Text 300,250,"Press any key to continue"
		Flip
		FlushKeys
		WaitKey()
		End  
	EndIf


	If KeyDown(upkey)
		player\y = player\y - movey
	EndIf
	
	If KeyDown(downkey)
		player\y = player\y + movey
	EndIf
	
	If KeyDown(leftkey)
		player\x = player\x - movex
	EndIf
	
	If KeyDown(rightkey)
		player\x = player\x + movex
	EndIf
	
	If player\x < 0
		player\x = 0
	EndIf
	
	If player\x > 800
		player\x = 800
	EndIf
	
	If player\y < 0
		player\y = 0
	EndIf
	
	If player\y > 600
		player\y = 600
	EndIf
	
	If KeyHit(spcbar) Or KeyHit(mseleft)
		bullet.bullet = New bullet
		bullet\x = player\x
		bullet\y = player\y
		PlaySound(bulletsound)
				ammo = ammo - 1
				If ammo =<  0 Then
				Delete bullet
				ammo = 0 
				EndIf 

	EndIf
	
	End Function



Function updatebullets()
	

	For bullet.bullet = Each bullet
	
		If ImagesCollide(bulletimage,bullet\x,bullet\y,0,enemyimage,enemy\x,enemy\y,0)
	PlaySound(explodesound)
	Cls
	Text 350,200,"You Won!!!!!!!"
	Text 300,250,"Press any key to continue"
	Text 300,300,"Please wait while we load level " + level 
	
Flip 
Delay 1500
		
		Cls
		 level = level + 1
		velocity = velocity + 5
				
		
updateplayer()
	updateenemy()
	initializelevel()
	
						EndIf 
					



		bullet\y = bullet\y - 5
	

		If bullet\y <= 0
			Delete bullet
		Else
			DrawImage(bulletimage,bullet\x,bullet\y)
		EndIf
	
	Next
End Function



Function updateHUD()


Text 0,12,"Ammo: " + ammo

;~~~~Ignore this~~~~
;Text 0,24,"Time: " + timer


End Function

mv333

(Posted 2012) [#15]

How do I make levels?

Upload the images and sounds if you can, so we can try the game and see what the level looks like.

How do I get animated images in my game?

Check out the example code from LoadAnimImage

it is all sloppy

; Title
AppTitle "Aliens!"

; set graphice to 800 pixels by 600 pixels
Graphics 800,600

; make it so it grabs the picture in the corner
AutoMidHandle True
SetBuffer BackBuffer()

; TYPES
Type bullet
	Field x,y
End Type

Type player
	Field x,y
	Field frame
End Type

Type enemy
	Field x,y
	Field xv,yv
	Field image
End Type

; PICTURES
Global playerimage = LoadImage("enemyship.bmp")
Global bulletimage = LoadImage("laser1.bmp")
Global backgroundimageclose = LoadImage("stars.bmp")
Global backgroundimagefar = LoadImage("starsfarther.bmp")
Global enemyimage = LoadImage("spaceship.bmp")
Global titleimage = LoadImage("Aliens Title.bmp")
Global enterimage = LoadImage("Enterimage.bmp")
Global explodeimage = LoadAnimImage("explosion2.bmp",512,64,0,8)
Global panimimage = LoadAnimImage("Enemy1_V1.bmp",680,38,0,9)

; sounds/music
Global explodesound = LoadSound("explode.wav")
Global bulletsound = LoadSound("ricochet.wav")

; other globals
Global ammo = 10
Global level = 1

; KEYS
Const Leftkey = 203, rightkey = 205, upkey = 200, downkey = 208
Const spcbar = 57, mseleft = 1
Const pkey = 25, rkey = 19
Const entkey = 28

; creates the player amd enemy
Global player.player = New player
Global enemy.enemy = New enemy

; sets how much the player moves if he/she presses up/down/left/right
Const movex = 10
Const movey = 10



; OTHER VARIABLES

; for background
scrolly = 0

; makes a milli second timer for the point system
oldmilli = MilliSecs()

; if I add a countdown to make it harder
countdown = MilliSecs();Ignore this

; Time timer
timer = 10 



; sets enemy velocity (First thing when you play)
While Not KeyHit(entkey)
	Flip 
	Cls 

	Text 275,200,"Press up to go faster"
	Text 275,212,"Press down to go slower"
	Text 275,224,"Then press enter"
	Text 275,236,velocity

	If KeyHit(upkey)
		velocity = velocity + 5
		If velocity => 50
			velocity = 50
		EndIf 
	EndIf

	If KeyHit(downkey)
		velocity = velocity - 5
		If velocity <= 0
			velocity = 0
		EndIf
	EndIf 
Wend 

; plays the music
music = PlayMusic("Interim Nation - Future Experience.mp3")

; draws the title image for 1.5 seconds
Cls 
DrawImage(titleimage,400,300)
Flip
Delay 1500

; clears the screen
Cls

; draws the enter image and waits for you to press enter
While Not KeyHit(57)
	DrawImage(enterimage,400,300)
	Flip 
Wend

Cls 
initializelevel()




;####################  Main program  ####################

; while you don't press esc
While Not KeyDown(1)

	; Draws the background
	TileBlock backgroundimageclose,0,scrolly
	TileBlock backgroundimagefar,0,scrolly*2

	scrolly = scrolly + 3
	
	If scrolly >= ImageHeight(backgroundimageclose)
		scrolly = 0
	EndIf 

	; Timer setup
	If MilliSecs() - countdown > 0 Then timer = timer - 1000: oldmilli = MilliSecs()

	Text 0,24,"Time: " + timer / 1000

	; flips the buffers
	Flip
	
	; has a 20 millisecond delay
	Delay 20
	
	; if you hit p it pauses the game
	If KeyHit(pkey)
	
		; clear screen
		Cls

		; draws this on the blank screen
		Text 325,300,"You have pause the game"
		Text 325,250,"Press r to resume."

		Flip
		
		; waits until you press r
		While Not KeyDown(rkey)
		Wend

	EndIf
Wend
;####################  End of main program  ####################




; INITIALIZELEVEL()
Function initializelevel()

	;Text 400,300,"Now entering level... " + level
	;Flip

	; FUNCTIONS
	updatebullets()
	updateenemy()
	updateplayer()
	updateHUD()

	player\x = 400;sets starting x value
	player\y = 300;sets starting y value
	player\frame = 0;for if I get a animated picture
	
	enemy\x = 400;sets starting enemy x value
	enemy\y = 100;sets starting enemy y value
	enemy\xv = velocity ;sets enemy x speed
	enemy\yv = velocity ;sets enemy y speed

	DrawImage(playerimage,player\x,player\y)
	DrawImage(enemyimage,enemy\x,enemy\y)
End Function 



Function updateenemy()
 
	; moves the enemy 
	enemy\x = enemy\x + enemy\xv
	enemy\y = enemy\y + enemy\yv
	
	; if he hits the left side he goes backwards
	If enemy\x < 0
		enemy\xv = -enemy\xv
	EndIf
	
	; if he hits the right side he goes backwards
	If enemy\x > 800
		enemy\xv = -enemy\xv
	EndIf
	
	; if he hits the top he goes backwards
	If enemy\y < 0
		enemy\yv = -enemy\yv
	EndIf
	
	; if he hits the bottem he goes backwards
	If enemy\y > 600
		enemy\yv = -enemy\yv
	EndIf
End Function



Function updateplayer()
	If ImagesCollide(playerimage,player\x,player\y,0,enemyimage,enemy\x,enemy\y,0) 
		PlaySound(explodesound)
		Cls 
		Text 350,200,"You lost!!!"
		Text 300,250,"Press any key to continue"
		Flip
		FlushKeys
		WaitKey()
		End  
	EndIf

	If KeyDown(upkey)
		player\y = player\y - movey
	EndIf
	
	If KeyDown(downkey)
		player\y = player\y + movey
	EndIf
	
	If KeyDown(leftkey)
		player\x = player\x - movex
	EndIf
	
	If KeyDown(rightkey)
		player\x = player\x + movex
	EndIf
	
	If player\x < 0
		player\x = 0
	EndIf
	
	If player\x > 800
		player\x = 800
	EndIf
	
	If player\y < 0
		player\y = 0
	EndIf
	
	If player\y > 600
		player\y = 600
	EndIf
	
	If KeyHit(spcbar) Or KeyHit(mseleft)
		bullet.bullet = New bullet
		bullet\x = player\x
		bullet\y = player\y
		PlaySound(bulletsound)
		ammo = ammo - 1
		If ammo =<  0 Then
			Delete bullet
			ammo = 0 
		EndIf 
	EndIf
End Function



Function updatebullets()
	For bullet.bullet = Each bullet
		If ImagesCollide(bulletimage,bullet\x,bullet\y,0,enemyimage,enemy\x,enemy\y,0)
			PlaySound(explodesound)
			Cls
			Text 350,200,"You Won!!!!!!!"
			Text 300,250,"Press any key to continue"
			Text 300,300,"Please wait while we load level " + level 
			Flip 
			Delay 1500
			Cls
			level = level + 1
			velocity = velocity + 5
				
			updateplayer()
			updateenemy()
			initializelevel()
		EndIf 
					
		bullet\y = bullet\y - 5
	
		If bullet\y <= 0
			Delete bullet
		Else
			DrawImage(bulletimage,bullet\x,bullet\y)
		EndIf
	Next
End Function



Function updateHUD()
	Text 0,12,"Ammo: " + ammo

	;~~~~Ignore this~~~~
	;Text 0,24,"Time: " + timer
End Function

Last edited 2012

simo	(Posted 2012) [#16]

How do you upload images and sounds?

Matty

(Posted 2012) [#17]

You need to have some web space available, or use a free hosting service and upload the images and sounds in a zip file to that web space.

You cannot upload files to the blitzforums themselves, but you can upload them somewhere else and link to them.

simo	(Posted 2012) [#18]

How about I just email you, would that be okay? :P

Last edited 2012

simo	(Posted 2012) [#19]

How about I just email you, would that be okay? :P
Sorry it says it twice I accidentally resent it :P

Last edited 2012

Last edited 2012

simo	(Posted 2012) [#20]

Matty?

Matty

(Posted 2012) [#21]

Sorry simo...I wasn't sure how to reply to your post. I don't have a PC at home and use the blitzforums from work. I rarely write programs or develop games anymore (in my spare time that is - I work as a programmer at work and try to avoid it in my spare time now) but I try to help people out on the blitzforum where I can...or discuss things in general discussion.

Sorry I should have responded earlier.

from Matt

NarGarzhvog

(Posted 2012) [#22]

How would you do this if you wanted to make the player.player=new player inside of a function?

psychicbottle

(Posted 2013) [#23]

function Make_Player

P.Player = New Player

P\X = 0
P\Y = 0

End Function

I realize you posted a while ago but you didnt ever get a respponse and I can honestly say I dont know if what I said will work but If I am correct than that is all you need

misth

(Posted 2013) [#24]

psychicbottle, your answer is correct. Although it could be inside code window :D

Type Player
  Field x,y
End Type

Function MakePlayer.Player() ; .Player indicates that the function returns a type-object called Player
  P.Player = New Player

  P\x = 0
  P\y = 0

  Return P
  ; If you want to continue using this player inside this function, you don't have to return it.
End Function