These forums are now closed Forum Index These forums are now closed
Please see the new forums
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

Basic Game - Labyrinth

 
Post new topic   Reply to topic    These forums are now closed Forum Index -> Software
View previous topic :: View next topic  
Author Message
AndyC



Joined: 03 Jan 2009
Posts: 8

PostPosted: May Sun 17, 2009 9:30 am    Post subject: Basic Game - Labyrinth Reply with quote

Hi,

Ported this to try out my new Replica 1Smile It's a very simple fantasy game that actually involves no skill at all. It used to make me laugh when i was 12 though...

Code:
LOMEM=1024
HIMEM=8192
10 REM LABYRINTH
15 REM DRAGON 32 VERSION BY CLIVE GIFFORD 1983
17 REM CONVERTED TO APPLE 1 BY A COLEMAN 2009
20 PRINT "       *LABYRINTH*"
30 PRINT
40 X=0
50 S=30
60 K=4
70 W=1
75 DIM E$(20):DIM F$(20)
80 PRINT "YOU ARE AT THE START OF A"
90 PRINT "LABYRINTH OF MANY TWISTING"
100 PRINT "TURNING TUNNELS, YOU HAVE"
110 PRINT "A SACK HOLDING 30 PIECES OF"
120 PRINT "SILVER. YOU MUST GET TO"
130 PRINT "THE END OF THE LABYRINTH WITH"
140 PRINT "AT LEAST 20 TO PAY THE"
150 PRINT "FEARSOME MINOTAUR."
160 PRINT
170 PRINT "PRESS ENTER"
180 INPUT A$
190 IF A$#"" THEN END
210 IF W<1 THEN W=1
220 PRINT "THIS IS MAZE/TUNNEL"
230 PRINT
240 PRINT "NUMBER ";W;" OF THE LABYRINTH"
250 PRINT
260 IF W>=10 THEN GOTO 1090
270 PRINT "(10 IS THE END)"
280 PRINT
290 X=X+1
300 PRINT "THIS IS CHALLENGE NUMBER ";X
310 IF S<1 THEN S=3
320 PRINT
330 PRINT "YOU HAVE ";S;" SILVER PIECES"
340 REM
350 REM
360 PRINT
370 PRINT "FACING YOU NOW ARE ";K;" DOORS"
380 PRINT "WHICH ONE WILL YOU TRY?"
390 INPUT A
400 REM
410 REM
420 REM
430 IF A=(RND(K)+1) THEN GOTO 710
440 K=RND(4)+1
450 IF K=1 THEN E$="RODENTING RAT"
460 IF K=2 THEN E$="WART-FACED WOGGLE"
470 IF K=3 THEN E$="ELLIPSOID OCTOPUS"
480 IF K=4 THEN E$="WACKED-OUT WIZARD"
490 PRINT "FOOL, YOU'VE WALKED IN ON A"
500 E=RND(4)+1
510 IF E=1 THEN F$="SYNTAX ERROR"
520 IF E=2 THEN F$="VIC 20"
530 IF E=3 THEN F$="JOYSTICK"
540 IF E=4 THEN F$="GOSUB-MACHINE GUN"
550 PRINT "    ";E$;" ARMED"
560 PRINT "   WITH A ";F$
570 PRINT
580 PRINT "WHICH WEAPON DO YOU CHOOSE?"
590 PRINT
600 PRINT "A FLOATING POINT ROM (1),"
610 PRINT
620 PRINT "A FOR/NEXT LOOP (2),"
630 PRINT
640 PRINT "OR A POKED ADDRESS (3)?"
650 INPUT B
660 C=RND(3)+1
670 REM
680 IF B=C THEN GOSUB 1200
690 IF B#C THEN GOSUB 1270
700 GOTO 160
710 K=RND(4)+1
720 IF K=1 THEN GOSUB 780
730 IF K=2 THEN GOSUB 830
740 IF K=3 THEN GOSUB 870
750 IF K=4 THEN GOSUB 920
760 GOTO 160
770 PRINT
780 PRINT "YOU'VE FALLEN THROUGH"
790 PRINT "A TRAPDOOR..."
800 W=W-1
810 S=S-(RND(2)+1)
820 RETURN
830 PRINT "A WALL OF FLAMES ENGULFS YOU"
840 W=W-1
850 S=S-(RND(2)+1)
860 RETURN
870 PRINT "THE LOVELY PRINCESS SEMOLINA"
880 PRINT "SOOTHES YOUR FEVERED BROW"
890 S=S+(RND(5)+1)
900 W=W+(RND(3)+1)
910 RETURN
920 PRINT "JOY OH JOY. A HOARD OF"
930 PRINT "SILVER. CHOOSE UP TO 5 PIECES"
940 PRINT "BUT BE WARNED. THE MORE"
950 PRINT "YOU TAKE, THE MORE IT WILL"
960 PRINT "COST YOU. HOW  MANY?"
970 INPUT D: IF D>5 THEN GOTO 970
980 S=S+D
990 W=W-(D/2)
1000 RETURN
1010 REM
1020 REM
1030 REM
1040 REM
1050 REM
1060 REM
1070 RETURN
1080 IF W<10 THEN RETURN
1090 PRINT "YOU ARE AT THE END"
1100 PRINT "DO YOU HAVE ENOUGH SILVER?"
1110 PRINT "PRESS ENTER TO FIND OUT"
1120 INPUT C$
1130 IF S<20 THEN PRINT "THE MINOTAUR HAS EATEN YOU"
1140 IF S<20 THEN GOTO 1130
1150 PRINT "YES, YOU HAVE ";S;" SILVER"
1160 PRINT "PIECES. YOU HAVE WON."
1170 REM
1180 GOTO 1150
1190 END
1200 PRINT "YOU BEAT THE ";E$
1210 S=S+(RND(3)+1)
1220 PRINT AND HAVE ";S;" SILVER PIECES"
1230 W=W+(RND(4)+1)
1240 PRINT
1250 PRINT "YOU ARE APPROACHING SECTOR ";W
1260 RETURN
1270 PRINT "THE ";E$;" BEAT YOU,"
1280 S=S-(RND(4)+1)
1290 REM
1300 PRINT "LEFT YOU WITH ";S;" SILVER PIECES"
1310 W=W-1
1320 IF W<1 THEN W=1
1330 PRINT "AND SENT YOU BACK TO ";W
1340 RETURN
RUN


Kind Regards, Andy.
http://vectrex.playntradeonline.com - Home of the 72 in 1 Vectrex Multicart
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    These forums are now closed Forum Index -> Software All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group