Wednesday Workshop

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

Something Snakey

by Magicman for Workshop #085

Guide the snake to the black circles.

Cursors

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;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