Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|555|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Jolt

by magicman for Workshop #106
ok, so its just and asteroids clone, what do you want from me, huh.
Cursors and Spacebar
;;;;;;;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