okay
wilderness: 'ok so heres the field
DIM wild$(15)
wild$(1) = "|---------------*---------------|"
wild$(2) = "|......T...T.......TT......T....|"
wild$(3) = "|...T......T......T............T|"
wild$(4) = "|....T..........T....T.......T..|"
wild$(5) = "|T......T.....TT.......T........|"
wild$(6) = "|...............................|"
wild$(7) = "|...T.............TT............|"
wild$( = "|...............................|"
wild$(9) = "|..T........T..T.......T....T...|"
wild$(10) = "|.....T..........T.......T......|"
wild$(11) = "|...............................|"
wild$(12) = "|....TT.....T............T......|"
wild$(13) = "|...............................|"
wild$(14) = "|...T.............T....T......T.|"
wild$(15) = "|-------------------------------|"
row = 14 'this tells qhere the player is going to be when the game starts
column = 3 'same thing
LOCATE 17, 1 'this says that ur in the forest and that there are monsters
PRINT "EST?S NA FLORESTA." 'same
PRINT "OS MONSTROS VIVEM AQUI." 'same
PRINT "PODES TER DE ENFRENTAR ALGUNS..." 'same
DO 'starts the loop
CLS
LOCATE 1, 1
FOR count = 1 TO 15 'prints the map
PRINT wild$(count)
NEXT count
LOCATE row, column
PRINT CHR$(1) 'prints the player
oldRow = row
oldColumn = column
IF INT(RND * 10) = 9 THEN GOTO begin 'this makes monster appear randomly
DO
keyed$ = INKEY$
LOOP UNTIL keyed$ <> ""
SELECT CASE keyed$ 'makes the player move up, down, left, right
CASE IS = "w"
row = row - 1
CASE IS = "s"
row = row + 1
CASE IS = "a"
column = column - 1
CASE IS = "d"
column = column + 1
END SELECT
SELECT CASE MID$(wild$(row), column, 1)
CASE IS = "T"
row = oldRow
column = oldColumn
CASE IS = "-"
row = oldRow
column = oldColumn
CASE IS = "|"
row = oldRow
column = oldColumn
CASE IS = "*" 'ends the game
PRINT "CHEGASTE AO DESTINO!"
PRINT "JOGO FEITO POR JO?O PIRES"
END
END SELECT
LOOP UNTIL keyed$ = "q"
begin: 'the fight menu
playehealth = 10
monsterhealth = 10
COLOR 4
PRINT "UM MONSTRO ATACOU-TE!"
COLOR 1
PRINT "(L)UTA, OU (F)OGE?"
DO
k$ = INKEY$
IF k$ = "f" OR k$ = "F" THEN GOTO wilderness 'if the player wants to run away from the fight
IF k$ = "l" OR k$ = "L" THEN GOTO fight 'if the player wants to fight
LOOP
fight: 'the fight
DO
COLOR 15
PRINT "O JOGADOR ATACA!" 'the player attacks
playerattack = INT(RND * 10)
IF playerattack >= 3 THEN
PRINT "O MONSTRO FOI ATINGIDO!" 'the monster was attacked
monsterhealth = monsterhealth - 1
END IF
IF playerattack <3>= 3 THEN
PRINT "O JOGADOR FOI ATINGIDO!" 'the player was attacked
playerhealth = playerhealth - 1
END IF
IF monsterattack < 3 THEN PRINT "O MONSTRO FALHA O ATAQUE!" 'the monster misses the attack
DO
k$ = INKEY$
LOOP UNTIL k$ <> ""
CLS
PRINT "JOGADOR: "; playerhealth
PRINT "MONSTRO: "; monsterhealth
IF monsterhealth = 0 THEN PRINT "JOGADOR GANHA O COMBATE!": 'the player wins the fight and it goes back to the forest
GOTO wilderness
IF playerhealth = 0 THEN PRINT "JOGADOR PERDE O COMBATE!": END 'the player loses the fight and the game ends
LOOP
so here it is
the full code and with all the 'xxxxxxxxxxxxxxxxxx things
........
'T......\
.I.......)
.I....../
.I
,I