version
6.01
1
Form1
Form2
3
39
0
0
0
13
0
0
2
0
0
0
0
0
0
0
0
0
0
0
238
268

1
FliteDevice.dll
1
FliteDevice.dll
1
voice:FliteDevice
Sub designer





addform(Form1,"Beat me !","",220,220,220)@
addlabel(form1,Label8,115,165,75,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form1,Label7,35,165,75,25,"Score",220,220,220,0,0,0,True,True,12)@
addlabel(form1,Label6,120,240,120,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form1,Label5,120,215,120,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form1,Label4,5,240,120,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form1,Label3,5,215,120,25,"",220,220,220,0,0,0,True,True,12)@
addbutton(form1,Button19,135,120,35,35,"19",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button20,170,120,35,35,"20",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button18,100,120,35,35,"18",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button17,65,120,35,35,"17",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button16,30,120,35,35,"16",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button15,170,85,35,35,"15",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button14,135,85,35,35,"14",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button13,100,85,35,35,"13",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button12,65,85,35,35,"12",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button11,30,85,35,35,"11",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button10,170,50,35,35,"10",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button9,135,50,35,35,"9",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button8,100,50,35,35,"8",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button7,65,50,35,35,"7",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button6,30,50,35,35,"6",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button5,170,15,35,35,"5",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button4,135,15,35,35,"4",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button3,100,15,35,35,"3",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button2,65,15,35,35,"2",212,208,200,0,0,0,True,True,9)@
addbutton(form1,Button1,30,15,35,35,"1",212,208,200,0,0,0,True,True,9)@

addform(Form2,"","",220,220,220)@
addlabel(form2,Label13,70,60,100,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form2,Label12,115,30,100,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form2,Label11,115,5,100,25,"",220,220,220,0,0,0,True,True,12)@
addlabel(form2,Label10,5,30,100,25,"Your score",220,220,220,0,0,0,True,True,12)@
addlabel(form2,Label9,5,5,100,25,"My score",220,220,220,0,0,0,True,True,12)@
addbutton(form2,Button39,130,215,75,23,"Quit",212,208,200,0,0,0,True,True,9)@
addbutton(form2,Button38,20,215,75,23,"Play",212,208,200,0,0,0,True,True,9)@
End Sub
@EndOfDesignText@Sub Globals
	'Declare the global variables here.
Dim Type(Value, used) Square(21)	
player1 = 0
player2 = 0
go = 0
st = 0
nd = 0
temp = 0
a = 0
count = 0
End Sub

	Sub App_Start

If CPPC = True Then voice.New1
For a = 1 To 20
	AddEvent("Button" & a,Click, "Btn1_Click")
Next a
setup
	form1.show
	label3.Focus
	
End Sub

Sub setup

	player1 = 0
	player2 = 0
	label5.Text = 0
	label6.Text = 0
	label8.Text = ""
	count = 0

	For a = 1 To 20
	Control("Button" & a).enabled = true
	Control("Button" & a).color = cred
	Control("Button" & a).text = a
	Next a
	
	For a = 1 To 20
	Square(a).Value = a
	Square(a).used = 0
	Next a
	
	For a = 1 To 125
	st = Rnd(1,21)
	nd = Rnd(1,21)
	temp = Square(st).Value
	Square(st).Value = Square(nd).Value
	Square(nd).Value = temp
	Next a
	
	label3.Focus
	label3.Text = "Me" 
	label4.Text = "You"
	form1.Text = "You to go."
	go = 1
		
End Sub


 Sub Btn1_Click
 	a = Sender.text
	If CPPC = true Then voice.say(Square(a).Value)
 	form1.Refresh
 	go = 2
	player1 = player1 + Square(a).Value
 	label6.Text = player1
	Label8.text = Square(a).Value
	label8.focus
	doSquare
	
 	go = 1
	form1.Text = "Me to go."
	label3.Focus
	Do
	a = Rnd(1,21)
	Loop Until Square(a).used = 0
	
	player2 = player2 + Square(a).Value
	If CPPC = true Then voice.say(Square(a).Value)
 	label5.Text = player2
	form1.Text = "You to go."
	Label8.text = Square(a).Value
	label8.focus
	doSquare
	Return
End Sub
 
Sub doSquare
	Control("Button" & a).enabled = false
	Control("Button" & a).color = cwhite
	Control("Button" & a).text = Square(a).Value
	Square(a).used = 1
	form1.Refresh
	count = count + 1
	If count = 20 Then endof
	
End Sub

Sub endof
Sleep(500)
Form2.Show
label11.Text = player2
label12.Text = player1
If player1 > player2 Then
label13.Text = "You won"
Else
label13.Text = "I won"
End If


End Sub


Sub Button38_Click
setup
form1.Show
End Sub

Sub Button39_Click
AppClose
End Sub