Wednesday Workshop

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

Lifeline

by Huruey for Workshop #062

<font color=#FF0000>WARNING : THIS GAME MAY BE USED TO SHUT DOWN YOUR PC, OR DELETE FILES FROM YOUR PC. PLAY WISELY</font>

Mouse

SeedRnd MilliSecs()
AppTitle "Lifeline :: It's not for whimps...","This is your last chance to exit..."
Graphics 500,350

Global risk,file$,linewidth#

Print "Lifeline :: It's not for whimps..."
Print
Color 150,150,150
Print "Lifeline is a game of risk."
Print "The game involves a line moving across the screen"
Print "slowly. This line is your lifeline, if it touches the other"
Print "side of the screen, you lose. But HOW DO YOU STOP IT?"
Print
Print "Stopping it sounds easy: just click on the line to win!"
Print "However, it will be fullscreen, with the cursor hidden!"
Print
Print "I wonder who is brave enough to play?"

WaitKey()

Cls
Locate 0,0
FlushKeys()

Color 255,255,255
Print "Lifeline :: It's not for whimps..."
Print
Color 150,150,150
Print "Lifeline may be played with or without risk."
Print
Print "The creator of this program cannot be held"
Print "responsable for any damage this program may"
Print "cause to your computer. This program will"
Print "not modify files on your computer without"
Print "permission. Option 3 asks for a file you wish"
Print "to be deleted should you lose, making it your"
Print "own responsability."
Print
Print
Color 200,200,200
Print "Press 1 if you wish to play without risk"
Print
Print "Press 2 if you wish to risk a forced shutdown"
Print "if you lose"
Print
Print "Press 3 to chose and risk the deletion of a"
Print "file on your computer"
Print
Color 255,255,255
Print "Now is your last chance to exit the program."
Print "Pressing Ctrl, Alt, Delete, Backspace, Esc or Tab"
Print "during play will cause an instant lose and"
Print "you will recieve the forfeit."
Repeat
	If KeyHit(1) Then End
	If KeyHit(2) Then risk=0 introend=1
	If KeyHit(3) Then risk=1 introend=1
	If KeyHit(4) Then risk=2 introend=1
Until introend=1

Cls
Locate 0,0
FlushKeys()

Print "Due to the seriousness of this game, it is required"
Print "that you enter the following code to verify you wish"
Print "to play."
Print 
scode=Rnd(1000,9999)
Print "Code: "+scode
Print
icode=Input("Re-enter code: ")
If icode<>scode
	Color 200,0,0
	Print "Codes did not match"
	Delay 1000
	End
EndIf

If risk=3
	Cls
	Locate 0,0
	Print "You selected option 3..."
	Print "Please enter the file you wish to risk..."
	file$=Input("Filename: ")
	If FileSize(file$)=0
		Color 255,0,0
		Print
		Print "Invalid Filename"
		Delay 1000
		End
	EndIf
EndIf

Graphics 640,480,16,1
Repeat
	Locate 0,0
	Print "Click on the line before it reaches the other side..."
	Print "You may recieve small clues..."
	Line 0,300,linewidth,300
	linewidth#=linewidth#+0.2
	rno=Rnd(1000)
	If rno=100 Then Text MouseX(),MouseY(),"The cursor is somewhere around here":Delay 500
	If MouseHit(1)
		If MouseY()=300 And MouseX()<=linewidth
			For i=1 To 30
				Print "YOU WIN!!!"
			Next
			Delay 2000
			End
		EndIf
	EndIf
	Flip
	Cls
Until KeyHit(1) Or KeyHit(14) Or KeyHit(15) Or KeyHit(29) Or KeyHit(56) Or KeyHit(211) Or linewidth>800

If risk=1 Then ExecFile("C:\Windows\ system32\shutdown.exe -s")
If risk=2 Then DeleteFile(file$)
End