O Mundo Perdido da III Dimensão
Numa sombria e assustadora noite de sexta-feira, 13 de agosto de 2004 – ano bisexto, para o seu azar – houve um acidente geodimensional, devido ao fortalecimento das forças malígnas que se intensificam neste dia maldito e você foi “arrancado” da paz do seu lar para se jogado num mundo de morte e crueldade.
Teste o programa no WebMSX – The Online MSX Emulator
Mas ainda há uma chance. Reprogramar o único teleportador dimensional existente no universo que se encontra, por coincidência, em algum lugar nessa dimensão inóspita. Reprograme-o, pois esta é a única chance para que você possa retornar ao nosso querido planeta.
Dicas
O jogo oferece as seguintes funções de ajuda:
Verbo Ajudar – Fornece todos os vermos existentes no jogo e, dependendo da situação, dá dicas de como proceder. Não há dicas falsas.
Arquivos – Escrevendo esta palavra, o computador mostra na tela um menu contendo opções para gravação e leitura de arquivos.
O mundo perdido da III dimensão é habitado por:
Mutantes do Apocalipse – Eles aparecem para saquear ou, até, sanguinariamente, matar. São perigosíssimos.
Fanáticos Religiosos – Ofercem perigos maiores que os mutantes. Todo cuidado com eles é pouco
O jogo apresenta um nível de dificuldade razoável, que poderá ser alterado. Para que o jogo fique ainda mais difícil, delete do programa as linhas de 331 a 337.
Caso queira dificultar um pouco mais, mude o limite de objetos a serem carregados por vez pelo aventureiro. Para isso, apague os comandos REM das linhas 843, 844 e 845.
O limite de objetos é dado pela variável NJ da linha 845 e o número de objetos é fornecido pela variável DO.
Fonte: Revista CPU MSX nr. 5
Autor: Guilherme A. L. da Silva
Digitação: Adriano Camargos Rodrigues da Cunha
Código fonte
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 |
10 ' ---- ADVENTURE 20 ' ---- O MUNDO PERDIDO 30 ' ---- PARA A LINHA MSX 40 ' ---- GUILHERME A.L. DA SILVA 50 ' ---- 22/06/88 60 ' ---- GUARARAPES 61 CLEAR 1000:WIDTH 40 62 KEY ON:DEFUSR=&H3E 63 STOP ON:ON STOP GOSUB 1040 64 POKE &HFCAB,1 70 KEY 1,"PEGAR ":KEY 2,"DEIXAR ":KEY 3,"LISTAR"+CHR$(13):KEY 4,"AJUDAR"+CHR$(13):KEY 5,"DESISTIR"+CHR$(13):KEY 7,"ARQUIVOS"+CHR$(13):KEY 8,"PUXAR ":KEY 9,"JOGAR ":KEY 10,"DEFENDER-SE ":KEY 6,"VESTIR " 80 COLOR 7,1:CLS:LOCATE 0,3:PRINT"# O MUNDO PERDIDO DA TERCEIRA DIMENS°O #":LOCATE 7,10:INPUT" CASSETE OU DISKETTE ";C$:LOCATE 7,10:PRINT" Quer instru‡µes(S/N)?";SPC(16):LOCATE 0,17:PRINT"DESENVOLVIDO POR GUILHERME A.L. DA SILVA" 90 A$=INKEY$:IF A$="" THEN 90 100 IF A$="S" THEN GOSUB 2420 110 ' PREPARA MATRIZES DAS RESPOSTAS 120 DIM R$(24),R(24) 130 RESTORE 140:FOR K=1 TO 24:READ R$(K),R(K):NEXT 140 DATA JOGAR,4,LIMPAR,5,LIGAR,6,PUXAR,7,DESISTIR,8,LISTAR,9,DEFENDER-SE,10,AJUDAR,11,REPROGRAMAR,12,VESTIR,13,VERIFICAR,14,ASSUSTAR,15 150 DATA PEGAR,2,DEIXAR,3,CHAMAR,16,INSERIR,17,JANELA,18,ARQUIVOS,19,LIVRAR-SE,20,BEBER,21 160 DATA NORTE,1,SUL,1,LESTE,1,OESTE,1 170 ' PREPARA MATRIZES DE OBJETOS 180 READ NB 190 DIM OB(NB),OB$(NB),S$(NB) 200 FOR I=1 TO NB:READ OB(I),OB$(I),S$(I):NEXT I 210 DATA 13,7,ELIXIR,H um vidro com um elixir no ch±o! 220 DATA 9,CORDA,Tem uma corda 5 polegadas perto de vocˆ! 230 DATA 3,BATERIA,Tem uma bateria de 12 volts no sof ! 240 DATA 15,ROUPA ANTI-RADIA€°O,H uma roupa anti-radia‡±o no ch±o! 250 DATA 20,CONTADOR GEIGER,H um contador geiger perto de vocˆ! 260 DATA 16,COMPUTADOR MSX - DESLIGADO,Tem um Super computador nos seus p‚s! 270 DATA 11,RUBI,Um RUBI enorme est no ch±o! 280 DATA 0,URŒNIO,H uma magn¡fica jazida de urƒnio 238! 290 DATA 0,ANEL DO MEDO,Nos seus p‚s est o lend rio anel do medo cravejado de brilhantes! 300 DATA 0,ESPADA DE OURO,Uma linda espada de ouro que foi deixada pelos seguidores!!! 310 DATA 19,TELEPORTADOR,Tem um teleportador dimensional no cantoda sala! 320 DATA 0,MUTANTES,Um grupo de mutantes aparece numa fuma‡avermelha! 330 DATA 0,DISKETTE,H um diskette de computador no bolso! 331 RESTORE 335:DIM L$(24):FOR I=1 TO 24:READ L$(I):NEXT 335 DATA DESFILADEIRO DO NUNCA,,CASA DO ESPANTO,,,SALA DE FNIX,FLORESTA PETRIFICADA,SAARA DIMENSIONAL 336 DATA ENCRUZILHADA,GRUTA DO TERROR,TEMPLO DA GRUTA,MONTANHAS ROCHOSAS,,,USINA NUCLEAR 337 DATA SA‰DA LESTE,PONTE DE CORDA,CACHOEIRA DE „CIDO,SALA DO TELEPORTADOR,LABORATŠRIO,REATOR DA USINA,,,‰DOLO DE PEDRA 340 ' ** POSI€°O INICIAL ** 350 L=1 360 ' ACHAR LOCAL 370 IF FM<>1 AND MU=2 THEN GOTO 2620 371 CLS:PRINT" O mundo perdido da 3a dimens±o " 380 COLOR 15,4 390 MT=MT+1:C=INT(RND(-TIME)*5):IF FM<>1 AND MT>25 AND C=4 THEN MU=1:OB(12)=L 391 IF FM<>1 AND MU=2 THEN GOTO 2620 392 IF FM<>1 AND MU=1 THEN MU=2 394 IF L<11 THEN ON L GOSUB 1810,,1840,,,1880,1910,1940,1970,2000:GOTO 420 400 IF L<21 THEN ON L-10 GOSUB 2040,2080,,,2120,2150,2180,2220,2260,2290:GOTO 420 410 IF L<26 THEN ON L-20 GOSUB 2320,,,2360 420 ' COLOCA CADA OBJETO EM LUGAR 430 FOR I=1 TO NB:IF OB(I)=L THEN PRINT S$(I) 440 NEXT 450 ' APONTAR DIRE€´ES 460 ' 470 PRINT"Pode seguir." 475 PRINT 480 IF N>0 THEN PRINT TAB(5);"NORTE: ";L$(L-6) 490 IF S>0 THEN PRINT TAB(5);"SUL : ";L$(L+6) 500 IF E>0 THEN PRINT TAB(5);"LESTE: ";L$(L+1) 510 IF W>0 THEN PRINT TAB(5);"OESTE: ";L$(L-1) 520 ' INSTRU€´ES 530 PRINT:INPUT"E agora ";I$ 540 GOSUB 1290 550 ' SELECIONA OP€°O 560 IF I=0 THEN GOTO 580 570 ON I GOTO 600,770,880,950,1050,1110,1220,1000,700,2700,1380,1480,1560,1620,1670,1730,2500,370,3000,2900,3500 580 PRINT:PRINT"Eu n±o sei como ";V$:GOTO 430 590 ' ROTINA DE MOVIMENTO 600 IF I$="O" AND W>0 THEN L=L-1:GOTO 370 610 IF I$="N" AND N>0 THEN L=L-6:GOTO 370 630 IF I$="L" AND E>0 THEN L=L+1:GOTO 370 640 IF I$="S" AND S>0 THEN L=L+6:GOTO 370 670 ' SE N°O HOUVER LOCAL POSS‰VEL NESSA DIRE€°O 680 PRINT:PRINT"DESCULPE - Vocˆ n±o pode seguir por este caminho.":GOTO 390 690 ' LISTAR 700 PRINT"Vocˆ tem:";:IN=0 710 FOR G=1 TO NB 720 IF OB(G)=-1 THEN PRINT TAB(10);OB$(G):IN=IN+1 730 NEXT 740 IF IN=0 THEN PRINT"N A D A !" 750 GOTO 390 760 ' PEGAR 770 FOR G=1 TO NB 780 IF INSTR(OB$(G),N$)=1 THEN GOTO 810 790 NEXT 800 PRINT N$;"???":GOTO 390 810 IF OB(G)=-1 THEN PRINT"Vocˆ j tem.":GOTO 390 820 IF OB(G)<>L THEN PRINT"N±o est aqu¡.":GOTO 390 830 IF OB(G)=OB(12) OR OB(G)=OB(11) THEN PRINT"Vocˆ n±o pode pegar isso!":GOTO 390 840 IF OB(G)=OB(4) THEN PRINT"Vocˆ tem que vesti-la.":GOTO 390 841 IF OB(G)=OB(2) AND CJ<>0 THEN PRINT"Vocˆ tem que pux -la.":GOTO 390 843 REM for i=1 to nb:if ob(i)=-1 then nj=nj+1 844 REM next 845 REM if nj>=5 then ?"Vocˆ n±o pode carregar tanta coisa!":goto 390 850 PRINT"Ok...":OB(G)=-1 860 GOTO 390 870 ' DEIXAR 880 FOR G=1 TO NB 890 IF INSTR(OB$(G),N$)=1 THEN 910 900 NEXT:PRINT N$;"???":GOTO 390 910 IF OB(G)<>-1 THEN PRINT"Vocˆ n±o pode largar o que n±o tem!":GOTO 390 920 PRINT"Ok...":OB(G)=L 930 GOTO 390 940 ' JOGAR 950 IN=INSTR("CORDA",N$):IF IN<1 THEN PRINT"IMPOSS‰VEL - ";N$;"???":GOTO 390 960 IF OB(2)<>-1 THEN PRINT"Vocˆ n±o tem corda.":GOTO 390 970 IF L<>18 THEN PRINT"Vocˆ n±o precisa fazer isso!":GOTO 390 980 IF CJ=1 THEN PRINT"J foi feito.":GOTO 390 990 PRINT"Ok.":CJ=1:OB(2)=L:GOTO 390 1000 ' DESISTIR 1001 PLAY"s8m2000l4t220o5d.e8d8c8o4bggaddbgg":FOR KYW=1 TO 1000:NEXT 1010 PRINT:PRINTSPC(15)"G";:FORI1=1TO200:NEXT:PRINT"A";:FORI1=1TO200:NEXT:PRINT"M";:FORI1=1TO200:NEXT:PRINT"E";:FORI1=1TO200:NEXT:PRINT" O";:FORI1=1TO200:NEXT:PRINT"V";:FORI1=1TO200:NEXT:PRINT"E";:FORI1=1TO200:NEXT:PRINT"R":FORI1=1 TO 500:NEXT:PRINT 1011 PRINT" Quer jogar novamente (s/n)?"; 1020 A$=INKEY$:IF A$="" THEN 1020 1030 IF A$="S" THEN RUN 1040 KEY ON:COLOR 15,1,1:CLS:A=USR(0):POKE &HFCAB,0:END 1050 ' LIMPAR 1060 IN=INSTR("VEGETA€°O",N$):IF IN<1 THEN PRINT"Isto n±o d !":GOTO 390 1070 IF OB(8)=24 OR OB(8)=-1 THEN PRINT"J foi feito!":GOTO 390 1080 IF L<>24 THEN PRINT"Imposs¡vel !!??":GOTO 390 1081 IF OB(4)<>-1 THEN PRINT"Vocˆ foi contaminado pela alt¡ssima radia‡±o do urƒnio 238!":N=0:E=0:S=0:W=0:GOTO 390 1090 LV=1:OB(8)=24:GOTO 390 1100 ' LIGAR 1110 FOR G=1 TO NB 1120 IF N$=LEFT$(OB$(G),LEN(N$)) THEN 1150 1130 NEXT 1140 PRINT"????":GOTO 390 1150 IF G<>6 AND G<>11 THEN PRINT"N±o d .":GOTO 390 1160 IF OB(6)<>-1 THEN PRINT"Falta computador.":GOTO 390 1165 IF G=6 AND OB(3)<>-1 THEN PRINT"Falta bateria.":GOTO 390 1170 IF G=11 AND L<>19 THEN PRINT"Lugar errado!":GOTO 390 1180 IF G=11 AND RR=0 THEN PRINT"Como vocˆ n±o reprogramou,se danou,pois o teleportador soltou uma tamanha descar-ga de laser em vocˆ...Est s morto!":GOTO 1000 1185 IF G=11 AND LO<>1 THEN PRINT"Livre-se dos objetos deste mundo.":GOTO 390 1190 IF G=11 AND LO=1 THEN GOTO 2390 1200 IF G=6 AND IS=0 THEN PRINT"Falta inserir diquete no computador.":GOTO 390 1210 IF G=6 AND OB(3)=-1 AND IS=1 THEN PRINT"Ok.":LR=1:OB(3)=0:OB(13)=0:OB$(6)=LEFT$(OB$(6),17)+"LIGADO ":GOTO 390 1220 ' PUXAR 1230 IN=INSTR("CORDA",N$):IF IN<1 THEN PRINT"Imposs¡vel - ";N$;"???":GOTO 390 1240 IF OB(2)<>L THEN PRINT"Aqu¡ n±o tem corda.":GOTO 390 1250 IF L<>18 THEN PRINT"Vocˆ n±o precisa fazer isso!":GOTO 390 1260 IF CJ=0 THEN PRINT"J foi feito!" 1270 PRINT"Ok.":CJ=0:OB(2)=-1:GOTO 390 1280 ' INSTRU€°O DE CHECAGEM 1290 I=0:N$="":I=INSTR(I$," ") 1300 IF I=0 THEN N$="?????":V$=I$:GOTO 1330 1310 V$=LEFT$(I$,I-1) 1320 N$=MID$(I$,I+1) 1330 I=0 1340 FOR K=1 TO 24 1350 IF INSTR(R$(K),V$)=1 THEN I=R(K):I$=LEFT$(V$,1) 1360 NEXT 1370 RETURN 1380 ' AJUDAR 1390 PRINT:PRINT"SEUS VERBOS:";:FOR U=1 TO 20:IF U=20 THEN PRINT R$(U):PRINT:NEXT:GOTO 1400 ELSE PRINT R$(U);", ";:NEXT 1400 IF L=9 AND BR<>1 THEN PRINT" Beba o elixir da coragem e da vida.":GOTO 390 1410 IF L=16 THEN PRINT" N±o passe pela ponte com o computador!":GOTO 390 1420 IF L=10 OR L=12 THEN PRINT"Assuste os seguidores impiedosos.":PRINT:GOTO 390 1430 IF L=24 AND OB(5)<>-1 THEN PRINT"Pegue o contador geiger.":PRINT:GOTO 390 1440 IF L=6 THEN PRINT"Chame Fˆnix...":PRINT:GOTO 390 1450 IF L=19 THEN PRINT"Para ligar o teleportador procure: dis- kette,computador,bateria,rubi e urƒnio 238.":PRINT:GOTO 390 1455 IF OB(4)=-1 AND OB(13)<>-1 THEN PRINT"Verifique bolso da roupa anti-radia‡±o.":GOTO 390 1456 IF INT(RND(-TIME)*5)+1=3 THEN PRINT"Defenda-se com a espada ou assuste com o anel os mutantes...":GOTO 390 1457 IF INT(RND(-TIME)*2)=1 THEN PRINT"Seu objetivo ‚ reprogramar o teleporta- dor e para isso precisa de:p/ c lculos, um COMPUTADOR ligado(c/ BATERIA e DIS- KETTE), um rubi estabilizador de f¢tons, uma jazida de URŒNIO 238 para combust¡- vel.":PRINT 1460 GOTO 390 1470 ' REPROGRAMAR 1480 IN=INSTR("TELEPORTADOR COM COMPUTADOR",N$):IF IN<1 THEN PRINT"N±o d !":GOTO 390 1490 IF L<>19 THEN PRINT"Lugar errado.":GOTO 390 1500 IF OB(4)<>-1 THEN PRINT"Falta computador." 1510 IF OB(4)=-1 AND LR=0 THEN PRINT"Computador desligado.":GOTO 390 1520 IF OB(7)<>-1 THEN PRINT"Falta rubi energ‚tico." 1530 IF OB(8)<>-1 THEN PRINT"Falta urƒnio 238." 1535 IF IS=0 THEN PRINT"O disquete n±o est inserido no computa-dor..." 1540 IF IS=1 AND LR=1 AND OB(7)=-1 AND OB(8)=-1 THEN PRINT"Ok. Pronto para funcionar.":RR=1:S$(11)="H o teleportador reprogramado para as coordenadas terr queas na sala.":GOTO 390 1550 GOTO 390 1560 ' VESTIR 1570 IF OB(4)<>L THEN PRINT"N±o est aqu¡.":GOTO 390 1580 IN=INSTR("ROUPA",N$):IF IN<1 THEN PRINT"Isto n±o pode ser feito.":GOTO 390 1590 IF OB(4)=-1 THEN PRINT" J est vestida.":GOTO 390 1600 OB(4)=-1:PRINT"Ok.":GOTO 390 1610 ' OLHAR 1620 IN=INSTR("BOLSO",N$):IF IN<1 THEN PRINT"Imposs¡vel ??!!":GOTO 390 1630 IF OB(4)<>-1 THEN PRINT"Eu n±o estou vendo bolso.":GOTO 390 1640 IF OB(13)=L OR OB(13)=-1 THEN PRINT"J foi feito.":GOTO 390 1650 PRINT"Ok.":OB(13)=L:GOTO 390 1660 ' ASSUSTAR 1670 IN=INSTR("SEGUIDORES COM ANEL",N$):IF IN>=1 THEN 1680 1671 IN=INSTR("MUTANTES COM ANEL",N$):A=1 1675 IF IN<1 THEN PRINT"N±o posso ";V$;" ";N$;"." 1680 IF OB(9)<>-1 THEN PRINT"Com o que?":A=0:GOTO 390 1690 IF A=0 AND L<>12 AND L<>10 THEN PRINT:PRINT:PRINT" Como n±o existem seguidores aqu¡,a mal-di‡±o voltou-se contra vocˆ e o transformou em m rmore...":GOTO 1000 1695 IF OB(12)<>L AND A=1 THEN PRINT:PRINT:PRINT" Os mutantes ouviram vocˆ e te atacaram de mansinho pelas costas. Vocˆ foi cor- tado ao meio pelas espadas mutantes...":GOTO 1000 1700 IF AU=1 AND A<>1 THEN PRINT"J foi feito!":A=0:GOTO 390 1701 IF FM=1 AND A<>0 THEN PRINT:PRINT:PRINT"Os mutantes ressuscitaram...":FM=0:GOTO 390 1710 IF A<>1 THEN PRINT"Ok.":PRINT"Os seguidores amedrontados com seu gesto ajoelharam … seus p‚s, e lhe entregaram um presente... ":PRINT:AU=1:OB(10)=L:GOTO 390 1711 MU=0:OB(12)=0:PRINT:PRINT" Os mutantes foram embora correndo ( commedo da maldi‡±o do anel ) e prometendo vingan‡a... ":GOTO 390 1720 ' CHAMAR 1730 IF L<>6 THEN PRINT"N±o tem ningu‚m aqu¡!":GOTO 390 1740 IN=INSTR("FNIX",N$):IF IN<1 THEN PRINT"Quem ‚ ";N$;"???":GOTO 390 1750 IF FE=1 THEN PRINT:PRINT"Vocˆ aborreceu Fˆnix !!!":PRINT"Ela mandou milhµes de urubus te matar.":PRINT"Vocˆ morreu...":GOTO 1000 1760 PRINT"Ok.":PRINT:PRINT"Uma ave linda e delicada pµe ao seus p‚sum presente de FNIX, o ANEL DO MEDO,eletem o poder de lan‡ar maldi‡µes e quem o posuir ter poderes ilimitados...":PRINT:FE=1 1770 OB(9)=6:PRINT S$(9):I$="" 1780 GOTO 530 1790 ' DESCRI€ŒO DOS LOCAIS 1800 ' LOCAL 1 1810 PRINT" Vocˆ est num desfiladeiro sem fundo, o DESFILADEIRO DO NUNCA..." 1820 N=0:E=0:S=1:W=0:RETURN 1830 ' LOCAL 3 1840 PRINT" Vocˆ est na Mans±o Mal-Assombrada." 1850 IF BR<>1 THEN PRINT" Os esp¡ritos da Mans±o lhe deram um susto e vocˆ morreu de medo...":GOTO 1000 1860 N=0:E=0:S=1:W=0:RETURN 1870 ' LOCAL 6 1880 PRINT" Aqu¡ ‚ a Sala Encantada de Fˆnix - a ave sagrada." 1890 N=0:E=0:S=1:W=0:RETURN 1900 ' LOCAL 7 1910 PRINT" Vocˆ est na Floresta Petrificada." 1920 N=1:E=1:S=0:W=0:RETURN 1930 ' LOCAL 8 1940 PRINT" Vocˆ est no maligno Deserto da Saara Dimensional." 1950 N=0:E=1:S=0:W=1:RETURN 1960 ' LOCAL 9 1970 PRINT" Aqu¡ ‚ a encruzilhada dos Indecisos." 1980 N=1:E=1:S=1:W=1:RETURN 1990 ' LOCAL 10 2000 PRINT" Tu est s na fantasmag¢rica e lend ria, GRUTA DO HORROR!!!" 2010 IF (OB(10)=-1 AND AU<>1) OR (OB(10)<>-1 AND AU<>1) THEN PRINT" Os seguidores de THANTHANDACUCA, est±ovindo te pegar. Fa‡a alguma coisa!" 2020 N=0:E=1:S=0:W=1:RETURN 2030 ' LOCAL 11 2040 PRINT" Tu est s no templo dos seguidores de THANTHANDACUCA, os impiedosos..." 2050 IF AU<>1 THEN PRINT" Os impiedosos e carniceiros seguidoresde THANTHANDACUCA te embalsamaram num sarc¢fago para sempre!!!???":GOTO 1000 2060 N=0:E=1:S=0:W=1:RETURN 2070 ' LOCAL 12 2080 PRINT" Vocˆ saiu da gruta e agora est numa montanha rochosa." 2090 IF (OB(10)=-1 AND AU<>1) OR (OB(10)<>-1 AND AU<>1) THEN PRINT" Mas os seguidores de THANTHANDACUCA, est±o vindo te pegar. Fa‡a alguma coisa!" 2100 N=1:E=0:S=1:W=1:RETURN 2110 ' LOCAL 15 2120 PRINT" Vocˆ acaba de entrar na grande e po- tente USINA NUCLEAR DE TANGA DOS REIS..." 2130 N=1:E=1:W=0:S=1:RETURN 2140 ' LOCAL 16 2150 PRINT" Vocˆ est na sa¡da leste da usina." 2160 N=0:E=1:W=1:S=0:RETURN 2170 ' LOCAL 17 2180 PRINT" Vocˆ est atravessando um grande vale por uma ponte de corda." 2190 IF OB(6)=-1 THEN PRINT" A ponte se partiu por excesso de peso do computador...":GOTO 1000 2200 N=0:E=1:S=0:W=1:RETURN 2210 ' LOCAL 18 2220 PRINT" A sua frente h uma cachoeira de cido sulf£rico." 2230 IF CJ<>1 THEN PRINT" Vocˆ n±o pode atravessar a nado!!":N=0:E=0:S=0:W=1:RETURN 2240 N=1:E=0:S=1:W=1:RETURN 2250 ' LOCAL 19 2260 PRINT" Vocˆ est na sala do teleportador di- mensional." 2270 N=0:E=1:S=0:W=0:RETURN 2280 ' LOCAL 20 2290 PRINT" Vocˆ est no laborat¢rio da usina." 2300 N=0:E=1:S=0:W=1:RETURN 2310 ' LOCAL 21 2320 PRINT" Tu est s no centro do reator termonu- clear da usina." 2330 IF OB(4)<>-1 THEN PRINT" Como a radioatividade ‚ muito grande evocˆ n±o est com a roupa certa, vocˆ morreu contaminado.":GOTO 1000 2340 N=1:E=0:S=0:W=1:RETURN 2350 ' LOCAL 24 2360 PRINT" H uma vegeta‡±o muito estranha sobre um ¡dolo." 2370 IF OB(5)<>-1 THEN N=1:E=0:S=0:W=0:RETURN 2380 IF LV<>1 THEN PRINT" O contador geiger est denunciando al-guma coisa na vegeta‡±o!!!" 2381 N=1:E=0:S=0:W=0:RETURN 2390 ' VITŠRIA 2400 CLS:COLOR 5,1:PRINTTAB(13);"A Teleporta‡±o" 2401 PRINT:PRINT" O ";CHR$(&H22);"Teleportador";CHR$(&H22);" foi acionado...":PRINT" Raios de laser de v rias cores e es-pessuras percorrem a sala, no painel de controle as luzes piscam freneticamente, de repente um alarme toca!" 2402 PRINT" O que ser ??" 2403 PRINT:PRINT" a teleporta‡±o que est se proces-sando. Um raio o atravessa,vocˆ nem sen-te e..." 2404 PRINT" Quando vocˆ abre os olhos, est de volta ao seu mundo, a sua casa.":PRINT" Agora est no seu quarto, ao redor, n±o tem ningu‚m. Olha o rel¢gio e:":PRINT" Sexta,13/07 de 2004 Bs 11:31 da noite!" 2405 PRINT" Foi um sonho?!" 2406 LOCATE9,21:PRINT"Pressione Qualquer Tecla":IF INKEY$="" THEN 2406 2407 CLS:PRINTTAB(13);"A Teleporta‡±o" 2408 PRINT:PRINT:PRINT" Vocˆ pµe sua m±o no bolso e sente alguma coisa se estranho." 2409 PRINT" Mas como, vocˆ abandonou tudo ?":PRINT" Vocˆ pega, olha." 2410 PRINT" Um papel! Vocˆ o abre.Uma carta! Vocˆ lˆ,est :":PRINT STRING$(40,"^"); 2412 PRINT:PRINT" Isto n±o foi um sonho.":PRINT" Foi uma aventura e tanto!!!" 2415 PRINT SPC(5);"Eu voltarei, bravo aventureiro.":PRINT SPC(5);"Eu voltarei...":PRINT SPC(5);"Voltarei para novas e emocionantes";SPC(6);"aventuras.":PRINT TAB(17);"ASS: LORD TREVAS":PRINT 2416 LOCATE 0,9:FOR K=10 TO 19:LOCATE 0,K:PRINT">":LOCATE 39,K:PRINT"<":NEXT:LOCATE 0,19:PRINT STRING$(40,"^") 2417 LOCATE 0,18 2418 PRINT:M1$="t140s0m9000o4l8":M2$="v8t140o3l8":M3$="c16d16eggagecdeedcd4":M4$="c16d16eggagecdeeddc2":M6$="v14o3b64" 2419 M5$="d4d4ee4eggedd4":M4$="c16d16eggagecdeeddc2.":PLAY M1$,M2$:PLAY M3$,M3$:PLAY M4$,M4$:PLAY M6$:PLAY M1$,M2$:PLAY M5$,M5$:PLAY M4$,M4$:GOTO 1010 2420 LOCATE 0,22:COLOR 15,13:PRINT:PRINT 2430 PRINT:PRINT" O mundo perdido da 3a dimens±o":PRINT 2440 PRINT" Houve um acidente geo-dimensional":PRINT"numa Sexta-feira, 13 de Agosto de 2004 (bissexto) as 11:30 da noite." 2441 PRINT" Devido ao fortalecimento da m sor-te neste detestado dia, vocˆ foi puxado para ";CHR$(&H22);"O Mundo Perdido da 3a Dimens±o";CHR$(&H22);"." 2450 PRINT" Vocˆ deve reprogramar o £nico tele-portador existente no universo, para ":PRINT"voltar … Terra e rever sua fam¡lia." 2460 PRINT" Como esse mundo ‚ muito hostil,cui-dado! Vocˆ enfrentar cachoeiras de ci-do, mansµes mal-assombradas, fan ticos religiosos e muito mais..." 2470 PRINT:PRINT" Quando n±o souber o que fazer aperte F4 (AJUDAR)." 2480 PRINT:PRINT:PRINT TAB(9);"Pressione Qualquer Tecla":PRINT 2481 L$=INKEY$:IF L$="" THEN 2481 2482 LOCATE 13,23:PRINT:PRINT" 'CONTINUA€°O'":PRINT 2483 PRINT" Como desgra‡a pouca e bobagem h tamb‚m um grupo maligno de mutantes do apocalipse, quando estiver na presen‡a deles digite DEFENDER-SE DOS MUTANTES (quando estiver com a espada) ou ASSUS- TAR MUTANTES(quando estiver com o anel)."; 2485 PRINT" Se n±o fizer isto vocˆ sofrer na carne um ataque mutante devastador.":PRINT:PRINT" A op‡±o ARQUIVOS lhe d um menu com op‡µes de LEITURA,GRAVA€°O,ETC para as-sim gravar o jogo em qualquer parte." 2486 PRINT 2487 PRINT" Esse adventure foi desenvolvido por: ";:PRINT" GUILHERME ARAUJO LIMA DA SILVA (C)1987 "; 2488 PRINT 2489 PRINT:PRINT" Qualquer tecla para come‡ar" 2490 L$=INKEY$:IF L$<>"" THEN RETURN ELSE 2490 2500 ' INSERIR 2510 IN=INSTR("DISKETTE NO COMPUTADOR",N$):IF IN<>1 THEN PRINT"Imposs¡vel???":GOTO 390 2520 IF OB(6)<>-1 THEN PRINT"Que computador?" 2530 IF OB(13)<>-1 THEN PRINT"Que diskette?" 2535 IF IS=1 THEN PRINT"J est inserido...":GOTO 390 2540 IF OB(13)=-1 AND OB(6)=-1 THEN PRINT"Ok...Est inserido!":IS=1 2550 GOTO 390 2600 ' MUTANTES 2620 IF MU<1 THEN MU=1:GOTO 393 2622 IN=0:FORI=1TONB:IF OB(I)=-1 THEN IN=IN+1 2623 NEXT 2625 IF IN<>0 THEN GOTO 2800 2630 IF IN=0 THEN PRINT"Os mutantes te mataram pois vocˆ n±o ti-nha nada para ser roubado.":GOTO 1000 2680 GOTO 390 2700 ' DEFENDER 2701 IN=INSTR("DOS MUTANTES",N$):IF IN<>1 THEN PRINT"Imposs¡vel - ";N$;"???":GOTO 390 2710 IF OB(12)<>L THEN PRINT"Do quˆ?":GOTO 390 2711 IF OB(12)<>L THEN PRINT"Do quˆ?":GOTO 390 2720 IF OB(10)<>-1 THEN PRINT"Com o quˆ?":GOTO 390 2740 FM=1 2741 PRINT"Vocˆ ‚ atacado por um mutante...":PRINT"Vocˆ o corta...ele geme e cai!":FOR V=1 TO 1000:NEXT 2742 PRINT"Vem outro...Vocˆ d um soco...":PRINT"Ele rodopia e cai!":FOR V=1 TO 1000:NEXT 2743 PRINT"Vem o chefe com uma espada...Vocˆ o ata-ca...Ele defende e trope‡a...":FOR V=1 TO 2000:NEXT 2745 PRINT"Vocˆ o mata friamente,ele solta um hor- ripilante hurro e abra‡a a morte!!!":FOR V=1 TO 500:NEXT 2750 IF M=0 THEN OB(12)=0:MU=0:GOTO 390 ELSE PRINT"Nos seus p‚s est±o os objetos saqueados.":BEEP:BEEP:BEEP:BEEP 2760 FOR I=1 TO M 2770 FOR I=1 TO M 2771 OB(M(I))=L:NEXT 2780 OB(12)=0:GOTO 390 2800 ' ROTINA DOS MUTANTES 2810 K=INT(RND(1)*NB)+1:IF OB(K)<>-1 THEN GOTO 2810 2820 PRINT"Os malditos mutantes":PRINT TAB(9);"roubaram-lhe:";OB$(K):M=M+1:OB(K)=0:M(M)=K:MU=0:MT=0:OB(12)=0:GOTO 390 2900 ' LIVRAR-SE 2910 IN=INSTR("DOS OBJETOS",N$):IF IN<1 THEN PRINT"Livrar-se do que???!!!":GOTO 390 2915 BJ=0 2916 IF LO=1 THEN PRINT"Outra vez?":GOTO 390 2920 FOR I=1 TO NB:IF OB(I)=-1 THEN BJ=BJ+1 2921 NEXT 2925 IF RR<>1 THEN PRINT"Agora?":GOTO 390 2930 IF BJ=0 THEN PRINT"Que objetos??":GOTO 390 2940 FOR I=1 TO NB-1:IF I=6 OR I=7 OR I=8 THEN NEXT ELSE OB(I)=0:NEXT:LO=1 2950 PRINT"Ok...Alguns desapareceram,mas:Computador ligado,urƒnio e rubi n±o.":GOTO 390 3000 ' ARQUIVOS 3010 CLS:COLOR 1,11:ON ERROR GOTO 3600 3011 IF LEFT$(C$,1)="C" OR LEFT$(C$,1)="c" THEN F$="CAS:":F=1 3020 PRINT TAB(5)"LOAD / SAVE / KILL / FILES" 3030 LOCATE 14,6:PRINT" 1-SAVE 3040 LOCATE 14,7:PRINT" 2-LOAD 3050 LOCATE 14,8:PRINT" 3-KILL 3060 LOCATE 14,9:PRINT" 4-FILES 3065 LOCATE 14,10:PRINT" 5-VOLTA 3070 LOCATE 10,17:PRINT"Op‡±o:" 3080 S$=INKEY$:IF S$="" OR S$<"1" OR S$>"5" THEN 3080 3090 ON VAL(S$) GOTO 3100,3200,3300,3400 3091 IF S$="5" THEN ON ERROR GOTO 0:GOTO 370 3100 ' SAVE 3110 CLS:PRINT TAB(14)"# SAVE #" 3120 LOCATE 10,10:INPUT"Nome para a grava‡±o";NA$ 3130 NA$=F$+NA$+".adv":OPEN NA$ FOR OUTPUT AS #1 3135 PRINT #1,LV:PRINT #1,LR:PRINT #1,LO:PRINT #1,A:PRINT #1,AU:PRINT #1,CJ:PRINT #1,RR:PRINT #1,IS:PRINT #1,BR 3140 PRINT #1,NB 3150 FOR I=1 TO NB 3160 PRINT #1,OB(I) 3170 NEXT 3180 PRINT #1,M:PRINT #1,MT:PRINT #1,MU:PRINT #1,FM:PRINT #1,L 3181 IF M=0 THEN 3185 ELSE FOR I=1 TO M:PRINT #1,M(I) 3185 CLOSE #1 3190 PRINT"Ok." 3199 IF INKEY$="" THEN 3199 ELSE GOTO 3000 3200 ' LOAD 3210 CLS:PRINT TAB(14)"# LOAD #" 3220 LOCATE 10,10:INPUT"Nome do programa a carregar";NA$ 3230 NA$=F$+NA$+".adv":OPEN NA$ FOR INPUT AS #1 3235 INPUT #1,LV:INPUT #1,LR:INPUT #1,LO:INPUT #1,A:INPUT #1,AU:INPUT #1,CJ:INPUT #1,RR:INPUT #1,IS:INPUT #1,BR 3240 INPUT #1,NB 3250 FOR I=1 TO NB 3260 INPUT #1,OB(I) 3270 NEXT 3271 INPUT #1,M:INPUT #1,MT:INPUT #1,MU:INPUT #1,FM:INPUT #1,L 3272 IF M=0 THEN CLOSE #1:GOTO 3290 ELSE FOR I=1 TO M:INPUT #1,M(I):NEXT:CLOSE #1 3274 FOR U=1 TO M 3275 OB(M(U))=0 3276 NEXT:GOTO 3290 3290 LOCATE 17,20:PRINT"Ok." 3299 IF INKEY$="" THEN 3299 ELSE GOTO 3000 3300 ' Kill 3301 IF F=1 THEN 3000 3310 CLS:PRINT TAB(14)"# KILL #" 3320 LOCATE 10,10:INPUT"Arquivo a deletar";NA$ 3330 NA$=NA$+".adv":KILL NA$ 3340 LOCATE 17,20:PRINT"Ok." 3350 IF INKEY$="" THEN 3350 ELSE GOTO 370 3400 ' FILES 3401 IF F=1 THEN 3000 3410 CLS:PRINT TAB(13)"# FILES #" 3420 LOCATE 0,9:FILES"*.adv" 3430 LOCATE 17,20:PRINT"Ok." 3440 IF INKEY$="" THEN 3440 ELSE GOTO 3000 3500 ' BEBER 3510 IN=0:IN=INSTR("ELIXIR",N$):IF IN<1 THEN PRINT"N±o me fa‡a rir!":GOTO 390 3520 IF OB(1)<>-1 THEN PRINT"Vocˆ n±o pode beber o que n±o tem...":GOTO 390 3530 IF BR<>0 THEN PRINT:PRINT" Vocˆ tomou uma 'OVERDOSE' de elixir.":PRINT" Sua gula o matou!!":GOTO 1000 3540 PRINT"Ok! Vocˆ est forte como um touro !!!":BR=1:GOTO 390 3600 ' ERROS 3610 IF ERR<>53 THEN 3620 ELSE PLAY"V15O7C8":LOCATE 8,16:PRINT"Arquivo inxistente":GOTO 3690 3620 IF ERR<>56 THEN 3630 ELSE PLAY"v15o7c8":LOCATE 10,16:PRINT"Nome incorreto":GOTO 3690 3630 IF ERR<>67 THEN 3640 ELSE PLAY"v15o7c8":LOCATE 10,16:PRINT"Diret¢rio cheio":GOTO 3690 3640 IF ERR<>66 THEN 3650 ELSE PLAY"v15o7c8":LOCATE 13,16:PRINT"Disco cheio":GOTO 3690 3650 IF ERR<>68 THEN 3660 ELSE PLAY"v15o7c8":LOCATE 11,16:PRINT"Disco protegido":GOTO 3690 3660 IF ERR<>69 THEN 3670 ELSE PLAY"v15o7c8":LOCATE 13,16:PRINT"Erro de E/S":GOTO 3690 3670 IF ERR<>70 THEN 3680 ELSE PLAY"v15o7c8":LOCATE 13,16:PRINT"Falta disco":GOTO 3690 3680 LOCATE 14,16:PRINT"Erro n.";ERR 3690 A$=INKEY$:IF A$<>"" THEN RESUME 3000 ELSE 3690 |