ADVENTURE TIME A Textual Adventure in 80's style



This is by fruit of my programming skills (remember i'm not a professional programmer but an hobbist) a Textual Adventure in 1980's style game for Apple II's machines.
You are landed in a lonley island... now is your turn.

You need Applewin to load it from the .dsk file.

TO DOWNLOAD THE DISK IMAGE CLICK HERE!

Here the source code explained:

1 HOME
2 SPEED = 150
10 PRINT "YOU ARE LANDED IN AN ISLAND ALONE, ALL AROUND YOU THERE ARE TREES, YOU CAN CHOOSE TO GO TO NORTH, SOUTH, WEST OR EAST"
20  INPUT A$
30 IF A$ = "NORTH" THEN PRINT "IN FRONT OF YOU THERE IS A BEACH WITH AN ABANDONED BOAT DO YOU WANT TO SAIL OVER THE SEA":INPUT B$
40 IF A$ =  "SOUTH" THEN PRINT "YOU ARE LOST INSIDE THE TREES":GOTO 160
50 IF A$ ="WEST" THEN PRINT "THERE IS A CAVE YOU ARE LOST INSIDE ":GOTO 160
60 IF A$ ="EAST" THEN PRINT "THERE IS AN ANGRY T-REX IN FRONT OF YOU READY TO EAT YOU, DO YOU WANT TO COMBAT" :INPUT C$
70 IF B$ = "YES" THEN PRINT "YOU SAIL TO AUSTRALIA YOU ARE SAFE AFTER A LONG VOYAGE":GOTO 160
80 IF B$ = "NO" THEN PRINT "YOU ARE LOST":GOTO 160
90 IF C$ = "YES" THEN PRINT "TELL ME A NUMBER TO BEAT THE T-REX":INPUT B
100 IF C$ = "NO" THEN PRINT "T-REX EAT YOU":GOTO 160
110 A =  INT (10 *  RND (1) )
120 PRINT "YOUR NUMBER IS",B
130 PRINT "T-REX NUMBER IS",A
140 IF  A = B THEN PRINT "YOU KILL THE T-REX AND GO TO BOAT TO AUSTRALIA AND YOU ARE SAFE"
150 IF A <> B THEN PRINT "YOU ARE KILLED BY T-REX"
160 END

Adventure Time is evolved to SNORK - AN ADVENTURE a non ZORK:

TO PLAY SNORK ONLINE CLICK HERE!

TO DOWNLOAD THE TEXTUAL SNORK ADVENTURE CLICK HERE!

Here The Source Code:
1 HOME
2 SPEED = 150
3 PRINT "WELCOME TO MY NEW TEXTUAL ADVENTURE BY MATTEO TREVISAN 2017 CALLED SNORK - AN ADVENTURE, TO NAVIGATE INSIDE THE ADVENTURE WRITE THE CARDINAL POINT IN  CAPITAL LETTER AND YES OR NO OR NUMBERS WHERE NEEDED"
4 PRINT " "
5 PRINT "HELLO, YOU ARE SNORK A SMALL BUT STRONG BEING, YOUR PLANET WAS DESTROYED BY A BIG METEORITE IN 2017. FORTUNATLEY YOU HAVE YOUR SPACESHIP READY TO GO AND NOW......"
10 PRINT "YOU ARE LANDED IN AN ISLAND ALONE, ALL AROUND YOU THERE ARE TREES, YOU CAN CHOOSE TO GO TO NORTH, SOUTH, WEST OR EAST"
20  INPUT A$
30 IF A$ = "NORTH" THEN PRINT "IN FRONT OF YOU THERE IS A BEACH WITH AN ABANDONED BOAT DO YOU WANT TO SAIL OVER THE SEA":INPUT B$
40 IF A$ =  "SOUTH" THEN PRINT "YOU ARE LOST INSIDE THE TREES":GOTO 160
50 IF A$ ="WEST" THEN PRINT "THERE IS A CAVE YOU ARE LOST INSIDE DO YOU WANT TO OPEN A FIRE ":INPUT D$
60 IF A$ ="EAST" THEN PRINT "THERE IS AN ANGRY T-REX IN FRONT OF YOU READY TO EAT YOU, DO YOU WANT TO COMBAT" :INPUT C$
70 IF B$ = "YES" THEN PRINT "YOU SAIL TO AUSTRALIA YOU ARE SAFE AFTER A LONG VOYAGE":GOTO 160
80 IF B$ = "NO" THEN PRINT "YOU ARE LOST, THE CLIMATE CHANGES AS SOON AS POSSIBLE A TORNADO KILLS YOU":GOTO 160
90 IF C$ = "NO" THEN PRINT "T-REX EAT YOU":GOTO 160
91 IF C$ = "YES" THEN PRINT "TELL ME A NUMBER TO BEAT THE T-REX":GOTO 94
92 IF D$ = "NO" THEN PRINT "YOU ARE LOST IN THE BLACK CAVE A T-REX SMELLS AND KILLS YOU":GOTO 160
93 IF D$ = "YES" THEN PRINT "YOU ARE SAFE FOR NOW IN YOUR CAVE WITH A WORM FIRE DO YOU WANT TO GO TO NORTH, SOUTH, WEST  OR EAST": GOTO 20
94 INPUT B
110 A =  INT (100 *  RND (1) )
120 PRINT "YOUR NUMBER IS",B
130 PRINT "T-REX NUMBER IS",A
140 IF  A < B THEN PRINT "YOU KILL THE T-REX AND GO TO BOAT TO AUSTRALIA AND YOU ARE SAFE"
150 IF A > B THEN PRINT "YOU ARE KILLED BY T-REX":GOTO 160
151 IF A = B THEN PRINT "THE T-REX BLOCK YOUR KICK, TRY AGAIN":GOTO 94
160 END


ENJOY!

No comments:

Post a Comment