O Mundo Perdido da III Dimensão

29 de julho de 2017 MSX-Basic 0 comentários Adventure, Jogos

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

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

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

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

Compartilhe:

julho 2017
D	S	T	Q	Q	S	S
				ago »
						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