Entries by HoboBen/Wed. Workshop (SoCoder)

HoboBen's Wednesday Workshop Entries
More of HoboBen's stuff.
Blog, Profile, Showcases, Code snippets, Articles, W.W Entries, Recent Posts

Content posted during the past 12 weeks.

9 Entries Latest Entries First
Nap Attack

Created for Workshop #188 | Comments (1) | Rating 100%

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

Mouse and Spacebar

Click to Download this entry

RTS!

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

Dodge the enemy rectangles!

Mouse

Click to Download this entry

Something in Gambas

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

It's basically Pong with slightly different controls. To download, Either get the Sourcecode or the Compiled version

Slightly different to Pong

Show Sourcecode for this entry

Hide Sourcecode

Super Roadster 2

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

Remake of Super Roadster

Cursors

Click to Download this entry

Dotty

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

Avoid the walls. Avoid the big blocks.

Mouse

Show Sourcecode for this entry

Hide Sourcecode

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

Blitz'd Feet

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

Visit the Blitz Feet Site for more levels.

Numpad

Click to Download this entry

Swansea Fireworks

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

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

No Interaction

Show Sourcecode for this entry

Hide Sourcecode

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

Speed Shooting