So, das spiel heißt „Dodger“
Einfach in den Editor das Zeugs rein hämmern:
(jeder dieser ? sollte ein -> Pfeil sein)
File6
Norm
0?L
1,5 ? Q LBL3
Clr Text
„ „
„ „
Isz L
Locate 1,1,“level:“
Locate 7,1,L (und hier dann das kleine Dreieckige ausgabezeichen) „ „
„ „
„ „
„ „
„ „
„ „
„ „
0 ? J
10 ? A
1 ? B~H
LBL1
Isz J
J=50 =>Goto 3
G?H
F?G
E?F
D?E
C?d
B?C
Int 19 ran #+1?B
Locate B,7,“=<==>"
Locate 1,2,Int(100-(9J/500*100))
“ “
Get Key=38 =>A-1?A
Get Key=27 => A+1?A
If get key=28
Then locate 8,1,”paused”
While get key (hier das ungleichzeihen) 31
While end
If end
A<1 => 1?A
A>21 => 21?A
Locate A,1,”Y”
A=G or A=G+1 or A=G+2 => goto 2
Goto 1
LBL2
Locate A,1,”*”
Locate A,2,”You are”
Locate A,3,”Dead”
(75L)+J?S
Clr Text
Locate 1,6,”Your Score:”
Locate 12,6,S
Dim List 6?V
Locate 1,S,”High Score:”
S?List 6 [(Dim List 6)-1]
Sort A(List 6)
Dim List 6?X
List 6 [X]?S
Locate 12,S,List 6 [V] (wieder das dreieckige Ausgabezeichen) File1
So, ich hoffe, du kommst damit klar