DECLARE SUB Chao () DECLARE SUB Desenhos () DECLARE SUB Eventos2 () DECLARE SUB Convers2 () DECLARE SUB Cavalo () DECLARE SUB Descanso () DECLARE SUB Emboscada () DECLARE SUB Aprender () DECLARE SUB Conversa () DECLARE SUB Equipa () DECLARE SUB Habili () DECLARE SUB Morte () DECLARE SUB Combate () DECLARE SUB Salas () DECLARE SUB Status () DECLARE SUB Invent () DECLARE SUB Grimorio () DECLARE SUB Errante () DECLARE SUB Eventos () 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() Salas SUB Aprender CLS LINE (0, 0)-(640, 480), 1, BF LINE (10, 10)-(630, 470), 9, B PRINT "" PRINT "Feiti‡os:" IF mag(1) = 0 THEN PRINT "(1) Dardos m¡sticos" IF mag(2) = 0 THEN PRINT "(2) Armadura" IF mag(3) = 0 THEN PRINT "(3) ConfusÆo" IF mag(4) = 0 THEN PRINT "(4) Sono" IF mag(5) = 0 THEN PRINT "(5) Teia" IF mag(6) = 0 THEN PRINT "(6) Espelho" IF mag(7) = 0 THEN PRINT "(7) Bola de fogo" IF mag(8) = 0 THEN PRINT "(8) Invisibilidade" IF mag(9) = 0 THEN PRINT "(9) Curar ferimentos" IF classe$(1) = "Druida" AND mag(19) = 0 THEN PRINT "(19) Forma de Worg" IF classe$(1) = "Necromante" AND mag(23) = 0 THEN PRINT "(23) Drenar vida" IF classe$(1) = "Alquimista" AND mag(24) = 0 THEN PRINT "(24) Encantar item" IF classe$(1) = "Nigthmage" AND mag(25) = 0 THEN PRINT "(25) Destrancar" IF classe$(1) = "Cl‚rigo" AND mag(27) = 0 THEN PRINT "(27) Purificar" IF classe$(1) = "Paladino" AND mag(27) = 0 THEN PRINT "(27) Purificar" IF classe$(1) = "Druida" AND mag(27) = 0 THEN PRINT "(27) Purificar" PRINT "" INPUT "Feiti‡o: ", feit IF feit = 19 AND classe$(1) = "Druida" AND mag(19) = 0 THEN GOTO cont IF feit = 23 AND classe$(1) = "Necromante" AND mag(23) = 0 THEN GOTO cont IF feit = 24 AND classe$(1) = "Alquimista" AND mag(24) = 0 THEN GOTO cont IF feit = 25 AND classe$(1) = "Nigthmage" AND mag(25) = 0 THEN GOTO cont IF feit = 27 AND classe$(1) = "Cl‚rigo" AND mag(27) = 0 THEN GOTO cont IF feit = 27 AND classe$(1) = "Paladino" AND mag(27) = 0 THEN GOTO cont IF feit = 27 AND classe$(1) = "Druida" AND mag(27) = 0 THEN GOTO cont IF feit < 1 OR feit > 9 THEN GOTO fimapr IF mag(feit) > 0 THEN GOTO fimapr cont: cust = 10 - inte(1) IF cust < 2 THEN cust = 2 PRINT "" PRINT "Experiˆncia:"; xp(1) PRINT "Custo:"; cust IF cust > xp(1) THEN PRINT "Pontos insuficientes": GOTO fimapr INPUT "Aceitar? ", resp$ IF resp$ = "s" AND cust <= xp(1) THEN xp(1) = xp(1) - cust: mag(feit) = mag(feit) + 1 END IF fimapr: INPUT "", press END SUB SUB Cavalo INPUT "Quer viajar a cavalo? ", resp$ IF resp$ = "s" THEN PRINT "Locais:" PRINT "(1) Tricard" PRINT "(2) Uktaw" PRINT "(3) Ravinas Venenosas" PRINT "(4) Ponte do silˆncio" PRINT "" INPUT "Para onde vocˆ quer ir? ", resp IF resp = 1 THEN px = 10: py = 1: PRINT "Vocˆ monta no cavalo e inicia a viagem": SLEEP 1 IF resp = 2 THEN px = 9: py = 15: PRINT "Vocˆ monta no cavalo e inicia a viagem": SLEEP 1 IF resp = 3 THEN px = 2: py = 10: PRINT "Vocˆ monta no cavalo e inicia a viagem": SLEEP 1 IF resp = 4 THEN px = 20: py = 19: PRINT "Vocˆ monta no cavalo e inicia a viagem": SLEEP 1 IF exa(1) > 0 AND (INT(RND * 6) + 1) = 1 THEN exa(1) = exa(1) - 1 IF sta(2) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(2) = sta(2) - 1 IF sta(3) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(3) = sta(3) - 1 IF sta(4) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(4) = sta(4) - 1 IF sta(5) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(5) = sta(5) - 1 IF sta(6) > 0 THEN sta(6) = sta(6) - 1: IF fer(1) > 0 THEN fer(1) = fer(1) - 1 IF sta(21) > 0 THEN sta(21) = sta(21) - 1: IF INT(RND * 12) + 1 >= vig(1) + sta(5) THEN fer(1) = fer(1) + 1 IF sta(8) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(8) = sta(8) - 1 IF sta(9) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(9) = sta(9) - 1 IF sta(10) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(10) = sta(10) - 1 IF sta(11) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(11) = sta(11) - 1 IF sta(14) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(14) = sta(14) - 1 IF sta(16) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(16) = sta(16) - 1 IF sta(26) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(26) = sta(26) - 1: IF sta(26) = 0 THEN sta(4) = 0: sta(5) = 0: sta(11) = 0 IF sta(28) > 0 AND (INT(RND * 8) + 1) = 1 THEN : IF fer(1) > 0 THEN fer(1) = fer(1) - 1 INPUT "", press Salas END IF END SUB SUB Chao LINE (270, 20)-(375, 125), 2, BF IF px >= 1 AND px <= 3 AND py >= 10 AND py <= 13 THEN LINE (270, 20)-(375, 125), 6, BF IF px = 2 AND py >= 5 AND py <= 9 THEN LINE (270, 20)-(375, 125), 6, BF IF px >= 11 AND px <= 15 AND py >= 5 AND py <= 12 THEN LINE (270, 20)-(375, 125), 8, BF IF px >= 12 AND px <= 14 AND py >= 2 AND py <= 4 THEN LINE (270, 20)-(375, 125), 8, BF IF px >= 16 AND px <= 17 AND py >= 10 AND py <= 16 THEN LINE (270, 20)-(375, 125), 8, BF IF px >= 4 AND px <= 10 AND py >= 6 AND py <= 13 THEN LINE (270, 20)-(375, 125), 8, BF IF px = 3 AND py >= 6 AND py <= 9 THEN LINE (270, 20)-(375, 125), 8, BF IF px >= 5 AND px <= 7 AND py >= 1 AND py <= 5 THEN LINE (270, 20)-(375, 125), 8, BF IF px = 8 AND py = 5 THEN LINE (270, 20)-(375, 125), 8, BF IF px = 8 AND py = 14 THEN LINE (270, 20)-(375, 125), 8, BF IF px >= 2 AND px <= 3 AND py = 19 THEN LINE (270, 20)-(375, 125), 8, BF DRAW "bm270,20" FOR I% = 1 TO 10: DRAW "bm+10,+0" FOR a% = 1 TO 10: DRAW "bm+0,+10" DRAW "c7 e1 r1 nf1 l1 g1" NEXT a% DRAW "bm-0,-100" NEXT I% END SUB SUB Combate CHAIN "C:\Blarg!\Diacho\Combate.bas" END SUB SUB Convers2 CHAIN "C:\Blarg!\Diacho\Convers2.bas" END SUB SUB Conversa CHAIN "C:\Blarg!\Diacho\Conversa.bas" END SUB SUB Descanso INPUT "Vocˆ quer descansar por quantas horas? (1 a 12) ", tempo IF tempo > 0 AND tempo <= 12 THEN t = 0 PRINT "Descansando"; DO PRINT "."; SLEEP 1 t = t + 1 IF fer(1) > 0 AND (INT(RND * 12) + 1) <= (vig(1) + sta(5)) THEN fer(1) = fer(1) - 1 IF exa(1) > 0 THEN exa(1) = exa(1) - 1 IF sta(2) > 0 THEN sta(2) = sta(2) - 1 IF sta(3) > 0 THEN sta(3) = sta(3) - 1 IF sta(4) > 0 THEN sta(4) = sta(4) - 1 IF sta(5) > 0 THEN sta(5) = sta(5) - 1 IF sta(6) > 0 THEN sta(6) = sta(6) - 1: IF fer(1) > 0 THEN fer(1) = fer(1) - 1 IF sta(21) > 0 THEN sta(21) = sta(21) - 1: IF INT(RND * 12) + 1 >= vig(1) + sta(5) THEN fer(1) = fer(1) + 1 IF sta(28) > 0 AND fer(1) > 0 THEN fer(1) = fer(1) - 1 IF sta(8) > 0 THEN sta(8) = sta(8) - 1 IF sta(9) > 0 THEN sta(9) = sta(9) - 1 IF sta(10) > 0 THEN sta(10) = sta(10) - 1 IF sta(11) > 0 THEN sta(11) = sta(11) - 1 IF sta(14) > 0 THEN sta(14) = sta(14) - 1 IF sta(16) > 0 THEN sta(16) = sta(16) - 1 sta(1) = 0 LOOP UNTIL t = tempo ELSE Descanso END IF INPUT "", press END SUB SUB Desenhos IF px = 10 AND py = 3 THEN DRAW "bm315,60 c15 r14 f7 d14 g7 l14 h7 u14 e7 bd2 br1 p15,15 c11 r12 f6 d12 g6 l12 h6 u12 e6 bf5 p11,11" IF px = 11 AND py = 3 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm325,30 c14 r40 d15 l40 u15 bf5 p14,14 bm330,55 c1 r35 d60 l35 u60 bf5 p1,1 bm333,100 c15 r30 d12 l30 u12 bf5 p15,15" IF px = 11 AND py = 2 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm325,60 c15 r30 nm340,30 e10 nm340,30 l30 nm340,30 g10 nm340,30 bm320,100 c3 r15 d15 l15 u15 bf5 p3,3" IF px = 9 AND py = 4 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm290,35 c7 r75 f5 d10 l75 h5 u10 bf5 p15,7 c7 bh5 bd10 r75 nf5 u10 bm285,90 c8 r30 d20 l30 u20 bf5 p8,8 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5 bm320,100 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3 bm290,80 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3 bm310,55 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 10 AND py = 5 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm350,100 c8 r10 d10 l10 u10 bf5 p8,8 bm350,80 c8 r10 d10 l10 u10 bf5 p8,8 bh5 bd10 f5 ne5 nf5 g5 bm285,105 c4 r13 d10 l13 u10 bf2 p4,4 bm280,85 c7 r10 d13 l10 u13 bf2 p7,7" IF px = 3 AND py = 2 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm310,25 c15 f60 u10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 h5 nd10 bm320,90 c14 r2 bm335,95 r2 bm325,100 r2 bm340,105 r2 bm337,98 r2 bm329,103 r2 bm343,108 r2" IF px = 1 AND py = 3 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm280,30 c7 r10 f5 nd70 f5 d70 l10 h10 u70 bf5 p8,7 bm290,30 c7 d70 nf10 l10" IF px = 4 AND py = 3 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm335,80 c8 r27 d4 g2 l3 g2 d3 r5 d3 l20 u3 r5 u3 h2 l2 h2 l2 h2 u2 bf1 p8,8 bm345,30 c7 r20 d20 l20 u20 bf5 p7,7 c4 nd16 r10 d16 l10 be2 p4,4" IF px = 12 AND py = 4 THEN DRAW "bm325,50 c7 r40 h15 l10 g5 nr20 g5 nr30 g5 r30" IF px = 12 AND py = 3 THEN DRAW "bm280,35 c7 r40 g15 l10 h5 nr20 h5 nr30 h5 r30" IF px = 17 AND py = 13 THEN DRAW "bm270,20 c0 r105 d105 l105 u105 bf5 p0,0" IF px = 9 AND py = 17 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm290,85 c7 r75 f5 d10 l75 h5 u10 bf5 p15,7 c7 bh5 bd10 r75 nf5 u10 bm315,40 c8 r30 d20 l30 u20 bf5 p8,8 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5 bm350,50 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3 bm330,70 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3 bm310,70 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 8 AND py = 15 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm290,45 c7 r75 f5 d10 l75 h5 u10 bf5 p5,7 c7 bh5 bd10 r75 nf5 u10 bm310,70 c8 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 8 AND py = 17 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm280,30 c7 r10 f5 nd70 f5 d70 l10 h10 u70 bf5 p8,7 bm290,30 c7 d70 nf10 l10 bm310,75 c8 r55 f5 d10 l55 h5 u10 bf5 p7,8 c8 bh5 bd10 r55 nf5 u10" IF px = 7 AND py = 18 THEN DRAW "bm275,60 c15 r95 bm323,60 c15 d60 bm350,30 c8 r8 d8 l8 u8 bf2 p8,8 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 7 AND py = 14 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm325,30 c8 r30 d20 l30 u20 bf5 p15,8 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5 bm330,40 c8 e10 bm340,43 e10 bm343,44 e10" IF px = 6 AND py = 17 THEN DRAW "bm308,45 c4 r30 f20 d30 g20 l30 h20 u30 e20 bf5 p8,4" IF px = 4 AND py = 15 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm280,30 c7 r10 f5 nd70 f5 d70 l10 h10 u70 bf5 p9,7 bm290,30 c7 d70 nf10 l10 bm300,30 c15 nd7 r2 c15 nu5 nd12 c14 nd5 r2 nd3" IF px = 6 AND py = 18 THEN DRAW "bm275,25 c8 r95 d95 l95 u95 bf5 p8,8 bm350,30 c0 h5 r8 f5 d8 l8 u8 bf2 p0,0 c0 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 3 AND py = 19 THEN DRAW "bm350,45 c15 r7 f5 d7 g5 l7 h5 u7 e5 bd1 p15,15" IF px = 15 AND py = 17 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm325,30 c7 r30 d20 l30 u20 bf5 p8,7 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5" IF px = 12 AND py = 14 THEN DRAW "bm270,20 c1 r105 d50 l5 g5 l5 h5 l5 g5 l5 h5 l5 g5 l5 h5 l5 g5 l5 h5 l5 g5 l5 h5 l5 u50 bf5 p9,1" IF px = 20 AND py = 19 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm350,20 c1 r25 d105 l25 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 e5 h5 br1 bf1 p1,1" IF px = 19 AND py = 16 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6" IF px = 3 AND py = 4 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm330,55 c7 r35 d60 l35 u60 bf5 p15,7 bm333,100 c7 r30 d12 l30 u12 bf5 p9,7" IF px = 18 AND py = 4 THEN DRAW "bm270,63 c6 r28 e15 u28 r20 d28 f15 r27 d20 l27 g15 d27 l20 u27 h15 l28 u20 bf5 p6,6" IF px = 18 AND py = 2 THEN DRAW "bm275,25 c6 r95 d75 g25 l45 h25 u75 bf5 p6,6 bm313,30 c7 r20 d5 nl5 d15 l20 u15 nr5 u5 bf3 p15,7 c1 bf2 nd15 r10 d15 l10 be2 p1,1" IF px = 18 AND py = 6 THEN DRAW "bm270,63 c6 r28 e15 u28 r20 d28 f15 r27 d62 l105 u62 bf5 p6,6 bm290,100 c15 r10 d10 l10 u10 bf5 p8,15 bm290,80 c15 r10 d10 l10 u10 bf5 p8,15 c15 bh5 bd10 f5 ne5 nf5 g5" IF px = 16 AND py = 4 THEN DRAW "bm270,20 c6 r61 d28 f15 r27 d20 l27 g15 d27 l61 u105 bf5 p6,6 bm290,80 c15 g2 d20 g1 l4 g2 r7 d8 f1 r2 e1 u8 r7 h2 l4 h1 u20 h2 d25 ne2 nh2" IF px = 20 AND py = 4 THEN DRAW "bm270,63 c6 r28 e15 u28 r62 d105 l62 u27 h15 l28 u20 bf5 p6,6 bm355,30 c15 u1 f8 d8 g8 u2 c8 u19 bm345,50 c7 e10 f4 g10 h4 br2 p7,7 bm345,50 be10 bf1 c14 ne5 bf1 ne5 bf1 ne5" IF px = 18 AND py = 8 THEN DRAW "bm290,50 c12 r4 f2 d2 g1 l2 d3 l2 u3 l2 h1 u2 e2 bf2 p12,12 bm340,70 c14 r4 f2 d2 g1 l2 d3 l2 u3 l2 h1 u2 e2 bf2 p14,14 bm280,60 c12 r4 f2 d2 g1 l2 d3 l2 u3 l2 h1 u2 e2 bf2 p12,12 bm320,30 c14 r4 f2 d2 g1 l2 d3 l2 u3 l2 h1 u2 e2 bf2 p14,14 bm300,70 c9 r16 f8 d8 g4 l8 d12 l8 u12 l8 h4 u8 e8 bf5 p9,9" IF px = 11 AND py = 12 THEN DRAW "bm285,50 c0 r30 d20 l30 u20 bf5 p0,0 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5 bm290,30 h5 r8 f5 d8 l8 u8 bf2 p0,0 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 6 AND py = 1 THEN DRAW "bm285,50 c7 r30 d20 l30 u20 bf5 p7,7 bh5 br30 f5 d2 h5 bd16 f5 d2 h5 bl30 be1 f5 d2 h5 bm295,35 c0 h5 r8 f5 d8 l8 u8 bf2 p0,0 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 3 AND py = 9 THEN DRAW "bm300,60 c4 m360,100 m290,95 m350,65 m320,120 m300,60" IF px = 16 AND py = 16 THEN DRAW "bm310,60 c0 r20 f5 d40 l20 h5 u40 f5 r15 nu5 d35 nf5 l15 nu35 l5 be2 p7,0 br5 p0,0 br15 p7,0 bg5 p7,0 bu40 p7,0" IF px = 5 AND py = 8 THEN DRAW "bm300,120 c4 e2 r2 f2 r2 e2 r2 f2 r2 e2 r2 f2 r2 e2 r2 f2 r2 e2 r2 f2 r2 bm270,40 c9 u10 f5 d10 h5 br2 p6,9 bm270,60 c2 u10 f5 d10 h5 br2 p5,2 bm270,80 c14 u10 f5 d10 h5 br2 p13,14 bm270,100 c15 u10 f5 d10 h5 br2 p14,15" IF px = 13 AND py = 12 THEN DRAW "bm280,35 c0 r20 nd20 f10 d20 nh10 l20 h10 nr20 u20 bf10 p6,0 br15 p6,0 bd16 p6,0 bm330,27 c0 r20 nd20 f10 d20 nh10 l20 h10 nr20 u20 bf10 p6,0 br15 p6,0 bd16 p6,0bm 332,86 c0 r20 nd20 f10 d20 nh10 l20 h10 nr20 u20 bf10 p6,0 br15 p6,0 bd16 p6,0" IF px = 13 AND py = 8 THEN DRAW "a1 bm283,80 c7 r20 d5 nl5 d15 l20 u15 nr5 u5 bf3 p15,7 c1 bf2 nd15 r10 d15 l10 be2 p7,1" IF px = 12 AND py = 7 THEN DRAW "bm350,30 c6 r10 f5 d10 g5 l10 h5 u10 e5 bf1 bd1 r8 f4 d8 g4 l8 h4 u8 e4 bh1 p6,6 bf5 p0,6" IF px = 11 AND py = 5 THEN DRAW "bm290,20 c15 d15 g4 d10 f2 r4 e2 u10 h4 bd5 p6,15" IF px = 17 AND py = 6 THEN DRAW "bm270,20 c11 r105 d50 g5 l5 h3 l5 g3 l5 h7 l5 g7 l5 h6 l5 g6 l5 h4 l5 g4 l5 h5 l5 g5 u55 bf5 p9,11 bm290,20 c15 r52 f30 g2 l2 h2 nh10 l2 g2 l2 h2 nh15 l2 g2 l2 h2 nh20 l2 g2 l2 h2 nh8 l2 g2 l2 h2 nh13 l2 g2 l2 h2 nh5 l2 g2 h32 br5 bd2 p9,15" IF px = 8 AND py = 5 THEN DRAW "bm350,95 c0 r7 f5 d7 g5 l7 h5 u7 e5 bd1 p0,0" IF px = 7 AND py = 6 THEN DRAW "bm280,20 c2 m+3,+10 m-2,+20 bm285,20 c2 m+4,+12 m-3,+12 bm292,20 c2 m+2,+13 m-4,+21 bm300,20 c2 m+5,+20 m-2,+20" IF px = 6 AND py = 2 THEN DRAW "bm270,20 c0 r105 d105 l105 u105 bf5 p0,0 bm275,25 c10 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5 br3 u5 r2 d5 nl2 br3 bu5 d5" IF px = 6 AND py = 15 THEN DRAW "bm275,25 c6 r95 d95 l95 u95 bf5 p6,6 bm290,20 c15 l8 d10 f2 r4 e2 u10 bg2 p8,15 bm320,20 c14 r15 f5 l15 h5 br5 bd2 p9,14 bm350,35 c15 h5 r8 f5 d8 l8 u8 bf2 p15,15 bh2 br8 f3 d2 h3 bd4 f3 d2 h3 bl8 be1 f3 d2 h3" IF px = 7 AND py = 16 THEN DRAW "bm315,60 c15 r14 f7 d14 g7 l14 h7 u14 e7 bd2 br1 p15,15 bm330,50 c4 u12 l2 u2 nr2 u2 h2 u1 br2 r1 d1 l1 u1 br3 r1 d1 l1 u1 bl5 u2 e2 r6 f2 d2 g3 d2 g2 bu2 p6,4 bm360,80 c4 u12 l2 u2 nr2 u2 h2 u1 br2 r1 d1 l1 u1 br3 r1 d1 l1 u1 bl5 u2 e2 r6 f2 d2 g3 d2 g2 bu2 p6,4 bm300,110 c4 u12 l2 u2 nr2 u2 h2 u1 br2 r1 d1 l1 u1 br3 r1 d1 l1 u1 bl5 u2 e2 r6 f2 d2 g3 d2 g2 bu2 p6,4" END SUB SUB Emboscada IF sta(10) + sta(1) > 0 THEN PRINT "Vocˆ vˆ um ladrÆo preparando um emboscada para algu‚m aqui" ELSE PRINT "Um ladrÆo embosca vocˆ na estrada." IF equ(21) > 0 THEN INPUT "LadrÆo: Entregue esse pacote que eu deixo vocˆ em paz! (Aceitar?) ", resp$ IF resp$ = "s" THEN PRINT "O ladrÆo pega o pacote e vai embora.": moner(3) = 0: var(3) = 3: equ(21) = 0 SLEEP 1: PRINT "Um tempo depois vocˆ ouve uma explosÆo ao longe" ELSE mon = 12 END IF ELSE mon = 12 END IF END IF INPUT "", press END SUB SUB Equipa CLS LINE (0, 0)-(640, 480), 6, BF LINE (10, 10)-(630, 470), 14, B PRINT "" PRINT "Equipamentos:" PRINT "(1) Adaga 1po" PRINT "(2) Espada 5po" PRINT "(3) Machado 7po" PRINT "(4) Lan‡a 4po" PRINT "(5) Arco 10po" PRINT "(6) Funda 1po" PRINT "(7) Corselete 5po" PRINT "(8) Cota de malha 12po" PRINT "(9) Cota de talas 30po" PRINT "(10) Armadura completa 70po" PRINT "(11) Escudo 2po" PRINT "(12) Escudo grande 6po" PRINT "(13) Ma‡a 5po" PRINT "(14) Martelo 8po" PRINT "(15) Montante 12po" PRINT "(16) Alabarda 15po" PRINT "(17) Arco composto 20po" PRINT "(18) Cajado 1po" PRINT "(19) Foice 4po" PRINT "(20) Espada curta 3po" PRINT "" PRINT "Dinheiro:"; din INPUT "Equipamento: ", equi IF equi < 1 OR equi > 20 OR equ(equi) > 0 THEN GOTO fimequ SELECT CASE equi CASE 1: cust = 1 CASE 2: cust = 5 CASE 3: cust = 7 CASE 4: cust = 4 CASE 5: cust = 10 CASE 6: cust = 1 CASE 7: cust = 5 CASE 8: cust = 12 CASE 9: cust = 30 CASE 10: cust = 70 CASE 11: cust = 2 CASE 12: cust = 6 CASE 13: cust = 5 CASE 14: cust = 8 CASE 15: cust = 12 CASE 16: cust = 15 CASE 17: cust = 20 CASE 18: cust = 1 CASE 19: cust = 4 CASE 20: cust = 3 END SELECT INPUT "Aceitar? ", resp$ IF resp$ = "s" AND cust <= din THEN din = din - cust SELECT CASE equi CASE 1: equ(equi) = 2 CASE 2: equ(equi) = 4 CASE 3: equ(equi) = 5 CASE 4: equ(equi) = 4 CASE 5: equ(equi) = 4 CASE 6: equ(equi) = 2 CASE 7: equ(equi) = 2 CASE 8: equ(equi) = 3 CASE 9: equ(equi) = 4 CASE 10: equ(equi) = 5 CASE 11: equ(equi) = 1 CASE 12: equ(equi) = 2 CASE 13: equ(equi) = 4 CASE 14: equ(equi) = 5 CASE 15: equ(equi) = 6 CASE 16: equ(equi) = 6 CASE 17: equ(equi) = 5 CASE 18: equ(equi) = 3 CASE 19: equ(equi) = 4 CASE 20: equ(equi) = 3 END SELECT ELSE PRINT "Dinheiro insuficiente" END IF fimequ: INPUT "", press Salas END SUB SUB Errante IF INT(RND * 10) = 0 THEN IF moner(1) = 0 THEN moner(1) = 1: corpo(5) = 0 n = INT(RND * 2) + 1 IF n = 1 THEN moner(1) = moner(1) + 1: IF moner(1) = 9 THEN moner(1) = 7 IF n = 2 THEN moner(1) = moner(1) - 1: IF moner(1) = 0 THEN moner(1) = 2 END IF IF INT(RND * 10) = 0 THEN IF moner(2) = 0 THEN moner(2) = 1: corpo(8) = 0 n = INT(RND * 2) + 1 IF n = 1 THEN moner(2) = moner(2) + 1: IF moner(2) = 6 THEN moner(2) = 4 IF n = 2 THEN moner(2) = moner(2) - 1: IF moner(2) = 0 THEN moner(2) = 2 END IF IF INT(RND * 20) = 0 THEN IF moner(3) = 0 THEN moner(3) = 1: corpo(12) = 0 n = INT(RND * 2) + 1 IF n = 1 THEN moner(3) = moner(3) + 1: IF moner(3) = 5 THEN moner(3) = 3 IF n = 2 THEN moner(3) = moner(3) - 1: IF moner(3) = 0 THEN moner(3) = 2 END IF IF INT(RND * 10) = 0 THEN IF moner(4) = 0 THEN moner(4) = 1: corpo(15) = 0 n = INT(RND * 2) + 1 IF n = 1 THEN moner(4) = moner(4) + 1: IF moner(4) = 5 THEN moner(4) = 3 IF n = 2 THEN moner(4) = moner(4) - 1: IF moner(4) = 0 THEN moner(4) = 2 END IF END SUB SUB Eventos IF px = 11 AND py = 3 THEN IF var(23) = 1 THEN PRINT "Vocˆ vˆ sua casa completamente bagun‡ada, um lich vasculhando todas as prateleiras, gavetas e arm rios" PRINT "Lich: Onde est  o sucrilhos? Faz s‚culos que eu nÆo como isso." mon = 17: GOTO saida END IF IF var(23) = 2 THEN PRINT "Sua casa ainda est  bagun‡ada, mas vocˆ j  est  limpando": var(23) = 3 INPUT "Quer descansar aqui at‚ se recuperar completamente? ", resp$ IF resp$ = "s" THEN INPUT "Vocˆ descansa por um tempo.", press: fer(1) = 0: exa(1) = 0: SLEEP 1 sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 CHAIN "C:\Blarg!\Diacho\Xp.bas" END IF END IF IF px = 9 AND py = 4 THEN PRINT "Roger, o taverneiro, est  aqui. Vocˆ acha que ele nÆo gosta muito de vocˆ." IF var(23) = 1 THEN PRINT "Roger: Aposto que vocˆ est  por tr s desse mago-esqueleto maluco que est  atacando a cidade! Ele deve estar escondido na sua casa agora mesmo!": GOTO saida fala = INT(RND * 5) + 1 IF fala = 1 THEN PRINT "Roger: J  voltou?" IF fala = 2 THEN INPUT "Roger: Eu tenho novidades.", press nov = INT(RND * 10) + 1 IF nov = 1 THEN PRINT "Roger: Para procurar coisas secretas apenas passe um tempo na sala at‚ achar." IF nov = 2 THEN PRINT "Roger: Sabia que existe um xamÆ troll na dungeon? Ele roubou minha bateria, aquele safado..." IF nov = 3 THEN PRINT "Roger: Sabia que a cidade ao norte chama-se Uktaw, e que l  odeiam elfos?" IF nov = 4 THEN PRINT "Roger: Sabia que existe uma bruxa escondida em Uktaw que invoca elementais?": var(11) = 1 IF nov = 5 THEN PRINT "Roger: Tarnich ‚ a cidade escondida dos elfos. L  vocˆ pode aprender novas magias." IF nov = 6 THEN PRINT "Roger: Se vocˆ morrer eles te ressussitam, mas levam dinheiro e experiˆncia." IF nov = 7 THEN PRINT "Roger: Sabia que eu nÆo uso cuecas?" IF nov = 8 THEN PRINT "Roger: J  pensou em parar de jogar e ir estudar?" IF nov = 9 THEN PRINT "Roger: Se tiver sorte pode encontrar com a caravana de ciganos na encruzilhada ao norte." IF nov = 10 THEN PRINT "Roger: O bruxo Weistvihk tem m‚todos estranhos, mas pode retirar maldi‡äes." END IF IF fala = 3 THEN PRINT "Roger: O que vai ser hoje?" IF fala = 4 THEN INPUT "Roger: Quer uma missÆo? ", resp$ IF resp$ = "s" THEN mis = INT(RND * 6) + 1 IF mis = 1 THEN IF var(3) = 0 THEN PRINT "Roger: Pegue um pacote pra mim na taverna de Uktaw, mas nÆo abra." ELSE PRINT "Roger: Pegue logo o pacote!.": var(3) = 1 IF mis = 2 THEN IF var(3) = 0 THEN PRINT "Roger: Leve este pacote para mim at‚ a taverna de Uktaw, mas nÆo abra." ELSE PRINT "Roger: Entregue logo o pacote!." equ(21) = 1: var(3) = 4 END IF IF mis = 3 THEN PRINT "Roger: Preciso que vocˆ mate um rato.": INPUT "Um rato gigante ataca!", press: mon = 13: Combate IF mis = 4 THEN IF var(4) = 0 THEN PRINT "Roger: Preciso que vocˆ escolte um cidadÆo aleat¢rio at‚ o rio Pedraguo, a nordeste daqui.": PRINT "Um cidadÆo sorridente come‡a a te seguir.": var(4) = 1 ELSE PRINT "Roger: Leve logo esse cara daqui!" IF mis = 5 THEN IF var(12) = 0 THEN PRINT "Roger: Preciso que vocˆ me traga uma cauda de escorpiÆo.": var(12) = 1 ELSE PRINT "Me traga logo uma cauda de escorpiÆo!" IF mis = 6 THEN PRINT "Roger: Preciso que vocˆ desligue o computador, quero dormir." END IF END IF IF fala = 5 THEN INPUT "Roger: Eu tenho um item m gico pra vender.", press item = INT(RND * 7) + 1 proxniv = INT(RND * 6) + 1 IF item = 1 THEN prox$ = "Anel de rubi" IF item = 2 THEN prox$ = "Anel de ametista" IF item = 3 THEN prox$ = "Amuleto da estrela" IF item = 4 THEN prox$ = "Amuleto da lua" IF item = 5 THEN prox$ = "Cajado de pedra" IF item = 6 THEN prox$ = "Cajado de madeira" IF item = 7 THEN prox$ = "Proj‚til aerodinƒmico de alta durabilidade ": proxniv = 1 IF equ((21 + item)) > 0 THEN prox$ = "Proj‚til aerodinƒmico de alta durabilidade ": proxniv = 1 s = 0: d = car(1) + hab(13): 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 preco = (proxniv * 10) - (s * 5) IF preco < (proxniv * 5) THEN preco = (proxniv * 5) IF item = 7 THEN preco = 1 PRINT "Roger: Quer comprar um "; prox$; " por apenas"; preco; "po? "; : INPUT "", resp$ IF resp$ = "s" THEN IF din < preco THEN INPUT "Roger: T  querendo me passar pra tr s?", press: GOTO saida PRINT "Roger: Obrigado pela preferˆncia." din = din - preco IF item = 1 THEN equ(22) = proxniv IF item = 2 THEN equ(23) = proxniv IF item = 3 THEN equ(24) = proxniv IF item = 4 THEN equ(25) = proxniv IF item = 5 THEN equ(26) = proxniv IF item = 6 THEN equ(27) = proxniv IF item = 7 THEN equ(46) = equ(46) + 1 INPUT "", press Salas END IF END IF IF var(4) = 2 THEN PRINT "Roger: Vocˆ matou o cidadÆo aleat¢rio nÆo foi? Notei pela sua cara. Agora nÆo vou mais te pagar.": var(4) = 0 IF var(4) = 3 THEN PRINT "Roger: J  levou o babaca? Tudo bem, tome isso pelo que teve de aguentar dele.": var(4) = 0: din = din + INT(RND * 5) + 2 IF var(4) = 4 THEN PRINT "Roger: Que hist¢ria ‚ essa de roubar o id... o cidadÆo? Ainda bem que ele nÆo deu queixa.": var(4) = 0 IF var(12) = 2 THEN PRINT "Roger: Trouxe a cauda de escorpiÆo?" IF var(3) = 2 THEN IF equ(21) = 1 THEN PRINT "Roger: Obrigado pelo pacote. Vocˆ ‚ melhor que um cachorrinho adestrado, hahaha.": equ(21) = 0: var(3) = 0 IF var(3) = 3 THEN PRINT "Roger: O que vocˆ fez com aquele pacote heim?": var(3) = 0 END IF END IF IF px = 11 AND py = 2 THEN PRINT "Atreio, o m¡stico, est  aqui, viajando..." IF var(23) = 1 THEN PRINT "Atreio: "; nome$(1); "! Vocˆ deve deter o lich agora mesmo! Ele est  na sua casa!": GOTO saida fala = INT(RND * 10) + 1 IF fala = 1 THEN PRINT "Atreio: De volta ao apredizado?" IF fala = 2 THEN PRINT "Atreio: Como vai indo a matan‡a sem motivo?" IF fala = 3 THEN PRINT "Atreio: Medite um pouco antes de falar comigo." IF fala = 4 THEN PRINT "Atreio: Ser  que vocˆ nÆo consegue me esquecer?" IF fala = 5 THEN PRINT "Atreio: V  pra casa e treine um pouco." IF fala = 6 THEN PRINT "Atreio: Eu queria poder sair daqui um dia." IF fala = 7 THEN PRINT "Atreio: Acho que vocˆ j  sabe o suficiente." IF fala = 8 THEN PRINT "Atreio: Tem certeza que j  fez suas tarefas?" IF fala = 9 THEN PRINT "Atreio: ...(meditando)" IF fala = 10 THEN PRINT "Atreio: NÆo terminou o jogo ainda? Que saco!" IF xp(1) > 0 THEN INPUT "Atreio: Quer aprender novos feiti‡os agora? ", resp$ IF resp$ = "s" THEN Aprender: GOTO saida END IF END IF IF px = 10 AND py = 5 THEN PRINT "Weistvihk, o bruxo esquisito com nome estranho, est  aqui assistindo tv pela bola de cristal." IF var(23) = 1 THEN PRINT "Weistvihk: Estarr esperrando algu‚m, branzund?" PRINT "Weistvihk: Non deixarr ela esperrando at‚ a morte heim!? HOHOHO" PRINT "Weistvihk: HEHE! Eu serr tÆo engrra‡ada!": GOTO saida END IF fala = INT(RND * 10) + 1 IF fala = 1 THEN PRINT "Weistvihk: Minha nome nÆo serr esquisita. O sua ‚ que ‚, "; nome$(1); "!" IF fala = 2 THEN PRINT "Weistvihk: Andarr brrincando de herr¢i denovo?" IF fala = 3 THEN PRINT "Weistvihk: Vocˆ acharr que eu sou sua tio porr acaso?" IF fala = 4 THEN PRINT "Weistvihk: Parrar de sairr matando os outros e quem sabe non se machucarr tanto." IF fala = 5 THEN PRINT "Weistvihk: (Assistindo Jovens Bruxas pela bola de cristal) Ei, non interromper na meio da minha filme favorrita." IF fala = 6 THEN PRINT "Weistvihk: Levarr minha tot¢ parra passear um pouco, porr favorr. (Aparece um pequeno beholder com a l¡ngua para fora)." IF fala = 7 THEN PRINT "Weistvihk: Quanda ‚ vocˆ aprrender a non brrincarr com os monstrras?" IF fala = 8 THEN PRINT "Weistvihk: Ouvirr isso? Sua mamÆe estarr chamando, branzund!" IF fala = 9 THEN PRINT "Weistvihk: Calada! Eu estarr completando a forrmula que irr  finalizarr a jogo de uma vez!" IF fala = 10 THEN PRINT "Weistvihk: Esquecer essa jogo bobo e jogarr RPG de verrdade!" INPUT "Weistvihk: Quererr comprarr perrgaminhas de porrtal? ", resp$ IF resp$ = "s" THEN INPUT "Weistvihk: Quantas?(6 moedas cada): ", q IF q < 1 THEN GOTO saida IF din < q * 6 THEN PRINT "Weistvihk: Vocˆ non tem moedas suficientes" ELSE din = din - (q * 6) equ(28) = equ(28) + q PRINT "Weistvihk: Voltarr semprre, branzund!" END IF END IF INPUT "Weistvihk: Quererr comprarr po‡än de curra? ", resp$ IF resp$ = "s" THEN INPUT "Weistvihk: Quantos?(4 moedas cada): ", q IF q < 1 THEN GOTO saida IF din < q * 4 THEN PRINT "Weistvihk: Vocˆ non tem moedas suficientes" ELSE din = din - (q * 4) equ(29) = equ(29) + q PRINT "Weistvihk: Voltarr semprre, branzund!" END IF END IF IF sta(18) > 0 THEN PRINT "Weistvihk: Vejo que vocˆ est  carregando um maldi‡än..." INPUT "Weistvihk: Querrer se livrrar dela por 5 moedas? ", resp$ IF resp$ = "s" AND din >= 5 THEN sta(18) = 0 PRINT "O bruxo esquisito se aproxima de vocˆ, segura sua cara e sopra forte e r pido nela com um bafo de vodka" PRINT "Weistvihk: Prronta! Agorra passa os moedas e vai emborra daqui." END IF END IF END IF IF px = 13 AND py = 2 THEN IF corpo(2) = 0 THEN PRINT "Um orc est  aqui esperando por algu‚m passar para atacar.": mon = 2 IF corpo(2) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF IF px = 11 AND py = 5 THEN IF corpo(3) = 0 THEN PRINT "Um orc est  treinando sua luta estranha aqui.": mon = 3 IF corpo(3) = 1 THEN PRINT "O corpo de um orc robusto se encontra no chÆo." END IF IF px = 12 AND py = 7 THEN IF corpo(4) = 0 THEN PRINT "Um orc gordo e sujo de sangue est  cozinhado alguma coisa aqui.": mon = 4 IF corpo(4) = 1 THEN PRINT "O corpo de um orc gordo se encontra no chÆo." END IF IF px = 13 AND py = 4 AND moner(1) = 1 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 13 AND py = 5 AND moner(1) = 2 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 5 AND moner(1) = 3 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 6 AND moner(1) = 4 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 7 AND moner(1) = 5 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 8 AND moner(1) = 6 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 9 AND moner(1) = 7 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 14 AND py = 10 AND moner(1) = 8 THEN IF corpo(5) = 0 THEN PRINT "Um goblin est  aqui.": mon = 5 IF corpo(5) = 1 THEN PRINT "O corpo de um goblin se encontra no chÆo." END IF IF px = 13 AND py = 8 THEN IF corpo(6) = 0 THEN PRINT "Um hobgoblin est  aqui, sentado no trono velho.": mon = 6 IF corpo(6) = 1 THEN PRINT "O corpo de um hobgoblin se encontra no chÆo." END IF IF px = 9 AND py = 8 THEN IF corpo(7) = 0 THEN PRINT "Um orc com armadura diferente est  aqui.": mon = 7 IF corpo(7) = 1 THEN PRINT "O corpo de um orc grande se encontra no chÆo." IF porta(11) = 1 THEN movn(9, 8) = 1 IF porta(11) = 0 THEN INPUT "A porta a norte est  trancada. Quer tentar abrir? ", 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 >= 1 THEN INPUT "Vocˆ abre a porta.", press: porta(11) = 1 ELSE INPUT "Vocˆ nÆo consegue destrancar a porta.", press INPUT "Quer tentar arrombar a porta? ", 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 INPUT "Vocˆ arromba a porta.", press: porta(11) = 1 ELSE INPUT "Vocˆ nÆo consegue arrombar a porta.", press END IF END IF END IF END IF END IF END IF IF px = 11 AND py = 8 THEN IF moner(2) = 1 THEN IF corpo(8) = 0 THEN PRINT "Um orc est  aqui.": mon = 8 IF corpo(8) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF END IF IF px = 10 AND py = 8 THEN IF moner(2) = 2 THEN IF corpo(8) = 0 THEN PRINT "Um orc est  aqui.": mon = 8 IF corpo(8) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF END IF IF px = 9 AND py = 8 THEN IF moner(2) = 3 THEN IF corpo(8) = 0 THEN PRINT "Um orc est  aqui.": mon = 8 IF corpo(8) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF END IF IF px = 8 AND py = 8 THEN IF moner(2) = 4 THEN IF corpo(8) = 0 THEN PRINT "Um orc est  aqui.": mon = 8 IF corpo(8) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF END IF IF px = 7 AND py = 8 THEN IF moner(2) = 5 THEN IF corpo(8) = 0 THEN PRINT "Um orc est  aqui.": mon = 8 IF corpo(8) = 1 THEN PRINT "O corpo de um orc se encontra no chÆo." END IF END IF IF px = 7 AND py = 8 THEN IF porta(1) = 1 THEN PRINT "A porta oeste est  aberta.": movo(7, 8) = 1 s = 0: d = 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 >= 3 THEN PRINT "Vocˆ identifica essa porta como sendo um tipo de guardiÆo. Ela foi feita para abrir-se com o uso de uma palavra de comando. As palavras de comando geralmente sÆo palavras fortes que passam uma id‚ia de acesso, abertura..." IF porta(1) = 0 THEN INPUT "Vocˆ quer tentar abrir a porta? ", resp$ IF resp$ = "s" THEN PRINT "O rosto de dragÆo ganha vida" perg = INT(RND * 5) + 1 IF perg = 1 THEN INPUT "A boca do dragÆo pergunta: O que ‚ que sobra quando nÆo se tem restri‡äes? ", resp$ IF perg = 2 THEN INPUT "A boca do dragÆo pergunta: O que ‚ garantido pelo mesmo que a retira? ", resp$ IF perg = 3 THEN INPUT "A boca do dragÆo pergunta: O que s¢ existe absolutamente sem limites? ", resp$ IF perg = 4 THEN INPUT "A boca do dragÆo pergunta: O que ‚ percebido apenas em sua ausˆncia? ", resp$ IF perg = 5 THEN INPUT "A boca do dragÆo pergunta: O que ‚ que quando nÆo se tem vale mais que qualquer coisa? ", resp$ IF resp$ = "liberdade" THEN PRINT "A boca do dragÆo diz: Parab‚ns! (xp +5)": porta(1) = 1: xp(1) = xp(1) + 5 ELSE PRINT "A boca do dragÆo diz: Errou!  o que sobra quando vocˆ nÆo se prende a regras oudefini‡äes. Tente denovo. (Escreva apenas uma palavra. Com letras min£sculas)" END IF END IF s = 0: d = inte(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 corpo(9) = 0 THEN IF s >= 1 THEN INPUT "Vocˆ ouve alguma coisa atr s da porta.", press IF s >= 2 THEN INPUT "Uma voz de grossa.", press IF s >= 3 THEN INPUT "Ele disse: Ser  que esse cara vem ou nÆo? T“ cansado de esperar. Quero matar esse her¢i logo e ir pra casa.", press END IF END IF IF px = 5 AND py = 8 THEN s = 0: d = 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 >= 4 THEN PRINT "Vocˆ identifica os quadros como sendo almas de pessoas perturbadas que foram aprisionadas por um feiti‡o, mas nÆo h  nada que qualquer um possa fazer por elas agora." IF porta(2) = 1 THEN PRINT "H  uma passagem secreta atr s de uma cortina ao sul.": movs(5, 8) = 1 IF corpo(9) = 0 THEN PRINT "Um homem grande com manto azul est  aqui.": mon = 9 IF corpo(9) = 0 AND s >= 2 THEN PRINT "Vocˆ detecta magia nele." IF corpo(9) = 0 AND s >= 3 THEN PRINT "Ele est  usando um anel m gico." s = 0: d = inte(1) + sta(27): 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 porta(2) = 0 AND s >= 5 THEN PRINT "Vocˆ acha uma passagem secreta numa cortina ao sul.": porta(2) = 1 END IF IF px = 5 AND py = 9 THEN IF var(1) = 0 THEN 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 >= 3 THEN INPUT "Vocˆ detectou uma armadilha no teto da sala. Evitando pisar na pedra que aciona a armadilha, vocˆ entra na sala.", press ELSE s = 0: d = rea(1) + sta(7): 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 "Quando vocˆ entra na sala, peda‡os de metal pontiagudos caem sobre vocˆ. Vocˆ ainda teve tempo de se jogar o mais longe que pode e evitar a armadilha.": INPUT "", press ELSE 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 "Quando vocˆ entra na sala, dispara uma armadilha e peda‡os de metal pontiagudos caem sobre vocˆ, causando "; dan; " de dano": INPUT "", press: fer(1) = fer(1) + dan: IF fer(1) >= vit(1) THEN GOTO saida END IF END IF PRINT "Vocˆ encontrou a sala do tesouro.": var(1) = 1 PRINT "Vocˆ encontra 1 pergaminho, um manto negro e 20 moedas." equ(30) = 1: equ(31) = 1: din = din + 20 s = 0: d = 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 >= 2 THEN PRINT "Vocˆ identifica uma magia de regenera‡Æo no pergaminho" IF s >= 3 THEN INPUT "Vocˆ detecta magia no manto", press IF s >= 4 THEN INPUT "Magia do tipo que aumenta sua rea‡Æo", press INPUT "", press END IF END IF IF px = 7 AND py = 6 THEN IF corpo(10) = 1 THEN PRINT "O corpo de um troll se encontra no chÆo." IF corpo(10) = 0 THEN PRINT "Um troll cheio de misangas est  aqui, ocupado com outras coisas.": mon = 10 IF s >= 1 THEN PRINT "Vocˆ detecta magia no troll" IF s >= 2 THEN PRINT "Vocˆ sabe que os trolls tem regenera‡Æo." IF s >= 3 THEN PRINT "Vocˆ sabe que os xamÆs trolls nem sempre sÆo malignos." INPUT "Quer atac -lo? ", resp$ IF resp$ = "s" THEN sta(10) = 0: Combate IF var(2) = 0 THEN PRINT "O troll percebe sua aproxima‡Æo" PRINT "Troll: Pegue essa pedra e use apenas numa placa de metal, no buraco do meio." INPUT "Vocˆ pega uma pedra quadrada, amarela e azul, com inscri‡äes estranhas.", press equ(32) = 1: var(2) = 1 s = 0: d = 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 >= 4 THEN PRINT "Vocˆ reconhece essa pedra como sendo uma pedra de energia." ELSE fala = INT(RND * 4) + 1 IF fala = 1 THEN PRINT "O troll diz: Cuidado com o grande mal. Use a pedra. NÆo use a gema." IF fala = 2 THEN PRINT "O troll diz: NÆo se deixe levar pelo poder." IF fala = 3 THEN PRINT "O troll diz: Ser  que vocˆ podia co‡ar minhas costas?" IF fala = 4 THEN PRINT "O troll diz: Vocˆ ‚ engra‡ado, "; raca$(1); "!" END IF END IF END IF IF px = 8 AND py = 5 THEN IF INT(RND * 6) + 1 = 6 THEN corpo(11) = 0 IF corpo(11) = 0 THEN PRINT "Alguma coisa rastejante aparece num buraco adjacente": mon = 11 IF corpo(11) = 1 THEN PRINT "O corpo de uma grande centop‚ia se encontra no chÆo." END IF IF px = 10 AND py = 19 THEN IF INT(RND * 10) = 0 THEN PRINT "Uma caravana de ciganos comerciantes se encontra passando por aqui." IF raca$(1) = "Elfo" THEN PRINT "Cigano: Ei! Suas orelhas... Vocˆ ‚ um vulcaniano?" fala = INT(RND * 5) + 1 IF fala = 1 THEN INPUT "Cigano: Ei, amigo. Quer comprar um Cajado do jester roubado de um idiota que joga Diablo: Hellfire? Apenas 20 moedas. ", resp$ IF resp$ = "s" AND din >= 20 THEN din = din - 20 equ(33) = INT(RND * 6) + 1 PRINT "Cigano:  o melhor item daquele jogo! Tome, ‚ seu. Aproveite." ELSE PRINT "Cigano: Tudo bem, o problema ‚ seu. NÆo sabe o que est  perdendo." END IF END IF IF fala = 2 THEN INPUT "Cigano: Ei, amigo. Quer comprar orelhas de Spock? Apenas 5 moedas. ", resp$ IF resp$ = "s" AND din >= 5 THEN din = din - 5 equ(34) = 1 PRINT "Cigano: Tome, sÆo suas. Aproveite." ELSE PRINT "Cigano: Tudo bem, o problema ‚ seu. NÆo sabe o que est  perdendo." END IF END IF IF fala = 3 THEN INPUT "Cigano: Ei, amigo. Quer comprar uma po‡Æo contra calvice? Apenas 5 moedas. ", resp$ IF resp$ = "s" AND din >= 5 THEN din = din - 5 equ(35) = 1 PRINT "Cigano: Tome, ‚ sua. Aproveite." ELSE PRINT "Cigano: Tudo bem, o problema ‚ seu. NÆo sabe o que est  perdendo." END IF END IF IF fala = 4 THEN INPUT "Cigano: Ei, amigo. Quer comprar um livro de auto-ajuda? Apenas 5 moedas. ", resp$ IF resp$ = "s" AND din >= 5 THEN din = din - 5 equ(36) = 1 PRINT "Cigano: Tome, ‚ seu. Aproveite." ELSE PRINT "Cigano: Tudo bem, o problema ‚ seu. NÆo sabe o que est  perdendo." END IF END IF IF fala = 5 THEN INPUT "Cigano: Ei, amigo. Quer comprar uma caneta permanente? Apenas 5 moedas. ", resp$ IF resp$ = "s" AND din >= 5 THEN din = din - 5 equ(37) = 1 PRINT "Cigano: Tome, ‚ sua. Aproveite." ELSE PRINT "Cigano: Tudo bem, o problema ‚ seu. NÆo sabe o que est  perdendo." END IF END IF INPUT "A caravana de ciganos vai embora.", press END IF END IF IF px = 10 AND py = 15 AND moner(3) = 1 THEN Emboscada IF px = 10 AND py = 16 AND moner(3) = 2 THEN Emboscada IF px = 10 AND py = 17 AND moner(3) = 3 THEN Emboscada IF px = 10 AND py = 18 AND moner(3) = 4 THEN Emboscada IF px = 9 AND py = 17 THEN PRINT "Marck, o taverneiro, est  aqui limpando copos." PRINT "Marck: O que vai ser?" IF var(3) = 1 THEN PRINT "Marck: Tome conta do pacote, ok? Seu pagamento. (4 moedas)": din = din + 4: var(3) = 2 equ(21) = 1 END IF IF var(3) = 4 THEN IF equ(21) = 1 THEN PRINT "Marck: Obrigado por trazer o pacote. Seu pagamento. (4 moedas)": din = din + 4: var(3) = 2 equ(21) = 0 END IF END IF END IF IF px = 8 AND py = 15 THEN PRINT "Raquel, a dona da estalagem, est  aqui lendo Capricho." INPUT "Raquel: Quer passar a noite? (2 moedas) ", resp$ IF resp$ = "s" AND din > 1 THEN din = din - 2 INPUT "Raquel: Boa noite.", press noite = INT(RND * 10) + 1 IF noite = 1 THEN INPUT "Um ladrÆo invade seu quarto … noite.", press: mon = 12: Combate IF noite = 2 THEN INPUT "Um rato gigante aparece no seu quarto … noite.", press: mon = 13: Combate IF noite = 3 THEN din = din \ 2 IF noite > 2 THEN PRINT "Vocˆ dorme tranqilo.": SLEEP 2 IF noite = 10 THEN PRINT "Vocˆ tem um sonho estranho: Sonha que sua vida ‚ apenas jogo est£pido feito em QBasic. Vocˆ acorda com medo." sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 fer(1) = 0: exa(1) = 0 END IF END IF END IF IF px = 8 AND py = 17 THEN INPUT "Sodot: Quer fazer neg¢cio? ", resp$ IF resp$ = "s" THEN INPUT "Sodot: Comprar(c) ou vender(v)? ", resp$ IF resp$ = "c" THEN Equipa: GOTO saida IF resp$ = "v" THEN CLS LINE (0, 0)-(640, 480), 7, BF LINE (10, 10)-(630, 470), 8, B PRINT "": PRINT "Vender:" IF equ(1) > 0 THEN PRINT "(1) Adaga" IF equ(2) > 0 THEN PRINT "(2) Espada" IF equ(3) > 0 THEN PRINT "(3) Machado" IF equ(4) > 0 THEN PRINT "(4) Lan‡a" IF equ(5) > 0 THEN PRINT "(5) Arco" IF equ(6) > 0 THEN PRINT "(6) Funda" IF equ(7) > 0 THEN PRINT "(7) Corselete" IF equ(8) > 0 THEN PRINT "(8) Cota de malha" IF equ(9) > 0 THEN PRINT "(9) Cota de talas" IF equ(10) > 0 THEN PRINT "(10) Armadura completa" IF equ(11) > 0 THEN PRINT "(11) Escudo" IF equ(12) > 0 THEN PRINT "(12) Escudo grande" IF equ(13) > 0 THEN PRINT "(13) Ma‡a" IF equ(14) > 0 THEN PRINT "(14) Martelo" IF equ(15) > 0 THEN PRINT "(15) Montante" IF equ(16) > 0 THEN PRINT "(16) Alabarda" IF equ(17) > 0 THEN PRINT "(17) Arco composto" IF equ(18) > 0 THEN PRINT "(18) Cajado" IF equ(19) > 0 THEN PRINT "(19) Foice" IF equ(20) > 0 THEN PRINT "(20) Espada curta" PRINT "" INPUT "Sodot: Qual dessas? ", ven IF equ(ven) = 0 THEN GOTO saida SELECT CASE ven CASE 1: cust = 0 CASE 2: cust = 2 CASE 3: cust = 3 CASE 4: cust = 2 CASE 5: cust = 5 CASE 6: cust = 0 CASE 7: cust = 2 CASE 8: cust = 6 CASE 9: cust = 15 CASE 10: cust = 35 CASE 11: cust = 1 CASE 12: cust = 3 CASE 13: cust = 2 CASE 14: cust = 4 CASE 15: cust = 6 CASE 16: cust = 7 CASE 17: cust = 10 CASE 18: cust = 0 CASE 19: cust = 2 CASE 20: cust = 1 CASE ELSE: cust = equ(ven) * 4 END SELECT s = 0: d = car(1) + hab(13): 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 pago = cust + s IF pago < 1 THEN pago = 1 IF pago > (cust * 2) THEN pago = (cust * 2) PRINT "Sodot: Eu pago "; pago; " por esse neg¢cio a¡.": INPUT "(Aceitar?) ", resp$ IF resp$ = "s" THEN PRINT "Sodot: Ok." IF equip(1) = ven THEN equip(1) = 0 IF equip(2) = ven THEN equip(2) = 0 IF equip(3) = ven THEN equip(3) = 0 IF equip(4) = ven THEN equip(4) = 0 IF equip(5) = ven THEN equip(5) = 0 IF equip(6) = ven THEN equip(6) = 0 IF equip(7) = ven THEN equip(7) = 0 IF ven = 31 THEN sta(7) = 0 IF ven = 21 THEN var(3) = 3 equ(ven) = 0 din = din + pago INPUT "", press END IF Salas END IF END IF IF px = 7 AND py = 14 THEN IF var(6) = 1 AND var(7) = 0 THEN PRINT "Ovlac: Como eu queria ter cabelos como vocˆ..." INPUT "Ovlac: Quer um cajado recarreg vel? Custa 25 moedas. ", resp$ IF resp$ = "s" AND din >= 25 THEN INPUT "Ovlac: Aqui, pegue um. Eu tenho um monte. Sou revendedor.", press din = din - 25 pref: INPUT "O que vocˆ prefere? Raio(1), fogo(2) ou gelo(3)? ", resp IF resp < 1 OR resp > 3 THEN GOTO pref IF resp = 1 THEN equ(38) = INT(RND * 6) + 1 IF resp = 2 THEN equ(39) = INT(RND * 6) + 1 IF resp = 3 THEN equ(40) = INT(RND * 6) + 1 INPUT "Ovlac: Agora, quer aprender a recarregar o cajado? Custa 6 moedas. ", resp$ IF resp$ = "s" AND din >= 6 THEN INPUT "Ovlac:  s¢ fazer assim:(pega um cajado e puxa o cabo como se fosse uma escopeta). Viu? S¢ que gasta um pouco de mana.", press din = din - 6 mag(16) = inte(1) END IF END IF END IF IF px = 6 AND py = 15 THEN PRINT "Tell: Ol  "; classe$(1); "!" PRINT "Tell: Eu tamb‚m era um tipo de "; classe$(1); " no meu tempo." IF var(8) < 2 THEN INPUT "Tell: Viu um ba£ vermelho por a¡? NÆo me lembro onde botei. ", resp$ IF resp$ = "s" AND equ(41) = 1 THEN INPUT "Vocˆ vai entregar o ba£ a ele? ", resp$ IF resp$ = "s" THEN INPUT "Tell: Onde vocˆ achou? Ah ‚! Eu tava jogando futebol quando o mensageiro me trouxe isso. Valeu!", press$: var(8) = 2 INPUT "Tell: Tome sua recompensa.(6 moedas)", press: din = din + 6 equ(41) = 0 ELSE INPUT "Tell: Eu pago uma recompensa para quem me devolver.", press END IF END IF END IF END IF IF px = 7 AND py = 18 THEN s = 0: d = inte(1) + sta(27): 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 AND var(8) = 0 THEN PRINT "Vocˆ acha um ba£ vermelho esquecido embaixo de um banco." equ(41) = 1: var(8) = 1 END IF END IF IF px = 20 AND py = 19 THEN IF INT(RND * 20) = 0 THEN PRINT "Uma n‚voa pesada cobre a ponte": mon = 31 IF px = 19 AND py = 16 THEN IF INT(RND * 20) = 0 THEN PRINT "Alguma coisa grande est  se movendo embaixo da ponte": mon = 35 IF px = 17 AND py = 10 AND INT(RND * 10) = 0 THEN PRINT "Vocˆ vˆ um ser de sombras assombrando esse lugar": mon = 32: sta(1) = 0: sta(10) = 0 IF hab(8) > 0 THEN INPUT "Quer usar o poder da f‚ para afugent -lo? ", resp$ s = 0: d = hab(8): 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 resp$ = "s" THEN IF s < 5 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. Nada acontece" IF s >= 5 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. A apari‡Æo desaparece. (xp +3)": mon = 0: xp(1) = xp(1) + 3: GOTO saida END IF END IF END IF IF px >= 3 AND px <= 5 AND py = 17 THEN IF INT(RND * 10) = 0 THEN corpo(33) = 0 IF INT(RND * 10) < hab(10) THEN corpo(33) = 1 IF corpo(33) = 0 THEN PRINT "Um ser human¢ide com cara de hiena est  se escondendo aqui": mon = 33 END IF IF px = 14 AND py = 10 THEN IF corpo(34) = 0 THEN PRINT "Uma est tua de um guerreiro est  aqui, encostada na parede sul": IF INT(RND * 20) = 0 THEN mon = 34 IF corpo(34) = 1 THEN PRINT "Os restos de um golen se encontram no chÆo" s = 0: d = 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 >= 3 AND corpo(34) = 0 THEN PRINT "Vocˆ detecta magia na est tua" END IF Eventos2 saida: END SUB SUB Eventos2 IF px = 9 AND py = 16 THEN IF sta(10) = 0 THEN IF raca$(1) = "Elfo" THEN IF sta(1) <= INT(RND * 6) THEN sta(1) = 0 INPUT "Uma multidÆo aponta e diz: Um Elfo!, peguem ele!", press px = 6: py = 17: movn(6, 17) = 0: GOTO infeliz END IF IF var(5) = 1 THEN IF sta(1) <= INT(RND * 6) THEN sta(1) = 0 INPUT "Uma multidÆo aponta e diz: Um Elfo!, peguem ele!", press INPUT "Vocˆ tenta tirar a orelha falsa mas nÆo consegue. Est  grudada!", press px = 6: py = 17: movn(6, 17) = 0: GOTO infeliz END IF END IF END IF IF px = 9 AND py = 16 AND moner(4) = 1 THEN IF INT(RND * (var(13) + 3)) + 1 > 3 THEN INPUT "Um guarda est  aqui.", press: mon = 15 INPUT "Um cidadÆo aleat¢rio est  passando por aqui. Falar(f) ", resp$: mon = 15 IF var(5) = 1 THEN PRINT "O cidadÆo grita: Um Elfo! Um Elfo vivo!": PRINT "Uma multidÆo aparece derepente.": GOTO infeliz IF resp$ = "f" THEN Conversa END IF IF px = 8 AND py = 16 AND moner(4) = 2 THEN IF INT(RND * (var(13) + 3)) + 1 > 3 THEN INPUT "Um guarda est  aqui.", press: mon = 15 IF var(5) = 1 THEN PRINT "O cidadÆo grita: Um Elfo! Um Elfo vivo!": PRINT "Uma multidÆo aparece derepente.": GOTO infeliz INPUT "Um cidadÆo aleat¢rio est  passando por aqui. Falar(f) ", resp$: mon = 15 IF resp$ = "f" THEN Conversa END IF IF px = 7 AND py = 16 AND moner(4) = 3 THEN IF INT(RND * (var(13) + 3)) + 1 > 3 THEN INPUT "Um guarda est  aqui.", press: mon = 15 INPUT "Um cidadÆo aleat¢rio est  passando por aqui. Falar(f) ", resp$: mon = 15 IF var(5) = 1 THEN PRINT "O cidadÆo grita: Um Elfo! Um Elfo vivo!": PRINT "Uma multidÆo aparece derepente.": GOTO infeliz IF resp$ = "f" THEN Conversa END IF IF px = 6 AND py = 16 AND moner(4) = 4 THEN IF INT(RND * (var(13) + 3)) + 1 > 3 THEN INPUT "Um guarda est  aqui.", press: mon = 15 INPUT "Um cidadÆo aleat¢rio est  passando por aqui. Falar(f) ", resp$: mon = 15 IF var(5) = 1 THEN PRINT "O cidadÆo grita: Um Elfo! Um Elfo vivo!": PRINT "Uma multidÆo aparece derepente.": GOTO infeliz IF resp$ = "f" THEN Conversa END IF IF px = 6 AND py = 17 THEN IF var(5) = 3 THEN INPUT "Dupond: E a¡ campeÆo? Vamos mandar mais uma dessas coisas nojentas pro fundo da terra? ", resp$ IF resp$ = "s" THEN PRINT "Dupond:  assim que se fala!": GOTO monstro END IF IF raca$(1) = "Elfo" AND var(5) < 3 THEN GOTO infeliz IF var(5) = 1 THEN infeliz: PRINT "A multidÆo joga vocˆ na arena de luta gritando: Morra orelhudo desgra‡ado!" PRINT "EntÆo aparece uma criatura... Uma coisa sem defini‡Æo! NÆo, nÆo... Pior! Muito pior!" monstro: PRINT "Vocˆ est  no meio da arena" INPUT "A criatura rasteja em sua dire‡Æo", press sta(10) = 0: mon = 14: Combate END IF IF var(5) = 2 THEN var(5) = 3 movn(6, 17) = 1 INPUT "A criatura come‡a a derreter.", press INPUT "A multidÆo p ra de gritar.", press INPUT "Vocˆ ‚ considerado um her¢i gladiador por ter vencido o monstro.", press INPUT "Logo depois ‚ considerado um cagÆo mesmo. A multidÆo diz: Ah! Ele teve sorte. E vai embora desapontada.", press INPUT "Um homem em roupas caras diz: Incr¡vel! Ei, j  pensou em se tornar um profissional? Meu nome ‚ Dupond, prazer.", press INPUT "Dupond: Eu serei seu empres rio se lutar mais uma vez. Vocˆ nÆo vai parar agora,vai?", press END IF END IF IF px = 5 AND py = 6 THEN IF porta(4) = 1 THEN movs(5, 6) = 1 IF porta(4) = 0 THEN INPUT "A porta sul est  trancada, quer tentar abri-la?", 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ˆ abre a porta": porta(4) = 1 ELSE INPUT "Vocˆ nÆo conseguiu abrir a porta, quer derrub -la?", resp$ IF resp$ = "s" AND forc(1) >= 3 THEN PRINT "Vocˆ derruba a porta": porta(4) = 1: sta(10) = 0: sta(1) = 0 ELSE PRINT "Vocˆ nÆo consegue derrubar a porta" END IF 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 >= 3 THEN IF s < 3 THEN GOTO armadil INPUT "Vocˆ detecta uma armadilha na porta a sul. Quer tentar desarm -la? ", resp$ IF resp$ = "s" THEN 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ˆ nÆo consegue desarmar a armadilha": GOTO saida2 END IF IF s > 2 THEN PRINT "Vocˆ desarma a armadilha. A porta se abre": porta(4) = 1: GOTO saida2 END IF PRINT "Vocˆ nÆo consegue desarmar a armadilha e a dispara se querer" armadil: IF s = 0 THEN s = 0: d = rea(1) + sta(7): 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 = 6 - s: IF dan < 0 THEN dan = 0 PRINT "Uma flecha ‚ disparada de um buraco oculto na parede norte" IF dan <= 0 THEN PRINT "Vocˆ se esquiva bem tempo de desviar da flecha" ELSE PRINT "A flecha te acerta, causando "; dan; "de dano" IF porta(4) = 0 THEN PRINT "A porta se abre" fer(1) = fer(1) + dan: porta(4) = 1 END IF END IF END IF END IF END IF END IF IF px = 6 AND py = 7 THEN s = 0: d = inte(1) + sta(27): 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 AND var(16) = 0 THEN PRINT "Vocˆ nota uma adaga drow no chÆo e resolve pegar": var(16) = 1: equ(58) = 3 END IF IF px = 4 AND py = 7 THEN IF porta(5) = 1 THEN movo(4, 7) = 1 IF porta(5) = 0 THEN s = 0: d = inte(1) + sta(27): 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 AND porta(5) = 0 THEN PRINT "Vocˆ nota uma porta secreta na parede oeste. A porta ‚ de metal liso, sem fechadura nem ma‡aneta, se confunde com a parede. Quando vocˆ a empurra, ela abre sem esfor‡o": porta(5) = 1 END IF IF classe$(1) = "Cl‚rigo" OR classe$(1) = "Paladino" THEN PRINT "Vocˆ sente um grande mal escondido pr¢ximo a essas paredes" END IF IF px = 3 AND py = 7 THEN IF var(17) = 1 AND var(23) = 0 THEN PRINT "Zumbi: NÆo posso sair enquanto meu mestre nÆo estiver morto" IF var(17) = 1 AND var(23) > 0 THEN PRINT "Zumbi: Muito obrigado, "; nome$(1); ".": PRINT "Zumbi: Aceite essas moedas como pagamento.": PRINT "Ele lhe d  8 moedas e vai embora (vocˆ ganha 5 xp)": din = din + 8: xp(1) = xp(1) + 5: var(17) = 2 s = 0: d = 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 >= 3 AND porta(5) = 1 THEN PRINT "Vocˆ percebe que a porta leste cont‚m um tipo de fechadura arcana." IF porta(5) = 1 THEN movl(3, 7) = 1 IF porta(5) = 2 THEN movl(3, 7) = 0 INPUT "A porta leste est  trancada, quer tentar destranc -la? ", resp$ IF resp$ = "s" THEN INPUT " imposs¡vel destrancar essa porta, ela nem tem fechadura! Quer tentar derrub -la? ", resp$ IF resp$ = "s" THEN PRINT " imposs¡vel derrubar essa porta, ela ‚ de metal ultra-resistente" END IF IF porta(5) = 3 THEN PRINT "A porta leste est  aberta, segurada por uma pedra": movl(3, 7) = 1 END IF IF px = 3 AND py = 6 THEN IF porta(5) = 1 THEN porta(5) = 2: PRINT "Vocˆ ouve a porta atr s de vocˆ se fechar com um clique" IF var(17) = 1 THEN PRINT "O zumbi est  te seguindo" IF var(17) = 0 THEN INPUT "Um homem desfigurado est  parado aqui como um zumbi. Vocˆ quer atac -lo? ", resp$ IF resp$ = "s" THEN IF hab(8) > 0 THEN INPUT "Quer usar o poder da f‚ para afugent -lo? ", resp$ s = 0: d = hab(8): 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 resp$ = "s" THEN : IF s < 4 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. Nada acontece" ELSE PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. O zumbi ‚ destru¡do. (xp +4)": var(17) = 2: xp(1) = xp(1) + 4: GOTO saida2 mon = 16 END IF END IF IF sta(10) + sta(1) = 0 THEN PRINT "O homem, que tem um cheiro desagr vel, se aproxima de vocˆ. Vocˆ percebe que ele‚ mesmo um zumbi" INPUT "Zumbi: Mais um! Vocˆ tamb‚m deixou a porta fechar, nÆo foi? ", resp$ IF resp$ = "n" AND porta(5) = 3 THEN INPUT "Zumbi: O quˆ? Vocˆ segurou a porta? Se vocˆ estiver dizendo a verdade e conseguir me tirar daqui, eu te pagarei bem. (Aceitar?) ", resp$ IF resp$ = "s" THEN PRINT "Zumbi: N¢s s¢ precisamos derrotar meu mestre, na sala ao sul, para que eu possa sair daqui.": PRINT "O zumbi come‡a a te seguir": var(17) = 1 ELSE PRINT "EntÆo vou ter que te matar.": mon = 16 ELSE INPUT "Zumbi: Sei... EntÆo nÆo vai se importar se eu te matar agora, vai? ", resp$ IF resp$ = "s" THEN INPUT "Zumbi: Por que? Eu fiquei cem anos trancado aqui e todo idiota que entra deixa aporta se trancar de novo. Vocˆ quer ouvir minha est¢ria? ", resp$ IF resp$ = "s" THEN PRINT "Zumbi: Eu e um necromante entramos aqui a muito tempo atr s. Quando percebeu queestava preso para sempre, ele usou rituais negros para se tornar um lich e vivereternamente, assim poderia pensar num jeito de sair daqui. Quando eu morri, ele me transformou num zumbi, e agora sou seu escravo." PRINT "Zumbi: Ora, por que eu estou falando com a comida afinal?": mon = 16 ELSE PRINT "Zumbi: Ora, por que eu falaria com a comida afinal?": mon = 16 END IF ELSE mon = 16 END IF END IF END IF END IF END IF IF px = 3 AND py = 8 THEN IF porta(5) = 1 THEN porta(5) = 2: PRINT "Vocˆ ouve a porta atr s de vocˆ se fechar com um clique" IF var(17) = 1 THEN PRINT "O zumbi est  te seguindo" END IF IF px = 3 AND py = 9 THEN IF var(17) = 1 THEN PRINT "O zumbi est  te seguindo" IF var(23) = 0 THEN PRINT "Um homem esquel‚tico com roupas negras e um brilho vermelho no lugar dos olhos est  aqui, brincando com peda‡os de carne humana" IF sta(10) + sta(1) > 0 THEN PRINT "O esqueleto maligno parece perceber sua presen‡a": sta(1) = 0: sta(10) = 0 INPUT "Lich: Mais um tolo mortal caiu na armadilha? Me diga, numa simples palavra, comovocˆ espera sair daqui agora? ", resp$ IF resp$ = "teleporte" OR resp$ = "Teleporte" OR resp$ = "pergaminho" OR resp$ = "Pergaminho" OR resp$ = "portal" OR resp$ = "Portal" THEN PRINT "Lich: O quˆ?  claro que... vocˆ quer dizer?": SLEEP 1 PRINT "Lich: OH MEU DEUS!!!  CLARO!!!" PRINT "Lich: Eu devo ter um pergaminho de portal aqui em algum lugar." PRINT "O lich pega um pergaminho e lˆ, sumindo num portal m gico (NÆo, vocˆ nÆo pode entrar no portal, ele ‚ personalizado)" var(23) = 1 ELSE PRINT "Lich:  o que todos dizem. Bem, vou te matar agora.": mon = 17 IF hab(8) > 0 THEN INPUT "Quer usar o poder da f‚ para afugent -lo? ", resp$ s = 0: d = hab(8): 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 resp$ = "s" THEN IF s < 6 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. Nada acontece" IF s >= 6 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. O lich ‚ transformado num monte de p¢. (xp +8)": PRINT "Lich: MAMÆeee...": xp(1) = xp(1) + 8: var(23) = 3: GOTO saida2 END IF END IF END IF END IF END IF IF px = 3 AND py = 2 THEN PRINT "O dono do est bulo, um velho chamado Rudolf, est  aqui, sonolento" fala = INT(RND * 10) + 1 IF fala = 1 THEN PRINT "Rudolf: ZZZZZZZZZzzzz...Ahm?" IF fala = 2 THEN PRINT "Rudolf: Quem?" IF fala = 3 THEN PRINT "Rudolf: Quando?" IF fala = 4 THEN PRINT "Rudolf: Onde?" IF fala = 5 THEN PRINT "Rudolf: Por que?" IF fala = 6 THEN PRINT "Rudolf: Mais heim?" IF fala = 7 THEN PRINT "Rudolf: Uai, nÆo, uai!" IF fala = 8 THEN PRINT "Rudolf: ZZZZZZZZZ... babacfidput...ZZZZZZZZZZz...Ahm?" IF fala = 9 THEN PRINT "Rudolf: Slrup! (suga a baba)" IF fala = 10 THEN PRINT "Rudolf: Ahmmaammmmmmmmmm! (se espregui‡a esticando os bra‡os e boceja demoradamente)" IF sta(20) = 0 THEN INPUT "Rudolf: Est  interessado no £ltimo cavalo que sobrou? Apenas dez moedas. ", resp$ IF resp$ = "s" AND din >= 10 THEN PRINT "Rudolf: Aqui est  seu cavalo. Agora sim eu vou dormir em paz.": sta(20) = 1 ELSE PRINT "Rudolf: NÆo interrompa meu sono assim!" END IF END IF IF px = 1 AND py = 3 THEN PRINT "O alquimista Linnus est  aqui, bastante concentrado numa f¢rmula" INPUT "Linnus: Pois nÆo? A procura de reagentes(r) ou de po‡äes(p)? ", resp$ IF resp$ = "r" THEN PRINT "N£mero de reagentes no invent¢rio:"; equ(48) IF equ(48) > 9 THEN INPUT "Linnus: Eu recentimente estou em falta. Na verdade estou procurando quem possa me vender reagentes. [Vender(v)] ", resp$ IF resp$ = "v" THEN INPUT "Linnus: Vocˆ tem reagentes sobrando? àtimo, eu pago 2 moedas por cada um. Quantos vocˆ vai me vender? ", resp IF equ(48) >= resp AND resp > 0 THEN PRINT "Obrigado. Tome seu dinheiro": equ(48) = equ(48) - resp: din = din + (2 * resp) ELSE INPUT "Linnus: Quantidade? (3 moedas cada) ", resp IF din >= (resp * 3) AND resp > 0 THEN PRINT "Aqui. Obrigado.": din = din - (resp * 3): equ(48) = equ(48) + resp IF hab(11) = 0 THEN INPUT "Linnus: Eu vejo que vocˆ nÆo tem muito jeito com alquimia, gostaria de aprender uns truques b sicos por apenas 8 moedas? ", resp$ IF resp$ = "s" AND din >= 8 THEN INPUT "Linnus ensina a vocˆ um pouco de alquimia.", press: sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0: din = din - 8: hab(11) = 1 END IF END IF END IF IF resp$ = "p" THEN PRINT "Po‡äes no invent¢rio:" PRINT "(1): Po‡Æo de for‡a:"; equ(49) PRINT "(2): Po‡Æo de vigor:"; equ(50) PRINT "(3): Po‡Æo de agilidade:"; equ(51) PRINT "(4): Po‡Æo de explosiva:"; equ(52) PRINT "(5): Po‡Æo de ofuscante:"; equ(53) PRINT "" INPUT "Linnus: Qual tipo de po‡Æo? ", resp IF resp = 1 THEN PRINT "Linnus: Essa po‡Æo custa 4 moedas cada": cust = 4 IF resp = 2 THEN PRINT "Linnus: Essa po‡Æo custa 5 moedas cada": cust = 5 IF resp = 3 THEN PRINT "Linnus: Essa po‡Æo custa 6 moedas cada": cust = 6 IF resp = 4 THEN PRINT "Linnus: Essa po‡Æo custa 7 moedas cada": cust = 7 IF resp = 5 THEN PRINT "Linnus: Essa po‡Æo custa 8 moedas cada": cust = 8 INPUT "Linnus: Quantas? ", quant IF resp = 1 AND din >= (cust * quant) THEN PRINT "Linnus: àtimo. Obrigado.": din = din - (cust * quant): equ(49) = equ(49) + quant IF resp = 2 AND din >= (cust * quant) THEN PRINT "Linnus: àtimo. Obrigado.": din = din - (cust * quant): equ(50) = equ(50) + quant IF resp = 3 AND din >= (cust * quant) THEN PRINT "Linnus: àtimo. Obrigado.": din = din - (cust * quant): equ(51) = equ(51) + quant IF resp = 4 AND din >= (cust * quant) THEN PRINT "Linnus: àtimo. Obrigado.": din = din - (cust * quant): equ(52) = equ(52) + quant IF resp = 5 AND din >= (cust * quant) THEN PRINT "Linnus: àtimo. Obrigado.": din = din - (cust * quant): equ(53) = equ(53) + quant Salas END IF END IF IF px = 4 AND py = 3 THEN PRINT "Gores, o ferreiro, est  aqui, melanc¢lico" PRINT "Gores: Ol , "; nome$(1); "." INPUT "Gores: Eu nÆo vendo mais armas, mas posso consertar as suas, se estiverem danificadas. Tem alguma a¡? ", resp$ IF resp$ = "s" THEN PRINT "" PRINT "Invent¢rio:" 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(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(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(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 "Gores: Qual? ", con SELECT CASE con CASE 2: cust = 4 - equ(con) CASE 3: cust = 5 - equ(con) CASE 4: cust = 4 - equ(con) CASE 5: cust = 4 - equ(con) CASE 8: cust = 3 - equ(con) CASE 9: cust = 4 - equ(con) CASE 10: cust = 5 - equ(con) CASE 13: cust = 4 - equ(con) CASE 14: cust = 5 - equ(con) CASE 15: cust = 6 - equ(con) CASE 16: cust = 6 - equ(con) CASE 17: cust = 5 - equ(con) CASE 19: cust = 4 - equ(con) CASE 20: cust = 3 - equ(con) CASE ELSE: INPUT "Gores: Eu nÆo trabalho com esse tipo de item.", press: GOTO saida2 END SELECT IF cust > 0 THEN PRINT "Gores examina o equipamento" PRINT "Gores: Vai custar"; cust; "po para consertar isso" INPUT "Gores: Posso come‡ar? ", resp$ IF resp$ = "s" AND din >= cust THEN PRINT "Gores come‡a o trabalho": SLEEP 1 PRINT "Um tempo depois ele acaba": SLEEP 1 PRINT "Gores: Aqui est , como nova!": din = din - cust equ(con) = equ(con) + cust END IF ELSE PRINT "Essa arma nÆo est  quebrada!" END IF INPUT "", press Salas END IF END IF IF px = 3 AND py = 4 THEN PRINT "A sacerdote Haucar est  aqui, rezando" IF fer(1) > 0 OR sta(21) > 0 OR sta(18) > 0 THEN INPUT "Haucar: Vocˆ nÆo est  bem. Deseja ser curado? ", resp$ IF resp$ = "s" THEN PRINT "O sacerdote coloca as mÆos sobre vocˆ e entoa um cƒntico": fer(1) = 0: sta(18) = 0: sta(21) = 0 IF din > 0 THEN INPUT "Haucar: Vocˆ se dignificaria em fazer uma doa‡Æo de 1 moeda? ", resp$ IF resp$ = "s" THEN PRINT "Haucar: Que Antar esteja em ti.": din = din - 1 ELSE : IF classe$(1) = "Cl‚rigo" OR classe$(1) = "Paladino" AND xp(1) > 0 THEN xp(1) = xp(1) - 1 END IF END IF IF px = 4 AND py = 15 THEN PRINT "Vocˆ vˆ uma mulher muito bonita, com longos cabelos negros e sorriso misterioso.Ela usa um vestido preto e um amuleto em forma de lua e sol." INPUT "Bruxa: O que vocˆ veio buscar aqui? ", resp$ IF resp$ = "elemental" OR resp$ = "poder" OR resp$ = "conhecimento" OR resp$ = "ensinamento" OR resp$ = "magia" AND mag(10) < 6 THEN INPUT "Bruxa: Eu posso te ensinar a invocar elementais, por 10 moedas a aula. (Aceitar?) ", resp$ IF resp$ = "s" AND din >= 10 THEN PRINT "Vocˆ come‡a a estudar os rituais de conjura‡Æo": SLEEP 1: PRINT "Ap¢s um tempo vocˆ aprende a cunjurar elementais": din = din - 10: mag(10) = mag(10) + 1 sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 END IF END IF IF px = 10 AND py = 1 THEN IF sta(20) > 0 THEN Cavalo END IF IF px = 2 AND py = 4 THEN IF sta(20) > 0 THEN Cavalo END IF IF px = 20 AND py = 19 THEN IF sta(20) > 0 THEN Cavalo END IF IF px = 2 AND py = 10 THEN IF sta(20) > 0 THEN Cavalo END IF IF px = 9 AND py = 15 THEN IF sta(20) > 0 THEN Cavalo END IF IF px = 2 AND py >= 6 AND py <= 9 THEN IF INT(RND * 10) = 0 THEN corpo(18) = 0 IF INT(RND * 10) < hab(10) THEN corpo(18) = 1 IF corpo(18) = 0 THEN PRINT "Uma cobra de aparˆncia amea‡adora est  aqui": mon = 18 END IF IF px = 1 AND py = 12 THEN IF INT(RND * 6) = 0 THEN corpo(19) = 0 IF corpo(19) = 0 THEN PRINT "Um escorpiÆo gigante aparece entre as pedras": mon = 19 IF corpo(19) = 1 THEN PRINT "O corpo de um escorpiÆo gigante se encontra no chÆo" END IF IF px = 2 AND py = 13 THEN IF sta(22) = 0 THEN PRINT "A est tua de um beholder sem olho se encontra aqui, abandonada no chÆo" IF sta(22) = 1 AND corpo(29) = 0 THEN PRINT "Um poderoso beholder est  aqui, planejando alguma coisa": mon = 29: sta(1) = 0: sta(10) = 0 IF corpo(29) = 1 THEN PRINT "O corpo do beholder est  no chÆo, sendo devorado lentamente por formigas." END IF IF px = 3 AND py = 12 THEN IF INT(RND * 6) = 0 THEN corpo(20) = 0 IF corpo(20) = 0 THEN PRINT "Uma harpia est  voando baixo por aqui": mon = 20 IF corpo(20) = 1 THEN PRINT "O corpo de uma harpia se encontra no chÆo" END IF IF px >= 5 AND px <= 8 AND py = 19 THEN IF INT(RND * 10) = 0 THEN corpo(21) = 0 IF INT(RND * 10) < hab(10) THEN corpo(21) = 1 IF corpo(21) = 0 THEN PRINT "Um lagarto gigante est  aqui, ca‡ando": mon = 21 END IF IF px = 3 AND py = 19 THEN IF corpo(25) = 0 THEN PRINT "Um ogro muito feio est  aqui, segurando uma gema que lembra um grande olho": mon = 25 IF corpo(25) = 1 THEN PRINT "O corpo de um ogro se encontra no chÆo" INPUT "Vocˆ quer falar com o ogro? ", resp$ IF resp$ = "s" THEN INPUT "Sobre o que vocˆ quer perguntar ao ogro? ", resp$ IF resp$ = "gema" THEN PRINT "Ogro: Gema do olho ‚ minha! Eu queria o boneco de pel£cia do Chuthulh£ mas o dinheiro nÆo deu!" IF resp$ = "boneco" OR resp$ = "chuthulh£" THEN PRINT "Ogro: O boneco de pel£cia do Chuthulh£ s¢ se compra pela internet ou diretamentecom os drows." IF resp$ = "drows" THEN PRINT "Ogro: Os drows controlam a internet e moram na dungeon, numa parte escura cheia de p“sters de D&D." IF resp$ = "d&d" OR resp$ = "D&D" THEN PRINT "Ogro: Os drows adoram jogar D&D, mas nunca conseguem." IF resp$ = "internet" THEN PRINT "Ogro: Os drows veneram a deusa Loth. Ela criou uma teia que cobre o mundo inteiro e ningu‚m percebe." END IF END IF IF px = 6 AND py = 18 THEN IF sta(23) = 0 THEN PRINT "Um homem de capuz o recebe na porta da cabana" PRINT "Homem: Se vocˆ veio cobrar impostos, ‚ bom voltar agora mesmo." PRINT "Homem: Mas se vocˆ veio em busca de conhecimento, este ‚ o lugar certo." INPUT "Homem: Quer aprender o que eu tenho a ensinar?", resp$ IF resp$ = "s" THEN IF hab(3) < 3 THEN INPUT "Posso ensin -lo a ser mais furtivo por 6 moedas, o que acha? ", resp$ IF resp$ = "s" AND din >= 6 THEN INPUT "Vocˆ treina por um tempo", press: sta(1) = 0: sta(2) = 0: sta(3) = 0: sta(3) = 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: sta(26) = 0: hab(3) = hab(3) + 1: din = din - 6 END IF IF hab(4) < 3 THEN INPUT "Posso ensin -lo a detectar e desarmar armadilhas por 6 moedas, o que acha? ", resp$ IF resp$ = "s" AND din >= 6 THEN INPUT "Vocˆ treina por um tempo", press: sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0: hab(4) = hab(4) + 1: din = din - 6 END IF IF hab(5) < 3 THEN INPUT "Posso ensin -lo a abrir fechaduras por 6 moedas, o que acha? ", resp$ IF resp$ = "s" AND din >= 6 THEN INPUT "Vocˆ treina por um tempo", press: sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0: hab(5) = hab(5) + 1: din = din - 6 END IF IF hab(6) < 3 THEN INPUT "Posso ensin -lo a roubar melhor por 6 moedas, o que acha? ", resp$ IF resp$ = "s" AND din >= 6 THEN INPUT "Vocˆ treina por um tempo", press: sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0: hab(6) = hab(6) + 1: din = din - 6 END IF END IF END IF END IF IF px >= 12 AND px <= 17 AND py = 19 THEN IF INT(RND * 10) = 0 THEN corpo(22) = 0 IF INT(RND * 10) < hab(10) THEN corpo(22) = 1 IF corpo(22) = 0 THEN PRINT "Um kobold guerreiro est  aqui, se co‡ando": mon = 22 END IF IF px >= 11 AND px <= 13 AND py <= 18 AND py >= 16 THEN IF INT(RND * 10) = 0 THEN corpo(24) = 0 IF INT(RND * 10) < hab(10) THEN corpo(24) = 1 IF corpo(24) = 0 THEN PRINT "Um lobo faminto est  aqui": mon = 24 END IF IF px = 14 AND py = 16 THEN s = 0: d = inte(1) + sta(27): 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 hab(11) > 0 AND s >= 4 AND INT(RND * 20) = 0 THEN INPUT "Vocˆ acha uma planta que serve de reagente", press: equ(48) = equ(48) + 1 END IF END IF IF px = 13 AND py = 15 THEN IF hab(11) > 0 AND s >= 4 AND INT(RND * 20) = 0 THEN INPUT "Vocˆ acha uma planta que serve de reagente", press: equ(48) = equ(48) + 1 END IF END IF IF px = 11 AND py = 15 THEN IF hab(11) > 0 AND s >= 4 AND INT(RND * 20) = 0 THEN INPUT "Vocˆ acha uma planta que serve de reagente", press: equ(48) = equ(48) + 1 END IF END IF IF px = 12 AND py = 14 THEN IF var(4) = 1 THEN var(4) = 0 PRINT "Um barco est  amarrado na margem do rio": SLEEP 1 PRINT "CidadÆo: Muito obrigado, "; nome$(1); "!" INPUT "Tome seu pagamento (6 moedas)", press: din = din + 6 PRINT "(xp +2)": xp(1) = xp(1) + 2 PRINT "O cidadÆo embarca e vai embora, rio abaixo" END IF END IF IF px = 19 AND py = 6 THEN PRINT "Vocˆ vˆ um par de elfos guardando a passagem norte" IF var(5) > 0 OR raca$(1) = "Elfo" THEN PRINT "Elfo: Seja bem vindo … vila ‚lfica de Tarnich, amigo elfo!" movn(19, 6) = 1 ELSE PRINT "Elfo: Parado a¡, "; raca$(1); "!" PRINT "Elfo: Seu tipo nÆo ‚ bem vindo aqui." END IF END IF IF px = 18 AND py = 2 THEN PRINT "Vocˆ vˆ um elfo anciÆo sentado numa cadeira alta, esculpida com rostos ‚lficos famosos." INPUT "Falar com ele? ", resp$ IF resp$ = "s" THEN Convers2 END IF IF px = 16 AND py = 4 THEN PRINT "Vocˆ vˆ um ranger elfo fazendo artesanato com o couro de um animal." IF var(6) = 1 AND var(25) = 0 THEN PRINT "O elfo olha para seus cabelos enormes": PRINT "Ranger:  um prazer ter um alto comandante das tropas ‚lficas aqui em Tarnich! Deixe-me presente -lo com essa cota de malha ‚lfica. (Ele te entrega uma cota demalha m gica)": var(25) = 1: equ(60) = 4 IF sta(12) = 2 AND var(24) = 0 THEN PRINT "O elfo se espanta ao olhar para o seu rosto": PRINT "Ranger: Vocˆ ‚ o escolhido para brandir a espada de cristal! Que ¢timo, ela j  estava me dando trabalho pra polir. Tome. (Ele te entrega um espada antiga feitade cristal)": var(24) = 1: equ(59) = 6 IF hab(10) = 0 THEN INPUT "Ranger: Vocˆ quer fazer um curso de sobrevivˆncia na floresta que eu estou dando? Apenas 5 moedas. ", resp$ IF resp$ = "s" AND din >= 5 THEN INPUT "Vocˆ passa um tempo aprendendo sobrevivˆncia na floresta", press: sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0: hab(10) = hab(10) + 1: din = din - 5 END IF END IF IF px = 20 AND py = 4 THEN PRINT "Vocˆ vˆ um elfo fazendo arcos e flechas. Ele parece usar magia para faz‚-los." INPUT "Elfo: Vocˆ quer comprar um arco m gico por 20 moedas? ", resp$ IF resp$ = "s" AND din >= 20 THEN PRINT "Elfo: Tome. Obrigado.": equ(17) = 8: din = din - 20 END IF IF px = 18 AND py = 6 THEN PRINT "Vocˆ vˆ um elfo com um longo manto azul e branco. Ele percebe sua aproxima‡Æo." INPUT "Elfo: Vocˆ veio at‚ aqui para aprender meus feiti‡os? ", resp$ IF resp$ = "s" THEN PRINT "Elfo: Eu posso te ensinar os seguintes feiti‡os por 15 moedas cada:" IF mag(14) = 0 THEN PRINT "(14) Dissipar magia" IF mag(15) = 0 THEN PRINT "(15) Teleporte" IF mag(17) = 0 THEN PRINT "(17) Levitar" IF mag(18) = 0 THEN PRINT "(18) Regenerar" IF mag(22) = 0 THEN PRINT "(22) Esquecimento" IF mag(26) = 0 THEN PRINT "(26) Detectar passagens" PRINT "" INPUT "Feiti‡o:", fei IF mag(fei) = 0 AND din >= 15 THEN sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 INPUT "Vocˆ passa um tempo aprendendo o feiti‡o", press: mag(fei) = 1: din = din - 15 END IF END IF END IF IF px >= 18 AND px <= 20 AND py >= 10 AND py <= 12 THEN IF INT(RND * 10) = 0 THEN corpo(23) = 0 IF INT(RND * 10) < hab(10) THEN corpo(23) = 1 IF corpo(23) = 0 THEN PRINT "Um ser estranho, com pequenos tent culos no rosto e roupas da moda est  aqui, sorrindo ao som de uma m£sica da moda": mon = 23 END IF IF px = 18 AND py = 8 THEN PRINT "Vocˆ vˆ um pequeno gnomo lendo algum livro antigo" PRINT "O gnomo para de ler e olha pra vocˆ" PRINT "Gnomo: Vocˆ parece perdido. Eu posso te ajudar, mas vocˆ tem que me dizer o que est  te perturbando." INPUT "O que vocˆ diz? ", resp$ IF resp$ = "cabelo" OR resp$ = "druida" OR resp$ = "elfos" OR resp$ = "graduado" THEN PRINT "Gnomo: Para que o druida dos elfos te atenda, vocˆ precisa ser um elfo graduado.Os elfos medem seu status pelo tamanho do cabelo." IF resp$ = "espada de cristal" THEN PRINT "Gnomo: A espada de cristal tem poder de se reconstruir magicamente se vocˆ a usar sem atacar ningu‚m." IF resp$ = "gema" OR resp$ = "troll" OR resp$ = "ogro" THEN PRINT "Gnomo: Vocˆ precisa encontrar o ogro que guarda a gema do olho e destru¡-la. Se vocˆ a usar ser  seu fim! E apenas a espada de cristal pode destruir a gema." IF resp$ = "disco" OR resp$ = "ba£" OR resp$ = "diablo" THEN PRINT "Gnomo: Vocˆ precisa precisa do disco reflexivo para vencer o inimigo final!" IF resp$ = "drows" OR resp$ = "adaga drow" THEN PRINT "Gnomo: Os drows sÆo muito convencidos e nÆo se separam de suas adagas. Eles pagarÆo muito para tˆ-la de volta." IF resp$ = "imp" OR resp$ = "clone" THEN PRINT "Gnomo: Os imps tˆm um plano mal‚fico de clonar vocˆ nÆo deixe eles te atingirem,pois estÆo tentando pegar uma amostra do seu tecido." IF resp$ = "internet" THEN PRINT "Gnomo: Os drows controlam a internet. Eles at‚ mesmo vendem bonecos do Chuthulh£!" IF resp$ = "programador" THEN PRINT "Gnomo: Para chegar ao programador, use a espada de cristal no limite do jogo." IF resp$ = "beholder" THEN PRINT "Gnomo: O poderoso beholder esconde o maior segredo deste jogo. Cuidado, ele ‚ muito forte!" IF resp$ = "devoradores de mentes" THEN PRINT "Gnomo: Cuidado! Eles drenam xp!" IF resp$ = "rastrear" THEN PRINT "Gnomo: Uma habilidade meio in£til nesse jogo." IF resp$ = "levitar" THEN PRINT "Gnomo: Uma magia meio in£til nesse jogo." IF resp$ = "dissipar magia" THEN PRINT "Gnomo: Uma magia quase in£til nesse jogo." END IF IF px = 15 AND py = 17 THEN IF corpo(30) = 1 THEN PRINT "O corpo de um necromante se encontra no chÆo" IF corpo(30) = 0 THEN PRINT "Vocˆ vˆ um homem todo vestido de couro preto e usando um manto negro brilhante.": mon = 30 INPUT "Necromante: Vocˆ nÆo ‚ bem vindo aqui. V  embora. ", resp$ IF INT(RND * 10) = 0 AND mag(13) = 0 THEN INPUT "Necromante: Se eu te ensinar a arte de animar os mortos vocˆ vai embora? ", resp$ IF resp$ = "s" THEN PRINT "Vocˆ come‡a a estudar os rituais de necromancia": SLEEP 1: PRINT "Ap¢s um tempo vocˆ aprende a animar mortos": mag(13) = 1 sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 END IF END IF END IF IF px = 17 AND py = 10 THEN s = 0: d = 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 >= 4 THEN PRINT "Vocˆ decifra uma escritura na parede: --Um imp que tem garras como agulhas, ele planeja algo com o sangue das pessoas. Espero ter chegado a tempo.--" END IF IF px = 17 AND py = 12 THEN IF INT(RND * 20) = 0 THEN corpo(27) = 0 s = 0: d = rea(1) + sta(7): 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 < 4 AND corpo(27) = 0 THEN PRINT "Alguma coisa pequena e alada sai das sombras e vem em sua dire‡Æo.": sta(1) = 0: sta(10) = 0: mon = 27 IF s >= 4 AND corpo(27) = 0 THEN PRINT "Vocˆ percebe um imp se escondendo nas sombras.": mon = 27 IF corpo(27) = 1 THEN PRINT "O corpo de um imp se encontra no chÆo" END IF IF px = 16 AND py = 15 THEN IF sta(25) = 1 THEN PRINT "A porta est  aberta!": movs(16, 15) = 1 IF sta(25) = 0 THEN INPUT "A porta sul est  trancada. Quer tentar abrir? ", 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 >= 5 THEN PRINT "Vocˆ destranca a porta": movs(16, 15) = 1: movn(16, 16) = 1 ELSE PRINT "Vocˆ nÆo consegue abrir a porta" END IF END IF IF px = 16 AND py = 16 THEN s = 0: d = 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 >= 3 THEN PRINT "Vocˆ percebe que este lugar foi preparado para um ritual obscuro" IF s >= 4 THEN PRINT "Um ritual de duplica‡Æo!" IF corpo(28) = 1 THEN PRINT "O corpo de uma c¢pia de vocˆ est  no chÆo" IF sta(25) = 1 THEN PRINT "Alguma coisa se levanta do caixÆo" PRINT "Vocˆ fica sem rea‡Æo ao perceber que ‚ vocˆ mesmo!" sta(1) = 0: sta(10) = 0 IF corpo(28) = 0 THEN mon = 28 INPUT "A porta norte se tranca automaticamente. Quer tentar abrir? ", 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 >= 5 THEN PRINT "Vocˆ destranca a porta": movn(16, 16) = 1 ELSE PRINT "Vocˆ nÆo consegue destrancar ou arrombar a porta" END IF ELSE IF movn(16, 16) = 0 THEN PRINT "A porta norte est  aberta": movn(16, 16) = 1 END IF END IF IF px = 12 AND py = 12 THEN s = 0: d = inte(1) + sta(27): 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 AND porta(10) = 0 THEN PRINT "Vocˆ encontra uma passagem secreta atr s de um arm rio a leste": porta(10) = 1 IF porta(10) = 1 THEN movl(12, 12) = 1 END IF IF px = 11 AND py = 12 THEN IF corpo(26) = 1 THEN PRINT "O corpo de um drow se encontra no chÆo" IF corpo(26) = 0 THEN PRINT "Um elfo de cor negra est  sentado atr s da mesa, olhando para uma caixa luminosaestranha.": mon = 26 INPUT "Drow: Ei! Esta  rea ‚ restrita, o que vocˆ quer aqui? ", resp$ IF resp$ = "boneco" OR resp$ = "boneco do Chuthulh£" OR resp$ = "chuthulh£" THEN PRINT "Drow: Ah! Vocˆ quer um boneco de pel£cia do Chuthulh£, nÆo ‚?  um dos mais vendidos de todos os tempos!" INPUT "Drow: Apenas 50 moedas, vocˆ vai pagar … vista? ", resp$ IF resp$ = "s" AND din >= 50 THEN din = din - 50: PRINT "Drow: Obrigado, aqui est  seu boneco.": equ(62) = 1 ELSE PRINT "Drow: NÆo posso fazer nada por vocˆ sobre isto. Retire-se, por favor." END IF END IF END IF IF px = 13 AND py = 12 THEN s = 0: d = 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 >= 4 AND equ(62) = 0 THEN PRINT "Vocˆ encontra um raro boneco do Chuthulh£": equ(62) = 1 END IF IF px = 9 AND py = 13 THEN s = 0: d = inte(1) + sta(27): 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 AND porta(6) = 0 THEN PRINT "Vocˆ encontra uma passagem secreta na parede oeste": porta(6) = 1 IF porta(6) = 1 THEN movo(9, 13) = 1 END IF IF px = 8 AND py = 13 THEN s = 0: d = inte(1) + sta(27): 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 AND porta(6) = 0 THEN PRINT "Vocˆ encontra uma passagem secreta na parede leste": porta(6) = 1 IF porta(6) = 1 THEN movl(8, 13) = 1 IF porta(7) = 1 THEN movo(8, 13) = 1 IF porta(8) = 1 THEN movs(8, 13) = 1 IF porta(7) = 0 THEN INPUT "A porta oeste est  trancada. Quer tentar abrir? ", 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 a porta": porta(7) = 1 ELSE PRINT "A porta nÆo pode ser aberta" END IF END IF IF porta(8) = 0 THEN INPUT "A porta sul est  trancada. Quer tentar abrir? ", 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 a porta": porta(8) = 1 ELSE PRINT "A porta nÆo pode ser aberta" END IF END IF END IF IF px = 7 AND py = 13 THEN INPUT "Vocˆ vˆ um botÆo na parede. Quer apert -lo? ", resp$ IF resp$ = "s" THEN PRINT "Uma luz muito forte faz aparecer alguma coisa do nada!" sta(1) = 0: sta(10) = 0 m = INT(RND * 15) + 1 IF m = 1 THEN mon = 5 IF m = 2 THEN mon = 8 IF m = 3 THEN mon = 11 IF m = 4 THEN mon = 12 IF m = 5 THEN mon = 13 IF m = 6 THEN mon = 16 IF m = 7 THEN mon = 18 IF m = 8 THEN mon = 19 IF m = 9 THEN mon = 20 IF m = 10 THEN mon = 21 IF m = 11 THEN mon = 22 IF m = 12 THEN mon = 23 IF m = 13 THEN mon = 24 IF m = 14 THEN mon = 26 IF m = 15 THEN mon = 27 END IF END IF IF px = 8 AND py = 14 THEN INPUT "Vocˆ vˆ um botÆo na parede. Quer apert -lo? ", resp$ IF resp$ = "s" THEN 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 >= 5 THEN PRINT "Vocˆ detecta e desarma uma armadilha no botÆo, apertando-o sem despar -la" ELSE PRINT "De repente a sala se enche de g s" sta(21) = 6 END IF IF sta(24) = 0 THEN sta(24) = 1 n = (INT(RND * 20) + 1) * 5 PRINT "Vocˆ encontra um tesouro de"; n; "moedas de ouro!": din = din + n END IF END IF END IF IF px = 9 AND py = 11 THEN IF porta(9) = 0 THEN PRINT "Algo invis¡vel impede a passagem para o sul" s = 0: d = 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 >= 3 AND porta(9) = 0 THEN PRINT "Parece ser uma magia de prote‡Æo" IF porta(9) = 1 THEN movs(9, 11) = 1 END IF IF px = 9 AND py = 12 THEN IF porta(9) = 0 THEN PRINT "Algo invis¡vel impede a passagem para o norte" s = 0: d = 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 >= 3 AND porta(9) = 0 THEN PRINT "Parece ser uma magia de prote‡Æo" IF porta(9) = 1 THEN movn(9, 12) = 1 END IF IF px = 6 AND py = 1 THEN IF sta(29) = 1 THEN PRINT "O corpo do progamador est  no chÆo" IF sta(29) = 0 THEN PRINT "Vocˆ vˆ um cara magrelo, narigudo e cabeludo sentado numa cadeira em frente a uma caixa reluzente" PRINT "Cara: O quˆ? O que vocˆ est  fazendo aqui? Isso nÆo devia estar acontecendo." PRINT "Cara: Era apenas um jogo... O quˆ...?" INPUT "Vocˆ quer matar esse programador incopetente ou nÆo? ", resp$ IF resp$ = "s" THEN PRINT "Vocˆ arranca a cabe‡a do programador.": SLEEP 1 PRINT "O jogo come‡a a se desfazer, como se nunca hovesse existido.": SLEEP 1 PRINT "Enquanto vocˆ volta ao mundo real, percebe que livrou-se de mais um jogo ruim.": SLEEP 1 PRINT "Vocˆ finalmente est  livre, pronto para fazer coisas mais £teis.": SLEEP 1 PRINT "Agora desliga esse computador e vai curtir a vida!": SLEEP 1 xp(1) = xp(1) + 50 sta(29) = 1 INPUT "", press ELSE PRINT "Ele rapidamente fecha o programa, fazendo tudo sumir": SLEEP 1 PRINT "Vocˆ devia ter matado ele, porque ele nÆo salvou o jogo" INPUT "O jogo foi finalizado", press SYSTEM END IF END IF END IF IF px = 17 AND py = 6 THEN IF exa(1) > 0 AND INT(RND * 10) = 0 THEN PRINT "Vocˆ se sente relaxado nesse lugar": exa(1) = exa(1) - 1 IF sta(18) > 0 AND INT(RND * 10) = 0 THEN PRINT "Vocˆ se sente purificado": sta(18) = 0 END IF IF px = 17 AND py = 13 THEN IF INT(RND * 20) = 0 THEN l = INT(RND * 3) + 1 IF l = 1 THEN PRINT "Vocˆ cai em outro lugar completamente diferente": px = 19 IF l = 2 THEN PRINT "Vocˆ cai em outro lugar completamente diferente": py = 18 IF l = 3 THEN PRINT "Vocˆ cai em outro lugar completamente diferente": px = 12: py = 15 PRINT "A queda causa 1 ponto de dano" fer(1) = fer(1) + 1 END IF END IF IF px = 6 AND py = 7 AND INT(RND * 10) = 0 THEN PRINT "Um zumbi est  aqui": mon = 16 IF hab(8) > 0 THEN INPUT "Quer usar o poder da f‚ para afugent -lo? ", resp$ s = 0: d = hab(8): 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 resp$ = "s" THEN sta(1) = 0: sta(10) = 0 IF s < 4 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. Nada acontece" IF s >= 4 THEN PRINT "Vocˆ ergue seu s¡mbolo sagrado e faz uma reza. O zumbi ‚ destru¡do. (xp +2)": mon = 0: xp(1) = xp(1) + 2: GOTO saida2 END IF END IF END IF saida2: END SUB SUB Grimorio CHAIN "C:\Blarg!\Diacho\Grimorio.bas" END SUB SUB Habili CHAIN "C:\Blarg!\Diacho\Habili.bas" END SUB SUB Invent CHAIN "C:\Blarg!\Diacho\Invent.bas" END SUB SUB Morte INPUT "Vocˆ morreu!", press sta(1) = 0: sta(2) = 0: sta(3) = 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: sta(26) = 0 exa(1) = 0: fer(1) = 0 px = 3: py = 4 xp(1) = xp(1) \ 2: IF xp(1) < 0 THEN xp(1) = 0 din = din \ 2: IF din < 0 THEN din = 0 END SUB SUB Salas repete: IF fer(1) >= vit(1) THEN Morte: GOTO sair RANDOMIZE TIMER Errante CLS LINE (0, 0)-(640, 480), 1, BF LINE (10, 10)-(630, 470), 6, B Chao IF movn(px, py) = 1 THEN ELSE LINE (270, 20)-(375, 25), 7, BF IF movs(px, py) = 1 THEN ELSE LINE (270, 120)-(375, 125), 7, BF IF movl(px, py) = 1 THEN ELSE LINE (370, 20)-(375, 125), 7, BF IF movo(px, py) = 1 THEN ELSE LINE (270, 20)-(275, 125), 7, BF Desenhos LOCATE 10, 1: COLOR 15 PRINT sala$(px, py) PRINT "Sa¡das: "; IF movn(px, py) = 1 THEN PRINT "Norte(n) "; IF movs(px, py) = 1 THEN PRINT "Sul(s) "; IF movl(px, py) = 1 THEN PRINT "Leste(l) "; IF movo(px, py) = 1 THEN PRINT "Oeste(o) "; IF px = 10 AND py = 3 AND portx > 0 THEN PRINT "Entrar no portal(e)"; : DRAW "bm350,70 c9 r8 f4 d20 g4 l8 h4 u20 e4 bf5 p9,9" IF px = 12 AND py = 3 THEN PRINT "Subir(su)"; IF px = 12 AND py = 4 THEN PRINT "Descer(d)"; IF px = 17 AND py = 4 THEN PRINT "Subir(su)"; IF px = 18 AND py = 4 THEN PRINT "Descer(d)"; IF px = 8 AND py = 5 THEN PRINT "Descer pelo buraco(d)"; IF px = 8 AND py = 6 THEN PRINT "Escalar o buraco(e)"; IF px = 6 AND py = 2 THEN IF porta(3) = 2 THEN movn(6, 2) = 1 IF px = 9 AND py = 8 THEN IF porta(11) = 1 THEN movn(9, 8) = 1 PRINT "": PRINT "" IF var(4) = 1 THEN PRINT "Um cidadÆo aleat¢rio est  te seguindo." fala = INT(RND * 40) + 1 IF fala = 1 THEN PRINT "CidadÆo: Vocˆ ‚ do tipo caladÆo assim mesmo?" IF fala = 2 THEN PRINT "CidadÆo: Eu adoro ser escoltado!" IF fala = 3 THEN PRINT "CidadÆo: Ser  que vai chover?" IF fala = 4 THEN PRINT "CidadÆo: Eh... Ser  que pod¡amos fazer uma pausa pro xixi?" IF fala = 5 THEN PRINT "CidadÆo: Vocˆ me lembra um parente que eu tenho." IF fala = 6 THEN PRINT "CidadÆo: T  afim de conversar um pouco?" IF fala = 7 THEN PRINT "CidadÆo: Est  dif¡cil encontrar boas escoltas hoje em dia." IF fala = 8 THEN PRINT "CidadÆo: Vocˆ sabe fazer magia?" IF fala = 9 AND px < 10 THEN PRINT "CidadÆo: Acho que vocˆ pegou o caminho errado." IF fala = 10 AND py < 13 THEN PRINT "CidadÆo: A gente j  t  chegando?" PRINT "" END IF IF sta(13) > 0 THEN PRINT "Um elemental est  te seguindo" IF sta(15) > 0 THEN : IF var(21) > 1 THEN PRINT var(21); " esqueletos estÆo te seguindo" ELSE PRINT "Um esqueleto est  te seguindo" IF INT(RND * 10) < var(21) THEN aces = INT(RND * 10) IF aces = 1 THEN PRINT "Vocˆ vˆ um esqueleto co‡ar a bunda" IF aces = 2 THEN PRINT "Um esqueleto trope‡ou e perdeu a perna, mas j  foi busc -la" IF aces = 3 THEN PRINT "Um esqueleto est  fazendo malabarismo com as costelas" IF aces = 4 THEN PRINT "Um esqueleto solta uma risada psic¢tica enquanto mata um mosquito" IF aces = 5 THEN PRINT "Esqueleto: MORRAM, MOSQUITOS IMBECIS!!!!!!!!!!!!" IF aces = 6 THEN PRINT "Esqueleto: Podemos matar agora?" IF aces = 7 THEN PRINT "Esqueleto: Espere por mim mestre!!!! (recolhendo a pr¢pria cabe‡a)" IF aces = 8 AND var(21) > 0 THEN PRINT "Esqueleto: NàS SOMOS A HORDA DO INFERNO!!!! HAHAHAHAHA" IF aces = 9 AND var(21) > 0 THEN PRINT "Um esqueleto usa a cabe‡a do outro de bola" IF aces = 10 AND var(21) > 0 THEN PRINT "Um esqueleto usa sua perna de porrete e acerta o outro" END IF IF exa(1) > 0 AND (INT(RND * 6) + 1) = 1 THEN exa(1) = exa(1) - 1 IF sta(2) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(2) = sta(2) - 1 IF sta(3) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(3) = sta(3) - 1 IF sta(4) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(4) = sta(4) - 1 IF sta(5) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(5) = sta(5) - 1 IF sta(6) > 0 THEN sta(6) = sta(6) - 1: IF fer(1) > 0 THEN fer(1) = fer(1) - 1 IF sta(21) > 0 THEN sta(21) = sta(21) - 1: IF INT(RND * 12) + 1 >= vig(1) + sta(5) THEN fer(1) = fer(1) + 1 IF sta(8) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(8) = sta(8) - 1 IF sta(9) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(9) = sta(9) - 1 IF sta(10) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(10) = sta(10) - 1 IF sta(11) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(11) = sta(11) - 1 IF sta(14) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(14) = sta(14) - 1 IF sta(16) > 0 AND (INT(RND * 6) + 1) = 1 THEN sta(16) = sta(16) - 1 IF sta(26) > 0 THEN sta(4) = 2: sta(5) = 2: sta(11) = 2: IF INT(RND * 6) = 0 THEN sta(26) = sta(26) - 1: IF sta(26) = 0 THEN sta(4) = 0: sta(5) = 0 AND sta(11) = 0 IF sta(28) > 0 AND (INT(RND * 8) + 1) = 1 THEN : IF fer(1) > 0 THEN fer(1) = fer(1) - 1: PRINT "Vocˆ sente seu corpo se regenerar" IF sta(1) > 0 THEN PRINT "Vocˆ est  se movendo furtivamente" IF sta(2) > 0 THEN PRINT "Uma aura de prote‡Æo o cerca" IF sta(3) > 0 THEN PRINT "Seu poder m gico est  sendo amplificado" IF sta(4) > 0 THEN PRINT "Vocˆ se sente mais forte" IF sta(5) > 0 THEN PRINT "Vocˆ se sente mais vigoroso" IF sta(6) > 0 THEN PRINT "Vocˆ sente suas feridas se fechando" IF sta(8) > 0 THEN PRINT "Vocˆ sente uma armadura m gica ao seu redor" IF sta(9) > 0 THEN PRINT "Uma imagem de vocˆ mesmo est  ao seu lado" IF sta(10) > 0 THEN PRINT "Vocˆ est  invis¡vel" IF sta(11) > 0 THEN PRINT "Vocˆ se sente mais  gil" IF sta(14) > 0 THEN PRINT "Vocˆ sente uma for‡a divina guiando suas mÆos" IF sta(16) > 0 THEN PRINT "Vocˆ exala uma aura de terror em seus inimigos" IF sta(18) > 0 THEN PRINT "Vocˆ se sente azarado de alguma forma" IF sta(21) > 0 THEN PRINT "Vocˆ nÆo se sente bem" IF sta(26) > 0 THEN PRINT "Vocˆ est  na forma de um grande lobo b¡pede" mon = 0 Eventos IF sta(1) > 0 AND mon > 0 THEN sta(1) = sta(1) - 1: GOTO paz IF mon = 10 OR mon = 25 OR mon = 26 OR mon = 30 THEN GOTO paz IF mon = 15 AND var(13) = 0 THEN GOTO paz IF sta(10) > 0 THEN GOTO paz IF mon > 0 THEN Combate paz: PRINT ""; "" PRINT "Vit:"; vit(1) - fer(1); "/"; vit(1); " Mana:"; mana(1) - exa(1); "/"; mana(1) PRINT "Sair(sa), Status(st), Invent¢rio(i), Grim¢rio(g), Habilidades(h), Descansar(de)" INPUT "A‡Æo: ", Acao$ SELECT CASE Acao$ CASE "sa" save$ = "C:\Blarg!\Diacho\Saves\" + senha$ + ".SAV" OPEN save$ FOR OUTPUT AS #1 WRITE #1, nome$(1), raca$(1), classe$(1) x = 0: DO: x = x + 1: WRITE #1, equ(x): LOOP UNTIL x = 80 x = 0: DO: x = x + 1: WRITE #1, equip(x): LOOP UNTIL x = 7 x = 0: DO: x = x + 1: WRITE #1, corpo(x), porta(x), var(x), sta(x), mag(x), hab(x): LOOP UNTIL x = 40 WRITE #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) WRITE #1, px, py, portx, porty, din, senha$ CLOSE #1 SYSTEM CASE "st" Status CASE "i" Invent CASE "g" Grimorio CASE "h" Habili CASE "de" Descanso CASE "n" IF px = 18 AND py = 4 THEN px = 18: py = 2: GOTO sair IF px = 18 AND py = 6 THEN px = 18: py = 4: GOTO sair IF px = 2 AND py = 2 THEN px = 8: py = 4: GOTO sair IF movn(px, py) = 1 THEN py = py - 1 ELSE INPUT "Movimento imposs¡vel", press CASE "s" IF px = 18 AND py = 2 THEN px = 18: py = 4: GOTO sair IF px = 18 AND py = 4 THEN px = 18: py = 6: GOTO sair IF px = 8 AND py = 4 THEN px = 2: py = 2: GOTO sair IF movs(px, py) = 1 THEN py = py + 1 ELSE INPUT "Movimento imposs¡vel", press CASE "l" IF px = 16 AND py = 4 THEN px = 18: py = 4: GOTO sair IF px = 18 AND py = 4 THEN px = 20: py = 4: GOTO sair IF movl(px, py) = 1 THEN px = px + 1 ELSE INPUT "Movimento imposs¡vel", press CASE "o" IF px = 20 AND py = 4 THEN px = 18: py = 4: GOTO sair IF px = 18 AND py = 4 THEN px = 16: py = 4: GOTO sair IF movo(px, py) = 1 THEN px = px - 1 ELSE INPUT "Movimento imposs¡vel", press CASE "e" IF px = 10 AND py = 3 THEN px = portx: py = porty: portx = 0: GOTO sair IF px = 8 AND py = 6 THEN s = 0: d = hab(2) + agi(1) + sta(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 IF s >= 4 THEN INPUT "Vocˆ escala o buraco.", press: px = 8: py = 5: GOTO sair ELSE 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 "Vocˆ caiu e levou "; dan; " de dano": INPUT "", press fer(1) = fer(1) + dan END IF END IF CASE "d" IF px = 18 AND py = 4 THEN px = 17: py = 4: GOTO sair IF px = 12 AND py = 4 THEN px = 12: py = 3: GOTO sair IF px = 8 AND py = 5 THEN s = 0: d = hab(2) + agi(1) + sta(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 IF s >= 4 THEN INPUT "Vocˆ desce pelo buraco.", press ELSE 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 "Vocˆ caiu e levou "; dan; " de dano": px = 8: py = 6 fer(1) = fer(1) + dan px = 8: py = 6 END IF END IF CASE "su" IF px = 17 AND py = 4 THEN px = 18: py = 4 IF px = 12 AND py = 3 THEN px = 12: py = 4 END SELECT sair: IF py = 0 THEN py = 20 IF py = 21 THEN py = 1 IF px = 0 THEN px = 20 IF px = 21 THEN px = 1 rea(1) = ((agi(1) + sta(11)) + inte(1)) \ 2 dano(1) = forc(1) + sta(4) - 3 IF equip(7) = 31 THEN sta(7) = 1 GOTO repete END SUB SUB Status CLS LINE (0, 0)-(640, 480), 8, BF LINE (10, 10)-(630, 470), 1, B PRINT "" PRINT nome$(1); " "; classe$(1); " "; raca$(1); " Vit:"; vit(1) - fer(1); "/"; vit(1); " Mana:"; mana(1) - exa(1); "/"; mana(1); " exp:"; xp(1) PRINT "For:"; forc(1) + sta(4); " Vig:"; vig(1) + sta(5); " Agi:"; agi(1) + sta(11); " Int:"; inte(1); " Per:"; per(1); " Car:"; car(1); " Rea:"; rea(1) + sta(7) PRINT "Moedas de ouro:"; din PRINT "" IF sta(1) > 0 THEN PRINT "Vocˆ est  se movendo furtivamente" IF sta(2) > 0 THEN PRINT "Uma aura de prote‡Æo o cerca" IF sta(3) > 0 THEN PRINT "Seu poder m gico est  sendo amplificado" IF sta(4) > 0 THEN PRINT "Vocˆ se sente mais forte" IF sta(5) > 0 THEN PRINT "Vocˆ se sente mais vigoroso" IF sta(6) > 0 THEN PRINT "Vocˆ sente suas feridas se fechando" IF sta(7) > 0 THEN PRINT "Sua rea‡Æo est  sendo amplificada" IF sta(8) > 0 THEN PRINT "Vocˆ sente uma armadura m gica ao seu redor" IF sta(9) > 0 THEN PRINT "Uma imagem de vocˆ mesmo est  ao seu lado" IF sta(10) > 0 THEN PRINT "Vocˆ est  invis¡vel" IF sta(11) > 0 THEN PRINT "Vocˆ se sente mais  gil" IF sta(12) = 2 THEN PRINT "Seu rosto carrega marcas antigas e sagradas feitas por uma canetinha permanente" IF sta(14) > 0 THEN PRINT "Vocˆ sente uma for‡a divina guiando suas mÆos" IF sta(16) > 0 THEN PRINT "Vocˆ exala uma aura de terror em seus inimigos" IF sta(18) > 0 THEN PRINT "Vocˆ se sente azarado de alguma forma" IF sta(21) > 0 THEN PRINT "Vocˆ nÆo se sente bem" IF var(5) > 0 THEN PRINT "Vocˆ est  usando orelhas falsas de elfo" IF var(6) > 0 THEN PRINT "Vocˆ est  com os cabelos na altura dos joelhos" IF sta(13) > 0 THEN PRINT "Um elemental est  sob o seu comando" IF sta(15) > 0 THEN : IF var(21) > 1 THEN PRINT var(21); " esqueletos estÆo sob o seu comando" ELSE PRINT "Um esqueleto est  sob o seu comando" IF sta(26) > 0 THEN PRINT "Vocˆ est  na forma de um grande lobo b¡pede" PRINT "" IF equ(1) > 0 AND equip(1) = 1 THEN PRINT "Equipado: Adaga ("; equ(1); ")" IF equ(2) > 0 AND equip(1) = 2 THEN PRINT "Equipado: Espada ("; equ(2); ")" IF equ(3) > 0 AND equip(1) = 3 THEN PRINT "Equipado: Machado ("; equ(3); ")" IF equ(4) > 0 AND equip(1) = 4 THEN PRINT "Equipado: Lan‡a ("; equ(4); ")" IF equ(5) > 0 AND equip(1) = 5 THEN PRINT "Equipado: Arco ("; equ(5); ")" IF equ(6) > 0 AND equip(1) = 6 THEN PRINT "Equipado: Funda ("; equ(6); ")" IF equ(13) > 0 AND equip(1) = 13 THEN PRINT "Equipado: Ma‡a ("; equ(13); ")" IF equ(14) > 0 AND equip(1) = 14 THEN PRINT "Equipado: Martelo ("; equ(14); ")" IF equ(15) > 0 AND equip(1) = 15 THEN PRINT "Equipado: Montante ("; equ(15); ")" IF equ(16) > 0 AND equip(1) = 16 THEN PRINT "Equipado: Alabarda ("; equ(16); ")" IF equ(17) > 0 AND equip(1) = 17 THEN PRINT "Equipado: Arco composto ("; equ(17); ")" IF equ(18) > 0 AND equip(2) = 18 THEN PRINT "Equipado: Cajado ("; equ(18); ")" IF equ(19) > 0 AND equip(1) = 19 THEN PRINT "Equipado: Foice ("; equ(19); ")" IF equ(20) > 0 AND equip(1) = 20 THEN PRINT "Equipado: Espada curta ("; equ(20); ")" IF equ(7) > 0 AND equip(3) = 7 THEN PRINT "Equipado: Corselete ("; equ(7); ")" IF equ(8) > 0 AND equip(3) = 8 THEN PRINT "Equipado: Cota de malha ("; equ(8); ")" IF equ(9) > 0 AND equip(3) = 9 THEN PRINT "Equipado: Cota de talas ("; equ(9); ")" IF equ(10) > 0 AND equip(3) = 10 THEN PRINT "Equipado: Armadura completa ("; equ(10); ")" IF equ(11) > 0 AND equip(2) = 11 THEN PRINT "Equipado: Escudo ("; equ(11); ")" IF equ(12) > 0 AND equip(2) = 12 THEN PRINT "Equipado: Escudo grande ("; equ(12); ")" IF equ(22) > 0 AND equip(4) = 22 OR equip(5) = 22 THEN PRINT "Equipado: Anel de rubi ("; equ(22); ")" IF equ(23) > 0 AND equip(4) = 23 OR equip(5) = 23 THEN PRINT "Equipado: Anel de ametista ("; equ(23); ")" IF equ(42) > 0 AND equip(4) = 42 OR equip(5) = 42 THEN PRINT "Equipado: Anel azul ("; equ(42); ")" IF equ(24) > 0 AND equip(6) = 24 THEN PRINT "Equipado: Amuleto da estrela ("; equ(24); ")" IF equ(25) > 0 AND equip(6) = 25 THEN PRINT "Equipado: Amuleto da lua ("; equ(25); ")" IF equ(26) > 0 AND equip(1) = 26 OR equip(2) = 26 THEN PRINT "Equipado: Cajado de pedra ("; equ(26); ")" IF equ(27) > 0 AND equip(1) = 27 OR equip(2) = 27 THEN PRINT "Equipado: Cajado de madeira ("; equ(27); ")" IF equ(33) > 0 AND equip(1) = 33 OR equip(2) = 33 THEN PRINT "Equipado: Cajado do jester ("; equ(33); ")" IF equ(38) > 0 AND equip(1) = 38 OR equip(2) = 38 THEN PRINT "Equipado: Cajado de raios ("; equ(38); ")" IF equ(39) > 0 AND equip(1) = 39 OR equip(2) = 39 THEN PRINT "Equipado: Cajado de bola de fogo ("; equ(39); ")" IF equ(40) > 0 AND equip(1) = 40 OR equip(2) = 40 THEN PRINT "Equipado: Cajado de cone de gelo ("; equ(40); ")" IF equ(43) > 0 AND equip(1) = 43 OR equip(2) = 43 THEN PRINT "Equipado: Cajado recarreg vel do jester ("; equ(43); ")" IF equ(58) > 0 AND equip(1) = 58 THEN PRINT "Equipado: Adaga drow ("; equ(58); ")" IF equ(59) > 0 AND equip(1) = 59 THEN PRINT "Equipado: Espada de cristal ("; equ(59); ")" IF equ(60) > 0 AND equip(3) = 60 THEN PRINT "Equipado: Cota de malha ‚lfica ("; equ(60); ")" IF equ(64) > 0 AND equip(4) = 64 OR equip(5) = 64 THEN PRINT "Equipado: Anel de regenera‡Æo ("; equ(64); ")" IF equ(65) > 0 AND equip(4) = 65 OR equip(5) = 65 THEN PRINT "Equipado: Anel de paraliza‡Æo ("; equ(65); ")" IF equ(70) > 0 AND equip(1) = 70 OR equip(2) = 70 THEN PRINT "Equipado: Cajado de invoca‡Æo ("; equ(70); ")" IF equ(31) > 0 AND equip(7) = 31 THEN PRINT "Equipado: Manto negro ("; equ(31); ")" IF equ(71) > 0 AND equip(7) = 71 THEN PRINT "Equipado: Manto de invisibilidade ("; equ(71); ")" IF equ(72) > 0 AND equip(7) = 72 THEN PRINT "Equipado: Manto de teleporte ("; equ(72); ")" IF equ(73) > 0 AND equip(6) = 73 THEN PRINT "Equipado: Amuleto do terror ("; equ(73); ")" IF equ(74) > 0 AND equip(6) = 74 THEN PRINT "Equipado: Amuleto da ilusÆo ("; equ(74); ")" INPUT "", press END SUB