Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|468|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-

Walla Wooze

by magicman for Workshop #049

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

Cursors and Spacebar

;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