Sprites in GW-BASIC 2

Let's add some grass and other terrain for the gnome and the snakes to stand on.

10 SCREEN 1
20 DEFINT A-Z
30 GFXSIZE = 33
50 DIM PLAYERGFX(GFXSIZE)
60 DIM MONSTERGFX(GFXSIZE)
70 DIM GRASSGFX(GFXSIZE): DIM ICEGFX(GFXSIZE)
80 GOSUB 800 ' Call to subroutine that reads and draws pixels
90 GET (0, 0)-(15, 15), PLAYERGFX ' Grabs graphics and puts it in an array
100 CLS ' Clear the screen
110 GOSUB 800 ' Read and draw next sprite
120 GET (0, 0)-(15, 15), MONSTERGFX
130 CLS
140 GOSUB 800: GET (0, 0)-(15, 15), GRASSGFX: CLS
150 GOSUB 800: GET (0, 0)-(15, 15), ICEGFX: CLS

200 FOR Y = 0 TO 7
205 GY = Y * 16
210 FOR X = 0 TO 19
215 GX = X * 16
220 IF X > 0 AND X < 19 AND Y > 2 AND Y < 7 THEN PUT (GX, GY), ICEGFX, PSET ELSE PUT (GX, GY), GRASSGFX, PSET
230 NEXT X
240 NEXT Y

300 PUT (32, 56), PLAYERGFX, PSET
310 PUT (128, 80), MONSTERGFX, PSET
320 PUT (192, 32), MONSTERGFX, PSET
330 LOCATE 17: PRINT "A simple program for demonstrating
340 PRINT "16x16 tiled graphics in GW-BASIC."

400 END

800 ' Subroutine that read the DATA statement values
801 ' and then draw pixels with PSET
810 FOR y = 0 TO 15
820 FOR x = 0 TO 15
830 READ c
840 PSET (x, y), c
850 NEXT x
860 NEXT y
870 RETURN

890 ' The sprite data follows below.
891 ' Each value represent the color of an individual pixel.
892 ' Since we're in CGA 320x200 we have four colors to work with.
893 ' They are: 0 = black, 1 = cyan, 2 = magenta, 3 = white

900 ' player gfx
901 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
902 DATA 0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0
903 DATA 0,0,0,0,2,0,2,2,2,2,2,0,0,0,0,0
904 DATA 0,0,0,2,0,2,2,2,2,2,2,2,0,0,0,0
905 DATA 0,0,0,3,0,3,3,3,3,3,3,3,0,0,0,0
906 DATA 0,0,0,0,0,1,1,1,1,1,1,1,0,0,0,0
907 DATA 0,0,0,0,1,1,1,0,1,1,0,1,0,0,0,0
908 DATA 0,0,0,0,1,3,1,1,2,2,1,1,0,0,0,0
909 DATA 0,0,0,0,0,3,3,3,3,3,3,3,0,0,0,0
910 DATA 0,0,0,0,0,3,3,3,2,2,3,3,0,0,0,0
911 DATA 0,0,0,0,2,2,3,3,3,3,3,3,0,0,0,0
912 DATA 0,0,0,2,2,2,2,3,3,3,3,2,0,0,0,0
913 DATA 0,0,0,1,1,2,2,2,3,3,2,1,1,0,0,0
914 DATA 0,0,0,0,0,2,2,2,2,2,2,0,0,0,0,0
915 DATA 0,0,0,0,0,2,2,0,0,2,2,0,0,0,0,0
916 DATA 0,0,0,0,0,2,2,2,0,2,2,2,0,0,0,0

940 ' snake gfx
941 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
942 DATA 0,0,0,0,0,0,0,0,0,0,0,1,2,0,0,0
943 DATA 0,0,0,0,0,0,0,0,0,0,0,0,1,2,0,0
944 DATA 0,0,0,0,0,0,0,1,1,1,1,1,1,2,0,0
945 DATA 0,0,0,0,0,0,1,1,2,2,2,2,2,0,0,0
946 DATA 0,0,0,0,0,0,1,2,0,0,0,0,0,0,0,0
947 DATA 0,0,0,0,0,0,1,1,1,1,2,0,0,0,0,0
948 DATA 0,0,0,0,0,0,0,1,1,1,1,2,0,0,0,0
949 DATA 0,0,0,0,0,0,0,0,0,1,1,2,0,0,0,0
950 DATA 0,0,0,0,0,1,1,1,1,1,1,2,0,0,0,0
951 DATA 0,0,1,1,1,1,1,1,1,1,2,2,0,0,0,0
952 DATA 0,1,1,1,1,1,1,2,2,2,2,0,0,0,0,0
953 DATA 0,1,0,1,0,1,2,0,0,0,0,0,0,0,0,0
954 DATA 0,1,1,1,1,1,0,0,0,0,0,0,0,0,0,0
955 DATA 0,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0
956 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

980 ' grass
981 DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,1,0,0
982 DATA 0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,0
983 DATA 0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0
984 DATA 0,0,0,0,1,0,0,0,0,0,1,0,0,0,1,0
985 DATA 0,0,0,0,1,0,0,0,0,0,0,0,0,0,1,0
986 DATA 0,0,1,0,0,0,0,0,1,0,0,0,0,0,0,0
987 DATA 0,0,1,0,0,0,0,0,1,0,0,0,1,0,0,0
988 DATA 0,0,0,0,0,1,0,0,0,0,0,0,1,0,0,1
989 DATA 0,1,0,0,0,1,0,0,0,0,1,0,0,0,0,1
992 DATA 0,1,0,0,0,0,0,0,0,0,1,0,0,0,0,0
993 DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
994 DATA 0,0,0,1,0,0,0,1,0,0,0,0,0,0,1,0
995 DATA 0,0,0,1,0,0,0,0,0,0,0,0,0,0,1,0
996 DATA 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0
997 DATA 1,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0
998 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0

1000 ' ice
1010 DATA 1,1,1,1,1,1,3,1,1,1,3,1,1,1,1,1
1011 DATA 1,3,1,1,1,1,1,1,1,3,1,1,1,3,1,1
1012 DATA 3,1,1,1,3,1,1,1,1,1,1,1,3,1,1,1
1013 DATA 1,1,1,3,1,1,1,3,1,1,1,3,1,1,1,3
1014 DATA 1,1,1,1,1,1,3,1,1,1,3,1,1,1,1,1
1015 DATA 1,3,1,1,1,3,1,1,1,3,1,1,1,3,1,1
1016 DATA 3,1,1,1,3,1,1,1,1,1,1,1,3,1,1,1
1017 DATA 1,1,1,3,1,1,1,3,1,1,1,1,1,1,1,3
1018 DATA 1,1,1,1,1,1,3,1,1,1,3,1,1,1,1,1
1019 DATA 1,3,1,1,1,1,1,1,1,3,1,1,1,3,1,1
1020 DATA 3,1,1,1,3,1,1,1,1,1,1,1,3,1,1,1
1021 DATA 1,1,1,3,1,1,1,3,1,1,1,3,1,1,1,3
1022 DATA 1,1,1,1,1,1,3,1,1,1,3,1,1,1,3,1
1023 DATA 1,3,1,1,1,3,1,1,1,3,1,1,1,3,1,1
1024 DATA 3,1,1,1,3,1,1,1,1,1,1,1,3,1,1,1
1025 DATA 1,1,1,3,1,1,1,3,1,1,1,1,1,1,1,3

Hmm. The PUT command draws over old graphics on the screen indiscriminately making black boxes around our little gnome and his snake friends. We'll tackle that next!