Qbasicnews.com › QBasic › QB Discussion & Programming Help v
Getting "Out of data error" PLEASE HELP

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Threaded Mode
Getting "Out of data error" PLEASE HELP
tinytim365 Offline
Junior Member
**
Posts: 11
Threads: 7
Joined: Sep 2004
#1
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
Find
Reply
Oz Offline
Senior Member
****
Posts: 719
Threads: 72
Joined: Mar 2003
#2
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~
Find
Reply
Z!re Offline
Posting Freak
*****
Posts: 3,522
Threads: 189
Joined: Dec 2003
#3
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 ,
Find
Reply
tinytim365 Offline
Junior Member
**
Posts: 11
Threads: 7
Joined: Sep 2004
#4
09-23-2004, 11:05 PM
I feel like an idiot but oh well at least i got it figured it out


Thx again
Find
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)