DECLARE SUB Morte ()

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()

inv:
CLS
LINE (0, 0)-(640, 480), 6, BF
LINE (10, 10)-(630, 470), 14, B
PRINT ""
PRINT "Invent¢rio:"
IF equ(1) > 0 THEN PRINT "(1)  Adaga "; : IF equip(1) = 1 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(2) > 0 THEN PRINT "(2)  Espada "; : IF equip(1) = 2 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(3) > 0 THEN PRINT "(3)  Machado "; : IF equip(1) = 3 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(4) > 0 THEN PRINT "(4)  Lan‡a "; : IF equip(1) = 4 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(5) > 0 THEN PRINT "(5)  Arco "; : IF equip(1) = 5 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(6) > 0 THEN PRINT "(6)  Funda "; : IF equip(1) = 6 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(7) > 0 THEN PRINT "(7)  Corselete "; : IF equip(3) = 7 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(8) > 0 THEN PRINT "(8)  Cota de malha "; : IF equip(3) = 8 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(9) > 0 THEN PRINT "(9)  Cota de talas "; : IF equip(3) = 9 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(10) > 0 THEN PRINT "(10) Armadura completa "; : IF equip(3) = 10 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(11) > 0 THEN PRINT "(11) Escudo "; : IF equip(2) = 11 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(12) > 0 THEN PRINT "(12) Escudo grande "; : IF equip(2) = 12 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(13) > 0 THEN PRINT "(13) Ma‡a "; : IF equip(1) = 13 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(14) > 0 THEN PRINT "(14) Martelo "; : IF equip(1) = 14 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(15) > 0 THEN PRINT "(15) Montante "; : IF equip(1) = 15 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(16) > 0 THEN PRINT "(16) Alabarda "; : IF equip(1) = 16 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(17) > 0 THEN PRINT "(17) Arco composto "; : IF equip(1) = 17 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(18) > 0 THEN PRINT "(18) Cajado "; : IF equip(2) = 18 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(19) > 0 THEN PRINT "(19) Foice "; : IF equip(1) = 19 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(20) > 0 THEN PRINT "(20) Espada curta "; : IF equip(1) = 20 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(21) > 0 THEN PRINT "(21) Pacote"
IF equ(22) > 0 THEN PRINT "(22) Anel de rubi "; : IF equip(4) = 22 OR equip(5) = 22 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(23) > 0 THEN PRINT "(23) Anel de ametista "; : IF equip(4) = 23 OR equip(5) = 23 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(24) > 0 THEN PRINT "(24) Amuleto da estrela "; : IF equip(6) = 24 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(25) > 0 THEN PRINT "(25) Amuleto da lua "; : IF equip(6) = 25 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(26) > 0 THEN PRINT "(26) Cajado de pedra "; : IF equip(1) = 26 OR equip(2) = 26 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(27) > 0 THEN PRINT "(27) Cajado de madeira "; : IF equip(1) = 27 OR equip(2) = 27 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(28) > 0 THEN PRINT "(28) Pergaminho de portal ("; equ(28); ")"
IF equ(29) > 0 THEN PRINT "(29) Po‡Æo de cura ("; equ(29); ")"
IF equ(30) > 0 THEN PRINT "(30) Pergaminho ("; equ(30); ")"
IF equ(31) > 0 THEN PRINT "(31) Manto negro "; : IF equip(7) = 31 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(32) > 0 THEN PRINT "(32) Pedra quadrada "
IF equ(33) > 0 THEN PRINT "(33) Cajado do jester "; : IF equip(2) = 33 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(34) > 0 THEN PRINT "(34) Orelhas falsas de elfo"
IF equ(35) > 0 THEN PRINT "(35) Po‡Æo contra calvice"
IF equ(36) > 0 THEN PRINT "(36) Como fazer amigos e influenciar pessoas"
IF equ(37) > 0 THEN PRINT "(37) Caneta permanente"
IF equ(38) > 0 THEN PRINT "(38) Cajado de raios "; : IF equip(2) = 38 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(39) > 0 THEN PRINT "(39) Cajado de bola de fogo "; : IF equip(2) = 39 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(40) > 0 THEN PRINT "(40) Cajado de cone de gelo "; : IF equip(2) = 40 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(41) > 0 THEN PRINT "(41) Ba£ vermelho"
IF equ(42) > 0 THEN PRINT "(42) Anel azul "; : IF equip(4) = 42 OR equip(5) = 42 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(43) > 0 THEN PRINT "(43) Cajado recarreg vel do jester "; : IF equip(2) = 43 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(44) > 0 THEN PRINT "(44) Po‡Æo vermelha ("; equ(44); ")"
IF equ(45) > 0 THEN PRINT "(45) Po‡Æo azul ("; equ(45); ")"
IF equ(46) > 0 THEN PRINT "(46) Pedra"
IF equ(47) > 0 THEN PRINT "(47) Disco"
IF equ(48) > 0 THEN PRINT "(48) Reagentes ("; equ(48); ")"
IF equ(49) > 0 THEN PRINT "(49) Po‡Æo de for‡a ("; equ(49); ")"
IF equ(50) > 0 THEN PRINT "(50) Po‡Æo de vigor ("; equ(50); ")"
IF equ(51) > 0 THEN PRINT "(51) Po‡Æo de agilidade ("; equ(51); ")"
IF equ(52) > 0 THEN PRINT "(52) Po‡Æo explosiva ("; equ(52); ")"
IF equ(53) > 0 THEN PRINT "(53) Po‡Æo ofuscante ("; equ(53); ")"
IF equ(54) > 0 THEN PRINT "(54) Po‡Æo de paralizia ("; equ(54); ")"
IF equ(55) > 0 THEN PRINT "(55) Po‡Æo de sono ("; equ(55); ")"
IF equ(56) > 0 THEN PRINT "(56) Po‡Æo de  cido ("; equ(56); ")"
IF equ(57) > 0 THEN PRINT "(57) Po‡Æo de regenera‡Æo ("; equ(57); ")"
IF equ(58) > 0 THEN PRINT "(58) Adaga Drow "; : IF equip(1) = 58 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(59) > 0 THEN PRINT "(59) Espada de cristal "; : IF equip(1) = 59 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(60) > 0 THEN PRINT "(60) Cota de malha ‚lfica "; : IF equip(3) = 60 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(61) > 0 THEN PRINT "(61) Gema do olho"
IF equ(62) > 0 THEN PRINT "(62) Boneco do Chuthulh£"
IF equ(63) > 0 THEN PRINT "(63) Po‡Æo de veneno ("; equ(63); ")"
IF equ(64) > 0 THEN PRINT "(64) Anel de regenera‡Æo "; : IF equip(4) = 64 OR equip(5) = 64 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(65) > 0 THEN PRINT "(65) Anel de paraliza‡Æo "; : IF equip(4) = 65 OR equip(5) = 65 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(66) > 0 THEN PRINT "(66) Pergaminho de drenar vida ("; equ(66); ")"
IF equ(67) > 0 THEN PRINT "(67) Pergaminho de encantar itens ("; equ(67); ")"
IF equ(68) > 0 THEN PRINT "(68) Pergaminho de paraliza‡Æo ("; equ(68); ")"
IF equ(69) > 0 THEN PRINT "(69) Pergaminho de transforma‡Æo ("; equ(69); ")"
IF equ(70) > 0 THEN PRINT "(70) Cajado de invoca‡Æo "; : IF equip(2) = 70 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(71) > 0 THEN PRINT "(71) Manto de invisibilidade "; : IF equip(7) = 71 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(72) > 0 THEN PRINT "(72) Manto de teleporte "; : IF equip(7) = 72 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(73) > 0 THEN PRINT "(73) Amuleto do terror "; : IF equip(6) = 73 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(74) > 0 THEN PRINT "(74) Amuleto da ilusÆo "; : IF equip(6) = 74 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(75) > 0 THEN PRINT "(75) Pergaminho de destrancar ("; equ(75); ")"
IF equ(76) > 0 THEN PRINT "(76) Cauda de escorpiÆo"
PRINT ""
INPUT "Equipar(e), Desequipar(d), Jogar fora(j) ou Usar(u): ", escl$
PRINT ""

SELECT CASE escl$

CASE "e"
INPUT "Equipar: ", eq
IF equ(eq) = 0 THEN GOTO fiminv

SELECT CASE eq
CASE 1, 58
IF classe$(1) = "Cl‚rigo" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 2
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 3
IF classe$(1) = "Mago" OR classe$(1) = "Bardo" OR classe$(1) = "LadrÆo" OR classe$(1) = "Assassino" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 4
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 5
IF classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 6
IF classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 13
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 14
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 15
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 16
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 17
IF classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 18, 26, 27, 33, 38 TO 40, 43, 70
IF equip(2) = equip(1) THEN equip(1) = 0
equip(2) = eq
CASE 19
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(1) = eq: equip(2) = eq
CASE 20
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Necromante" OR classe$(1) = "Cl‚rigo" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 7
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(3) = eq
CASE 8
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(3) = eq
CASE 9
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(3) = eq
CASE 10
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
equip(3) = eq
CASE 11
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(1) = 0
equip(2) = eq
CASE 12
IF classe$(1) = "Mago" OR classe$(1) = "Alquimista" OR classe$(1) = "Conjurador" OR classe$(1) = "Nightmage" OR classe$(1) = "Necromante" OR classe$(1) = "Druida" OR classe$(1) = "Monge" THEN PRINT "Equipamento proibido para classe": GOTO fiminv
IF equip(2) = equip(1) THEN equip(1) = 0
equip(2) = eq
CASE 22, 23, 42, 64, 65
IF equip(4) > 0 THEN equip(5) = eq ELSE equip(4) = eq
CASE 24, 25, 73, 74
equip(6) = eq
CASE 31, 71, 72
equip(7) = eq: IF eq = 31 THEN PRINT "Vocˆ sente sua rea‡Æo aumentar"
CASE 59
IF equip(2) = equip(1) THEN equip(2) = 0
equip(1) = eq
CASE 60
equip(3) = eq
END SELECT

CASE "d"
INPUT "Desquipar: ", eq
IF equ(eq) = 0 THEN GOTO fiminv
IF equip(1) = eq THEN equip(1) = 0
IF equip(2) = eq THEN equip(2) = 0
IF equip(3) = eq THEN equip(3) = 0
IF equip(4) = eq THEN equip(4) = 0
IF equip(5) = eq THEN equip(5) = 0
IF equip(6) = eq THEN equip(6) = 0
IF equip(7) = eq THEN equip(7) = 0: IF eq = 31 THEN PRINT "Vocˆ sente sua rea‡Æo voltar ao normal"

CASE "j"
INPUT "Jogar fora: ", eq
IF equ(eq) = 0 THEN GOTO fiminv
IF eq = 34 THEN PRINT "NÆo d . EstÆo grudadas": GOTO fiminv
IF equip(1) = eq THEN equip(1) = 0
IF equip(2) = eq THEN equip(2) = 0
IF equip(3) = eq THEN equip(3) = 0
IF equip(4) = eq THEN equip(4) = 0
IF equip(5) = eq THEN equip(5) = 0
IF equip(6) = eq THEN equip(6) = 0
IF equip(7) = eq THEN equip(7) = 0
equ(eq) = 0

CASE "u"
INPUT "Usar: ", eq
IF equ(eq) = 0 THEN GOTO fiminv

SELECT CASE eq

CASE 21
INPUT "Vocˆ quer abrir o pacote? ", resp$
IF resp$ = "s" THEN
SELECT CASE INT(RND * 4) + 1
CASE 1
s = 0: d = hab(4): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 2 THEN
PRINT "Vocˆ ouve um tic-tac no pacote e a joga longe antes que exploda!"
ELSE
PRINT "O pacote explode na sua mÆo!": fer(1) = fer(1) + 6
IF fer(1) >= vit(1) THEN Morte
END IF
equ(21) = 0: var(3) = 3
CASE 2
s = 0: d = hab(11): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
PRINT "Vocˆ encontra uma po‡Æo dentro do pacote"
equ(44) = equ(44) + 1: equ(21) = 0: var(3) = 3
IF s >= 2 THEN PRINT "Vocˆ identifica essa po‡Æo como sendo um poderoso veneno"
CASE 3
s = 0: d = hab(11): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
PRINT "Vocˆ encontra uma po‡Æo dentro do pacote"
equ(45) = equ(45) + 1: equ(21) = 0: var(3) = 3
IF s >= 2 THEN PRINT "Vocˆ identifica essa po‡Æo como sendo um poderoso narc¢tico"
CASE 4
PRINT "Dentro do pacote tudo que h  ‚ um bilhete dizendo:": PRINT "|Eu sabia que vocˆ ia abrir, agora nÆo vou mais te pagar, hahaha.|"
END SELECT
END IF

CASE 22: IF equip(4) = eq OR equip(5) = eq THEN  ELSE GOTO fiminv
PRINT "Uma chama vermelha sai de seu anel"
equ(22) = equ(22) - 1

CASE 23: IF equip(4) = eq OR equip(5) = eq THEN  ELSE GOTO fiminv
PRINT "Uma aura protetora come‡a a emanar em torno de vocˆ"
sta(2) = 3: equ(23) = equ(23) - 1

CASE 25: IF equip(6) = eq THEN  ELSE GOTO fiminv
PRINT "Um manto de sombras se faz em torno de vocˆ"
sta(1) = 5: equ(25) = equ(25) - 1

CASE 26: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ se sente mais forte"
sta(4) = 2: equ(26) = equ(26) - 1

CASE 27: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ sente seu vigor aumentar"
sta(5) = 2: equ(27) = equ(27) - 1

CASE 28: PRINT "Vocˆ ‚ teleportado"
portx = px: porty = py: px = 10: py = 3
equ(28) = equ(28) - 1

CASE 29: PRINT "Vocˆ sente sua vitalidade se restaurar"
fer(1) = fer(1) - INT(RND * 5) + 1
equ(29) = equ(29) - 1

CASE 30
IF mag(18) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 5 THEN PRINT "Vocˆ aprende o feiti‡o": mag(18) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
END IF
END IF
PRINT "Vocˆ sente sua vitalidade regenerando-se"
sta(6) = 10: equ(30) = equ(30) - 1

CASE 32
IF px = 6 AND py = 4 THEN
INPUT "Em qual buraco?(1, 2 ou 3) ", resp
IF resp = 1 THEN px = 8: py = 13
IF resp = 2 AND porta(3) = 0 THEN PRINT "Uma porta se abre ao norte (xp +5)": xp(1) = xp(1) + 5: porta(3) = 1
IF resp = 3 THEN px = 17: py = 12
GOTO fiminv
END IF
IF px = 8 AND py = 13 THEN
INPUT "Em qual buraco?(1, 2 ou 3) ", resp
IF resp = 1 THEN px = 6: py = 4
IF resp = 2 THEN GOTO telep
IF resp = 3 THEN px = 17: py = 12
GOTO fiminv
END IF
IF px = 17 AND py = 12 THEN
INPUT "Em qual buraco?(1, 2 ou 3) ", resp
IF resp = 1 THEN px = 8: py = 13
IF resp = 2 THEN GOTO telep
IF resp = 3 THEN px = 6: py = 4
GOTO fiminv
END IF
IF px = 9 AND py = 4 THEN
INPUT "Roger: Ei, quer vender essa pedra a¡ por 10 moedas? ", resp$
IF resp$ = "s" THEN PRINT "Roger: àtimo, agora posso ligar minha tv de novo. Tome.": din = din + 10: equ(32) = 0 ELSE PRINT "Roger: Tudo bem, problema seu."
GOTO fiminv
END IF
s = 0: d = vig(1) + sta(5): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
dan = 5 - s: IF dan < 0 THEN dan = 0
PRINT "A pedra solta uma fa¡sca e te d  um choque, causando"; dan; "de dano"
fer(1) = fer(1) + dan
GOTO fiminv
telep:
x = INT(RND * 20) + 1: y = INT(RND * 20) + 1
IF sala$(x, y) = "" GOTO telep ELSE px = x: py = y

CASE 33
IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
SELECT CASE INT(RND * 10) + 1
CASE 1: PRINT "V rios dardos de energia saem do cajado e vÆo parar no chÆo"
CASE 2: PRINT "Vocˆ se sente mais protegido": sta(8) = 4
CASE 3: PRINT "Ilusäes e luzes rodopiantes saem do cajado"
CASE 4: PRINT "Vocˆ boceja"
CASE 5: PRINT "Uma teia m gica sai do cajado e some"
CASE 6: PRINT "Uma imagem de vocˆ mesmo aparece do seu lado": sta(9) = 4
CASE 7: PRINT "Uma bola de fogo ‚ disparada do cajado para o c‚u, indo parar fora do jogo (vocˆouve um alarme de carro ap¢s uma explosÆo)"
CASE 8: PRINT "Vocˆ desaparece": sta(10) = 4
CASE 9: PRINT "Um bando de coelhos come‡am a aparecer do nada e a correr pra todos os lados"
CASE 10: PRINT "O mundo parece ter ficado maior... Ei! Vocˆ encolheu!!!! Vocˆ rapidamente usa o cajado de novo para voltar ao tamanho normal"
END SELECT
equ(33) = equ(33) - 1

CASE 34
INPUT "Vocˆ tem certeza que quer usar essas orelhas de elfo? ", resp$
IF resp$ = "s" THEN PRINT "Vocˆ päe as orelhas falsas": var(5) = 1

CASE 35
IF px = 7 AND py = 14 THEN
INPUT "Vocˆ quer dar a po‡Æo para Ovlac? ", resp$
IF resp$ = "s" THEN
PRINT "Ovlac: Heim? O que ‚ isso? Po‡Æo contra calvice?"
PRINT "Ovlac pega a po‡Æo e usa em si mesmo, ficando cabeludo num intante": equ(35) = 0: var(7) = 1
PRINT "Ovlac: NÆo acredito! Muito obrigado, "; nome$(1); "."
PRINT "Ovlac: Era justamente o que eu estava querendo. (xp +1)": SLEEP 2: xp(1) = xp(1) + 1
IF equ(33) > 0 THEN
PRINT "Como recompensa transformarei seu raro Cajado do chester num ainda mais raro    Cajado RECARREGµVEL do chester!"
PRINT "Ovlac pega o cajado e faz uma pequeno feiti‡o nele": SLEEP 2
PRINT "Ovlac: Pronto. Agora v , vou passar gel no meu cabelo e ir pra rave!"
ELSE
PRINT "Ovlac: Como recompensa indicarei vocˆ para revendedor de cajados recarreg veis."
END IF
END IF
ELSE
INPUT "Tem certeza que quer usar essa po‡Æo? ", resp$
IF resp$ = "s" THEN PRINT "Seus cabelos crescem at‚ os joelhos!": var(6) = 1: equ(35) = 0
END IF

CASE 36
INPUT "Vocˆ tem certeza que quer ler esse livro? ", resp$
IF resp$ = "s" THEN
PRINT "Vocˆ come‡a a ler...": SLEEP 2
PRINT "Vocˆ aprende como fazer amigos e influenciar pessoas"
IF var(10) = 0 THEN var(10) = 1: hab(13) = hab(13) + 2
END IF

CASE 37
INPUT "Onde vocˆ espera usar isso? ", resp$
IF resp$ = "rosto" OR resp$ = "no rosto" OR resp$ = "no meu rosto" THEN
IF sta(12) = 0 THEN PRINT "Vocˆ nÆo faz id‚ia do porque usar isso no rosto (cheater!)"
IF sta(12) = 1 THEN
IF equ(47) > 0 THEN
PRINT "Vocˆ usa o disco para te ajudar a fazer marcas no rosto"
ELSE
IF px = 11 AND py = 12 THEN PRINT "Vocˆ olha seu reflexo no rio para fazer marcas no rosto" ELSE PRINT "Vocˆ precisa de uma superf¡cie reflexiva para nÆo se borrar todo": GOTO fiminv
sta(12) = 2: PRINT "(xp +1)": xp(1) = xp(1) + 1
END IF
END IF
END IF

CASE 38: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Um raio ‚ disparado do cajado, atinjindo o chÆo logo a sua frente"
equ(38) = equ(38) - 1

CASE 39: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Uma bola de fogo ‚ disparada do cajado para o c‚u, indo parar fora do jogo (vocˆouve um alarme de carro ap¢s uma explosÆo)"
equ(39) = equ(39) - 1

CASE 40: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Um cone de gelo ‚ disparado do cajado, molhando o chÆo"
equ(40) = equ(40) - 1

CASE 41
IF var(14) = 0 THEN
INPUT "Vocˆ quer abrir o ba£? ", resp$
IF resp$ = "s" THEN
INPUT "O ba£ est  trancado. Vocˆ quer tentar destrancar? ", resp$
IF resp$ = "s" THEN
s = 0: d = hab(5): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 3 THEN
PRINT "Vocˆ destranca o ba£"
PRINT "Dentro vocˆ acha um disco estranho com um furo no meio. De um lado ele ‚        reflexivo, do outro cont‚m as escrituras: Diablo II"
PRINT "(xp +1)": xp(1) = xp(1) + 1
equ(47) = 1
ELSE
PRINT "Vocˆ nÆo consegue destrancar o ba£"
INPUT "Quer tentar arromb -lo? ", resp$
IF resp$ = "s" THEN
sta(1) = 0
s = 0: d = forc(1) + sta(4): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 3 THEN
PRINT "Vocˆ arromba o ba£"
PRINT "Infelizmente o ba£ foi destru¡do no processo"
PRINT "Dentro vocˆ acha um disco estranho com um furo no meio. De um lado ele ‚        reflexivo, do outro cont‚m as escrituras: Diablo II"
PRINT "(xp +1)": xp(1) = xp(1) + 1
equ(47) = 1
equ(41) = 0
ELSE
PRINT "Vocˆ nÆo conseguiu arrombar o ba£"
END IF
END IF
END IF
END IF
END IF
ELSE
PRINT "O ba£ est  vazio"
END IF

CASE 42: IF equip(4) = eq OR equip(5) = eq THEN  ELSE GOTO fiminv
PRINT "Um raio azul sai de seu anel"
equ(42) = equ(42) - 1

CASE 43: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
SELECT CASE INT(RND * 10) + 1
CASE 1: PRINT "V rios dardos de energia saem do cajado e vÆo parar no chÆo"
CASE 2: PRINT "Vocˆ se sente mais protegido": sta(8) = 4
CASE 3: PRINT "O mundo come‡a a rodar e a se distorcer. Apenas uma ilusÆo."
CASE 4: PRINT "Vocˆ boceja"
CASE 5: PRINT "Uma teia m gica sai do cajado e some"
CASE 6: PRINT "Uma imagem de vocˆ mesmo aparece do seu lado": sta(9) = 4
CASE 7: PRINT "Uma bola de fogo ‚ disparada do cajado para o c‚u, indo parar fora do jogo (vocˆouve um alarme de carro ap¢s uma explosÆo)"
CASE 8: PRINT "Vocˆ desaparece": sta(10) = 4
CASE 9: PRINT "Um bando de coelhos come‡am a aparecer do nada e a correr pra todos os lados"
CASE 10: PRINT "O mundo parece ter ficado maior... Ei! Vocˆ encolheu!!!! Vocˆ rapidamente usa o cajado de novo para voltar ao tamanho normal"
END SELECT
equ(43) = equ(43) - 1

CASE 44
INPUT "Essa po‡Æo nÆo parece ter efeito...", press
INPUT "Espere...", press
INPUT "Vocˆ come‡a a tossir", press
INPUT "Vocˆ come‡a a tossir muito!", press
INPUT "Vocˆ est  muito mal!", press
INPUT "Parece que ‚ o fim...", press
equ(44) = equ(44) - 1
Morte

CASE 45
PRINT "Essa po‡Æo nÆo parece ter efeito...": SLEEP 1
PRINT "UOU!!! Pera¡ que bateu a onda..."
exa(1) = 0
equ(45) = equ(45) - 1

CASE 46
IF px = 3 AND py = 7 AND porta(5) = 1 THEN
INPUT "Diga, com uma simples palavra, onde vocˆ quer usar essa pedra? ", resp$
IF resp$ = "porta" OR resp$ = "Porta" OR resp$ = "chÆo" OR resp$ = "ChÆo" THEN
PRINT "A pedra agora est  segurando a porta": porta(5) = 3
PRINT "(xp +1)": xp(1) = xp(1) + 1
ELSE
PRINT "NÆo parece eficaz"
END IF
ELSE
PRINT "Essa pedra parece ¢tima para segurar portas"
END IF

CASE 47
PRINT "Vocˆ nÆo sabe o que fazer com isso, mas consegue ver seu rosto no lado reflexivo"
IF var(5) > 0 THEN PRINT "Vocˆ parece rid¡culo com esse par de orelhas falsas"

CASE 49: PRINT "Vocˆ toma a po‡Æo": sta(4) = 3: equ(49) = equ(49) - 1
CASE 50: PRINT "Vocˆ toma a po‡Æo": sta(5) = 3: equ(50) = equ(50) - 1
CASE 51: PRINT "Vocˆ toma a po‡Æo": sta(11) = 3: equ(51) = equ(51) - 1
CASE 52: PRINT "Vocˆ joga a po‡Æo, ela explode sem ferir ningu‚m": equ(52) = equ(52) - 1
CASE 53: PRINT "Vocˆ joga a po‡Æo, ela explode num brilho forte": equ(53) = equ(53) - 1
CASE 54: PRINT "Vocˆ joga a po‡Æo, ela se transforma numa teia grudenta no chÆo": equ(54) = equ(54) - 1
CASE 55: PRINT "Vocˆ joga a po‡Æo, um p¢ parecido com areia se espalha": equ(55) = equ(55) - 1
CASE 56: PRINT "Vocˆ joga a po‡Æo, o frasco se quebra no chÆo e come‡a a sair fuma‡a": equ(56) = equ(56) - 1
CASE 57: PRINT "Vocˆ bebe a po‡Æo": sta(6) = 10: equ(57) = equ(57) - 1

CASE 58
IF px = 11 AND py = 12 THEN
PRINT "O drow olha para sua adaga"
PRINT "Drow: O quˆ? Minha adaga! Onde vocˆ achou?"
INPUT "Drow: Me diga, o que vocˆ quer por essa adaga? ", resp$
IF resp$ = "boneco do chuthulh£" OR resp$ = "chuthulh£" OR resp$ = "boneco" THEN
PRINT "Drow: Tudo bem, eu te dou um boneco do chuthulh£, me dˆ essa adaga.": equ(58) = 0: equ(62) = 1
ELSE
INPUT "Drow: Tudo que eu tenho sÆo 10 moedas, ‚ pegar ou largar, que tal? ", resp$
IF resp$ = "s" THEN
PRINT "Drow: àtimo! Tome as moedas e me dˆ essa adaga.": equ(58) = 0: din = din + 10
PRINT "(xp +1)": xp(1) = xp(1) + 1
ELSE
INPUT "Drow: NÆo? Que tal 20 moedas? ", resp$
IF resp$ = "s" THEN
PRINT "Drow: àtimo! Tome as moedas e me dˆ essa adaga.": equ(58) = 0: din = din + 20
PRINT "(xp +1)": xp(1) = xp(1) + 1
ELSE
INPUT "Drow: 40 moedas? ", resp$
IF resp$ = "s" THEN
PRINT "Drow: àtimo! Tome as moedas e me dˆ essa adaga.": equ(58) = 0: din = din + 40
PRINT "(xp +1)": xp(1) = xp(1) + 1
ELSE
PRINT "Drow: EntÆo vai ter que ser … for‡a!": mon = 26
END IF
END IF
END IF
END IF
END IF

CASE 59: IF equ(59) < 6 THEN PRINT "A espada de cristal brilha e reconstitu¡-se magicamente": equ(59) = 6
IF px = 6 AND py = 2 AND porta(3) = 1 THEN PRINT "Uma passagem m gica abre-se no vazio": porta(3) = 2
IF equ(61) = 1 THEN
INPUT "Onde vocˆ quer usar a espada? ", resp$
IF resp$ = "gema" OR resp$ = "Gema" THEN
INPUT "Vocˆ quer destruir a gema? ", resp$
IF resp$ = "s" THEN PRINT "A gema explode em milhares de peda‡os."
PRINT "Vocˆ se sente estranhamente realizado (+ 20 xp)": xp(1) = xp(1) + 20
END IF
END IF

CASE 61
IF px = 2 AND py = 13 AND sta(22) = 0 THEN
INPUT "Vocˆ quer colocar a gema no buraco do olho da est tua? ", resp$
IF resp$ = "s" THEN
PRINT "Nada acontece": SLEEP 2
PRINT "Espere...": SLEEP 1
PRINT "A est tua est  voltando a vida!"
sta(22) = 1
INPUT "Beholder: Quem ‚ vocˆ? ", resp$
IF resp$ = "mestre" OR resp$ = "seu mestre" THEN PRINT "Beholder: Eu nÆo tenho mestre, insolente!"
PRINT "Beholder: Devo agredecer por ter me libertado. Eu agora irei continuar minha    missÆo, roubar os gr ficos de todos os jogos de RPG fajutos do mundo!!!         HAHAHAHAHA!!!"
mon = 29: sta(1) = 0: sta(10) = 0
equ(61) = 0
END IF
ELSE
PRINT "Por um segundo vocˆ tem a impressÆo de ver um cara magrelo, narigudo e cabeludo refletido na gema"
END IF

CASE 62
IF px = 3 AND py = 19 AND corpo(25) = 0 THEN
INPUT "Vocˆ quer dar o boneco ao ogro? ", resp$
IF resp$ = "s" THEN
PRINT "Ogro: Boneco do Chuthulh£! EBA!!!": SLEEP 1
PRINT "O ogro larga a gema em forma de olho": SLEEP 1
PRINT "Vocˆ pega a gema": equ(61) = 1: equ(62) = 0
PRINT "(xp +1)": xp(1) = xp(1) + 1
END IF
ELSE
PRINT "Este boneco fofinho representa a incarna‡Æo de toda a maldade do universo!"
PRINT " um monstro verde com tent culos e asa de morcego, cuja mera visÆo pode te     deixar insano!"
END IF

CASE 63: PRINT "Vocˆ joga a po‡Æo, o frasco se quebra no chÆo e evapora": equ(63) = equ(63) - 1

CASE 64: IF equip(4) = eq OR equip(5) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ sente sua vitalidade regenerando-se"
sta(6) = 6: equ(64) = equ(64) - 1

CASE 65: IF equip(4) = eq OR equip(5) = eq THEN  ELSE GOTO fiminv
PRINT "As coisas ficam um pouco lentas": equ(65) = equ(65) - 1

CASE 66: PRINT "NÆo h  alvo v lido"
IF mag(23) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 5 THEN PRINT "Vocˆ aprende o feiti‡o": mag(23) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
equ(66) = equ(66) - 1
END IF
END IF

CASE 67
IF mag(24) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 6 THEN PRINT "Vocˆ aprende o feiti‡o": mag(24) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
END IF
END IF
PRINT "Invent¢rio:"
IF equ(1) > 0 THEN PRINT "(1)  Adaga "; : IF equip(1) = 1 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(2) > 0 THEN PRINT "(2)  Espada "; : IF equip(1) = 2 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(3) > 0 THEN PRINT "(3)  Machado "; : IF equip(1) = 3 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(4) > 0 THEN PRINT "(4)  Lan‡a "; : IF equip(1) = 4 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(5) > 0 THEN PRINT "(5)  Arco "; : IF equip(1) = 5 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(6) > 0 THEN PRINT "(6)  Funda "; : IF equip(1) = 6 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(7) > 0 THEN PRINT "(7)  Corselete "; : IF equip(3) = 7 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(8) > 0 THEN PRINT "(8)  Cota de malha "; : IF equip(3) = 8 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(9) > 0 THEN PRINT "(9)  Cota de talas "; : IF equip(3) = 9 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(10) > 0 THEN PRINT "(10) Armadura completa "; : IF equip(3) = 10 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(11) > 0 THEN PRINT "(11) Escudo "; : IF equip(2) = 11 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(12) > 0 THEN PRINT "(12) Escudo grande "; : IF equip(2) = 12 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(13) > 0 THEN PRINT "(13) Ma‡a "; : IF equip(1) = 13 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(14) > 0 THEN PRINT "(14) Martelo "; : IF equip(1) = 14 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(15) > 0 THEN PRINT "(15) Montante "; : IF equip(1) = 15 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(16) > 0 THEN PRINT "(16) Alabarda "; : IF equip(1) = 16 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(17) > 0 THEN PRINT "(17) Arco composto "; : IF equip(1) = 17 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(18) > 0 THEN PRINT "(18) Cajado "; : IF equip(1) = 18 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(19) > 0 THEN PRINT "(19) Foice "; : IF equip(1) = 19 THEN PRINT "(Eq)" ELSE PRINT ""
IF equ(20) > 0 THEN PRINT "(20) Espada curta "; : IF equip(1) = 20 THEN PRINT "(Eq)" ELSE PRINT ""
PRINT ""
INPUT "Encantar: ", resp
IF equ(resp) > 0 AND INT(RND * 6) + 1 >= equ(resp) + 1 THEN equ(resp) = equ(resp) + 1: PRINT "Vocˆ encanta o item" ELSE equ(resp) = equ(resp) - 1: PRINT " O encantamento falhou. O item foi danificado"
equ(67) = equ(67) - 1

CASE 68: PRINT "NÆo h  alvo v lido"
IF mag(21) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 5 THEN PRINT "Vocˆ aprende o feiti‡o": mag(21) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
equ(68) = equ(68) - 1
END IF
END IF

CASE 69
IF mag(19) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 6 THEN PRINT "Vocˆ aprende o feiti‡o": mag(19) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
END IF
END IF
PRINT "Vocˆ se transforma num grande lobo b¡pede": sta(26) = 3
equ(69) = equ(69) - 1

CASE 70: IF equip(1) = eq OR equip(2) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ invoca um elemental"
sta(13) = car(1)
equ(70) = equ(70) - 1

CASE 71: IF equip(7) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ desaparece": sta(10) = 4
equ(71) = equ(71) - 1

CASE 72: IF equip(7) = eq THEN  ELSE GOTO fiminv
PRINT "Vocˆ ‚ teleportado": px = 11: py = 3
equ(72) = equ(72) - 1

CASE 73: PRINT "Vocˆ emana uma aura de terror"
mag(9) = 0: mag(11) = 0: hab(8) = 0: sta(16) = 4
equ(73) = equ(73) - 1

CASE 74: PRINT "Uma imagem de vocˆ aparece do seu lado"
sta(6) = 4: equ(74) = equ(74) - 1

CASE 75
IF mag(25) = 0 THEN
INPUT "Quer tentar aprender o feiti‡o? ", resp$
IF resp$ = "s" THEN
s = 0: d = inte(1) + hab(1): DO
d = d - 1: j = INT(RND * 6) + 1: IF j >= 4 THEN s = s + 1: IF j = 6 THEN d = d + 1
LOOP UNTIL d <= 0
IF s >= 5 THEN PRINT "Vocˆ aprende o feiti‡o": mag(25) = 1 ELSE PRINT "Vocˆ nÆo consegue aprender o feti‡o"
END IF
END IF
IF px = 9 AND py = 8 AND movn(9, 8) = 0 THEN PRINT "Vocˆ destranca a porta norte": movn(9, 8) = 1 ELSE PRINT "O feiti‡o falhou!"
IF px = 7 AND py = 8 AND porta(1) = 0 THEN PRINT "Vocˆ nÆo pode destrancar essa porta assim"
IF px = 5 AND py = 6 AND porta(4) = 0 THEN PRINT "Vocˆ destranca a porta sul": porta(4) = 1 ELSE PRINT "O feiti‡o falhou!"
IF px = 8 AND py = 13 THEN
INPUT "A porta oeste(o) ou a porta sul(s)?", resp$
IF resp$ = "o" AND porta(7) = 0 THEN PRINT "Vocˆ destranca a porta oeste": porta(7) = 1 ELSE PRINT "O feiti‡o falhou!"
IF resp$ = "s" AND porta(8) = 0 THEN PRINT "Vocˆ destranca a porta sul": porta(8) = 1 ELSE PRINT "O feiti‡o falhou!"
END IF
IF px = 16 AND py = 15 AND movs(16, 15) = 0 THEN PRINT "Vocˆ destranca a porta sul": movs(16, 15) = 1 ELSE PRINT "O feiti‡o falhou!"
IF px = 16 AND py = 16 AND movn(16, 16) = 0 THEN PRINT "Vocˆ destranca a porta norte": movn(16, 16) = 1 ELSE PRINT "O feiti‡o falhou!"
IF px = 3 AND py = 7 AND movl(3, 7) = 0 THEN PRINT "Vocˆ nÆo pode destrancar essa porta assim"
equ(75) = equ(75) - 1

CASE 76
IF px = 9 AND py = 4 AND var(12) = 2 THEN
PRINT "Roger: Obrigado. Tome um trocado pelo trabalho. (3 moedas)": var(12) = 0: equ(76) = equ(76) - 1: din = din + 3
END IF

END SELECT
END SELECT

fiminv:
INPUT "", press
CHAIN "C:\Blarg!\Diacho\Salas.bas"

SUB Morte

INPUT "Vocˆ morreu!", press
sta(1) = 0: sta(2) = 0: sta(4) = 0: sta(5) = 0: sta(6) = 0: sta(8) = 0: sta(10) = 0: sta(11) = 0: sta(13) = 0: sta(14) = 0: sta(16) = 0: sta(19) = 0
exa(1) = 0: fer(1) = 0
px = 3: py = 4
xp(1) = xp(1) \ 2
din = din \ 2
mon = 0
CHAIN "C:\Blarg!\Diacho\Salas.bas"

END SUB