∞ Bowling ∞

Cls
{0,0,0,0,0,0} List1
{0,0,0,0,0,0} List2
ViewWindow 1,126,1,1,64,1
For 1 A To 5
0 List 1[A]
0 List 2[A]
Next
0 A~Z
2 Q
F-Line 24,1,24,64
F-Line 50,1,50,64
F-Line 60,40,125,40
F-Line 60,50,125,50
F-Line 60,60,125,60
F-Line 59,40,59,60
F-Line 125,40,125,60
F-Line 108,40,108,60
Lbl 2
W ≥ 4.5 5 Z
Q=2 1 X
Q=1 2 X
X Q
Text 1,3,"PLR:"
Text 1,20,Q
P+J J
0.5+W W
For 1 X To 10
1 Mat B[1,X]
Next
1 Z
0 T
Lbl 1
(W+0.5)=6 Goto 5
Text 3,25,"      "     ' 6 espaços '
Text 8,28,"     "     ' 5 espaços '
Text 12,28,"    "     ' 4 espaços '
Mat B[1,1] = 1 Text 3,27,"º"
Mat B[1,2] = 1 Text 3,33,"º"
Mat B[1,3] = 1 Text 3,39,"º"
Mat B[1,4] = 1 Text 3,45,"º"
Mat B[1,5] = 1 Text 6,30,"º"
Mat B[1,6] = 1 Text 6,36,"º"
Mat B[1,7] = 1 Text 6,42,"º"
Mat B[1,8] = 1 Text 9,33,"º"
Mat B[1,9] = 1 Text 9,39,"º"
Mat B[1,10] = 1 Text 12,36,"º"
While Z=1
T+1 T
26 A
Do
A B
A=46 -5 C
A=26 5 C
A+C A
Text 58,A."º"
Text 58,B," "     ' 1 espaço '
LpWhile Getkey ≠ 31
A G
(A–26)/5+1 A
Int 2Ran#+1 B
Int 2Ran#+1 C
Int 2Ran#+1 D
0 V
For 1->U To 58 Step 15
Text 58–U,G,"º"
Text 58–V,G," "     ' 1 espaço '
U V
Next
Text 58–V,G," "     ' 1 espaço '
If A=1
Then 0 Mat B[1,1]
B=1 0 Mat B[1,2]
C=1 0 Mat B[1,5]
IfEnd
If A=2
Then 0 Mat B[1,5]
0 Mat B[1,2]
0 Mat B[1,8]
B=1 0 Mat B[1,1]
D=1 0 Mat B[1,6]
C=1 0 Mat B[1,10]
IfEnd
If A=3
Then 0 ->Mat B[1,10]
0 Mat B[1,6]
0 Mat B[1,8]
0 Mat B[1,9]
0 Mat B[1,2]
0 Mat B[1,3]
B=1 0 Mat B[1,5]
B=1 0 Mat B[1,1]
C=1 0 Mat B[1,7]
C=1 0 Mat B[1,4]
IfEnd
If A=4
Then 0 Mat B[1,9]
0 Mat B[1,7]
0 Mat B[1,3]
B=1 0 Mat B[1,4]
C=1 0 Mat B[1,6]
D=1 0 Mat B[1,10]
IfEnd
If A=5
Then 0 Mat B[1,4]
B=1 0 Mat B[1,3]
C=1 0 Mat B[1,7]
IfEnd
0 S
For 1 X To 10
Mat B[1,X]+S S
Next
S=0 And T=1 2 K
S=0 And T=2 1 K
S=0 2 T
10-S P
K=2 5+P P
K=1 2+P P
0 K
Q=1=>Text 9,61+10(Int W),P
Q=2=>Text 9,61+10(Int W)–10,P
Q=1=>P->List 1[Int (W+0.5)]
Q=2=>P->List 2[Int (W+0.5)]
0 r
0 θ
For 1 X To 5
Q=1 List 1[X]+r r
Q=2 List 2[X]+θ θ
Next
r H
Q=1 Text 9,112,U
Q=2 Text 19,112,U
T=2 Goto 2
Goto 1
WhileEnd
Lbl 5
If H<θ
Then Text 30,61,"1 WIN"
IfEnd
If H>θ
Then Text 49,61,"2 WIN"
IfEnd
If r=θ
Then Text 30,61,"EMPATE"
IfEnd
Text 39,61,"GAME OVER"
Stop

Instruções

Primeiro deverá criar a matriz B[1,10], preenchida com "1"s. Para isso no menu de matrizes deverá seleccionar a matriz D e depois inserir "1" <EXE> "10" <EXE> (1x10) e de seguida introduzir o valor "1" em todos os campos.

É necessário colocar "0" nas 5 primeiras posições da "List 1" e "List 2". Para isso no menu de listas deverá preencher as listas conforme indicado.

Use a tecla <EXE> para lançar a bola.