Jump to content
Frozone212

WIP: Ghostbusters

Recommended Posts


100 FOR ROW=1 TO 39:FOR COL=1 TO 3:NEXT ROW:NEXT COL
110 PRINT "GHOSTBUSTERS:THE TEXT ADVENTURE FOR THE TI994A"
120 CALL CLEAR
130 CALL SCREEN(15)
140 CALL CHAR(100,"12536821")
150 CALL CHAR(99,"123443212")
160 CALL CHAR(98,"224432158")
170 PRINT "DO YOU WANT INSTRUCTIONS?"
180 DIM N$(4)
190 INPUT A$
200 IF A$="Y" THEN 230
210 IF A$="N" THEN 310
220 REM INSTRUCTIONS
230 PRINT "TYPE HELP FOR MORE INFO BUT THE BASICS ARE ALLOWED: LOOK, TALK TO, PICK UP FIRE AND PK"
240 IF A$="HELP" THEN 360
250 GOTO 310
260 LET B=1:REM GOZER DATA
270 CALL GCHAR(1,12,14)
280 CALL CHAR("191,21E1FFF31217")
290 PRINT "LEVEL 1: THE MUSEUM":CALL CHAR(121,"1FFE21FF31327")
300 REM DONE
310 REM LEVEL DATA
320 LET G=3
330 PRINT "YOU MUST CAPTURE";G;"GHOSTS"
340 CALL CHAR(128,"E21138577FFF321E")
350 REM DONE, ON TO CHARACTERS
360 PRINT "WHO DO YOU WANT TO BE?"
370 INPUT NAME$
380 REM NO FOR NEXT ISSUE, THIS BASIC SUCKS

 

Share this post


Link to post
Share on other sites

Line 100 has a number of issues:

The statement separators must be double colons. i.e. FOR ROW=1 TO 39::FOR COL=1 TO 3  (This will only work in XB, while the rest of the prog. looks like it would run in standard BASIC)

Fixing that makes the problem go away, but...

I think   The order is wrong and should be FOR ROW=1 TO 39::FOR COL=1 TO 3::NEXT COL::NEXT ROW

Thirdly, it doesn't actually do anything.

 

Line 260 should probably not use the colon -  260 LET B=1 REM GOZER DATA

100 FOR ROW=1 TO 39:FOR COL=1 TO 3:NEXT ROW:NEXT COL
280 CALL CHAR("191,21E1FFF31217")

This should be CALL CHAR(191,"21E1FFF31217") except that you cannot define char 191 in either XB or standard BASIC

 

 

Edited by senior_falcon

Share this post


Link to post
Share on other sites


100 FOR ROW=1 TO 39 :: FOR COL=1 TO 3 :: NEXT COL :: NEXT ROW

 

Must use double colons for multi statement lines.  And also see where NEXT COL and NEXT ROW were backwards in your original listing what caused a "next without for error".
 

Share this post


Link to post
Share on other sites

Come back when your attitude changes.

  • Thanks 1

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...