Qbasicnews.com

Qbasicnews.com > QBasic > QB Discussion & Programming Help > Getting "Out of data error" PLEASE HELP
Full Version: Getting "Out of data error" PLEASE HELP
You're currently viewing a stripped down version of our content. View the full version with proper formatting.

tinytim365

09-23-2004, 06:42 AM
I swear i have checked this code over and over and i cant find why im getting this error. Here is my code.


DIM sprite1(50)
DIM sprite2(50)
DIM map(21, 15)


SCREEN 13


FOR y = 1 TO 13
FOR x = 1 TO 15

READ clr

PSET (x, y), clr

NEXT: NEXT

GET (1, 1)-(15, 13), sprite1

FOR y = 1 TO 13
FOR x = 1 TO 15

READ clr

PSET (x, y), clr

NEXT: NEXT

GET (1, 1)-(15, 13), sprite2



FOR y = 1 TO 15
FOR x = 1 TO 21


READ map(x, y)

NEXT: NEXT


FOR y = 1 TO 15
FOR x = 1 TO 21

IF map(x, y) = 1 THEN PUT (x * 15 - 15, y * 13 - 13), sprite1
IF map(x, y) = 2 THEN PUT (x * 15 - 15, y * 13 - 13), sprite2

NEXT: NEXT



'Sprite 1 "Gray Tile"


DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,0


'Sprite 2 "Dirt"

DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6


'Map sprite


DATA 1,1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,1,1,1
DATA 1,1 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Oz

09-23-2004, 07:08 AM
Code:
DIM sprite1(50)
DIM sprite2(50)
DIM map(21, 15)


SCREEN 13


RESTORE sprites:

FOR y = 1 TO 13
FOR x = 1 TO 15

READ clr

PSET (x, y), clr

NEXT: NEXT

GET (1, 1)-(15, 13), sprite1

FOR y = 1 TO 13
FOR x = 1 TO 15

READ clr

PSET (x, y), clr

NEXT: NEXT

GET (1, 1)-(15, 13), sprite2

RESTORE maps:

FOR y = 1 TO 15
FOR x = 1 TO 21


READ map(x, y)

NEXT: NEXT


FOR y = 1 TO 15
FOR x = 1 TO 21

IF map(x, y) = 1 THEN PUT (x * 15 - 15, y * 13 - 13), sprite1
IF map(x, y) = 2 THEN PUT (x * 15 - 15, y * 13 - 13), sprite2

NEXT: NEXT


sprites:

'Sprite 1 "Gray Tile"


DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,7,7,7,7,7,7,7,7,7,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,8
DATA 8,8,8,8,8,8,8,8,8,8,8,8,8,8,0


'Sprite 2 "Dirt"

DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6
DATA 6,6,6,6,6,6,6,6,6,6,6,6,6,6,6



maps:
'Map sprite


DATA 1,1,1,1,1,1,1,1,2,2,2,2,1,1,1,1,1,1,1,1,1
DATA 1,1 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
DATA 1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1
DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

didn't really check the code out, but i did make it more direct (RESTORE / LABELs)

Oz~

Z!re

09-23-2004, 08:08 AM
Second Map DATA row:
Code:
DATA 1,1 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1

Notice the space instead of a ,

tinytim365

09-23-2004, 11:05 PM
I feel like an idiot but oh well at least i got it figured it out


Thx again
Qbasicnews.com > QBasic > QB Discussion & Programming Help > Getting "Out of data error" PLEASE HELP