Wednesday Workshop

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

Mini Tron

by firemaker103 for Workshop #001

Tron, too!

WAXD for Player 1, Cursors for Player 2

Graphics 640,480
SetBuffer BackBuffer()

Repeat
 o1x=21
 o1y=240
 p1x=21
 p1y=240
 p1dir=1 ;right
 o2x=618
 o2y=240
 p2x=618
 p2y=240
 p2dir=3 ;left
 Color 255,255,255
 Text 320,10,"Tron",1,1
 Text 320,150,"Player 1 controls: W-up X-down A-left D-right",1,1
 Text 320,180,"Player 2 controls: Numpad 8-up 2-down 4-left 6-right",1,1
 Text 320,400,"Press Enter to start",1,1
 Flip
 Repeat
 Until KeyDown(28)=1 Or KeyDown(1)=1
 If KeyDown(1)=1 Then End
 Cls
 Flip
 Cls
 Repeat
  Color 255,255,255
Rect 0,0,639,479,0
  Color 255,0,0
  Plot p1x,p1y
  Plot o1x,o1y
  Color 0,0,255
  Plot p2x,p2y
  Plot o2x,o2y
  o1x=p1x
  o1y=p1y
  o2x=p2x
  o2y=p2y
  If KeyDown(72) Then p2dir=0
  If KeyDown(80) Then p2dir=2
  If KeyDown(75) Then p2dir=3
  If KeyDown(77) Then p2dir=1
  If KeyDown(17) Then p1dir=0
  If KeyDown(45) Then p1dir=2
  If KeyDown(30) Then p1dir=3
  If KeyDown(32) Then p1dir=1
  If p1dir=0 Then p1y=p1y-1
  If p1dir=1 Then p1x=p1x+1
  If p1dir=2 Then p1y=p1y+1
  If p1dir=3 Then p1x=p1x-1  

  If p2dir=0 Then p2y=p2y-1
  If p2dir=1 Then p2x=p2x+1
  If p2dir=2 Then p2y=p2y+1
  If p2dir=3 Then p2x=p2x-1

  p1death=0
  GetColor p1x,p1y
  If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p1death=1
  If p1x<1 Then p1death=1
  If p1x>638 Then p1death=1
  If p1y<1 Then p1death=1
  If p1y>478 Then p1death=1
  p2death=0
  GetColor p2x,p2y
  If ColorRed()>0 Or ColorGreen()>0 Or ColorBlue()>0 Then p2death=1
  If p2x<1 Then p2death=1
  If p2x>638 Then p2death=1
  If p2y<1 Then p2death=1
  If p2y>478 Then p2death=1
  Color 255,255,255
  If p1death=1
   Text 320,240,"Player 1 crashed",1,1
   Flip
   Delay 5000
  EndIf
  If p2death=1
   Text 320,240,"Player 2 crashed",1,1
   Flip
   Delay 5000
  EndIf
  Flip
 Until KeyDown(1)=1 Or p1death=1 Or p2death=1
 If p1death=0 And p2death=0 Then End
Until p1death=0 And p2death=0
End

Solo Pong

by Firemaker103 for Workshop #007

I think I'm going to add a "No Pongs Allowed" rule to the general rules page..

Click to download this entry

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

Crazy Pool

by firemaker103 for Workshop #010

You have no control of where the ball goes!

Click the mouse button

Click to download this entry

FFFFFK

by firemaker103 for Workshop #024

Hit F as many times as you can within the time limit..

Click to download this entry