Developing a new Apple II Game

1 post / 0 new
Toolkitman's picture
Offline
Last seen: 9 months 1 week ago
Joined: Nov 21 2010 - 15:30
Posts: 249
Developing a new Apple II Game

Hello Applefritterz,
I'm developing by 2 days a new Apple IIe game (tested in the Applewin emulator). It consistes about a game to find the right letter losing in a word. There are more levels and you reach points
every words found.

Here you can check the code it's early stage and if you want to contribute to develop it you are welcome, i'm only an homebrew developer not a professional so any Apple // pro programmer is welcome!

1 HOME
2 SPEED = 50
3 PRINT "****************************************":PRINT "":PRINT "":PRINT " FIND THE WORDS":PRINT " 2019 GAME":PRINT " BY MATTEO TREVISAN":PRINT "****************************************"
10 HOME
20 SPEED = 100
30 PRINT "CA": INPUT A$:IF A$ = "R" THEN PRINT "CAR! GOT 10 POINTS":GOTO 60
40 IF A$ < > "R" THEN GOTO 10
60 HOME
70 PRINT "DO": INPUT B$:IF B$ = "G" THEN PRINT "DOG! GOT 20 POINTS":GOTO 100
80 IF B$ < > "G" THEN GOTO 60
100 HOME
110 PRINT "LEVEL 2 - 2 WORDS"
115 HOME
120 PRINT "BA": INPUT C$:IF C$ = "BY" THEN PRINT "BABY! GOT 30 POINTS":GOTO 150
130 IF C$ < > "BY" THEN GOTO 115
150 HOME
160 PRINT "CA": INPUT D$:IF D$ = "VE" THEN PRINT "CAVE! GOT 40 POINTS":GOTO 190
170 IF D$ < > "VE" THEN GOTO 150
190 HOME
200 PRINT "LEVEL 3 - 3 WORDS"
210 HOME
220 PRINT "SER":INPUT E$:IF E$ = "VER" THEN PRINT "SERVER! GOT 50 POINTS":GOTO 250
230 IF E$ <> "VER" THEN GOTO 210
250 HOME
260 PRINT "LICE":INPUT F$:IF F$ = "NCE" THEN PRINT "LICENCE! GOT 60 POINTS":GOTO 290
270 IF F$ < > "NCE" THEN GOTO 250
290 HOME
300 PRINT "LEVEL 4 - 4 WORDS"
310 HOME
320 PRINT "CIGARE":INPUT G$:IF G$ = "TTES" THEN PRINT "CIGARETTES! GOT 70 POINTS":GOTO 350
330 IF G$ < > "TTES" THEN GOTO 310
350 HOME
360 PRINT "DICTIONA":INPUT H$:IF H$ = "RIES" THEN PRINT "DICTIONARIES! GOT 80 POINTS":GOTO 390
370 IF H$ < > "RIES" THEN GOTO 350
390 HOME
400 PRINT "LEVEL 5 - 5 WORDS"
410 HOME
420 PRINT "MAG":INPUT I$:IF I$ = "AZINE" THEN PRINT "MAGAZINE! GOT 90 POINTS":GOTO 450
430 IF I$ < > "AZINE" THEN GOTO 410
450 HOME
460 PRINT "NEWS":INPUT L$:IF L$ = "PAPER" THEN PRINT "NEWSPAPER! GOT 100 POINTS":GOTO 490
470 IF L$ < > "PAPER" THEN GOTO 450
490 PRINT "YOU GOT A TOTAL OF 100 POINTS, COMPLETED ALL WORDS! YOU ARE THE KING OF THE WORDS ANAGRAM!!!!!"

Here the link to play in MAME