DECLARE SUB movearound (x!, y!)
DECLARE SUB prep (character$, weapon$)
DECLARE SUB tale (story$)
DECLARE SUB variables (x!, y!, z!, monster1$, monster2$, monster3$)
DECLARE SUB battle (x!, y!, character$, weapon$, monster1$, monster2$, monster3$)
CLS
SCREEN 12
CALL variables(x, y, z, monster1$, monster2$, monster3$)
RANDOMIZE TIMER
CALL tale(story$)
CALL prep(character$, weapon$)
DO
DO
COLOR 15
CALL movearound(x, y)
SLEEP 1
LOOP UNTIL x = z OR y = z
CLS
CALL battle(x, y, character$, weapon$, monster1$, monster2$, monster3$)
LOOP

SUB battle (x, y, character$, weapon$, monster1$, monster2$, monster3$)
chrhealth = 150
monster1h = 80
monster2h = 150
monster3h = 100
RANDOMIZE TIMER
chrdmg = INT(RND * 10) + 1
m1dmg = INT(RND * 8) + 1
m2dmg = INT(RND * 20) + 1
m3dmg = INT(RND * 10) + 1

a = INT(RND * 3) + 1

IF a = 1 THEN
LET monster$ = monster1$
mhealth = monster1h
mdmg = m1dmg
PRINT ; character$; " is being attacked by "; monster$; "."
SLEEP 1
PRINT "Attack with "; weapon$
SLEEP 1
END IF

IF a = 2 THEN
mhealth = monster2h
LET monster$ = monster2$
mdmg = m2dmg
PRINT ; character$; " is being attacked by "; monster$; "."
SLEEP 1
PRINT "Attack with "; weapon$
SLEEP 1
END IF

IF a = 3 THEN
mhealth = monster3h
mdmg = m3dmg
LET monster$ = monster3$
PRINT ; character$; " is being attacked by "; monster$; "."
SLEEP 1
PRINT "Attack with "; weapon$
SLEEP 1
END IF

PRINT , , character$; " | "; monster$
PRINT "-----------------------------------------------------------------------"
SLEEP 1
DO
PRINT , , chrhealth; "|"; mhealth
chrhealth = chrhealth - mdmg
mhealth = mhealth - chrdmg
SLEEP 1
RANDOMIZE TIMER
chrdmg = INT(RND * 10) + 1
m1dmg = INT(RND * 8) + 1
m2dmg = INT(RND * 30) + 1
m3dmg = INT(RND * 10) + 1

LOOP UNTIL mhealth <= 0 OR chrhealth <= 0

IF mhealth <= 0 THEN

DO UNTIL x = 3000
COLOR 5
PRINT " You won";
x = x + 1
LOOP

ELSEIF chrhealth <= 0 THEN
CLS
PRINT "you lost"
SLEEP 3
END IF
END SUB

SUB movearound (x, y)
CLS
CIRCLE (y, x), 10

press$ = INKEY$
IF press$ = CHR$(97) THEN
LET y = y - 1

ELSEIF press$ = CHR$(119) THEN
LET x = x - 1

ELSEIF press$ = CHR$(100) THEN
LET y = y + 1

ELSEIF press$ = CHR$(115) THEN
LET x = x + 1
END IF

IF x > 800 THEN LET x = 0
IF y > 300 THEN LET y = 0
IF x < 0 THEN LET x = 800
IF y < 0 THEN LET y = 300
END SUB

SUB prep (character$, weapon$)
CLS
INPUT "Enter the name of your character ", character$
PRINT
INPUT "Enter name of weapon ", weapon$


END SUB

SUB tale (story$)

PRINT "Welcome to..."
SLEEP 1
PRINT "The end of your popularity"
SLEEP 1
PRINT "You are about enter the addictive text based world of Romula"
PRINT
SLEEP 1
PRINT "In this game you will travel through Romula and using a custom character"
PRINT "and weapon you will battle foes and win the game and never losing your virginity"
PRINT
PRINT "Heads up, geeks and nerds only"
SLEEP 3


END SUB

SUB variables (x, y, z, monster1$, monster2$, monster3$)
x = 0
y = 0
z = INT(RND * 80) + 1
monster1$ = "Ugly Troll"
monster2$ = "a woman scorned"
monster3$ = "Giant Ravenous Raven"

END SUB