Wednesday Workshop - BlitzCoder.net

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

Ball-Up

by Jayenkai for Workshop #001

This game features a ball bouncing up a rather large staircase.

Cursors Left+Right

;Ball Up
Graphics 640,480,0,2
SetBuffer BackBuffer()
Dim array(2000)

.restart
SeedRnd MilliSecs()
x=9
For y=1 To 2000
array(y)=x*32
x=x+Rand(-3,3)
If x<0 Then x=Rand(0,2)
If x>19 Then x=Rand(17,19)
Next

bally=0
ballx=320
jumparc=0
scry=0
py=0

Repeat
jumparc=jumparc+4
If jumparc=>180 Then jumparc=jumparc-180
Cls

Color 140,80,40
baty=(446-bally)-(Sin(jumparc)*180)
baty=baty+scry
Oval ballx,baty,16,16

ballx=ballx+((KeyDown(205)-KeyDown(203))*4)

Color 80,140,40
If bally>-32 Then Rect 0,460+bally,640,32

land=1

For x=1 To 2000
atx=array(x)
aty=(460-(x*140))+scry
If aty>0 And aty<480
 Rect atx,aty,32,32

If jumparc>89 And jumparc<110 And aty>baty And aty<baty+60 And atx<ballx+8 And atx+32>ballx+8
py=py+140
EndIf


If jumparc=0 And aty>baty-16 And (atx>ballx+8 Or atx+32<ballx+8) Then land=0


EndIf

Next

If land=0 Then dead=1

If py<>0 Then scry=scry+20:bally=bally+20:py=py-20

Flip
If KeyDown(1) Then dead=9
Until dead>0
Repeat
Cls
If dead=9 Then End
If dead=1 Then Text 320,240,"You Fell",1,1:Text 320,280,"Hit Space to Try Again",1,1
Flip
Until KeyDown(57)
dead=0
Goto restart

Vortex Game

by Jayenkai for Workshop #001

Shoot the oncoming enemies

Cursors and Space

;THE SUPER FLASHY VORTEX GAME
;A Game with only 5 Draw Commands per frame

Graphics 640,480,0,2
SetBuffer BackBuffer()



Dim baddy(17,2)
Dim bullet(17,2)


.restart

.TitleScreen
Repeat
Cls
Text 320,240,"THE SUPER FLASHY VORTEX GAME",1,1								;1
Text 320,280,"Hit Space to Start",1,1										;2
Text 320,440,"Disclaimer : This game contains flashing lines, and is",1,1	;3
Text 320,460,"unsuitable for people with photosensitive epilepsy",1,1		;4
Text 320,340,"Hi-Score : "+hiscore,1,1										;5
Flip
If KeyDown(1) Then End
Until KeyDown(57)


plra=0
dead=0
score=0
hiscore=0
mudown=0
target=250

For n=0 To 17
baddy(n,1)=Rand(0,1800)
baddy(n,2)=Rand(-2000,0)
Next
badspd=1

Repeat

ang=ang+1
n=n+1
If ang=>16 And n=>17 Then Cls:ang=ang-16:n=0
atx=320+(Sin(ang*20)*300)
aty=240+(Cos(ang*20)*220)
atx2=320+(Sin((ang+1)*20)*300)
aty2=240+(Cos((ang+1)*20)*220)
Color 0,180,0
Line atx,aty,320,240										;1 First object per frame = Background Drawn Outwards
Line atx,aty,atx2,aty2										;2 Second object per frame = Background Outline

Color 0,150,255
plra=plra+KeyDown(203)-KeyDown(205)
Rect 318+(Sin(plra/5)*300),238+(Cos(plra/5)*220),4,4,0		;3 Third object per frame = Rectangle for Player

If KeyDown(200)=0 Then mudown=0

If KeyDown(200) And mudown=0
mudown=1
free=-1
For b=0 To 4
If bullet(b,2)<=0 Then free=b
Next
If free>-1 Then bullet(free,2)=3000:bullet(free,1)=plra
EndIf


If n<18
Color 250,00,0
baddy(n,2)=baddy(n,2)+badspd
If baddy(n,2)>3000 Then dead=1
If baddy(n,2)>0
baddy(n,1)=baddy(n,1)+Rand(-4,4)

an=baddy(n,1)
dx=(baddy(n,2)*300)/3000
dy=(baddy(n,2)*220)/3000
x=320+(Sin(an/5)*dx)
y=240+(Cos(an/5)*dy)
Rect x-2,y-2,4,4,0											;4 Fourth object per frame = Rectangle for Baddy
EndIf

Color 60,255,60
bullet(n,2)=bullet(n,2)-32
If bullet(n,2)>0
an=bullet(n,1)
dx=(bullet(n,2)*300)/3000
dy=(bullet(n,2)*220)/3000
x=320+(Sin(an/5)*dx)
y=240+(Cos(an/5)*dy)

Rect x-2,y-2,4,4,0

For b=0 To 17
If baddy(b,2)>0
an=baddy(b,1)
dx=(baddy(b,2)*300)/3000
dy=(baddy(b,2)*220)/3000
x2=320+(Sin(an/5)*dx)
y2=240+(Cos(an/5)*dy)

If Abs(x2-x)<6 And Abs(y2-y)<6
baddy(b,2)=Rand(-2000,0):score=score+10::DebugLog "score "+score:If score=>target Then badspd=badspd+1:target=target+250
EndIf
EndIf
Next

EndIf



EndIf




Flip False


;	If you would like to check my code, uncomment the following line..
;Flip:Cls:Delay 25

If KeyDown(1) Then dead=9
Until dead>0


Text 320,240,"They Killed You",1,1			;1
Text 320,280,"You scored "+score,1,1		;2
Text 320,320,"Hit Space to continue",1,1	;3
Flip
If score>hiscore Then hiscore=score
If dead=9 Then End
Repeat:Until KeyDown(57)
Repeat:Until KeyDown(57)=0
Goto restart

Platfire

by jayenkai for Workshop #002

Retro shooting, featuring Platdude

Ball-Up

Vortex Game

Platfire

Marvin

Light and Dark

The 8th Day

Gamble!

Make Munky Do

Kerby

Plat-Grab

Ninja Blade

571CKM4N

LightHoles

Connect4

Circle vs Jellyfish

Yot

Unnamed!

Get Stars

Burnin' down the House

UFO Fly

Greenie's Gameboy Adventure

Mouse Minute

Useless Platdude 3D

SMB

Xmas Party

The Hexagonal Maze

SnakePong

MouseBall

Plattings

PipeRunners

Light the Bricks

Abstract Munky

Paperback

Duck In Space

Love Hearts

Zombie!!

Future Classics

Typing Arcade

Dance Dance Mouse

Break

Scratched Tanks

Mario's Fiery Fourth

Greenie's Bits

SAnIIC the ASCIIhog

SuperDuck

Line Squares

Line Squiggles

The CW Quest

Green Snake

PlatGhosts

Destroy All Enemies

Mouse Fly

The Really Stupid Ball Bouncing Game

MagnoPlat

Bucket Full of Numbers

Super Roadster

Rolly Polly Bally

Drop a Bomb

Captcha tha Flaaag

Block-o-Snake

It's a Speedboat!

Picross

Frostbite

Thrusteroids

Heavy Metal Munky

The Picnic

The Other Quest

Locksmith

Swirly Squares

Intergalactic Ascii Warriors

Super Carrot Skateboarder!

Monsters in Space

JNKPlat - The Slot Machine

Advanced Type-In Simulator

Super Happy Snowball Warriors

Goto 10

Steaks

R1

Puzzobomb

Barry the Bourbon Biscuit