Wednesday Workshop - BlitzCoder.net

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

Dice Club

by Jayparker for Workshop #008

Actually made in 1,5 hours...

;
; DICE CLUB v0.1 (Blitz3D)
;  	for Wednesday Workshop #008
;	by Jay Parker
; Copyright (c) Puzzlehouse Finland 2005.
;

Graphics 640,480,0,2

Const 	White	=	1
Const 	Red		=	2
Const	Yellow	=	3
Const	Green	=	4

fnt=LoadFont("tahoma",26,True)
fnt2=LoadFont("tahoma",20)

fin=ReadFile("best.dat")
If fin
	bestscore=ReadShort(fin)
	bestname$=ReadString(fin)
	CloseFile fin
Else
	bestscore=10
	bestname="Jay Parker"
EndIf

.Title
Cls : Locate 0,0
SetFont fnt
pen yellow
Print "Dice Club v0.1"
pen white
SetFont fnt2
Print "Copyright (c) Puzzlehouse Finland 2005."
Print : Print
pen white : Write "Best result " : pen yellow : Write BestScore : pen white : Write " by " : pen yellow : Write BestName
Print : Print
FlushKeys() : pen green
nimi$=Input("Enter your name: ")
If nimi="" End
nimi=Left$(nimi,15)
round=1
score=0
total_score=0

.StartGame
score=0
SeedRnd (MilliSecs())
Cls : Locate 0,0
SetFont fnt : pen white
Write "Round - " : pen yellow: Write round
Print : Print 
SetFont fnt2
pen white

a=Rand(6) : b=Rand(6)
pen white : Write "Your deathroll is: "
show_result a,b

AppTitle "Deathroll: "+a+"+"+b+"="+(a+b)+"   Total score: "+total_score

roll=0

.Loop
roll=roll+1
If roll=11 Goto rundi_ohi
Print : Print

z=Rand(6)
x=Rand(6)
pen yellow : score=score+(z+x)
Write "Roll #"+roll+" :    " : pen white : Write "Round score: "+score : Print
show_result z,x 

If (a+b)=(z+x)	;Deathroll!
	Print : Print
	score=0
	SetFont fnt
	pen red
	Print "DEATHROLL!" : Goto rundi_ohi
Else
	pen green : Write "  More (Y/N)? "
	ch$=Input("")
	If ch="q" Or ch="Q" End
	If ch="" Or ch="y" Or ch="Y"
		Goto loop
	Else
	.rundi_ohi
		total_score=total_score+score
		Print : Print
		pen red : Print "Round end!"
		Print : pen white
		Print "This round : "+score
		Print "Total score : "+total_score
		FlushKeys()
		WaitKey
		round=round+1
		If round=11 Goto GameEnd
		Goto startgame
	EndIf
EndIf


.GameEnd
Cls : Locate 0,0
SetFont fnt
pen yellow
Print "Game Over!"
Print : Print
pen white : Write "Your total score is " : pen green : Write total_score

If total_score>bestscore
	BestScore=Total_Score
	BestName$=nimi$
	fout=WriteFile("best.dat")
	If fout
		WriteShort fout,bestscore
		WriteString fout,bestname
	EndIf
EndIf

FlushKeys()
WaitKey()

Goto title


Function Show_Result( w%,e% )

	pen green : Write w : pen white : Write " + " : pen green : Write e : pen white : Write " = "
	pen yellow : Write (w+e)

End Function


Function Pen(nro%)

	Select Nro
		Case White
			Color 255,255,255
		Case Yellow
			Color 255,255,0
		Case Red
			Color 255,0,0
		Case Green
			Color 0,255,0
	End Select

End Function