Hi guys,
Im trying this interpreter and everything is working fine but the games are not showing the items, it only says “visible items.”
trs-80.com/wordpress/emulation-scott-adams/
Goes to Qbasic Interpreter
Anyone has a clue what goes wrong?. Im using windows and QB64 for compile the basic code.
Anyone knows the creator Chad Elliot?
The code about this is:
[code]
’ -------------------------------
’ °±² ROOM DRAWING SUBROUTINE ²±°
’ -------------------------------
DRAWROOM:
IF BITFLAGS(15) = 0 OR ITEMLOCATIONS(9) = CURRENTROOM OR ITEMLOCATIONS(9) = -1 THEN
DWALK = 0
END IF
VIEW PRINT 1 TO 13
IF BITFLAGS(15) = 0 THEN COLOR FCTOP, BCTOP
IF BITFLAGS(15) = 1 AND ITEMLOCATIONS(9) <> CURRENTROOM AND ITEMLOCATIONS(9) <> -1 THEN COLOR 15, 1
IF BITFLAGS(15) = 1 AND ITEMLOCATIONS(9) = CURRENTROOM OR BITFLAGS(15) = 1 AND ITEMLOCATIONS(9) = -1 THEN COLOR 15, 6
FOR X = 0 TO 10
PRINT " "
NEXT X
LOCATE 1
IF BITFLAGS(15) = 0 OR ITEMLOCATIONS(9) = CURRENTROOM OR ITEMLOCATIONS(9) = -1 THEN
TEMP$ = UCASE$(MID$(DESCRIPTION$(CURRENTROOM), 1, 1))
IF TEMP$ <> “*” THEN
PRINT "I’m in a ";
PRINT DESCRIPTION$(CURRENTROOM)
ELSE PRINT MID$(DESCRIPTION$(CURRENTROOM), 2, LEN(DESCRIPTION$(CURRENTROOM)) - 1)
END IF
ELSE PRINT “It’s too dark to see.”
END IF
PRINT
PRINT "OBVIOUS EXITS: ";
IF BITFLAGS(15) = 0 OR ITEMLOCATIONS(9) = CURRENTROOM OR ITEMLOCATIONS(9) = -1 THEN
IF MAP(CURRENTROOM, 0) <> 0 THEN PRINT "NORTH ";
IF MAP(CURRENTROOM, 1) <> 0 THEN PRINT "SOUTH ";
IF MAP(CURRENTROOM, 2) <> 0 THEN PRINT "EAST ";
IF MAP(CURRENTROOM, 3) <> 0 THEN PRINT "WEST ";
IF MAP(CURRENTROOM, 4) <> 0 THEN PRINT "UP ";
IF MAP(CURRENTROOM, 5) <> 0 THEN PRINT “DOWN”;
END IF
PRINT
PRINT
PRINT "VISIBLE ITEMS: ";
IF BITFLAGS(15) = 0 OR ITEMLOCATIONS(9) = CURRENTROOM OR ITEMLOCATIONS(9) = -1 THEN
FOR X = 0 TO NUMBEROFWORDS
IF ITEMLOCATIONS(X) = CURRENTROOM THEN
TEMP$ = ITEM$(X) + " - "
IF POS(0) + LEN(TEMP$) > 80 THEN PRINT
PRINT TEMP$;
END IF
NEXT X
IF CSRLIN > 0 AND POS(0) - 2 > 0 THEN
LOCATE CSRLIN, POS(0) - 2
PRINT “.”
END IF
END IF
LOCATE 10
PRINT “<------------------------------------------------------------------------------>”;
VIEW PRINT 11 TO 25
COLOR FCBOT, BCBOT
LOCATE 25
PRINT " "
RETURN[/code]