Entries by blanko1324/Wed. Workshop (SoCoder)

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

Content posted during the past 12 weeks.

5 Entries Latest Entries First
Elevator

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

"I sadly have to report that I will not be able to finish the game on time. But, I worked really hard and Id like to show off what I got so far."

Mouse

Click to Download this entry

Flood Warning

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

Stop the building from flooding by catching the water in your trusty bucket.

Mouse

Show Sourcecode for this entry

Hide Sourcecode

Graphics 800,600
SeedRnd MilliSecs()
AppTitle "Flood Warning"

;Wed. Workshop #18: The water challenge.

Type drop
 Field x#,y#
 Field dirx#,diry#
 Field hit#
End Type 

Global bucket_x
Global bucket_y

background = CreateImage(800,600)
 SetBuffer ImageBuffer(background)
  Draw_BG()

SetBuffer BackBuffer()

Global leak_x,leak_y
Global score = 0
Global combo_amt = 0

Global water_level# = 0

Global font1 = LoadFont("Ariel",50,1,0,0)
Global font2 = LoadFont("Ariel",14,0,0,0)

;Opening Loop

Repeat 
Cls 

Draw_Opening()
Update_Spray()

For d.drop = Each drop
 If d\y >= 490
  d\hit = 1
 EndIf 
Next 

Flip
Until MouseHit(1)

FlushKeys()

For d.drop = Each drop
 d\hit = 1
Next 

;Opening End

Global leak_timer = MilliSecs() ;determines when to change holes
Update_Holes(Rand(1,5))

;Main Loop

Repeat 
Cls

If MilliSecs() >= leak_timer + Rand(2000,4000)
 Update_Holes(Rand(1,5))
 leak_timer = MilliSecs()
EndIf 

DrawImage background,0,0
Color 155,155,155
Update_Bucket()

Spray(leak_x,leak_y)
Update_Spray()
Update_Water_Level()

If water_level >= 200
  Exit 
EndIf 

Color 255,255,255
SetFont font2
Text 400,500,"Score: " + score,1,1


Flip
Until KeyHit(1)

;Main End

;End Loop

Repeat
Cls

Color 255,255,255
SetFont font1
Text 400,200,"GAME OVER",1,1
SetFont font2
Text 400,250,"Score: " + score,1,1
Text 400,270,"Press ESC to exit",1,1

If KeyHit(1)
 End
EndIf 

Flip
Until KeyHit(False)

;End End

Function Draw_BG()

 Color 255,255,255
 Rect 300,150,200,200,0 ;Back Wall
 
 Line 0,0,300,150
 Line 0,600,300,350
 Line 800,600,500,350
 Line 800,0,500,150

 Rect 355,230,90,120,0 ;Door
 Oval 365,290,5,5,0 ;Door Knob

End Function 

Function Update_Bucket()

 bucket_x = MouseX()
 bucket_y = MouseY()

 Color 255,255,255
  Line bucket_x - 20,bucket_y - 20,bucket_x + 20,bucket_y - 20
  Line bucket_x - 15,bucket_y + 30,bucket_x + 15,bucket_y + 30
  Line bucket_x - 20,bucket_y - 20,bucket_x - 15,bucket_y + 30
  Line bucket_x + 20,bucket_y - 20,bucket_x + 15,bucket_y + 30
 
 For d.drop = Each drop
  If d\x >= bucket_x - 20 And d\x <= bucket_x + 20 And d\y >= bucket_y - 20 And d\y <= bucket_y - 10
   d\hit = 1 
   score = score + 1
  EndIf 
 Next 

 
End Function 

Function Update_Holes(hole_num)

 Select hole_num
  Case 1
   leak_x = 266
   leak_y = 50
  Case 2
   leak_x = 266*2
   leak_y = 50
  Case 3
   leak_x = 399
   leak_y = 50
  Case 4
   leak_x = 100
   leak_y = 200
  Case 5
   leak_x = 700
   leak_y = 200
 End Select 

End Function

Function Spray(x,y)

 d.drop = New drop
  d\x = x
  d\y = y
  
  If (d\y = 50) 
   d\dirx = Rnd#(-.2,.2)
  EndIf 
  
  If (d\x = 100)
   d\dirx = Rnd#(3,3.2)
  EndIf 

  If (d\x = 700)
   d\dirx = Rnd#(-3,-3.2)
  EndIf 

  d\diry = Rnd#(2,5)
  d\hit = 0

End Function

Function Update_Spray()

 For d.drop = Each drop
  If d\hit = 1
   Delete d
  Else 
   d\x = d\x + d\dirx
   d\y = d\y + d\diry

   d\diry = d\diry + .1

   Color 100,100,255
   Oval d\x - 2,d\y - 2,4,4,1
 
  EndIf 
 Next

Oval leak_x - 2,leak_y - 2,4,4,1

End Function 

Function Update_Water_Level()

 For d.drop = Each drop
  If d\y >= 600 - water_level
   water_level = water_level + .2
   d\hit = 1
  EndIf 
 Next 

Color 100,100,255
Rect 0,600-water_level,800,600-water_level

End Function 

Function Draw_Opening()

 Color 255,255,255
  Rect 400-200,300-200,400,400,0
 
  Rect 400-50,350,100,100,0

  Line 350,350,400,300 ;roof
  Line 450,350,400,300 ;roof

  Line 350,430,200,430 ;ground
  Line 450,430,599,430 ;ground
 
  Rect 375,380,50,70,0 ;door
  
  Oval 380,410,5,5,0 ;doorknob

 Spray(Rnd#(200,600),100)

 SetFont font1 
  Text 400,140,"Flood",1,1
  Text 400,180,"Warning",1,1

 SetFont font2
  Text 400,520,"To Play: Stop the building from flooding by catching the water in your trusty bucket. Dont let the water level get to high",1,1
  Text 400,540,"Press LMB to start and be ready to catch as soon as you press it.",1,1
  Text 400,560,"By: Nick (blanko) Sheets",1,1

End Function

Demolition!

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

Created in a Sleep Inn in Williamsburg, Virginia

Controls

Show Sourcecode for this entry

Hide Sourcecode

;The game of chance.
;Wed. Workshop #8 
;Title: Demolition!
;Started: WED Aug. 3rd, 2005. 3:06 AM
;(in a Sleep Inn in Williamsburg, Virginia)

Graphics 800,600,0,2
AppTitle "Demolition!"
SetBuffer BackBuffer()
SeedRnd MilliSecs() 


Type button

 Field x,y 
 Field hit ;If the button is hit
 Field real ;determines if it is the right button 

End Type 

Type player

 Field num
 Field name$

End Type 

;Total buttons: 8

Global num_of_players
Global n
Global height = 70
Global heighttwo = 200
Global Win = 0


While (num_of_players > 8 Or num_of_players < 2)
Cls 

 Text 150,100,"Welcome to Demolition!"
 Text 50,150,"Players: Two to eight players. THIS IS A MULTIPLAYER GAME AND CANNOT BE PLAYED ALONE!"
 Text 50,190,"To play: There are a total of eight buttons. One of the buttons, when hit, will"
 Text 50,210,"demolish the building. Players take turns selecting a button. The object is to be the"
 Text 50,230,"player to choose the correct button and blow up the building."

Locate 50,260
num_of_players = Input$("How many players? ") 
n = 1

Flip 
Wend 

Cls 

For i = 1 To num_of_players 
Text 50,100,"Player: " + n

 p.player = New player 
  p\num = n 

 Locate 50,150
p\name = Input$("What is player " + p\num + "'s name? ")
 n = n + 1

Cls 
Next 

Global one.button = New button
one\x = 30
one\y = 450
one\hit = 0 

Global two.button = New button
two\x = 130
two\y = 450
two\hit = 0

Global three.button = New button
three\x = 230
three\y = 450
three\hit = 0

Global four.button = New button 
four\x = 330
four\y = 450
four\hit = 0 

Global five.button = New button
five\x = 430
five\y = 450
five\hit = 0

Global six.button = New button
six\x = 530
six\y = 450
six\hit = 0

Global seven.button = New button
seven\x = 630
seven\y = 450
seven\hit = 0

Global eight.button = New button 
eight\x = 730
eight\y = 450
eight\hit = 0


real = Rand(1,8)
Select real

Case 1
one\real = True
Case 2
two\real = True 
Case 3
three\real = True 
Case 4 
four\real = True
Case 5
five\real = True 
Case 6
six\real = True 
Case 7 
seven\real = True 
Case 8
eight\real = True 

End Select 

n = 1

FlushKeys()
   
While Not KeyHit(1)
Cls 

For p.player = Each player 
 If p\num = n

Color 255,255,255
Text 300,300,"It is " + p\name + "'s (player " + p\num + ") turn."

 EndIf 
Next

If Win = 1
height = height + 1
heighttwo = heighttwo - 1
For p.player = Each player

If p\num = n
Text 300,350,"!!** " + p\name + " WINS **!! (hit esc)"
EndIf 

If KeyHit(1)
End
EndIf 

Next 
EndIf 

ShowBuilding()
ShowButtons()

If Win = 0
ChooseButton()
EndIf 


Flip
Wend 



Function ShowBuilding()

 Color 150,150,150
 Rect 350,height,100,heighttwo ;building
 
 Color 0,0,0
 Rect 360,80,20,40
 Rect 360,130,20,40 ;windows
 Rect 420,80,20,40
 Rect 420,130,20,40
 Rect 390,80,20,40
 Rect 390,130,20,40
 
 Rect 380,230,40,40 ;door

End Function 

Function ShowButtons()

Color 255,0,0

If one\hit = 0 
Rect one\x,one\y,40,40
EndIf 

If two\hit = 0 
Rect two\x,two\y,40,40
EndIf 

If three\hit = 0 
Rect three\x,three\y,40,40
EndIf

If four\hit = 0 
Rect four\x,four\y,40,40
EndIf

If five\hit = 0 
Rect five\x,five\y,40,40
EndIf

If six\hit = 0 
Rect six\x,six\y,40,40
EndIf

If seven\hit = 0 
Rect seven\x,seven\y,40,40
EndIf

If eight\hit = 0  
Rect eight\x,eight\y,40,40
EndIf 
 
Color 0,0,0
Text one\x+2,one\y+2,"1"
Text two\x+2,two\y+2,"2"
Text three\x+2,three\y+2,"3"
Text four\x+2,four\y+2,"4"
Text five\x+2,five\y+2,"5"
Text six\x+2,six\y+2,"6"
Text seven\x+2,seven\y+2,"7"
Text eight\x+2,eight\y+2,"8"

End Function 

Function ChooseButton()

Locate 300,320:Color 255,255,255
 temp = Input$("Choose a button to press: ")
Select (temp)

Case 1
If one\real = True
Win = 1
Else 
n = n + 1
one\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf 

;---

Case 2
If two\real = True
Win = 1
Else 
n = n + 1
two\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf 

;---

Case 3
If three\real = True
Win = 1 
Else 
n = n + 1
three\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf 

;---

Case 4
If four\real = True
Win = 1 
Else
n = n + 1
four\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf 

;---

Case 5
If five\real = True
Win = 1 
Else 
n = n + 1
five\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf

;---
 
Case 6
If six\real = True
Win = 1
Else 
n = n + 1
six\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf

;---
 
Case 7
If seven\real = True
Win = 1
Else 
n = n + 1
seven\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf 

;---

Case 8
If eight\real = True
Win = 1 
Else 
n = n + 1
eight\hit = 1
EndIf 
If n > num_of_players
n = 1
EndIf

;---

Default 

End Select 
 
End Function

Radar

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

Hit the circles with your mouse, given the audio clues.. Turn up your speakers, or you won't hear a thing!

Controls

Click to Download this entry

Class Clown

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

You are a student in 10th grade and you have to play tricks on

Controls

Click to Download this entry