DECLARE SUB Carregar ()
DECLARE SUB Desenhos ()
DECLARE SUB Dungeon ()
DECLARE SUB Intro ()
DECLARE SUB Apresent ()
DECLARE SUB Cred ()

COMMON SHARED px, py, portx, porty, din, mon, senha$
COMMON SHARED nome$(), raca$(), classe$(), forc(), vig(), agi(), inte(), per(), car(), rea(), dano(), vit(), mana(), fer(), exa(), xp()
COMMON SHARED var(), sta(), equ(), mag(), hab(), equip()
COMMON SHARED sala$(), movn(), movs(), movl(), movo()
COMMON SHARED moner(), corpo(), porta()

CLEAR , , 1000
     
REM $DYNAMIC
DIM nome$(0 TO 2), raca$(0 TO 2), classe$(0 TO 2), forc(0 TO 2), vig(0 TO 2), agi(0 TO 2), inte(0 TO 2), per(1), car(1), rea(0 TO 2), dano(1), vit(0 TO 2), mana(0 TO 2), fer(0 TO 2), exa(0 TO 2), xp(0 TO 2)
DIM var(0 TO 40), sta(0 TO 40), equ(0 TO 80), mag(0 TO 40), hab(0 TO 40), equip(0 TO 7)
DIM sala$(0 TO 20, 0 TO 20), movn(0 TO 20, 0 TO 20), movs(0 TO 20, 0 TO 20), movl(0 TO 20, 0 TO 20), movo(0 TO 20, 0 TO 20)
DIM moner(0 TO 5), corpo(0 TO 40), porta(0 TO 40)

ON ERROR GOTO diacho

RANDOMIZE TIMER

diacho:
CLS
SCREEN 12
Apresent
COLOR 15
LINE (220, 100)-(400, 260), 4, BF
LINE (230, 110)-(390, 250), 12, B
LOCATE 8, 37: PRINT "DIACHO"
LOCATE 10, 32: PRINT "Iniciar      (1)"
LOCATE 11, 32: PRINT "Continuar    (2)"
LOCATE 12, 32: PRINT "Cr‚ditos     (3)"
LOCATE 13, 32: PRINT "Sair         (4)"
LOCATE 15, 32: INPUT "Escolha:      ", escl
SELECT CASE escl
CASE 1
GOTO novo
CASE 2
GOTO continue
CASE 3
Cred
GOTO diacho
CASE 4
SYSTEM
CASE ELSE
GOTO diacho
END SELECT

continue:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
PRINT "Arquivos:"
FILES "C:\Blarg!\Diacho\Saves\"
PRINT ""
INPUT "Nome do arquivo: ", nom$
IF nom$ = "" THEN GOTO diacho
save$ = "C:\Blarg!\Diacho\Saves\" + nom$ + ".SAV"
OPEN save$ FOR INPUT AS #1
INPUT #1, nome$(1), raca$(1), classe$(1)
x = 0: DO: x = x + 1: INPUT #1, equ(x): LOOP UNTIL x = 80
x = 0: DO: x = x + 1: INPUT #1, equip(x): LOOP UNTIL x = 7
x = 0: DO: x = x + 1: INPUT #1, corpo(x), porta(x), var(x), sta(x), mag(x), hab(x): LOOP UNTIL x = 40
INPUT #1, forc(1), vig(1), agi(1), inte(1), per(1), car(1), rea(1), dano(1), vit(1), mana(1), fer(1), exa(1), xp(1)
INPUT #1, px, py, portx, porty, din, senha$
CLOSE #1
porta(5) = 0
Carregar

novo:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
INPUT "Nome: ", nome$(1)
IF nome$(1) = "" THEN GOTO novo

senha:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
PRINT "Arquivos existentes:"
FILES "C:\Blarg!\Diacho\Saves\"
PRINT ""
PRINT "Escolha um nome para o arquivo onde o personagem ser  salvo"
PRINT "Ou sobrescreva num dos arquivos existentes"
PRINT ""
INPUT "Nome do arquivo (At‚ oito caracteres normais, sem espa‡o): ", senha$
IF LEN(senha$) > 8 THEN GOTO senha
IF senha$ = "" THEN GOTO senha

racas:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
PRINT "Ra‡as:"
PRINT "Humano     (1)"
PRINT "Elfo       (2)"
PRINT "AnÆo       (3)"
PRINT "Meio-elfo  (4)"
PRINT "Meio-orc   (5)"
PRINT "Halfling   (6)"
PRINT "Gnomo      (7)"
PRINT "Draconiano (8)"
PRINT "Metamorfo  (9)"
PRINT "Troll      (10)"
PRINT ""
INPUT "Ra‡a: ", raca
IF raca < 1 THEN GOTO racas
IF raca > 10 THEN GOTO racas
IF raca = 1 THEN raca$(1) = "Humano"
IF raca = 2 THEN raca$(1) = "Elfo"
IF raca = 3 THEN raca$(1) = "AnÆo"
IF raca = 4 THEN raca$(1) = "Meio-elfo"
IF raca = 5 THEN raca$(1) = "Meio-orc"
IF raca = 6 THEN raca$(1) = "Halfling"
IF raca = 7 THEN raca$(1) = "Gnomo"
IF raca = 8 THEN raca$(1) = "Draconiano"
IF raca = 9 THEN raca$(1) = "Metamorfo"
IF raca = 10 THEN raca$(1) = "Troll"

classes:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
PRINT "Classes:"
PRINT "Guerreiro  (1)"
PRINT "Mago       (2)"
PRINT "LadrÆo     (3)"
PRINT "Cl‚rigo    (4)"
PRINT "Monge      (5)"
PRINT "Ranger     (6)"
PRINT "Paladino   (7)"
PRINT "Necromante (8)"
PRINT "Bardo      (9)"
PRINT "Druida     (10)"
PRINT "Assassino  (11)"
PRINT "Warlock    (12)"
PRINT "Alquimista (13)"
PRINT "Conjurador (14)"
PRINT "Nightmage  (15)"
PRINT ""
INPUT "Classe: ", classe
IF classe < 1 THEN GOTO classes
IF classe > 15 THEN GOTO classes
IF classe = 1 THEN classe$(1) = "Guerreiro": hab(15) = 6: equ(2) = 4: equ(8) = 3: equ(11) = 1
IF classe = 2 THEN classe$(1) = "Mago": hab(15) = 3: hab(1) = 4: mag(1) = 3: mag(2) = 3: mag(3) = 3: mag(4) = 2: mag(5) = 2: equ(18) = 3
IF classe = 3 THEN classe$(1) = "LadrÆo": hab(15) = 4: hab(2) = 5: hab(3) = 4: hab(4) = 4: hab(5) = 3: hab(6) = 3: hab(7) = 3: equ(20) = 3: equ(7) = 2
IF classe = 4 THEN classe$(1) = "Cl‚rigo": hab(15) = 4: hab(1) = 3: hab(8) = 3: hab(14) = 3: mag(11) = 3: mag(9) = 3: mag(21) = 2: equ(13) = 4: equ(9) = 4: equ(11) = 1
IF classe = 5 THEN classe$(1) = "Monge": hab(15) = 8: hab(12) = 3: hab(14) = 3
IF classe = 6 THEN classe$(1) = "Ranger": hab(15) = 5: hab(9) = 4: hab(10) = 4: hab(3) = 3: equ(5) = 4: equ(7) = 2
IF classe = 7 THEN classe$(1) = "Paladino": hab(15) = 5: hab(8) = 2: hab(14) = 3: mag(11) = 2: mag(9) = 2: equ(2) = 4: equ(8) = 3: equ(11) = 1
IF classe = 8 THEN classe$(1) = "Necromante": hab(15) = 3: hab(1) = 4: mag(1) = 2: mag(2) = 2: mag(12) = 2: mag(13) = 1: mag(20) = 2: equ(1) = 2: equ(7) = 2
IF classe = 9 THEN classe$(1) = "Bardo": hab(15) = 4: hab(1) = 3: hab(3) = 3: hab(6) = 3: hab(13) = 3: mag(1) = 2: mag(2) = 2: mag(3) = 2: equ(6) = 2: equ(7) = 2
IF classe = 10 THEN classe$(1) = "Druida": hab(15) = 4: hab(1) = 3: hab(14) = 3: mag(11) = 3: mag(9) = 3: mag(21) = 2: equ(19) = 4: equ(7) = 2
IF classe = 11 THEN classe$(1) = "Assassino": hab(15) = 5: hab(3) = 3: hab(7) = 4: hab(9) = 3: equ(7) = 2: equ(20) = 3
IF classe = 12 THEN classe$(1) = "Warlock": hab(15) = 5: hab(1) = 3: mag(1) = 3: mag(2) = 3: mag(3) = 2: mag(4) = 2: equ(2) = 4: equ(7) = 2
IF classe = 13 THEN classe$(1) = "Alquimista": hab(15) = 3: hab(1) = 4: hab(11) = 3: equ(18) = 3: equ(48) = 3
IF classe = 14 THEN classe$(1) = "Conjurador": hab(15) = 4: hab(1) = 3: mag(1) = 2: mag(2) = 2: mag(5) = 2: mag(10) = 3: equ(18) = 3: equ(7) = 2
IF classe = 15 THEN classe$(1) = "Nightmage": hab(15) = 4: hab(1) = 3: hab(2) = 3: hab(3) = 3: hab(4) = 2: hab(5) = 2: hab(6) = 2: mag(1) = 2: mag(2) = 2: mag(3) = 2: mag(4) = 2: equ(20) = 3: equ(7) = 2

distribuir:
CLS
LINE (0, 0)-(640, 480), 1, BF
LINE (10, 10)-(630, 470), 10, B
PRINT ""
pontos = 20
PRINT "Atributos (1 a 6):"; pontos
PRINT "For‡a:"
PRINT "Vigor:"
PRINT "Agilidade:"
PRINT "Inteligˆncia:"
PRINT "Perseveran‡a:"
PRINT "Carisma:"

LOCATE 3, 15: INPUT "", forc(1)
IF forc(1) < 1 THEN GOTO distribuir
IF forc(1) > 6 THEN GOTO distribuir
pontos = pontos - forc(1)
LOCATE 2, 1: PRINT "Atributos (1 a 6):"; pontos; "  "
LOCATE 4, 15: INPUT "", vig(1)
IF vig(1) < 1 THEN GOTO distribuir
IF vig(1) > 6 THEN GOTO distribuir
pontos = pontos - vig(1)
LOCATE 2, 1: PRINT "Atributos (1 a 6):"; pontos; "  "
LOCATE 5, 15: INPUT "", agi(1)
IF agi(1) < 1 THEN GOTO distribuir
IF agi(1) > 6 THEN GOTO distribuir
pontos = pontos - agi(1)
LOCATE 2, 1: PRINT "Atributos (1 a 6):"; pontos; "  "
LOCATE 6, 15: INPUT "", inte(1)
IF inte(1) < 1 THEN GOTO distribuir
IF inte(1) > 6 THEN GOTO distribuir
pontos = pontos - inte(1)
LOCATE 2, 1: PRINT "Atributos (1 a 6):"; pontos; "  "
LOCATE 7, 15: INPUT "", per(1)
IF per(1) < 1 THEN GOTO distribuir
IF per(1) > 6 THEN GOTO distribuir
pontos = pontos - per(1)
LOCATE 2, 1: PRINT "Atributos (1 a 6):"; pontos; "  "
LOCATE 8, 15: INPUT "", car(1)
IF car(1) < 1 THEN GOTO distribuir
IF car(1) > 6 THEN GOTO distribuir
pontos = pontos - car(1)

IF pontos < 0 THEN GOTO distribuir
LOCATE 2, 1: PRINT "Pontos sobrando: "; pontos; "  "
LOCATE 10, 1: INPUT "Aceitar? ", aceitar$
IF aceitar$ = "n" THEN GOTO distribuir

rea(1) = (inte(1) + agi(1)) \ 2
dano(1) = forc(1) - 3
vit(1) = 10
mana(1) = 10
din = 10 + (pontos * 10)
xp(1) = 0
px = 10: py = 2
IF raca = 1 THEN din = din + 10
IF raca = 2 THEN sta(27) = 2: agi(1) = agi(1) + 1: car(1) = car(1) + 1: mana(1) = 12: hab(10) = hab(10) + 1
IF raca = 3 THEN din = din + 10: sta(27) = 2: vig(1) = vig(1) + 1: per(1) = per(1) + 1: mana(1) = 6: IF equ(2) = 4 THEN equ(2) = 0: equ(3) = 5
IF raca = 4 THEN sta(27) = 2
IF raca = 5 THEN forc(1) = forc(1) + 1: vig(1) = vig(1) + 1: sta(27) = 2: mana(1) = 6
IF raca = 6 THEN agi(1) = agi(1) + 1: hab(6) = hab(6) + 2: hab(3) = hab(3) + 2: mana(1) = 8: vit(1) = 8
IF raca = 7 THEN inte(1) = inte(1) + 1: per(1) = per(1) + 1: hab(1) = hab(1) + 1: mana(1) = 12: vit(1) = 8
IF raca = 8 THEN hab(15) = hab(15) + 1: sta(28) = 1: sta(27) = 2: mana(1) = 8: din = 0
IF raca = 9 THEN hab(16) = 3: sta(28) = 1: sta(27) = 2: mana(1) = 8: din = 0
IF raca = 10 THEN forc(1) = forc(1) + 1: vig(1) = vig(1) + 1: sta(28) = 1: sta(27) = 2: vit(1) = 12: mana(1) = 4: din = 0

Intro
Carregar

REM $STATIC
SUB Apresent

v = 0: DO: v = v + 1
r = 0: DO:  r = r + 1
IF INT(RND * 100) = 1 THEN c = c + 1: IF c = 16 THEN c = 1
B = B + 1
IF B > 320 THEN B = -320
CIRCLE (320 + B, 200), r, c
LOOP UNTIL r = 200
r = r + 1: DO: r = r - 1
B = B + 1
IF B > 320 THEN B = -320
CIRCLE (320 + B, 200), r, 0
LOOP UNTIL r = 0
LOOP WHILE INKEY$ = ""

END SUB

SUB Carregar

sala$(10, 1) = "Vocˆ est  na estrada principal entre Tricard e Uktaw. A sul est  a entrada da   cidade de Tricard. A estrada continua a norte."
movn(10, 1) = 1: movs(10, 1) = 1: movl(10, 1) = 0: movo(10, 1) = 0

sala$(10, 2) = "Vocˆ est  na cidade de Tricard. A sul fica a inevit vel pracinha. A leste seu   mestre fica parado o dia inteiro. A norte vocˆ vai para a estrada principal."
movn(10, 2) = 1: movs(10, 2) = 1: movl(10, 2) = 1: movo(10, 2) = 0

sala$(10, 3) = "Vocˆ est  na conveniente pra‡a da cidade. H  poucos lugares para se sentar,     afinal, a cidade ‚ vazia. H  ruas em todas as dire‡äes. A leste est  a sua      casa."
movn(10, 3) = 1: movs(10, 3) = 1: movl(10, 3) = 1: movo(10, 3) = 1

sala$(10, 4) = "Vocˆ est  numa rua. A norte est  a pra‡a. A oeste est  a Taverna Olho Roxo. A   sul est  cabana do bruxo Weistvihk. A leste vocˆ vˆ um beco."
movn(10, 4) = 1: movs(10, 4) = 1: movl(10, 4) = 1: movo(10, 4) = 1

sala$(9, 3) = "Vocˆ est  numa rua. A oeste est  a passagem para o sul da cidade. A leste est  apra‡a."
movn(9, 3) = 0: movs(9, 3) = 0: movl(9, 3) = 1: movo(9, 3) = 1

sala$(8, 3) = "Vocˆ est  numa esquina. A rua continua a sul e a leste. A oeste as montanhas    impedem a passagem."
movn(8, 3) = 0: movs(8, 3) = 1: movl(8, 3) = 1: movo(8, 3) = 0

sala$(8, 4) = "Vocˆ est  numa rua. A sul est  a outra parte da cidade."
movn(8, 4) = 1: movs(8, 4) = 1: movl(8, 4) = 0: movo(8, 4) = 0

sala$(2, 2) = "Vocˆ est  na outra parte da cidade de Tricard. A norte e a sul h  ruas. A leste fica o est bulo."
movn(2, 2) = 1: movs(2, 2) = 1: movl(2, 2) = 1: movo(2, 2) = 0

sala$(3, 2) = "Vocˆ est  no est bulo. Um lugar fedorento, considerando que nÆo h  nenhum cavalo… vista. A oeste fica a rua."
movn(3, 2) = 0: movs(3, 2) = 0: movl(3, 2) = 0: movo(3, 2) = 1

sala$(2, 3) = "Vocˆ est  numa rua. A norte, a sul a leste a rua continua. A oeste mora o       alquimista Linnus."
movn(2, 3) = 1: movs(2, 3) = 1: movl(2, 3) = 1: movo(2, 3) = 1

sala$(1, 3) = "Vocˆ est  na casa de Linnus, o alquimista. H  um monte de objetos de laborat¢rioespalhados pela casa. A leste est  a rua."
movn(1, 3) = 0: movs(1, 3) = 0: movl(1, 3) = 1: movo(1, 3) = 0

sala$(3, 3) = "Vocˆ est  numa rua. Ela continua a oeste. A sul est  o Santu rio de Antar. A    leste trabalha o Armeiro Gores."
movn(3, 3) = 0: movs(3, 3) = 1: movl(3, 3) = 1: movo(3, 3) = 1

sala$(4, 3) = "Vocˆ est  na loja do ferreiro Gores. As prateleiras estÆo vazias e nÆo h  mais osom de metal quente batendo incansavelmente, como costumava a ter. A oeste fica a rua."
movn(4, 3) = 0: movs(4, 3) = 0: movl(4, 3) = 0: movo(4, 3) = 1

sala$(3, 4) = "Vocˆ est  no Santu rio de Antar. Est  completamente vazio, exceto pelo sempre   presente sacerdote Haucar."
movn(3, 4) = 1: movs(3, 4) = 0: movl(3, 4) = 0: movo(3, 4) = 0

sala$(2, 4) = "Vocˆ est  na sa¡da de Tricard. A norte est  a entrada sul da cidade. A sul ficamas Ravinas Venenosas."
movn(2, 4) = 1: movs(2, 4) = 1: movl(2, 4) = 0: movo(2, 4) = 0

sala$(2, 5) = "Vocˆ est  nas ravinas. Uma antiga magia faz esse lugar ser quente como um       deserto. O caminho continua a norte e a sul."
movn(2, 5) = 1: movs(2, 5) = 1: movl(2, 5) = 0: movo(2, 5) = 0

sala$(2, 6) = "Vocˆ est  nas ravinas. O caminho continua a norte e a sul."
movn(2, 6) = 1: movs(2, 6) = 1: movl(2, 6) = 0: movo(2, 6) = 0

sala$(2, 7) = "Vocˆ est  nas ravinas. O caminho continua a norte e a sul."
movn(2, 7) = 1: movs(2, 7) = 1: movl(2, 7) = 0: movo(2, 7) = 0

sala$(2, 8) = "Vocˆ est  nas ravinas. O caminho continua a norte e a sul."
movn(2, 8) = 1: movs(2, 8) = 1: movl(2, 8) = 0: movo(2, 8) = 0

sala$(2, 9) = "Vocˆ est  nas ravinas. O caminho continua a norte e a sul."
movn(2, 9) = 1: movs(2, 9) = 1: movl(2, 9) = 0: movo(2, 9) = 0

sala$(2, 10) = "Vocˆ est  nas ravinas. O caminho se divide em trˆs a partir desse ponto."
movn(2, 10) = 1: movs(2, 10) = 1: movl(2, 10) = 1: movo(2, 10) = 1

sala$(1, 10) = "Vocˆ est  nas ravinas. O caminho continua a sul. A leste h  uma divisÆo de      caminhos."
movn(1, 10) = 0: movs(1, 10) = 1: movl(1, 10) = 1: movo(1, 10) = 0

sala$(1, 11) = "Vocˆ est  nas ravinas. O caminho continua a norte e acaba a sul."
movn(1, 11) = 1: movs(1, 11) = 1: movl(1, 11) = 0: movo(1, 11) = 0

sala$(1, 12) = "Vocˆ est  nas ravinas. Um desabamento impede o caminho a sul. O caminho vai pelonorte."
movn(1, 12) = 1: movs(1, 12) = 0: movl(1, 12) = 0: movo(1, 12) = 0

sala$(2, 11) = "Vocˆ est  nas ravinas. O caminho continua a norte e a sul."
movn(2, 11) = 1: movs(2, 11) = 1: movl(2, 11) = 0: movo(2, 11) = 0

sala$(2, 12) = "Vocˆ est  nas ravinas. O caminho continua a norte e acaba a sul."
movn(2, 12) = 1: movs(2, 12) = 1: movl(2, 12) = 0: movo(2, 12) = 0

sala$(2, 13) = "Vocˆ est  nas ravinas. O caminho continua a norte. A sul fica a terra dos       mortos, local proibido e abandonado, mesmo para aventureiros. ( o fim do mapa)"
movn(2, 13) = 1: movs(2, 13) = 0: movl(2, 13) = 0: movo(2, 13) = 0

sala$(3, 10) = "Vocˆ est  nas ravinas. O caminho continua a sul. A oeste o caminho se divide."
movn(3, 10) = 0: movs(3, 10) = 1: movl(3, 10) = 0: movo(3, 10) = 1

sala$(3, 11) = "Vocˆ est  nas ravinas. O caminho continua norte e acaba a sul."
movn(3, 11) = 1: movs(3, 11) = 1: movl(3, 11) = 0: movo(3, 11) = 0

sala$(3, 12) = "Vocˆ est  nas ravinas. O caminho continua norte. A sul as montanhas impedem a   passagem."
movn(3, 12) = 1: movs(3, 12) = 0: movl(3, 12) = 0: movo(3, 12) = 0

sala$(11, 4) = "Vocˆ est  num beco. A leste est  a entrada da dungeon local. A oeste est  a rua."
movn(11, 4) = 0: movs(11, 4) = 0: movl(11, 4) = 1: movo(11, 4) = 1

sala$(11, 3) = "Vocˆ est  em casa. Aqui era uma estalagem, mas ningu‚m mais mora aqui exceto    vocˆ. A oeste est  a pra‡a."
movn(11, 3) = 0: movs(11, 3) = 0: movl(11, 3) = 0: movo(11, 3) = 1

sala$(9, 4) = "Vocˆ est  na Taverna Olho Roxo.  pequena, e de vez em quando aparece algum     cidadÆo aleat¢rio. A leste fica a sa¡da."
movn(9, 4) = 0: movs(9, 4) = 0: movl(9, 4) = 1: movo(9, 4) = 0

sala$(10, 5) = "Vocˆ est  na cabana do bruxo Weistvihk. Aqui parece ser o dep¢sito da cidade,   pois est  cheio de quinquilharias. A norte est  a sa¡da."
movn(10, 5) = 1: movs(10, 5) = 0: movl(10, 5) = 0: movo(10, 5) = 0

sala$(11, 2) = "Vocˆ est  na casa de Atreio, seu mestre espiritual.  um lugar estranho, com    pirƒmides e esculturas sem forma definida. A oeste est  a entrada da cidade."
movn(11, 2) = 0: movs(11, 2) = 0: movl(11, 2) = 0: movo(11, 2) = 1

sala$(12, 4) = "Vocˆ est  na entrada da dungeon local.  uma dungeon bem usada, principalmente  por orcs e goblins. A oeste est  o beco. Uma escada leva para baixo."
movn(12, 4) = 0: movs(12, 4) = 0: movl(12, 4) = 0: movo(12, 4) = 1

sala$(12, 3) = "Vocˆ est  numa dungeon £mida e suja. A leste h  uma bifurca‡Æo. Uma escada leva para cima."
movn(12, 3) = 0: movs(12, 3) = 0: movl(12, 3) = 1: movo(12, 3) = 0

sala$(13, 3) = "Vocˆ est  numa bifurca‡Æo. A norte parece haver uma sala mau cheirosa. A sul h  um corredor. A oeste h  uma sala com a escada que leva … sa¡da."
movn(13, 3) = 1: movs(13, 3) = 1: movl(13, 3) = 0: movo(13, 3) = 1

sala$(13, 2) = "Vocˆ est  numa sala estreita e escura, com um fedor horr¡vel. A £nica sa¡da ‚ a sul."
movn(13, 2) = 0: movs(13, 2) = 1: movl(13, 2) = 0: movo(13, 2) = 0

sala$(13, 4) = "Vocˆ est  num corredor. A norte h  uma bifurca‡Æo. A sul h  outra bifurca‡Æo."
movn(13, 4) = 1: movs(13, 4) = 1: movl(13, 4) = 0: movo(13, 4) = 0

sala$(13, 5) = "Vocˆ est  numa bifurca‡Æo. A norte e a oeste h  corredores. A leste h  uma      esquina que vai para o sul."
movn(13, 5) = 1: movs(13, 5) = 0: movl(13, 5) = 1: movo(13, 5) = 1

sala$(12, 5) = "Vocˆ est  num corredor. A oeste h  uma sala. A leste h  uma bifurca‡Æo."
movn(12, 5) = 0: movs(12, 5) = 0: movl(12, 5) = 1: movo(12, 5) = 1

sala$(11, 5) = "Vocˆ est  numa sala de treino, com bonecos rasgados em forma de goblins. A sul  h  um corredor. A leste h  outro corredor."
movn(11, 5) = 0: movs(11, 5) = 1: movl(11, 5) = 1: movo(11, 5) = 0

sala$(11, 6) = "Vocˆ est  num corredor. A norte h  uma sala. A sul h  uma bifurca‡Æo."
movn(11, 6) = 1: movs(11, 6) = 1: movl(11, 6) = 0: movo(11, 6) = 0

sala$(11, 7) = "Vocˆ est  numa bifurca‡Æo. A norte h  um corredor. A leste h  uma sala com      cheiro de cozido. A sul h  uma esquina que vai para o oeste."
movn(11, 7) = 1: movs(11, 7) = 1: movl(11, 7) = 1: movo(11, 7) = 0

sala$(12, 7) = "Vocˆ est  numa cozinha bem suja. Alguma coisa morreu dentro do caldeirÆo. A     oeste h  uma bifurca‡Æo."
movn(12, 7) = 0: movs(12, 7) = 0: movl(12, 7) = 0: movo(12, 7) = 1

sala$(11, 8) = "Vocˆ est  numa esquina. A norte h  uma bifurca‡Æo. A oeste h  um corredor."
movn(11, 8) = 1: movs(11, 8) = 0: movl(11, 8) = 0: movo(11, 8) = 1

sala$(10, 8) = "Vocˆ est  num corredor. A oeste h  um salÆo. A leste h  uma esquina que vai paranorte."
movn(10, 8) = 0: movs(10, 8) = 0: movl(10, 8) = 1: movo(10, 8) = 1

sala$(14, 5) = "Vocˆ est  numa esquina. A oeste h  uma bifurca‡Æo. A sul h  um corredor."
movn(14, 5) = 0: movs(14, 5) = 1: movl(14, 5) = 0: movo(14, 5) = 1

sala$(14, 6) = "Vocˆ est  num corredor. A norte h  uma esquina que vai para o oeste. A sul h    outro corredor."
movn(14, 6) = 1: movs(14, 6) = 1: movl(14, 6) = 0: movo(14, 6) = 0

sala$(14, 7) = "Vocˆ est  num corredor. A norte h  um corredor. A sul h  uma bifurca‡Æo."
movn(14, 7) = 1: movs(14, 7) = 1: movl(14, 7) = 0: movo(14, 7) = 0

sala$(14, 8) = "Vocˆ est  numa bifurca‡Æo. A norte h  um corredor. A oeste h  uma sala. A sul h outro corredor."
movn(14, 8) = 1: movs(14, 8) = 1: movl(14, 8) = 0: movo(14, 8) = 1

sala$(13, 8) = "Vocˆ est  numa sala mais ou menos limpa que tem um trono velho. A leste h  uma  bifurca‡Æo."
movn(13, 8) = 0: movs(13, 8) = 0: movl(13, 8) = 1: movo(13, 8) = 0

sala$(14, 9) = "Vocˆ est  num corredor. A norte h  uma bifurca‡Æo. A sul h  outra bifurca‡Æo."
movn(14, 9) = 1: movs(14, 9) = 1: movl(14, 9) = 0: movo(14, 9) = 0

sala$(14, 10) = "Vocˆ est  numa bifurca‡Æo. A norte h  um corredor. A oeste e a leste h          corredores tamb‚m."
movn(14, 10) = 1: movs(14, 10) = 0: movl(14, 10) = 1: movo(14, 10) = 1

sala$(9, 8) = "Vocˆ est  num grande salÆo. H  sa¡das em todos os lados. A norte h  uma porta."
movn(9, 8) = 0: movs(9, 8) = 1: movl(9, 8) = 1: movo(9, 8) = 1

sala$(8, 8) = "Vocˆ est  num corredor. A leste h  um salÆo. A oeste h  um corredor."
movn(8, 8) = 0: movs(8, 8) = 0: movl(8, 8) = 1: movo(8, 8) = 1

sala$(7, 8) = "Vocˆ est  num corredor. A leste h  um corredor. A oeste h  uma porta com o rostode um dragÆo gravado nela."
movn(7, 8) = 0: movs(7, 8) = 0: movl(7, 8) = 1: movo(7, 8) = 0

sala$(6, 8) = "Vocˆ est  numa ante-sala. Ela est  mais limpa que o resto da dungeon. A leste h um corredor. A oeste h  uma grande sala."
movn(6, 8) = 0: movs(6, 8) = 0: movl(6, 8) = 1: movo(6, 8) = 1

sala$(5, 8) = "Vocˆ est  numa grande sala cheia de quadros bizarros. Um deles parece olhar     para vocˆ. A leste h  uma ante-sala."
movn(5, 8) = 0: movs(5, 8) = 0: movl(5, 8) = 1: movo(5, 8) = 0

sala$(5, 9) = "Vocˆ est  na sala do tesouro."
movn(5, 9) = 1: movs(5, 9) = 0: movl(5, 9) = 0: movo(5, 9) = 0

sala$(9, 7) = "Vocˆ est  num corredor. A norte h  uma esquina que vai para oeste. A sul h  um  salÆo."
movn(9, 7) = 1: movs(9, 7) = 1: movl(9, 7) = 0: movo(9, 7) = 0

sala$(9, 6) = "Vocˆ est  numa esquina. A oeste h  uma descida estreita. A sul h  um corredor."
movn(9, 6) = 0: movs(9, 6) = 1: movl(9, 6) = 0: movo(9, 6) = 1

sala$(8, 6) = "Vocˆ est  numa descida estreita. A oeste h  uma caverna cheia de musgo. A leste h  uma esquina que vai para o sul. Logo acima h  um buraco no teto."
movn(8, 6) = 0: movs(8, 6) = 0: movl(8, 6) = 1: movo(8, 6) = 1

sala$(7, 6) = "Vocˆ est  numa caverna alta, cheia de musgo verde. A leste h  uma esquina que   vai para o sul."
movn(7, 6) = 0: movs(7, 6) = 0: movl(7, 6) = 1: movo(7, 6) = 0

sala$(8, 5) = "Vocˆ est  num t£nel sujo, mal cavado. Ele ‚ longo e inclinado. A oeste h  um    corredor. Logo abaixo h  uma descida estreita."
movn(8, 5) = 0: movs(8, 5) = 0: movl(8, 5) = 0: movo(8, 5) = 1

sala$(7, 5) = "Vocˆ est  num corredor coberto por pedras. A oeste h  uma bifurca‡Æo. A leste h um t£nel escuro."
movn(7, 5) = 0: movs(7, 5) = 0: movl(7, 5) = 1: movo(7, 5) = 1

sala$(6, 5) = "Vocˆ est  numa bifurca‡Æo. A norte h  um corredor sem sa¡da. A oeste h  uma     esquina que vai para o sul. A leste h  um corredor."
movn(6, 5) = 1: movs(6, 5) = 0: movl(6, 5) = 1: movo(6, 5) = 1

sala$(5, 5) = "Vocˆ est  numa esquina. A sul h  um corredor. A leste h  uma bifurca‡Æo."
movn(5, 5) = 0: movs(5, 5) = 1: movl(5, 5) = 1: movo(5, 5) = 0

sala$(5, 6) = "Vocˆ est  num corredor. A norte h  uma virada para leste. A sul h  porta."
movn(5, 6) = 1: movs(5, 6) = 0: movl(5, 6) = 0: movo(5, 6) = 0

sala$(5, 7) = "Vocˆ est  numa bifurca‡Æo. A norte h  um corredor. A leste e a oeste h  salas."
movn(5, 7) = 1: movs(5, 7) = 0: movl(5, 7) = 1: movo(5, 7) = 1

sala$(6, 7) = "Vocˆ est  numa sala vazia. H  marcas de sangue pelo chÆo. A oeste h  uma        bifurca‡Æo."
movn(6, 7) = 0: movs(6, 7) = 0: movl(6, 7) = 0: movo(6, 7) = 1

sala$(4, 7) = "Vocˆ est  numa sala muito suja. Peda‡os de corpos pelo chÆo. O cheiro de morte ‚forte. A leste h  uma bifurca‡Æo."
movn(4, 7) = 0: movs(4, 7) = 0: movl(4, 7) = 1: movo(4, 7) = 0

sala$(3, 7) = "Vocˆ est  num corredor manchado de sangue seco. Blasfˆmias e frases profanas    cobrem as paredes, por exemplo: -O RPG leva ao crime-. A norte h  uma sala      escura. A sul o corredor continua, com uma leve descida."
movn(3, 7) = 1: movs(3, 7) = 1: movl(3, 7) = 0: movo(3, 7) = 0

sala$(3, 6) = "Vocˆ est  numa sala escura. Cartas de baralho espalhadas pelo chÆo, todas muito velhas e sujas de sangue."
movn(3, 6) = 0: movs(3, 6) = 1: movl(3, 6) = 0: movo(3, 6) = 0

sala$(3, 8) = "Vocˆ est  num corredor fedorendo e cheio de insetos. Ele continua para norte. A sul h  uma sala iluminada por velas."
movn(3, 8) = 1: movs(3, 8) = 1: movl(3, 8) = 0: movo(3, 8) = 0

sala$(3, 9) = "Vocˆ est  numa sala amaldi‡oada. Um pentagrama de sangue est  desenhado no chÆo.A sa¡da fica a norte."
movn(3, 9) = 1: movs(3, 9) = 0: movl(3, 9) = 0: movo(3, 9) = 0

sala$(6, 4) = "Vocˆ est  num corredor sem sa¡da. No fim dele h  uma placa de metal na parede   norte, com trˆs buracos quadrados. A sul h  uma bifurca‡Æo."
movn(6, 4) = 0: movs(6, 4) = 1: movl(6, 4) = 0: movo(6, 4) = 0

sala$(10, 20) = "Vocˆ est  numa estrada. Ela continua a norte e a sul. A norte h  uma            encruzilhada."
movn(10, 20) = 1: movs(10, 20) = 1: movl(10, 20) = 0: movo(10, 20) = 0

sala$(10, 19) = "Vocˆ est  numa encruzilhada de estradas. H  caminhos em todas as dire‡äes."
movn(10, 19) = 1: movs(10, 19) = 1: movl(10, 19) = 1: movo(10, 19) = 1

sala$(10, 18) = "Vocˆ est  numa estrada. H  uma pedra no meio do caminho. A estrada segue para   norte e para sul."
movn(10, 18) = 1: movs(10, 18) = 1: movl(10, 18) = 0: movo(10, 18) = 0

sala$(10, 17) = "Vocˆ est  numa estrada. A sul e a norte a estrada continua."
movn(10, 17) = 1: movs(10, 17) = 1: movl(10, 17) = 0: movo(10, 17) = 0

sala$(10, 16) = "Vocˆ est  numa estrada. Ela continua para norte e para sul."
movn(10, 16) = 1: movs(10, 16) = 1: movl(10, 16) = 0: movo(10, 16) = 0

sala$(10, 15) = "Vocˆ est  numa estrada. A norte ela vira para o oeste. A estrada continua para osul."
movn(10, 15) = 1: movs(10, 15) = 1: movl(10, 15) = 0: movo(10, 15) = 0

sala$(10, 14) = "Vocˆ est  numa virada da estrada. A estrada acaba a oeste. A norte estÆo as     grandes montanhas. A sul a estrada continua."
movn(10, 14) = 0: movs(10, 14) = 1: movl(10, 14) = 0: movo(10, 14) = 1

sala$(9, 19) = "Vocˆ est  numa estrada. A leste h  uma encruzilhada. A estrada continua a oeste."
movn(9, 19) = 0: movs(9, 19) = 0: movl(9, 19) = 1: movo(9, 19) = 1

sala$(8, 19) = "Vocˆ est  numa estrada. A estrada continua a leste e a oeste."
movn(8, 19) = 0: movs(8, 19) = 0: movl(8, 19) = 1: movo(8, 19) = 1

sala$(7, 19) = "Vocˆ est  numa estrada. A estrada continua a leste e a oeste."
movn(7, 19) = 0: movs(7, 19) = 0: movl(7, 19) = 1: movo(7, 19) = 1

sala$(6, 19) = "Vocˆ est  numa estrada. A estrada continua a leste e a oeste."
movn(6, 19) = 0: movs(6, 19) = 0: movl(6, 19) = 1: movo(6, 19) = 1

sala$(5, 19) = "Vocˆ est  numa estrada. A estrada continua a leste. A oeste h  uma virada para  norte."
movn(5, 19) = 0: movs(5, 19) = 0: movl(5, 19) = 1: movo(5, 19) = 1

sala$(4, 19) = "Vocˆ est  numa virada da estrada. A estrada acaba a norte e continua a leste."
movn(4, 19) = 1: movs(4, 19) = 0: movl(4, 19) = 1: movo(4, 19) = 0

sala$(4, 18) = "Vocˆ est  numa bifurca‡Æo, entrando numa mata. H  caminhos para leste e oeste. Asul fica a estrada."
movn(4, 18) = 0: movs(4, 18) = 1: movl(4, 18) = 1: movo(4, 18) = 1

sala$(5, 18) = "Vocˆ est  numa mata. A oeste h  uma bifurca‡Æo. A leste vocˆ vˆ a entrada de    uma caverna."
movn(5, 18) = 0: movs(5, 18) = 0: movl(5, 18) = 1: movo(5, 18) = 1

sala$(6, 18) = "Vocˆ est  numa pequena caverna. Ela parece que tem sido usada de moradia, mas   est  suja e desorganizada. A oeste est  a mata."
movn(6, 18) = 0: movs(6, 18) = 0: movl(6, 18) = 0: movo(6, 18) = 1

sala$(3, 18) = "Vocˆ est  numa mata. A oeste e a leste h  bifurca‡äes."
movn(3, 18) = 0: movs(3, 18) = 0: movl(3, 18) = 1: movo(3, 18) = 1

sala$(2, 18) = "Vocˆ est  numa bifurca‡Æo. A sul parece haver uma caverna. A norte a mata fica  mais densa. A leste o caminho continua."
movn(2, 18) = 1: movs(2, 18) = 1: movl(2, 18) = 1: movo(2, 18) = 0

sala$(2, 19) = "Vocˆ est  numa caverna. A caverna acaba a leste. A norte h  uma bifurca‡Æo."
movn(2, 19) = 1: movs(2, 19) = 0: movl(2, 19) = 1: movo(2, 19) = 0

sala$(3, 19) = "Vocˆ est  numa caverna. Ela parece ter sido usada recentimente. H  um cheiro de animal morto na ar."
movn(3, 19) = 0: movs(3, 19) = 0: movl(3, 19) = 0: movo(3, 19) = 1

sala$(2, 17) = "Vocˆ est  numa mata densa."
movn(2, 17) = 0: movs(2, 17) = 1: movl(2, 17) = 0: movo(2, 17) = 1

sala$(1, 17) = "Vocˆ est  numa mata densa."
movn(1, 17) = 1: movs(1, 17) = 0: movl(1, 17) = 1: movo(1, 17) = 0

sala$(1, 16) = "Vocˆ est  numa mata densa."
movn(1, 16) = 0: movs(1, 16) = 1: movl(1, 16) = 1: movo(1, 16) = 0

sala$(2, 16) = "Vocˆ est  numa mata densa."
movn(2, 16) = 0: movs(2, 16) = 0: movl(2, 16) = 1: movo(2, 16) = 1

sala$(3, 16) = "Vocˆ est  numa mata densa."
movn(3, 16) = 0: movs(3, 16) = 1: movl(3, 16) = 1: movo(3, 16) = 1

sala$(4, 16) = "Vocˆ est  numa mata densa. A norte h  uma cabana."
movn(4, 16) = 1: movs(4, 16) = 1: movl(4, 16) = 0: movo(4, 16) = 1

sala$(4, 17) = "Vocˆ est  numa mata densa."
movn(4, 17) = 1: movs(4, 17) = 0: movl(4, 17) = 1: movo(4, 17) = 1

sala$(5, 17) = "Vocˆ est  numa mata densa."
movn(5, 17) = 0: movs(5, 17) = 0: movl(5, 17) = 0: movo(5, 17) = 1

sala$(3, 17) = "Vocˆ est  numa mata densa."
movn(3, 17) = 1: movs(3, 17) = 0: movl(3, 17) = 1: movo(3, 17) = 0

sala$(4, 15) = "Vocˆ est  numa cabana ornamentada com mensageiros do vento e aromatizada com    insenso. V rios bonecos de gnomos estÆo numa prateleira. O som est  tocando     alguma can‡Æo calma e flu¡da como uma cachoeira. A sul e a leste vocˆ vˆ apenas matagal."
movn(4, 15) = 0: movs(4, 15) = 1: movl(4, 15) = 1: movo(4, 15) = 0

sala$(9, 14) = "Vocˆ est  fim (ou come‡o) da estrada. A leste h  uma virada para o sul. A sul   est  a entrada da cidade modelo de Uktaw. A norte estÆo as grandes montanhas."
movn(9, 14) = 0: movs(9, 14) = 1: movl(9, 14) = 1: movo(9, 14) = 0

sala$(9, 15) = "Vocˆ est  na entrada da cidade de Uktaw. Numa grande faixa est  escrito:        ELFOS, FIQUEM LONGE. A norte est  a estrada e a sul fica a rua principal de     Uktaw."
movn(9, 15) = 1: movs(9, 15) = 1: movl(9, 15) = 0: movo(9, 15) = 0

sala$(9, 16) = "Vocˆ est  em Uktaw. A norte fica a entrada norte da cidade. A sul fica a TavernaAbra‡o de Orc. A oeste a rua continua."
movn(9, 16) = 1: movs(9, 16) = 1: movl(9, 16) = 0: movo(9, 16) = 1

sala$(9, 17) = "Vocˆ est  na Taverna Abra‡o de Orc. Um ambiente at‚ agrad vel, deve ser por issoque est  vazia. A norte est  a rua principal."
movn(9, 17) = 1: movs(9, 17) = 0: movl(9, 17) = 0: movo(9, 17) = 0

sala$(8, 16) = "Vocˆ est  na rua principal. A norte h  uma estalagem chamada Mac'vei. A sul h   uma loja de usados chamada Peg-e-Mat. A oeste est  a pra‡a de Uktaw. A rua      continua a leste."
movn(8, 16) = 1: movs(8, 16) = 1: movl(8, 16) = 1: movo(8, 16) = 1

sala$(8, 15) = "Vocˆ est  na Estalagem Mac'vei. E ela realmente est  caindo aos peda‡os. A sa¡dafica a sul."
movn(8, 15) = 0: movs(8, 15) = 1: movl(8, 15) = 0: movo(8, 15) = 0

sala$(8, 17) = "Vocˆ est  na loja de usados Peg-e-Mat. Aqui h  um monte de prateleiras cheias decoisas velhas empilhadas. A norte est  a rua principal."
movn(8, 17) = 1: movs(8, 17) = 0: movl(8, 17) = 0: movo(8, 17) = 0

sala$(7, 16) = "Vocˆ est  na pra‡a de Uktaw, toda decorada com cabe‡as de elfos, o que faz o    lugar feder. H  ruas em todas as dire‡äes."
movn(7, 16) = 1: movs(7, 16) = 1: movl(7, 16) = 1: movo(7, 16) = 1

sala$(7, 15) = "Vocˆ est  numa rua. A norte h  uma torre com uma placa: Cajados m gicos         recarreg veis, compre o seu. A sul fica a pra‡a."
movn(7, 15) = 1: movs(7, 15) = 1: movl(7, 15) = 0: movo(7, 15) = 0

sala$(7, 14) = "Vocˆ est  na torre de algum mago. Um monte de cajados estÆo jogados num canto.  A sul est  a rua."
movn(7, 14) = 0: movs(7, 14) = 1: movl(7, 14) = 0: movo(7, 14) = 0

sala$(7, 17) = "Vocˆ est  numa rua. A sul h  um lote vago, bem gramado. A norte fica a pra‡a."
movn(7, 17) = 1: movs(7, 17) = 1: movl(7, 17) = 0: movo(7, 17) = 0

sala$(7, 18) = "Vocˆ est  num lote vago, gramado. H  listras brancas no chÆo, formando c¡rculos e quadrados. A norte est  a rua."
movn(7, 18) = 1: movs(7, 18) = 0: movl(7, 18) = 0: movo(7, 18) = 0

sala$(6, 16) = "Vocˆ est  na rua principal. A norte h  uma casa com uma placa: Her¢i aposentado.A sul est  a Arena dos Monstros Amorfos Mutantes (‚ o que est  escrito na       entrada). A leste fica a pra‡a e a oeste h  um beco."
movn(6, 16) = 1: movs(6, 16) = 1: movl(6, 16) = 1: movo(6, 16) = 1

sala$(6, 15) = "Vocˆ est  numa casa comum. Na parede est  pendurada uma mochila velha. Tamb‚m h um quadro de 11 pessoas usando roupas coloridas bem parecidas. A sul est  a rua principal."
movn(6, 15) = 0: movs(6, 15) = 1: movl(6, 15) = 0: movo(6, 15) = 0

sala$(6, 17) = "Vocˆ est  na Arena dos Monstros Amorfos Mutantes. A arena ‚ composta de um      buraco com grades onde os cidadÆos ficam jogando elfos para serem massacrados   por monstros mutantes famintos. A sa¡da fica ao norte."
movn(6, 17) = 1: movs(6, 17) = 0: movl(6, 17) = 0: movo(6, 17) = 0

sala$(5, 16) = "Vocˆ est  num beco com pouca ilumina‡Æo. A leste fica a rua principal. A norte  h  um matagal alto."
movn(5, 16) = 1: movs(5, 16) = 0: movl(5, 16) = 1: movo(5, 16) = 0

sala$(5, 15) = "Vocˆ est  num matagal alto. A sul fica a estrada. A oeste vocˆ vˆ uma cabana."
movn(5, 15) = 0: movs(5, 15) = 1: movl(5, 15) = 0: movo(5, 15) = 1

sala$(11, 19) = "Vocˆ est  numa estrada. A oeste h  uma encruzilhada. A estrada continua a leste."
movn(11, 19) = 0: movs(11, 19) = 0: movl(11, 19) = 1: movo(11, 19) = 1

sala$(12, 19) = "Vocˆ est  numa estrada. A estrada continua a oeste. A leste h  uma bifurca‡Æo."
movn(12, 19) = 0: movs(12, 19) = 0: movl(12, 19) = 1: movo(12, 19) = 1

sala$(13, 19) = "Vocˆ est  numa estrada. A norte h  uma floresta. A estrada continua a leste e a oeste."
movn(13, 19) = 1: movs(13, 19) = 0: movl(13, 19) = 1: movo(13, 19) = 1

sala$(14, 19) = "Vocˆ est  numa estrada. A estrada continua a leste. A oeste h  uma bifurca‡Æo."
movn(14, 19) = 0: movs(14, 19) = 0: movl(14, 19) = 1: movo(14, 19) = 1

sala$(15, 19) = "Vocˆ est  numa estrada. A estrada continua a leste e a oeste."
movn(15, 19) = 0: movs(15, 19) = 0: movl(15, 19) = 1: movo(15, 19) = 1

sala$(16, 19) = "Vocˆ est  numa estrada. A estrada continua a leste e a oeste."
movn(16, 19) = 0: movs(16, 19) = 0: movl(16, 19) = 1: movo(16, 19) = 1

sala$(17, 19) = "Vocˆ est  numa estrada. A estrada continua a oeste. A oeste h  uma bifurca‡Æo."
movn(17, 19) = 0: movs(17, 19) = 0: movl(17, 19) = 1: movo(17, 19) = 1

sala$(18, 19) = "Vocˆ est  numa estrada. A estrada acaba a leste e a oeste. A norte h  um bosque."
movn(18, 19) = 1: movs(18, 19) = 0: movl(18, 19) = 1: movo(18, 19) = 1

sala$(19, 19) = "Vocˆ est  no fim da estrada estrada. A leste h  uma ponte. A oeste h  uma       bifurca‡Æo."
movn(19, 19) = 0: movs(19, 19) = 0: movl(19, 19) = 1: movo(19, 19) = 1

sala$(20, 19) = "Vocˆ est  na Ponte do silˆncio. Ela est  quebrada, nÆo como atravess -la."
movn(20, 19) = 0: movs(20, 19) = 0: movl(20, 19) = 0: movo(20, 19) = 1

sala$(13, 18) = "Vocˆ est  na entrada de uma floresta."
movn(13, 18) = 1: movs(13, 18) = 1: movl(13, 18) = 1: movo(13, 18) = 1

sala$(13, 17) = "Vocˆ est  numa floresta. Ela parece ficar mais densa a leste."
movn(13, 17) = 0: movs(13, 17) = 1: movl(13, 17) = 1: movo(13, 17) = 0

sala$(14, 17) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(14, 17) = 1: movs(14, 17) = 0: movl(14, 17) = 0: movo(14, 17) = 1

sala$(14, 16) = "Vocˆ est  numa floresta densa e cheia de vida. Plantas ex¢ticas se encontram poraqui."
movn(14, 16) = 0: movs(14, 16) = 1: movl(14, 16) = 0: movo(14, 16) = 1

sala$(13, 16) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(13, 16) = 1: movs(13, 16) = 0: movl(13, 16) = 1: movo(13, 16) = 1

sala$(12, 16) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(12, 16) = 0: movs(12, 16) = 1: movl(12, 16) = 1: movo(12, 16) = 1

sala$(11, 16) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(11, 16) = 1: movs(11, 16) = 0: movl(11, 16) = 1: movo(11, 16) = 0

sala$(11, 15) = "Vocˆ est  numa floresta densa e cheia de vida. Plantas ex¢ticas se encontram poraqui."
movn(11, 15) = 0: movs(11, 15) = 1: movl(11, 15) = 1: movo(11, 15) = 0

sala$(12, 15) = "Vocˆ est  numa floresta densa e cheia de vida. Ao norte vocˆ pode ver um rio."
movn(12, 15) = 1: movs(12, 15) = 0: movl(12, 15) = 1: movo(12, 15) = 1

sala$(12, 14) = "Vocˆ est  na margem do rio Pedraguo. O rio est  calmo e ‚ muito limpo. A sul    est  a floresta."
movn(12, 14) = 0: movs(12, 14) = 1: movl(12, 14) = 0: movo(12, 14) = 0

sala$(13, 15) = "Vocˆ est  numa floresta densa e cheia de vida. Plantas ex¢ticas se encontram poraqui."
movn(13, 15) = 0: movs(13, 15) = 1: movl(13, 15) = 0: movo(13, 15) = 1

sala$(12, 17) = "Vocˆ est  numa pequena clareira no meio da floresta. Restos de fogueira se      encontram no chÆo."
movn(12, 17) = 1: movs(12, 17) = 0: movl(12, 17) = 0: movo(12, 17) = 1

sala$(11, 17) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(11, 17) = 0: movs(11, 17) = 1: movl(11, 17) = 1: movo(11, 17) = 0

sala$(11, 18) = "Vocˆ est  numa floresta densa e cheia de vida."
movn(11, 18) = 1: movs(11, 18) = 0: movl(11, 18) = 1: movo(11, 18) = 0

sala$(12, 18) = "Vocˆ est  numa floresta. Ela parece ficar mais densa a oeste."
movn(12, 18) = 1: movs(12, 18) = 0: movl(12, 18) = 1: movo(12, 18) = 0

sala$(18, 18) = "Vocˆ est  num bosque. Cigarras e outros insetos podem ser ouvidos. O c‚u parece mais negro aqui."
movn(18, 18) = 0: movs(18, 18) = 1: movl(18, 18) = 1: movo(18, 18) = 1

sala$(17, 18) = "Vocˆ est  num bosque. O vento balan‡a as  rvores, que progetam sombras sinistrasna grama."
movn(17, 18) = 0: movs(17, 18) = 0: movl(17, 18) = 1: movo(17, 18) = 1

sala$(16, 18) = "Vocˆ est  num bosque. V rios girass¢is murchos se encontram aqui."
movn(16, 18) = 0: movs(16, 18) = 0: movl(16, 18) = 1: movo(16, 18) = 1

sala$(15, 18) = "Vocˆ est  num bosque. A norte vocˆ pode ver uma  rvore seca muito grande. Na    verdade, vocˆ percebe que existe uma portinhola na  rvore, e vˆ uma chamin‚     saindo como um galho na lateral do tronco."
movn(15, 18) = 1: movs(15, 18) = 0: movl(15, 18) = 1: movo(15, 18) = 1

sala$(15, 17) = "Vocˆ est  numa cabana feito dentro de uma  rvore seca. Fetiches de ossos e pelesestÆo pendurados pela sala. Tamb‚m h  muitos livros e um pequeno fogÆo a lenha."
movn(15, 17) = 0: movs(15, 17) = 1: movl(15, 17) = 0: movo(15, 17) = 0

sala$(14, 18) = "Vocˆ est  num bosque. Coelhos e outros animais parecem se esconder nos arbustos."
movn(14, 18) = 0: movs(14, 18) = 0: movl(14, 18) = 1: movo(14, 18) = 1

sala$(19, 18) = "Vocˆ est  num bosque, … sombra de belas  rvores."
movn(19, 18) = 1: movs(19, 18) = 0: movl(19, 18) = 0: movo(19, 18) = 1

sala$(19, 17) = "Vocˆ est  no fim do bosque. Aqui h  bastante grama. A norte parece haver um     penhasco e uma ponte de madeira em forma de arco."
movn(19, 17) = 1: movs(19, 17) = 1: movl(19, 17) = 0: movo(19, 17) = 0

sala$(19, 16) = "Vocˆ est  numa ponte. A ponte atravessa um rio que passa v rios metros abaixo   dela. A norte pode-se ver o come‡o de uma floresta bem fechada."
movn(19, 16) = 1: movs(19, 16) = 1: movl(19, 16) = 0: movo(19, 16) = 0

sala$(19, 15) = "Vocˆ est  na entrada de uma grande floresta. Uma placa avisa: Floreta do elfos, fique longe. Pichado com tinta vermelha tamb‚m pode-se ler: Principalmente      b rbaros est£pidos."
movn(19, 15) = 1: movs(19, 15) = 1: movl(19, 15) = 0: movo(19, 15) = 0

sala$(19, 14) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 14) = 1: movs(19, 14) = 1: movl(19, 14) = 0: movo(19, 14) = 0

sala$(19, 13) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 13) = 1: movs(19, 13) = 1: movl(19, 13) = 0: movo(19, 13) = 0

sala$(19, 12) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 12) = 1: movs(19, 12) = 1: movl(19, 12) = 1: movo(19, 12) = 1

sala$(18, 12) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(18, 12) = 1: movs(18, 12) = 0: movl(18, 12) = 1: movo(18, 12) = 0

sala$(20, 12) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(20, 12) = 1: movs(20, 12) = 0: movl(20, 12) = 0: movo(20, 12) = 1

sala$(20, 11) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(20, 11) = 1: movs(20, 11) = 1: movl(20, 11) = 0: movo(20, 11) = 0

sala$(19, 11) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 11) = 1: movs(19, 11) = 1: movl(19, 11) = 0: movo(19, 11) = 0

sala$(18, 11) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(18, 11) = 1: movs(18, 11) = 1: movl(18, 11) = 0: movo(18, 11) = 0

sala$(18, 10) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(18, 10) = 0: movs(18, 10) = 1: movl(18, 10) = 1: movo(18, 10) = 0

sala$(19, 10) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 10) = 0: movs(19, 10) = 1: movl(19, 10) = 0: movo(19, 10) = 1

sala$(20, 10) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(20, 10) = 1: movs(20, 10) = 1: movl(20, 10) = 0: movo(20, 10) = 0

sala$(20, 9) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(20, 9) = 1: movs(20, 9) = 1: movl(20, 9) = 0: movo(20, 9) = 1

sala$(19, 9) = "Vocˆ est  numa floresta escura e cheia de sons assustadores."
movn(19, 9) = 0: movs(19, 9) = 0: movl(19, 9) = 1: movo(19, 9) = 1

sala$(18, 9) = "Vocˆ est  numa floresta. Ela parece ficar mais confort vel a oeste."
movn(18, 9) = 0: movs(18, 9) = 0: movl(18, 9) = 1: movo(18, 9) = 1

sala$(17, 9) = "Vocˆ est  numa floresta. Os sons dos p ssaros sÆo mais agrad veis aqui, e a     floresta j  nÆo parece tÆo assustadora."
movn(17, 9) = 1: movs(17, 9) = 0: movl(17, 9) = 1: movo(17, 9) = 0

sala$(17, 8) = "Vocˆ est  numa bela floresta. Vocˆ ouve o som de uma queda d' gua a norte."
movn(17, 8) = 1: movs(17, 8) = 1: movl(17, 8) = 0: movo(17, 8) = 0

sala$(17, 7) = "Vocˆ est  numa bela floresta. Vocˆ vˆ uma pequena queda d' gua a norte."
movn(17, 7) = 1: movs(17, 7) = 1: movl(17, 7) = 1: movo(17, 7) = 0

sala$(17, 6) = "Vocˆ est  numa queda d' gua de beleza indescrit¡vel. Um pequeno lago se forma   aqui. V rios animais se encontram aqui."
movn(17, 6) = 0: movs(17, 6) = 1: movl(17, 6) = 0: movo(17, 6) = 0

sala$(20, 8) = "Vocˆ est  numa floresta. Essa parte da floresta parece mais agrad vel."
movn(20, 8) = 0: movs(20, 8) = 1: movl(20, 8) = 0: movo(20, 8) = 1

sala$(19, 8) = "Vocˆ est  numa floresta. Parece haver uma pequena cabana a oeste."
movn(19, 8) = 0: movs(19, 8) = 0: movl(19, 8) = 1: movo(19, 8) = 1

sala$(18, 8) = "Vocˆ est  em frente a uma cabana de um metro. Pequenas ferramentas estÆo        espalhadas pelo chÆo."
movn(18, 8) = 0: movs(18, 8) = 0: movl(18, 8) = 1: movo(18, 8) = 0

sala$(18, 7) = "Vocˆ est  numa floresta. Esta parte da floresta ‚ mais aberta. A leste vocˆ     percebe uma virada para o norte."
movn(18, 7) = 0: movs(18, 7) = 0: movl(18, 7) = 1: movo(18, 7) = 1

sala$(19, 7) = "Vocˆ est  numa floresta. A norte vocˆ percebe a entrada de uma vila ‚lfica. As  casas ficam nas  rvores e acima delas."
movn(19, 7) = 1: movs(19, 7) = 0: movl(19, 7) = 0: movo(19, 7) = 1

sala$(19, 6) = "Vocˆ est  na entrada da vila ‚lfica de Tarnich. A norte h  uma grande clareira  em torno de uma  rvore enorme."
movn(19, 6) = 0: movs(19, 6) = 1: movl(19, 6) = 0: movo(19, 6) = 0

sala$(19, 5) = "Vocˆ est  numa clareira em torno de uma grande  rvore."
movn(19, 5) = 1: movs(19, 5) = 1: movl(19, 5) = 0: movo(19, 5) = 1

sala$(19, 4) = "Vocˆ est  numa clareira. A  rvore est  a oeste."
movn(19, 4) = 1: movs(19, 4) = 1: movl(19, 4) = 0: movo(19, 4) = 0

sala$(19, 3) = "Vocˆ est  numa clareira em torno de uma grande  rvore."
movn(19, 3) = 0: movs(19, 3) = 1: movl(19, 3) = 0: movo(19, 3) = 1

sala$(18, 3) = "Vocˆ est  numa clareira. A  rvore est  a sul."
movn(18, 3) = 0: movs(18, 3) = 0: movl(18, 3) = 1: movo(18, 3) = 1

sala$(17, 3) = "Vocˆ est  numa clareira em torno de uma grande  rvore."
movn(17, 3) = 0: movs(17, 3) = 1: movl(17, 3) = 1: movo(17, 3) = 0

sala$(17, 4) = "Vocˆ est  numa clareira. A  rvore est  a leste. H  escadas feitas de cip¢, que  levam para cima da  rvore, onde h  uma plataforma."
movn(17, 4) = 1: movs(17, 4) = 1: movl(17, 4) = 0: movo(17, 4) = 0

sala$(17, 5) = "Vocˆ est  numa clareira em torno de uma grande  rvore."
movn(17, 5) = 1: movs(17, 5) = 0: movl(17, 5) = 1: movo(17, 5) = 0

sala$(18, 5) = "Vocˆ est  numa clareira. A  rvore est  a norte."
movn(18, 5) = 0: movs(18, 5) = 0: movl(18, 5) = 1: movo(18, 5) = 1

sala$(18, 4) = "Vocˆ est  na plataforma principal da de Tarnich. H  v rias moradias aqui, al‚m  de quatro casas em  rvores pr¢ximas, ligadas por pontes. A cabana do norte      parece ser a mais importante. A do leste est  cercada de arcos e flechas. A do  sul tem s¡mbolos e runas m gicas na porta. A do oeste tem um s¡bolo que lembra  uma espada e uma lua."
movn(18, 4) = 1: movs(18, 4) = 1: movl(18, 4) = 1: movo(18, 4) = 1

sala$(18, 2) = "Vocˆ est  numa cabana grande, cheia de fetiches naturais que se confundem com   pe‡as decorativas de arte ‚lfica."
movn(18, 2) = 0: movs(18, 2) = 1: movl(18, 2) = 0: movo(18, 2) = 0

sala$(18, 6) = "Vocˆ est  numa cabana cheia de livros e materiais m gicos."
movn(18, 6) = 1: movs(18, 6) = 0: movl(18, 6) = 0: movo(18, 6) = 0

sala$(16, 4) = "Vocˆ est  numa cabana cheia de espadas e carca‡as de monstros nas paredes."
movn(16, 4) = 0: movs(16, 4) = 0: movl(16, 4) = 1: movo(16, 4) = 0

sala$(20, 4) = "Vocˆ est  numa cabana cheia de arcos e flechas."
movn(20, 4) = 0: movs(20, 4) = 0: movl(20, 4) = 0: movo(20, 4) = 1

sala$(15, 10) = "Vocˆ est  num corredor. As paredes estÆo mais lisas e brancas aqui."
movn(15, 10) = 0: movs(15, 10) = 0: movl(15, 10) = 1: movo(15, 10) = 1

sala$(16, 10) = "Vocˆ est  numa bifurca‡Æo. A leste a uma sala branca. A sul h  um longo         corredor."
movn(16, 10) = 0: movs(16, 10) = 1: movl(16, 10) = 1: movo(16, 10) = 1

sala$(17, 10) = "Vocˆ est  numa sala pintada de branco. H  v rias pixa‡äes nas paredes."
movn(17, 10) = 0: movs(17, 10) = 0: movl(17, 10) = 0: movo(17, 10) = 1

sala$(16, 11) = "Vocˆ est  num corredor. Ele continua a norte e a sul. As paredes sÆo de uma     pedra branca e lisa, que ‚ fria ao toque."
movn(16, 11) = 1: movs(16, 11) = 1: movl(16, 11) = 0: movo(16, 11) = 0

sala$(16, 12) = "Vocˆ est  num corredor. A leste h  uma sala sem ilumina‡Æo."
movn(16, 12) = 1: movs(16, 12) = 1: movl(16, 12) = 1: movo(16, 12) = 0

sala$(17, 12) = "Vocˆ est  numa sala sem ilumina‡Æo. Na parede leste h  uma placa de metal com   trˆs furos quadrados. A sul vocˆ vˆ um vazio escuro e assustador. Uma placa     pendurada no nada avisa: Cuidado! Dungeon em constru‡Æo."
movn(17, 12) = 0: movs(17, 12) = 1: movl(17, 12) = 0: movo(17, 12) = 1

sala$(17, 13) = "Vocˆ est  caindo eternamente num void."
movn(17, 13) = 0: movs(17, 13) = 0: movl(17, 13) = 0: movo(17, 13) = 0

sala$(16, 13) = "Vocˆ est  num corredor. A norte h  uma bifurca‡Æo."
movn(16, 13) = 1: movs(16, 13) = 1: movl(16, 13) = 0: movo(16, 13) = 0

sala$(16, 14) = "Vocˆ est  num corredor. Ele continua a norte e a sul."
movn(16, 14) = 1: movs(16, 14) = 1: movl(16, 14) = 0: movo(16, 14) = 0

sala$(16, 15) = "Vocˆ est  no fim do corredor. Uma porta de metal se encontra a sul."
movn(16, 15) = 1: movs(16, 15) = 0: movl(16, 15) = 0: movo(16, 15) = 0

sala$(16, 16) = "Vocˆ est  numa sala met lica. Ao centro, uma esp‚cie de caixÆo cheio d' gua e   cordas bem finas, que vÆo at‚ o teto, que ‚ iluminado por uma luz branca que    parece ser m gica."
movn(16, 16) = 0: movs(16, 16) = 0: movl(16, 16) = 0: movo(16, 16) = 0

sala$(13, 10) = "Vocˆ est  num corredor. Essa parte da dungeon ‚ menos iluminada que o resto."
movn(13, 10) = 0: movs(13, 10) = 0: movl(13, 10) = 1: movo(13, 10) = 1

sala$(12, 10) = "Vocˆ est  no fim de um corredor. Est  mais escuro aqui. A sul h  uma porta com  uma placa dizendo: Apenas pessoal autorizado."
movn(12, 10) = 0: movs(12, 10) = 1: movl(12, 10) = 1: movo(12, 10) = 0

sala$(12, 11) = "Vocˆ est  num corredor. A luz continua fraca. Estranhos quadros sem moldura e   com cores brilhantes estÆo como que colados na parede. SÆo desenhos de monstros,aventura e magia."
movn(12, 11) = 1: movs(12, 11) = 1: movl(12, 11) = 0: movo(12, 11) = 0

sala$(12, 12) = "Vocˆ est  numa sala estranha. H  mesas e cadeiras e outros m¢veis bizarros. Numadas mesas vocˆ pode ver livros estranhos com desenhos de cores vivas. Algumas   folhas absurdamente finas e brancas, al‚m de dados feitos de um material        desconhecido, como sem fossem de pedra, mas muito leves e resistentes. A oeste  h  uma porta aberta."
movn(12, 12) = 1: movs(12, 12) = 0: movl(12, 12) = 0: movo(12, 12) = 1

sala$(13, 12) = "Vocˆ est  numa sala secreta. H  v rias caixas feitas de algum material fino e   flex¡vel."
movn(13, 12) = 0: movs(13, 12) = 0: movl(13, 12) = 0: movo(13, 12) = 1

sala$(11, 12) = "Vocˆ est  numa sala menor. H  uma mesa, algumas cadeiras e mais objetos         estranhos. Na parede leste h  uma grande quadro bem colorido, no qual se pode   identificar uma grande aranha fazendo uma teia m gica em volta do mundo."
movn(11, 12) = 0: movs(11, 12) = 0: movl(11, 12) = 1: movo(11, 12) = 0

sala$(9, 9) = "Vocˆ est  num corredor. Essa parte da dungeon ‚ estranhamente silenciosa."
movn(9, 9) = 1: movs(9, 9) = 1: movl(9, 9) = 0: movo(9, 9) = 0

sala$(9, 10) = "Vocˆ est  num corredor. Essa parte da dungeon ‚ estranhamente silenciosa."
movn(9, 10) = 1: movs(9, 10) = 1: movl(9, 10) = 0: movo(9, 10) = 0

sala$(9, 11) = "Vocˆ est  num corredor. As paredes estÆo mais limpas que no resto da dungeon."
movn(9, 11) = 1: movs(9, 11) = 0: movl(9, 11) = 0: movo(9, 11) = 0

sala$(9, 12) = "Vocˆ est  num corredor. As paredes estÆo mais limpas que no resto da dungeon."
movn(9, 12) = 0: movs(9, 12) = 1: movl(9, 12) = 0: movo(9, 12) = 0

sala$(9, 13) = "Vocˆ est  no fim do corredor."
movn(9, 13) = 1: movs(9, 13) = 0: movl(9, 13) = 0: movo(9, 13) = 0

sala$(8, 13) = "Vocˆ est  numa sala de tijolos. H  uma placa de metal com trˆs buracos          quadrados. H  portas a sul e a oeste."
movn(8, 13) = 0: movs(8, 13) = 0: movl(8, 13) = 0: movo(8, 13) = 0

sala$(7, 13) = "Vocˆ est  numa sala toda coberta de couro grosso."
movn(7, 13) = 0: movs(7, 13) = 0: movl(7, 13) = 1: movo(7, 13) = 0

sala$(8, 14) = "Vocˆ est  numa sala toda coberta de couro grosso."
movn(8, 14) = 1: movs(8, 14) = 0: movl(8, 14) = 0: movo(8, 14) = 0

sala$(6, 3) = "Vocˆ est  numa passagem de luz muito forte. A norte vocˆ pode ver escuridÆo,    letras e n£meros girando como numa ilusÆo poderosa."
movn(6, 3) = 1: movs(6, 3) = 1: movl(6, 3) = 0: movo(6, 3) = 0

sala$(6, 2) = "Vocˆ est  numa sala completamente escura. N£meros e letras rodopiam e seus      cabelos estÆo arrepiados com a energia que cerca o lugar. Aparentemente vocˆ    chegou ao limite do jogo."
movn(6, 2) = 0: movs(6, 2) = 1: movl(6, 2) = 0: movo(6, 2) = 0

sala$(6, 1) = "Vocˆ est  num quarto completamente desorganizado. As paredes sÆo brancas e      lisas e os objetos parecem ter sido produzidos por magia."
movn(6, 1) = 0: movs(6, 1) = 0: movl(6, 1) = 0: movo(6, 1) = 0

CHAIN "C:\Blarg!\Diacho\Salas.bas"

END SUB

SUB Cred

CLS
LOCATE 28, 1
SLEEP 1: PRINT "                                    Diacho"
SLEEP 1: PRINT "                                  VersÆo 1.0"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                            C¢digo fonte escrito por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                           Id‚ia original plagiada por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                          Verrossimelhan‡a destru¡da por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                         Dublagem nas cenas de perigo por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                       Erros, bugs e coisas mal feitas por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                    Cr¡ticas e piadas referentes a Diablo por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                       Lanches nos intervalos comidos por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                   Arquivo de ajuda completamente ignorado por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                           Enrola‡Æo nos cr‚ditos por:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                           Agradecimentos especiais a:"
SLEEP 1: PRINT "                                  Janos Biro"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                           Ao cientista da computa‡Æo"
SLEEP 1: PRINT "                               Frederico Luciano"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                         E a todos que, de alguma forma,"
SLEEP 1: PRINT "                     nÆo me atrapalharam enquanto eu ficava"
SLEEP 1: PRINT "                    fechado no meu quarto fazendo esse jogo."
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                    Nenhum orc ou goblin foi maltratado durante"
SLEEP 1: PRINT "                            a programa‡Æo desse jogo"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "                         INFOBLARG: JOGOS PARA PCS RUINS"
SLEEP 1: PRINT "                            Nenhum direito reservado"
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
SLEEP 1: PRINT "": SLEEP 1: PRINT ""
INPUT "", press

END SUB

SUB Intro

CLS
LINE (0, 0)-(640, 480), 8, BF
LINE (10, 10)-(630, 470), 1, B
LOCATE 2, 1
PRINT ""
SLEEP 1: PRINT "         Cidade de Tricard"
SLEEP 2: PRINT "Tudo corria bem, at‚ que um dia..."
SLEEP 2: PRINT "Roubaram os gr ficos!"
SLEEP 2: PRINT "Gr ficos 3D de alt¡ssima resolu‡Æo."
SLEEP 2: PRINT "Tricard estava condenada a ser uma cidade de um jogo que nunca faria sucesso."
SLEEP 2: PRINT "Assim sendo, ela saiu das principais rotas comerciais."
SLEEP 2: PRINT "E seus cidadÆos a abandonaram em busca de jogos melhores."
SLEEP 2: PRINT "Agora vocˆ deve procurar algum sentido na vida sem gr ficos."
SLEEP 2: PRINT "Portando coisas que …s vezes sÆo in£teis, vocˆ luta."
SLEEP 2: PRINT "E sua luta ser  lembrada..."
SLEEP 2: PRINT "Se vocˆ salvar o jogo, ‚ claro!"
SLEEP 2: PRINT ""
INPUT "", press

END SUB