Entries by mole/Wed. Workshop (SoCoder)

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

Content posted during the past 12 weeks.

7 Entries Latest Entries First
Shooter : Extreme

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

Shoot the Targets

Mouse

Click to Download this entry

Avoider : Extreme

Created for Workshop #126 | Comments (3) | Rating 66.6%

"So damn exciting I can't keep my hat straight!"

Mouse

Click to Download this entry

The Random Game with Boxes

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

Shoot the boxes

Mouse

Show Sourcecode for this entry

Hide Sourcecode

;3 hour game
;Time limit: 3 hours
;Start time: 5:00
;I should stop wasting time commenting.
;This is going to be a "strem of consciousness game, i.e I'm writing random commands and seeing what it turns out. 

;//////////////////
;Start time: 17:00
;End time: 18:46
;Time elapsed: 1:46
;//////////////////

Const grx = 800, gry = 600
Const ENTER = 28
Const SPACE = 57
Graphics grx,gry,16,2
SetBuffer(BackBuffer())
SeedRnd(MilliSecs())

Type box ;Boxes are useful. My game shall have many.
	Field x,y,sx,sy ;position and dimensions
	Field dx,dy
	Field r,g,b
	Field alive
	Field image
End Type

Type player ;cant go without a player!
	Field x,y
	Field score
	Field lives
	Field alive
End Type

Type particle ;Yay! Colours!
	Field x,y,dx#,dy#,dv#
	Field r,g,b
	Field alive
End Type
	

Global p.player = New player
	p\x = grx/2
	p\y = gry/2
	p\score = 0
	p\lives = 3
	p\alive = 1
	
Global b.box
Global part.particle
Global NewEnemyTimer = MilliSecs()
Global mh1 = MouseHit(1)
Global mh2 = MouseHit(2)
Global gravity# = 3

Global Bgimage = CreateBackground(grx,gry,255,40,40)
Global intro = FadedImage(1)
Global game = FadedImage(2)
Global die = FadedImage(3)
Global instructions = FadedImage(4)
SetBuffer(BackBuffer())

While Not KeyHit(ENTER) ;title screen!
	Cls
		Title()
	Flip
Wend

ShowPointer()

While Not KeyDown(1)
	Cls
		DrawImage(game,0,0)
		mh1 = MouseHit(1)
		mh2 = MouseHit(2)
		UpdatePlayer()
		HandleMouse()
		UpdateBoxes()
		If MilliSecs() > NewEnemyTimer+Rand(2000,2750)
			CreateBox(Rand(1,3))
			NewEnemyTimer = MilliSecs()
		EndIf
		DrawHUD()
		UpdateParticles()
	Flip
Wend

Function Title()
	DrawImage(intro,0,0)
	
	Text grx*.5,gry*.3,"THE RANDOM GAME WITH BOXES",1,1
	Text grx*.5,gry*.55,"Hit ENTER to start",1,1
	Text grx*.5,gry*.55+(FontHeight()+10),"Hit ESC to exit",1,1
	Text grx*.5,gry*.8,"Hold down SPACE to see the instructions",1,1
	If KeyHit(1) Then End
		While KeyDown(SPACE)
			Cls
				DrawImage(instructions,0,0)
				Text grx*.5,gry*.3,"THE RANDOM GAME WITH BOXES",1,1
				Text grx*.5,gry*.4,"In this epic game of epic proportions, you must kill the onslaught",1,1
				Text grx*.5,(gry*.4)+(FontHeight()+2),"of boxes by clicking on them. With the mouse. Simple.",1,1
				Text grx*.5,(gry*.4)+(FontHeight()*2+2),"To exit, hit ESC.",1,1
			Flip
		Wend
End Function

Function UpdatePlayer()
	If p\alive = 1
		p\x = MouseX()
		p\y = MouseY()
		
		If p\lives <=0 Then p\alive = 0
	Else
		Dead()
	EndIf
End Function

Function HandleMouse()
	For b.box = Each box
		If b\alive = 1
			If BoxClicked(p\x,p\y,1,1,b\x,b\y,b\sx,b\sy) = True Then
				ParticleExplosion(10,b\x+(b\sx/2),b\y+(b\sy/2))
				b\alive = 0
				p\score = p\score + 10
			EndIf
		EndIf
	Next
End Function
		
	
Function BoxClicked(x1,y1,width1,height1,x2,y2,width2,height2)
	If x1 > x2 And x1 < (x2+width2) And y1 > y2 And y1 < (y2+height2) And mh1 Then
		Return True
	Else
		Return False
	EndIf
End Function

Function CreateBox(num%)
	For i = 0 To num%-1
		b.box = New box
			b\x = Rand(0,700)
			b\y = -15
			b\sx = Rand(20,60)
			b\sy = Rand(20,60)
			b\dx = Rand(-2,2)
			b\dy = Rand(2,4)
			b\r = Rand(20,255)
			b\g = Rand(20,255)
			b\b = Rand(20,255)
			b\alive = 1
			b\image = CreateBlockImage(b\sx,b\sy,Rand(20,255),Rand(20,255),Rand(20,255))
			SetBuffer(BackBuffer())
	Next
End Function

Function UpdateBoxes()
	For b.box = Each box
		If b\alive = 1 
			b\x = b\x + b\dx
			b\y = b\y + b\dy
				If b\x+b\sx > grx Then b\dx = -b\dx
				If b\x < 0 Then b\dx = -b\dx
				If b\y+sy > gry Then 
					p\lives = p\lives - 1
					b\alive = 0
				EndIf				
			Color b\r,b\g,b\b
			Rect b\x,b\y,b\sx,b\sy,1
		Else
			Delete b
		EndIf
	Next
End Function

Function Dead()

	While Not KeyHit(1)
		Cls
			DrawImage(die,0,0)
			Color 255,255,255
			Text grx*.5,gry*.2,"Oh noes!1!!1! You did not stop all of the boxes. Well, now they are going to",1,1
			Text grx*.5,(gry*.2)+(FontHeight()+2),"take over the world, or something equally evil.",1,1
			Text grx*.5,gry*.4,"By the way, you scored a whopping "+p\score+".",1,1
		Flip
	Wend
End Function

Function DrawHUD()
	Color 255,255,255
	Text 2,2,"Lives: "+p\lives
	Text 500,2,"Score "+p\score
End Function

; Functions for image independence
Function CreateBackground ( SizeX , SizeY,r,g,b )
	Image = CreateImage ( SizeX , SizeY )
		SetBuffer ImageBuffer ( Image )
			For x = 0 To SizeX/2-1
				c = (x*191/(SizeX/2)+64)
				Color c*2/3 , c*3/8 , c
				y = Float (x*SizeY)/((SizeX*2)+Sin(x))
				Rect x , y , (SizeX-x*2) , (SizeY-y*2) , True
			Next
		Return Image
End Function

Function ParticleExplosion(num%,x,y)
	For i = 0 To num*3
		part.particle = New particle
			part\x = x
			part\y = y
			part\dx# = Cos(angle)
			part\dy# = Sin(angle)
			part\dv# = Rand(1,3)
			part\alive = 1
			part\r = Rand(100,255)
			part\g = Rand(100,255)
			part\b = 0
			
			angle = angle+(360/num)
	Next
End Function

Function UpdateParticles()
	For part.particle = Each particle
		If part\alive = 1 Then
			Color part\r,part\g,part\b
			part\x = part\x + (part\dx * part\dv) 
			part\y = part\y + (part\dy * part\dv) 
			
			part\dy# = part\dy# + .1
			
			;Plot part\x,part\y
			Rect part\x,part\y,5,5,1
			
			
		Else
			Delete part
		EndIf
	Next
End Function

Function FadedImage(style)
	image = CreateImage(grx,gry)
		SetBuffer(ImageBuffer(image))
			For lines = 0 To gry-1
				Select style
					Case 1
						r = (lines/3)
						Color r,0,0
					Case 2
						g = (lines/3)
						Color 0,g,0
					Case 3
						bl = (lines/3)
						Color 0,0,bl
					Case 4
						r = lines/3
						g = lines/3
						bl = lines/3
						Color r,g,bl
				End Select
				Line 0,lines,grx,lines
			Next
		Return image
	SetBuffer(BackBuffer())
End Function
		
Function CreateBlockImage ( SizeX , SizeY,r,g,b )
	Image = CreateImage ( SizeX , SizeY )
		SetBuffer ImageBuffer ( Image )
			Color r , g , b
			Rect 0 , 0 , SizeX , SizeY , True
			Color r*2 , g*2 , b*2
			Line 0 , 0 , SizeX-2 , 0
			Line 0 , 0 , 0 , SizeY-2
			Color r/2 , g/2, b/2
			Line 0 , SizeY-1 , SizeX-1 , SizeY-1
			Line SizeX-1 , 0 , SizeX-1 , SizeY-1
			Color 255 , 255 , 255
			Plot 0 , 0
		Return Image
End Function

Super Duper Filler

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

Fill the box. (I think!)

Cursors and Space to shoot. 'When you want to, deposit the, uh, "magic glob" into the box by pressing Enter.'

Click to Download this entry

The Void

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

Shoot all the red aliens.

Cursors to fire, WASD to move.

Click to Download this entry

The Super Typing Game

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

Type the seven words that appear onscreen

OMG! Keyboard

Show Sourcecode for this entry

Hide Sourcecode

;The Super Typing Game

Graphics 1024,768,0,1
SetBuffer BackBuffer()

AppTitle("The Super Typing Game")

Dim ThinkingDots$(9)

ThinkingDots$(0) = "."
ThinkingDots$(1) = ".."
ThinkingDots$(2) = "..."
ThinkingDots$(3) = "...."
ThinkingDots$(4) = "....."
ThinkingDots$(5) = "......"
ThinkingDots$(6) = "......."
ThinkingDots$(7) = "........"
ThinkingDots$(8) = "........."
ThinkingDots$(9) = ".........."

Dim SentencesArray$(12)

SentencesArray(0) = "each sentence will have exactly seven words"
SentencesArray(1) = "at this current moment i make sentences"
SentencesArray(2) = "none of these sentences contain any punctuation"
SentencesArray(3) = "the sentences will vary in their features"
SentencesArray(4) = "if there were any typos i apologise"
SentencesArray(5) = "i bet you are having stupendous fun"
SentencesArray(6) = "physics is a lesson in most schools"
SentencesArray(7) = "no pressure but the clock is ticking"
SentencesArray(8) = "typing with no puctuation is terribly bad"
SentencesArray(9) = "i find sentences hard to type properly"
SentencesArray(10) = "thereis is a concatanation of there is"
SentencesArray(11) = "this is actually fantasmagorically boring and uneventful"
SentencesArray(12) = "this game is deceptive this is boring"

Global PlayGame = False
Global ThinkingTimer = MilliSecs()
Global ThinkingNumber = 0
Global TotalThinkDots = 0
Global sentence$ = ""
Global SentenceToShow = 0
Global TimeLeft = 30 ;time left, in seconds.
Global TimeLeftTimer = MilliSecs()
Global HUDinfo$ = "Type the sentence A.S.A.P!"
Global score = 0

;title screen

FlushKeys()

Repeat
	Cls
	
		Text 512,150,"Welcome to this super game!",1,1
		Text 512,175,"This game is so super it had to be named 'The Super Typing Game'",1,1
		Text 512,200,"You have been warned...",1,1
		
		Text 512,300,"The aim of this arguably fantasmagorical game is one of deception, evasion and utter anihalation!",1,1
		Text 512,325,"The truth is, I am thinking of the aim as I write this very introduction, but that is our secret ;)",1,1
		Text 512,350,"So. What to do? What about...",1,1
		
		Text 512,425,"Press space bar to continue...",1,1
		If KeyHit(57) = True Then PlayGame = True
	
	Flip
Until PlayGame = True

PlayGame = False

Repeat
	Cls
	
	If MilliSecs() > ThinkingTimer + 200 Then 
		ThinkingNumber = ThinkingNumber + 1
		TotalThinkDots = TotalThinkDots + 1
			If ThinkingNumber > 9 Then ThinkingNumber = 0
		ThinkingTimer = MilliSecs()
	EndIf
	
	Text 512,384,"Thinking of game"+ThinkingDots(ThinkingNumber),1,1
	
	If TotalThinkDots = 12 Then PlayGame = True
	
	Flip
Until PlayGame = True

PlayGame = False

FlushKeys()

Repeat 
	Cls
		
		Text 512,200,"Thinking Complete!",1,1
		
		Text 512,400,"So, in this game, you have to type the sentence as fast as possible WITH NO ERRORS",1,1
		Text 512,425,"and then press enter to submit it. You have to type as many sentences as you can until",1,1
		Text 512,450,"the time runs out. The great thing is, you get a little bit of extra time added when you",1,1
		Text 512,475,"compete a sentence.",1,1
		Text 512,500,"To end the game, press ESC, which you will most likely want to know...",1,1
		Text 512,525,"Let the game Begin! We are writing this line on the 525th pixel form the top of the screen.",1,1
		Text 512,550,"Press the open square brackets key to continue I guess...",1,1
		
		If KeyHit(26) Then PlayGame = True
	
	Flip
Until PlayGame = True

Cls
Text 512,384,"The game will begin in a random time, between three seconds and eight seconds...",1,1
Flip

Delay(Rand(3000,8000))

FlushKeys()

Repeat
	Cls
		
		If MilliSecs() > TimeLeftTimer + 1000 Then
			TimeLeft = TimeLeft - 1
			TimeLeftTimer = MilliSecs()
		EndIf
		
		Rect 50,60,10,TimeLeft*20,1 
		
		Text 10,10,HUDinfo$
		Text 512,150,"Carefully but speedily type the sentence below! FUN FUN FUN!",1,1
		
		Text 512,250,SentencesArray$(SentenceToShow),1,1
	
		If KeyHit(14) And Len(sentence$)>0 Then sentence$=Left$(sentence$,Len(sentence$)-1) ;handles deleting the lst charater
		key=GetKey()
		If key>=32 And key<=148 Then sentence$=sentence$+Chr$(key) ;adds the latest keyhit the the message
		If KeyHit(28) And Len(sentence$)>0 Then CheckSentence(sentence$,SentencesArray$(SentenceToShow))
		Text 512,600,"Your sentence so far!!: "+sentence$+"_",1,1 ;show this message!
	Flip
Until KeyHit(1) Or TimeLeft <= 0

Repeat
	Cls
		
		Text 512,350,"Well, that was probably quite a traumatically boring experience!",1,1
		Text 512,375,"Fortunately, I made this thing keep track of how many sentences you typed",1,1
		Text 512,400,"correctly. I bet you are itching to find out...",1,1
		Text 512,425,"Well, what are you waiting for? Press key F8 to see your score!",1,1
		
		Text 512,475,"Press the left shift key to exit at any time...",1,1
		
		If KeyHit(66) Then 
			Text 512,550,"Your score: "+score,1,1
			Text 512,575,"That was anti-climatic, was it not?",1,1
			Text 512,600,"Do not forget to play again!",1,1
		EndIf
	Flip
Until KeyHit(42)

Function CheckSentence(UserSentence$,ArraySentence$) ;check whther the typed sentence is correct

If UserSentence$ = ArraySentence$ Then
	sentence$ = ""
	SentenceToShow = Rand(0,12)
	HUDinfo$ = "Well done! Onto the next one..."
	TimeLeft = TimeLeft + 15
	score = score + 1
Else
	sentence$ = ""
	HUDinfo$ = "AAARRRGGGHHH! You made a mistake! Try again, quickly!"
EndIf

End Function

Pong Extreme

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

Defeat the boss, before he defeats you.

Cursors

Click to Download this entry