Entries by Jayenkai/Wed. Workshop (SoCoder)

Gravity Bob

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

Get all the blocks!

Cursors, Z and X

Microbes

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

Shoot the Microbes

Mouse

Splat 2000

Created for Workshop #200 | Comments (1) | Rating 75%

Grab the circles, avoid the squares!

Mouse

Storm of Idigidragon

Created for Workshop #189 | Comments (8) | No Votes

Shoot Idigidragon until you die!

Mouse

Disasteroids

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

Destroy the Asteroids

Mouse

Go Left

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

Go Left!

Left, Z to run

Space Monkeys Go Bananas

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

Guide the Monkey's Ball through the Maze

Cursor Keys

Dart Gets

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

Throw the darts to get the target shown.

Mouse

Afro's Chair

Created for Workshop #169 | Comments (5) | Rating 100%

Escape!!!

Cursors, Up, Down and Right...

Bibbleman and Bobbleman 2

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

Get all the balls in the holes

Cursors, Z/X to grab, Space to switch

Cowbell Hero

Created for Workshop #165 | Comments (3) | Rating 75%

OMFG! It's Cowbell Hero!!! (Wait at the menu to get more songs!)

One Button! (Space, Z, X, Cursor, Either of the Mousebuttons or Joybutton 1!)

Space Loops

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

Create loops around enemy. Don't move too fast or your trail will snap.

Mouse

Mr Money Grabber

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

Grab as many coins as you can

Cursors

The Heist

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

Try to get the loot home safely!

Mouse

Monoblast

Created for Workshop #160 | Comments (5) | No Votes

Shoot everything!

Cursors and Z/X

Get the Os - Dodge the Xs

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

Get the Os - Dodge the Xs

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

Type die
	Field x,y,t
End Type
SeedRnd MilliSecs()

d#=4	; d = Divisor for trail points..   > = more tug, < = less tug..
ts=50 	; Length of trail..  TS = TrailS

Dim trail#(500,2)






.start
endofgame=0
Delete Each die

For n=0 To 500
trail(n,1)=400
trail(n,2)=300
Next
MoveMouse 400,300

getx=Rand(50,750)
gety=Rand(50,550)




	bad.die=New die
	bad\x=Rand(10,790)
	bad\y=Rand(10,590)
	bad\t=-50

hit=0
score=0
Repeat
Cls

;If MouseX()<>trail(0,1) Or MouseY()<>trail(0,2)
For n=ts To 1 Step -1
trail(n,1)=trail(n,1)-((trail(n,1)-trail(n-1,1))/d)
trail(n,2)=trail(n,2)-((trail(n,2)-trail(n-1,2))/d)
Next


trail(0,1)=MouseX()
trail(0,2)=MouseY()
;EndIf


For n=ts To 1 Step -1
Color 255,255,255
Line trail(n,1),trail(n,2),trail(n-1,1),trail(n-1,2)
Next


For bad.die=Each die
Color 255,255,255
	bad\t=bad\t+1:If bad\t=11 Then bad\t=1
	t$="+"
	If bad\t>5 Then t$="x"
	If bad\t<0 And (bad\t Mod 5)<-2 Then t$="[ ]"
	Text bad\x,bad\y,t$,1,1
		
		For n=ts To 1 Step -1
			If Abs(bad\x-trail(n,1))<5 And Abs(bad\y-trail(n,2))<5 Then hit=1:hitx=bad\x:hity=bad\y
		Next	
Next
Color 255,255,255


Text getx,gety,"O",1,1
If Abs(MouseX()-getx)<8 And Abs(MouseY()-gety)<8 
	tries=0
	Repeat
		tries=tries+1
		fin=1
		x=Rand(10,790):y=Rand(10,590)
		For n=ts To 1 Step -1
			If Abs(x-trail(n,1))<24 And Abs(y-trail(n,2))<24 Then fin=0
		Next
		For bad.die=Each die
			If Abs(x-bad\x)<24 And Abs(y-bad\y)<24 Then fin=0
		Next
		If tries=10 Then fin=1
	Until fin=1
	
	tries=0
	score=score+1:getx=x:gety=y
	
	For many=1 To 3
	Repeat
		tries=tries+1
		fin=1
		x=Rand(10,790):y=Rand(10,590)
		For n=ts To 1 Step -1
			If Abs(x-trail(n,1))<24 And Abs(y-trail(n,2))<24 Then fin=0
		Next
		If tries=10 Then fin=1
	Until fin=1
	

	bad.die=New die
	bad\x=x
	bad\y=y
	bad\t=-50

	Next
	
EndIf


Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0 Or hit<>0


If hit<>0
	For n=1 To 120
		Color 0,0,0:If Rand(0,1)=1 Then Color 255,255,255
			Oval hitx-8,hity-8,17,17,0
		Color 0,0,0:If Rand(0,1)=1 Then Color 255,255,255
			Rect hitx-8,hity-8,17,17,0	

		Color 0,0,0:Rect 300,280,200,40,1
		Color 255,255,255:Text 400,300,"Score : "+score,1,1
		Flip


	Next
EndIf

The Event

Created for Workshop #158 | Comments (10) | Rating 100%

Blast the fireworks as they hit their targets.

Mouse

MasterWord

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

Guess the word, in a MasterMind style.

Mouse

Mystic Glitter

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

Watch the mystic glitter glisten

It's a screensaver!

Graphics 800,600,32,2
SetBuffer BackBuffer()


Cls
Color 100,100,100:Text 400,300,"Loading",1,1
Flip

black=CreateImage(800,600)
MaskImage black,255,0,255
SetBuffer ImageBuffer(black)
Color 255,0,255
Rect 0,0,800,600,1
Color 0,0,0
For n=1 To 10000
;Line Rand(800),Rand(600),Rand(800),Rand(600)
Plot Rand(800),Rand(600)
Next

SetBuffer BackBuffer()
Cls
Color 255,255,255:Text 400,300,"Loading",1,1
Flip

blacker=CreateImage(800,600)
MaskImage blacker,255,0,255
SetBuffer ImageBuffer(blacker)
Color 255,0,255
Rect 0,0,800,600,1
Color 0,0,0
For n=1 To 65000
Plot Rand(800),Rand(600)
Next



Frames=10

Dim scr(frames)
For n=0 To frames
	scr(n)=CreateImage(800,600)
Next


Dim v#(10,2)
For m=1 To 10
	l=800
	h=0
	r=8
	If m=2 Or m=4 Then l=600
	If m>4 Then l=250:h=100:r=2
	v(m,1)=Rand(h,l)
	v(m,2)=Rnd(-r,r):If Abs(v(m,2))<0.5 Then v(m,2)=0.5
Next

n=0
Repeat
;Cls
TileImage black,Rand(800),Rand(600)

n=n+1:If n=frames Then n=0
SetBuffer ImageBuffer(scr(n))
TileImage blacker,Rand(800),Rand(600)

For m=1 To 10
v(m,1)=v(m,1)+v(m,2)
	l=800
	h=0
	r=8
	If m=2 Or m=4 Then l=600
	If m>4 Then l=250:h=100:r=2
	
	If v(m,1)<h Then v(m,1)=h:v(m,2)=Rnd(0.5,r)
	If v(m,1)>l Then v(m,1)=l:v(m,2)=-Rnd(0.5,r)
Next

Color v(5,1),v(6,1),v(7,1)
Line v(1,1),v(2,1),v(3,1),v(4,1)


SetBuffer BackBuffer()
DrawImage scr(n),0,0


SetBuffer ImageBuffer(scr(n))
darken#=0.4
Color v(5,1)*darken,v(6,1)*darken,v(7,1)*darken
Line v(1,1),v(2,1),v(3,1),v(4,1)

SetBuffer BackBuffer()

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Retro Raider

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

Get the Cross

Cursors and Z/X

Spider

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

Shoot the spiders before they reach the top.

Mouse

Lojigz

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

Solve the Logic Puzzle Jigsaws

Mouse

Barry the Bourbon Biscuit

Created for Workshop #145 | Comments (3) | Rating 62.5%

Get as many chocolate buttons as you can, before the time runs out.

Cursors + Up/Z/X to jump.

Puzzobomb

Created for Workshop #144 | Comments (2) | Rating 100%

Clear away all the blocks on the level.

Mouse

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

Catch the square fireworks to set them off.

Mouse

Steaks

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

Get the steaks before the cat does.

Rapidly Left and Right

Goto 10

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

Match up, in a bejeweled style, but with only 10 moves available.

Mouse

Super Happy Snowball Warriors

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

Hit your opponent before he hits you.

Spacebar

Advanced Type-In Simulator

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

Type in the Type In

Keyboard (Cursors to scroll Magazine)

JNKPlat - The Slot Machine

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

Spin the reels to get Platdude to the other side.

Mouse

Monsters in Space

Created for Workshop #118 | Comments (3) | No Votes

Dig holes to trap the aliens.

Cursors to move. Z/X/Space + left/right to dig.

Super Carrot Skateboarder!

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

Guide the carrot over the jumps

Mouse

Intergalactic Ascii Warriors

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

Zap the bad guys.

Cursors and Z/X

Graphics 800,600,32,2
SetBuffer BackBuffer()

Dim plev$(10)
plev$(1)="/O\"			;Slow, single shot fire
plev$(2)="|/O\|"		;+ Doubleshot
plev$(3)="-|/O\|-"		;+ Sideshot
plev$(4)="\|-O-|/"		;/ Diagonal Fire
plev$(5)="-\|-O-|/-"	;+ Sideshot
plev$(6)="/\|-O-|/\"	;/ Backfire
plev$(7)="/\|-^-|/\"	;+ Faster Single Shot
plev$(8)="/\-|^|-/\"	;+ Thinner Double Shot
plev$(9)="/\-/^\-/\"		;+ Missiles
plev$(10)="/\-m^m-/\"		;+ Speed of a Hawk


SeedRnd MilliSecs()

SetFont LoadFont("Courier",14,1)

MyLev=1

Global plrx#,plry#,plrxa#,plrya#

Type kup
	Field x
	Field y
	Field t
End Type

Type die
	Field T
	Field Health#
	Field R,G,B
	Field x#,y#
	Field X1#,Y1#
	Field X2#,Y2#
	Field X3#,Y3#
	Field X4#,Y4#
	Field Frame#
	Field speed#
End Type

Type let
	Field x#,y#,txt$,gx#,gy#,u,pow
End Type

Score=0
Lives=3
NextUp=0


Dim bType$(10)
bType$(1)="\_V_/"
bType$(2)="*-v-*"
bType$(3)="!o!"
bType$(4)="\@/"
bType$(5)="\-(O)-/"
bType$(6)="}x{"
bType$(7)="v-o-v"
bType$(8)="<+o+>"
bType$(9)="~o~"
bType$(10)="|<o>|"


Dim trig(10)


shoot=0

plrx=400
plry=580
Tdead=120



Repeat
Cls



T=NextUp*16:If T>250 Then T=250
Color 255,T,0
Text 0,590,String$("-",NextUp*6)+">",0,1
	;For a while, I had a Rect here!  Talk about buggering it up!  Nearly got myself disqualified for that!

Color 255,255,255
Text 740,590,"LevelUp--->",1,1
Text 0,584,"Score : "+score,0,1
Text 0,594,"Lives : "+Lives,0,1
If NextUp=>15
	NextUp=NextUp-15
	If MyLev<10 Then MyLev=MyLev+1
	If MyLev=10 Then Score=Score+500
EndIf


	
	Color 250,180,180
	If TDead>0
		TDead=TDead-1
		If (TDead Mod 20) < 10 Then Color 180,250,180
	EndIf
	Text plrx,plry,plev(MyLev),1,1
		
	MySpd=MyLev+1
	If MyLev=10 Then MySpd=14
	If KeyDown(203) Then plrxa=plrxa-1
	If KeyDown(205) Then plrxa=plrxa+1
	If KeyDown(200) Then plrya=plrya-1
	If KeyDown(208) Then plrya=plrya+1
		
	If plrxa>MySpd Then plrxa=myspd
	If plrxa>0 Then plrxa=plrxa-0.25
	If plrxa<0 Then plrxa=plrxa+0.25
	If plrxa<-MySpd Then plrxa=-MySpd
	If Abs(plrxa)<0.3 Then plrxa=0
	plrx=plrx+plrxa
	If plrx<32 Then plrx=32
	If plrx>800-32 Then plrx=800-32

	If plrya>MySpd Then plrya=myspd
	If plrya>0 Then plrya=plrya-0.25
	If plrya<0 Then plrya=plrya+0.25
	If plrya<-MySpd Then plrya=-MySpd
	If Abs(plrya)<0.3 Then plrya=0
	plry=plry+plrya
	If plry<240 Then plry=240
	If plry>600-16 Then plry=600-16

For n=1 To 10
trig(n)=trig(n)+1
If trig(n)=n*4 Then trig(n)=0
Next

	If KeyDown(44) Or KeyDown(45)
			If MyLev<7 And trig(5)=0 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-4:bul\pow=1
			
			If MyLev>1 And MyLev<8
				If trig(12-MyLev)=0
						bul.let=New let:bul\x=plrx-18:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=1
						bul.let=New let:bul\x=plrx+18:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=1
				EndIf
			EndIf

			If (MyLev=3 Or MyLev=5) And trig(7)=0
				bul.let=New let:bul\x=plrx-18:bul\y=plry:bul\u=1:bul\txt$="<":bul\gx=-4:bul\gy=0:bul\pow=2
				bul.let=New let:bul\x=plrx+18:bul\y=plry:bul\u=1:bul\txt$=">":bul\gx=4:bul\gy=0:bul\pow=2				
			EndIf
			
			If MyLev>3 And MyLev<9 And trig(10)=0
				bul.let=New let:bul\x=plrx-26:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=-4:bul\gy=-4:bul\pow=4
				bul.let=New let:bul\x=plrx+26:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=4:bul\gy=-4:bul\pow=4
			EndIf
			If MyLev>5 And MyLev<9 And trig(10)=20
				bul.let=New let:bul\x=plrx-34:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=-4:bul\gy=4:bul\pow=4
				bul.let=New let:bul\x=plrx+34:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=4:bul\gy=4:bul\pow=4
			EndIf
			If MyLev>6 And trig(1)=0 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-6:bul\pow=8

			If MyLev=8
				If trig(2)=0
						bul.let=New let:bul\x=plrx-8:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=4
						bul.let=New let:bul\x=plrx+8:bul\y=plry:bul\u=1:bul\txt$="!":bul\gx=0:bul\gy=-4:bul\pow=4
				EndIf
			EndIf
			
			If MyLev=9 Or MyLev=10
						If trig(3)=0 Then bul.let=New let:bul\x=plrx-32:bul\y=plry:bul\u=1:bul\txt$="/\":bul\gx=aimx:bul\gy=aimy:bul\pow=8
						If trig(3)=6 Then bul.let=New let:bul\x=plrx+32:bul\y=plry:bul\u=1:bul\txt$="/\":bul\gx=aimx:bul\gy=aimy:bul\pow=8					
			EndIf
			
			If MyLev=9
				If trig(2)=0
						bul.let=New let:bul\x=plrx-8:bul\y=plry:bul\u=1:bul\txt$="/":bul\gx=4:bul\gy=-4:bul\pow=4
						bul.let=New let:bul\x=plrx+8:bul\y=plry:bul\u=1:bul\txt$="\":bul\gx=-4:bul\gy=-4:bul\pow=4
				EndIf
			EndIf
			If MyLev=10 And trig(1)=2 Then bul.let=New let:bul\x=plrx:bul\y=plry:bul\u=1:bul\txt$="^":bul\gx=0:bul\gy=-6:bul\pow=8

			

			
	EndIf


shoot=shoot+1
If shoot=120
shoot=0


	.outside1
	x1=Rand(-100,900)
	y1=Rand(-100,700)
	If x1>0 And x1<800 And y1>0 And y1<600 Then Goto outside1

	.outside2
	x4=Rand(-100,900)
	y4=Rand(-100,700)
	If x4>0 And x4<800 And y4>0 And y4<600 Then Goto outside2

	x2=Rand(100,700)
	y2=Rand(100,500)
	
	x3=Rand(100,700)
	y3=Rand(100,500)
	speed#=Rnd(0.2,0.5)
	
	r=0
	g=Rand(3,5)*50
	b=Rand(3,5)*50

	t=Rand(1,10)
	
	For n=1 To 8
	
	Bad.Die=New die  ;Ooooooooo!
	
	bad\t=t
	bad\frame=0-(n*15)
	
	bad\r=r
	bad\g=g
	bad\b=b
	
	bad\health=1
	
	bad\speed=speed
	bad\x1=x1:bad\x2=x2:bad\x3=x3:bad\x4=x4
	bad\y1=y1:bad\y2=y2:bad\y3=y3:bad\y4=y4
		
	Next
EndIf

dist=800
tarx=0
tary=0
aimx=0
aimy=-16

For bad.die=Each die
	kill=0
	Color bad\r,bad\g,bad\b
	bad\x=Bezier4(bad\frame,bad\x1,bad\x2,bad\x3,bad\x4)
	bad\y=Bezier4(bad\frame,bad\y1,bad\y2,bad\y3,bad\y4)
	Text bad\x,bad\y,btype$(bad\t),1,1
		
		d2=Sqr( ((plrx-bad\x)*(plrx-bad\x))+((plry-bad\y)*(plry-bad\y)))
		If d2<dist And plry>bad\y And bad\y>0 And bad\x>0 And bad\x<800
			dist=d2
			tarx=bad\x:tary=bad\y
			ang=ATan2(bad\y-plry,bad\x-plrx)
			aimx=Cos(ang)*16:aimy=Sin(ang)*16
		EndIf
		
	bad\frame=bad\frame+bad\speed
	If bad\frame>100 Then kill=1
	
	If Rand(1,250)=1 Then bul.let=New let:bul\x=bad\x:bul\y=bad\y:bul\u=0:bul\txt$="v":bul\gx=0:bul\gy=4:bul\pow=1

	
	
	If bad\health<=0
		kill=1:score=score+25
		pic.kup=New kup
		pic\x=bad\x:pic\y=bad\y:pic\t=240
	EndIf
	
	If kill=1 Then Delete bad.die
Next

For pic.kup=Each kup
	kill=0
	
	Color 80,255,80
	tt$="P"
	pic\t=pic\t-1
	pic\y=pic\y+1
	If pic\t<120 Then tt$="p"
	If pic\t<60 Then tt$="."
	Text pic\x,pic\y,tt$,1,1
	If Abs(pic\x-plrx)<16 And Abs(pic\y-plry)<8 Then kill=1:NextUp=NextUp+1
	If pic\t<=0 Then kill=1
	
	If kill=1 Then Delete pic.kup
	
Next

For bul.let=Each let
	kill=0
	Color 255,255,255
	bul\x=bul\x+bul\gx
	bul\y=bul\y+bul\gy
	Text bul\x,bul\y,bul\txt$,1,1
	If bul\x<-32 Or bul\x>832 Or bul\y<-32 Or bul\y>632 Then kill=1
	
	
	If bul\u=1
		For bad.die=Each die
			k2=0
			If Abs(bul\x-bad\x)<16 And Abs(bul\y-bad\y)<8 Then kill=1:k2=1
						
			If k2=1 Then bad\health=bad\health-bul\pow:score=score+5
		Next
	EndIf
	
	If bul\u=0 And TDead=0
		If Abs(bul\x-plrx)<16 And Abs(bul\y-plry)<8 Then kill=1:lives=lives-1:MyLev=1:NextUp=0:Shield=120:plrx=400:plry=580:TDead=120
	EndIf
	
	If kill=1 Then Delete bul.let
Next


If Lives=-1 Then endofgame=1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Color 0,0,0
Text 401,281,"Game Over",1,1
Text 401,321,"Score : "+score,1,1


Color 255,255,255
Text 400,280,"Game Over",1,1
Text 400,320,"Score : "+score,1,1

Flip

Delay 1500



Function Bezier3(Perc#,p1#,p2#,p3#)
If perc<0 Then Return p1
If perc>100 Then Return p3
D1#=(((p2-p1)*perc)/100)+p1
D2#=(((p3-p2)*perc)/100)+p2
D3#=(((d2-d1)*perc)/100)+d1
Return D3
End Function 


Function Bezier4(Perc#,p1#,p2#,p3#,p4#)
If perc<0 Then Return p1
If perc>100 Then Return p4
D1#=(((p2-p1)*perc)/100)+p1
D2#=(((p3-p2)*perc)/100)+p2
D3#=(((p4-p3)*perc)/100)+p3
D4#=Bezier3(perc,D1,D2,D3)
Return D4
End Function

Swirly Squares

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

Hit all the green boxes with only one shot!

Mouse

CanLock=1

AppTitle "Orbit"
Graphics 800,600,24,2
SetBuffer BackBuffer()

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

Type net
	Field x#,y#,grav#,pull#
	Field r,g,b
End Type


Type get
	Field x#,y#
End Type


.restart
For tar.get=Each get
Delete tar.get
Next
For miss.ile=Each ile
Delete miss.ile
Next
For pla.net=Each net
Delete pla.net
Next
haveshot=0

Repeat:Until MouseDown(1)=0

Cls

SeedRnd MilliSecs()

For n=1 To 5
	pla.net=New net
	pla\x=Rnd(100,700)
	pla\y=Rnd(100,500)
	pla\grav=Rnd(0.4,0.7)
	pla\pull=Rnd(100,200)
	pla\r=200
	pla\g=250
	pla\b=200
Next

For n=1 To 25
	tar.get=New get  ;Mmmm.... Nougat...
	tar\x=Rnd(100,700)
	tar\y=Rnd(100,500)
Next


Repeat

targetsleft=0
For tar.get=Each get
	kill=0
	
	For miss.ile=Each ile
		If Abs(miss\x-tar\x)<10 And Abs(miss\y-tar\y)<10 Then kill=1:Delete miss.ile
	Next
	Color 80,255,80:If kill=1 Then Color 0,80,0
	Rect tar\x-8,tar\y-8,16,16,0
	If kill=1 
		For n=0 To 18
			an.ile=New ile
			an\x=tar\x
			an\y=tar\y
			ang=n*20
			an\yv=0-Cos(Ang)*2
			an\xv=0-Sin(ang)*2
			an\r=0:an\g=255:an\b=0
		Next
	
		Delete tar.get
	EndIf
	If kill=0 Then targetsleft=targetsleft+1
Next

For pla.net=Each net
	For miss.ile=Each ile
		spdis# = Sqr#(((miss\x# - pla\x#) ^ 2) + ((miss\y# - pla\y#) ^ 2))
		gmul# = 1-(spdis# / pla\pull):If gmul<0 Then gmul=0
		DebugLog gmul
		miss\xv# = miss\xv# + (Cos#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) * pla\grav * gmul#)
		miss\yv# = miss\yv# + (Sin#(ATan2#(miss\y# - pla\y#,miss\x# - pla\x) + 180) * pla\grav * gmul#)
	Next
		Color pla\r,pla\g,pla\b
		Oval pla\x,pla\y,5,5,True
Next

missleft=0
If CanLock=1 Then LockBuffer BackBuffer()
For miss.ile=Each ile
	kill=0
	miss\x=miss\x+miss\xv
	miss\y=miss\y+miss\yv

	Color miss\r,miss\g,miss\b
	Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv
	If miss\x<0 Or miss\x>800 Or miss\y<0 Or miss\y>600 Then kill=1
	missleft=1
	If kill=1 Then Delete miss.ile
Next	
If CanLock=1 Then UnlockBuffer BackBuffer()

If missleft=0 And haveshot=1 And targetsleft>0 Then Color 255,255,255:Text 400,250,"Bad Luck!",1,1:Text 400,350,"Try Again..",1,1:If MouseDown(1) Then Goto restart
If haveshot=1 And targetsleft=0 Then Color 255,255,255:Text 400,250,"Yeay!",1,1:Text 400,350,"Have another go!",1,1:If MouseDown(1) Then Goto restart



MouseAng#=ATan2(600-MouseY(),400-MouseX())

dx#=0-Cos(MouseAng)*2
dy#=0-Sin(MouseAng)*2
If MouseDown(1) And HaveShot=0 Then Haveshot=1:miss.ile=New ile:miss\x=400:miss\y=600:miss\xv=dx:miss\yv=dy:miss\r=Rand(3,5)*50:miss\g=Rand(3,5)*50:miss\b=Rand(3,5)*50

Flip
If CanLock=1 Then LockBuffer BackBuffer()
For miss.ile=Each ile
v=100
	Color miss\r/2,miss\g/2,miss\b/2
	Line miss\x,miss\y,miss\x+miss\xv,miss\y+miss\yv
	If miss\r>v Then miss\r=miss\r-1
	If miss\g>v Then miss\g=miss\g-1
	If miss\b>v Then miss\b=miss\b-1
	If miss\r<=v And miss\g<=v And miss\b<=v Then Delete miss.ile
Next
If CanLock=1 Then UnlockBuffer BackBuffer()

Until KeyDown(1)

End

Locksmith

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

Get the same combo as shown.

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

SetFont LoadFont("Arial",96,1)

SeedRnd MilliSecs()

AutoMidHandle True

;Locksmith
TFormFilter True

Dim Combo(20,2)
For n=0 To 9
	combo(n,1)=MakeBall(n,16,16,150)
	combo(n,2)=MakeBall(n,24,24,180)
	combo(n+10,1)=MakeBall(n,16,16,50)
	combo(n+10,2)=MakeBall(n,24,24,80)
Next


Dim map(36,4)
Dim tw(4)
Dim BagN(144)

For n=1 To 144
	BagN(n)=(n Mod 10)
Next

For n=1 To 144
	p=Rand(1,144)
	bagn(0)=bagn(n)
	bagn(n)=bagn(p)
	bagn(p)=bagn(0)
Next

n=1
For x=1 To 36
	For y=1 To 4
		map(x,y)=bagn(n)
		n=n+1
	Next
Next

For n=1 To 144
	p=Rand(1,144)
	bagn(0)=bagn(n)
	bagn(n)=bagn(p)
	bagn(p)=bagn(0)
Next

Dim move(8,3)

GBag=1

Dim GetCode$(50)
GCodes=36

For e=1 To GCodes
GetCode$(e)="":For n=1 To 4:GetCode$(e)=GetCode$(e)+BagN(GBag):GBag=GBag+1:Next
Next
getthiscode=1


EndTime=MilliSecs()+(100*1000)
Repeat
Cls

MYS=MouseYSpeed()

shifttick=shifttick+MYS


MX=MouseX()-400
MY=MouseY()-300
MDist=Sqr((MX*MX) + (MY*MY)  )
WTwist=Twist
Twist=ATan2(MX,MY)
twistdiff=WTwist-twist

Color 0,0,80
Oval 160,60,480,480,1
Color 0,0,0
Oval 300,200,200,200,1

Color 80,80,0
Rect 645,0,120,600,1

Color 80,40,0
Rect 387,0,26,600,1

Color 80,0,0
If GetCode$(GetThisCode)=MyCode$ And allin=1
 Color 0,80,0
	If MouseX()>645 And MouseY()>280 And MouseY()<320 And MouseDown(1) And mudown=0
	mudown=1
	 GetThisCode=GetThisCode+1
		
For y=1 To 4
	For x=1 To 36
		If ((x*10)+tw(y))=90 Or ((x*10)+tw(y))=90+360 Then map(x,y)=map(x,y)+10;DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
	Next
Next

	EndIf

EndIf
Rect 400,287,400,26,1

Color 0,0,80
Oval 340,240,120,120,1

Color 0,0,220
Text 400,300,GetThisCode-1,1,1

allin=0

If MouseDown(1)=0 
	mudown=0
	allin=1
	gripped=0
	For y=1 To 4
	tw(y)=Int((tw(y)+5)/10)*10	
	Next
EndIf
	
MyCode$=""
For y=1 To 4
	For x=1 To 36
		DrawImage combo(map(x,y),1),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)

		If ((x*10)+tw(y))=0 Or ((x*10)+tw(y))=360
			move(5-y,1)=map(x,y)
			move(5-y,2)=x
			move(5-y,3)=y
			If MouseX()=>380 And MouseX()<=420 Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		EndIf
		If ((x*10)+tw(y))=180 Or ((x*10)+tw(y))=180+360
			move(4+y,1)=map(x,y)
			move(4+y,2)=x
			move(4+y,3)=y
			If MouseX()=>380 And MouseX()<=420 Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		EndIf
		
		If ((x*10)+tw(y))=90 Or ((x*10)+tw(y))=90+360 Then mycode$=mycode$+map(x,y);DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100)
		If (MDist>((y*30)+100)-15 And MDist<((y*30)+100)+15) And (MouseX()<380 Or MouseX()>420) And gripped=0 Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100):If MouseDown(1) Then gripped=y
		If gripped=y Then DrawImage combo(map(x,y),2),400+Sin((x*10)+tw(y))*((y*30)+100),300-Cos((x*10)+tw(y))*((y*30)+100):tw(y)=tw(y)+twistdiff:twistdiff=0:If tw(y)<0:tw(y)=tw(y)+360:EndIf:If tw(y)>360:tw(y)=tw(y)-360:EndIf
	Next
Next
	

		If (MouseX()=>380 And MouseX()<=420) And gripped=0
			If MouseDown(1) Then gripped=5:shifttick=0
		EndIf
		
		If (MouseX()=>380 And MouseX()<=420) And gripped=5 
			If shifttick<-24
				shifttick=0
				For n=1 To 7
					map(move(n,2),move(n,3))=move(n+1,1)
				Next
					map(move(n,2),move(n,3))=move(1,1)

			EndIf
			
			If shifttick>24
				shifttick=0
				For n=2 To 8
					map(move(n,2),move(n,3))=move(n-1,1)
				Next
					map(move(1,2),move(1,3))=move(8,1)

			EndIf
		EndIf


For y=1 To GCodes
For x=1 To 4
	DrawImage combo(Mid$(GetCode$(Y),x,1),1),630+(x*30),(0-((Y-GetThisCode)*40))+300
Next
Next



;Onscreen Timer
Color 255,185,80
Rect 560,500,240,100,1
Color 0,0,0
Rect 564,504,232,92,1

timeleft=(endtime-MilliSecs())/10
If timeleft<0 Then timeleft=0:endofgame=1
Color 255,185,80
If (timeleft/100)<10 And (timeleft Mod 100)=>50 Then Color 255,0,0
If (timeleft/100)<10 And (timeleft Mod 100)<50 Then Color 80,0,0
If (timeleft/100)=0 Then Color 255,180,180

Text 680,550,Right$("00"+(timeleft / 100),2)+":"+Right$("00"+(timeleft Mod 100),2),1,1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Color 0,0,0
Text 401,201,"Score",1,1
Text 399,199,"Score",1,1

Color 0,0,220
Text 400,200,"Score",1,1
Text 400,300,GetThisCode-1,1,1
Flip
Delay 1500


Function MakeBall(n,w#,h#,d)
	temp=CreateImage(100,100)
	SetBuffer ImageBuffer(temp)
	Color 180,180,180
	Oval 0,0,99,99,1
	Color d,d,d
	Oval 16,16,99-32,99-32,1
	Color 16,16,16
	Text 50,50,n,1,1
	SetBuffer BackBuffer()
	ScaleImage temp,Float(Float(w)/100.0),Float(Float(h)/100.0)
	Return temp
End Function

The Other Quest

Created for Workshop #104 | Comments (2) | Rating 100%

Sequel to The CW Quest

Cursors + Spacebar (Or most other keys!)

The Picnic

Created for Workshop #103 | Comments (3) | Rating 87.5%

Save the family's picnic from the flys

Mouse

Heavy Metal Munky

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

Help Munky drop the heavy metal.

Keyboard

Thrusteroids

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

Collect the boxes inside the rotating asteroid.

Cursors (Spacebar to start)

Frostbite

Created for Workshop #094 | Comments (5) | Rating 70%

Collect the ice bricks to make your igloo.

Cursors

Picross

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

Fill in the grid with the right colours.

Mouse

Block-o-Snake

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

Eat the numbers and avoid the blocks.

Cursors

Graphics 320,600,32,2
SetBuffer BackBuffer()

Type ect
	Field x,y,n,s
End Type

SeedRnd MilliSecs()

Type il
Field x,y
End Type

Global tl=15
Global tx=160
Global ty=400
tg=1

For n=1 To tl
ta.il=New il
ta\x=tx
ta\y=ty
Next

Global endofgame

gfx=CreateImage(16,16,50)
SetBuffer ImageBuffer(gfx,1)
For n=7 To 0 Step -1
	Color 0,30*n,0
	Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1
Next
SetBuffer ImageBuffer(gfx,2)
For n=7 To 0 Step -1
	Color 30*n,20*n,0
	Oval 7-n,7-n,16-(16-n/2),16-(16-n/2),1
Next

For n=0 To 10
	SetBuffer ImageBuffer(gfx,10+n)
	Color n*10+100,n*10+100,n*10+100
	Oval 0,0,16,16,1
	Color 0,0,0
	Text 8,8,n,1,1
Next

For n=3 To 8
SetBuffer ImageBuffer(gfx,n)
LockBuffer ImageBuffer(gfx,n)
For x=0 To 15
	For y=0 To 15
		g=Rand(100,130)
		If x=0 Or y=0 Then g=g+30
		If x=15 Or y=15 Then g=g-30
		If n=3 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0)
		If n=4 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(0)
		If n=5 Then argb=(255 Shl 24)+(g Shl 16)+(0 Shl 8)+(0)
		If n=6 Then argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(g)
		If n=7 Then argb=(255 Shl 24)+(0 Shl 16)+(0 Shl 8)+(g)
		If n=8 Then argb=(255 Shl 24)+(g Shl 16)+(g Shl 8)+(g)
												
		WritePixelFast(x,y,argb,ImageBuffer(gfx,n))
	Next
Next
UnlockBuffer ImageBuffer(gfx,n)
Next

grass=CreateImage(320,600)

LockBuffer ImageBuffer(grass)
For x=0 To 320
	For y=0 To 600
		g=Rand(50,80)
		argb=(255 Shl 24)+(0 Shl 16)+(g Shl 8)+(0)
		WritePixelFast(x,y,argb,ImageBuffer(grass))
	Next 
Next
UnlockBuffer ImageBuffer(grass)


SetBuffer BackBuffer()

scry=0
move=180

level=100

Repeat
Cls




If Rand(0,50)=1
	obj.ect=New ect
	obj\s=1
	obj\x=Rand(10,294)
	obj\y=Rand(10,500)
	obj\n=Rand(5*30,10*30)
EndIf


If Rand(0,(level/10))=1 And move=1
	atx=Rand(0,20)*16
	aty=(Rand(-4,-12)*16)+(scry Mod 16)
	b=Rand(2,6)
	c=Rand(3,8)
	
	For n=1 To b
	obj.ect=New ect
	obj\s=2
	obj\x=atx
	obj\y=aty
	obj\n=c
	g=Rand(1,4)
	If g=1 Then atx=atx-16
	If g=2 Then atx=aty+16
	If g=3 Then aty=aty-16
	If g=4 Then aty=aty+16
	Next
	
EndIf

If move>1 Then move=move-1
If move=1 Then scry=scry+1

If KeyDown(208) And tg<>1 Then tg=2
If KeyDown(203) And tg<>4 Then tg=3
If KeyDown(205) And tg<>3 Then tg=4
If KeyDown(200) And tg<>2 Then tg=1

TileImage grass,0,scry

If tg=1 Then ty=ty-2:If move=1 Then ty=ty-1
If tg=2 Then ty=ty+2
If tg=3 Then tx=tx-2
If tg=4 Then tx=tx+2

If move=1 Then ty=ty+1

n=0
For ta.il=Each il
If (n Mod 2)=1 Then DrawImage gfx,ta\x,ta\y,1
If n=tl-1 Then DrawImage gfx,ta\x,ta\y,2

n=n+1
If n=tl Then ta\x=tx:ta\y=ty
If n<tl Then tb.il=After ta.il
ta\x=tb\x
ta\y=tb\y
If move=1 Then ta\y=ta\y+1
Next


For obj.ect=Each ect
kill=0
	If move=1 Then obj\y=obj\y+1
	
	If obj\s=1
		g=((obj\n)/30)+1
		If g<=0 Then kill=1:g=0
		DrawImage gfx,obj\x,obj\y,g+10
		obj\n=obj\n-1
		If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9 
			Addtail(g):kill=1:score=score+g
		EndIf
		
	EndIf
	
	If obj\s=2
		DrawImage gfx,obj\x,obj\y,obj\n
		If Abs((tx+4)-(obj\x+8))<9 And Abs((ty+4)-(obj\y+8))<9
			s=tl/5
			If s<5 Then s=5
			RemTail(s):kill=1
		EndIf
	EndIf
	
	
	
	
	If obj\y>600 Then kill=1
	
If kill=1 Then Delete obj.ect
Next


If tx<-6 Or tx>326 Or ty<-6 Or ty>606 Then endofgame=1

Color 0,0,0
Text 161,581,"Score : "+score,1,1

Color 255,255,255
Text 160,580,"Score : "+score,1,1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0


Color 0,0,0
Text 161,281,"Game Over",1,1

Color 255,255,255
Text 160,280,"Game Over",1,1


Flip
Delay 2500


Function Addtail(m)
For n=1 To m
ta.il=New il
ta\x=tx:ta\y=ty:tl=tl+1
Next
End Function


Function RemTail(m)
ta.il=First il
For n=1 To m
If tl>1 Then tb.il=After ta.il
Delete ta.il
If tl>1 Then ta.il=tb.il
tl=tl-1
Next
If tl<2 Then endofgame=1
End Function

It's a Speedboat!

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

Avoid the land!

Cursors

Graphics 320,600,32,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Dim water(4)
For n=1 To 4
water(n)=CreateImage(320,600)
LockBuffer ImageBuffer(water(n))
For p=1 To 5000
b=Rand(50,100)
l=100

x=Rand(0,319)
y=Rand(3,599)
For e=1 To 4
	argb=(255 Shl 24)+(l Shl 16)+(l Shl 8)+b+l
	WritePixelFast x,y,argb,ImageBuffer(water(n))
	l=l/2:y=y-1
Next

Next
UnlockBuffer ImageBuffer(water(n))
MaskImage water(n),0,0,0
Next
ClsColor 15,15,100

flr=CreateImage(320,600)
chk=CreateImage(8,32)

wake=CreateImage(32,32,26)
MidHandle wake
For n=0 To 25
	SetBuffer ImageBuffer(wake,n)
	Color 140-(n*5),140-(n*5),255-(n*5)
	Oval 16-(n/2),16-(n/2),n,n,0
Next

boat=CreateImage(9,16)
SetBuffer ImageBuffer(boat)
For n=-30 To 30
Color 255,80,80
If n>-20 And n<20 Then Color 255,255,255
Line 4,0,4+Sin(n)*30,0+Cos(n)*30
Next


HidePointer()

box=1600
boy=5000
spx=0
spy=0

inl=50
inr=50
gol=Rand(-1,1)
gor=Rand(-1,1)



Type ke
Field x,y,g,s
End Type



Repeat
SetBuffer ImageBuffer(flr)
CopyRect 0,0,320,594,0,6,ImageBuffer(flr),ImageBuffer(flr)
Color 0,0,0
Rect 0,0,320,6,1
For n=5 To 0 Step -1
inl=inl+gol
If Rand(1,50)=1 Then gol=Rand(-2,2)
inr=inr+gor
If Rand(1,50)=1 Then gor=Rand(-2,2)

If inl<10 Then inl=10
If inr<10 Then inr=10
If inl+inr>260*4 Then gol=Rand(-3,-1):gor=Rand(-3,-1)

Color 180,255,0
Line 0,n,inl/4,n
Line 320,n,320-(inr/4),n

Color 0,255,0
Line 0,n,(inl/4)-5,n
Line 320,n,320-((inr/4)-5),n

Next

SetBuffer BackBuffer()
	Cls
	scry=scry+1
	For n=1 To 4
	TileImage water(n),Sin((scry*n)/4)*(n*4),scry*n
	Next


wa.ke=New ke
wa\x=bx-4
wa\y=by
wa\g=-1
wa\s=0

wa.ke=New ke
wa\x=bx+4
wa\y=by
wa\g=1
wa\s=0


spx=spx-KeyDown(203)+KeyDown(205)
spy=spy-KeyDown(200)+KeyDown(208)
If box<0 Then box=0:spx=0
If box>3200 Then box=3200:spx=0
If boy>6000 Then boy=6000:spy=0
If boy<4000 Then boy=4000:spy=0

box=box+spx
boy=boy+spy
bx=box/10
by=boy/10




For wa.ke=Each ke
wa\x=wa\x+wa\g*Rand(1,3)
wa\y=wa\y+Rand(5,6)
wa\s=wa\s+1
show=wa\s+Rand(-1,1)
If show<0 Then show=0
If show>25 Then show=25
DrawImage wake,wa\x,wa\y,show
If wa\s=25 Then Delete wa.ke
Next


DrawImage flr,0,0
DrawImage boat,bx-4,by-16

tick=tick+1
If (tick Mod 4)=1
CopyRect bx-4,by-16,8,32,0,0,ImageBuffer(flr),ImageBuffer(chk)
If ImagesCollide(chk,0,0,0,boat,0,0,0) Then endofgame=1
EndIf
score=score+1

Color 0,0,0
Text 161,1,"Distance : "+score,1,0
Color 255,255,255
Text 160,0,"Distance : "+score,1,0

	
Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Delay 2500

Bucket Full of Numbers

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

Catch the numbers in the bucket. The higher the number you catch, the more points you get. 50 numbers to catch.

Use 1->0 to position the bucket.

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

Dim array(3,5)

For n=1 To 3
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
Next

font=LoadFont("Arial",24)
SetFont font

score=0


nums=3
GoX=5

Repeat
Cls


For n=1 To 10
If KeyDown(n+1) Then GoX=n
Next


For n=1 To 3
array(n,2)=array(n,2)+array(n,4)
Color 255,255,255
Text (array(n,1)*64)-32,array(n,2),array(n,3),1,1

If array(n,2)>480
If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000
If nums<50
nums=nums+1
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
EndIf
EndIf

If array(n,2)=>400 And array(n,2)<=460 And array(n,1)=GoX
Score=score+array(n,3)
If nums=50 Then fin=fin+1:array(n,1)=500:array(n,2)=-10000

If nums<50
array(n,1)=Rand(1,10)
array(n,2)=Rand(-100,-600)
array(n,3)=Rand(0,9)
array(n,4)=Rand(4,8)
nums=nums+1
EndIf
EndIf

Next


Color 128,255,128
Rect (GoX*64)-48,400,32,60,1

If fin=3 Then endofgame=1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0



Cls
Text 320,240,"You scored",1,1
Text 320,280,score,1,1
Flip
Delay 2500

Super Roadster

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

Keep the roadster on the road!

Cursors left and right to turn.

Graphics 600,600,32,2
Graphics 200,200,32,3
SetBuffer BackBuffer()

PAng#=90
PX#=100
PY#=100


RAng=9000
RWide=40
RAngGo=0
SeedRnd MilliSecs()

Frametime=0

Repeat
Cls

Frametime=Frametime+1

RAng=RAng+RAngGo


If Rand(1,50)=1 Then RAngGo=Rand(-10,10)*25
If Rand(1,50)=1 Then RAngGo=Rand(-10,10)*12
If Rand(1,50)=1 Then RAngGo=Rand(-10,10)

PX=PX+Sin(PAng)*2.1
PY=PY-Cos(PAng)*2.1

PX=PX-Sin(Float(RAng)/100)*2
PY=PY+Cos(Float(RAng)/100)*2

Line PX+Sin(PAng)*10,PY-Cos(PAng)*10,PX-Sin(PAng+20)*10,PY+Cos(PAng+20)*10
Line PX+Sin(PAng)*10,PY-Cos(PAng)*10,PX-Sin(PAng-20)*10,PY+Cos(PAng-20)*10

If ((PX+Sin(PAng)*10)<0 Or (PX+Sin(PAng)*10)>200) Or ((PY-Cos(PAng)*10)<0 Or (PY-Cos(PAng)*10)>200)
endofgame=1
EndIf

Line 100+(Sin((Float(RAng)/100))*200)-(Sin(90+(Float(RAng)/100))*RWide),100-(Cos((Float(RAng)/100))*200)+(Cos(90+(Float(RAng)/100))*RWide),100-(Sin((Float(RAng)/100))*200)-(Sin(90+(Float(RAng)/100))*RWide),100+(Cos((Float(RAng)/100))*200)+(Cos(90+(Float(RAng)/100))*RWide)
Line 100+(Sin((Float(RAng)/100))*200)-(Sin(270+(Float(RAng)/100))*RWide),100-(Cos((Float(RAng)/100))*200)+(Cos(270+(Float(RAng)/100))*RWide),100-(Sin((Float(RAng)/100))*200)-(Sin(270+(Float(RAng)/100))*RWide),100+(Cos((Float(RAng)/100))*200)+(Cos(270+(Float(RAng)/100))*RWide)

PAng=PAng+(KeyDown(205)*2)-(KeyDown(203)*2)

Flip

Delay 10

If KeyDown(1) Then endofgame=99
Until endofgame<>0

Cls

Text 100,75,"Distance Travelled",1,1
Text 100,125,Frametime/100+" Miles",1,1
Flip
Delay 2500

Rolly Polly Bally

Created for Workshop #084 | Comments (2) | Rating 62.5%

Guide the ball atop the platforms.

Cursors

Graphics 600,600,32,2
Graphics 200,200,32,3
SetBuffer BackBuffer()

SeedRnd MilliSecs()

Dim array(4,3)

atx=68
aty=68
r=Rand(1,4)
For n=1 To 3
array(n,1)=atx
array(n,2)=aty
array(n,3)=255*n
r=Rand(1,4)
If r=1 Then atx=atx-64
If r=2 Then aty=aty+64
If r=3 Then atx=atx+64
If r=4 Then aty=aty-64
Next

gx=0
gy=0
speed=2

score=3

Repeat
Cls


For n=1 To 2
If array(n,3)>array(n+1,3)
For e=1 To 3
array(4,e)=array(n,e)
array(n,e)=array(n+1,e)
array(n+1,e)=array(4,e)
Next
EndIf
Next

on=0

For n=1 To 3
c=array(n,3)/3
If c>255 Then c=255

array(n,3)=array(n,3)-Speed

If array(n,3)<0
array(n,1)=atx
array(n,2)=aty
array(n,3)=255*3
r=Rand(1,4)
If r=1 Then atx=atx-64
If r=2 Then aty=aty+64
If r=3 Then atx=atx+64
If r=4 Then aty=aty-64
score=score+1
st=st+1
If st=10 Then st=0:speed=speed+1
If speed>25 Then speed=25
EndIf

array(n,1)=array(n,1)-(gx/3)
array(n,2)=array(n,2)-(gy/3)

Color c,c,c
Rect array(n,1),array(n,2),64,64,1

If RectsOverlap(array(n,1),array(n,2),64,64,94,94,12,12) Then on=1
Next

If on=0 Then endofgame=1


atx=atx-(gx/3)
aty=aty-(gy/3)


gx=gx+KeyDown(205)-KeyDown(203)
gy=gy+KeyDown(208)-KeyDown(200)
If KeyDown(205)=0 And gx>0 Then gx=gx-1
If KeyDown(203)=0 And gx<0 Then gx=gx+1

If KeyDown(200)=0 And gy<0 Then gy=gy+1
If KeyDown(208)=0 And gy>0 Then gy=gy-1



Color 255,100,100
Oval 92,92,16,16,1




Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0


Cls

Text 100,75,"You scored",1,1
Text 100,125,score,1,1
Flip
Delay 2500

Drop a Bomb

Created for Workshop #084 | Comments (2) | Rating 50%

Drop the bomb to destroy the blocks.

Cursors and Spacebar

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


Dim array(2,3)

For n=1 To 2
array(n,1)=Rand(0,640)
array(n,2)=Rand(0,480)
array(n,3)=Rand(0,360)
Next



PAng#=0
PSpeed#=0
; Oooh, Pang, might try that next..
PShot=0
PShotX#=0
PShotY#=0
PShotAng#=0
PDist=0
PX#=320
PY#=240

Repeat
Cls

Color 255,255,255

If KeyDown(200) Then pspeed=pspeed+0.1
If KeyDown(200)=0 Then pspeed=pspeed-0.05
If pspeed>5 Then pspeed=5
If pspeed<0 Then pspeed=0
PX=PX+Sin(Pang)*pspeed
Py=Py+Cos(Pang)*pspeed
PAng=PAng+(KeyDown(203)-KeyDown(205))*4

If pang>360 Then pang=pang-360
If pang<0 Then pang=pang+360

If PX<0 Then PX=0:Pang=ReflectNormal(PAng,180)
If PY<0 Then PY=0:Pang=ReflectNormal(PAng,270)
If PX>640 Then PX=640:Pang=ReflectNormal(PAng,0)
If PY>480 Then PY=480:Pang=ReflectNormal(PAng,90)


If KeyDown(57) Then PShot=1


Line PX,PY,PX-Sin(PAng)*10,PY-Cos(PAng)*10

If PShot=0 Then PShotAng=PAng:PShotX=PX:PShotY=PY:PDist=0:Oval PX-(Sin(PAng)*12)-8,PY-(Cos(PAng)*12)-8,16,16,1


If PShot=1
PDist=PDist+2
If PDist=256 Then PShot=0
Color 255,255-PDist/2,255-PDist
Oval PShotX-(32-(PDist/8)),PShotY-(32-(PDist/8)),64-(PDist/4),64-(PDist/4),1
For n=1 To 2
If RectsOverlap(PShotX-(32-(PDist/8)),PShotY-(32-(PDist/8)),64-(PDist/4),64-(PDist/4),array(n,1)-8,array(n,2)-8,16,16)
	score=score+1
	array(n,1)=Rand(0,640)
	array(n,2)=Rand(0,480)
	array(n,3)=Rand(0,360)
EndIf
Next
EndIf




For n=1 To 2
Color 160,0,0
array(n,1)=array(n,1)+Sin(array(n,3))*2
array(n,2)=array(n,2)+Cos(array(n,3))*2

If array(n,1)<0 Then array(n,1)=0:array(n,3)=ReflectNormal(array(n,3),180)
If array(n,2)<0 Then array(n,2)=0:array(n,3)=ReflectNormal(array(n,3),270)
If array(n,1)>640 Then array(n,1)=640:array(n,3)=ReflectNormal(array(n,3),0)
If array(n,2)>480 Then array(n,2)=480:array(n,3)=ReflectNormal(array(n,3),90)

Rect array(n,1)-8,array(n,2)-8,16,16,1

If RectsOverlap(array(n,1)-8,array(n,2)-8,16,16,PX-2,PY-2,4,4)
Endofgame=1
EndIf
Next


Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Color 255,255,255
Cls
Text 320,200,"You scored",1,1
Text 320,280,score,1,1
Flip

Delay 2500

Function ReflectNormal#(MoveAngle#,WallAngle#)
Local Out#=0
;Should work for most angles (untested, mind!) , but will only reflect as a mirror would.
Repeat
If MoveAngle>360 Then MoveAngle=MoveAngle-360
If MoveAngle<0 Then MoveAngle=MoveAngle+360
Until MoveAngle=>0 And MoveAngle<=360

Repeat
If WallAngle>360 Then WallAngle=WallAngle-360
If WallAngle<0 Then WallAngle=WallAngle+360
Until WallAngle=>0 And WallAngle<=360

WallNormal#=WallAngle-90
Out=WallAngle+(WallAngle-MoveAngle)


Return Out#
End Function

Captcha tha Flaaag

Created for Workshop #084 | Comments (4) | Rating 16.6%

Grab the flag, then carry it over to the left.

Cursors

Graphics 800,600,32,2
SetBuffer BackBuffer()


Global p1x=200
Global p1y=300
Global p2x=600
Global p2y=300

font=LoadFont("Arial",24)
SetFont font

endtime=MilliSecs()+(1000*60)

SeedRnd MilliSecs()
Global fx,fy,f

PutaFlagdownSomewhereSoItsAwayFromThePlayers

d1=0
d2=0

Repeat
Cls
wave=wave+4

Color 255,0,0
Rect p1x-8,p1y-8,16,16,1

Color 0,0,255
Oval p2x-8,p2y-8,16,16,1

If f=1 Then fx=p1x-4:fy=p1y
If f=2 Then fx=p2x-4:fy=p2y


Color 0,255,0
Line fx,fy-8,fx,fy+12

e=Sin(wave)*12
If e>0 Then Rect fx,fy-8,e,8,1
If e<0 Then Rect fx+e,fy-8,0-e,8,1


If fx<50 Then score1=score1+1:Gosub showscores:PutaFlagdownSomewhereSoItsAwayFromThePlayers
If fx>750 Then score2=score2+1:Gosub showscores:PutaFlagdownSomewhereSoItsAwayFromThePlayers


If KeyDown(200) Then d1=1
If KeyDown(208) Then d1=2
If KeyDown(203) Then d1=3
If KeyDown(205) Then d1=4

r=Rand(1,20)
If f=0
If p2x<fx+4 And r=1 Then d2=4
If p2x>fx-4 And r=2 Then d2=3
If p2y<fy+4 And r=3 Then d2=2
If p2y>fy-4 And r=4 Then d2=1
EndIf

If f=1 And r=1 Then d2=Rand(1,4)

If f=2 Then d2=4

If Abs(p1x-fx)<12 And Abs(p1y-fy)<12 And f=0 Then f=1
If Abs(p2x-fx)<12 And Abs(p2y-fy)<12 And f=0 Then f=2


If d1=1 Then p1y=p1y-4
If d1=2 Then p1y=p1y+4
If d1=3 Then p1x=p1x-4
If d1=4 Then p1x=p1x+4

If d2=1 Then p2y=p2y-4
If d2=2 Then p2y=p2y+4
If d2=3 Then p2x=p2x-4
If d2=4 Then p2x=p2x+4

timeleft=endtime-MilliSecs()

If timeleft<0 Then endofgame=1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0
Gosub showscores:End



.ShowScores
Cls
Color 255,255,255
Text 400,200,"Scores",1,1
Color 255,0,0
Text 400,300,"Red : "+score1,1,1
Color 0,0,255
Text 400,350,"Blue : "+score2,1,1
Color 0,255,0
If endofgame=0
Text 400,400,"Time Left : "+millisecstotime$(timeleft),1,1
EndIf

If endofgame<>0
Text 400,400,"Game Over",1,1
EndIf

Flip
Delay 1500
endtime=endtime+1500
Return



Function millisecstotime$(mills)
out$=""
mills=(mills/1000)
secs=mills Mod 60
mills=(mills/60)
mins=mills Mod 60
out$=Right$("00"+mins,2)+":"+Right$("00"+secs,2)
Return out$
End Function






Function PutaFlagdownSomewhereSoItsAwayFromThePlayers()
Repeat
done=0
f=0

fx=Rand(200,600)
fy=Rand(100,500)

dx=fx-p1x
dy=fy-p1y
d1=Sqr((dx*dx)+(dy*dy))
dx=fx-p2x
dy=fy-p2y
d2=Sqr((dx*dx)+(dy*dy))

If d1<100 Or d2<100 Then done=1

Until done=0

End Function

MagnoPlat

Created for Workshop #082 | Comments (6) | Rating 65%

Guide the ball bearings to the swirly exit thing.

Cursors

The Really Stupid Ball Bouncing Game

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

Bounce the ball down the path.

Cursors

Program
Uses Pure2d, Keyset

Var
    x,y,n:integer  
    mx,mt:integer
    mt2:integer    
    tick:integer
    speed:integer 
    ballx:integer   
    Heart:integer
    bally,bounce:real 
    score:integer  
    sx,ex:integer      
    endofgame:integer
    offset : array[100000,2] of integer                 
    col:array[100000,6] of integer    
    ballx2:array[500] of integer

Begin
    OpenScreen(800, 600)
mx=300
endofgame=0
mt=1
Speed=1
Tick=0
mt2=rand(0-Speed,Speed)   

ballx=400
bally=600
bounce=0
Score=0
Heart=5

for x=1 to mx
for y=1 to 3
col[x,y]=180
col[x,y+3]=1
next
next

    Repeat   
        CLS( torgba(40,80,160))
                 
            for x=1 to mx-1
                for y=1 to 3
                    col[x,y]=col[x+1,y]
                    if x<70 then col[x,y]=col[x+4,y]
                    if x<140 then col[x,y]=col[x+3,y]
                    if x<210 then col[x,y]=col[x+2,y]
                    
                next                                       
                y=1
                offset[x,y]=offset[x+1,y] 
                if x=mx-1 then offset[x,y]=offset[x,y]+rand(-2,2)
                    if x<70 then offset[x,y]=offset[x+4,y]
                    if x<140 then offset[x,y]=offset[x+3,y]
                    if x<210 then offset[x,y]=offset[x+2,y]
                                      
            next  
             
tick=tick+1
if tick>250 then tick=0; speed=speed+1
score=score+1

                           
             bounce=bounce+4
             bally=600-abs(sin(bounce)*50) 
             if bounce>176 
                bounce=0                    
             endif
                if keydown(VK_Left) then ballx=ballx-2
                if keydown(VK_Right) then ballx=ballx+2  
                
            x=mx                
                for y=1 to 3
                col[x,y]=col[x,y]+col[x,y+3]
                if col[x,y]>180 then col[x,y+3]=Rand(-4,1)
                if col[x,y]<100 then col[x,y+3]=Rand(1,4)   
                if rand(1,10)=1 then col[x,4]=rand(-4,4)
                next                         
                
                offset[x,1]=offset[x,1]+mt2
                if offset[x,1]<-250 then offset[x,1]=-250; mt2=2
                if offset[x,1]>250 then offset[x,1]=250; mt2=-2
                if (rand(1,30)=1) and (offset[x,1]<100) then mt2=rand(0,speed)
                if (rand(1,30)=1) and (offset[x,1]>-100) then mt2=rand(0-speed,0)

            for x=0 to mx   
            sx=(400-offset[x,1])-((mx-x)/3)
            ex=(400-offset[x,1])+((mx-x)/3)
                line (0,(300-offset[x,2])+((mx-x)*mt),800,(300-offset[x,2])+((mx-x)*mt), ToRGBA(col[x,1]-80,col[x,1],col[x,1]-80))     
                line (sx,(300-offset[x,2])+((mx-x)*mt),ex,(300-offset[x,2])+((mx-x)*mt), ToRGBA(col[x,1]+40,col[x,1]+20,col[x,1]))
                if (x=5) and (bounce=0)             
                    if (ballx<sx) then heart=heart-1
                    if (ballx>ex) then heart=heart-1
                endif 
            next
                  
ballx2[1]=ballx
for n=250 to 2 step -1
ballx2[n]=ballx2[n-1]
next
for n=1 to heart              
        ellipse (ballx2[((n-1)*25)+1],600-abs(sin(bounce+(n*25))*50),20,20,torgba(255-(n*25),0,0),1)
next

            pencolor(torgba(0,0,0))
            text (400,200,"Distance "+score)
            if heart=0 then endofgame=1                            
            
        Flip          
        if keydown(VK_Escape) then endofgame=99
    Until endofgame<>0
                      
    
    pause (1500)          
    
    CloseScreen
End

Mouse Fly

Created for Workshop #078 | Comments (6) | Rating 37.5%

Glide the plane across without crashing it.

Move Mouse Up!

Graphics 800,600,32,2
SetBuffer BackBuffer()

HidePointer()



mex#=0
mey#=0

Repeat
Cls

Color 0,128,0
Rect 0,0,800,600,1
Color 0,128,255
Rect 0,0,800,500,1

If started=0
Color 0,0,0
Text 400,300,"Click in the circle to start",1,1
Oval 4,4,12,12,0
mex=MouseX()
mey=MouseY()
e=MouseYSpeed()
EndIf



If MouseDown(1) And MouseX()<16 And MouseY()<16 Then started=1



If started=1 
mey=mey+((MouseY()-wmey)/25)
mey=mey+2.5
mex=mex+1
MoveMouse mex,mey
EndIf
wmey=mey
Color 0,0,0

If started=1 And mey>500 Then endofgame=2:score=0:Text 400,300,"Awwww, you crashed.",1,1
If started=1 And mex>800 Then endofgame=1:score=500-mey:Text 400,300,"You got to the other side!  Score "+score,1,1


Color 255,255,255
Line mex-4,mey-2,mex+2,mey
Line mex-4,mey+2,mex+2,mey
Line mex-4,mey-2,mex-2,mey
Line mex-4,mey-2,mex-2,mey



Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Repeat
Flip
Until KeyDown(1) Or MouseDown(1)

Destroy All Enemies

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

Blast all enemies within the randomly specified time limit.

Mouse

PlatGhosts

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

Help Platdude grab the gems, and avoid the ghosts.

Mouse

Green Snake

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

Guide the green, grab the blue, avoid the red.

Mouse

; Started 23:30
; Completed 00:20

SW=640
SH=480
Graphics SW,SH,32,2
SetBuffer BackBuffer()

SSize=4
Wid=(SW/SSize)+1
Hig=(SH/SSize)+1
Dim map(Wid,Hig)

Global MX,MY

Type git
Field x,y,gx,gy
End Type

hiscore=0

.TitleScreen
Repeat
Cls

Color 180,180,255:Text sw/2,sh/2-40,"Get the Blue Squares",1,1
Color 255,180,180:Text sw/2,sh/2,"Avoid the Red Squares",1,1
Color 180,255,180:Text sw/2,sh/2+40,"Today's Best Score : "+hiscore,1,1

If MouseDown(1) Then Gosub StartRound:If score>hiscore Then hiscore=score

Flip
Until KeyDown(1)

End




.StartRound
endofgame=0
For x=0 To Wid
For y=0 To Hig
map(x,y)=0
Next
Next

MX=MouseX()/8
MY=MouseY()/8
MX=(MX*8)+4
MY=(MY*8)+4

For a.git=Each git:Delete a.git:Next
lev=25
score=0
mscore=5
Repeat
Cls

Color 255,255,255
Text sw/2,10,Score

For x=0 To Wid
For y=0 To Hig

	If map(x,y)<0
		map(x,y)=map(x,y)+1
		Color 0,0,255:If map(x,y)=0 Then Color 0,0,0
		Rect x*ssize,y*ssize,ssize,ssize,1
	EndIf
	If map(x,y)>0
		map(x,y)=map(x,y)-1
		Color map(x,y)*5,map(x,y)*15,map(x,y)*5
		Rect x*ssize,y*ssize,ssize,ssize,1
	EndIf
	If mousein(x*ssize,y*ssize,ssize,ssize) 
		If map(x,y)<0 Then Score=Score+1
		map(x,y)=15
	EndIf

Next
Next


For a.git=Each git
kill=0
a\x=a\x+a\gx
a\y=a\y+a\gy
If mousein(a\x,a\y,16,16) Then endofgame=1
Color 255,0,0
Rect a\x,a\y,16,16,1
If a\gx<0 And a\x<-20 Then kill=1
If a\gx>0 And a\x>sw+20 Then kill=1
If a\gy<0 And a\y<-20 Then kill=1
If a\gy>0 And a\y>sh+20 Then kill=1
If kill=1 Then Delete a.git
Next

ts=4
If score>mscore And lev>4 Then mscore=mscore+5:lev=lev-4

If Rand(1,10)=1 Then map(Rand(0,wid),Rand(0,hig))=Rand(-100,-150)
If Rand(1,lev)=1
a.git=New git
side=Rand(1,4)
If side=1
	a\x=Rand(0,sw):a\y=-20
	a\gx=Rand(-ts,ts):a\gy=Rand(1,ts)
EndIf

If side=2
	a\x=-20:a\y=Rand(0,sh)
	a\gx=Rand(1,ts):a\gy=Rand(-ts,ts)
EndIf

If side=3
	a\x=Rand(0,sw):a\y=sh+20
	a\gx=Rand(-ts,ts):a\gy=Rand(-1,-ts)
EndIf

If side=4
	a\x=sw+20:a\y=Rand(0,sh)
	a\gx=Rand(-1,-ts):a\gy=Rand(-ts,ts)
EndIf

EndIf


MHL=MouseHit(1)
MHR=MouseHit(2)

If MX<MouseX() Then MX=MX+ssize
If MX>MouseX() Then MX=MX-ssize
If MY<MouseY() Then MY=MY+ssize
If MY>MouseY() Then MY=MY-ssize


Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Repeat
Text sw/2,sh/2,"DEAD",1,1
Flip
If KeyDown(1) Then End
Until MouseDown(1)
Repeat
Text sw/2,sh/2,"DEAD",1,1
Flip
Until MouseDown(1)=0
Return


Function Mousein(x,y,w,h)
Return (MX=>x And MX<=x+w And MY=>y And MY<=y+h)
End Function


Function Col(n)
Select n
Case 1
Color 255,0,0
Case 2
Color 255,180,180
Case 3
Color 255,255,0
Case 4
Color 255,255,255
Case 5
Color 0,255,0
Case 6
Color 180,255,180
Case 7
Color 0,0,255
Case 8
Color 180,180,255
Case 9
Color 255,0,255
Case 10
Color 0,0,0
End Select
End Function

The CW Quest

Created for Workshop #065 | Comments (2) | No Votes

Help Platdude find the four missing parts of the Workshop, so that Guybrush can reopen it.

Cursors and Space (or Z/X/Numpad 0)

Line Squares

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

Move the mouse into the squares to score.

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

HidePointer()
SeedRnd MilliSecs()

HighCombo=0
HighScore=0



SaveScores=0
;Set to 1 if you'd like to save your highscores.
SaveDir$="system/062/"
;But make sure this directory exists..


SaveFile$="highscore.dat"
If savescores=1
	If FileType(savedir+savefile)=1
		quicky=ReadFile(savedir+savefile)
		highcombo=ReadInt(quicky)
		highscore=ReadInt(quicky)
		CloseFile quicky
	EndIf
EndIf


ML=20
Score=0
Font=LoadFont("Arial",26)
SetFont font

Type ox
Field x
Field y
Field col
Field Time
End Type


Type bos
Field x
Field y
Field col
Field digit
Field time
End Type


MyCol=0
MyCombo=0

Dim LC#(ML,2)



.MainMenu
Repeat
Cls
Color 255,255,255

Text 400,50,"Line Squares",1,1
Color 255,0,0
Text 400,200,"Move the mouse into the squares to score.",1,1
Text 400,250,"Get the same colors to score combos.",1,1
Color 0,255,0
Text 400,400,"High Score : "+HighScore,1,1
Text 400,450,"Best Combo : "+HighCombo,1,1

If MouseDown(1) Then Gosub StartRound

Flip
Until KeyDown(1)


End


.StartRound
For n=1 To ML
LC#(n,1)=400:LC#(n,2)=300
Next
For b.ox=Each ox:Delete b.ox:Next
For com.bos=Each bos:Delete com.bos:Next

CenterX=400
CenterY=300

EndTime=MilliSecs()+60000

Repeat
Cls
;CopyRect 10,0,790,600,0,0

For n=1 To ML-1
LC(n,1)=LC(n+1,1)
LC(n,2)=LC(n+1,2)

LC(n,1)=LC(n,1)-((LC(n,1)-CenterX)/(n+1))
LC(n,2)=LC(n,2)-((LC(n,2)-CenterY)/(n+1))
Next

CenterX=LC(1,1)
CenterY=LC(1,2)

LC(ML,1)=MouseX()
LC(ML,2)=MouseY()

For n=0 To ML-1
If MyCol=0 Then Color n*12,n*12,n*12
If MyCol=1 Then Color n*12,180,180
If MyCol=2 Then Color 180,n*12,180
If MyCol=3 Then Color 180,180,n*12
If n=0 Then Line CenterX,CenterY,lC(n+1,1),LC(n+1,2)
If n>0 Then Line LC(n,1),lc(n,2),lC(n+1,1),LC(n+1,2)
Next

Text 400,10,Score,1,1

Timeleft=EndTime-MilliSecs()

Text 400,580,Millisecstotime(Timeleft),1,1
If Timeleft<0 Then endofgame=1


If Rand(1,25)=1
Repeat
X=Rand(0,800):Y=Rand(0,600)
fin=0
If Abs(X-MouseX())>100 And Abs(Y-MouseY())>100 Then fin=1
Until fin=1

B.ox=New ox
B\x=x:b\y=y
b\col=Rand(1,3)
b\time=Rand(150,200)
If b\col=mycol Then b\time=Rand(SCom,SCom+50)
EndIf


For b.ox=Each ox
If b\Col=1 Then Color 255,100,100
If b\Col=2 Then Color 100,255,100
If b\Col=3 Then Color 100,180,255
Rect b\x-(b\time/8),b\y-(b\time/8),b\time/4,b\time/4,0

b\time=b\time-1
kill=0
If b\time=0 Then kill=1
If mousein((b\x-(b\time/4))-2,(b\y-(b\time/4))-2,(b\time/2)+4,(b\time/2)+4)
If b\col=MyCol Then mycombo=mycombo+1:score=score+b\time+(Combo*10):If SCom>20 Then SCom=SCom-10
If b\col<>MyCol Then mycombo=1:mycol=b\col:score=score+b\time:SCom=100
kill=1
com.bos=New bos
com\x=b\x
com\y=b\y
com\col=b\col
com\digit=mycombo
com\time=30
EndIf


If kill=1 Then Delete b.ox
Next


For com.bos=Each bos
If com\Col=1 Then Color 255,100,100
If com\Col=2 Then Color 100,255,100
If com\Col=3 Then Color 100,100,255
com\time=com\time-1
kill=0
If com\time=0 Then kill=1

Text com\x,com\y,com\digit,1,1
If kill=1 Then Delete com.bos
Next

If MyCombo>HighCombo Then HighCombo=MyCombo
If Score>HighScore Then HighScore=Score


Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

If savescores=1
		quicky=WriteFile(savedir+savefile)
		WriteInt(quicky,Highcombo)
		WriteInt(quicky,Highscore)
		CloseFile quicky
EndIf


Return


Function mousein(x1,y1,wide,high)
If MouseX()=>x1 And MouseX()<=x1+wide And MouseY()=>y1 And MouseY()<=y1+high Then Return True
End Function


Function millisecstotime$(mills,hron=0,minon=0,secon=1,milson=1)
out$=""
millsecs=(mills Mod 1000)/10
mills=(mills/1000)
secs=mills Mod 60
mills=(mills/60)
mins=mills Mod 60
mills=(mills/60)
If hron=1 Then out$=out$+xdigitstring$(mills,2)+":"
If minon=1 Then out$=out$+xdigitstring$(mins,2)+":"
If secon=1 Then out$=out$+xdigitstring$(secs,2)+":"
If milson=1 Then out$=out$+xdigitstring$(millsecs,2)


Return out$
End Function

Function xdigitstring$(integer,digits)
curstring$=Str$(integer)
If Len(curstring$)>digits Then curstring$=Right(curstring$,digits)
If Len(curstring$)<digits
noed=digits-Len(curstring$)
curstring$=String$("0",noed)+Str$(curstring$)
EndIf
Return curstring$
End Function

Line Squiggles

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

Move the mouse through the cavern.

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()
HidePointer()

Top#=Rand(0,300)
High#=Rand(100,300)
Topgo#=0
Highgo#=0

Font=LoadFont("Arial",26)
SetFont font

MB#=2
Dim LC#(100,2)

Wall=CreateImage(900,600)
Squiggle=CreateImage(810,600)
Health=800


Highscore=0


SaveScores=0
;Set to 1 if you'd like to save your highscores.
SaveDir$="system/062/"
;But make sure this directory exists..


SaveFile$="highscoreB.dat"
If savescores=1
	If FileType(savedir+savefile)=1
		quicky=ReadFile(savedir+savefile)
		highscore=ReadInt(quicky)
		CloseFile quicky
	EndIf
EndIf


.MainMenu

Repeat
Cls
Color 255,255,255

Text 400,50,"Line Squiggles",1,1
Color 255,0,0
Text 400,300,"Move the mouse through the cavern.",1,1
Color 0,255,0
Text 400,500,"Best Time : "+Millisecstotime(HighScore),1,1

If MouseDown(1) Then Gosub StartRound

Flip
Until KeyDown(1)


Return



.Startround
SetBuffer ImageBuffer(Wall)
Cls
SetBuffer ImageBuffer(Squiggle)
Cls
SetBuffer BackBuffer()

Checkpoint#=5
MB#=2
Start=MilliSecs()
endofgame=0
Health=800
Repeat


SetBuffer ImageBuffer(Wall)
CopyRect MB,0,800,600,0,0

Color 0,0,0
Rect 800-MB,0,MB,600,1

For n=1 To MB
High=High+Highgo
Top=Top+Topgo
If Rand(1,30)=4 Then TopGo=Rnd(-0.4,0.4)
If Rand(1,30)=8 Then HighGo=Rnd(-0.4,0.4)
If High>300 Then High=300:Highgo=-0.4
If High<100 Then High=100:Highgo=0.4
If Top+High>590 Then Top=590-High:Topgo=-0.4
If Top<10 Then Top=10:Topgo=0.4


Color 25,25,25
Line (799-MB)+n,0,(799-MB)+n,Top
Line (799-MB)+n,Top+High,(799-MB)+n,600

Next


SetBuffer ImageBuffer(Squiggle)
CopyRect MB,0,800-MB,600,0,0

Color Rand(75,255),Rand(75,255),Rand(75,255)
Rect 800-MB,0,MB,600,1


For n=1 To MB-1
DP#=(200/MB)
Color n*DP,n*DP,n*DP
Line LC(n,1)-MB+n,LC(N,2),LC#(n+1,1),LC#(n+1,2)

LC#(n,1)=lc#(n+1,1)
LC#(n,2)=lc#(n+1,2)
Next

For n=MB To 100
LC(n,1)=MouseX()
LC(n,2)=MouseY()
Next

SetBuffer BackBuffer()

LockBuffer ImageBuffer(Wall)
ImOn=(ReadPixelFast(MouseX(),MouseY(),ImageBuffer(Wall)) And %011111111)
UnlockBuffer ImageBuffer(Wall)

If ImOn>10 Then Health=Health-((MB/2)+1)

Cls
DrawImage Squiggle,0,0
DrawImage Wall,0,0

Color 255,255,255
Rect 0,0,Health,10

GameTime=MilliSecs()-Start
Text 400,590,Millisecstotime(GameTime),1,1

If (Gametime/1000)>Checkpoint Then MB=MB+1:Checkpoint=Checkpoint+5

If Gametime>Highscore Then Highscore=Gametime

Flip
If Health<=0 Then Endofgame=1
If KeyDown(1) Then Endofgame=99
Until Endofgame<>0

If savescores=1
		quicky=WriteFile(savedir+savefile)
		WriteInt(quicky,Highscore)
		CloseFile quicky
EndIf

Return





Function millisecstotime$(mills,hron=0,minon=1,secon=1,milson=1)
out$=""
millsecs=(mills Mod 1000)/10
mills=(mills/1000)
secs=mills Mod 60
mills=(mills/60)
mins=mills Mod 60
mills=(mills/60)
If hron=1 Then out$=out$+xdigitstring$(mills,2)+":"
If minon=1 Then out$=out$+xdigitstring$(mins,2)+":"
If secon=1 Then out$=out$+xdigitstring$(secs,2)+":"
If milson=1 Then out$=out$+xdigitstring$(millsecs,2)
Return out$
End Function

Function xdigitstring$(integer,digits)
curstring$=Str$(integer)
If Len(curstring$)>digits Then curstring$=Right(curstring$,digits)
If Len(curstring$)<digits
noed=digits-Len(curstring$)
curstring$=String$("0",noed)+Str$(curstring$)
EndIf
Return curstring$
End Function

SuperDuck

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

Guide Superduck through the level, to the other side, for whatever reason that superducks like to run from left to right.

Cursors. Space to start.

SAnIIC the ASCIIhog

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

Guide SAnIIC to the other end of the level.

Cursors

Greenie's Bits

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

Perform binary calculations for Greenie.

Mouse

Mario's Fiery Fourth

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

Original : Fiery Fourth by Eikon

Cursors, Z to run, X to jump

Scratched Tanks

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

Basic clone of "Scorched Tanks" from the Amiga.

Mouse

Break

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

Circular Breakout

Mouse

Dance Dance Mouse

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

A cheaper DDR clone!

Mouse

Typing Arcade

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

Type to complete the classic Arcade games

OMG! WTF! Keyboard!

Future Classics

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

Play 4 super new games, that are destined to be Future Classics.

Cursors + Space

Zombie!!

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

Guide all the zombies to the Zombie Home

Cursors

Love Hearts

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

Match 3 or more to score points.

Mouse

Duck In Space

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

Guide the Duck though each level.

Mouse

Paperback

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

Guide Mr Stickman across the screens, from left to right.

Left MB = Jump, Right MB = Walk

Light the Bricks

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

Light the bricks. Lightning can switch them off again, mind..

Mouse

Global SCRX=160
Global SCRY=120
scrx=scrx-1:scry=scry-1
bricks=100

Graphics 800,600,32,2
Graphics scrx+1,scry+1,32,3
SetBuffer BackBuffer()

HidePointer

Dim mtrx(scrx+1,scry+1,3)

Type in
Field x
Field y
End Type


Type dge
Field x#
Field y#
Field r,g,b
Field ang,cnt
End Type


Type ick
Field x
Field y
Field on
End Type

score=0

Repeat
Cls
CPUTick=CPUTick+1

LockBuffer BackBuffer()
For x=0 To scrx
For y=0 To scry
For n=1 To 3
If mtrx(x,y,n)>0 Then mtrx(x,y,n)=mtrx(x,y,n)*.95:If mtrx(x,y,n)<10 Then mtrx(x,y,n)=0
If x>0 Then mtrx(x-1,y,n)=mtrx(x,y,n)
Next
argb=(255 Shl 24)+(mtrx(x,y,1) Shl 16)+(mtrx(x,y,2) Shl 8)+mtrx(x,y,3)
WritePixelFast x,y,argb,BackBuffer()
Next
Next


If Rand(1,5)=1
ra.in=New in
ra\x=Rand(0,scrx)
ra\y=0
EndIf

Color Rand(150,200),Rand(150,200),Rand(220,255)
If Rand(1,50)=1
flash
	splo.dge=New dge
	splo\x=Rand(scrx/4,scrx)
	splo\y=Rand(0,scry/2)
	splo\ang=Rand(160,200)
	splo\cnt=Rand(2,4)
	splo\r=ColorRed():splo\b=ColorBlue():splo\g=ColorGreen()
EndIf


For splo.dge=Each dge
kill=0
	If splo\x<0 Or splo\x>scrx Or splo\y<0 Or splo\y>scry Then kill=1
	If kill=0
	splo\x=splo\x+Sin(splo\ang)
	splo\y=splo\y-Cos(splo\ang)
splo\x=splo\x-1
For br.ick=Each ick
If Abs(br\x-splo\x)<4 And Abs(br\y-splo\y)<4 Then br\on=0
Next

	For n=1 To 4
	Plot(splo\x,splo\y,splo\r,splo\g,splo\b)
	If splo\y<scry Then splo\y=splo\y-Cos(splo\ang)

	Next
	Plot(splo\x,splo\y,splo\r,splo\g,splo\b)
	
	If Rand(1,25)=1 And splo\cnt>0
	spl.dge=New dge
	spl\x=splo\x
	spl\y=splo\y
	spl\ang=splo\ang+Rand(-25,25)
	spl\r=splo\r*2:spl\g=splo\g*2:spl\b=splo\b*2
	spl\cnt=splo\cnt-1
	If spl\r>255 Then spl\r=255
	If spl\g>255 Then spl\g=255
	If spl\b>255 Then spl\b=255
	EndIf
	
	t=0
	splo\r=splo\r*0.95:t=t+splo\r
	splo\g=splo\g*0.95:t=t+splo\g
	splo\b=splo\b*0.95:t=t+splo\b
EndIf
	If t<15 Then kill=1
	If kill=1 Then Delete splo.dge
Next


For ra.in=Each in
Plot ra\x,ra\y,0,50,Rand(80,120)
ra\y=ra\y+2
ra\x=ra\x-1
If ra\y>scry Then Delete ra.in
Next

cbrk=0
For br.ick=Each ick
cbrk=cbrk+1
Color 0,70,0
If br\on=1 Then Color 100,255,100
For x=0 To 7
For y=0 To 3
Plot br\x+x,br\y+y
If MouseX()=br\x+x And MouseY()=br\y+y Then br\on=1
Next
Next
br\x=br\x-1
If br\x<-8 Then score=score+br\on:Delete br.ick
Next

If cbrk=0 And bricks=0 Then endofgame=1


For x=0 To scrx
For y=scry-4 To scry
Plot x,y,0,80-((((CPUTick+x) Mod 8)=1)*8),0
Next
Next
If ((CPUTick+x) Mod 8)=0
For y=1 To 4
If Rand(0,10)=1 And bricks>0
br.ick=New ick
br\x=x:br\y=scry-((y+1)*4)
br\on=0
bricks=bricks-1
EndIf
Next
EndIf



Color 255,255,255
Plot MouseX(),MouseY()


UnlockBuffer BackBuffer()
If MouseDown(1)=0 Then mudown=0
Color 0,100,0
Text scrx/2,6,score,1,1
Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0


Flip
Delay 2500

End


Function Plot(x,y,r=-1,g=-1,b=-1)
If x=>0 And x<=scrx And y=>0 And scry<=scry
If r=-1
mtrx(x,y,1)=ColorRed()+(Float(mtrx(x,y,1))*0.35):If mtrx(x,y,1)>255 Then mtrx(x,y,1)=255
mtrx(x,y,2)=ColorGreen()+(Float(mtrx(x,y,2)*0.35)):If mtrx(x,y,2)>255 Then mtrx(x,y,2)=255
mtrx(x,y,3)=ColorBlue()+(Float(mtrx(x,y,3)*0.35)):If mtrx(x,y,3)>255 Then mtrx(x,y,3)=255
EndIf
If r>-1
mtrx(x,y,1)=R+(Float(mtrx(x,y,1))*0.35):If mtrx(x,y,1)>255 Then mtrx(x,y,1)=255
mtrx(x,y,2)=G+(Float(mtrx(x,y,2)*0.35)):If mtrx(x,y,2)>255 Then mtrx(x,y,2)=255
mtrx(x,y,3)=B+(Float(mtrx(x,y,3)*0.35)):If mtrx(x,y,3)>255 Then mtrx(x,y,3)=255
EndIf
EndIf
End Function

Function flash()
For x=0 To scrx
For y=0 To scry
For n=1 To 3
mtrx(x,y,n)=mtrx(x,y,n)+40
Next
Next
Next
End Function

Abstract Munky

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

Jump up to grab Bananas.

Up Cursor

PipeRunners

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

Find all the Barrels, for some reason..

Red Player, WASD = Movement, Q = Pickup, E = Use : Blue Player, IJKL = Movement, U = Pickup, O = Use

Plattings

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

Get all 10 Plattings to their home.

Mouse

SnakePong

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

Guide the ball around, picking up the Blue dots, using the mouse to guide the paddle around. (Nice and slow!)

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

maxp=10
Dim path(maxp,2,2)
Dim plar(2,2)

Dim xd(2)
Dim yd(2)

Type ect
Field x
Field y
Field col
End Type

Dim score(2)

chka=CreateImage(16,16):MaskImage chka,255,255,255
chkb=CreateImage(32,32)

xd(1)=1:yd(1)=1:xd(2)=1:yd(2)=1

plar(1,1)=100
plar(2,1)=300
ballx=400
bally=300

ballxg=Rand(-4,4)
ballyg=Rand(-4,4)

ballp=1

endofgame=0
Repeat
Cls

;For plr=1 To 2
plr=2

If plar(1,plr)<>path(maxp,1,plr) Or plar(2,plr)<>path(maxp,2,plr)

spx=path(maxp,1,plr)-plar(1,plr)
spy=path(maxp,2,plr)-plar(2,plr)

For n=1 To maxp-1
path(n,1,plr)=path(n+1,1,plr)
path(n,2,plr)=path(n+1,2,plr)
Next
path(maxp,1,plr)=plar(1,plr)
path(maxp,2,plr)=plar(2,plr)
EndIf

If plr=1 Then Color 255,0,0
If plr=2 Then Color 0,0,255

For n=1 To maxp
;Line path(n,1,plr),path(n,2,plr),path(n+1,1,plr),path(n+1,2,plr)
Rect path(n,1,plr),path(n,2,plr),16,16,1
Next

If plr=1
plar(1,plr)=plar(1,plr)+(KeyDown(205)-KeyDown(203))*16*xd(1)
plar(2,plr)=plar(2,plr)+(KeyDown(208)-KeyDown(200))*16*yd(1)

If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16
If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16
If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0
If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0
If KeyDown(205)=0 And KeyDown(203)=0 Then xd(plr)=1
If KeyDown(208)=0 And KeyDown(200)=0 Then yd(plr)=1

EndIf


If plr=2
plar(1,plr)=plar(1,plr)+(mx)*16*xd(2)
plar(2,plr)=plar(2,plr)+(my)*16*yd(2)
If plar(1,plr)>800-16 Then xd(plr)=0-(xd(plr)):plar(1,plr)=800-16
If plar(2,plr)>600-16 Then yd(plr)=0-yd(plr):plar(2,plr)=600-16
If plar(1,plr)<0 Then xd(plr)=0-xd(plr):plar(1,plr)=0
If plar(2,plr)<0 Then yd(plr)=0-yd(plr):plar(2,plr)=0
If mx=0 Then xd(plr)=1
If my=0 Then yd(plr)=1
EndIf


;Next

CopyRect ballx-8,bally-8,32,32,0,0,BackBuffer(),ImageBuffer(chkb)


mx=0
my=0
lmx=400-MouseX()
If lmx>0 Then mx=-1
If lmx<0 Then mx=1
lmy=300-MouseY()
If lmy>0 Then my=-1
If lmy<0 Then my=1
MoveMouse 400,300


If ballp=1 Then Color 255,0,0
If ballp=2 Then Color 0,0,255
Rect ballx,bally,16,16,1


If Rand(1,50)=1
coll.ect=New ect
coll\x=Rand(0,800-16)
coll\y=Rand(0,600-16)
coll\col=Rand(1,4):If coll\col>2 Then coll\col=2

EndIf

For coll.ect=Each ect
If coll\col=1 Then Color 255,200,200
If coll\col=2 Then Color 200,200,255
Rect coll\x,coll\y,16,16,1

	If ImagesCollide(chka,coll\x,coll\y,0,chka,ballx,bally,0)=1
		If coll\col=2 Then score(2)=score(2)+1
		If coll\col=1 Then score(2)=score(2)-1
		Delete coll.ect
	EndIf

Next












If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally,0)=0 
tx=0
ty=0
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx+6,bally,0)=1 Then tx=Rand(-1,-4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx-6,bally,0)=1 Then tx=Rand(1,4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally+6,0)=1 Then ty=Rand(-1,-4)
If ImagesCollide(chkb,ballx-8,bally-8,0,chka,ballx,bally-6,0)=1 Then ty=Rand(1,4)

EndIf
If tx<>0 Then ballxg=tx
If ty<>0 Then ballyg=ty

ballx=ballx+ballxg
bally=bally+ballyg
If ballx>816 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4)
If bally>600-16 Then bally=600-16:ballyg=Rand(-4,-1)

If ballx<-16 Then score(2)=score(2)-10:ballx=400:ballxg=Rand(-4,4)
If bally<0 Then bally=0:ballyg=Rand(4,1)

If score(2)<0 Then score(2)=0
Color 255,255,255
Text 400,10,score(2),1,1



Flip
If KeyDown(1) Then endofgame=1
Until endofgame<>0

MouseBall

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

Move the ball with the mouse.

Mouse

Graphics 800,600,32,2
SetBuffer BackBuffer()

HidePointer()

MoveMouse 400,300
a=MouseXSpeed()
a=MouseYSpeed()

plrx#=400
plry#=300

Dim bat(6)

bat(1)=Rand(0,600-64)
bat(2)=Rand(0,600-64)

bat(3)=Rand(0,600-64)
bat(4)=Rand(0,600-64)

bat(5)=0
bat(6)=0

hit=0

font=LoadFont("Courier",52)
SetFont font

tscore=10
ttime=MilliSecs()+500
playtime=MilliSecs()+(1000*60)

Repeat
Cls

If MilliSecs()>ttime Then tscore=tscore-1:ttime=MilliSecs()+500
If tscore<0 Then tscore=0

Color 255,255,255
Text 200,30,score,1,1
Text 600,30,tscore,1,1
timeleft=(playtime-MilliSecs())
If timeleft<=0 Then endofgame=1
timeleft2=timeleft/1000
Text 400,570,timeleft2,1,1

plrx#=plrx#+spdx#/20
plry#=plry#+spdy#/20

spdx#=spdx-(400-MouseX())
spdy#=spdy-(300-MouseY())
MoveMouse 400,300

If plrx<30 And plrx>0 And plry=>bat(1)-16 And plry<=bat(1)+64 Then spdx=Abs(spdx)/2:bat(5)=1:If hit=1 Or hit=0 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=2
If plry<1 Then spdy=Abs(spdy)/2

If plrx>800-46 And plrx<800-16 And plry=>bat(2)-16 And plry<=bat(2)+64 Then spdx=0-Abs(spdx)/2:bat(6)=1:If hit=0 Or hit=2 Then score=score+tscore:tscore=10:ttime=MilliSecs()+500:hit=1
If plry>600-16 Then spdy=0-Abs(spdy)/2

If plrx<0-16 Then plrx=400:plry=300:spdx=0:spdy=0 
If plrx>800 Then plrx=400:plry=300:spdx=0:spdy=0


Color 200,255,200
If hit=0 Or hit=1 Then Color 255,255,255
Rect 16,bat(1),16,64,1
Color 200,255,200
If hit=0 Or hit=2 Then Color 255,255,255
Rect 800-50,bat(2),16,64,1

If bat(5)=1 Then bat(1)=bat(1)-(bat(1)-bat(3))/8
If bat(6)=1 Then bat(2)=bat(2)-(bat(2)-bat(4))/8
If Abs(bat(1)-bat(3))<8 Then bat(3)=Rand(0,600-64):bat(5)=0
If Abs(bat(2)-bat(4))<8 Then bat(4)=Rand(0,600-64):bat(6)=0

Color 255,255,255
Rect plrx,plry,16,16,1

Flip
If KeyDown(1) Then endofgame=99
Until endofgame<>0

Text 400,300,"GAME OVER",1,1
Flip

Delay 2500

The Hexagonal Maze

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

Guide your hexagon around the maze, turning off all the Green hexagons.

Mouse

Xmas Party

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

5 silly little games made quickly!

Defined during start

SMB

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

The player with the most coins wins

Mouse

Useless Platdude 3D

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

Pick up the Green Boxes

Cursors Left+Right

Graphics 640,480,0,2:SetBuffer BackBuffer():Global wire=1,bitw=12,scrw=640/bitw,scrh=480/bitw:Dim array(scrw,scrh):Global rot#=90:back=CreateImage(1440,480):MaskImage back,255,0,255:SetBuffer ImageBuffer(back):Color 0,0,80:Rect 0,0,1440,480,1
For n=1 To 10000:d=Rand(20,150):Color d,d,d:Plot Rand(0,1440),Rand(0,480):Next:stp=0:Type ere Field x,y,t End Type:SetBuffer BackBuffer():plrx=scrw/2:plry=scrh:score=0:Repeat:tick=tick+1:Cls:TileImage back,0-rot*4,0:Color 255,255,255
Text 320,10,score,1,1:rot#=rot+1:render(rot#):If rot>360 : rot=rot-360:EndIf:If rot<0 : rot=rot+360:EndIf:For x=0 To scrw:For y=0 To scrh:array(x,y)=0:Next:Next:For x=0 To scrw:array(x,scrh)=1:Next:If Rand(0,50)=1:sph.ere=New ere
sph\x=Rand(0,scrw):sph\y=0:SeedRnd MilliSecs():sph\t=Rand(8,16):EndIf:For sph.ere=Each ere:array(sph\x,sph\y)=5:If (tick Mod sph\t)=0 : sph\y=sph\y+1:EndIf:kill=0:If sph\y=>scrh : kill=1:EndIf:If Abs(sph\y-(plry-5))<2
If Abs(sph\x-plrx)<3:kill=1:score=score+1:EndIf:EndIf:If kill=1:Delete sph.ere:EndIf:Next:array(plrx-2,plry-1)=4:array(plrx-1,plry-2)=4:array(plrx,plry-3)=4:array(plrx+1,plry-2)=4:array(plrx+2,plry-1)=4:array(plrx,plry-4)=2:array(plrx,plry-5)=2
array(plrx-1,plry-5)=2:array(plrx-2,plry-5)=2:array(plrx+1,plry-5)=2:array(plrx+2,plry-5)=2:array(plrx,plry-6)=3:array(plrx,plry-7)=3:array(plrx,plry-8)=3:array(plrx+1,plry-7)=3:array(plrx+1,plry-8)=3:If (tick Mod 2)=1:If KeyDown(203) And plrx>2
plrx=plrx-1:EndIf:If KeyDown(205) And plrx<scrw-2:plrx=plrx+1:EndIf:EndIf:Until KeyDown(1):Function render(rot#):If (rot=>-10 And rot<=90) Or (rot=>270 And rot<=370):For x=0 To scrw:For y=0 To scrh:cube(x,y,rot,1):Next:Next:EndIf:If rot=>90 And rot<=270
For x=scrw To 0 Step -1:For y=0 To scrh:cube(x,y,rot,1):Next:Next:EndIf:Flip:End Function:Function Cube(x,y,rot#,bit):Col array(x,y),d:atx=(x-(scrw/2))*(Sin(rot)*bitw)+(320-bitw/2):If bit=1 And array(x,y)>0 : Rect atx,(y-1)*bitw,bitw,bitw,wire:EndIf
If bit=1 And wire=1 And array(x,y)>0 : Color 0,0,0:Rect atx,(y-1)*bitw,bitw,bitw,0:EndIf:End Function:Function col(c,d):Select c:Case 0:r#=255:g#=255:b#=255:Case 1:r#=255:g#=0:b#=0:Case 2:r#=255:g#=168:b#=0:Case 3:r#=255:g#=255:b#=0:Case 4:r#=0:g#=168
b#=255:Case 5:r#=0:g#=150:b#=0:End Select:Color r,g,b:End Function

Mouse Minute

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

More Minigames

Mouse

Greenie's Gameboy Adventure

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

Hunt down Mr Duck, then kill him.

WASD/Cursors - Movement
K/X - Action Button
J/Z - Inventory (hold, use left+right, then Action)
L/C - Start/Pause

UFO Fly

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

Race your UFO through the stars.

Mouse

Burnin' down the House

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

Don't let the fire get out of control.

Mouse

Get Stars

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

"Generic Game #7"

Mouse

Unnamed!

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

7 games, but not as retro!

All games contain instructions onscreen.

Yot

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

Keep popping the sailors back onto their boat!

Mouse

Circle vs Jellyfish

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

Circle will NEVER die! But that doesn't mean you still can't shoot it.

Mouse, LMB to fire.

LightHoles

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

Guide the light into the holes.

Mouse

Connect4

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

Got bored, made another game.

Cursor Keys

Graphics 800,600,32,2
Graphics 800,600,32,3
SetBuffer BackBuffer()

SeedRnd MilliSecs()

GameTime=120


Type age
Field txt$
Field col
End Type



Dim blk(7,16)
For n=1 To 7
For m=0 To 16
blk(n,m)=CreateImage(32,32)
SetBuffer ImageBuffer(blk(n,m))

e=m*9:If n=7 Then e=m*15
getcol(e,n)
Rect 0,0,32,32,1
e=m*15:If n=7 Then e=m*9
getcol(e,n)
Rect 0,0,30,30,1
e=m*12:If n=7 Then e=m*11
getcol(e,n)
Rect 2,2,28,28,1

e=m*15:If n=7 Then e=m*9
getcol(e,n)
Rect 10,10,12,12,1
e=m*9:If n=7 Then e=m*15
getcol(e,n)
Rect 9,9,12,12,1
e=m*12:If n=7 Then e=m*9
getcol(e,n)
Rect 10,10,11,11,1



Next
Next

SetBuffer BackBuffer()

Dim map(20,20,2)

keymode=1


hicount=0
count=0

If FileType("Hiscore_Save_Connect4.jnk")=1
quicky=ReadFile("Hiscore_Save_Connect4.jnk")
hicount=ReadInt(quicky)
count=ReadInt(quicky)
CloseFile quicky
EndIf


.again
endofgame=0
For mess.age=Each age
Delete mess.age
Next

mess.age=New age
mess\txt="[JNK]"
mess\col=7


mess.age=New age
mess\txt="Get 4 in a Row/Column"
mess\col=7

mess.age=New age
mess\txt="to score points."
mess\col=7


mess.age=New age
mess\txt="Highscore : "+hicount
mess\col=7

lastcount=count

mess.age=New age
mess\txt="Lastscore : "+lastcount
mess\col=7

mess.age=New age
mess\txt="-----"
mess\col=7


plrx=9
plry=9

For x=1 To 18
For y=1 To 18
map(x,y,1)=Rand(1,6)
map(x,y,2)=16
Next
Next

map(plrx,plry,1)=0

count=0
gate=25
starttime=MilliSecs()+(120*1000)
timegate=60000
started=0
didcount=0

Repeat
Cls

For x=1 To 18
For y=1 To 18
If map(x,y,1)>0 And map(x,y,2)>0 And map(x,y,1)<7 And map(x,y,2)<17 Then DrawImage blk(map(x,y,1),map(x,y,2)),(x-1)*33+3,(y-1)*33+3
If map(x,y,2)<16 Then map(x,y,2)=map(x,y,2)-1
If map(x,y,2)=0 Then map(x,y,2)=0:map(x,y,1)=0
nothere=1
If x=plrx And y=plry Then nothere=0
If map(x,y,1)=0 And nothere=1 And y>1 And y-1<>plry Then map(x,y,1)=map(x,y-1,1):map(x,y,2)=map(x,y-1,2):map(x,y-1,1)=0:map(x,y-1,2)=0
If map(x,y,1)=0 And nothere=1 And y=1 And y-1<>plry Then map(x,y,1)=Rand(1,6):map(x,y,2)=16
If map(x,y,1)=0 And nothere=1 And y>2 And y-1=plry Then map(x,y,1)=map(x,y-2,1):map(x,y,2)=map(x,y-2,2):map(x,y-2,1)=0:map(x,y-2,2)=0
If map(x,y,1)=0 And nothere=1 And y=2 And y-1=plry Then map(x,y,1)=Rand(1,6):map(x,y,2)=16
Next
Next

For y=1 To 18
For x=1 To 15
If map(x,y,1)=map(x+1,y,1) And map(x,y,1)=map(x+2,y,1) And map(x,y,1)=map(x+3,y,1) And map(x,y,2)=16 And map(x+1,y,2)=16 And map(x+2,y,2)=16 And map(x+3,y,2)=16
	map(x,y,2)=15:map(x+1,y,2)=15:map(x+2,y,2)=15:map(x+3,y,2)=15
If started=1
	mess.age=New age
	mess\txt="Got 4 "+coln$(map(x,y,1))
	mess\col=map(x,y,1)
	count=count+4
EndIf
EndIf
Next
Next

For x=1 To 18
For y=1 To 15
If map(x,y,1)=map(x,y+1,1) And map(x,y,1)=map(x,y+2,1) And map(x,y,1)=map(x,y+3,1) And map(x,y,2)=16 And map(x,y+1,2)=16 And map(x,y+2,2)=16 And map(x,y+3,2)=16
	map(x,y,2)=15:map(x,y+1,2)=15:map(x,y+2,2)=15:map(x,y+3,2)=15	
If started=1
	mess.age=New age
	mess\txt="Got 4 "+coln$(map(x,y,1))
	mess\col=map(x,y,1)
	count=count+4
EndIf

EndIf
Next
Next

If count>gate 
mess.age=New age
mess\txt="Passed "+gate+" blocks"
mess\col=7
gate=gate+25
EndIf

timeleft=starttime-MilliSecs()

If timeleft<60000 And timegate=60000
mess.age=New age
mess\txt="1 Minute Remaining"
mess\col=7
timegate=30000
EndIf

If timeleft<30000 And timegate=30000
mess.age=New age
mess\txt="30 Seconds Remaining"
mess\col=7
timegate=10000
EndIf


If timeleft<10000 And timegate=10000
mess.age=New age
mess\txt="10 Seconds Remaining"
mess\col=7
timegate=5000
EndIf

If timeleft<5000 And timegate=5000
mess.age=New age
mess\txt="5"
mess\col=7
timegate=4000
EndIf

If timeleft<4000 And timegate=4000
mess.age=New age
mess\txt="4"
mess\col=7
timegate=3000
EndIf

If timeleft<3000 And timegate=3000
mess.age=New age
mess\txt="3"
mess\col=7
timegate=2000
EndIf


If timeleft<2000 And timegate=2000
mess.age=New age
mess\txt="2"
mess\col=7
timegate=1000
EndIf


If timeleft<1000 And timegate=1000
mess.age=New age
mess\txt="1"
mess\col=7
timegate=0000
EndIf


If timeleft<0 And timegate=0
mess.age=New age
mess\txt="Game Over"
mess\col=7

mess.age=New age
mess\txt="You got "+count+" blocks."
mess\col=7

mess.age=New age
mess\txt="------"
mess\col=7
mess.age=New age
mess\txt="Hit space to play again"
mess\col=7

timegate=-5000
EndIf


DrawImage blk(7,16),(plrx-1)*33+3,(plry-1)*33+3

ws=started
If started=0 Then starttime=MilliSecs()+(gametime*1000)

If keymode=1
If KeyDown(200) And mudown=0 And plry>1 And map(plrx,plry-1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry-1,1):plry=plry-1:map(plrx,plry,1)=0
If KeyDown(208) And mudown=0 And plry<18 And map(plrx,plry+1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry+1,1):plry=plry+1:map(plrx,plry,1)=0
If KeyDown(203) And mudown=0 And plrx>1 And map(plrx-1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx-1,plry,1):plrx=plrx-1:map(plrx,plry,1)=0
If KeyDown(205) And mudown=0 And plrx<18 And map(plrx+1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx+1,plry,1):plrx=plrx+1:map(plrx,plry,1)=0
EndIf

If keymode=0
If KeyDown(208) And mudown=0 And plry>1 And map(plrx,plry-1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry-1,1):plry=plry-1:map(plrx,plry,1)=0
If KeyDown(200) And mudown=0 And plry<18 And map(plrx,plry+1,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx,plry+1,1):plry=plry+1:map(plrx,plry,1)=0
If KeyDown(205) And mudown=0 And plrx>1 And map(plrx-1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx-1,plry,1):plrx=plrx-1:map(plrx,plry,1)=0
If KeyDown(203) And mudown=0 And plrx<18 And map(plrx+1,plry,2)=16 Then started=1:mudown=16:map(plrx,plry,1)=map(plrx+1,plry,1):plrx=plrx+1:map(plrx,plry,1)=0
EndIf

If KeyDown(57) And mudown=0 Then mudown=16:keymode=1-keymode:mess.age=New age:If keymode=1:mess\txt="Switched to Up=Up":EndIf:If keymode=0:mess\txt="Switched to Up=Down":EndIf:mess\col=7

If KeyDown(200)=0 And KeyDown(208)=0 And KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(57)=0 Then mudown=0
If mudown>0 Then mudown=mudown-1

If KeyDown(1)
mess.age=New age
mess\txt="[QUIT]"
mess\col=1

mess.age=New age
mess\txt="You got "+count+" blocks."
mess\col=7
endofgame=99
EndIf

If count>hicount And didcount=0
mess.age=New age
mess\txt="************************"
mess\col=7
For n=1 To 6
mess.age=New age
mess\txt="You got the new Hi-Score"
mess\col=n
Next
mess.age=New age
mess\txt="************************"
mess\col=7
didcount=1
EndIf




If ws=0 And started=1 
mess.age=New age
mess\txt="Start"
mess\col=7
EndIf

mess.age=Last age
y=584
Repeat

getcol(255,mess\col)
If mess\txt<>"[JNK]" Then Text 604,y,mess\txt

y=y-16

If mess\txt<>"[JNK]" Then mess.age=Before mess.age
fin=0
If y<0 
	Repeat
	it$=mess\txt
	If it$<>"[JNK]" Then Delete mess.age:	mess.age=Before mess.age
	Until it$="[JNK]"

EndIf

If mess\txt="[JNK]" Then fin=1
Until y<0

If timeleft<0 Then endofgame=1
Flip
Until endofgame<>0

If count>hicount Then hicount=count

If endofgame<>99
quicky=WriteFile("Hiscore_Save_Connect4.jnk")
WriteInt(quicky,hicount)
WriteInt(quicky,count)
CloseFile quicky
EndIf


Cls
For x=1 To 18
For y=1 To 18
If map(x,y,1)>0 And map(x,y,2)>0 And map(x,y,1)<7 And map(x,y,2)<17 Then DrawImage blk(map(x,y,1),7),(x-1)*33+3,(y-1)*33+3
Next
Next
mess.age=Last age
y=584
Repeat
getcol(255,mess\col)
If mess\txt<>"[JNK]" Then Text 604,y,mess\txt
y=y-16
If mess\txt<>"[JNK]" Then mess.age=Before mess.age
fin=0
If y<0 
	Repeat
	it$=mess\txt
	If it$<>"[JNK]" Then Delete mess.age:	mess.age=Before mess.age
	Until it$="[JNK]"
EndIf
If mess\txt="[JNK]" Then fin=1
Until y<0

Flip

If endofgame=99 Then Delay 1500:End


Repeat
Delay 5
If KeyDown(1) Then End
Until KeyDown(57)
Repeat
Delay 5
Until KeyDown(57)=0


Goto Again


Function coln$(n)
Select n
Case 1:Return "Red"
Case 2:Return "Yellow"
Case 3:Return "Green"
Case 4:Return "Light Blue"
Case 5:Return "Blue"
Case 6:Return "Pink"
Case 7:Return "White"
End Select
End Function

Function GetCol(e,n)
Select n
Case 1
Color e,0,0
Case 2
Color e,e,0
Case 3
Color 0,e,0
Case 4
Color 0,e,e
Case 5
Color e/4,e/4,e
Case 6
Color e,0,e
Case 7
Color e,e,e
End Select
End Function

Function mousein(x,y,wid,hig)
Return (MouseX()=>x And MouseX()<=x+wid And MouseY()=>Y And MouseY()<=y+hig)
End Function

571CKM4N

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

Return Stickman's library books to the library.

Left and Right cursors

Ninja Blade

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

Fight the Ninjas

Cursors and Spacebar

Graphics 800,600,32,2
SetBuffer BackBuffer()


Dim skin(50,16,16)
Dim array(200,200)

Global skinline=0
Global skinat=1
Gosub getplat

Type item
Field x
Field y
Field is
Field skin
Field a
Field b
Field c
Field health
Field sa,sb,sc,sd
End Type

Global CPUTick
wall=CreateImage(16,16)
SetBuffer ImageBuffer(wall)
dx=0
dy=0
Color 0,128,0:Line dx+1,dy+1,dx+1,dy+15:Line dx+1,dy+1,dx+15,dy+1:Line dx+1,dy+15,dx+15,dy+15:Line dx+15,dy+1,dx+15,dy+15

Dim Stat(30)

stat(1)=50
stat(2)=Rand(1,4)*5
stat(3)=Rand(1,4)*5
stat(4)=Rand(1,4)*5
stat(5)=Rand(1,4)*5
stat(11)=25
stat(12)=stat(2)
stat(13)=stat(2)
stat(14)=stat(2)
stat(15)=stat(2)
stat(22)=1
stat(23)=2
stat(24)=3
stat(25)=4

Dim Sname$(10)


Dim stats(10,10)
sname$(1)="Block Chop"
stats(1,1)=8 	;stat 1 = Speed
stats(1,2)=10	;stat 2 = Power

sname$(2)="Man Slice"
stats(2,1)=2 	;stat 1 = Speed
stats(2,2)=2	;stat 2 = Power

sname$(3)="Backhand Chop"
stats(3,1)=4 	;stat 1 = Speed
stats(3,2)=4	;stat 2 = Power

sname$(4)="Quick Slash"
stats(4,1)=1 	;stat 1 = Speed
stats(4,2)=1	;stat 2 = Power

sname$(5)="Fatal Stab"
stats(5,1)=4 	;stat 1 = Speed
stats(5,2)=8	;stat 2 = Power

sname$(6)="Ninja Blade"
stats(6,1)=2 	;stat 1 = Speed
stats(6,2)=4	;stat 2 = Power

sname$(7)="Heavy Hack"
stats(7,1)=4 	;stat 1 = Speed
stats(7,2)=6	;stat 2 = Power

sname$(8)="Sword Guard"
stats(8,1)=1 	;stat 1 = Speed
stats(8,2)=1	;stat 2 = Power



Dim tile(10)
For t=1 To 10
tile(t)=CreateImage(64,64)
MaskImage tile(t),255,0,255
SetBuffer ImageBuffer(tile(t))
Color 255,0,255
Rect 0,0,64,64,1
Color 0,0,0
SeedRnd MilliSecs()
For n=1 To 4000
;Plot Rand(0,64),Rand(0,64)
Next
Color 0,128,0
For x=0 To 64 Step 16
For y=0 To 64 Step 16

Color 0,Rand(90,120),0
Plot x,y
Next
Next
Next
SetBuffer BackBuffer()

MyX=0
MyY=0
Global MySkin=1
Global MyA=3
Global MyB=2
Global MyC=5

Gosub makelevel


radar=0

t=1
l=1
Repeat
TDLines()
;Cls
l=l+1
If l=6 Then t=t+1:l=1
If t=11 Then t=1
radar=radar+4
If radar>360 Then radar=radar-360

;For y=1 To 32
;Color 0,y*2,0
;Line 400,300,400+(Sin(radar+(y/4))*600),300-(Cos(radar+(y/4))*600)
;Next

TileImage tile(t),(MyX*16)+8,(MyY*16)+4


LockBuffer BackBuffer()
Plat((24*16)+8,(18*16)+4,MySkin,MyA,MyB,MyC)

canleft=1
canright=1
canup=1
candown=1

nins=0
ninjanear=0
SeedRnd(50)
For this.item=Each item
kill=0
dx=(((this\x-MyX)+24)*16)+8
dy=(((this\y-MyY)+18)*16)+4

If this\is=1
If dx>-16 And dx<816 And dy>-16 And dy<616 Then Plat(dx,dy,this\skin,this\a,this\b,this\c)
If this\x=myx-1 And this\y=myy Then canleft=0:ninjanear=1:If moved=1 Then war(this.item):moved=0
If this\y=myy-1 And this\x=myx Then canup=0:ninjanear=1:If moved=1 Then war(this.item):moved=0
If this\x=myx+1 And this\y=myy Then canright=0:ninjanear=1:If moved=1 Then war(this.item):moved=0
If this\y=myy+1 And this\x=myx Then candown=0:ninjanear=1:If moved=1 Then war(this.item):moved=0
nins=nins+1
If this\health<=0 Then kill=1
EndIf

If this\is=3
If dx>-16 And dx<816 And dy>-16 And dy<616
If this\a<4
 Col(this\a):Line dx+8,dy+5,dx+8,dy+12:Line dx+5,dy+8,dx+12,dy+8
EndIf
If this\a>3
 Col(this\a):Line dx+8,dy+3,dx+5,dy+14
EndIf

EndIf
	If this\x=myx And this\y=myy

		kill=1
		If this\a<4 Then stat(this\a+1)=stat(this\a+1)+this\b
		If this\a>3 Then stat(25)=this\a:stat(5)=this\b

	EndIf
EndIf

If kill=1 Then Delete this.item

Next


UnlockBuffer BackBuffer()



For this.item=Each item
kill=0
dx=(((this\x-MyX)+24)*16)+8
dy=(((this\y-MyY)+18)*16)+4
If this\is=2
If dx>-16 And dx<816 And dy>-16 And dy<616 Then DrawImage wall,dx,dy
If this\x=myx-1 And this\y=myy Then canleft=0:If slashblock=1 Then kill=1
If this\y=myy-1 And this\x=myx Then canup=0:If slashblock=1 Then kill=1
If this\x=myx+1 And this\y=myy Then canright=0:If slashblock=1 Then kill=1
If this\y=myy+1 And this\x=myx Then candown=0:If slashblock=1 Then kill=1
EndIf
If kill=1 Then Delete this.item
Next

Text 1,1,ninjanear

moved=0
If KeyDown(203) And mudown=0 And canleft=1 Then MyX=MyX-1:mudown=8:moved=1
If KeyDown(205) And mudown=0 And canright=1 Then myx=myx+1:mudown=8:moved=1
If KeyDown(200) And mudown=0 And canup=1 Then Myy=Myy-1:mudown=8:moved=1
If KeyDown(208) And mudown=0 And candown=1 Then myy=myy+1:mudown=8:moved=1

If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(200)=0 And KeyDown(208)=0 And KeyDown(57)=0 Then mudown=0
If mudown>0 Then mudown=mudown-1


Color 0,0,0
Rect 0,520,800,80,1
Color 0,120,0
Rect 0,520,800,80,0

For x=1 To 4
Line x*200,520,x*200,600
Line (x*200)-40,520,(x*200)-40,600
Next
Line 0,560,800,560

Color 255,255,255
Text 80,540,"Health",1,1
Text 180,540,stat(1),1,1

Text 280,580,"Ninjas Remaining",1,1
Text 380,580,nins,1,1


x=1
y=1
For n=1 To 4
x=x+1
If x=4 Then x=2:y=y+1

Text (x*200)+80,(y*40)+500,sname$(stat(21+n)),1,1
Text (x*200)+180,(y*40)+500,stat(n+1),1,1

Next

slashblock=0
If KeyDown(57) And mudown=0 And ninjanear=1 Then mudown=100:moved=1

If KeyDown(57) And mudown=0 And ninjanear=0
mudown=100
canslash=0
For n=1 To 4
	If stat(n+21)=1
		If stat(n+1)>0 Then canslash=n
	EndIf
Next
If canslash>0 Then stat(canslash+1)=stat(canslash+1)-1:slashblock=1
EndIf
If KeyDown(1) Then endofgame=1
If stat(1)<=0 Then endofgame=1
Flip
Until endofgame<>0

Cls
Text 400,300,"Game Over",1,1
Flip
Delay 1500
End


Function War(this.item)
UnlockBuffer BackBuffer()
mudown=1
sel=1
fin=0
Repeat
Cls


Color 0,0,0
Rect 0,520,800,80,1
Color 0,120,0
Rect 0,520,800,80,0

For x=1 To 4
Line x*200,520,x*200,600
Line (x*200)-40,520,(x*200)-40,600
Next
Line 0,560,800,560

Color 255,255,255
Text 80,540,"Health",1,1
Text 180,540,stat(1),1,1

Text 80,580,"Enemy",1,1
Text 180,580,this\health,1,1

x=1
y=1
For n=1 To 4
x=x+1
If x=4 Then x=2:y=y+1

If sel=n Then Rect (x*200)+1,(y*40)+481,198,38,0
Text (x*200)+80,(y*40)+500,sname$(stat(21+n)),1,1
Text (x*200)+180,(y*40)+500,stat(n+1),1,1

Next

If KeyDown(203) And mudown=0 Then mudown=1:sel=sel-1:If sel=0 Then sel=4
If KeyDown(205) And mudown=0 Then mudown=1:sel=sel+1:If sel=5 Then sel=1
If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(57)=0 Then mudown=0

If KeyDown(57) And mudown=0
fin=1
EndIf

plat(80,120,MySkin,MyA,MyB,MyC,8)
Color 255,255,255
Text 400,300,"Select a Skill",1,1
plat(592,120,this\skin,this\A,this\B,this\C,8,1)


Flip
Until fin=1

x=0
fin=0
Repeat
Cls
x=x+32

plat(80+x,120,MySkin,MyA,MyB,MyC,8)
plat(592-x,120,this\skin,this\A,this\B,this\C,8,1)


If x>192 Then fin=1
Flip
Until fin=1

ause=0
If stat(sel+1)>0 Then ause=stat(sel+21)

a=Rand(1,4)
If a=1 Then buse=this\sa
If a=2 Then buse=this\sb
If a=3 Then buse=this\sc
If a=4 Then buse=this\sd

Color 255,255,255
Cls
Rect 200,100,400,200,0
Rect 202,102,396,196,0

hit=0
chance=Rand(1,10)
If stats(ause,1)<stats(buse,1) And chance<7 Then hit=1
If stats(buse,1)<stats(ause,1) And chance<7 Then hit=2

If chance<7 And hit=0 And ause>0 Then Text 400,200,"The Swords slammed against each other.",1,1
If chance>6 Then hit=Rand(1,2)

If hit=1 And ause>0
Color 200,200,255
Text 400,200,"Platdude strikes the Ninja.",1,1
this\health=this\health-stats(ause,2)
If this\health<=0 Then Text 400,240,"It is a fatal blow...",1,1
Text 400,280,"Health - "+stats(ause,2)+" = "+this\health,1,1
EndIf

If (hit=2 And stats(buse,2)>0) Or ause=0
Color 255,200,200
Text 400,200,"The Ninja slashes at Platdude.",1,1
stat(1)=stat(1)-stats(buse,2)
If stat(1)<=0 Then Text 400,240,"The blow is fatal...",1,1
Text 400,280,"Health - "+stats(buse,2)+" = "+stat(1),1,1
EndIf
If hit=2 And stats(buse,2)=0
Text 400,200,"Both swords miss their targets.",1,1
EndIf

stat(sel+1)=stat(sel+1)-1
If stat(sel+1)<0 Then stat(sel+1)=0

Flip

fin=0
mudown=1
t=MilliSecs()+1500
Repeat
If MilliSecs()>t Then fin=1
If KeyDown(57) And mudown=0 Then fin=1
If KeyDown(57)=0 Then mudown=0
Until fin=1

LockBuffer BackBuffer()
End Function


Function Plat(x,y,sk,a,b,c,size=1,rev=0)
If size=1
For x1=0 To 15
For y1=0 To 15
If skin(sk,x1+1,y1+1)=1 Then col(a)
If skin(sk,x1+1,y1+1)=2 Then col(b)
If skin(sk,x1+1,y1+1)=3 Then col(c)
If skin(sk,x1+1,y1+1)>0 Then Line x+x1,y+y1,x+x1,y+y1
Next
Next
EndIf

If size>1
For x1=0 To 15

x2=x1
If rev=1 Then x2=15-x1
For y1=0 To 15
If skin(sk,x1+1,y1+1)=1 Then col(a)
If skin(sk,x1+1,y1+1)=2 Then col(b)
If skin(sk,x1+1,y1+1)=3 Then col(c)
If skin(sk,x1+1,y1+1)>0 Then Rect x+(x2*size),y+(y1*size),size,size,1
Next
Next
col(c)
If rev=0 Then Line x+(13*size),y+(7*size),x+(15*size)+Rand(-1,1),y+(2*size)
If rev=1 Then Line x+(3*size),y+(7*size),x+(1*size)+Rand(-1,1),y+(2*size)

EndIf
End Function


Function col(c)
Select c
Case 1
Color 255,0,0
Case 2
Color 255,125,0
Case 3
Color 255,255,0
Case 4
Color 0,255,0
Case 5
Color 80,180,255
Case 6
Color 0,0,255
Case 7
Color 125,0,255
Case 8
Color 255,0,125
Case 9
Color 0,0,0
Case 10
Color 125,125,125
Case 11
Color 255,255,255
End Select
End Function



.getplat
;Plain
add("       1111     ")
add("       1111     ")
add("       1111     ")
add("       1111     ")
add("       11       ")
add("       11       ")
add("   2222222222   ")
add("   2222222222   ")
add("       22       ")
add("       22       ")
add("       33       ")
add("       33       ")
add("     33  33     ")
add("     33  33     ")
add("   33      33   ")
add("   33      33   ")

;Ninja
add("       2222     ")
add("       2211     ")
add("       2222     ")
add("       2222     ")
add("       22       ")
add("       22       ")
add("   2222222222   ")
add("   2222222222   ")
add("       22       ")
add("       33       ")
add("       22       ")
add("       22       ")
add("     22  22     ")
add("     22  22     ")
add("   22      22   ")
add("   22      22   ")


Return

.makelevel
cenx=100
ceny=100

For m=1 To Rand(50,75)
wide=Rand(4,15)
high=Rand(4,15)
For x=cenx-wide/2 To cenx+wide/2
For y=ceny-high/2 To ceny+high/2
If array(x,y)=0 Then array(x,y)=m
Next
Next
cenx=cenx+Rand(-8,8)*2
ceny=ceny+Rand(-8,8)*2
If cenx>190 Then cenx=190
If cenx<10 Then cenx=10
If ceny>190 Then ceny=190
If ceny<10 Then ceny=10
Next

Ls=200
rs=0
ts=200
bs=0

For x=0 To 199
For y=0 To 199
dome=1
If array(x,y)<>0
	If ts>y Then ts=y
	If ls>x Then ls=x
	If rs<x Then rs=x
	If bs<y Then bs=y
EndIf
If array(x,y)=array(x+1,y) And array(x,y)<>array(x,y+1) And Rand(1,10)=1 Then dome=0
If array(x,y)=array(x,y+1) And array(x,y)<>array(x+1,y) And Rand(1,10)=1 Then dome=0

If (array(x,y)<>array(x+1,y) Or array(x,y)<>array(x,y+1) Or array(x,y)<>array(x+1,y+1)) And dome=1
this.item=New item
this\x=x-100
this\y=y-100
this\is=2
EndIf

Next
Next

For n=1 To Rand(50,75)
This.item=New item
.shiftit
this\x=Rand(ls-100,rs-100)
this\y=Rand(ts-100,bs-100)
dome=0
For an.item=Each item
 If an\x=this\x And an\y=this\y And an.item<>this.item Then dome=1
Next
If dome=1 Then Goto shiftit

this\is=1
this\skin=2
this\a=3
this\b=Rand(1,8)
this\c=this\b
this\health=this\b*2
this\sa=Rand(1,6)
this\sb=Rand(1,6)
this\sc=Rand(1,6)
this\sd=Rand(6,8)
Next


For n=1 To Rand(25,50)
This.item=New item
.shiftit2
this\x=Rand(ls-100,rs-100)
this\y=Rand(ts-100,bs-100)
dome=0
For an.item=Each item
 If an\x=this\x And an\y=this\y And an.item<>this.item Then dome=1
Next
If dome=1 Then Goto shiftit2
this\is=3
this\a=Rand(1,8)
this\b=Rand(1,3)*5
Next

Return



Function add(txt$)
skinline=skinline+1
If skinline=17 Then skinline=1:skinat=skinat+1
For x=1 To 16
skin(skinat,x,skinline)=Mid$(txt$,x,1)
Next
End Function


Function TDLines()
Cls
;There used to be some nice swirly background lines drawn here, but I removed them 'cos they were distracting!
End Function

Plat-Grab

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

Shift the blocks to the correct position.

Cursor keys

Graphics 800,600,32,2
SetBuffer BackBuffer()

Dim array(11,9)

For x=1 To 5
For y=x+3 To 8
array(x,y)=x
Next
Next
For x=1 To 10
array(x,9)=1
Next




gridwide=64

crystal=MakeCrystal(gridwide-10,gridwide-10,255,224,200)

c2=MakeCrystal(64,64,255,255,255)
TFormFilter False

plat=CreateImage(8,8)
SetBuffer ImageBuffer(plat)
Color 255,255,0
Plot 4,0
Plot 5,0
Plot 4,1
Plot 5,1
Plot 4,2
Color 255,180,0
Line 2,3,6,3
Plot 4,4
Color 70,180,255
Plot 4,5
Plot 3,6
Plot 5,6
Plot 2,7
Plot 6,7
SetBuffer BackBuffer()
ResizeImage plat,64,64 

sealed=1


plx=3
ply2=0



timetoend=MilliSecs()+(2*60*1000)
Repeat
Cls



sealed=1
If got=40 Then sealed=0

If KeyDown(203)=0 And KeyDown(205)=0 And KeyDown(208)=0 And KeyDown(200)=0 Then mudown=0


timeleft=timetoend-MilliSecs()
DoTime(300,1,timeleft)

If timeleft<=0 Then endofgame=2
If won=1 Then endofgame=1

For x=1 To 10
For y=1 To 9
If array(x,y)=1 Then Color 255,0,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=2 Then Color 255,255,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=3 Then Color 0,255,0:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=4 Then Color 0,255,255:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=5 Then Color 0,0,255:Rect (x-1)*64,(y-1)*64,64,64,1
If array(x,y)=6 Then Color 255,0,255:Rect (x-1)*64,(y-1)*64,64,64,1
If x=plx And y=ply Then DrawImage plat,(x-1)*64,(y-1)*64
If y<9
If array(x,y)<>0 And array(x,y+1)=0 Then array(x,y+1)=array(x,y):array(x,y)=0
EndIf
Next
Next

sc=0
For x=1 To 10
For y=1 To 9
If array(10-x,y)=x Then sc=sc+1
If 10-x=1 And y>12-(x) Then Color 255,0,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=2 And y>12-(x) Then Color 255,255,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=3 And y>12-(x) Then Color 0,255,0:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=4 And y>12-(x) Then Color 0,255,255:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=5 And y>12-(x) Then Color 0,0,255:Rect (x+20)*4,(y+8)*4,4,4,1
If 10-x=6 And y>12-(x) Then Color 255,0,255:Rect (x+20)*4,(y+8)*4,4,4,1
If y=9 Then Color 255,0,0:Rect (x+20)*4,(y+8)*4,4,4,1
Next
Next
Text 130,60,"="
DrawImage crystal,150,30
If sc=16 Then endofgame=1




If KeyDown(200) And mudown=0 Then jump=30
If KeyDown(203) And array(plx-1,ply)=0 And plx>1 And mudown=0 Then plx=plx-1:mudown=1:jump=0
If KeyDown(205) And array(plx+1,ply)=0 And plx<10 And mudown=0 Then plx=plx+1:mudown=1:jump=0

If KeyDown(208) And mudown=0 And array(plx,ply+1)<>0 And ply<8 And got=0 Then got=array(plx,ply+1):array(plx,ply+1)=0:mudown=1
If KeyDown(208) And mudown=0 And array(plx,ply)=0 And got<>0 Then array(plx,ply)=got:got=0:mudown=1


ply=ply2
If jump>0 Then ply=ply2-1:jump=jump-1

flr=0
If array(plx,ply2+1)<>0 Then flr=1
If jump=0 And flr=0 Then ply2=ply2+1
If array(plx,ply2)<>0 And array(plx,ply2-1)=0 Then ply2=ply2-1




Flip
Until endofgame<>0


If endofgame=1 Then T$="You Got the Crystal!"
If endofgame=2 Then T$="You're locked in!"


Color 0,0,0
Text 400,300,t$,1,1
Color 255,255,255
Text 399,299,t$,1,1
Flip
Delay 2500



Function DoTime(x,y,time)
tsec$=Right$("000"+((time/1000) Mod 60),2)
tmin$=Right$("000"+((time/1000) / 60),2)
Color 255,0,0

drawnum(x,y,Int(Mid$(tmin$,1,1)))
x=x+40
drawnum(x,y,Int(Mid$(tmin$,2,1)))
x=x+40
drawnum(x,y,10)
x=x+40
drawnum(x,y,Int(Mid$(tsec$,1,1)))
x=x+40
drawnum(x,y,Int(Mid$(tsec$,2,1)))

End Function

Function DrawNum(x,y,n)
Select n
Case 1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 2
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1

Case 3
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 4
Rect x+0,y+28,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 5
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 6
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+32,8,32,1

Case 7
Rect x+0,y+0,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 8
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 9
Rect x+0,y+0,32,8,1
Rect x+0,y+28,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1

Case 0
Rect x+0,y+0,32,8,1
Rect x+0,y+56,32,8,1
Rect x+0,y+0,8,32,1
Rect x+0,y+32,8,32,1
Rect x+24,y+0,8,32,1
Rect x+24,y+32,8,32,1


Case 10
Rect x+12,y+10,8,12,1
Rect x+12,y+42,8,12,1

End Select
End Function

Function mousein(x,y,wide,high)
If MouseX()=>x And MouseX()<=x+wide And MouseY()=>y And MouseY()<=y+wide Then Return True
End Function

Function MakeCrystal(wide,high,r#,g#,b#)
make=CreateImage(wide,high)
SetBuffer ImageBuffer(make)

For n=0 To 360 Step 36
For m=0 To 360 Step 36
d#=Float(Abs(180-m))/180
If d>0 Then Color r*d,g*d,b*d
Line (wide/2)+(Cos(n)*((wide/2)-1)),(high/2)+(Sin(n)*((high/2)-1)),(wide/2)+(Cos(n+m)*((wide/2)-1)),(high/2)+(Sin(n+m)*((high/2)-1))
Next
Next

SetBuffer BackBuffer()
Return make
End Function

Kerby

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

Throw the ball against the Kerb

Spacebar and Up to Jump

Make Munky Do

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

Can you find Munky's 11 different actions.

Controls

Gamble!

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

Gamble away.. 7 games to play!

Controls

The 8th Day

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

Have fun, whilst you can... (A bit short, so also includes Jay's

Controls

Light and Dark

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

Guide the two characters to the grey center squares, using the controls displayed.

Controls

;Light and Dark
;Started : Wed 06 July - 04:37 
;Finished : Wed 06 July - 07:34		(eeeuw.. weird reversing times!)
;Additional bug fixes/level fixes during the rest of Wednesday.

;				Mind you, that's not to say that this was my first game!
;				In the first 4 hours, I made a fully working JNKPlat game, whereby Platdude had a torch, and shone it in a dark maze.
;				Unfortunately, I realised that I couldn't be bothered making levels, so I sat for a bit, thinking what else I could do.
;				I might release the JNKPlat once this week's challenge is done.  Just for fun!


;Hit S on the titlescreen, then type in a seed to generate more random levels.
;Be aware, though, that not every level is possible.. L+D sometimes get trapped!


Graphics 800,600,32,2
Graphics 800,600,32,3
If Instr(Upper$(CommandLine$()),"FULL")>0 Then Graphics 800,600,32,1
SetBuffer BackBuffer()
HidePointer

Dim font(10)
For n=1 To 10
font(n)=LoadFont("Arial",8*n)
Next
Global Opened=300

;--------------- Jay's initial thoughts -------------

;2 characters, Light and Dark.
;Light is Black.
;Dark is White.
;Light exists inside a bright world.  He is scared of the dark.
;Dark exists within the dark.  He is afriad of lights.

;Light and Dark must navigate the maze, without meeting their fears.

;Possible Controls 	Method 1 - Auto Route.  Light and Dark move themselves, you have control of the light switches.
;					Method 2 - Chu Chu Rocket.  First build them a path, then control the lights.
;					Method 3 - Dual Control.  WASD vs IJKL

;						I like the idea of 3!  You could even play that with 2 players!  (OMG! WTF!? Multiplayer!!!11!111!!!)

;--------------- ---------------------- -------------

Dim sprite(50)
Dim map(50,34)

SeedRnd MilliSecs()

l=230
d=20

n=1
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 0,0,0
Rect 1,1,14,14,1

n=2
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 255,255,255
Rect 1,1,14,14,1


n=3 ; 10 Black
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
SetFont font(1)
Text 8,8,"5",1,1
n=4 ; 10 White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
SetFont font(1)
Text 8,8,"5",1,1


; ---------------------- Useless ---------------------

;Redundant sprites, from when I was WAY over thinking the game!
;Remember.. Simplicity is the key!

;For those who care, I was considering adding extra blocks, so, for example..

n=5 ; <-> Black
;If you tread on a <-> Black tile, all the tiles on that line become white.
;But, rather than making the game a BIT easier, it made it piss easy!
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
Plot 2,8:Plot 3,8:Plot 3,7:Plot 3,9:Plot 4,6:Plot 4,7:Plot 4,8:Plot 4,9:Plot 4,10
Plot 5,8:Plot 6,8:Plot 7,8:Plot 8,8:Plot 9,8:Plot 10,8:Plot 11,8:Plot 12,8:Plot 13,8
Plot 11,10:Plot 11,9:Plot 11,7:Plot 11,6:Plot 12,9:Plot 12,7
n=6 ; <-> White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
Plot 2,8:Plot 3,8:Plot 3,7:Plot 3,9:Plot 4,6:Plot 4,7:Plot 4,8:Plot 4,9:Plot 4,10
Plot 5,8:Plot 6,8:Plot 7,8:Plot 8,8:Plot 9,8:Plot 10,8:Plot 11,8:Plot 12,8:Plot 13,8
Plot 11,10:Plot 11,9:Plot 11,7:Plot 11,6:Plot 12,9:Plot 12,7


n=7 ; U/D Black
sprite(n)=CopyImage(sprite(1)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,255,255
Plot 8,2:Plot 8,3:Plot 7,3:Plot 9,3:Plot 6,4:Plot 7,4:Plot 8,4:Plot 9,4:Plot 10,4
Plot 8,5:Plot 8,6:Plot 8,7:Plot 8,8:Plot 8,9:Plot 8,10:Plot 8,11:Plot 8,12:Plot 8,13
Plot 10,11:Plot 9,11:Plot 7,11:Plot 6,11:Plot 9,12:Plot 7,12
n=8 ; U/D White
sprite(n)=CopyImage(sprite(2)):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 0,0,0
Plot 8,2:Plot 8,3:Plot 7,3:Plot 9,3:Plot 6,4:Plot 7,4:Plot 8,4:Plot 9,4:Plot 10,4
Plot 8,5:Plot 8,6:Plot 8,7:Plot 8,8:Plot 8,9:Plot 8,10:Plot 8,11:Plot 8,12:Plot 8,13
Plot 10,11:Plot 9,11:Plot 7,11:Plot 6,11:Plot 9,12:Plot 7,12

; ---------------------- ------- ---------------------


n=48
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color l,l,l
Rect 0,0,16,16,1
Color d,d,d
Rect 1,1,16,16,1
Color 180,180,180
Rect 1,1,14,14,1


n=49
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,0,255
Rect 0,0,16,16,1
Color 255,255,255
Rect 4,4,8,8,1

n=50
Sprite(n)=CreateImage(16,16):MaskImage sprite(n),255,0,255
SetBuffer ImageBuffer(sprite(n))
Color 255,0,255
Rect 0,0,16,16,1
Color 0,0,0
Rect 4,4,8,8,1

; ----- Warning : More Repeating Code Ahead -----
;Bit of a mess, lots of repeated stuff, but it works, so I don't care :P
; ----- ------- - ------------------------- -----


SetBuffer BackBuffer()
.titlescreen
specseed$=""
seedopen=0
Repeat:Until anykey()=0
Repeat
ClsColor 125,125,125
Color 255,255,255
Rect 0,0,800,300,1
Color 0,0,0
Rect 0,300,800,300,1
SetFont font(10)
Text 400,150,"LIGHT",1,1
Color 255,255,255
Text 400,450,"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
	If KeyDown(31) And seedopen=0 Then seedopen=1:specseed$="":FlushKeys
	If seedopen=1
		Color 0,0,0
		Rect 100,260,600,40,1
		Color 255,255,255
		Rect 100,300,600,40,1
		Color 125,125,125
		Text 400,300,specseed$,1,1
			in=GetKey()
			If in>0 Then specseed$=specseed$+Chr$(in)
			If KeyDown(14) Then specseed$=""
			If KeyDown(28) Or KeyDown(158) Then done=1:seedopen=0
	EndIf
SetFont font(2)
Text 730,590,"A game by Jayenkai",1,1

Flip
done=0
If anykey()=1 And KeyDown(31)=0 And seedopen=0 Then done=1
If KeyDown(1) Then End
Until done=1

Repeat:Until anykey()=0

For n=300 To 30 Step -10
ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
Color 0,0,0
Line 800,300,(n*3)-100,300
Flip
Next


.mainmenu
Repeat
n=30
ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 125,125,125
Text 400,296,"AND",1,1
Color 0,0,0
Line 800,300,(n*3)-100,300

SetFont font(3)
Color 0,0,0
Text 300,150,"Light Controls",1,1

Text 500,130,"W",1,1
Text 500,150,"A + D",1,1
Text 500,170,"S",1,1

Color 255,255,255
Text 400,288,"GUIDE LIGHT AND DARK",1,1
Color 0,0,0
Text 400,312,"TO THE CENTER SQUARES",1,1

Color 255,255,255
Text 300,450,"Dark Controls",1,1

Text 500,430,"I",1,1
Text 500,450,"J + L",1,1
Text 500,470,"K",1,1


Flip

Until anykey()=1

Repeat:Until anykey()=0

For n=30 To 300 Step 10

ClsColor 125,125,125
Cls
Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1
Color 0,0,0
Line 0,300,800-(n*3),300

Flip
Next
Opened=300

dmoves=200:lmoves=200
level=1


.MainGame
way=1
gameover=0


Select level
			;Some levels are incompletable, this makes sure the startup levels aren't..
Case 1
	levseed=2
Case 2
	levseed=3
Case 3
	levseed=4
Case 4
	levseed=1
Case 5		
	levseed=8
Case 6
	levseed=9
Case 7	
	levseed=10
Case 8
	levseed=12
Case 9
levseed=13
Case 10
levseed=14
Case 11
levseed=15
Case 12
levseed=16
Case 13
levseed=19
Default 
levseed=level+6
End Select

If specseed<>""
t=0
For n=1 To Len(specseed$)
t=t+(Asc(Mid$(specseed$,n,1))*n)
Next
levseed=levseed+t
EndIf


SeedRnd levseed
c=Rand(1,2)
tc=0

For y=1 To 33
For x=1 To 49
tc=tc+1
If Rand(1,5)=1 And tc>1 Then c=Rand(1,2):tc=0
map(x,y)=c
Next
Next


cnt=0
.newblack
cnt=cnt+1
DY=33
LY=1
DX=Rand(1,49):If (map(dx,dy))=2 Then Goto newblack
LX=50-DX
If map(lx,ly)=1 And cnt<50 Then Goto newblack
If cnt=>50 And map(lx,ly)=1 Then map(lx,ly)=2



For y=1 To 33
For x=1 To 49
If Rand(1,80)=1 Then map(x,y)=map(x,y)+2
Next
Next

map(24,16)=48
map(24,17)=48
map(25,16)=48
map(25,17)=48




way=1
ClsColor 125,125,125

Repeat
Cls

For x=1 To 49
For y=1 To 33

If map(x,y)>0 Then DrawImage sprite(map(x,y)),((x-1)*16)+8,((y-1)*16)+38

Next
Next

If KeyDown(17) And ((map(lx,ly-1) Mod 2)+1)=1 And ly>1 And m1down=0 Then m1down=10:ly=ly-1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(31) And ((map(lx,ly+1) Mod 2)+1)=1 And ly<33 And m1down=0 Then m1down=10:ly=ly+1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(30) And ((map(lx-1,ly) Mod 2)+1)=1 And lx>1 And m1down=0 Then m1down=10:lx=lx-1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(32) And ((map(lx+1,ly) Mod 2)+1)=1 And lx<49 And m1down=0 Then m1down=10:lx=lx+1:lmoves=lmoves-1:If map(lx,34-ly)<>48 Then map(lx,34-ly)=1
If KeyDown(17)=0 And KeyDown(31)=0 And KeyDown(30)=0 And KeyDown(32)=0 Then m1down=0
If m1down>0 Then m1down=m1down-1

If KeyDown(23) And (map(dx,dy-1)=48 Or ((map(dx,dy-1) Mod 2)+1)=2) And dy>1 And m2down=0 Then m2down=10:dy=dy-1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(37) And (map(dx,dy+1)=48 Or ((map(dx,dy+1) Mod 2)+1)=2) And dy<33 And m2down=0 Then m2down=10:dy=dy+1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(36) And (map(dx-1,dy)=48 Or ((map(dx-1,dy) Mod 2)+1)=2) And dx>1 And m2down=0 Then m2down=10:dx=dx-1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(38) And (map(dx+1,dy)=48 Or ((map(dx+1,dy) Mod 2)+1)=2) And dx<49 And m2down=0 Then m2down=10:dx=dx+1:dmoves=dmoves-1:If map(50-dx,34-dy)<>48 Then map(50-dx,34-dy)=2
If KeyDown(23)=0 And KeyDown(36)=0 And KeyDown(37)=0 And KeyDown(38)=0 Then m2down=0
If m2down>0 Then m2down=m2down-1


If map(dx,dy)=3 Then map(dx,dy)=1:dmoves=dmoves+5
If map(lx,ly)=4 Then map(lx,ly)=2:lmoves=lmoves+5


If DX=LX And DY=LY Then gameover=1:way=2
If dmoves=0 Or lmoves=0 Then gameover=2:way=2
If KeyDown(1) Then gameover=2:way=2

If gameover=1 And opened=300 Then gameover=5
If gameover=2 And opened=300 Then gameover=6

DrawImage sprite(49),((dx-1)*16)+8,((dy-1)*16)+38
DrawImage sprite(50),((lx-1)*16)+8,((ly-1)*16)+38

OverLayOpen(way)

SetFont font(3)
Color 125,125,125
Text 80,15,"MOVES : "+lmoves,1,1
If specseed$="" Then Text 80,585,"LEVEL : "+level,1,1
If specseed$<>"" Then Text 80,585,specseed$,1,1

Text 720,585,"MOVES : "+dmoves,1,1
Text 720,15,"LEVEL : "+level,1,1
Flip

Until gameover>4

If gameover=5
level=level+1
dmoves=dmoves+50
lmoves=lmoves+50
Color 125,125,125:SetFont font(10):Text 400,296,"LEVEL COMPLETE",1,1:Flip
Delay 1500
Goto maingame
EndIf

If gameover=6

Color 125,125,125:SetFont font(10):Text 400,296,"GAME OVER",1,1:Flip
Delay 1500
Goto titlescreen
EndIf
End






Function AnyKey()
out=0
For n=1 To 255
If KeyDown(n) Then out=1
Next
Return out
End Function


Function OverlayOpen(way=1)
If Opened>30 And Way=1 Then Opened=Opened-10
If Opened<300 And Way=2 Then Opened=Opened+10

n=opened

Color 255,255,255
Rect 0,0,800,n,1
Color 0,0,0
Rect 0,600-n,800,n,1
m=n/15
If m>10 Then m=10
SetFont font(m)
Text 400,n/2,"LIGHT",1,1
Color 255,255,255
Text 400,600-(n/2),"DARK",1,1

End Function

Marvin

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

Keep "Marvin the Wireframe Aeroplane" in the air, using Fireworks.

Controls

Platfire

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

Retro shooting, featuring Platdude

Controls

Ball-Up

Created for Workshop #001 | Comments (2) | No Votes

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

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

Shoot the oncoming enemies

Cursors and Space