DECLARE SUB Atributos ()
DECLARE SUB Tecnauta ()
DECLARE SUB Criacao ()
DECLARE SUB MNNA ()
DECLARE SUB Leitura ()
DECLARE SUB Apresentacao ()
DECLARE SUB Sons ()
DECLARE SUB Receptador ()
DECLARE SUB Hackerbar ()
DECLARE SUB Codigos ()
DECLARE SUB Hackershop ()
DECLARE SUB Conectar ()
DECLARE SUB Ajuda ()

COMMON SHARED nome$, rac, per, comp, xp, memor, memormax, veloc, inte, intemax, comb, defes, util1, util2, util3, util4, util5, util6, util7, util8, util9, util10, util11, util12, util13, util14, util15, din
COMMON SHARED nomed$, memord, memormaxd, velocd, inted, intemaxd, combd, defesd, util1d, util2d, util3d, util4d, util5d, util6d, util7d, util8d, util9d, util10d
COMMON SHARED memormaxv, velocv, intemaxv, combv, defesv, util1v, util2v, util3v, util4v, util5v, util6v, util7v, util8v, util9v, util10v, veneno
COMMON SHARED rastro, acaono$, vitor$, som, reg, arq1$, arq2$, arq3$, arq4$, arq5$, arq6$, arq7$, arq8$, arq9$, arq10$, ret, esc, esp, retd, escd, espd, valor1, valor2, valor3, valor4, valor5, valor6, valor7, valor8, valor9, valor10
COMMON SHARED no1$, no2$, no3$, no4$, no5$, no6$, no7$, no8$, no9$, no10$, no11$, no12$, no13$, no14$, no15$, no17$, no18$, no19$, no20$, no21$, no22$, no23$, no24$, no25$
COMMON SHARED cor1$, cor2$, cor3$, cor4$, cor5$, cor6$, cor7$, cor8$, cor9$, cor10$, cor11$, cor12$, cor13$, cor14$, cor15$, cor17$, cor18$, cor19$, cor20$, cor21$, cor22$, cor23$, cor24$, cor25$
COMMON SHARED nivel1, nivel2, nivel3, nivel4, nivel5, nivel6, nivel7, nivel8, nivel9, nivel10, nivel11, nivel12, nivel13, nivel14, nivel15, nivel17, nivel18, nivel19, nivel20, nivel21, nivel22, nivel23, nivel24, nivel25
COMMON SHARED no$, no, cor$, nivel, alert$, gelo$, tipogelo$, corgelo$, descor$, proxdes$, empresa$, atord, dano, proxarq$, valor, nuarq%, nuarqmem%, arqno1%, arqno2%, arqno3%, arqno4%, arqno5%, espec$, voltarconec$, somligado$
COMMON SHARED codmnna$, codmits$, codfuch$, codares$, codrenr$, codzuri$, codfirm$, codnexs$, codshia$, sistem$, sistemaes, zine$
COMMON SHARED missaomay$, missaolady$, missaotaiw$, missaoia$, missaoangela$, missaosharik$
DIM SHARED var(1 TO 17)

IF voltarconec$ = "s" THEN
Conectar
GOTO Neuroterminal
END IF

Apresentacao
comeco:
som = 6: Sons
som = 1: Sons
CLS
SCREEN 12
COLOR 10
LOCATE 1, 35

PRINT "OVERRUN"
INPUT "Nome:", nome$
IF nome$ = "" THEN
INPUT "Vocˆ tem que ter um nome!", press
GOTO comeco
END IF

som = 6: Sons
save$ = "C:\Blarg!\Overrun\Saves\" + nome$ + ".SAV"
ON ERROR GOTO novo
OPEN save$ FOR INPUT AS #1
INPUT #1, nome$, rac, per, comp, xp, veloc, memor, memormax, inte, intemax, comb, defes, util1, util2, util3, util4, util5, util6, util7, util8, util9, util10, util11, util12, util13, util14, util15, din
INPUT #1, velocv, memormaxv, intemaxv, combv, defesv, util1v, util2v, util3v, util4v, util5v, util6v, util7v, util8v, util9v, util10v, veneno, atord
INPUT #1, arq1$, arq2$, arq3$, arq4$, arq5$, arq6$, arq7$, arq8$, arq9$, arq10$, zine$
INPUT #1, valor1, valor2, valor3, valor4, valor5, valor6, valor7, valor8, valor9, valor10
INPUT #1, codmnna$, codmits$, codfuch$, codares$, codrenr$, codzuri$, codfirm$, codnexs$, codshia$
INPUT #1, missaomay$, missaolady$, missaotaiw$, missaoia$, missaoangela$, missaosharik$, var(1), var(2), var(3), var(4), var(5), var(6), var(7), var(8), var(9), var(10), var(11), var(12), var(13), var(14), var(15), var(16), var(17)
CLOSE #1
INPUT "Carregado", press
GOTO Neuroterminal

novo:
INPUT "Personagem novo", press
som = 6: Sons
Criacao
memor = 10
memormax = 10
veloc = 3
inte = 10
intemax = 10
comb = 3
defes = 3
din = 200
memormaxv = 10
velocv = 3
intemaxv = 10
combv = 3
defesv = 3
util4v = 3
util4 = 3

Neuroterminal:
CLS
LOCATE 1, 33
PRINT "NEUROTERMINAL"
PRINT "Velocidade:     "; veloc
PRINT "Mem¢ria:        "; memor; "/"; memormax
PRINT "Integridade:    "; inte; "/"; intemax
PRINT ""
PRINT "Combate:        "; comb
PRINT "Defesa:         "; defes
PRINT ""
IF util1 > 0 THEN PRINT "Retardamento:   "; util1
IF util2 > 0 THEN PRINT "M‚dico:         "; util2
IF util3 > 0 THEN PRINT "Escudo:         "; util3
IF util4 > 0 THEN PRINT "An lise:        "; util4
IF util5 > 0 THEN PRINT "Fuga:           "; util5
IF util6 > 0 THEN PRINT "Disrup‡Æo:      "; util6
IF util7 > 0 THEN PRINT "IlusÆo:         "; util7
IF util8 > 0 THEN PRINT "Espelho:        "; util8
IF util9 > 0 THEN PRINT "Restaura‡Æo:    "; util9
IF util10 > 0 THEN PRINT "Veneno:         "; util10
IF util11 > 0 THEN PRINT "Drenar:         "; util11
IF util12 > 0 THEN PRINT "Teleporte:      "; util12
IF util13 > 0 THEN PRINT "Explosivo:      "; util13
IF util14 > 0 THEN PRINT "Vendetta:       "; util14
IF util15 > 0 THEN PRINT "Prote‡Æo:       "; util15

LOCATE 25, 30
IF atord > 0 THEN
PRINT "Vocˆ est  atordoado"
som = 1: Sons
END IF

LOCATE 26, 1
INPUT "Ajuda(a), Tecnauta(t), Conectar(c) ou Sair(s)?:", escl$
som = 6: Sons

SELECT CASE escl$

CASE "t"
Tecnauta

CASE "c"
Conectar

CASE "s"
INPUT "Salvar?(s/n): ", salv$
som = 1: Sons
som = 3: Sons
som = 6: Sons
IF salv$ = "s" THEN
save$ = "C:\Blarg!\Overrun\Saves\" + nome$ + ".SAV"
OPEN save$ FOR OUTPUT AS #1
WRITE #1, nome$, rac, per, comp, xp, veloc, memor, memormax, inte, intemax, comb, defes, util1, util2, util3, util4, util5, util6, util7, util8, util9, util10, util11, util12, util13, util14, util15, din
WRITE #1, velocv, memormaxv, intemaxv, combv, defesv, util1v, util2v, util3v, util4v, util5v, util6v, util7v, util8v, util9v, util10v, veneno, atord
WRITE #1, arq1$, arq2$, arq3$, arq4$, arq5$, arq6$, arq7$, arq8$, arq9$, arq10$, zine$
WRITE #1, valor1, valor2, valor3, valor4, valor5, valor6, valor7, valor8, valor9, valor10
WRITE #1, codmnna$, codmits$, codfuch$, codares$, codrenr$, codzuri$, codfirm$, codnexs$, codshia$
WRITE #1, missaomay$, missaolady$, missaotaiw$, missaoia$, missaoangela$, missaosharik$, var(1), var(2), var(3), var(4), var(5), var(6), var(7), var(8), var(9), var(10), var(11), var(12), var(13), var(14), var(15), var(16), var(17)
CLOSE #1
LOCATE 27, 18
INPUT "Salvo", press
END IF
SYSTEM

CASE "a"
Ajuda

CASE ELSE
INPUT "NÆo existe essa op‡Æo!", press
som = 1: Sons
GOTO Neuroterminal
END SELECT

GOTO Neuroterminal

SUB Ajuda

ajud:
CLS
PRINT "Sobre o que vocˆ quer ajuda?"
PRINT ""
INPUT "Ambienta‡Æo(a), Programas(p), Tecnauta(t) ou Regras(r):"; assunto$
som = 6: Sons
SELECT CASE assunto$

CASE "a"
CLS
LOCATE 2, 2
PRINT "O ano ‚ 2050 e os dados do mundo inteiro circulam por uma rede chamada Matriz.  A Matriz ‚ um espa‡o virtual acessado atrav‚z dos neuroterminais, isto ‚, os    comandos sÆo feitos mentalmente gra‡as a uma conec‡Æo de dados instalada na     tˆmpora dos usu rios."
SLEEP 3
PRINT ""
PRINT "Os piratas de dados circulam ilegalmente pela Matriz usando chips que mascaram  suas senhas e enganam os sistemas facilmente."
SLEEP 3
PRINT ""
PRINT "Por‚m os sistemas das grandes empresas usam contramedidas de invasÆo, os GELOs. Os GELOs podem te rastrear, atacar a integridade de seu neuroterminal ou at‚    mesmo sua mente, por descargas el‚tricas na conec‡Æo. "
SLEEP 3
PRINT ""
PRINT "O universo da Matriz ‚ como um mundo virtual, por‚m sensorial. Um c‚u de        el‚trons flutuando sobre infinitas trilhas de informa‡Æo movendo-se na          velocidade da luz."
SLEEP 3
PRINT ""
PRINT "Quando vocˆ acessa a Matriz, sua representa‡Æo visual aparece nela, a persona.  Os arquivos e sistemas sÆo representados por ¡cones dos mais variados formatos  e cores."
SLEEP 3
PRINT ""
PRINT "Seu objetivo ‚ conseguir liberar o m ximo de informa‡Æo das megacorpora‡äes     corruptas."
SLEEP 3
PRINT ""
PRINT "Mas a empresas nÆo gostam nada disso, e empregam as mais sujas formas de        prote‡Æo, inclusive algumas ilegais como os GELOs negros."
SLEEP 3
PRINT ""
PRINT "E assim trava-se a guerra pela £nica coisa realmente valiosa nesse mundo..."
SLEEP 3
PRINT "Informa‡Æo."
SLEEP 3
PRINT ""

INPUT "Algo mais?(s/n)", ajud$
som = 6: Sons
IF ajud$ = "s" THEN
GOTO ajud
END IF

CASE "p"
CLS
PRINT "An lise: Analisa o nome e o n¡vel do seu oponente. Usando an lise no n¢ vocˆ    pode achar GELOs Passivos no sistema e saber a condi‡Æo do GELO ou Tecnauta.    Tamb‚m ‚ essencial para achar arquivos valiosos no n¢."
PRINT ""
PRINT "Disrup‡Æo: Esse programa pode apagar e destruir fun‡äes de GELOs ou programas detecnautas. tamb‚m e necess rio para desligar um sistema."
PRINT ""
PRINT "Escudo: Cria um escudo em torno da sua persona, capaz de deter ataques, mas sua eficiˆncia depende do n¡vel do programa."
PRINT ""
PRINT "Espelho: Faz uma r‚plica de sua persona capaz de confundir os GELOs, e eles     podem atacar a r‚plica ao inv‚s de vocˆ."
PRINT ""
PRINT "Fuga: Esse programa confunde o oponente se ele estiver te rastreando, fazendo   ele perder seu rastro."
PRINT ""
PRINT "IlusÆo: Esse programa engana GELOs Brancos que exigem senha ao usu rio. NÆo     funciona em GELOs Assassinos ou Rastreadores.  necess rio para se cancelar     alertas na CPU."
PRINT ""
PRINT "M‚dico: Esse programa restaura um pouco da integridade do seu persona."
PRINT ""
PRINT "Restaura‡Æo: Restaura programas apagados por GELOs ou tecnautas."
PRINT ""
PRINT "Retardamento: Age no oponente abaixando sua velocidade e reduzindo sua rea‡Æo."
PRINT ""
PRINT "Veneno: Atinge um tecnauta ou GELO, reduzindo o n¡vel de todos os programas."
PRINT ""
INPUT "Continuar?(s/n)", contajud$
som = 6: Sons
IF contajud$ = "s" THEN

CLS
PRINT "Al‚m desses utilit rios vocˆ tem programas principais no neuroterminal:         Velocidade, Mem¢ria, Integridade, Combate e Defesa."
PRINT ""
PRINT "Velocidade: Controla sua rea‡Æo e n£mero de a‡äes num combate. tamb‚m ‚ £til    para fugir de rastreamento."
PRINT ""
PRINT "Mem¢ria:  a mem¢ria ativa do neuroterminal. Todo utilit rio requer uma certa   quantidade de mem¢ria para ser usado, ou nÆo funcionar . A mem¢ria aumenta      automaticamente a cada turno."
PRINT ""
PRINT "Integridade: Representa a integridade do seu ¡cone. Se chegar a zero vocˆ ser   chutado para fora do sistema. A integridade regenera-se totalmente quando vocˆ  se desconecta do sistema."
PRINT ""
PRINT "Combate:  o programa de ataque do neuroterminal e nÆo gasta mem¢ria para ser   usado. Danifica a integridade do oponente."
PRINT ""
PRINT "Defesa:  o programa que reduz e evita ataques automaticamente. tamb‚m nÆo gastamem¢ria."
END IF
PRINT ""
INPUT "Algo mais?(s/n)", ajud$
som = 6: Sons
IF ajud$ = "s" THEN
GOTO ajud
END IF

CASE "r"
CLS
PRINT "Regras"
PRINT ""
LOCATE 2, 1
PRINT "Para selecionar uma op‡Æo no jogo, digite sempre o c¢digo entre parˆnteses.     Compre seus programas no Hacker's Shop. O n¡vel nÆo ‚ cumulativo, entÆo escolha com cuidado."
PRINT ""
PRINT "Na op‡Æo Conectar vocˆ pode escolher um sistema que saiba o c¢digo ou entrar numsistema al‚atorio. Os sistemas aleat¢rios tem n¡veis de seguran‡a variados."
PRINT ""
PRINT "Os n¡veis de seguran‡a de um n¢ tem cores de identifica‡Æo: Azul, Verde, Laranjae Vermelho, em ordem de seguran‡a."
PRINT ""
PRINT "H  v rios tipos de n¢s num sistema: Acesso, Arquivo, UAP (Unidade Auxiliar de   Processamento) e CPU (Unidade Central de Processamento)."
PRINT ""
PRINT "O N¢ de Acesso ‚ a porta para os outros n¢s do sistema. Vocˆ pode passar para o pr¢ximo sistema encontrando outro n¢ de acesso que nÆo seja o inicial."
PRINT ""
PRINT "O Arquivo guarda as informa‡äes do sistema. Daqui vocˆ vai copiar os dados para seu armazenador, que tem um limite de dez arquivos."
PRINT ""
PRINT "O UAP e CPU controlam as fun‡äes do sistema. Dentro dos n¢s vocˆ pode executar  diferentes a‡äes."
PRINT ""
INPUT "Continuar?(s/n)", contajud$
som = 6: Sons
IF contajud$ = "s" THEN

CLS
PRINT "Quando vocˆ invade um sistema, ele pode entrar em alerta. Existem dois tipos de alerta: Passivo e Ativo."
PRINT ""
PRINT "O alerta passivo aumenta o n£mero e n¡vel dos GELOs no sistema. O alerta ativo  pode fazer com que o sistema envie GELOs mais perigosos, tecnautas ou entre em  shutdown."
PRINT ""
PRINT "Os tipos de GELO se dividem em: GELO branco, GELO cinza e GELO negro. Esse £timo‚ raro e muito perigoso pois pode mat -lo, apagando seu personagem              permanentemente. Ele tamb‚m pode atordo -lo, reduzindo sua rea‡Æo, e apagar seusarquivos."
PRINT ""
PRINT "Vocˆ deve achar os arquivos e copiar os dados enquanto puder. EntÆo vocˆ        procura seu receptador para vender as informa‡äes."
PRINT ""
PRINT "Vocˆ pode encontrar algu‚m no Hacker's Virtual Bar que lhe ofere‡a um c¢digo    para invadir uma empresa espec¡fica. Esses sistemas costumam a valer mais       dinheiro, mas sÆo mais perigosos."
PRINT ""
PRINT "Para conversar no Bar, escreva as palavras-chave (que tem um *) ditas pelos     personas. Para mensagens mais espec¡ficas use a Mesagem Pessoal. Escreva o nome correto da pessoa para quem quer mandar a mensagem."
PRINT ""
PRINT "Alguns arquivos especiais dos sistemas espec¡ficos podem ser lidos. Comentando  suas palavras-chave no Bar, podem conduzi-lo … missäes especiais."
END IF
PRINT ""
INPUT "Algo mais?(s/n)", ajud$
som = 6: Sons
IF ajud$ = "s" THEN
GOTO ajud
END IF

CASE "t"
CLS
PRINT "Tecnauta"
PRINT ""
LOCATE 2, 1
PRINT "Em Overrun seu personagem ‚ um Tecnauta, um mago da Matriz, capaz de coisas     inimagin veis para os usu rios comuns da rede."
PRINT ""
PRINT "O tecnauta tem trˆs atributos importantes para ele: Seu racioc¡nio , sua        perseveran‡a e sua habilidade de computa‡Æo."
PRINT ""
PRINT "O racioc¡nio determina sua velocidade de a‡Æo e percepcÆo na Matriz."
PRINT ""
PRINT "A computa‡Æo ‚ seu conhecimento de como operar e programar na Matriz."
PRINT ""
PRINT "A perseveran‡a ajuda a reduzir danos mentais causados por GELOs negros e a se   desconectar quando eles te prendem no n¢."
PRINT ""
PRINT "Vocˆ pode aumentar o n¡vel deles usando a experiˆncia recebida por completar    missäes ou derrotar GELOs dif¡ceis."
PRINT ""
PRINT "O custo em experiˆncia para aumentar os atributos depende do valor atual deles."
PRINT ""
INPUT "Algo mais?(s/n)", ajud$
som = 6: Sons
IF ajud$ = "s" THEN
GOTO ajud
END IF


END SELECT
END SUB

SUB Apresentacao
CLS
SCREEN 12
COLOR 10
RANDOMIZE TIMER

ponto:
n = n + 1
n1 = INT(RND * 27) + 1
n2 = INT(RND * 78) + 1
LOCATE n1, n2
SELECT CASE INT(RND * 58) + 1
CASE 1
PRINT "q"
CASE 2
PRINT "w"
CASE 3
PRINT "e"
CASE 4
PRINT "r"
CASE 5
PRINT "t"
CASE 6
PRINT "y"
CASE 7
PRINT "u"
CASE 8
PRINT "i"
CASE 9
PRINT "o"
CASE 10
PRINT "p"
CASE 11
PRINT "a"
CASE 12
PRINT "s"
CASE 13
PRINT "d"
CASE 14
PRINT "f"
CASE 15
PRINT "g"
CASE 16
PRINT "h"
CASE 17
PRINT "j"
CASE 18
PRINT "k"
CASE 19
PRINT "l"
CASE 20
PRINT "z"
CASE 21
PRINT "x"
CASE 22
PRINT "c"
CASE 23
PRINT "v"
CASE 24
PRINT "b"
CASE 25
PRINT "n"
CASE 26
PRINT "m"
CASE 27
PRINT "1"
CASE 28
PRINT "2"
CASE 29
PRINT "3"
CASE 30
PRINT "4"
CASE 31
PRINT "5"
CASE 32
PRINT "6"
CASE 33
PRINT "7"
CASE 34
PRINT "8"
CASE 35
PRINT "9"
CASE 36
PRINT "0"
CASE 37 TO 47
PRINT "1"
CASE 48 TO 58
PRINT "0"
END SELECT
IF INKEY$ = "" THEN
GOTO ponto
END IF

LOCATE 9, 24
PRINT "                              "
LOCATE 10, 24
PRINT "            OVERRUN           "
LOCATE 11, 24
PRINT "          VersÆo 1.6          "
LOCATE 12, 24
PRINT "          Janos Biro          "
LOCATE 13, 24
PRINT "                              "
LOCATE 14, 24
PRINT "                              "
LOCATE 15, 24
PRINT "       A Matriz esconde       "
LOCATE 16, 24
PRINT "   mais do que vocˆ imagina   "
LOCATE 17, 24
PRINT "                              "

LOCATE 28, 1
INPUT "Som?(s/n)", somligado$

END SUB

SUB Atributos
som = 6: Sons

denovo2:
CLS
PRINT nome$
PRINT ""
PRINT "Racioc¡nio:      "; rac
PRINT "Perseveran‡a:    "; per
PRINT "Computa‡Æo:      "; comp
PRINT ""
PRINT "Experiˆncia:"; xp
PRINT ""
INPUT "Atributo a ser melhorado: Racioc¡nio(r), Perseveran‡a(p) ou Computa‡Æo(c)", escl$
PRINT ""

SELECT CASE escl$
CASE "r"
cxp = (rac + 1) * 2
IF cxp > xp THEN PRINT "Experiˆncia insuficiente para melhorar esse atributo": GOTO fim2
PRINT "Custo em experiˆncia: ", cxp
INPUT "Melhorar Racioc¡nio?(s/n)", sn$
IF sn$ = "s" THEN rac = rac + 1: xp = xp - cxp

CASE "p"
cxp = (per + 1) * 1.5
IF cxp > xp THEN PRINT "Experiˆncia insuficiente para melhorar esse atributo": GOTO fim2
PRINT "Custo em experiˆncia: ", cxp
INPUT "Melhorar Perseveran‡a?(s/n)", sn$
IF sn$ = "s" THEN per = per + 1: xp = xp - cxp

CASE "c"
cxp = (comp + 1) * 3
IF cxp > xp THEN PRINT "Experiˆncia insuficiente para melhorar esse atributo": GOTO fim2
PRINT "Custo em experiˆncia: ", cxp
INPUT "Melhorar Computa‡Æo?(s/n)", sn$
IF sn$ = "s" THEN comp = comp + 1: xp = xp - cxp

END SELECT
som = 6: Sons

fim2:
PRINT ""
INPUT "Continuar?(s/n)", cont$
som = 6: Sons
IF cont$ = "s" THEN GOTO denovo2

som = 6: Sons
som = 1: Sons
END SUB

SUB Codigos
som = 6: Sons

conectes:
CLS
PRINT "C¢digos conhecidos:"
PRINT codmnna$
PRINT codmits$
PRINT codnexs$
PRINT codfirm$
PRINT codzuri$
PRINT codfuch$
PRINT codshia$
PRINT codrenr$
PRINT codares$
LOCATE 13, 1
INPUT "Entre com o c¢digo: ", sistem$

SELECT CASE sistem$

CASE "mnna"
IF codmnna$ = "" THEN GOTO invalido
MNNA
GOTO volta

CASE "mits"
IF codmits$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "nexs"
IF codnexs$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "firm"
IF codfirm$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "zuri"
IF codzuri$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "fuch"
IF codfuch$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "shia"
IF codshia$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "renr"
IF codrenr$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "ares"
IF codares$ = "" THEN GOTO invalido
sistemaes = 1
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

END SELECT


invalido:
PRINT "Codigo inv lido"
som = 1: Sons
SLEEP 1: INPUT "Continuar?(s/n)", cont$
IF cont$ = "s" THEN GOTO conectes

volta:
Conectar
END SUB

SUB Conectar
memor = memormax
inte = intemax
conect:
CLS
inte = intemax
PRINT "Conec‡Æo na Matriz:"
PRINT ""
PRINT "Sistema Aleat¢rio(sa)"
PRINT "Sistema Espec¡fico(se)"
PRINT "Receptador(r)"
PRINT "Hacker's Shop(hs)"
PRINT "Hacker's Virtual Bar(hb)"
PRINT "Neuroterminal(n)"
LOCATE 10, 1
INPUT "Conectar: ", conec$

SELECT CASE conec$

CASE "sa"
sistem$ = ""
sistemaes = 0
CHAIN "C:\Blarg!\Overrun\Sistemas.bas"

CASE "se"
Codigos

CASE "r"
Receptador

CASE "hs"
Hackershop

CASE "hb"
Hackerbar

CASE "n"
GOTO voltar

CASE ELSE
INPUT "NÆo existe essa op‡Æo!", press
GOTO conect

END SELECT

voltar:
END SUB

SUB Criacao
som = 6: Sons

cria:
pontos = 10
CLS
PRINT "Cria‡Æo do Tecnauta:"
PRINT ""
PRINT "Atributos: 1 a 5"
PRINT ""
PRINT "Racioc¡nio:"
PRINT "Perseveran‡a:"
PRINT "Computa‡Æo:"
PRINT ""
PRINT "Pontos: "; pontos

LOCATE 5, 15
INPUT "", rac
IF rac < 1 THEN GOTO cria
IF rac > 5 THEN GOTO cria
pontos = pontos - rac
LOCATE 9, 1
PRINT "Pontos: "; pontos

LOCATE 6, 15
INPUT "", per
IF per < 1 THEN GOTO cria
IF per > 5 THEN GOTO cria
pontos = pontos - per
LOCATE 9, 1
PRINT "Pontos: "; pontos

LOCATE 7, 15
INPUT "", comp
IF comp < 1 THEN GOTO cria
IF comp > 5 THEN GOTO cria
pontos = pontos - comp
IF pontos < 0 THEN GOTO cria
LOCATE 9, 1
PRINT "Pontos: "; pontos

INPUT "", press

som = 6: Sons
END SUB

SUB Hackerbar

CLS
RANDOMIZE TIMER

PRINT "Vocˆ est  no Hacker's Virtual Bar, um lugar secreto onde os hackers se          encontram."
PRINT "Esse bar se parece com antigas boates de shows de rock, com pouca luz e cheio devideo-games."
PRINT ""
PRINT "Para falar pessoalmente digite: Mensagem pessoal(m)"
PRINT "Para observar o bar digite: Olhar ao redor(o)"
PRINT "Para observar uma persona digite: Observar persona(op)"
PRINT "Para sair digite: Sair(s)"
PRINT ""
INPUT "Pressine Enter para entrar", press
som = 6: Sons

CLS
PRINT "Personas vis¡veis:"
PRINT ""
PRINT nome$

IF INT(100 * RND) + 1 < 50 THEN
Misfill$ = "s"
PRINT "Misfill"
END IF

IF INT(100 * RND) + 1 < 70 THEN
Skinpact$ = "s"
PRINT "Skinpact"
END IF

IF INT(100 * RND) + 1 < 65 THEN
Ahaizer$ = "s"
PRINT "Ahaizer"
END IF

IF INT(100 * RND) + 1 < 75 THEN
Crapper$ = "s"
PRINT "Crapper"
END IF

IF INT(100 * RND) + 1 < 45 THEN
Ladybythron$ = "s"
PRINT "Lady Bythron"
END IF

IF INT(100 * RND) + 1 < 30 THEN
Squivo$ = "s"
PRINT "Squivo"
END IF

IF INT(100 * RND) + 1 < 55 THEN
Whoelse$ = "s"
PRINT "Whoelse"
END IF

IF INT(100 * RND) + 1 < 45 THEN
Martirir$ = "s"
PRINT "Martirir"
END IF

IF INT(100 * RND) + 1 < 20 THEN
Jerusalem$ = "s"
PRINT "Jerusalem"
END IF

IF INT(100 * RND) + 1 < 40 THEN
Webster$ = "s"
PRINT "Webster"
END IF

PRINT ""
SLEEP 3

chat:

IF INT(100 * RND) + 1 < 5 AND Misfill$ = "" THEN
Misfill$ = "s"
PRINT ">>>Misfill entrou no bar"
SLEEP 1
PRINT ">>>Misfill: Ae, gente!"
END IF

IF INT(100 * RND) + 1 < 5 AND Skinpact$ = "" THEN
Skinpact$ = "s"
PRINT ">>>Skinpact entrou no bar"
SLEEP 1
PRINT ">>>Skinpact: Ae!"
END IF

IF INT(100 * RND) + 1 < 5 AND Ahaizer$ = "" THEN
Ahaizer$ = "s"
PRINT ">>>Ahaizer entrou no bar"
SLEEP 1
PRINT ">>>Ahaizer: Olah pessoal!"
END IF

IF INT(100 * RND) + 1 < 5 AND Crapper$ = "" THEN
Crapper$ = "s"
PRINT ">>>Crapper entrou no bar"
SLEEP 1
PRINT ">>>Crapper: Voltei!"
END IF

IF INT(100 * RND) + 1 < 5 AND Ladybythron$ = "" THEN
Ladybythron$ = "s"
PRINT ">>>Lady Bythron entrou no bar"
SLEEP 1
PRINT ">>>Lady Bythron: Ol  rapazes!"
END IF

IF INT(100 * RND) + 1 < 3 AND Squivo$ = "" THEN
Squivo$ = "s"
PRINT ">>>Squivo entrou no bar"
SLEEP 1
PRINT ">>>Squivo: Com licen‡a, senhores hackers."
END IF

IF INT(100 * RND) + 1 < 5 AND Whoelse$ = "" THEN
Whoelse$ = "s"
PRINT ">>>Whoelse entrou no bar"
SLEEP 1
PRINT ">>>Whoelse: Adivinha quem eh?"
END IF

IF INT(100 * RND) + 1 < 5 AND Martirir$ = "" THEN
Martirir$ = "s"
PRINT ">>>Martirir entrou no bar"
SLEEP 1
PRINT ">>>Martirir: Meus cumprimentos a todos"
END IF

IF INT(100 * RND) + 1 < 5 AND Jerusalem$ = "" THEN
Jerusalem$ = "s"
PRINT ">>>Jerusalem entrou no bar"
SLEEP 1
PRINT ">>>Jerusalem observa atentamente a cada um"
END IF

IF INT(100 * RND) + 1 < 5 AND Webster$ = "" THEN
Webster$ = "s"
PRINT ">>>Webster se torna vis¡vel"
SLEEP 1
PRINT ">>>Webster: Pronto, qual o problema?"
END IF


IF Misfill$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Misfill: Falow, tenho que ir"
SLEEP 1
PRINT ">>>Misfill desconectou"
Misfill$ = ""

CASE 51 TO 55
PRINT ">>>Misfill: Entrei num sistema* bem gelado agora!!"
CASE 56 TO 60
PRINT ">>>Misfill: Putz! Que coment rio mais desnecess rio!"
CASE 61 TO 65
PRINT ">>>Misfill: Kra!! NÆo beba antes de conectar!"
CASE 66 TO 70
PRINT ">>>Misfill: Eu disse isso?"
CASE 71 TO 75
PRINT ">>>Misfill: Ah, deixa pra lah!"
CASE 76 TO 80
PRINT ">>>Misfill: Retardamento* nÆo ‚ ruim como pensam"
CASE 81 TO 85
PRINT ">>>Misfill: Quem usa Veneno* a¡?"
CASE 86 TO 90
PRINT ">>>Misfill: Q q foi?"
CASE 91 TO 95
PRINT ">>>Misfill: O Crapper* eh um idiota!"
CASE 96 TO 100
PRINT ">>>Misfill: Webster, kd vc?!"
SLEEP 1
PRINT ">>>Webster: Aki"
END SELECT
SLEEP 1
END IF


IF Ahaizer$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Ahaizer: Falow, to indo"
SLEEP 1
PRINT ">>>Ahaizer desconectou"
Ahaizer$ = ""

CASE 51 TO 55
PRINT ">>>Ahaizer: Vcs estÆo falando disso denovo?"
CASE 56 TO 60
PRINT ">>>Ahaizer: Tem um porte* bom em Athabascan"
CASE 61 TO 65
PRINT ">>>Ahaizer: Que tipo eh?"
CASE 66 TO 70
PRINT ">>>Ahaizer: Eu estou na Alemanha*, saca? Aqui ‚ bem diferente"
CASE 71 TO 75
PRINT ">>>Ahaizer: Esquece!"
CASE 76 TO 80
PRINT ">>>Ahaizer: Odeio isso!"
CASE 81 TO 85
PRINT ">>>Ahaizer: Mas e da¡?"
CASE 86 TO 90
PRINT ">>>Ahaizer: Existem tecs de empresa que ainda mant‚m a honra. SÆo raros"
CASE 91 TO 95
PRINT ">>>Ahaizer: Nein! Du hast!"
CASE 96 TO 100
PRINT ">>>Ahaizer: Nem tudo ‚ como parece..."
END SELECT
SLEEP 1

END IF


IF Skinpact$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Skinpact: Falow nerds!"
SLEEP 1
PRINT ">>>Skinpact desconectou"
Skinpact$ = ""


CASE 51 TO 55
PRINT ">>>Skinpact: Isso nÆo ‚ nada!!"
CASE 56 TO 60
PRINT ">>>Skinpact: Vcs precisam checar o Denver Nexus*! Aquilo ‚ pior q o inferno!"
CASE 61 TO 65
PRINT ">>>Skinpact: Quando ‚ que algu‚m aqui vai derrubar o Pyro*?"
CASE 66 TO 70
PRINT ">>>Skinpact: Eu jah mandei vcs pro inferno?"
CASE 71 TO 75
PRINT ">>>Skinpact: q?"
CASE 76 TO 80
PRINT ">>>Skinpact: blz"
CASE 81 TO 85
PRINT ">>>Skinpact: VÆo pro inferno!! Eu nÆo suporto ficar esperando."
CASE 86 TO 90
PRINT ">>>Skinpact: RESPONDE WEBSTER!!!!!!"
CASE 91 TO 95
PRINT ">>>Skinpact: Eu fiquei sabendo o verdadeiro sentido de estar frito*."
CASE 96 TO 100
PRINT ">>>Skinpact: Sei de algo para colocar em Shadowland*"
END SELECT
SLEEP 1
END IF

IF Crapper$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Crapper: jah volto"
SLEEP 1
PRINT ">>>Crapper desconectou"
Crapper$ = ""

CASE 51 TO 55
PRINT ">>>Crapper: Eu quebrei aquele gelinho* est£pido"
CASE 56 TO 60
PRINT ">>>Crapper: eh vc!"
CASE 61 TO 65
PRINT ">>>Crapper diz a vocˆ: Quer um c¢digo* de sistema bom e com seguran‡a baixa?"
CASE 66 TO 70
PRINT ">>>Crapper diz a vocˆ: Aqui s¢ tem babaca"
CASE 71 TO 75
PRINT ">>>Crapper: Mentira!"
CASE 76 TO 80
PRINT ">>>Crapper: Ah, cala a boca!!"
CASE 81 TO 85
PRINT ">>>Crapper: Quer duelar eh?"
CASE 86 TO 90
PRINT ">>>Crapper: SEU VIADO!!!"
CASE 91 TO 95
PRINT ">>>Crapper: NÆo eh nada disso, seu burro!"
CASE 96 TO 100
PRINT ">>>Crapper: Quem eh o idiota agora?!"
END SELECT
SLEEP 1
END IF


IF Ladybythron$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Lady Bythron: Tchau, tenho que ir"
SLEEP 1
PRINT ">>>Lady Bythron desconectou"
Ladybythron$ = ""

CASE 51 TO 55
PRINT ">>>Lady Bythron: Eu acho que jah fiz isso"
CASE 56 TO 60
PRINT ">>>Lady Bythron: Quando ‚ que vcs vÆo aprender?"
CASE 61 TO 65
PRINT ">>>Lady Bythron diz a vocˆ: Ol  "; nome$
CASE 66 TO 70
PRINT ">>>Lady Bythron diz a vocˆ: Tudo* bem?"
CASE 71 TO 75
PRINT ">>>Lady Bythron: Entendeu?"
CASE 76 TO 80
PRINT ">>>Lady Bythron: Isso vc j  disse!"
CASE 81 TO 85
PRINT ">>>Lady Bythron: T  bom, chega!"
CASE 86 TO 95 AND Martirir$ = "s"
PRINT ">>>Lady Bythron beija Martirir"
CASE 96 TO 100
PRINT ">>>Lady Bythron: Eu vi espelhos* num n¢ estranho da Renraku*"
END SELECT
SLEEP 1
END IF


IF Squivo$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Squivo: Adeus senhores. Sayonara."
SLEEP 1
PRINT ">>>Squivo desconectou"
Squivo$ = ""

CASE 51 TO 55
PRINT ">>>Squivo: Sei de uma empresa que merecia uma libera‡Æo* de dados."
CASE 56 TO 60
PRINT ">>>Squivo: Vocˆ est  longe do Estado da Arte*."
CASE 61 TO 65
PRINT ">>>Squivo diz a vocˆ: Bom dia "; nome$; ", ou ‚ noite* onde vocˆ est  ?"
CASE 66 TO 70
PRINT ">>>Squivo: NÆo ligue pra isso."
CASE 71 TO 75
PRINT ">>>Squivo: Meu caro, devo consultar meus contatos."
CASE 76 TO 80
PRINT ">>>Squivo: NÆo, nÆo foi com vocˆ."
CASE 81 TO 85
PRINT ">>>Squivo olha ao redor desconfiado"
CASE 86 TO 90
PRINT ">>>Squivo:  claro que poderia ser bem melhor que isso."
CASE 91 TO 95
PRINT ">>>Squivo: Vejam bem onde pisam. Algumas vezes nÆo d  tempo nem de desconectar"
CASE 96 TO 100
PRINT ">>>Squivo: Por que eu deveria me preocupar?"
END SELECT
SLEEP 1
END IF

IF Whoelse$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Whoelse desconectou"
Whoelse$ = ""

CASE 51 TO 55
PRINT ">>>Whoelse: Eu tava num lugar* negro e gelado, sabe?"
CASE 56 TO 60
PRINT ">>>Whoelse: Naum diga isso"
CASE 61 TO 65
PRINT ">>>Whoelse: Creio que eu nÆo precise explicar sobre o PS* de novo"
CASE 71 TO 75
PRINT ">>>Whoelse: E quem de n¢s j  nÆo fez isso?"
CASE 76 TO 80
PRINT ">>>Whoelse: Ter Disrup‡Æo ‚ essencial."
CASE 81 TO 85
PRINT ">>>Whoelse: Nem tente"
CASE 86 TO 90
PRINT ">>>Whoelse: Foi comigo?"
CASE 91 TO 95
PRINT ">>>Whoelse: Esquece isso, cara!"
CASE 96 TO 100
PRINT ">>>Whoelse: Vamos!"
END SELECT
SLEEP 1
END IF


IF Martirir$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 5
PRINT ">>>Martirir desconectou"
Martirir$ = ""

CASE 51 TO 55
PRINT ">>>Martirir: Quando se olha para o abismo*, o abismo olha pra vocˆ."
CASE 56 TO 60
PRINT ">>>Martirir: Eu tinha um amigo que virou tec de empresa. Uma pena."
CASE 61 TO 65
PRINT ">>>Martirir: Preciso de mais caf‚* sint‚tico!"
CASE 66 TO 70
PRINT ">>>Martirir: Lady Bythron... "
CASE 71 TO 75
PRINT ">>>Martirir: T“ ouvindo Nirvana*! Algu‚m se lembra?"
CASE 76 TO 80
PRINT ">>>Martirir: Ningu‚m aqui sabe do que eu estou falando?"
CASE 81 TO 85
PRINT ">>>Martirir: GELO Psicotr¢pico*. J  ouviu falar?"
CASE 86 TO 90
PRINT ">>>Martirir: Amigos sÆo aqueles que te matariam se vc pedisse."
CASE 91 TO 95
PRINT ">>>Martirir: O meu mentor* diz que esteve na equipe* de 29"
CASE 96 TO 100
PRINT ">>>Martirir: Tantos n¢s, tÆo pouco tempo..."
END SELECT
SLEEP 1
END IF


IF Jerusalem$ = "s" THEN
SELECT CASE INT(100 * RND) + 1


CASE 1 TO 5
PRINT ">>>Jerusalem desconectou"
Jerusalem$ = ""

CASE 66 TO 70
PRINT ">>>Jerusalem: NÆo entrem em Orbital Zurich*. Confiem em mim."
CASE 86 TO 90
PRINT ">>>Jerusalem: Qual de vocˆs invadiu* Denver Nexus?"
CASE 91 TO 95
PRINT ">>>Jerusalem: Estou numa missÆo agora, nÆo tenho tempo"
CASE 96 TO 100
PRINT ">>>Unsondo: Jerusalem, venha comigo."
SLEEP 1
PRINT ">>>Jerusalem: Unsondo*?"
SLEEP 1
PRINT ">>>Jerusalem desconectou"
Jerusalem$ = ""
END SELECT
SLEEP 1
END IF

      
IF Webster$ = "s" THEN
SELECT CASE INT(100 * RND) + 1

CASE 1 TO 50

CASE 51 TO 55
PRINT ">>>Webster: NÆo falem todos de uma vez"
CASE 56 TO 60
PRINT ">>>Webster: Um de cada vez!"
CASE 61 TO 65
PRINT ">>>Webster: Pronto?"
CASE 66 TO 70
PRINT ">>>Webster: Acho q naum entendi"
CASE 71 TO 75
PRINT ">>>Webster: Era isso?"
CASE 76 TO 80
PRINT ">>>Webster: Eu sabia que nÆo devia ter vindo hoje"
CASE 81 TO 85
PRINT ">>>Webster: Tenho um amigo na Ares*. Cara, como ele eh £til"
CASE 86 TO 90
PRINT ">>>Webster: Minha cabe‡a* jah est  doendo"
CASE 91 TO 95
PRINT ">>>Webster: ..."
CASE 96 TO 100
PRINT ">>>Webster: Pq tudo isso?!"
END SELECT
SLEEP 1
END IF


INPUT ">>>Vocˆ diz: ", fala$

SELECT CASE fala$

CASE "o"
PRINT ">>>"; nome$; " olha ao redor"
PRINT ""
PRINT "Vocˆ est  no Hacker's Virtual Bar, um lugar secreto onde os hackers se          encontram."
PRINT "Esse bar se parece com antigas boates de shows de rock, com pouca luz e cheio devideo-games."
PRINT ""
PRINT "Personas vis¡veis:"
PRINT ""
PRINT nome$

IF Misfill$ = "s" THEN
PRINT "Misfill"
END IF

IF Skinpact$ = "s" THEN
PRINT "Skinpact"
END IF

IF Ahaizer$ = "s" THEN
PRINT "Ahaizer"
END IF

IF Crapper$ = "s" THEN
PRINT "Crapper"
END IF

IF Ladybythron$ = "s" THEN
PRINT "Lady Bythron"
END IF

IF Squivo$ = "s" THEN
PRINT "Squivo"
END IF

IF Whoelse$ = "s" THEN
PRINT "Whoelse"
END IF

IF Martirir$ = "s" THEN
PRINT "Martirir"
END IF

IF Jerusalem$ = "s" THEN
PRINT "Jerusalem"
END IF

IF Webster$ = "s" THEN
PRINT "Webster"
END IF
PRINT ""
SLEEP 3
GOTO chat


CASE "s"
PRINT ">>>Desconectando..."
som = 6: Sons
som = 1: Sons
SLEEP 1
GOTO sair

CASE "m"
permp$ = ""
menpes$ = ""
INPUT ">>>Para quem?: ", permp$
INPUT ">>>Mensagem: ", menpes$
 
IF permp$ = "Misfill" AND Misfill$ = "s" THEN
PRINT ">>>Vocˆ diz para Misfill: "; menpes$
GOTO menmis
END IF

IF permp$ = "Ahaizer" AND Ahaizer$ = "s" THEN
PRINT ">>>Vocˆ diz para Ahaizer: "; menpes$
GOTO menaha
END IF

IF permp$ = "Skinpact" AND Skinpact$ = "s" THEN
PRINT ">>>Vocˆ diz para Skinpact: "; menpes$
GOTO menski
END IF

IF permp$ = "Crapper" AND Crapper$ = "s" THEN
PRINT ">>>Vocˆ diz para Crapper: "; menpes$
GOTO mencra
END IF

IF permp$ = "Lady" AND Ladybythron$ = "s" THEN
PRINT ">>>Vocˆ diz para Lady Bythron: "; menpes$
GOTO menlad
END IF

IF permp$ = "Squivo" AND Squivo$ = "s" THEN
PRINT ">>>Vocˆ diz para Squivo: "; menpes$
GOTO mensqu
END IF

IF permp$ = "Whoelse" AND Whoelse$ = "s" THEN
PRINT ">>>Vocˆ diz para Whoelse: "; menpes$
GOTO menwho
END IF

IF permp$ = "Martirir" AND Martirir$ = "s" THEN
PRINT ">>>Vocˆ diz para Martirir: "; menpes$
GOTO menmar
END IF

IF permp$ = "Jerusalem" AND Jerusalem$ = "s" THEN
PRINT ">>>Vocˆ diz para Jerusalem: "; menpes$
GOTO menjer
END IF

IF permp$ = "Webster" AND Webster$ = "s" THEN
PRINT ">>>Vocˆ diz para Webster: "; menpes$
GOTO menweb
END IF

PRINT ">>>Esta persona nÆo est  vis¡vel"
GOTO chat


CASE "op"
INPUT ">>>Quem?:", obsper$
IF obsper$ = "Misfill" AND Misfill$ = "s" THEN
PRINT "Vocˆ vˆ um human¢ide cintilante de ¢culos escuros e dentes brilhantes"
END IF
IF obsper$ = "Skinpact" AND Skinpact$ = "s" THEN
PRINT "Vocˆ vˆ um samurai ciborgue com uma armadura cheia de detalhes hologr ficos"
END IF
IF obsper$ = "Ahaizer" AND Ahaizer$ = "s" THEN
PRINT "Vocˆ vˆ um jovem com cal‡a jeans rasgada, camiseta vermelha e uma jaqueta de    couro com o s¡mbolo do policlube Der Nachtmachen"
END IF
IF obsper$ = "Crapper" AND Crapper$ = "s" THEN
PRINT "Vocˆ vˆ Um neo-punk de cabelos azuis espetados e roupas caras"
END IF
IF obsper$ = "Lady" AND Ladybythron$ = "s" THEN
PRINT "Vocˆ vˆ uma bela mulher de cabelos loiros longos num vestido colante vermelho   curto"
END IF
IF obsper$ = "Whoelse" AND Whoelse$ = "s" THEN
PRINT "Vocˆ vˆ um rapaz de cabelos longos com roupas que imitam a est tica de um tr¡deo"
END IF
IF obsper$ = "Squivo" AND Squivo$ = "s" THEN
PRINT "Vocˆ vˆ um menino negro de manto prateado"
END IF
IF obsper$ = "Martirir" AND Martirir$ = "s" THEN
PRINT "Vocˆ vˆ um ¡ndio muito tatuado com s¡mbolos tribais e circuitos"
END IF
IF obsper$ = "Jerusalem" AND Jerusalem$ = "s" THEN
PRINT "Vocˆ vˆ uma figura flutuante usando um sobretudo e portando uma espada de fogo"
END IF
IF obsper$ = "Webster" AND Webster$ = "s" THEN
PRINT "Vocˆ vˆ um homem com traje de aviador antigo coberto por detalhes cibern‚ticos"
END IF

CASE "Ressonƒncia"
IF Jerusalem$ = "s" THEN
SLEEP 1
PRINT ">>>Jerusalem a vocˆ: A Ressonƒncia Profunda ‚ o esp¡rito primordial da Matriz.  Alguns seres da Matriz o veneram como um deus."
END IF
GOTO chat

CASE "crian‡a"
IF Jerusalem$ = "s" THEN
SLEEP 1
PRINT ">>>Jerusalem a vocˆ: Sim. Sharik tem 8 anos de existˆncia na Matriz. Isso       assusta vocˆ?"
END IF
GOTO chat

CASE "sistema"
IF Misfill$ = "s" THEN
SLEEP 1
PRINT ">>>Misfill: Tenho uma entrada* para a Mitsuhama, mas eh confidencial"
END IF
GOTO chat

CASE "Veneno"
IF Misfill$ = "s" THEN
SLEEP 1
PRINT ">>>Misfill: Päe um v¡rus que ataca todos os tipos de programa. Eh o m ximo!"
END IF
GOTO chat

CASE "Retardamento"
IF Misfill$ = "s" THEN
SLEEP 1
PRINT ">>>Misfill: Usando, vocˆ ganha tempo para usar seus programas, entende?"
END IF
GOTO chat

CASE "Crapper"
IF Misfill$ = "s" THEN
SLEEP 1
PRINT ">>>Misfill: Ele eh um ot rio enganador"
END IF
IF Skinpact$ = "s" THEN
SLEEP 1
PRINT ">>>Skinpact: Se ouvir o q ele diz vai perder tempo!"
END IF
GOTO chat

CASE "Garnet"
IF Misfill$ = "s" AND var(1) = 1 THEN
var(1) = 2
SLEEP 1
PRINT ">>>Misfill diz para vocˆ: O que vocˆ sabe dessa empresa? diga pessoamente"
END IF
GOTO chat

CASE "Alemanha"
IF Ahaizer$ = "s" THEN
SLEEP 1
PRINT ">>>Ahaizer: Vim para fugir do meu ex-jonhson, sabe?"
END IF
GOTO chat

CASE "porte"
IF Ahaizer$ = "s" THEN
SLEEP 1
PRINT ">>>Ahaizer: Eh uma empresa* pequena, nÆo posso revelar o nome em p£blico"
END IF
GOTO chat

CASE "May"
IF Ahaizer$ = "s" AND var(2) = 1 THEN
var(2) = 2
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: May? A tec da Mitsuhama? Como vc sabe o nome dela? O que vocˆ sabe? Fala!"
END IF
GOTO chat

CASE "Nexus"
IF Skinpact$ = "s" THEN
SLEEP 1
PRINT ">>>Skinpact: Entrei por um c¢digo* que me deram, mas apanhei muito!"
END IF
GOTO chat

CASE "Pyro"
IF Skinpact$ = "s" THEN
SLEEP 1
PRINT ">>>Skinpact:  o tec da Ares, o pior que j  existiu!"
END IF
GOTO chat

CASE "frito"
IF Skinpact$ = "s" THEN
SLEEP 1
PRINT ">>>Skinpact: Acho que meu c‚rebro virou P¶."
END IF
GOTO chat

CASE "Shadowland"
IF Skinpact$ = "s" THEN
SLEEP 1
PRINT ">>>Skinpact: O informativo dos runners. Eles tˆm muita informa‡Æo."
END IF
GOTO chat

CASE "novos"
IF Skinpact$ = "s" THEN
IF var(2) = 1 THEN  ELSE GOTO chat
SLEEP 1: PRINT ">>>Skinpact diz a vocˆ: Cara, essa informa‡Æo tem que ser passada pro           nosso zine. Vamos conversar em particular."
SLEEP 1: PRINT ">>>Skinpact diz a vocˆ: Isso pode valer sua entrada pros Piratas de Sil¡cio, se vocˆ estiver interressado em entrar*. Quer?"
var(2) = 2
END IF
GOTO chat

CASE "gelinho"
IF Crapper$ = "s" THEN
SLEEP 1
PRINT ">>>Crapper: NÆo h  sistema que eu nÆo arrombe."
END IF
GOTO chat

CASE "?"
IF Crapper$ = "s" THEN
SLEEP 1
PRINT ">>>Crapper: Eh isso mesmo!"
END IF
GOTO chat

CASE "espelhos"
IF Ladybythron$ = "s" THEN
SLEEP 1
PRINT ">>>Lady Bythron: Eu entrei muito fundo e vi espelhos que cobriam as paredes! O  n¢ nÆo parecia ter uma cor comum. NÆo sei, nÆo fiquei muito tempo."
END IF
GOTO chat

CASE "Merk"
IF Ladybythron$ = "s" AND var(4) = 1 THEN
var(4) = 2
SLEEP 1
PRINT ">>>Lady Bythtron diz a vocˆ: O que vocˆ sabe dele? NÆo diga em p£blico!"
END IF
GOTO chat

CASE "libera‡Æo"
IF Squivo$ = "s" THEN
SLEEP 1
PRINT ">>>Squivo: Sim, ou extra‡Æo ind‚bita. Roubo, se preferir. Uma a‡Æo* que estou   movendo contra inescrupulosos empres rios no momento, porˆm isso exige discri‡Æo"
END IF
GOTO chat

CASE "testes"
IF Squivo$ = "s" AND var(6) = 1 THEN
var(6) = 2
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Vocˆ tem alguma coisa pra mim sobre isso?"
END IF
GOTO chat

CASE "acidente"
IF Squivo$ = "s" AND var(7) = 1 THEN
var(7) = 2
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Sim, eu sei do acidente, vocˆ descobriu novas informa‡äes?"
END IF
GOTO chat

CASE "Arte"
IF Squivo$ = "s" THEN
SLEEP 1
PRINT ">>>Squivo: Vocˆs nÆo se mant‚m atualizados e acham que sÆo o m ximo!"
END IF
GOTO chat

CASE "lugar"
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Eu tava numa missÆo* na Fuchi*!"
END IF
GOTO chat

CASE "missÆo"
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Eu estou tentando achar um cara* pra outro cara, entendeu?"
END IF
GOTO chat

CASE "cara"
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: O nome dele ‚ Taiw. Ele ‚ cientista."
END IF
GOTO chat

CASE "Taiw"
IF Whoelse$ = "s" AND var(5) = 1 THEN
var(5) = 2
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Ei! Eu tava atr s desse cara, mas nÆo consigo achar nada"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Diga o que sabe somente pra mim e eu prometo um pagamento se for uma boa informa‡Æo"
END IF
GOTO chat

CASE "UNAC"
IF Whoelse$ = "s" AND var(9) = 1 THEN
var(9) = 2
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Vc por acaso tem alguma coisa contra o governo?"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Se tiver conte comigo pra detonar com eles"
END IF
GOTO chat

CASE "PS"
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Os Piratas* de Sil¡cio, ora!"
END IF

CASE "Piratas"
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Meu grupo de hackers. N¢s temos um zine* pr¢prio."
END IF

CASE "zine"
IF Whoelse$ = "s" AND zine$ = "" THEN
SLEEP 1
PRINT ">>>Whoelse: Desculpe, s¢ para membros do grupo."
END IF
IF Whoelse$ = "s" AND zine$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Esse que vocˆ tem!"
END IF


CASE "Nirvana"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Load up your guns..."
END IF
GOTO chat

CASE "Psicotr¢pico"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Dizem que exite. Ele apaga sua mente, cara!"
END IF
GOTO chat

CASE "equipe"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: A equipe do v¡rus* de 2029, cara!"
END IF
GOTO chat

CASE "mentor"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Eh. Ele conhece uns programas* que vocˆ nunca ouviu falar."
END IF
GOTO chat

CASE "programas"
IF Martirir$ = "s" THEN
SLEEP 1
IF zine$ = "s" THEN
PRINT ">>>Martirir: Jah que vocˆ ‚ um cara legal eu vou te dizer. MNNA-KL-89672346. Vailah e aproveite, mas nÆo esquece o dinheiro que o Luc nÆo eh de fazer oferta."
SLEEP 1
codmnna$ = "MNNA-KL-89672346(mnna)"
som = 6: Sons
PRINT ">>>C¢digo salvo"
ELSE
PRINT ">>>Martirir: NÆo posso te dizer. O Luc nÆo gosta de iniciantes."
SLEEP 1
END IF
END IF
GOTO chat

CASE "v¡rus"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Eh cara, o crack de 29!! Putz, por onde vc andou?"
END IF
GOTO chat

CASE "abismo"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Lutando contra montros, nos tornamos um deles, saca? NÆo se deixe  levar pela mesma cobi‡a da empresa que ataca."
END IF
GOTO chat

CASE "caf‚"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Cafe¡na para me manter acordado, saca? Tenho passado noites em     claro procurando por dados contra a Humanis*"
END IF
GOTO chat

CASE "Humanis"
IF Martirir$ = "s" AND var(10) = 1 THEN
var(10) = 2
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: SÆo uns racistas est£pidos! Procuro uma liga‡Æo entre   eles e uma tal de Genetronics."
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Qualquer coisa sobre isso q tiver eu compro."
END IF
GOTO chat

CASE "UV"
IF var(11) = 1 THEN
var(11) = 2
IF Webster$ = "s" THEN
SLEEP 1
PRINT ">>>Webster: Cara! NÆo me diga que vc foi num UV e voltou!"
END IF
IF Jerusalem$ = "s" THEN
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Vocˆ chegou longe em suas intrusäes. Vocˆ viu coisas   que o colocaram em meu caminho. Minha missÆo agora ‚ tamb‚m a sua. Em Denver    Nexus eles aperfei‡oaram as prote‡äes dos UV."
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Sabe do que eu estou falando? Diga apenas para mim,    "; nome$; "."
END IF
END IF
GOTO chat

CASE "Ares"
IF Webster$ = "s" THEN
SLEEP 1
PRINT ">>>Webster: Eh, mas nÆo posso falar sobre isso assim."
END IF
GOTO chat

CASE "Unsondo"
IF Webster$ = "s" THEN
SLEEP 1
PRINT ">>>Webster: Nunca vi nem esse cara entrar aqui. Algo muito estranho aconteceu..."
END IF
GOTO chat

CASE "cabe‡a"
IF Webster$ = "s" THEN
SLEEP 1
PRINT ">>>Webster: NÆo aguento mais organizar isso aqui."
END IF
GOTO chat

CASE "laser"
IF Webster$ = "s" AND var(8) = 1 THEN
var(8) = 2
SLEEP 1
PRINT ">>>Webster: Isso vale 200 neoienes pra mim, se for consistente. Mas confio em   vocˆ, "; nome$
SLEEP 1
din = din + 200
PRINT ">>>Seu cr‚dito foi aumentado em 200"
SLEEP 1
PRINT ">>>Webster: Vc conseguiu achar o n¢ de acesso fantasma deles?"
END IF
GOTO chat

CASE "fantasma"
IF Webster$ = "s" THEN
SLEEP 1
PRINT ">>>Webster: Eh, eles tem um n¢ de acesso que de vez em quando t  l , de vez em  quando nÆo"
END IF
GOTO chat

CASE "info"
IF Webster$ = "s" AND var(12) = 1 THEN
var(12) = 2
SLEEP 1
PRINT ">>>Webster: Uau! Isso tem que ir pro zine PS n#19"
SLEEP 1
PRINT ">>>Webster: Isso vale uma recompensa."
SLEEP 1
som = 6: Sons
intemax = intemax + 10
PRINT ">>>Sua integridade foi aumentada em 10"
END IF
GOTO chat

CASE "subrotina"
IF Webster$ = "s" AND var(13) = 1 THEN
SLEEP 1
PRINT ">>>Webster: Uma subrotina falsa, como, por exemplo, a gerada por um programa de ilusÆo"
SLEEP 1
PRINT ">>>Webster: Talvez vocˆ possa gerar isso para essa tal de ¶ngela"
END IF
GOTO chat

END SELECT

SLEEP 1
GOTO chat

menmis:
SELECT CASE menpes$
CASE "entrada"
SLEEP 1
PRINT ">>>Misfill diz a vocˆ: NA/CL-JA-MITS-64926. Eh uma filial nova da Mitsuhama em  Granada, na Liga Caribenha. Se achar algo sobre processos me avise."
codmits$ = "NA/CL-JA-MITS-64926(mits)"
PRINT ">>>C¢digo salvo"
som = 16: Sons
CASE "valeu!"
SLEEP 1
PRINT ">>>Misfill diz a vocˆ: de nada"
CASE "espionagem"
IF var(1) = 2 THEN  ELSE GOTO chat
SLEEP 1: PRINT ">>>Misfill diz para vocˆ: Eu tenho um contato que se interessaria muito por isso"
SLEEP 2: PRINT ">>>Misfill diz para vocˆ: Posso vender a informa‡Æo pra ele por 200 neoienes.   150 pra vocˆ e 50 pra mim, que tal?(s/n)"
var(1) = 3
CASE "s"
IF var(1) = 3 THEN  ELSE GOTO chat
var(1) = 4
SLEEP 1
PRINT ">>>Misfill diz para vocˆ: àtimo, vamos fazer neg¢cio agora."
SLEEP 1
PRINT ">>>Seu cr‚dito foi aumentado em 150"
din = din + 150
SLEEP 2
PRINT ">>>Misfill diz para vocˆ: Foi bom fazer neg¢cios com vocˆ, mantenha contato."
CASE "n"
IF var(1) = 3 THEN  ELSE GOTO chat
var(1) = 4
SLEEP 1
PRINT ">>>Misfill diz para vocˆ: Tudo bem, eu arranjo com outro."
CASE ELSE
SLEEP 1
PRINT ">>>Misfill diz a vocˆ: q?"
END SELECT
GOTO chat

menski:
SELECT CASE menpes$
CASE "c¢digo"
SLEEP 1
PRINT ">>>Skinpact diz a vocˆ: DEN/DOW-NEXS-A6716203. Mas lah eh imposs¡vel!! Se vc foreu prometo que te visito cemit‚rio"
codnexs$ = "DEN/DOW-NEXS-A6716203(nexs)"
PRINT ">>>C¢digo salvo"
CASE "valeu!"
SLEEP 1
PRINT ">>>Skinpact diz a vocˆ: O funeral eh seu"
CASE "Crapper"
SLEEP 1
PRINT ">>>Skinpact diz a vocˆ: Ele eh um mentiroso"
CASE "entrar"
IF var(2) = 2 THEN  ELSE GOTO chat
var(2) = 3
SLEEP 1
PRINT ">>>Skinpact diz a vocˆ: Vamos fazer uma c¢pia disso entÆo."
SLEEP 1
PRINT ">>>Skinpact anuncia: "; nome$; ", vc eh o novo membro dos Piratas!"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir: Bem-vindo ao grupo!"
END IF
IF Squivo$ = "s" THEN
SLEEP 1
PRINT ">>>Squivo: Parab‚ns "; nome$; "!"
END IF
IF Ladybythron$ = "s" THEN
SLEEP 1
PRINT ">>>Lady Bythron: Eh isso a¡ "; nome$; "!"
END IF
IF Whoelse$ = "s" THEN
SLEEP 1
PRINT ">>>Whoelse: Mais um! SÆo 7 agora?"
END IF
SLEEP 1
PRINT ">>>Webster: Um novo membro eh? Escute; sempre que precisar de ajuda, conte com agente. N¢s nos ajudamos mutuamente, entende?"
SLEEP 1
PRINT ">>>Webster: tome um resumo do nosso zine, tem informa‡äes sobre GELOs e empresas"
SLEEP 1
PRINT ">>>Webster: No pr¢ximo n£mero incluiremos sua descoberta."
zine$ = "s"
CASE ELSE
SLEEP 1
PRINT ">>>Skinpact diz a vocˆ: Heim?"
END SELECT
GOTO chat

menaha:
SELECT CASE menpes$
CASE "empresa"
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: NA/ATH-FIRM-01862. Bem f cil. Eh uma loja sem experiˆnciana Matriz."
codfirm$ = "NA/ATH-FIRM-01862(firm)"
PRINT ">>>C¢digo salvo"
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: Por‚m parece que h  algo escondido* lah."
CASE "escondido"
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: Me disseram que essa empresa ‚ uma fachada de outra bem  maior. S¢ h  como entrar na verdadeira desligando o sistema da falsa"
CASE "valeu!"
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: vai fundo!"
CASE "intrusÆo"
IF var(2) = 2 THEN  ELSE GOTO chat
var(2) = 3
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: o que cara? Ela eh minha amiga saca, ela nÆo eh bem uma  tec."
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: Ela precisa saber disso! Esse tal de Gred Maota eh um    desgra‡ado"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: Eh verdade que ela ajudou uns runners a¡, ela t          infiltrada lah, sabe?"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: eu preciso ajudar ela, soh que atualmente eu t“ na       Alemanha e meu neuro t  impedido"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: Cara, vc entrou lah de boa. Ser  que vocˆ nÆo podia      entrar lah denovo?"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: fala meu nome verdadeiro pra ela, Lucas Sage, e avisa elapra fugir o mais r pido poss¡vel"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: Se vc puder fazer isso, eu serei muito grato cara"
SLEEP 2
PRINT ">>>Ahaizer diz a vocˆ: 180 neoienes grato para ser exato, vc vai?(s/n)"
CASE "s"
IF var(2) = 3 THEN  ELSE GOTO chat
var(2) = 4
SLEEP 1
missaomay$ = "s"
PRINT ">>>Ahaizer diz a vocˆ: Valeu cara! Traga a resposta dela e eu te dou a grana"
CASE "n"
IF var(2) = 3 THEN  ELSE GOTO chat
var(2) = 4
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: NÆo?! Certo arranjo outro amigo"
CASE "Lukage"
IF missaomay$ = "c" THEN
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: Entendi. Valeu cara, toma o que te prometi."
SLEEP 1
PRINT ">>>Seu cr‚dito foi aumentado em 180"
din = din + 180
missaomay$ = "f"
xp = xp + 8
END IF
CASE ELSE
SLEEP 1
PRINT ">>>Ahaizer diz a vocˆ: Ah..."
END SELECT
GOTO chat

mencra:
SELECT CASE menpes$
CASE "c¢digo"
PRINT ">>>Crapper diz a vocˆ: Vc achou que eu ia te dar um c¢digo assim tÆo f cil?     Ot rio!"
SLEEP 1
CASE "valeu!"
SLEEP 1
PRINT ">>>Crapper diz a vocˆ: Vai lah!"
CASE ELSE
SLEEP 1
PRINT ">>>Crapper diz a vocˆ: eh?"
END SELECT
GOTO chat

menwho:
SELECT CASE menpes$
CASE "Fuchi"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: NA/UNECAM-SEA-FUCH-4793874. Na Fuchi de Seattle.         Informa‡Æo quente eh lah mesmo."
codfuch$ = "NA/UNECAM-SEA-FUCH-4793874(fuch)"
PRINT ">>>C¢digo salvo"
CASE "valeu!"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Soh"
CASE "extra‡Æo"
IF var(5) = 2 THEN  ELSE GOTO chat
var(5) = 3
SLEEP 1: PRINT ">>>Whoelse diz a vocˆ: Sim, eu sei disso. Eu estou tentando resgat -lo"
SLEEP 1: PRINT ">>>Whoelse diz a vocˆ: Se quizer me ajudar desligando o sistema secund rio da   Mitsuhama providencio o pagamento por parte do meu Jonhson"
missaotaiw$ = "s"
CASE "localizado"
IF missaotaiw$ = "c" THEN
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Vc desligou o sistema, parab‚ns! Tome sua parte"
SLEEP 1
din = din + 300
PRINT ">>>Seu cr‚dito foi aumentado em 300"
missaotaiw$ = "f"
xp = xp + 6
END IF
CASE "liga‡äes"
IF var(9) = 2 THEN  ELSE GOTO chat
var(9) = 3
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: O Q? Isso ‚... a melhor prova de conspira‡Æo             governamental que eu j  vi!"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Vamos fazer uma chantagem com isso, cara!"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: Vamos copiar e exigir um milhÆo neoienes!!!"
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: NÆo...‚ muito arriscado.  melhor dar isso para          chantagistas profissonais. Venda ao seu receptador mesmo, deve valer muito."
CASE ELSE
SLEEP 1
PRINT ">>>Whoelse diz a vocˆ: blz"
END SELECT
GOTO chat

mensqu:
SELECT CASE menpes$
CASE "noite"
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Certo. O importante eh a inten‡Æo, neh?"
CASE "a‡Æo"
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: NA/UNECAM-SEA-SHIA-64839. A Shiawase est  fazendo testes   em cobaias ilegais. E eu estou atrapalhando. Se descobrir algo me avise."
codshia$ = "NA/UNECAM-SEA-SHIA-64839(shia)"
PRINT ">>>C¢digo salvo"
CASE "valeu!"
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Esteja a vontade."
CASE "sencientes"
IF var(6) = 2 THEN  ELSE GOTO chat
var(6) = 3
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Era exatamente isso que eu estava procurando, agora       podemos invadir* o local."
SLEEP 1
din = din + 100
PRINT ">>>Seu cr‚dito foi aumentado em 100"
CASE "invadir"
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Sim, meu grupo* vai invadi-lo fisicamente e eu pela       Matriz."
CASE "grupo"
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: De shadowrunners.  claro que eu nÆo estou nessa s¢ por   dinheiro, mas tenho contas pra pagar."
CASE "falso"
IF var(7) = 2 THEN  ELSE GOTO chat
var(7) = 3
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Sim, ‚ verdade. Mesmo um acidente com 17 mortos ‚ menos   prejudicial … imagem da empresa que uma a‡Æo que deliberadamente causou 100     mortes"
SLEEP 2
PRINT ">>>Squivo diz a vocˆ: Sabe do que eu estou falando? Chacina empresarial sem     precedentes!"
SLEEP 2
PRINT ">>>Squivo diz a vocˆ: Mas esque‡a isso, nÆo h  nada que se possa fazer agora."
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Exceto se vingar."
PRINT ">>>>Squivo sorri sarcasticamente"
SLEEP 2
PRINT ">>>Squivo diz a vocˆ: Venda o arquivo e j  garantir  que algu‚m se vingue."
CASE ELSE
SLEEP 1
PRINT ">>>Squivo diz a vocˆ: Como eu suspeitava"
END SELECT
GOTO chat

menlad:
SELECT CASE menpes$
CASE "Tudo"
SLEEP 1
PRINT ">>>Lady Bythron sorri para vocˆ"
CASE "Renraku"
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: NA/UNECAM-SEA-RENR-735450. Mas tome cuidado! Se     encontrar algo perigoso, desconecte entendeu?"
codrenr$ = "NA/UNECAM-SEA-RENR-735450(renr)"
PRINT ">>>C¢digo salvo"
CASE "valeu!"
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: q isso, disponha"
CASE "queima"
IF var(4) = 2 THEN  ELSE GOTO chat
var(4) = 3
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: EntÆo era isso! Eles vÆo me matar!! Preciso"
PRINT "fugir da cidade o mais r pido poss¡vel."
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: Obrigado, vocˆ salvou minha vida."
PRINT "Mas temo nÆo ter como te pagar. O Martirir vai pensar em alguma coisa"
IF Martirir$ = "s" THEN
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: A Lady est  certa, vc precisa nos ajudar"
SLEEP 2
PRINT ">>>Martirir diz a vocˆ: Ela nÆo pode fugir da cidade agora, precisamos encontrar"
PRINT " provas contra Merk Tolh para tir -lo de circula‡Æo, vc pode me ajudar?"
PRINT " Responda sim ou nÆo apenas para mim agora.(s/n)"
END IF
CASE ELSE
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: nÆo sei...hehehe"
END SELECT
GOTO chat


menmar:
SELECT CASE menpes$
CASE "valeu!"
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: por nada"
CASE "s"
IF var(4) = 3 THEN  ELSE GOTO chat
var(4) = 4
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Combinado. Se achar algo em algum lugar, traga pra mim"
missaolady$ = "s"
CASE "n"
IF var(4) = 3 THEN  ELSE GOTO chat
var(4) = 4
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Entendo, obrigado mesmo assim"
CASE "provas"
IF missaolady$ = "c" THEN
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Vc conseguiu achar os arquivos!"
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Obrigado demais cara! Espero que isso sirva pra vc"
SLEEP 1
som = 6: Sons
IF util13 = 0 THEN
util13 = 6
PRINT ">>>Vocˆ ganhou o programa Explosivo. Ele causa dano ao combate, defesa e        velocidade do inimigo"
ELSE
util13 = util13 + util13 \ 2
PRINT ">>>Seu Explosivo foi aumentado"
END IF
missaolady$ = "f"
xp = xp + 10
END IF
IF Ladybythron$ = "s" THEN
SLEEP 1
PRINT ">>>Lady Bythron diz a vocˆ: Vocˆ conseguiu! Estou livre!"
SLEEP 1
PRINT ">>>Lady Bythron te d  um beijo"
ELSE
PRINT ">>>Martirir diz a vocˆ: A Lady o agradece"
END IF
CASE "anti-mutagˆnico"
IF var(10) = 2 THEN  ELSE GOTO chat
var(10) = 3
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Esse era o tipo de informa‡Æo q eu precisava para acabarcom o Humanis!"
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: Pegue isso em considera‡Æo ao trabalho que teve"
SLEEP 1
som = 6: Sons
IF util12 = 0 THEN
util12 = 6
PRINT ">>>Vocˆ ganhou o programa Teleporte. Ele exibe o mapa mesmo fora da CPU"
ELSE
util12 = util12 + util12 \ 2
PRINT ">>>Seu Teleporte foi aumentado"
END IF
CASE ELSE
SLEEP 1
PRINT ">>>Martirir diz a vocˆ: T  certo..."
END SELECT
GOTO chat

menjer:
SELECT CASE menpes$
CASE "Zurich"
IF missaosharik$ = "" THEN
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Simplesmente me ou‡a. L  est  fora de seu alcance."
ELSE
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Isso nÆo se aplica a vocˆ, ‚ claro."
END IF
CASE "IA"
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Em Denver Nexus uma delas saiu fora de controle!"
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: O nome dela ‚ ¶ngela. Ela est  l  se vocˆ quizer falar com ela e comprovar."
CASE "super-gelos"
IF var(11) = 2 THEN  ELSE GOTO chat
var(11) = 3
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Exatamente. IAs. Inteligˆncia Artificial."
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: GELOs auto-suficientes que aprendem e melhoram com seuserros."
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Se vocˆ quer tentar me ajudar v  a Denver Nexus e      procure arquivo sobre os IAs."
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Skinpact sabe o c¢digo."
missaoia$ = "s"
CASE "info"
IF missaoia$ = "c" THEN
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Perfeito "; nome$; ". Tome um presente."
SLEEP 1
som = 6: Sons
memormax = memormax + 10
PRINT ">>>Sua Mem¢ria foi aumentada em 10"
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Descobriu algo mais?"
missaoia$ = "f"
xp = xp + 15
END IF
CASE "subrotina"
IF var(13) = 1 THEN  ELSE GOTO chat
var(13) = 2
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Bem, isso muda um pouco as coisas. Mas era exatamente  isso que deveria acontecer"
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Liberte ¶ngela de sua prisÆo virtual e eu lhe          concederei os segredos mais profundos da Matriz, que se escodem em Orbital      Zurich"
missaoangela$ = "s"
CASE "valeu!"
SLEEP 1
PRINT ">>>Jerusalem meneia a cabe‡a"
CASE "Unsondo"
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Ele ‚ uma esp‚cie de vigia que sabe de tudo. Ele me    mostrou a verdade e eu devo mostr -la a vocˆ"
CASE "invadiu"
SLEEP 1
PRINT ">>>Jerusalem: L  existe algo bem perigoso e secreto. Melhor tomarem cuidado."
CASE "iluminado"
IF missaoangela$ = "c" THEN
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: Agora vocˆ est  pronto para mergulhar na verdade que   existe al‚m dos el‚trons."
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: V  at‚ Orbital Zurich, ORB-ZURI-093784, e procure a    crian‡a* chamada Sharik. Ele tem algo a lhe dizer."
missaoangela$ = "f"
xp = xp + 20
missaosharik$ = "s"
codzuri$ = "ORB-ZURI-093784(zuri)"
PRINT ">>>C¢digo salvo"
END IF
CASE ELSE
SLEEP 1
PRINT ">>>Jerusalem diz a vocˆ: sobre isso nÆo tenho o que dizer."
END SELECT
GOTO chat

menweb:
SELECT CASE menpes$
CASE "Ares"
SLEEP 1
PRINT ">>>Webster diz a vocˆ: NE/PH-ARES-647510. Ele me deu essa porta dos fundos..."
codares$ = "NE/PH-ARES-6475102(ares)"
PRINT ">>>C¢digo salvo"
CASE "valeu!"
SLEEP 1
PRINT ">>>Webster diz a vocˆ: Divirta-se!"
CASE ELSE
SLEEP 1
PRINT ">>>Webster diz a vocˆ: putz..."
END SELECT
GOTO chat


sair:
Conectar
END SUB

SUB Hackershop
som = 1: Sons
som = 6: Sons
CLS
PRINT "Bem-vindo ao Hacker's Shop, a loja virtual de programas para invasÆo."
PRINT "Escolha uma op‡Æo e compre seus programas."
PRINT "N¢s tamb‚m restauramos programas danificados e retiramos v¡rus do seu sistema"
PRINT "Fique a vontade para conferir os pre‡os."
SLEEP 1
PRINT ""
INPUT "Pressione Enter", press

shop:
CLS
PRINT "Nome:"; nome$
LOCATE 3, 1
PRINT "Velocidade(ve): "; veloc
PRINT "Mem¢ria(me):    "; memor; "/"; memormax
PRINT "Integridade(in):"; inte; "/"; intemax
LOCATE 6, 1
PRINT "Combate(c):     "; comb
PRINT "Defesa(de):     "; defes
LOCATE 9, 1
IF util1 > 0 THEN
PRINT "Retardamento(r):"; util1
END IF
IF util2 > 0 THEN
PRINT "M‚dico(m):      "; util2
END IF
IF util3 > 0 THEN
PRINT "Escudo(e):      "; util3
END IF
IF util4 > 0 THEN
PRINT "An lise(a):     "; util4
END IF
IF util5 > 0 THEN
PRINT "Fuga(f):        "; util5
END IF
IF util6 > 0 THEN
LOCATE 9, 22
PRINT "Disrup‡Æo(d):   "; util6
END IF
IF util7 > 0 THEN
LOCATE 10, 22
PRINT "IlusÆo(i):      "; util7
END IF
IF util8 > 0 THEN
LOCATE 11, 22
PRINT "Espelho(es):    "; util8
END IF
IF util9 > 0 THEN
LOCATE 12, 22
PRINT "Restaura‡Æo(re):"; util9
END IF
IF util10 > 0 THEN
LOCATE 13, 22
PRINT "Veneno(v):      "; util10
END IF
LOCATE 9, 43
IF util11 > 0 THEN
PRINT "Drenar:         "; util11
END IF
IF util12 > 0 THEN
LOCATE 10, 43
PRINT "Teleporte:      "; util12
END IF
IF util13 > 0 THEN
LOCATE 11, 43
PRINT "Explosivo:      "; util13
END IF
IF util14 > 0 THEN
LOCATE 12, 43
PRINT "Vendetta:       "; util14
END IF
IF util15 > 0 THEN
LOCATE 13, 43
PRINT "Prote‡Æo:       "; util15
END IF

LOCATE 28, 1
PRINT "Dinheiro:"; din

IF reparo$ = "n" THEN
GOTO compras
END IF
LOCATE 15, 1
IF veneno > 0 THEN
PRINT "V¡rus veneno detectado. Custar  "; veneno * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND veneno * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - veneno * 25
veneno = 0
GOTO shop
END IF
IF repar$ = "s" AND veneno * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF


IF intemax < intemaxv THEN
PRINT "Sua integridade est  danificada. Custar  "; (intemaxv - intemax) * 15; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (intemaxv - intemax) * 15 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (intemaxv - intemax) * 15
intemax = intemaxv
GOTO shop
END IF
IF repar$ = "s" AND (intemaxv - intemax) * 15 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF memormax < memormaxv THEN
PRINT "Sua Mem¢ria est  danificada. Custar  "; (memormaxv - memormax) * 20; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (memormaxv - memormax) * 20 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (memormaxv - memormax) * 20
memormax = memormaxv
GOTO shop
END IF
IF repar$ = "s" AND (memormaxv - memormax) * 20 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF veloc < velocv THEN
PRINT "Sua Velocidade est  danificada. Custar  "; (velocv - veloc) * 30; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (velocv - veloc) * 30 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (velocv - veloc) * 30
veloc = velocv
GOTO shop
END IF
IF repar$ = "s" AND (velocv - veloc) * 30 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF comb < combv THEN
PRINT "Seu Combate est  danificado. Custar  "; (combv - comb) * 40; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (combv - comb) * 40 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (combv - comb) * 40
comb = combv
GOTO shop
END IF
IF repar$ = "s" AND (combv - comb) * 40 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF defes < defesv THEN
PRINT "Sua Defesa est  danificada. Custar  "; (defesv - defes) * 30; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (defesv - defes) * 30 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (defesv - defes) * 30
defes = defesv
GOTO shop
END IF
IF repar$ = "s" AND (defesv - defes) * 30 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF


IF util1 < util1v THEN
PRINT "Seu Retardar est  danificado. Custar  "; (util1v - util1) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util1v - util1) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util1v - util1) * 25
util1 = util1v
GOTO shop
END IF
IF repar$ = "s" AND (util1v - util1) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util2 < util2v THEN
PRINT "Seu M‚dico est  danificado. Custar  "; (util2v - util2) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util2v - util2) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util2v - util2) * 25
util2 = util2v
GOTO shop
END IF
IF repar$ = "s" AND (util2v - util2) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util3 < util3v THEN
PRINT "Seu Escudo est  danificado. Custar  "; (util3v - util3) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util3v - util3) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util3v - util3) * 25
util3 = util3v
GOTO shop
END IF
IF repar$ = "s" AND (util3v - util3) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util4 < util4v THEN
PRINT "Seu An lise est  danificado. Custar  "; (util4v - util4) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util4v - util4) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util4v - util4) * 25
util4 = util4v
GOTO shop
END IF
IF repar$ = "s" AND (util4v - util4) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util5 < util5v THEN
PRINT "Seu Fuga est  danificado. Custar  "; (util5v - util5) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util5v - util5) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util5v - util5) * 25
util5 = util5v
GOTO shop
END IF
IF repar$ = "s" AND (utilv5 - util5) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util6 < util6v THEN
PRINT "Seu Disrup‡Æo est  danificado. Custar  "; (util6v - util6) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util6v - util6) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util6v - util6) * 25
util6 = util6v
GOTO shop
END IF
IF repar$ = "s" AND (util6v - util6) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util7 < util7v THEN
PRINT "Seu IlusÆo est  danificado. Custar  "; (util7v - util7) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util7v - util7) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util7v - util7) * 25
util7 = util7v
GOTO shop
END IF
IF repar$ = "s" AND (util7v - util7) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util8 < util8v THEN
PRINT "Seu Espelho est  danificado. Custar  "; (util8v - util8) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util8v - util8) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util8v - util8) * 25
util8 = util8v
GOTO shop
END IF
IF repar$ = "s" AND (util8v - util8) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util9 < util9v THEN
PRINT "Seu Restaurar est  danificado. Custar  "; (util9v - util9) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util9v - util9) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util9v - util9) * 25
util9 = util9v
GOTO shop
END IF
IF repar$ = "s" AND (util9v - util9) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF

IF util10 < util10v THEN
PRINT "Seu Veneno est  danificado. Custar  "; (util10v - util10) * 25; " para arrumar"
INPUT "Quer reparar agora?(s/n)", repar$
som = 6: Sons
END IF
IF repar$ = "s" AND (util10v - util10) * 25 <= din THEN
repar$ = "n"
SLEEP 1
PRINT "Consertado"
SLEEP 1
din = din - (util10v - util10) * 25
util10 = util10v
GOTO shop
END IF
IF repar$ = "s" AND (util10v - util10) * 25 > din THEN
PRINT "Dinheiro insuficiente"
som = 1: Sons
repar$ = "n"
END IF
reparo$ = "n"
GOTO shop

compras:
LOCATE 15, 1
PRINT "Utilit rios dipon¡veis: Retardamento(r), M‚dico(m), Escudo(e), An lise(a),      Fuga(f), Espelho(es), Restaura‡Æo(re), Disrup‡Æo(d), IlusÆo(i) e Veneno(v)"
PRINT ""
PRINT "Programas b sicos: Velocidade(ve), Mem¢ria(me), integridade(in), Combate(c)     e Defesa(de)"
PRINT ""
INPUT "Programa:", programa$
som = 6: Sons

SELECT CASE programa$
CASE "ve"
LOCATE 22, 1
INPUT "N¡vel:", nveloc
PRINT "Pre‡o:"; nveloc * 30
IF nveloc * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
veloc = nveloc
velocv = veloc
din = din - (nveloc * 30)
END IF

CASE "in"
LOCATE 22, 1
INPUT "N¡vel:", ninte
PRINT "Pre‡o:"; ninte * 10
IF ninte * 10 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
intemax = ninte
intemaxv = intemax
din = din - (ninte * 10)
END IF

CASE "c"
LOCATE 22, 1
INPUT "N¡vel:", ncomb
PRINT "Pre‡o:"; ncomb * 40
IF ncomb * 40 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
comb = ncomb
combv = comb
din = din - (ncomb * 40)
END IF

CASE "de"
LOCATE 22, 1
INPUT "N¡vel:", ndefes
PRINT "Pre‡o:"; ndefes * 30
IF ndefes * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
defes = ndefes
defesv = defes
din = din - (ndefes * 30)
END IF

CASE "r"
LOCATE 22, 1
INPUT "N¡vel:", nutil1
PRINT "Pre‡o:"; nutil1 * 30
IF nutil1 * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util1 = nutil1
util1v = util1
din = din - (nutil1 * 30)
END IF

CASE "m"
LOCATE 22, 1
INPUT "N¡vel:", nutil2
PRINT "Pre‡o:"; nutil2 * 30
IF nutil2 * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util2 = nutil2
util2v = util2
din = din - (nutil2 * 30)
END IF

CASE "e"
LOCATE 22, 1
INPUT "N¡vel:", nutil3
PRINT "Pre‡o:"; nutil3 * 30
IF nutil3 * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util3 = nutil3
util3v = util3
din = din - (nutil3 * 30)
END IF

CASE "a"
LOCATE 22, 1
INPUT "N¡vel:", nutil4
PRINT "Pre‡o:"; nutil4 * 25
IF nutil4 * 25 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util4 = nutil4
util4v = util4
din = din - (nutil4 * 25)
END IF

CASE "f"
LOCATE 22, 1
INPUT "N¡vel:", nutil5
PRINT "Pre‡o:"; nutil5 * 25
IF nutil5 * 25 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util5 = nutil5
util5v = util5
din = din - (nutil5 * 25)
END IF


CASE "me"
LOCATE 22, 1
INPUT "N¡vel:", nmemormax
PRINT "Pre‡o:"; nmemormax * 15
IF nmemormax * 15 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
memormax = nmemormax
memormaxv = memormax
memor = memormax
din = din - (nmemormax * 15)
END IF


CASE "d"
LOCATE 22, 1
INPUT "N¡vel:", nutil6
PRINT "Pre‡o:"; nutil6 * 35
IF nutil6 * 35 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util6 = nutil6
util6v = util6
din = din - (nutil6 * 35)
END IF

CASE "i"
LOCATE 22, 1
INPUT "N¡vel:", nutil7
PRINT "Pre‡o:"; nutil7 * 25
IF nutil7 * 25 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util7 = nutil7
util7v = util7
din = din - (nutil7 * 25)
END IF

CASE "es"
LOCATE 22, 1
INPUT "N¡vel:", nutil8
PRINT "Pre‡o:"; nutil8 * 30
IF nutil8 * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util8 = nutil8
util8v = util8
din = din - (nutil8 * 30)
END IF

CASE "re"
LOCATE 22, 1
INPUT "N¡vel:", nutil9
PRINT "Pre‡o:"; nutil9 * 30
IF nutil9 * 30 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util9 = nutil9
util9v = util9
din = din - (nutil9 * 30)
END IF

CASE "v"
LOCATE 22, 1
INPUT "N¡vel:", nutil10
PRINT "Pre‡o:"; nutil10 * 50
IF nutil10 * 50 > din THEN
PRINT "Dinheiro insuficiente"
ELSE
INPUT "Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util10 = nutil10
util10v = util10
din = din - (nutil10 * 50)
END IF

CASE ELSE
PRINT "NÆo dispon¡vel"
som = 1: Sons
END SELECT

PRINT ""
INPUT "Mais alguma coisa?", mais$
IF mais$ = "s" THEN
som = 6: Sons
GOTO shop
END IF
Conectar
END SUB

SUB Leitura
som = 6: Sons


ler:
CLS
LOCATE 1, 2
PRINT "Arquivos na mem¢ria:"
IF zine$ = "s" THEN
PRINT "Zine do Piratas de Sil¡cio n#18(zine)"
END IF
PRINT arq1$
PRINT arq2$
PRINT arq3$
PRINT arq4$
PRINT arq5$
PRINT arq6$
PRINT arq7$
PRINT arq8$
PRINT arq9$
PRINT arq10$
PRINT ""
INPUT "Arquivo a ser lido (digite o c¢digo):", arqsel$
PRINT ""
SELECT CASE arqsel$

CASE "processos"
CLS
PRINT "Processos encaminhados pela Mitsuhama"
PRINT ""
PRINT "Esse arquivo revela o nome de empresas que a Mitsuhama est  processando."
PRINT "Envolve provas de espionagem empresarial contra a Garnet Heavy Industries"
PRINT "Palavras-chave: Garnet, espionagem"
var(1) = 1
INPUT "Pressione enter", press

CASE "mail"
CLS
PRINT "E-mail interno da Mitsuhama"
PRINT "De: Gred Maota"
PRINT "Para: Dire‡Æo de seguran‡a"
PRINT ""
PRINT "Como sabem a seguran‡a f¡sica de nossa filial em Seattle foi comprometida"
PRINT "a alguns dias, por‚m os alertas foram cancelados por hackers no sistema."
PRINT "Estou convencido que nossa colega, a tecnauta May Osae tem alguma liga‡Æo"
PRINT "pois foi vista conversando com um desses supostos shadowrunners."
PRINT "Pe‡o investiga‡Æo quanto a essa possibilidade."
PRINT "    Obrigado"
PRINT "                                     Gred Maota"
PRINT "Palavras-chave: May, intrusÆo"
var(2) = 1
INPUT "Pressione enter", press


CASE "pr¢ximos"
CLS
PRINT "Pr¢ximos tempos na Fuchi"
PRINT ""
PRINT "Esse arquivo revela v rias melhorias na empresa para os pr¢ximos anos."
PRINT "Entre as novidades, fala sobre os GELOs Drake e DragÆo de Sil¡cio"
PRINT "Drake: este lagarto pode destru¡r programas e apagar arquivos dos invasores"
PRINT "DragÆo de Sil¡cio: como Drake, mas regenera suas fun‡äes"
PRINT "Palavra-chave: novos"
var(3) = 1
INPUT "Pressione enter", press

CASE "agenda"
CLS
PRINT "Agenda de compromissos de Merk Tolh"
PRINT ""
PRINT "Esse arquivo revela v rias a‡äes secretas de Tolh, inclusive as pessoais."
PRINT "Uma destas est  agendada para o mˆs que vem, e envolve a queima"
PRINT "de ex-empregados envolvidos na sua £ltima a‡Æo contra a Renraku"
PRINT "Palavras-chave: Merk, queima"
var(4) = 1
INPUT "Pressione enter", press

CASE "tecnologia"
CLS
PRINT "Tecnologia quƒntica na Fuchi"
PRINT ""
PRINT "Esse arquivo mostra os avan‡os da tecnologia quƒntica na Fuchi"
PRINT "Cita tamb‚m o nome de um cientista que recentimente foi extra¡do do projeto,"
PRINT "atrapalhando a resolu‡Æo final de certas pesquisas, Taiw Pobja"
PRINT "Palavras-chave: Taiw, extra‡Æo"
var(5) = 1
INPUT "Pressione enter", press

CASE "testes"
CLS
PRINT "Efeitos da radia‡Æo em paranimais sencientes"
PRINT ""
PRINT "Esse arquivo mostra resultados horr¡veis de testes de radia‡Æo em animais "
PRINT "despertados. EstÆo fazendo testes em paranimais inteligentes para ver como "
PRINT "isso pode afetar a psique e talentos m gicos deles."
PRINT "Palavras-chave: testes, sencientes"
var(6) = 1
INPUT "Pressione enter", press

CASE "acidente"
CLS
PRINT "Acidente com Plut“nio na  rea 23"
PRINT ""
PRINT "Esse arquivo cita as medidas tomadas quando houve um acidente com plut“nio"
PRINT "na Shiawase. Foram 17 mortos, e ao que parece, o n¡vel de radia‡Æo era"
PRINT "est vel. Sugere-se que o acidete foi falso, um chamariz para alguma outra"
PRINT "a‡Æo dentro da empresa."
PRINT "Palavras-chave: acidente, falso"
var(7) = 1
INPUT "Pressione enter", press

CASE "laser"
CLS
PRINT "Pr¢xima edi‡Æo do Ares MP laser"
PRINT ""
PRINT "Esse arquivo revela detalhes sobre o pr¢ximo lan‡amento da Ares em armamento"
PRINT "pesado, um laser mais compacto e que precisa de menos energia que as versäes"
PRINT "passadas."
PRINT "Palavra-chave: laser"
var(8) = 1
INPUT "Pressione enter", press

CASE "acordos"
CLS
PRINT "Acordos da Ares com a UniÆo das Na‡äes Americanas e Canadenses"
PRINT ""
PRINT "Esse arquivos revela liga‡äes secretas entre a Ares e a UNAC."
PRINT "Revela inclusive detalhes de a‡äes ilegais que a empresa faz pelo governo"
PRINT "Palavras-chave: UNAC, liga‡äes"
var(9) = 1
INPUT "Pressione enter", press

CASE "produ‡Æo"
CLS
PRINT "Produ‡Æo de anti-mutagˆnicos pela Genetronics"
PRINT ""
PRINT "Esse arquivo revela um acordo entre a Humanis e a Genetronics para a produ‡Æo"
PRINT "de agentes anti-mutagˆnicos, especificamente contra os genes dos metatipos"
PRINT "Ork e Troll. Eles querem fazer uma limpeza gen‚tica sem aviso colocando esse"
PRINT "produto na  gua das cidades com elevado ¡ndice de metahumanos."
PRINT "Palavras-chave: Humanis, anti-mutagˆnico"
var(10) = 1
INPUT "Pressione enter", press

CASE "uv"
CLS
PRINT "N¢s ultra-violetas na Renraku"
PRINT ""
PRINT "Esse arquivo revela os segredos dos poderosos n¢s UV, que sÆo piores que os"
PRINT "vermelhos. Cita um projeto de super-gelos para guardar esses n¢s tamb‚m"
PRINT "Palavras-chave: UV, super-gelos"
var(11) = 1
INPUT "Pressione enter", press

CASE "info"
CLS
PRINT "Informa‡Æo sobre os IAs do Nexus"
PRINT ""
PRINT "Esse arquivo revela os detalhes dos IAs, sua dinƒnica pseudo-senciente"
PRINT "e a tentativa de contruir uma IA totalmente senciente"
PRINT "Palavra-chave: info"
var(12) = 1
INPUT "Pressione enter", press

CASE "controle"
CLS
PRINT "IAs fora de controle no Nexus"
PRINT ""
PRINT "Esse arquivo fala sobre uma IA que talvez tenha alcan‡ado a verdadeira"
PRINT "inteligˆncia artificial, ¶ngela. Ela est  solta na Matriz, por‚m confinada"
PRINT "ao sistema Nexus. Ela procura uma subrotina falsa para escapar."
PRINT "Palavra-chave: subrotina"
var(13) = 1
INPUT "Pressione enter", press

CASE "zine"
CLS
PRINT "Zine dos Piratas de Sil¡cio n#18"
PRINT ""
PRINT "GELOs at‚ entÆo desconhecidos, por The Abhant"
PRINT ""
PRINT " Arauto: Esse GELO multi-fun‡äes pode regenerar sua integridade, usar escudo,"
PRINT "  revelar a posi‡Æo do invasor, aumentando o registro de seguran‡a, e ainda"
PRINT "  usar espelho. Foi observado tamb‚m que ele sempre tem um n¡vel maior que"
PRINT "  que o do n¢ onde se encontra, e tem muita mem¢ria tamb‚m, por‚m seu ponto"
PRINT "  fraco ‚ a integridade baixa. Use disrup‡Æo e pronto, ‚ s¢ quebrar."
PRINT ""
PRINT " Cascata: O problema desse GELO ‚ que ele costuma a aumentar o pr¢prio n¡vel!"
PRINT "  E ele faz isso quando erra ao usar seu retardamento. Al‚m disso ele pode"
PRINT "  regenerar sua integridade. Um bom truque para mant‚-lo a um n¡vel baixo"
PRINT "  seria usar veneno, mas isso poderia aumentar as chances dele errar e"
PRINT "  entÆo... Entendeu neh?"
PRINT ""
PRINT " Jack: Usa retardamento, veneno e disrup‡Æo. Tome cuidado com ele."
PRINT "  O melhor ‚ quebra-lo r pido. Um bom combate , velocidade e defesa ajudam a"
PRINT "  manter-se a salvo"
PRINT ""
INPUT "Pressione enter", press

CASE ""
GOTO sailer

CASE ELSE
PRINT "Nada de interessante..."
SLEEP 1
END SELECT

sailer:
INPUT "Continuar?(s/n):", cont$
IF cont$ = "s" THEN
GOTO ler
END IF
END SUB

SUB MNNA
som = 1: Sons
som = 6: Sons
CLS
PRINT ">>>Entrando em n¢ privado. MNNA-KLI-89672346"
SLEEP 1
PRINT ""
INPUT "Pressione enter para entrar", press
CLS
PRINT ""
PRINT ">>>Luc: Ol , "; nome$; ". Eu nÆo sei quem vocˆ ‚ mas se est  aqui deve ser bom."
SLEEP 1
INPUT ">>>Luc: Eu tenho os seguintes programas aqui: Drenar(dr), Teleporte(t),         Explosivo(ex), Vendetta(ven) e Prote‡Æo(p). Quer saber o que eles fazem?(s/n)", press$
IF press$ = "s" THEN
SLEEP 1
PRINT ">>>Drenar: Suga um pouco da mem¢ria e integridade do ¡cone e passa integridade  para o seu persona."
PRINT ">>>Teleporte: Usado para ativar o mapa do sistema e mover-se para qualquer n¢   sem estar no CPU."
PRINT ">>>Explosivo: Danifica a velocidade, combate e defesa do ¡cone inimigo."
PRINT ">>>Vendetta: Enquanto durar, redireciona metade do dano sofrido ao ¡cone que o  causou."
PRINT ">>>Prote‡Æo: Funciona como uma camada a mais de prote‡Æo ao atordoamento dos    GELOS negros. Dura enquanto vocˆ estiver no sistema."
SLEEP 1
PRINT ">>>Luc: Eles ainda tem uma vantagem, nÆo podem ser apagados ou afetados por     v¡rus veneno."
END IF
SLEEP 1

luc:
INPUT ">>>Luc: EntÆo, o que vai ser?", esc$
SELECT CASE esc$

CASE "dr"
INPUT ">>>Luc: N¡vel:", nutil11
PRINT ">>>Luc: Pre‡o:"; nutil11 * 70
IF nutil11 * 70 > din THEN
PRINT ">>>Luc: Dinheiro insuficiente"
ELSE
INPUT ">>>Luc: Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util11 = nutil11
din = din - (nutil11 * 70)
END IF

CASE "t"
INPUT ">>>Luc: N¡vel:", nutil12
PRINT ">>>Luc: Pre‡o:"; nutil12 * 80
IF nutil12 * 80 > din THEN
PRINT ">>>Luc: Dinheiro insuficiente"
ELSE
INPUT ">>>Luc: Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util12 = nutil12
din = din - (nutil12 * 80)
END IF

CASE "ex"
INPUT ">>>Luc: N¡vel:", nutil13
PRINT ">>>Luc: Pre‡o:"; nutil13 * 90
IF nutil13 * 90 > din THEN
PRINT ">>>Luc: Dinheiro insuficiente"
ELSE
INPUT ">>>Luc: Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util13 = nutil13
din = din - (nutil13 * 90)
END IF

CASE "ven"
INPUT ">>>Luc: N¡vel:", nutil14
PRINT ">>>Luc: Pre‡o:"; nutil14 * 110
IF nutil14 * 110 > din THEN
PRINT ">>>Luc: Dinheiro insuficiente"
ELSE
INPUT ">>>Luc: Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util14 = nutil14
din = din - (nutil14 * 110)
END IF

CASE "p"
INPUT ">>>Luc: N¡vel:", nutil15
PRINT ">>>Luc: Pre‡o:"; nutil15 * 70
IF nutil15 * 70 > din THEN
PRINT ">>>Luc: Dinheiro insuficiente"
ELSE
INPUT ">>>Luc: Comprar?(s/n)", comprar$
END IF
IF comprar$ = "s" THEN
som = 6: Sons
comprar$ = "n"
util15 = nutil15
din = din - (nutil15 * 70)
END IF

END SELECT


INPUT ">>>Luc: Mais alguma coisa?", mais$
IF mais$ = "s" THEN
som = 6: Sons
GOTO luc
END IF

SLEEP 1
PRINT ">>>Luc: Volte sempre"
SLEEP 1
PRINT "Desconectando..."
SLEEP 1
som = 6: Sons
som = 1: Sons
Conectar
END SUB

SUB Receptador
som = 1: Sons
som = 6: Sons
CLS
PRINT ">>>Entrando em n¢ privado. NA/SEA/Q-7463578"
SLEEP 1
PRINT ""
INPUT "Pressione enter para entrar", press
CLS

PRINT "Arquivos na mem¢ria:"
PRINT arq1$
PRINT arq2$
PRINT arq3$
PRINT arq4$
PRINT arq5$
PRINT arq6$
PRINT arq7$
PRINT arq8$
PRINT arq9$
PRINT arq10$

SLEEP 1
PRINT ""
PRINT ">>>Maine: Hi "; nome$; "! O que vocˆ tem pra mim hoje?"
SLEEP 1

olhando:
IF arq1$ = "" THEN
ELSE
arqven$ = arq1$
valorven = valor1
GOTO vender
END IF
IF arq2$ = "" THEN
ELSE
arqven$ = arq2$
valorven = valor2
GOTO vender
END IF
IF arq3$ = "" THEN
ELSE
arqven$ = arq3$
valorven = valor3
GOTO vender
END IF
IF arq4$ = "" THEN
ELSE
arqven$ = arq4$
valorven = valor4
GOTO vender
END IF
IF arq5$ = "" THEN
ELSE
arqven$ = arq5$
valorven = valor5
GOTO vender
END IF
IF arq6$ = "" THEN
ELSE
arqven$ = arq6$
valorven = valor6
GOTO vender
END IF
IF arq7$ = "" THEN
ELSE
arqven$ = arq7$
valorven = valor7
GOTO vender
END IF
IF arq8$ = "" THEN
ELSE
arqven$ = arq8$
valorven = valor8
GOTO vender
END IF
IF arq9$ = "" THEN
ELSE
arqven$ = arq9$
valorven = valor9
GOTO vender
END IF
IF arq10$ = "" THEN
ELSE
arqven$ = arq10$
valorven = valor10
GOTO vender
END IF
SLEEP 1
PRINT ">>>Maine: Volte quando tiver mais dados"
GOTO falow

vender:
SLEEP 1
PRINT ">>>Maine: Eu posso pagar "; valorven; " nesse arquivo: "; arqven$
INPUT ">>>Tranferir arquivo? (s/n):", resp$
IF resp$ = "s" THEN
SLEEP 1
PRINT ">>>Arquivo "; arqven$; " tranferido"
PRINT ">>>Seu cr‚dito foi aumentado em "; valorven
din = din + valorven

IF arqven$ = arq1$ THEN
arq1$ = ""
valor1 = 0
ELSE
IF arqven$ = arq2$ THEN
arq2$ = ""
valor2 = 0
ELSE
IF arqven$ = arq3$ THEN
arq3$ = ""
valor3 = 0
ELSE
IF arqven$ = arq4$ THEN
arq4$ = ""
valor4 = 0
ELSE
IF arqven$ = arq5$ THEN
arq5$ = ""
valor5 = 0
ELSE
IF arqven$ = arq6$ THEN
arq6$ = ""
valor6 = 0
ELSE
IF arqven$ = arq7$ THEN
arq7$ = ""
valor7 = 0
ELSE
IF arqven$ = arq8$ THEN
arq8$ = ""
valor8 = 0
ELSE
IF arqven$ = arq9$ THEN
arq9$ = ""
valor9 = 0
ELSE
IF arqven$ = arq10$ THEN
arq10$ = ""
valor10 = 0
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF

SLEEP 1
PRINT ">>>Maine: Tem mais algum?"
INPUT ">>>Vocˆ diz (s/n):", resp$
IF resp$ = "s" THEN
GOTO olhando
END IF

ELSE
SLEEP 1
PRINT ">>>Maine:  s¢ isso?"
INPUT ">>>Vocˆ diz (s/n):", resp$
IF resp$ = "n" THEN
GOTO olhando
END IF
END IF


falow:
SLEEP 1
PRINT ">>>Maine: At‚ mais"
SLEEP 1
PRINT "Desconectando..."
SLEEP 1
som = 6: Sons
som = 1: Sons
Conectar
END SUB

SUB Sons

CONST A$ = "t120l16mlo3bf#"
CONST b$ = "t255l64mlo4bagfedc<bagfedec<bagfedc<bagfedc<bagfedc"
CONST c$ = "t255l32o4mldgd<g>dgddgdgbagf#ee"
CONST d$ = "t255l64mlo2bcadgefegdacbcadgefegdacb"
CONST e$ = "t150l64mso4bgec<afl16d"
CONST f$ = "t150l64mso3dfa>gegl16b"
CONST g$ = "t240l64mlo4egegegcfcfcfgegege"
CONST h$ = "t255l64o4cdefgabo3cdefgab02cdefgab"
CONST k$ = "t255l64mlo1bagfedc<bagfedcp16>cdefgab>cdefgabp32"
CONST l$ = "t255l64mlo1cdefgab>cdefgabp16<bagfedc<bagfedcp32"
CONST m$ = "t120l16o4c#.p16t255l64mlc#dd#eff#gg#aa#bo5cc#dd#ef"
CONST n$ = "t255l32mlo3cd<cd>>cd<<cd>>cd<<cd>cd"
CONST o$ = "t240l64mlo4egegegegegegegegegegegegegegegegegegegeg"
CONST p$ = "o4t255l64mlb-bb-bagag.>egg>egg"

IF somligado$ = "s" THEN
SELECT CASE som
CASE 1
PLAY A$
CASE 2
PLAY b$
CASE 3
PLAY c$
CASE 4
PLAY d$
CASE 5
PLAY e$
CASE 6
PLAY f$
CASE 7
PLAY g$
CASE 8
PLAY h$
CASE 9
PLAY k$
CASE 10
PLAY l$
CASE 11
PLAY m$
CASE 12
PLAY n$
CASE 13
PLAY o$
CASE 14
PLAY p$
END SELECT
END IF

END SUB

SUB Tecnauta

denovo:
CLS
PRINT nome$
PRINT ""
PRINT "Racioc¡nio:      "; rac
PRINT "Perseveran‡a:    "; per
PRINT "Computa‡Æo:      "; comp
PRINT ""
PRINT "Experiˆncia:"; xp
PRINT "Cr‚ditos em conta:"; din
PRINT ""
PRINT "Ler arquivos(ar)"
PRINT "Checar missäes(mi)"
PRINT "Melhorar atributos(ma)"
PRINT "Apagar personagem(ap)"
PRINT "Neuroterminal(n)"
PRINT ""
INPUT "Escolha: ", escl$
som = 6: Sons

SELECT CASE escl$

CASE "ma"
Atributos

CASE "ar"
Leitura

CASE "mi"
CLS
PRINT "MissÆo atual:"
IF missaomay$ = "s" THEN
PRINT "Procurar May na Mitsuhama"
PRINT "Palavras-chave: Lucas Sage, fuga"
PRINT ""
END IF
IF missaomay$ = "c" THEN
PRINT "Avisar a Ahaizer que May est  bem"
PRINT "Palavra-chave: Lukage"
PRINT ""
END IF
IF missaolady$ = "s" THEN
PRINT "Procurar provas contra Merk na Renraku"
PRINT ""
END IF
IF missaolady$ = "c" THEN
PRINT "Passar as provas ao Martirir"
PRINT "Palavra-chave: provas"
PRINT ""
END IF
IF missaotaiw$ = "s" THEN
PRINT "Procurar arquivos sobre Taiw"
PRINT ""
END IF
IF missaotaiw$ = "c" THEN
PRINT "Avisar a Whoelse onde Taiw est "
PRINT "Palavra-chave: localizado"
PRINT ""
END IF
IF missaoia$ = "s" THEN
PRINT "Procurar arquivo sobre IA em Nexus"
PRINT ""
END IF
IF missaoia$ = "c" THEN
PRINT "Passar arquivos para Jerusalem"
PRINT "Palavra-chave: info"
PRINT ""
END IF
IF missaoangela$ = "s" THEN
PRINT "Libertar ¶ngela de Denver Nexus"
PRINT ""
END IF
IF missaoangela$ = "c" THEN
PRINT "Avisar Jerusalem que ¶ngela est  livre"
PRINT "Palavra-chave: iluminado"
PRINT ""
END IF
IF missaosharik$ = "s" THEN
PRINT "Encontrar Sharik em Orbital Zurich"
PRINT ""
END IF
IF missaosharik$ = "c" THEN
PRINT "Vocˆ ‚ um fantasma na m quina"
PRINT ""
END IF

PRINT ""
PRINT "Missäes cumpridas:"
IF missaomay$ = "f" THEN
PRINT "MissÆo May"
END IF
IF missaolady$ = "f" THEN
PRINT "MissÆo Lady"
END IF
IF missaotaiw$ = "f" THEN
PRINT "MissÆo Taiw"
END IF
IF missaoia$ = "f" THEN
PRINT "MissÆo IA"
END IF
PRINT ""
INPUT "Pressione enter", press


CASE "ap"
PRINT ""
INPUT "Apagar este personagem?(s/n):", apagar$
som = 1: Sons
som = 6: Sons
IF apagar$ = "s" THEN
PRINT "Apagado"
SLEEP 1
KILL save$
END
END IF

CASE "n"
GOTO voltar2
END SELECT

GOTO denovo

voltar2:
END SUB