Entries by magicman/Wed. Workshop (SoCoder)

magicman's Wednesday Workshop Entries
More of magicman's stuff.
Blog, Profile, Showcases, Code snippets, Articles, W.W Entries, Recent Posts

Content posted during the past 12 weeks.

35 Entries Latest Entries First
Rubik's Cube

Created for Workshop #128 | Comments (0) | No Votes

A simulation of a Rubik's Cube

Point to a side, then use Left/Right to turn. RMB+Drag to spin the cube.

Click to Download this entry

Black not White

Created for Workshop #127 | Comments (0) | No Votes

Catch the outlined squares, and avoid the filled ones.

Cursors

Show Sourcecode for this entry

Hide Sourcecode

;Start Time 5:30
;Finish Time 5:59
;Total TIme 0:29

;CREATED BY MAGICMAN!!

;ALL YOU HAVE TO DO IS USE THE ARROW KEYS TO GET THE WHITE OUTLINED SQUARES WHILE AVOIDING THE PURE WHITE SQUARES!!!

AppTitle "1 Hour, Well, it only really took 29 minutes"
Graphics 400,600,16,2
AutoMidHandle True
Type part
Field x#,y#,xv#,yv#,c
End Type
Type block
Field x#,y#,xv#,yv#,which
End Type
blockimage1 = CreateImage(20,20)
SetBuffer ImageBuffer(blockimage1)
Color 255,255,255
Rect 0,0,20,20,0
blockimage2 = CreateImage(20,20)
SetBuffer ImageBuffer(blockimage2)
Color 255,255,255
Rect 0,0,20,20,1
player = CreateImage(30,30)
SetBuffer ImageBuffer(player)
Color 255,255,255
Rect 0,0,30,30,0
Global px = 200
Global py = 550
Global score = 0
Global createblock = 0
Global blocktime = 10
Global diffin = 0
SetBuffer BackBuffer()
While Not KeyDown(1)
Cls
SeedRnd MilliSecs()
diffin = diffin + 1
If blocktime > 1
If diffin > 400
blocktime = blocktime - 1
diffin = 0
EndIf
EndIf
createblock = createblock + 1
If createblock => blocktime
b.block = New block
b\x = Rnd(20,380)
b\y = -20
b\xv = Rnd(-2,2)
b\yv = Rnd(3,7)
b\which = Rnd(1,2)
createblock = 0
EndIf
If KeyDown(203) px = px - 6
If KeyDown(205) px = px + 6
If px =< 15 px = px + 6
If px => 385 px = px -6
For b.block = Each block
If ImagesOverlap(player,px,py,blockimage1,b\x,b\y)
If b\which = 2 
score = 0
db = 1
blocktime = 10
EndIf
If b\which = 1 
score = score + 1
For i = 0 To 36
p.part = New part
p\x = b\x
p\y = b\y
p\xv = Cos(angle)*7
p\yv = Sin(angle)*7
p\c = 255
angle = angle + 10
Next
Delete b
EndIf
EndIf
Next
If db = 1
For b.block = Each block
For i = 0 To 36
p.part = New part
p\x = b\x
p\y = b\y
p\xv = Cos(angle)*7
p\yv = Sin(angle)*7
p\c = 255
angle = angle + 10
Next
Delete b
Next
db = 0
EndIf
For p.part = Each part
Color p\c,p\c,p\c
Rect p\x,p\y,2,2
p\x = p\x + p\xv
p\y = p\y + p\yv
p\c = p\c -5
If p\c < 5 Delete p
Next
For b.block = Each block
If b\which = 1 DrawImage blockimage1,b\x,b\y
If b\which = 2 DrawImage blockimage2,b\x,b\y
b\x = b\x + b\xv
b\y = b\y + b\yv
If b\y > 650 Delete b
Next
If score > highscore highscore = score
Color 255,255,255
Text 80,10,"SCORE: " + score
Text 220,10,"HIGHSCORE: " + highscore
DrawImage player,px,py
Flip
Wend
End
;allniceandcompacted,itlookskindoflikeaskylinewhenviewedonitsside!

Shitty Lunar Lander

Created for Workshop #125 | Comments (4) | Rating 75%

Try not to smash into the floor too fast.

Cursors

Show Sourcecode for this entry

Hide Sourcecode

;Started 7:44
;finished 8:16
;Time to make, 32 minutes

AppTitle "SHITTY LUNAR LANDER!"
Graphics 800,600,16,2
AutoMidHandle True

Type part
Field x#,y#,xv#,yv#,c
End Type


Global x# = 400
Global y# = 50
Global xv# = 0
Global yv# = 0

Global gravity# = .1




ship = CreateImage(20,30)
SetBuffer ImageBuffer(ship)
Color 255,255,255
Rect 0,0,20,30,0




Global numpoints 


Global newgame = 0


SetBuffer BackBuffer()

While Not KeyDown(1)
Cls

If newgame = 0
;createscape()
newgame = 1
EndIf




If KeyDown(200) yv = yv - .15

If KeyDown(203) xv = xv -.05
If KeyDown(205) xv = xv + .05


If y > 535 
	If yv > 1 crash = True
	If yv =< 1 crash = False
	land = True
EndIf


If land = True

If crash = False
yv = 0
Text 300,300,"YOU LANDED! PLAY AGAIN? Y/N"


Else


For i = 0 To 36
p.part = New part
p\x = x
p\y = y
p\xv = Cos(angle)*3
p\yv = Sin(angle)*3
p\c = 255
angle = angle + 10
Next

y = -2555
yv = 0

Text 300,300,"YOU CRASHED! PLAY AGAIN? Y/N"




EndIf

If KeyHit(21)
y = 50
x = 400
xv = 0
yv = 0
land = False
EndIf

If KeyHit(49) End

EndIf


DrawImage ship,x,y

x =x + xv
y = y + yv

yv = yv + gravity

Color 255,255,255

Line 0,550,800,550



For p.part = Each part

Color p\c,p\c,p\c
Rect p\x,p\y,12,12,0

p\x = p\x + p\xv
p\y = p\y + p\yv

p\c = p\c - 1
If p\c < 0 Delete p

Next


Delay 1



Flip
Wend
End










Function createscape()
numpoints = Rnd(3,8)

pox = 0
poy = Rnd(400,600)

For i = 0 To numpoints

px = Rnd(50,100)+pox
py = Rnd(400,600)

Color 255,255,255
Line pox,poy,px,py

pox = px
poy = py



Next


End Function

Ball hole!

Created for Workshop #115 | Comments (3) | Rating 100%

Get the ball through the hole.

Spacebar to drop.

Show Sourcecode for this entry

Hide Sourcecode

AppTitle "3.1415926535897932384" ;Pure memory,not to exciting but, meh.
Graphics 800,600,16,2
AutoMidHandle True



ball = CreateImage(30,30)
SetBuffer ImageBuffer(ball)
Color 255,255,255
Oval 0,0,30,30,0

Global ballx# 
Global bally# 
Global ballyv# 
Global ballxv# 
Global ballfall 
Global bn#
Global nb#


wall = CreateImage(800,3)
SetBuffer ImageBuffer(wall)
Color 255,255,255
Rect 0,0,800,3

Global wallx# 
Global wally# 


wall2 = CreateImage(800,3)
SetBuffer ImageBuffer(wall2)
Color 255,255,255
Rect 0,0,800,3

Global wall2x# 
Global wall2y# 


wall3 = CreateImage(100,3)
SetBuffer ImageBuffer(wall3)
Color 255,255,255
Rect 0,0,100,3

Global wall3x# 
Global wall3y#


wall4 = CreateImage(100,3)
SetBuffer ImageBuffer(wall4)
Color 255,255,255
Rect 0,0,100,3

Global wall4x# 
Global wall4y#




Global begin = 1
Global level = 1


SetBuffer BackBuffer()
While Not KeyDown(1)
Cls


If begin = 1 setuplevel()



If KeyHit(57) ballfall = 1



	If ImagesCollide(ball,ballx,bally,0,wall,wallx,wally,0)
	 begin = 1
	 level = 1
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall2,wall2x,wall2y,0)
	 begin = 1
	 level = 1
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall3,wall3x,wall3y,0)
	 begin = 1
	 level = 1	
	EndIf
	
	If ImagesCollide(ball,ballx,bally,0,wall4,wall4x,wall4y,0)
	 begin = 1
	 level = 1	
	EndIf


DrawImage wall,wallx,wally
DrawImage wall2,wall2x,wall2y
DrawImage wall3,wall3x,wall3y
DrawImage wall4,wall4x,wall4y

DrawImage ball,ballx,bally
updateball()


Text 360,10,"LEVEL: " + level

If gameend = 1 

Text 350,300,"Y0|_|  \/\/0|\|"
fin = fin + 1
If fin = 200 End

EndIf

Flip
Wend
End





Function updateball()

	ballx = ballx + ballxv
	bally = bally + ballyv
	
	If ballx > 785 ballxv = -ballxv
	If ballx < 15 ballxv = -ballxv
	
	If ballfall = 1 ballyv = ballyv + .0981
	
	If bally > 700 
		begin = 1
		level = level + 1
	EndIf
End Function


Function setuplevel()

	nb = Rnd(0,1)
	If nb => .5 bn = 3
	If nb < .5 bn = -3

	If level = 1
		wallx = -50
		wally = 500
		wall2x = 850
		wall2y = 500
		wall3x = 0
		wall3y = 900
		wall4x = 0
		wall4y = 900
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf

	If level = 2
		wallx = 330
		wally = 500
		wall2x = 1200
		wall2y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 3
		wallx = -35
		wally = 500
		wall2x = 835
		wall2y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 4
		wallx = -35
		wally = 500
		wall2x = 835
		wall2y = 500
		wall3x = 260
		wall3y = 300
		wall4x = 540
		wall4y = 300			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 5
		wallx = 280
		wally = 500
		wall2x = 1150
		wall2y = 500
		wall3x = 660
		wall3y = 400
		wall4x = 540
		wall4y = 1300			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 6
		wallx = -35
		wally = 300
		wall2x = 835
		wall2y = 300
		wall3x = 260
		wall3y = 500
		wall4x = 540
		wall4y = 500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 7
		wallx = -35
		wally = 80
		wall2x = 835
		wall2y = 80
		wall3x = 260
		wall3y = 1500
		wall4x = 540
		wall4y = 1500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 8
		wallx = -35
		wally = 590
		wall2x = 835
		wall2y = 590
		wall3x = 260
		wall3y = 1500
		wall4x = 540
		wall4y = 1500			
		ballx = 400
		bally = 50
		ballxv = bn
		ballyv = 0
		ballfall = 0
		begin = 0
	EndIf
	
	If level = 9
	
	wallx = 10000
	wall2x = 10000
	wall3x = 10000
	wall4x = 10000
	gameend = 1
	
	EndIf
	
	

End Function

Jolt

Created for Workshop #106 | Comments (0) | No Votes

ok, so its just and asteroids clone, what do you want from me, huh.

Cursors and Spacebar

Show Sourcecode for this entry

Hide Sourcecode

;;;;;;;JOLT!!;;;;;;;;;;created by Chris Davis;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ok, so its just and asteroids clone, what do you want from me, huh.;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Arow keys to move, space to shoot
;the squares are power-ups


AppTitle "JOLT"
Graphics 800,600,16,2
AutoMidHandle True

Type part
	Field x#,y#,xv#,yv#,r#,b#,g#
End Type

Type bullet
	Field x#,y#,xv#,yv#
End Type

Type enemy
	Field x#,y#,xv#,yv#,s
End Type

Type pu
	Field x#,y#,xv#,yv#
End Type

puimage = CreateImage(20,20)
	SetBuffer ImageBuffer(puimage)
	Color 255,130,255
	Rect 0,0,20,20,0

enemyimage = CreateImage(50,50)
	SetBuffer ImageBuffer(enemyimage)
	Color 255,130,255
	Oval 0,0,50,50,0

enemyimage2 = CreateImage(25,25)
	SetBuffer ImageBuffer(enemyimage2)
	Color 255,130,255
	Oval 0,0,25,25,0

enemyimage3 = CreateImage(12,12)
	SetBuffer ImageBuffer(enemyimage3)
	Color 255,130,255
	Oval 0,0,12,12,0

bulletimage = CreateImage(2,2)
	SetBuffer ImageBuffer(bulletimage)
	Color 255,130,255
	Rect 0,0,2,2

Global powerup = 0
Global angle = 1
Global x# = 400
Global y# = 300
Global v# = 0
Global score = 0
Global lives = 3

player = CreateImage(10,20)
SetBuffer ImageBuffer(player)
Color 255,130,255
Line 0,20,5,0
Line 9,20,5,0
Line 0,19,9,19


Const rotate=180                
Dim frames(rotate)
For i=1 To rotate
	frames(i)=CopyImage(player)
	RotateImage frames(i),i*360/rotate
Next

sheildimage = CreateImage(40,40)
	SetBuffer ImageBuffer(sheildimage)
	Color 255,130,255
	Oval 0,0,40,40,0

Global sheild = 1
Global sheildtime = 140

font = LoadFont("neuropol",25,25)

SetFont font

font2 = LoadFont("neuropol",35,35)
font3 = LoadFont("neuropol",15,15)

Global game = 0
Global gameover = 0
Global pv# = 0
Global createpu = 0

SetBuffer BackBuffer()
While Not KeyDown(1)
Cls


If game = 0

newp = Rnd(0,15)
npx = Rnd(0,800)
npy = Rnd(0,600)
pv = Rnd(1,5)

If newp = 7
	For i = 0 To 72
		p.part = New part
		p\x = npx
		p\y = npy
		p\xv = Cos(pangle)*pv
		p\yv = Sin(pangle)*pv
		p\r = 255
		p\g = 130
		p\b = 255
		pangle = pangle + 5
	Next
EndIf



For p.part = Each part
	Color p\r,p\g,p\b
	Rect p\x,p\y,2,2

	p\x = p\x + p\xv
	p\y = p\y + p\yv

	p\g = p\g - 3
	p\r = p\r - 3
	p\b = p\b - 3

	If p\r < 5 p\r = 5
	If p\g < 5 p\g = 5
	If p\b < 5 p\b = 5

	If p\r < 5
		If p\b < 5
			Delete p
		EndIf
	EndIf
Next


Color 255,130,255
SetFont font2
Text 345,30,"JOLT"

SetFont font
Text 305,450,"Press Enter"

SetFont font3 Text 10,580,"Created by Chris Davis"



If KeyHit(28)

game = 1
score = 0
gameover = 0
sheild = 1
sheildtime = 140
x = 400
y = 300
lives = 5
back = 0
v = 0 
powerup = 0

For i = 0 To 25
	e.enemy = New enemy
	e\x = Rnd(-90,890)
	e\y = Rnd(-90,690)
	e\xv = Rnd(-4,4)
	e\yv = Rnd(-4,4)
	e\s = Rnd(1,2)
Next

numleft = 26


EndIf


EndIf



If game = 1

SetFont font


If gameover = 0

If KeyDown(200)
	v = v + .05
EndIf

If Not KeyDown(200)
	v = v -.05
EndIf


If v > 4 v = 4
If v < 0.0 v = 0


If KeyDown(203) angle = angle - 2
If KeyDown(205) angle = angle + 2


If angle => 179 angle = 1
If angle =< 0 angle = 179

x=x+Cos(angle*2-90)*v
y=y+Sin(angle*2-90)*v



If x > 810 x = -9
If x < -10 x = 809
If y > 610 y = -9
If y < -10 y = 609


If KeyHit(57)

	If powerup = 0
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos(angle*2-90)*10
		b\yv = Sin(angle*2-90)*10
	EndIf

	If powerup = 1 
		
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos((angle-3)*2-90)*10
		b\yv = Sin((angle-3)*2-90)*10
	
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos((angle+3)*2-90)*10
		b\yv = Sin((angle+3)*2-90)*10
	EndIf


	If powerup = 2 
		
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos(angle*2-90)*10
		b\yv = Sin(angle*2-90)*10
		
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos((angle-3)*2-90)*10
		b\yv = Sin((angle-3)*2-90)*10
	
		b.bullet = New bullet
		b\x = x
		b\y = y
		b\xv = Cos((angle+3)*2-90)*10
		b\yv = Sin((angle+3)*2-90)*10
	EndIf


EndIf





EndIf




For b.bullet = Each bullet
For e.enemy = Each enemy
	If e\s = 1
		If ImagesOverlap(enemyimage,e\x,e\y,bulletimage,b\x,b\y)
			b\x = 810
			b\xv = 5		
			
			e\s = 2
			e\xv = Rnd(-3,3)
			e\yv = Rnd(-3,3)
			oldx = e\x
			oldy = e\y
			
			For i = 1 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)*2
				p\yv = Sin(pangle)*2
				p\r = 255
				p\b = 255
				p\g = 130
				pangle = pangle + 10
			Next
			
			e.enemy = New enemy 
			e\x = oldx
			e\y = oldy
			e\xv = Rnd(-3,3)
			e\yv = Rnd(-3,3)
			e\s = 2
		
			score = score + 5
			numleft = numleft + 1
		EndIf
	EndIf
Next
Next

For b.bullet = Each bullet
For e.enemy = Each enemy
	If e\s = 2
		If ImagesOverlap(enemyimage2,e\x,e\y,bulletimage,b\x,b\y)
			b\x = 810
			b\xv = 5
			
			e\s = 3
			e\xv = Rnd(-3,3)
			e\yv = Rnd(-3,3)
			oldx = e\x
			oldy = e\y
			
			For i = 1 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)*3
				p\yv = Sin(pangle)*3
				p\r = 255
				p\b = 255
				p\g = 130
				pangle = pangle + 10
			Next

			e.enemy = New enemy 
			e\x = oldx
			e\y = oldy
			e\xv = Rnd(-3,3)
			e\yv = Rnd(-3,3)
			e\s = 3
			
			score = score + 5
			numleft = numleft + 1
			
		EndIf
	EndIf
Next
Next

For b.bullet = Each bullet
For e.enemy = Each enemy
	If e\s = 3
		If ImagesOverlap(enemyimage3,e\x,e\y,bulletimage,b\x,b\y)
			
			For i = 1 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)*2
				p\yv = Sin(pangle)*2
				p\r = 255
				p\b = 255
				p\g = 130
				pangle = pangle + 10
			Next
			
			Delete e
			b\x = 810
			b\xv = 5
			
			score = score + 5
			numleft = numleft - 1
			
		EndIf
	EndIf
Next
Next






For e.enemy = Each enemy

If e\s = 1
	If ImagesCollide(player,x,y,0,enemyimage,e\x,e\y,0)
		lives = lives - 1
		sheild = 1
		sheildtime = 140
			For i = 0 To 180
				p.part = New part
				p\x = x
				p\y = y
				p\xv = Cos(pangle)*3
				p\yv = Sin(pangle)*3
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 2
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next

For e.enemy = Each enemy

If e\s = 2
	If ImagesCollide(player,x,y,0,enemyimage2,e\x,e\y,0)
		lives = lives - 1
		sheild = 1
		sheildtime = 140
			For i = 0 To 180
				p.part = New part
				p\x = x
				p\y = y
				p\xv = Cos(pangle)*3
				p\yv = Sin(pangle)*3
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 2
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next

For e.enemy = Each enemy

If e\s = 3
	If ImagesCollide(player,x,y,0,enemyimage3,e\x,e\y,0)
		lives = lives - 1
		sheild = 1
		sheildtime = 140
			For i = 0 To 180
				p.part = New part
				p\x = x
				p\y = y
				p\xv = Cos(pangle)*3
				p\yv = Sin(pangle)*3
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 2
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next


If sheild = 1

For e.enemy = Each enemy

If e\s = 1
	If ImagesCollide(sheildimage,x,y,0,enemyimage,e\x,e\y,0)
			For i = 0 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)
				p\yv = Sin(pangle)
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 10
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next

For e.enemy = Each enemy

If e\s = 2
	If ImagesCollide(sheildimage,x,y,0,enemyimage2,e\x,e\y,0)
			For i = 0 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)
				p\yv = Sin(pangle)
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 10
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next

For e.enemy = Each enemy
If e\s = 3
	If ImagesCollide(sheildimage,x,y,0,enemyimage3,e\x,e\y,0)
			For i = 0 To 36
				p.part = New part
				p\x = e\x
				p\y = e\y
				p\xv = Cos(pangle)
				p\yv = Sin(pangle)
				p\r = 255
				p\g = 130
				p\b = 255
				pangle = pangle + 10
			Next
		Delete e
		numleft = numleft - 1
	EndIf
EndIf

Next

EndIf



createpu = Rnd(0,200)

If createpu = 10
	pu.pu = New pu
	pu\x = Rnd(0,800)
	pu\y = Rnd(0,600)
	pu\xv = Rnd(-2,2)
	pu\yv = Rnd(-2,2)
EndIf




For pu.pu = Each pu
	If ImagesCollide(puimage,pu\x,pu\y,0,player,x,y,0)
		powerup = Rnd(1,2)
		poweruptime = 400
		Delete pu
	EndIf
Next

poweruptime = poweruptime - 1
If poweruptime =< 0 powerup = 0









For b.bullet = Each bullet

Color 255,0,255
DrawImage bulletimage,b\x,b\y

b\x = b\x + b\xv
b\y = b\y + b\yv

If (b\x > 810) Or (b\x < -10) Or (b\y > 610) Or (b\y < -10) Delete b

Next



For e.enemy = Each enemy
	If e\s = 1 DrawImage enemyimage,e\x,e\y
	If e\s = 2 DrawImage enemyimage2,e\x,e\y
	If e\s = 3 DrawImage enemyimage3,e\x,e\y
	e\x = e\x + e\xv
	e\y = e\y + e\yv	
	If e\x > 850 e\x = -49
	If e\x < -50 e\x = 849
	If e\y > 650 e\y = -49
	If e\y < -50 e\y = 649
Next

For p.part = Each part
	Color p\r,p\g,p\b
	Rect p\x,p\y,2,2
	p\x = p\x + p\xv
	p\y = p\y + p\yv
	p\g = p\g - 3
	p\r = p\r - 3
	p\b = p\b - 3
	If p\g < 5 p\g = 5
	If p\r < 5
		If p\b < 5
			Delete p
		EndIf
	EndIf
Next

For pu. pu = Each pu
	DrawImage puimage,pu\x,pu\y
	pu\x = pu\x + pu\xv
	pu\y = pu\y + pu\yv
	If (pu\x < -100) Or (pu\x > 900) Delete pu
Next

If numleft =< 0

For i = 0 To 25
	e.enemy = New enemy
	e\x = Rnd(-90,890)
	e\y = Rnd(-90,690)
	e\xv = Rnd(-4,4)
	e\yv = Rnd(-4,4)
	e\s = Rnd(1,2)
Next

numleft = 26

EndIf


DrawImage(frames(angle),x,y)

If sheild = 1
	DrawImage sheildimage,x,y
EndIf

sheildtime = sheildtime - 1
If sheildtime =< 0 sheild = 0


Color 255,130,255
Text 50,10,"SCORE: " + score

For i= 1 To lives
DrawImage player,650+i*20,20
Next


Rect 400-(sheildtime),10,sheildtime*2,20

Color 0,0,0
Text 350,8,"SHEILD"



If lives =< 0 gameover = 1	

If gameover = 1
Color 255,130,255
Text 310,250,"GAME OVER"
back = back + 1

If back => 150 
game = 0

For e.enemy = Each enemy
Delete e
Next

For p.part = Each part
Delete p
Next

For b.bullet = Each bullet 
Delete b
Next

For pu.pu = Each pu
Delete pu
Next

EndIf

EndIf


EndIf


Flip
Wend
End

Something Snakey

Created for Workshop #085 | Comments (9) | No Votes

Guide the snake to the black circles.

Cursors

Show Sourcecode for this entry

Hide Sourcecode

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;USE THE ARROW KEYS TO MOVE AND SPACE TO SHOOT;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;Created by Chris Davis;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
AppTitle "Something"
Graphics 800,600,16,2
AutoMidHandle True


Type tail
Field x#,y#,xv#,yv#,s#
End Type

Type bullet
Field x#,y#,xv#,yv#
End Type

Type ball
Field x#,y#,xv#,yv#,wich
End Type

Type part
Field x#,y#,xv#,yv#,c
End Type


bulletimage = CreateImage(10,10)
SetBuffer ImageBuffer(bulletimage)
Color 1,1,1
Oval 0,0,10,10

player = CreateImage(30,30)
SetBuffer ImageBuffer(player)
Color 1,1,1
Oval 0,0,30,30

ballimage = CreateImage(20,20)
SetBuffer ImageBuffer(ballimage)
Color 1,1,1
Oval 0,0,20,20

ballimage2 = CreateImage(20,20)
SetBuffer ImageBuffer(ballimage2)
Color 255,255,255
Oval 0,0,20,20


Global px# = 400
Global py# = 300

Global angle# = 0

Global speed# = 0

Global score = 0

Global newb = 0

Global health = 100

Global die = 0

Global highscore = 0


SetBuffer BackBuffer()

While Not KeyDown(1)
ClsColor 155,155,155
Cls



newb = newb + 1

If newb = 30
ba.ball = New ball
ba\x = 850
ba\y = Rnd(25,575)
ba\xv = Rnd(-.5,-4)
ba\yv = Rnd(-2,2)
ba\wich = Rnd(1,2)
newb = 0
EndIf




If KeyDown(203)
angle = angle - 5
EndIf

If KeyDown(205)
angle = angle + 5
EndIf



If angle => 360 angle = 1
If angle =< 0 angle = 359



If KeyDown(200)
speed = speed+.1
EndIf

If Not KeyDown(200)
speed = speed -.1
If speed =< 0 speed = 0
EndIf

If speed > 6 speed = 6

px = px + Cos(angle)*speed
py = py + Sin(angle)*speed



If px > 840 px = -40
If px < -40 px = 840
If py > 640 py = -40
If py < -40 py = 640

Color 1,1,1
t.tail = New tail
t\x = px
t\y = py
t\xv = -Cos(angle)*2
t\yv = -Sin(angle)*2
t\s = 30



If KeyHit(57)
b.bullet = New bullet
b\x = px
b\y = py
b\xv = Cos(angle)*10
b\yv = Sin(angle)*10
EndIf




For ba.ball = Each ball
If ImagesCollide(player,px,py,0,ballimage,ba\x,ba\y,0)

If ba\wich = 1 

For i = 0 To 20
p.part = New part
p\x = ba\x
p\y = ba\y
p\xv = Rnd(-1,1)
p\yv = Rnd(-3,1)
p\c = 0
Next

score = score + 1

Delete ba

EndIf

EndIf
Next



For ba.ball = Each ball
If ImagesCollide(player,px,py,0,ballimage,ba\x,ba\y,0)

If ba\wich = 2 

For i = 0 To 20
p.part = New part
p\x = ba\x
p\y = ba\y
p\xv = Rnd(-1,1)
p\yv = Rnd(-3,1)
p\c = 255
Next

health = health - Rnd(10,20)

Delete ba

EndIf



EndIf
Next







For t.tail = Each tail

Oval t\x-(t\s/2),t\y-(t\s/2),t\s,t\s

t\s = t\s -.7

t\x = t\x + t\xv
t\y = t\y + t\yv

If t\s =< 0 Delete t

Next


For b.bullet = Each bullet

DrawImage bulletimage,b\x,b\y

b\x = b\x + b\xv
b\y = b\y + b\yv

If (b\y < -10) Or (b\y > 610) Or (b\x < -10) Or (b\x > 810) Delete b

Next

For ba.ball = Each ball
If ba\wich = 1 DrawImage ballimage,ba\x,ba\y
If ba\wich = 2 DrawImage ballimage2,ba\x,ba\y

ba\x = ba\x + ba\xv
ba\y = ba\y + ba\yv

If ba\y < 10 ba\yv = -ba\yv
If ba\y > 590 ba\yv = -ba\yv

If ba\x < -25 Delete ba

Next


For p.part = Each part

Color p\c,p\c,p\c
Rect p\x,p\y,2,2

p\x = p\x + p\xv
p\y = p\y + p\yv

p\yv = p\yv + .1

If p\y > 610 Delete p

Next








DrawImage player,px,py
Color 0,0,0
Text 150,20,"Score: " + score
Text 300,20,"High Score: " + highscore
Text 500,20,"Health: "+ health

If score > highscore highscore = score


If health =< 0 
health = 0
die = 1
EndIf


If die = 1

For ba.ball = Each ball
Delete ba
Next

Text 350,300,"GAME OVER!"
Text 330,320,"PLAY AGAIN? Y/N"

If KeyHit(49) End

If KeyHit(21)

score = 0
health = 100
die = 0


EndIf


EndIf

Delay 1

Flip
Wend
End

Avoid the Crap

Created for Workshop #084 | Comments (5) | Rating 75%

Avoid the crap

Cursors

Show Sourcecode for this entry

Hide Sourcecode

Graphics 800,600,16,2
AutoMidHandle True





player = CreateImage(20,20)
SetBuffer ImageBuffer(player)
Color 0,255,0
Oval 0,0,20,20,0

Global px# = 100
Global py# = 500
Global pxv# = 0
Global pyv# = 0


b1 = CreateImage(50,50)
SetBuffer ImageBuffer(b1)
Color 255,0,0
Rect 0,0,50,50,0

b2 = CreateImage(60,60)
SetBuffer ImageBuffer(b2)
Color 255,0,0
Rect 0,0,60,60,0

b3 = CreateImage(40,40)
SetBuffer ImageBuffer(b3)
Color 255,0,0
Rect 0,0,40,40,0

Global b1x# = 100
Global b1y# = 100
Global b1xv# = 4
Global b1yv# = 4

Global b2x# = 500
Global b2y# = 500
Global b2xv# = -3
Global b2yv# = -3

Global b3x# = 700
Global b3y# = 100
Global b3xv# = -3
Global b3yv# = 3

Global score = 0
Global highscore = 0

Global gah = 0

SetBuffer BackBuffer()

While Not KeyDown(1)
Cls

If gah = 0 score = score + 1


If KeyDown(200) pyv = pyv -.1
If KeyDown(208) pyv = pyv + .1
If KeyDown(203) pxv = pxv -.1
If KeyDown(205) pxv = pxv + .1

If pxv > 6 pxv = 6
If pxv < -6 pxv = -6
If pyv > 6 pyv = 6
If pyv < -6 pyv = -6





If ImagesCollide(player,px,py,0,b1,b1x,b1y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf

If ImagesCollide(player,px,py,0,b2,b2x,b2y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf

If ImagesCollide(player,px,py,0,b3,b3x,b3y,0)
b1x = 100
b1y = 100
b2x = 700
b2y = 500
b3x = 700
b3y = 100
px = 100
py = 500
pxv = 0
pyv = 0
score = 0
gah = 1
EndIf












If gah = 0

DrawImage b1,b1x,b1y
b1x = b1x + b1xv
b1y = b1y + b1yv

If b1y > 575 
b1yv = -b1yv
b1y = b1y -1
EndIf

If b1y < 25 
b1yv = -b1yv
b1y = b1y +1
EndIf

If b1x > 775 
b1xv = -b1xv
b1x = b1x -1
EndIf

If b1x < 25 
b1xv = -b1xv
b1x = b1x +1
EndIf


DrawImage b2,b2x,b2y
b2x = b2x + b2xv
b2y = b2y + b2yv

If b2y > 570 
b2yv = -b2yv
b2y = b2y -1
EndIf

If b2y < 30 
b2yv = -b2yv
b2y = b2y +1
EndIf

If b2x > 770 
b2xv = -b2xv
b2x = b2x -1
EndIf

If b2x < 30 
b2xv = -b2xv
b2x = b2x +1
EndIf


DrawImage b3,b3x,b3y
b3x = b3x + b3xv
b3y = b3y + b3yv

If b3y > 580 
b3yv = -b3yv
b3y = b3y -1
EndIf

If b3y < 20 
b3yv = -b3yv
b3y = b3y +1
EndIf

If b3x > 780 
b3xv = -b3xv
b3x = b3x -1
EndIf

If b3x < 20 
b3xv = -b3xv
b3x = b3x +1
EndIf

EndIf




DrawImage player,px,py
px = px + pxv
py = py + pyv

If px > 790 pxv = -pxv
If px < 10 pxv = -pxv
If py > 590 pyv = -pyv
If py < 10 pyv = -pyv


If gah > 0

Color 255,255,255
Text 290,300,"SCORE: " + score
Text 480,300,"HIGHSCORE: " + highscore

gah = gah + 1



If gah > 200 gah = 0

EndIf












If score > highscore highscore = score

Delay 1

Flip
Wend
End

SHUMP

Created for Workshop #081 | Comments (0) | No Votes

A shoot-em-up made in Cobra

Cursors and Spacebar

Click to Download this entry

Present Scramble

Created for Workshop #080 | Comments (7) | Rating 93.7%

Grab the presents, but avoid the rocks.

Mouse

Click to Download this entry

Turkey Game

Created for Workshop #079 | Comments (10) | Rating 75%

Keep the flies away from the turkey.

Mouse

Click to Download this entry

Ghosts, Pumpkins and Lazers

Created for Workshop #072 | Comments (4) | Rating 75%

Shoot the pumpkins with the ghost's lazers.

Mouse

Click to Download this entry

CRAPPY CODE

Created for Workshop #070 | Comments (0) | No Votes

This isnt really a game, but who cares, at least its somthing.

Mouse button.

Show Sourcecode for this entry

Hide Sourcecode

;This isnt really a game, but who cares, at least its somthing. i started it when this ww started,
;i just never did anything with it! CRAPPY CODE!!!


Graphics 800,600,16,2
AutoMidHandle True


Type crate
Field x#,y#,xv#,yv#
End Type




crateimage = CreateImage(50,50);LoadImage("crate.png")

SetBuffer ImageBuffer(crateimage)
Color 180,120,50
Rect 0,0,50,50




Global gravity# = 0.09



SetBuffer BackBuffer()

While Not KeyDown(1)
Cls



If MouseHit(1)
c.crate = New crate
c\x = MouseX()
c\y = MouseY()
c\yv = .01


EndIf 













For c.crate = Each crate



DrawImage crateimage,c\x,c\y

c\x = c\x + c\xv
c\y = c\y + c\yv

If c\y < 570 c\yv = c\yv + gravity


If c\yv > 0
If c\yv < 0.09

c\yv = 0
If c\y < 575 c\y = c\y + 1
EndIf
EndIf

If c\y > 570 
c\y = c\y - c\yv
c\yv = c\yv /2
c\yv = -c\yv
EndIf


Next



Delay 1


Color 255,255,255
Text 10,10,"Use the mouse to make crates"




Flip
Wend
End

Kokopelli Run

Created for Workshop #069 | Comments (2) | Rating 75%

Guide kokopelli to the other side of the screen.

Cursors Left and Right Cursor up to jump

Click to Download this entry

Yey Lines!!!

Created for Workshop #062 | Comments (0) | No Votes

Draw lines, then hit Spacebar

Mouse, Spacebar and the number one!

Show Sourcecode for this entry

Hide Sourcecode

  
; this is a program that dose stuff. to use it, run it, and use the mouse to make lines, hell, draw
; a picture, mabey a stickman, or a mountian, or even recreate the mona lisa. once you have made your
; thing, then hit the space bar, it will be fun. this isnt really a game, but i was just toying with
; a few line things and it came up, this is one of my entries for ww #62 by, can you guess, huh, can 
; you? Thats right, magicman, it was made by magicman, now play it. ENJOY!!!!!!!!!!!!!











;I WARN YOU, IT IS MESSY AND IN MOST PARTS IMPOSIBLE TO UNDERSTAND, DONT EVEN TRY TO READ IT NEVER
;THE LESS UNDERSTAND IT.



AppTitle "Line Pysics(sort of)"

Graphics 800,600,16,2
SetBuffer BackBuffer()
AutoMidHandle True




Type l
Field x#,y#,xs#,ys#,p,yv#,ysv#,xv#,xsv#,r,b,g
End Type




Global gravity# = 0.1


Global gotline = 0




While Not KeyDown(1)
Cls

SeedRnd MilliSecs()

If gotLine = 0

If MouseHit(1)
l.l=New l
l\x# = MouseX()
l\y# = MouseY()
l\yv# = 0
l\ysv# = 0
l\r = Rnd(0,255)
l\g = Rnd(0,255)
l\b = Rnd(0,255)

l\p = 0

gotline = 1

EndIf


EndIf



If gotline = 1


For l.l=Each l

If l\p = 0

If MouseHit(1)
l\xs = MouseX()
l\ys = MouseY()
l\p = 1
gotline = 0
EndIf

EndIf

Next

EndIf





                     


If MouseDown(2) 
gravity# = -0.1
Else
gravity# = 0.1
EndIf





If KeyDown(57)

effects = 1
EndIf

For l.l = Each l
If effects = 1
l\yv# = l\yv# + gravity#
l\ysv# = l\ysv# + gravity#
l\x# = l\x# + Rnd(-2,2)
l\y# = l\y# + Rnd(-2,2)
l\xs# = l\xs# + Rnd(-2,2)
l\ys# = l\ys# + Rnd(-2,2)
EndIf
Next





Color 255,255,255



For l.l=Each l


Color l\r,l\g,l\b

If l\p = 1
Line l\x,l\y,l\xs,l\ys


Else


Line l\x,l\y,MouseX(),MouseY()


EndIf


l\x# = l\x# + l\xv#

l\xs# = l\xs# + l\xsv#

l\y# = l\y# + l\yv#

l\ys# = l\ys# + l\ysv#

If l\y# > 600 
l\yv# = l\yv# - 1
l\yv# = -l\yv#
;l\xv# = -l\xv#
l\y# = l\y# - 1
EndIf

If l\ys# > 600 
l\ysv# = l\ysv# - 1
l\ysv# = -l\ysv#
;l\xsv# = -l\xsv#
l\ys# = l\ys# - 1
EndIf




Next




If KeyHit(2)
For l.l = Each l
Delete l
effects = 0
Next
EndIf






Color 255,255,255

Text 10,10,"USE THE MOUSE TO MAKE THE LINES. PRESS SPACE FOR EFFECTS. PRESS 1 TO START OVER!!!!!!!"



Flip
Wend
End

Fire

Created for Workshop #060 | Comments (0) | No Votes

Your office building is on fire and you have to jump off the top and land on the ground without hitting anything. ENJOY!!!!

Cursors

Show Sourcecode for this entry

Hide Sourcecode

;I dont know what the name for this is, but i made it for wednesday workshop #60, the building challenge.
;your office building is on fire and you have to jump off the top and land on the ground with
;out hitting anything. ENJOY!!!!




AppTitle"I didn't give this a name, so I guess this is the name. Hmmmmmmm....."
Graphics 640,480,16,2
AutoMidHandle True



Type fire
Field x#,y#,xv#,yv#,r,g,b
End Type










building = CreateImage(150,400)

SetBuffer ImageBuffer(building)
Color 80,80,80
Rect 0,0,150,400

ground = CreateImage(640,20)

SetBuffer ImageBuffer(ground)
Color 0,155,0
Rect 0,0,640,20



window = CreateImage(80,50)

SetBuffer ImageBuffer(window)
Color 100,100,100
Rect 0,0,80,50
Color 10,10,10
Rect 0,0,80,50,0




player = CreateImage(100,100)

SetBuffer ImageBuffer(player)
Color 240,180,100
Oval 56,7,10,13
Color 155,20,20
Rect 50,21,20,30
Rect 30,21,60,2
Color 30,50,250
Rect 50,51,6,22
Rect 64,51,6,22


Global px# = 60
Global py# = 56

stuffimage = CreateImage(20,20)

SetBuffer ImageBuffer(stuffimage)
Color 125,125,125
Rect 0,0,20,20

Type stuff
Field x,y
End Type


Global lives = 3

Global level = 1



Global wind# = 0.01

Global gravity# = 1



s.stuff = New stuff
s\x = Rnd(170,640)
s\y = Rnd(100,400)



SetBuffer BackBuffer()
While Not KeyDown(1)
ClsColor 40,200,255
Cls


SeedRnd MilliSecs()







If KeyDown(203) px# = px# - 2
If KeyDown(205) px# = px# + 2










For i = 0 To 1
f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(280,310)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0


f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(120,160)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(200,240)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

f.fire = New fire
f\x# = Rnd(40,100)
f\y# = Rnd(360,400)
f\xv# = .5
f\yv# = Rnd(-.1,-1)
f\r = 255
f\g = 240
f\b = 0

Next









If Not ImagesCollide(player,px#,py#,0,building,75,280,0)
py# = py# + gravity#
EndIf

If ImagesCollide(player,px#,py#,0,ground,320,470,0)
px# = 60
py# = 56

level = level + 1

For i = 0 To level
s.stuff = New stuff
s\x = Rnd(170,640)
s\y = Rnd(100,400)
Next


EndIf


For s.stuff = Each stuff
If ImagesCollide(player,px#,py#,0,stuffimage,s\x,s\y,0)


For i = 0 To 20
f.fire = New fire
f\x# = s\x
f\y# = s\y
f\xv# = Rnd(-1,1)
f\yv# = Rnd(-1,1)
f\r = 255
f\g = 255
f\b = 255
Next




Delete s
px# = 60
py# = 56
lives = lives - 1

EndIf
Next





DrawImage building,75,280

DrawImage window,75,140

DrawImage window,75,220

DrawImage window,75,300

DrawImage window,75,380




DrawImage ground,320,470



For f.fire = Each fire
Color f\r,f\g,f\b
Rect f\x#,f\y#,2,2

f\x# = f\x# + f\xv#
f\y# = f\y# + f\yv#
f\xv# = f\xv# + wind#

f\g = f\g - 2

If f\g < 10 Delete f



Next




For s.stuff = Each stuff
DrawImage stuffimage,s\x,s\y
Next




DrawImage player,px#,py#

Color 0,0,0

Text 565,7,"LEVEL:" + level
Text 565,20,"LIVES:" + lives


If lives =< 0
endgame = Endgame + 1

Color 255,0,0
Text 300,240,"YOU GOT TO LEVEL " + level
Text 300,220,"    GAME OVER!"

If endgame = 100 End


EndIf

Flip
Wend
End

Frog Dude

Created for Workshop #059 | Comments (0) | No Votes

Guide Frog Dude into space.

Cursors

Click to Download this entry

Math Man

Created for Workshop #058 | Comments (0) | No Votes

It makes you go yeeeeeeee!!

Cursors and Space

Click to Download this entry

Fred

Created for Workshop #055 | Comments (0) | No Votes

This is FRED, thats right its called FRED. all you have to do is shoot stuff!

Cursors and Spacebar

Click to Download this entry

Cosmic Soccer World Cup

Created for Workshop #053 | Comments (0) | No Votes

It's like Penalties on Acid!

Cursor keys

Click to Download this entry

Walla Wooze

Created for Workshop #049 | Comments (0) | No Votes

"Hey, I coded it in an hour and thirty minutes."

Cursors and Spacebar

Show Sourcecode for this entry

Hide Sourcecode

;welcome to Walla Wooze wich was made in 2 hours, muah hahahahah
;i guess i will copyright this, not sure why but i will (c)Chris Davis
;sloppy code sloppy code, enjoy my sloopy code

;controls are ARROW KEYS and SPACE BAR


;you know, the code is so sloppy i recomend you dont even look for fear that you will vomit.

AppTitle "Walla Wooze                                                                                                            (C)Chris Davis and Blackmarket Games"
Graphics 800,600,16,2

AutoMidHandle True


Type part
Field x#,y#,time,xv#,yv#,over
End Type

Type bullet
Field x#,y#,xv#,yv#,time
End Type

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



Global playerx = 400
Global playery = 580

Global health = 0

player = CreateImage(70,70)

SetBuffer ImageBuffer(player)
Color 255,100,0
Rect 0,0,70,20,1


bulletimage = CreateImage(15,15)
SetBuffer ImageBuffer(bulletimage)
Color 255,00,100
Oval 0,0,10,10,0

alein = CreateImage(100,100)

SetBuffer ImageBuffer(alein)
Color 0,100,255
Oval 0,0,30,20,0



Global createenemy = 0

Global enemyfrom = 0
Global game = 1 

SetBuffer BackBuffer()
While Not KeyDown(1)
Cls


If game = 1

createenemy = Rnd(0,1000)
enemyfrom = Rnd(1,3)


If createenemy => 950

If enemyfrom = 1 
e.enemy = New enemy
e\x# = Rnd(0,800)
e\y# = -50
e\yv# = Rnd(1,2)
e\xv# = Rnd(-1,1)
EndIf

If enemyfrom = 2 
e.enemy = New enemy
e\x# = -50
e\y# = Rnd(0,300)
e\yv# = Rnd(-1,1)
e\xv# = Rnd(1,2)
EndIf


If enemyfrom = 3 
e.enemy = New enemy
e\x# = 850
e\y# = Rnd(0,300)
e\yv# = Rnd(-1,1)
e\xv# = Rnd(-1,-2)
EndIf

EndIf








If KeyHit(57) 
b.bullet = New bullet
b\x# = playerx + 28
b\y# = playery -20
b\xv# = -.05
b\yv# = -2.5 

b.bullet = New bullet
b\x# = playerx - 28
b\y# = playery -20
b\xv# = .05
b\yv# = -2.5
EndIf



EndIf


If KeyDown(205) playerx = playerx + 1
If KeyDown(203) playerx = playerx - 1

If playerx < 35 playerx = 35 
If playerx > 765 playerx = 765












For b.bullet = Each bullet

If b\time > 10
If ImagesCollide(player,playerx,playery,0,bulletimage,b\x#,b\y#,0)

For i = 0 To 4
p.part = New part
p\x# = b\x# 
p\y# = b\y#
p\xv# = Rnd(-1,1)
p\yv# = Rnd(-2,1)
p\over = Rnd(60,160)
Next

health = health - Rnd(1,3)

Delete b

EndIf
EndIf

Next





For e.enemy = Each enemy
For b.bullet = Each bullet

If ImagesCollide(alein,e\x#,e\y#,0,bulletimage,b\x#,b\y#,0)


For i = 0 To 1
p.part = New part
p\x# = e\x# 
p\y# = e\y#
p\xv# = Rnd(-1,1)
p\yv# = Rnd(-2,1)
p\over = Rnd(60,70)
Next


Delete b

e\yv# = -4
e\xv# = Rnd(-2,2)

score = score + 1

EndIf

Next
Next




For e.enemy = Each enemy


If ImagesCollide(alein,e\x#,e\y#,0,player,playerx,playery,0)

For i = 0 To 6
p.part = New part
p\x# = e\x# 
p\y# = e\y#
p\xv# = Rnd(-1,1)
p\yv# = Rnd(-2,1)
p\over = Rnd(60,70)
Next



Delete e

health = health - Rnd(4,8)

EndIf

Next



















For b.bullet = Each bullet
b\x# = b\x# + b\xv#
b\y# = b\y# + b\yv#
b\yv# = b\yv# + .006
b\time = b\time + 1
Next



For b.bullet = Each bullet
DrawImage bulletimage,b\x#,b\y#

If b\y# > 610 Delete b

Next



For e.enemy= Each enemy
DrawImage alein,e\x#,e\y#
e\x# = e\x# + e\xv#
e\y# = e\y# + e\yv#
If (e\x# > 900) Or (e\x# < -100) Or (e\y# > 900) Delete e
Next









DrawImage player,playerx,playery





For p.part = Each part
p\x# = p\x# + p\xv#
p\y# = p\y# + p\yv#
p\yv# = p\yv# + 0.01
p\time = p\time + 1
Next


For p.part = Each part
If p\time = p\over Delete p
Next

For p.part = Each part
Color Rnd(0,255),Rnd(0,255),Rnd(0,255)
Rect p\x#,p\y#,2,2
Next


Color 255,255,255

Text 20,10,"SCORE:" + score

Text 745,12,"HEALTH"


Color 0,255,0
Rect 760,30,20,health*1.6




Color 255,255,255







If health =< 0 
health = 0
game = 0

Text 370,300,"GAME OVER"
Text 340,320," PLAY AGAIN Y\N?"

If KeyHit(49) End
If KeyHit(21)
game = 1
health = 100
score = 0
EndIf
EndIf






Delay 2

Flip 
Wend

Disco Man