Wednesday Workshop

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

The Crows

by Instinct for Workshop #003

Scare off the demonic crows from your farm... or let your crop get eaten!

Click to download this entry

Casa Blanca

by Instinct for Workshop #005

It has nothing to do with the white house except for the very first room. It gets kinda wierd, I dunno what I

Click to download this entry

Mouse Collide

by Instinct for Workshop #007

Guide the mouse cursor through the maze.

Click to download this entry

Bozo The Happy Ape

by Instinct for Workshop #009

We'll leave the "inject" option open to interpretation...

Click to download this entry

Blackboard

by Instinct for Workshop #036

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

Left MB = Jump, Right MB = Walk

Click to download this entry

Invaders : Code Neon

by Instinct for Workshop #152

Shoot the Invaders!

Cursors and Spacebar

Click to download this entry

LCD

by Instinct for Workshop #154

Mystify your Atari2600

It's a screensaver!!!

Graphics 800, 600, 32
SeedRnd MilliSecs()

Global screen=CreateImage(100,75)
SetBuffer ImageBuffer(screen)
;150, 200

Type Point
	Field x#, y#
	Field xv#, yv#
End Type

Function CreatePoint.Point()
	p.Point = New Point
	
	p\x# = Rand(100)
	p\y# = Rand(75)
	
	p\xv# = Rnd#(.5,2)
	p\yv# = Rnd#(.5,2)
	
	Return p
End Function
;x1 = 0 : y1 = 0
;x1v = 1 : y1v = 1
;x2 = 100 : y2 = 75
;x2v = -1 : y2v = 1

CreatePoint()
CreatePoint()
CreatePoint()
CreatePoint()
CreatePoint()
CreatePoint()


r = 255 : g = 125 : b = 125
rv = 5 : gv = 0 : bv = 0
timer = CreateTimer(25)
While Not KeyDown(1) Or MouseXSpeed() > 0
	Cls
	
	;LockBuffer ImageBuffer(screen)
	;WritePixelFast Rand(100), Rand(75), Rand(16777216)
	;UnlockBuffer ImageBuffer(screen)
	
	;Line x1, y1, x2, y2
	
	;x1 = x1 + x1v
	
	If r >= 255
		rv = -5
		gv = 5
	ElseIf r = 100
		r = 125
		rv = 0
		
	EndIf
	
	If g >= 255
		gv = -5
		bv = 5
	ElseIf g = 100
		g = 125
		gv = 0
		
	EndIf
	
	If b >= 255
		bv = -5
		rv = 5
	ElseIf b = 100
		b = 125
		bv = 0
		
	EndIf
	
	r = r + rv
	g = g + gv
	b = b + bv
	
	;Text 0,0,rv + "  " + r
	;Text 0,13,gv + "  " + g
	;Text 0,26,bv + "  " + b
	
	Color r, g, b
	For p.Point = Each Point
		p\x# = p\x# + p\xv#
		p\y# = p\y# + p\yv#
		
		If (p\x < 0 Or p\x > 100) Then p\xv# = -p\xv#
		If (p\y < 0 Or p\y > 75) Then p\yv# = -p\yv#
		
		p2.Point = After p
		If (p2 <> Null)
			Line p\x, p\y, p2\x, p2\y
		Else
			p2.Point = First Point
			Line p\x, p\y, p2\x, p2\y
		EndIf
	Next
	
	WaitTimer( timer)
	Scale: Flip
Wend
End

;Thanks Jay!
Function Scale()
	SetBuffer BackBuffer():Cls
	SetBuffer ImageBuffer(screen)
	If dontscale=0
		For x=0 To 99
			For z=0 To 4
				CopyRect x,0,1,75,(x*8)+z,0,ImageBuffer(screen),BackBuffer()
			Next
		Next
		For y=74 To 0 Step -1
			For z=0 To 8
				CopyRect 0,y,800,1,0,((y*8)+z),BackBuffer(),BackBuffer()
			Next
		Next
	EndIf
End Function