Wednesday Workshop

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0|563|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Stock Market

by firemaker103 for Workshop #008
Welcome to the Stock Market.
;Stock Market

Graphics 800,600,16,2
SeedRnd(MilliSecs())




Global buysell$
Global usermoney = 50
Global highlow = 0
Global day = True

Global bug = 1


Const stock1$ = "PlanVista"
Global stock1money# = Rand(-50,50)
Global stockcount1 = 0

Const stock2$ = "TechKnows"
Global stock2money# = Rand(-50,50)
Global stockcount2 = 0

Const stock3$ = "JordanTeam"
Global stock3money# = Rand(-50,50)
Global stockcount3 = 0

Const stock4$ = "Exsoft Games"
Global stock4money# = Rand(-50,50)
Global stockcount4 = 0


Global paused = 1
Global mousehitleft=0
Global mousehitright=0
Global playing = 0

;############################################33

Print "Welcome to the Stock Market. Click below fo either simulation or one-a-day mode.

FlushMouse()

While playing=0

runmouse()
	Color 50,50,50
	Rect 302,202,200,26,0
	Text 306,204,"Play"
	Rect 302,302,200,26,0
	Text 306,304,"Instructions"
	Rect 302,402,200,26,0
	Text 306,404,"Exit"
	Color 255,255,255
	Rect 300,200,200,26,0
	Text 304,202,"Play"
	Rect 300,300,200,26,0
	Text 304,302,"Instructions"
	Rect 302,402,200,26,0
	Text 304,402,"Exit"
		Color 255,255,255
	Rect 300,200,200,26,0
	Text 304,202,"Play"
	Rect 300,300,200,26,0
	Text 304,302,"Instructions"
	Rect 302,402,200,26,0
	Text 304,402,"Exit"
	If mousehitleft=1
		If rectoverlap(300,200,200,26,MouseX(),MouseY(),1,1)=1
			playing=1
			levelmenu()
		EndIf
		If rectoverlap(300,300,200,26,MouseX(),MouseY(),1,1)=1 And mousehitleft=1
			Instructions()
		EndIf 
		If rectoverlap(300,400,200,26,MouseX(),MouseY(),1,1)=1 And mousehitleft=1
			End 
		EndIf
	EndIf 
Wend











;#############################################
;Functions

Function RectOverlap(x,y,w,h,xx,yy,ww,hh)
	If x+w>xx And y+h>yy And xx+ww>x And yy+hh>y Then Return 1
	Return 0
End Function




Function runmouse()
mousehitleft=0
	If MouseDown(1)=1 And mousehitleft1=0
		mousehitleft1=1
		mousehitleft=1
	EndIf
	
	If MouseDown(1)=0 Then mousehitleft1=0
mousehitright=0

If MouseDown(2)=1 And mousehitright1=0
	mousehitright1=1
	mousehitright=1
EndIf

If MouseDown(2)=0 Then mousehitright1=0
End Function 




Function levelmenu()
FlushMouse()
Cls
While paused = 1
	
	runmouse()
	
	
	
	;#Boxes
	Color 255,255,255
	Rect 0,572,200,26,0
	Text 2,574,"One a Day"
	
	Color 255,255,255
	Rect 220,572,200,26,0
	Text 222,574,"Sim"
	
	Color 255,255,255
	Rect 440,572,200,26,0
	Text 442,574,"Back"

	
	
	;#######END BOX
	
	
	
	Text 300,200,"Click on a mode to play it."
	
	;#################TESTING CLick
	
	If mousehitleft=1 And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1
	Cls
	FlushMouse()
	Print "Feature not done yet!" 
		paused=0
		
	EndIf
	
	If mousehitleft=1 And rectoverlap(220,574,200,26,MouseX(),MouseY(),1,1)=1 
		Cls
		FlushMouse()
		FlushMouse()
		While Not KeyDown(1)
		Sim()
		Wend

		paused=0
	EndIf
	
	If mousehitleft=1 And rectoverlap(440,574,200,26,MouseX(),MouseY(),1,1)=1 
		paused=0
		Cls
		playing = 0
	EndIf
	
	;####END TEST CLICK
	
Wend

End Function



Function Instructions()
paused=1
While paused=1
	Cls
	If KeyHit(1) Then paused=0
	runmouse()
	Print "Not done yet!"
	;DrawImage instructionscreen,0,0
	Color 50,50,50
	Rect 2,574,200,26,0
	Text 4,576,"Back"
	Color 255,255,255
	Rect 0,572,200,26,0
	Text 2,574,"Back"
	If mousehitleft=1 And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1
		Cls 
		paused=0
	EndIf 
Wend
FlushKeys 
End Function 










Function Sim()
.day



FlushMouse()
FlushMouse()
FlushMouse()
FlushMouse()

If day = True
   	
    Text 300,300,"Below are the stocks price. What do you want to do?"
	Text 0,0,stock1 : Text 0,20,stock1money#
	


	
	Text 100,0,stock2 : Text 100,20,stock2money#
	

	
	Text 200,0,stock3 : Text 200,20,stock3money#
	
	SeedRnd(MilliSecs())
	increase = Rand(-5,5)
	
	Text 300,0,stock4 : Text 300,20,stock4money#
		Text 0,560, "Your money: " + usermoney
	
;######################USER INTERFACE#############################################
	
	Rect 0,572,200,26,0
	Text 2,574,"Buy"
	Rect 0,572,200,26,0
	Text 2,574,"Buy":FlushMouse()
	
	FlushMouse():If MouseDown(1) And rectoverlap(0,574,200,26,MouseX(),MouseY(),1,1)=1
		Cls
		Buy()
		Goto day
	EndIf
	
	Rect 210,572,200,26,0
	Text 212,574,"Sell"
		Rect 210,572,200,26,0
	Text 212,574,"Sell":FlushMouse()
	
	FlushMouse():If MouseDown(1) And rectoverlap(210,574,200,26,MouseX(),MouseY(),1,1)=1
		Cls  
		Sell()
		Goto day
	EndIf

    Rect 420,572,200,26,0
	Text 422,574,"Go to next day"
	Rect 420,572,200,26,0
	Text 422,574,"Go to next day":FlushMouse()
	
	FlushMouse():If MouseDown(1) And rectoverlap(420,574,200,26,MouseX(),MouseY(),1,1)=1
		Cls 
		stock1money# = Rand(-50,50)
		stock2money# = Rand(-50,50)
		stock3money# = Rand(-50,50)
		stock4money# = Rand(-50,50)
		Goto day
	EndIf
;########################END USER INTERFACE##############################################

EndIf
End Function

Function Buy()
	
	If bug = 1
	Text 0,0,stock1 : Text 0,20,stock1money#
	

	
	Text 100,0,stock2 : Text 100,20,stock2money#
	

	
	Text 200,0,stock3 : Text 200,20,stock3money#
	
	
	Text 300,0,stock4 : Text 300,20,stock4money#
		Text 0,560, "Your money: " + usermoney
		
buysell$ = Input$("Which stock do you want to buy? (In order. EG: PlanVista = 1, Techknows = 2): ")

Select buysell$

	Case 1
		stockcount1 = stockcount1 + 1
		usermoney = usermoney - stock1money#
		
	Case 2
		stockcount2 = stockcount2 + 1
		usermoney = usermoney - stock2money#
	
	Case 3
		stockcount3 = stockcount3 + 1
		usermoney = usermoney - stock3money#

	Case 4
		stockcount4 = stockcount4 + 1
		usermoney = usermoney - stock4money#
End Select
EndIf
bug = 0
End Function

Function Sell()

If bug = 1
	Text 0,0,stock1 : Text 0,20,stock1money#
	


	
	Text 100,0,stock2 : Text 100,20,stock2money#
	

	
	Text 200,0,stock3 : Text 200,20,stock3money#
	
	
	Text 300,0,stock4 : Text 300,20,stock4money#
		Text 0,560, "Your money: " + usermoney
		
buysell$ = Input$("Which stock do you want to sell? (In order. EG: PlanVista = 1, Techknows = 2): ")
		
	Select buysell$

	Case 1
	
	If stockcount1 > 0
		stockcount1 = stockcount1 - 1
		usermoney = usermoney + stock1money#
	EndIf
	Case 2
	If stockcount2 > 0
		stockcount2 = stockcount2 - 1
		usermoney = usermoney + stock2money#
	EndIf
	
	Case 3
	If stockcount3 > 0
		stockcount3 = stockcount3 - 1
		usermoney = usermoney + stock3money#
	EndIf
	
	Case 4
	If stockcount4 > 0
		stockcount4 = stockcount4 - 1
		usermoney = usermoney + stock4money#
	EndIf
End Select	
EndIf

bug = 0		

End Function



Function GetText$(x,y,prompt$,max)
	Local key,l,inp$
	SetBuffer BackBuffer()
	Text x,y,prompt+" "+inp$
	Flip
	Repeat
		key=WaitKey()
		If key>31 Then
			If Len(inp)<max Then inp=inp+Chr(key)
		ElseIf key=8 Then
			If Len(inp)>0 Then inp=Left(inp,Len(inp)-1)
		EndIf
		Text x,y,prompt+" "+inp
		Flip
		Cls
	Until key=13
	Return inp
End Function