∞ Worms ∞

AxesOff
0 A~Z
Deg
"WORMS"
ClrText
ViewWindow 1, 126, 0, 1, 63, 0
Lbl 9
Cls
Int 38Ran# + 20 A
Int 38Ran# + 20 B
B Z
Lbl 0
Cls
F-Line 1, 1, 1, 63
F-Line 1, 63, 95, 63
F-Line 95, 63, 95, 1
F-Line 95, 1, 1, 1
F-Line 78, B – 2, 80, B – 2
F-Line 80, B – 2, 80, B – 4
F-Line 80, B – 4, 78, B – 4
F-Line 78, B – 4, 78, B – 6
F-Line 78, B – 6, 80, B – 6
F-Line 11, A – 2, 11, A – 6
Plot 10, A – 3
Plot 10, A – 6
Plot 12, A – 6
Plot 10, A
Plot 12, A
Line
F-Line 10, A + 1, 12, A + 1
Plot 13, A + 2
Plot 14, A + 3
F-Line 80, B, 78, B
F-Line 80, B + 1, 78, B + 1
Plot 77, B + 2
Plot 76, B + 3
F-Line 1, 45, 3, 30
F-Line 3, 30, 5, 60
F-Line 5, 60, 8, A
F-Line 95, 35, 92, 25
F-Line 92, 25, 87, 45
F-Line 87, 45, 85, 60
F-Line 85, 60, 82, B
F-Line 14, A – 1, 30, 10
F-Line 30, 10, 37, 10
F-Line 37, 10, 45, 40
F-Line 45, 40, 47, 25
F-Line 47, 25, 49, 40
F-Line 49, 40, 57, 10
F-Line 57, 10, 64, 10
F-Line 64, 10, 76, B – 1
U = 1 Goto 5
"PRIMEIRO JOGADOR"
"PARAMETRO DE TIRO"? I
ClrText
Green Text 5, 115, 1
Green Text 15, 110, I
1 U
14 E
Lbl 2
Orange Plot E, A + 9 – (25 / I x 1.5)((E – 30) / 10)^2 + 3.5ln (E – 13)
E + 2.2 E
E > 85 Goto 0          
Y < 1 Goto 0
X ≥ 76 X ≤ 83 Y ≥ B – 3 Y ≤ B + 4 Goto 4
X ≤ 52 X ≥ 43 Y ≤ 40 Goto 0
Goto 2
Lbl 5
F-Line 78, B – 6, 80, B – 6
" "          ' 1 espaço '
"SEGUNDO JOGADOR"
"PARAMETRO DE TIRO"? I
0U
ClrText
Green Text 35, 115, 2
Green Text 45, 110, I
14 F
76 E
Lbl 6
Orange Plot E, Z + 9 – (25 / I x 1.5)((F – 30) / 10)^2 + 3.5ln (F – 13)
F + 2.2 F
E – 2.2 E
E < 9 Goto 0
Y < 12 Goto 0
X ≤ 15 X ≥ 8 Y ≥ A – 3 Y ≤ A + 4 Goto 4
X ≤ 52 X ≥ 43 Y ≤ 40 Goto 0
Goto 6
Lbl 4
X M
Y N
0 P
Lbl 7
F-Line M, N, M + cos P x 10, N + sin P x 10
P + 20 P
P ≤ 360 Goto 7
U = 1 Isz H
U = 0 Isz G
"PRIMEIRO JOGADOR:"
H
"SEGUNDO JOGADOR:"
G
Goto 9

Instruções

Use a tecla <EXE> para seleccionar os valores pretendidos. Para jogar deve introduzir os parâmetros pedidos.