| DH-Shooter | Outro labirinto 3D também publicado na revista MSX Fan. Esse é mais refinado do que o anterior (que roda em qualquer MSX), e tem monstros e disparos no labirinto. Roda somente nos MSX turboR! Baixe o disco 27 da MSX Fan com
o DH-Shooter daqui: |
Imagem original do site Rashell's
Novel Room
| Labyrinth 3D |
Source code publicado na revista MSX Fan de novembro de 1990, com uma rotina 3D para jogos à la Wolfenstein/Doom, com rotação fina, e não de 90 em 90 graus como nos labirintos comuns de MSX. Adriano Camargo gentilmente digitou o código! 3D engine source code with smooth 3D rotation. |
| Source | 100
'3AF8F7E60F287E3DIOII20ICA560121001811ID0MI031A13FE02DEM87GGCD4DL230B79B020EEC921OD001I037D07GGADE6OF60277230B78B12 110 '0F0C92108SCD4A004FCB3FE60F4779JE0B0KPPJMDEY4DY237CFE0420E40603C521B1Y783D0FG5F16Y0150ICD5CIC110ECYA9Y11N20U08JC3UI 120 'AF32C5D5CDB7M300721FFG22F8F7C9RD9I2AC0XPD8ILC2ILDAI21C4IFE02380CJ05300434G18J28R35G3AYYCDC2C9ED53CCMPPIC6ZRRRRRCEO 130 '21C5IUC7IF6EA3C28087EFE05K1F34181CVVVVHVQVVVFBK0F35V0CNB7MRQ80380334Q01T3AC5D5TT3CTTT1F2AC0PED5BCCJTK5222PLSC2INSC 140 'EJSKSSPL3C20E31819XC0NSXCCJNVNJQYIQQCEJQQNJ3D20E7CDJCA3AAFOFEOL73CBK0A302521C5R7E3CO03D42CVML8038NQ18013DED44772AD 150 '8D522C0ILDAILC2ICDWCAI73CBI7BC9C389C8XF8F77DP94P6F301F7CMMM67M182100G22ZZF1QD6013809CB5FC8I57IE6F9S3E99I22F8F7EB7A 160 '21F11ACDB0Q7B470FGGGOB9O78E6LC630N4D0023P218BCBG67F5UU4F06S50095EF1C8AFS6FED52EBC9M32C6D50E03C5793DCDM00473ARKB0VJ 170 'JC10602WWW200DCB40J093ERQCD4101X1807S80GOD8002F21C7D50FGGS16X10DC0D20C83AC6T06034ET19HH3FI79TD8ZF5L1804C9E5219BMAF 180 '060E5E23CD93003CYF8E1WVMD31101IHBF023620EDB03AC4D5C608CDC2C9P53C8ORRIPPPPPCAMM48CB21B0LL87PYYLC618NC2C9ED53C8ORRIR 190 '10RRRRRCAOM48CB21AFL11E0FFD90EY060A3AD7Q263407X14IIIE6Y6FTSG0FGGO1FB5P7EFE01CAF8HD987GG7719LC5ED5BQD5CDJCBMICEMTE5 200 'LLC8LSJSMICCMS444DD1F1F5PLC60B2AD4S0922JJMD6IZMJJ3DC2D7CAC110A3D93620TIII3E14C30FCBK0A905F87ED44C61657D5D9C1787119 210 '10FCSSSSC83611PD602C20FCB01C0L09K65CA24J23C325J2BD92AD0D5ED5BC8J1922NJID4ITD2ITTCAJTQNJID6I0DC28DRD9C9ZC0ORD0IID4I 220 'OUILD2IID6IYC52100G3E109107GG0604I300119CB2AH1BUF6C1C92120G228FD5IAEIIB0IR00D311I1801C002C35CMGN30475A6A767D80HJLN 230 'PRTN02H04H0809I10GG000DH575161A1GG21GOSHGG02HGM40IG04H20H82O0108K44KI1245944825ZL8466A91B5588D56BSF56FBA53FD57JEFF 240 'FBBHD7FEEBBFF6LGDFHVHGG2904928940I44A20020O51JJ0984\ AUG.16 1990 KOMEYA 250 'INITIATION *********************** 260 CLEAR99,&HC7FF:DEFINTA-Z:COLOR15,1,1:SCREEN1,2,RND(-TIME):WIDTH32:KEYOFF 270 BEEP:PLAY"T210L16S0M9000O5C1","T210L16S0O5R16E1","T210L16S0O5R8G1" 280 A=&HCD00:DEFUSR=A:FORI=0TO69:POKEA+I,VAL("&H"+MID$("2A76F601070009EB2100C8229AF3CD3BCDFE473010CD33CDED6FCD3BCDCD33CDED6F2318E9FE5CC8D6464FB7ED427E097718EFD630FE0AD8D607C91A13B7C0EB0E0709EB18F5",I*2+1,2)):NEXT:D=USR(&HD5C0):L=USR(1)+11 290 'TITLE **************************** 300 IFPLAY(0)GOTO300ELSEPLAY"L16O4CEGO5CO4EGO5CE","L16O4EGO5CEO4GO5CEG","L16O5GO6CEGCEGO7C" 310 CLS:U=USR(2):FORI=0TO15:POKE&HD100+I+(I\4)*28,VAL(MID$("1321321223231231",I+1,1)):NEXT:POKED,0:POKED+1,12:POKED+2,0:POKED+3,76:POKED+4,24:POKED+5,0 320 POKED+4,PEEK(D+4)+1AND255:A=PEEK(D+6):L=L-(A=1ANDL<22)*2+(A=5ANDL>8)*2:LOCATE12,13+USR(0):PRINT"LEVEL";L:A$="GEKISO LABYRINTH":GOSUB480:LOCATE6,23:PRINT"· AUG 1990 KOMEYA ·";:IF(PEEK(D+7)AND63)=63GOTO320ELSEM=&HD190-L\2-(L\2)*32 330 'MAZE MAKING ********************** 340 CLS:U=USR(2):FORI=-1TOL-1:POKEM-1+I*32,1:POKEM-1+L+I*32,1:POKEM-32+I,1:POKEM-32+L*32+I,1:NEXT:POKEM,4:U=USR(4) 350 FORI=1TOL-3STEP2:FORJ=1TOL-3STEP2:IFRND(1)<.15GOTO370ELSEA=M+I*32+J:POKEA,1 360 R=RND(1)*4:B=A+(R=3)-(R=1)+((R=0)-(R=2))*32:IFPEEK(B)=1GOTO360ELSEPOKEB,1 370 NEXTJ,I:POKED+1,8*((MAND31)+L)-12:POKED+3,8*((M-&HD000)\32+L)-12:POKED+4,0 380 FORI=0TO2:PLAY"O6C64","O6C#64","O6F64":U=USR(4):FORJ=0TO1999:NEXT:CLS:NEXT 390 'RUN ****************************** 400 PLAY"A8","A#8","B8":LOCATE11,23:PRINT"TIME:";:U=USR(VAL("&H"+MID$(STR$(L*20),2))):SOUND7,&HB8:IFU=-1THENBREAK 410 'TIME UP ************************** 420 IFUGOTO450ELSEA$="TIME UP":GOSUB480 430 PLAY"M3000O7B6A+7A8G+9G10F+11F12E13D+14D15C+M9000C1","O4V15CEV13CECEV15CECEV12CEV11CEV10CEV9CES0","O7E1.":GOTO300 440 'GOAL ***************************** 450 A$="! GOAL !":GOSUB480 460 PLAY"M3000O5CCEEFFECGGFECCCCEEFFGGEEDDDDDDDDM9000C2"."O2CCCCEEGGFFFFGGGGDDGGCCCCDDEEGGAAC2","O5EECCDDCEEEDCEEGGCCDDCCGGBBFFBBBBO6C2":GOTO300 470 'MESSAGE PUTTING SUB ************** 480 A=LEN(A$):B=15-A\2:FORI=0TO2:LOCATEB,6+I:PRINT SPC(A+2):NEXT:LOCATEB+1,7:PRINTA$:RETURN |
Volta
Multivitaminas!
http://www.geocities.com/paris/3834