File:3-D-labyrinth.zip
From Zak
3-D-labyrinth.zip (file size: 8 KB, MIME type: application/zip)
Warning: This file type may contain malicious code.
By executing it, your system may be compromised.
3-D Labyrinth (3-D Labyrintti)
File Summary
File | 3-D Labyrinth | |
Version | 1 | |
File size | 8 KB | |
Release date | September | |
Release year | 1986 | |
Type | Video game | |
Platform | Commodore 64 | |
Requirements | ||
License | [[:Finnish games:|]] |
Game Summary
Developer | Tommi Timonen | |
Publisher | MikroBitti | |
Original release date | ||
Original release year | [[:Finnish games:|]] | |
Genre | Puzzle | |
Subgenre | Labyrinth | |
Series | [[:Finnish games:|]] | |
Article | 3-D Labyrinth | |
Website | {{{Website}}} |
README
3-D Labyrintti (3-D Labyrinth) ================ [Commodore 64] Programmer: Tommi Timonen Published: MikroBITTI (September 9/86) Language: Finnish Three-dimensional labyrinth is a game where the goal is to get out of the labyrinth as fast as possible. You also have a map at your disposal, but you can’t see where your current location on it. Instead, there is a blinking arrow showing where the exit is. As you move through the labyrinth, you see everything in three dimensions. The game is controlled either by buttons (forward = space bar, left = Z, right= /, to view the map = Return, to quit the game = L) or with Joystick port 2 (map = Fire, L = to quit the game). The exit is marked as a black area on the labyrinth wall. Important: it’s only visible when viewed from front. The game has 10 levels of difficulty, 0 = easiest, 9 = the most difficult. The program randomly selects a different labyrinth each time depending on the level of difficulty. --------------------------------------------------------------- OHJEET (Instructions in Finnish) --------------------------------------------------------------- Kolmiulotteinen labyrintti on peli, jossa on tarkoituksena päästä ulos labyrintistä mahdollisimman nopeasti. Käytettävissä on myös labyrintin kartta. Kartasta ei kuitenkaan näe omaa sijaintiaan. (Kartassa oleva vilkkuva nuoli osoittaa ulospääsy- tien.) Labyrintissä kulkiessaan näkee labyrinttinäkymän kolmiulottei- sena. Peliä ohjataan joko näppäimillä (eteenpäin = välilyönti, vasemmalle = Z, oikealle = /, kartan saa return-näppäimestä ja luovutus = L) tai joystickilla portissa 2 (kartta = fire, luovutus L-näppäimestä.) Ulospääsytie näkyy labyrintin seinässä mustana kohtana. Huom. Se näkyy vain suoraan edestäpäin katsot- tuna. Pelissä on kymmenen vaikeusastetta, 0 = helpoin, 9 = vaikein. Ohjelma arpoo joka kerta erilaisen labyrintin, jonka koko riippuu vaikeusasteesta. Ohjelman rakenne ---------------- 1000-1290 Alkutekstit. 1300-1510 Labyrintin arpominen. Labyrintti arvotaan konekie- lisessä aliohjelmassa. 2000-8090 Piirretään labyrintin näkymä kolmiulotteisena kuva- ruutuun, käytetään konekielistä aliohjelmaa. 9000-9100 Ohjaus näppäimillä tai joystickillä. 10000-10040 Piirretään kartta kuvaruutuun, käytetään konekie- listä aliohjelmaa. 11000-11070 Pelaaja on päässyt pois labyrintistä. 12000-12040 Luovutus. 49152-52896 Konekielinen ohjelma data-riveillä. 60000-60210 Luetaan konekielinen ohjelma muistiin. --------------------------------------------------------------- HUOMIOT (Notes) --------------------------------------------------------------- Ohjelmalistauksen erikoismerkit ovat muodossa {clear}, {blue}, jne. ja voidaan muuntaa takaisin esimerkiksi C64List-ohjelmalla: http://www.commodoreserver.com/Downloads.asp The special characters in the program listings are {clear}, {blue}, etc. and can be converted back with – for example – C64List program: http://www.commodoreserver.com/Downloads.asp --------------------------------------------------------------- OHJELMALISTAUS (Program Listing) --------------------------------------------------------------- 5 REM TT 19/06/85 10 POKE53280,6:POKE53281,6:PRINT"{clear}{$8e}{$08}" 20 DIMK$(24) 1000 PRINT"{clear}{down:8} ODOTA!" 1200 GOSUB60000 1205 PRINT"{clear}{white}":POKE53281,6 1210 PRINT"{down:2}{right:3}ETEENPAIN = VALILYONTI" 1220 PRINT"{down}{right:3}VASEMMALLE = Z" 1230 PRINT"{down}{right:3}OIKEALLE = /" 1240 PRINT"{down}{right:3}KARTTA = RETURN" 1250 PRINT"{down}{right:3}LUOVUTUS = L" 1260 PRINT"{down:3}{right:3}ANNA VAIKEUSASTE (0-9)" 1270 GETA$:IFA$<"0"ORA$>"9"THEN1270 1280 PRINT"{up}{right:3}VAIKEUSASTE = "A$" " 1290 PRINT"{down}{right:3}ODOTA..." 1300 V=VAL(A$) 1310 POKE680,2*INT(3.5+1.777*V):POKE681,6+2*V 1320 SYS49552 1400 X=INT(RND(1)*PEEK(680)):Y=INT(RND(1)*PEEK(681)) 1410 IFPEEK(50176+X+40*Y)<>160THEN1400 1420 S=INT(RND(1)*4) 1430 SX(1)=1:SX(3)=-1:SY(0)=-1:SY(2)=1 1500 TI$="000000" 1510 PRINT"{blue}{clear}" 2000 P=50055+X+40*Y 2010 POKE53265,11 2020 H=INT(P/256):POKE251,P-256*H:POKE252,H:POKE690,S:SYS49758 2030 K3=PEEK(685) 8000 PRINT"{home}{rvrs on}{blue}{down:15}{right}"MID$(TI$,3,2)":"RIGHT$(TI$,2) 8001 POKE53265,27 8005 IFS>0ORX>0THEN9000 8010 IFY=2ANDK3=0THENPRINT"{home}{right:19}{down:11}{black}{rvrs on} {down}{left:2} " 8020 IFY<>1THEN8050 8030 PRINT"{home}{right:15}{down:7}{rvrs on}{black}"; 8040 FORA=1TO10:PRINT" {down}{left:10}";:NEXT 8050 IFY>0THEN9000 8060 PRINT"{home}{black}{rvrs on}{down}"; 8070 FORA=1TO22:PRINT"{right:9} {right:9}";:NEXT 8090 GOTO11000 9000 GETA$:IFA$<>""ANDPEEK(197)=64THEN9000 9001 A=NOT(PEEK(56320)AND31) 9005 PRINT"{home}{rvrs on}{blue}{down:15}{right}"MID$(TI$,3,2)":"RIGHT$(TI$,2) 9010 IF(A$=" "OR(AAND1))ANDK3=0THENX=X+SX(S):Y=Y+SY(S):GOTO2000 9020 IFA$="Z"OR(AAND4)THENS=(S-1)AND3:GOTO2000 9030 IFA$="/"OR(AAND8)THENS=(S+1)AND3:GOTO2000 9040 IFA$=CHR$(13)OR(AAND16)THEN10000 9050 IFA$="L"THEN12000 9100 GOTO9000 10000 PRINT"{white}{clear}":POKE53281,6:SYS49684:FORB=0TO5 10010 POKE1024,158:FORA=0TO500:NEXT 10020 POKE1024,160:FORA=0TO500:NEXT 10030 NEXT 10040 GOTO1510 11000 R$="{rvrs on}{black}" 11005 PRINT"{home}"R$"{right:14}{down:5}HALUATKO" 11010 PRINTR$"{down}{right:14}PELATA" 11020 PRINTR$"{down}{right:14}UUDELLEEN?" 11030 PRINTR$"{down}{right:16}(K/E)" 11040 GETA$:IFA$="K"THENRUN1205 11050 IFA$<>"E"THEN11040 11060 PRINT"{clear}" 11070 END 12000 PRINT"{white}{clear}":POKE53281,6:SYS49684 12010 POKE1024,158 12020 POKE1024+X+40*Y,170 12030 GETA$:IFA$=""THEN12030 12040 PRINT"{clear}":R$="{white}":GOTO11005 49152 DATAV=9VCE4T@,VX2P9CP3/,8T004LHOF,>EJ21N>FA,>KT5LH>LK,02>2BLHCM,6@9OKONBR0 49194 DATAG/W?@96/2,D/EIN;D/B,;J6M?0@08,;L9M<=2BL,JBT0@HVLW,@EHIRB6/2,D@J3ME@DQ1 49236 DATAD</IPLD/B,IPKECD0?Q,00P;L;M<G,P2C@08D/F,>O?000045,?6@045?06,2BLI9V6<>0 49278 DATAD/EIN;D/B,I7SD<RI;?,D<S50WM9R,OV<4XM11F,OLE4XDMBQ,?0V@G618G,?2E?2EB=56 49320 DATAI9VN2CON@,>IB?8O?8O,AM604L000,000000000,2BLS5P>L1,000069001,0690000@E0 49362 DATA@940@F17P,VCD0GQ4UK,NSW11FV=/,@G6U<?OPK,I5@N68TI8,NU00N2V=/,RSCM/I6>L5 49404 DATAN09EXNI/H,8EM@;B0NR,EWVSO700P,IRUF7;IS=,F3FI4VL77,M>MVO8NMF,D?53Q1V;L8 49446 DATAV<CVOX?@9,D@H50WM9R,HC6OUEVIN,?@9D@GI;?,3Q2VAVVBM,00PK2SNN5,OOJJW@6?V0 49488 DATANI@OKO>IB,HC6OUE16R,U3Q??0?0V,?3;17P?=A,?DB0;=;IT,M>U0/?03U,03NGA8NI17 49530 DATA03NGA/NUE,OPI>O<000,000000000,0000009O@,IRUD/BIT?,D/B50VM9R,3NGOTB?067 49572 DATAP3;09ODF>,HABIN9OUT,ON5NCM?20,565OVSON5,H?MORWON5,NC=OVSON5,H?AOSVON52 49614 DATANC1?200T<,OVSTHVS1K,S79I;?N67,ON?S5HS7/,I;@N68ON@,>MG000IQF,F46S3DI;A9 49656 DATANO8JQ2;K5,ME?03U4WV,03NGA4N02,03NGA6N<F,OPI>O<03U,04EGA40HX,04EGA50O99 49698 DATA04EGA60UC,04EGA712M,OPI>O0<PD,H8B<K9H=M,<EWHBX<@L,HH/BT;B4K,BO0B9VBIN1 49740 DATAB?8HX2<0T,HRP<66HME,<;AHH/<@L,03WK8IL77,MGF0?MK2;,NO6OOJIN<,6LN0/?IEG9 49782 DATAHX2NBRNGK,SBC1Q6R?W,4SAD<X?XD,VBMV>R0AG,VE303UV=F,12=/R4;KM,MILVCDI709 49824 DATA;4LIPGEC@,0@F0/?54D,IS<D@DHE6,D4;IT?H?Q,F4=DS<2@>,V1QHC6V<O,2E9I;?3PX1 49866 DATA66=V<C0@0,VE3R9FR3C,HC64QCNFE,DM>V3?3HG,1<S4T@VX2,D4X2S54WG,4TH4TH4TH8 49908 DATA4TH4TH4TH,4TH4TH4TH,4TH4THF/@,J>80@J0U3,SGWHBCJ>?,0@Q0U3R2E,KW3J>?0@M8 49950 DATA1K<A083<1,1BVDM;V3?,IRBSJ5SOP,0U3A081<@,J><0@J0U3,;QU1<@J><,0@PSOPTL/5 49992 DATAIN>EF40IN,K2@TFHIN>,EE<0INIXL,O920@M1QF,@I70@MIPT,NI3OKOHL1,H?23K2TG=3 50034 DATAHQN4T>MIF,IBDGUMNO;,UARK2@O92,0@M1QF@I7,0@MJSHNI3,OKOHL1H?2,3KITG=HQN0 50076 DATA4T>MIFI60,GUMNO;UAR,JBATFH>IB,CL=051000,000000000,000000000,OLE4XGNV<3 52224 DATA03UV=F/R4,NFW1P?UH3,4CA4AP4AP,4WV4TH4TH,4TH4TH00P,4TH4TH4TH,4TH4TH4FE6 52266 DATA4AP4AP000,JU6OKPHL/,H?B3K>TG=,511MIF4TH,4TH4TH4TH,4TH00PR/<,OL<TL6INS2 52308 DATAD;<IT>D?A,HQKH?B3K>,TG=511O2O,V>2R/<OL<,50KMIF4Q5,J>80@I3JC,0/81C44T@4 52350 DATAVX2D4XO=N,O9AO9AO9A,O9AO9AJ>8,0@P3JC10A,3U04T@VX2,D4XOCXOBP,OBPOBPOBP9 52392 DATAOBPJ>80@L,IS9TFHJ>=,0@H36W16K,29=4T@VX2,1I@D4XJ08,GUMNO;UH3,J<7O920@P9 52434 DATA0U3JNUOKP,HL0H?83KC,TG=HQN4T2,MIF2LF03R,OPKJD80@H,2AEIRBOKP,H?;IN?G?17 52476 DATA0O1OO2JD<,0@O2AEJU6,OKPH?;IN?,G?10OAOO2,JD<0@L1QF,1I>A08VOL,DM;V824V67 52518 DATAMIFGC0J>8,0@H3OV235,2?G4T@VX2,D4X4XF4TH,4THS=H2MI,T2J6?S235,2R<4T@VX24 52560 DATAD4XIRW2HV,H05IR24TH,GUMH05IR2,4TH2HVH05,H05IR24TH,4THJ>80@O,3OV23535P1 52602 DATA4T@VX2D4X,4XF4TH4TH,S=H2MIT2J,5V523535P,4T@VX2D4X,4XF2MHH05,4TH2MHH052 52644 DATA4WJ4TH2MH,H05H054TH,4TH05BD4X,4R<03GIL8,TFHHKXH?8,3K9TG=511,MIF2M62M66 52686 DATA2M6050JNU,TFHHKXH?;,3K?TG=511,MIFF8@F8@,F8@051J5V,O920@H0U3,IEWOKPINA0 52728 DATAEEU0T6TVC,J>=0@KJOL,TFHJ>=0@N,1>1?COO<B,ECE0U8IEW,TFHJ>G0@H,1JEA080LT1 52770 DATAH6;DM<V82,JHKTFHJ>G,0@O1JEA08,0LTI2NDM<,V82J5VTFH,INBEF40S8,I2B>IF29F5 52812 DATAU3MHPQJB4,0@G0B>SGP,U3NIN>ECN,Q7THBXJHK,TFHHKGEO3,0U7IEWTFH,IN>EE;0T78 52854 DATAJHKTFHIN>,EE<0T84V6,MIF2R6J>8,0@I4L@2L4,1C44T@VX2,D4X4XF4TH,4TH4TH4TH9 52896 DATA4THS=H3J3,S6744823<,V<CO6TVBM,2L41C44T@,VX200PS63,SCM3J3TKI,7>G04X0007 60000 IFPEEK(52933)=48ANDPEEK(52934)=204THENRETURN 60010 FORR=0TO22:GOSUB60100:NEXT 60020 FORR=0TO16:GOSUB60100:NEXT 60030 RETURN 60100 S=0:FORB=0TO6:READA$:FORE=0TO2 60110 L=0:GOSUB60200 60120 GOSUB60200 60130 GOSUB60200:S=S+L 60140 D=PEEK(63)+PEEK(64)*256+6*B+2*E 60150 H=INT(L/256):L=L-256*H 60160 POKED,L:POKED+1,H 60170 NEXT:NEXT:S=S-10*INT(S/10) 60180 IFS<>ASC(A$)-48THENPRINT"VIRHE RIVILLA:"PEEK(63)+PEEK(64)*256:END 60200 C=ASC(A$)-48:A$=MID$(A$,2):IFC=-1THENC=10 60210 L=L*41+C:RETURN --------------------------------------------------------------- https://zak.fi/ July 20, 2015 ---------------------------------------------------------------
See also
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Dimensions | User | Comment | |
---|---|---|---|---|
current | 11:33, 20 July 2015 | (8 KB) | Admin (Talk | contribs) |
- You cannot overwrite this file.
File usage
There are no pages that link to this file.