Code: Select all
RANDOMIZE TIMER / 3
arearetrival:
monum = INT((3 - 1 + 1) * RND + 1)
SELECT CASE area
CASE 0
GOTO runerror
CASE 1
IF monum = 1 THEN monfilename$ = "areaone1.mon"
IF monum = 2 THEN monfilename$ = "areaone2.mon"
IF monum = 3 THEN monfilename$ = "areaone3.mon"
GOTO loadmonfile
CASE 2
IF monum = 1 THEN monfilename$ = "areatwo1.mon"
IF monum = 2 THEN monfilename$ = "areatwo2.mon"
IF monum = 3 THEN monfilename$ = "areatwo3.mon"
GOTO loadmonfile
CASE 3
IF monum = 1 THEN monfilename$ = "areathr1.mon"
IF monum = 2 THEN monfilename$ = "areathr2.mon"
IF monum = 3 THEN monfilename$ = "areathr3.mon"
GOTO loadmonfile
CASE 4
IF monum = 1 THEN monfilename$ = "areafor1.mon"
IF monum = 2 THEN monfilename$ = "areafor2.mon"
IF monum = 3 THEN monfilename$ = "areafor3.mon"
GOTO loadmonfile
CASE 5
IF monum = 1 THEN monfilename$ = "areafiv1.mon"
IF monum = 2 THEN monfilename$ = "areafiv2.mon"
IF monum = 3 THEN monfilename$ = "areafiv3.mon"
GOTO loadmonfile
CASE 6
IF monum = 1 THEN monfilename$ = "areasix1.mon"
IF monum = 2 THEN monfilename$ = "areasix2.mon"
IF monum = 3 THEN monfilename$ = "areasix3.mon"
GOTO loadmonfile
CASE 7
IF monum = 1 THEN monfilename$ = "areasev1.mon"
IF monum = 2 THEN monfilename$ = "areasev2.mon"
IF monum = 3 THEN monfilename$ = "areasev3.mon"
GOTO loadmonfile
CASE 8
IF monum = 1 THEN monfilename$ = "areaeig1.mon"
IF monum = 2 THEN monfilename$ = "areaeig2.mon"
IF monum = 3 THEN monfilename$ = "areaeig3.mon"
GOTO loadmonfile
CASE 9
IF monum = 1 THEN monfilename$ = "areanin1.mon"
IF monum = 2 THEN monfilename$ = "areanin2.mon"
IF monum = 3 THEN monfilename$ = "areanin3.mon"
GOTO loadmonfile
CASE 10
IF monum = 1 THEN monfilename$ = "areaten1.mon"
IF monum = 2 THEN monfilename$ = "areaten2.mon"
IF monum = 3 THEN monfilename$ = "areaten3.mon"
GOTO loadmonfile
CASE 11
IF monum = 1 THEN monfilename$ = "areaele1.mon"
IF monum = 2 THEN monfilename$ = "areaele2.mon"
IF monum = 3 THEN monfilename$ = "areaele3.mon"
GOTO loadmonfile
CASE 12
IF monum = 1 THEN monfilename$ = "areatwe1.mon"
IF monum = 2 THEN monfilename$ = "areatwe2.mon"
IF monum = 3 THEN monfilename$ = "areatwe3.mon"
GOTO loadmonfile
END SELECT
runerror:
PRINT "No area code was found"
loadmonfile:
PRINT monfilename$
' OPEN monfilename$ FOR INPUT AS #1
' get #1,monhp,monmp,monmag,monstr,mondef,monacl,monmcl,monpic
' close #1
Code: Select all
Unkown error
you didn't save file as .bas (i did)
some library/include header is not linked
On Line: