Wednesday Workshop

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

Demolition!

by blanko1324 for Workshop #008

Created in a Sleep Inn in Williamsburg, Virginia

;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