Wednesday Workshop

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

Retro Space Invaders

by HoboBen for Workshop #002

"It has snazzy sounds<br>Done a while ago, but only took about 3 days (cause I hit a bug - grrr.... Stupid me!)"

Click to download this entry

Speed Shooting

by HoboBen for Workshop #010

Shoot faster than the enemy and win!

Spacebar for OnionHead, and Down for SpamMan

Click to download this entry

Swansea Fireworks

by HoboBen for Workshop #021

"Trust me, if you value your own time, don't bother running it."

No Interaction

AppTitle "A realistic simulation of Swansea Fireworks"
Graphics 320,240,0,2

font=LoadFont("arial",12,0,0,0)
SetFont font

Type part
Field xpos#
Field ypos#
Field xdir#
Field ydir#
End Type

For a=0 To 100
	Createpart(160,120,Rnd(-2,2),Rnd(4,-4))
Next






Repeat

SetBuffer BackBuffer()
Cls


Color(200,200,0)



totalparts=0
For p.part = Each part

	Oval p\xpos#-3,p\ypos#-3,6,6,1
	p\xpos#=p\xpos#+p\xdir#
	p\ypos#=p\ypos#+p\ydir#
	If p\ydir#=0 Then p\ydir#=-1
	p\ydir#=p\ydir#+0.02
;	p\ypos#=p\ypos#+0.1
	totalparts=totalparts+1
	If p\ypos#>240 Then Delete p

Next

Text(0,0,totalparts)
Flip


Until totalparts=0


Delay 20
FlushKeys()
Text (160,30,"That's all.",1,1)
Text (160,100,"Swansea Fireworks are half hearted and lame.",1,1)
Text (160,120,"Do not bother, move to cardiff.",1,1)
Text (160,140,"Either way, give me tea now!",1,1)
FreeFont font
Flip
WaitKey()



End






Function Createpart(x#,y#,xd#,yd#)
p.part=New part

p\xpos#=x#
p\ypos#=y#
p\xdir#=xd#
p\ydir#=yd#

End Function

Blitz'd Feet

by HoboBen for Workshop #046

Visit the <a href="https://www.tophatstuff.co.uk/blitzd-feet/">Blitz Feet Site</a> for more levels.

Numpad

Click to download this entry

Dotty

by HoboBen for Workshop #084

Avoid the walls. Avoid the big blocks.

Mouse

AppTitle "Dotty : Wednesday Workshop #084 : The Four Object Challenge"

;Use Mouse to move the small dot.
;Avoid the walls
;Avoid the big blocks

Graphics 640,480,0,2

HidePointer

MoveMouse 320,240

ClsColor(0,0,64)

life=255
GameOver=0

block1x=140
block1y=145
block1xdir=6
block1ydir=-6
block1r=65

block2x=240
block2y=325
block2xdir=-7
block2ydir=-12
block2r=38

Const lifeD=5


time=MilliSecs()

While GameOver=0
	SetBuffer BackBuffer()
	Cls

	;Rectangle
	Color(0,0,255)
	Rect(50,50,540,380,0)

	;Blocks
	;1 - draw
	Color(128+b1r,128,255-b1r-b1r)
	Rect(block1x-block1r,block1y-block1r,block1r+block1r,block1r+block1r,1)
	;2 - draw
	Color(128+b2r,255-b2r,128-b2r)
	Rect(block2x-block2r,block2y-block2r,block2r+block2r,block2r+block2r,1)
	;1 - logic
	If (block1x-block1r)<50 Or (block1x+block1r)>590 Then block1xdir=-block1xdir
	block1x=block1x+block1xdir
	If (block1y-block1r)<50 Or (block1y+block1r)>430 Then block1ydir=-block1ydir
	block1y=block1y+block1ydir
	;2 - logic
	If (block2x-block2r)<50 Or (block2x+block2r)>590 Then block2xdir=-block2xdir
	block2x=block2x+block2xdir
	If (block2y-block2r)<50 Or (block2y+block2r)>430 Then block2ydir=-block2ydir
	block2y=block2y+block2ydir



	;Player
	Color(128,life,0)
	Oval(MouseX()-5,MouseY()-5,10,10,1)
	
	;Confine to rect
	If MouseX()<55 Then
		MoveMouse 56,MouseY()
		life=life-lifeD
	EndIf
	If MouseX()>585 Then
		MoveMouse 584,MouseY()
		life=life-lifeD
	EndIf
	If MouseY()<55 Then
		MoveMouse MouseX(),56
		life=life-lifeD
	EndIf
	If MouseY()>425 Then
		MoveMouse MouseX(),424
		life=life-lifeD
	EndIf

	;Hit boxes...
	If (MouseX()+3)>(block1x-block1r) And (MouseX()-3)<(block1x+block1r) And (MouseY()+3)>(block1y-block1r) And (MouseY()-3)<(block1y+block1r) Then
		life=life-lifeD
		ClsColor(0,64,64)
		b1r=120
	ElseIf (MouseX()+3)>(block2x-block2r) And (MouseX()-3)<(block2x+block2r) And (MouseY()+3)>(block2y-block2r) And (MouseY()-3)<(block2y+block2r) Then
		life=life-lifeD
		ClsColor(0,64,64)
		b2r=120
	Else
		ClsColor(0,0,64)
		b2r=0
		b1r=0
	EndIf



	
	;If Dead...
	If life<0 Then GameOver=1
	If KeyHit(1) Then GameOver=1
	
	Flip
	Delay 5
Wend


fintime=(MilliSecs()-time)+1000
score$=fintime
score$=Left(score$,(Len(score$)-3)) ; millisecs into secs


ShowPointer

RuntimeError("You have died. Your score was: "+score$+"")

End

Super Roadster 2

by HoboBen for Workshop #104

Remake of <a href="https://socoder.net/index.php?a=15&e=238">Super Roadster</a>

Cursors

Click to download this entry

Something in Gambas

by HoboBen for Workshop #125

It's basically Pong with slightly different controls. To download, Either get the <a href="https://www.tophatstuff.co.uk/packages/ww/125/ww125-0.0.3.tar.gz">Sourcecode</a> or the <a href="https://www.tophatstuff.co.uk/packages/ww/125/ww125">Compiled version</a>

Slightly different to Pong

RTS!

by HoboBen for Workshop #141

Dodge the enemy rectangles!

Mouse

Click to download this entry

Nap Attack

by HoboBen for Workshop #188

Stop the nightmares from reaching your brain. .. By SMOKING!!!

Mouse and Spacebar

Click to download this entry