super simple sprite routine (16x16 chars easy to modify)

[PMACKAY]

I wanted something different to play with, so i played with pset

this is my simple sprite routine to display 8 sprites

 at 16x16 (easy to change)

sprites priority's are 1 at the back to 8 at the front.. first four behind text and last four in front of text.

its easy to change the amount

I like my x set for 3 and y for 0.7

do as you will to it... i was just bored and trying stuff out.

you might want to vacuum the code, its a bit messy

[johnno56]

Um... all I got was 16 lines of data statements containing 16 zeros in each data statement... Did I do something wrong again?

j

[TempodiBasic]

@PMACKAY
I can confirm Johnno56's experience.... only DATA 0,0,0,0,0....

[bplus]

Well I tried using my imagination and came up with this in about 10 minutes:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
3. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
4. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
5. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
6. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
7. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
8. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
9. DATA 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
10. DATA 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
11. DATA 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
12. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
13. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
14. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
15. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
16. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18.  
19. DIM SHARED sprt(16, 16)
20. FOR y = 0 TO 15
21.     FOR x = 0 TO 15
22.         READ sprt(x, y)
23.     NEXT
24. NEXT
25. TYPE btype
26.     x AS INTEGER
27.     y AS INTEGER
28. END TYPE
29.  
30. DIM SHARED bs(10000) AS btype
31. bi = -1
32. WHILE 1
33.     CLS , _RGB32(0, 0, 128)
34.     nloop = nloop + 1
35.     IF RND < .15 AND (bi + 1) < 10000 THEN
36.         bi = bi + 1
37.         newb bi
38.     END IF
39.     FOR i = 0 TO bi
40.         bs(i).x = bs(i).x - (RND * 8 + 2)
41.         bs(i).y = bs(i).y - (RND * 6 + 1)
42.         IF bs(i).x < -16 THEN newb i
43.         IF bs(i).y < -16 THEN newb i
44.         drawb bs(i).x, bs(i).y
45.     NEXT
46.     _DISPLAY
47.     _LIMIT 20
48. WEND
49.  
50. SUB newb (i)
51.     bs(i).x = 800 + RND * 320
52.     bs(i).y = 600 + RND * 80
53. END SUB
54. SUB drawb (xx, yy)
55.     FOR y = 0 TO 15
56.         FOR x = 0 TO 15
57.             IF sprt(x, y) THEN PSET (x + xx, y + yy), _RGB32(0, 0, 0)
58.         NEXT
59.     NEXT
60. END SUB
61.  
62.  

EDIT: Vacuumed one line already

[Petr]

Well, the original code give you plenty of space for imagination. :-D

[bplus]

LOL it IS one of the simplest editor's I've ever seen!

[johnno56]

Cool... Sky chickens.

[PMACKAY]

sorry guys

Code: QB64: [Select]

1. ' ****************************************
2. ' MY SILLY SPRITE ROUTINE
3. '
4. ' NO COLLISION DETECTION. VERY EASY TO ADD
5. '
6. ' ****************************************
7. ' BY PAUL MACKAY / i LIKE THE TEXT MODE BETTER FOR SPEED, BUT THIS LOOKS BETTER
8.  
9.  
10.  
11.  
12.  
13.  
14.  
15.  
16.  
17.  
18. RANDOMIZE TIMER
19. REM 8XSPRITES (SPRITE N0#,DATA,DATA,X,Y,COLOUR N#,ANIMATION NO#) : REM PRIORITY IS (1 LOW, 8 HIGH) = (1,2,3,4 BEHIND TEXT AND 5,6,7,8 IN FONT OF TEXT) ANIMATION = ANY AMOUNT) BUT ONLY 8 DISPLAYED AT A TIME:DIM X(8),Y(8),X1(I),Y1(I)
20. SWIDTH = 64 * 8: SHEIGHT = 16 * 16
21. DIM SHARED SPRITEMEM%(8,16,16):DIM SHARED SPRITEPO%(8,4):DIM SCREENMEM%(64, 16):DECLARE SUB SPRITE(XCOL%,YCOL%,COL%,SPRITENO%)
22.  
23. CLS
24. INPUT "X SMOOTH"; YJUMP
25. INPUT "Y SMOOTH"; XJUMP
26.  
27. SCREEN _NEWIMAGE(SWIDTH, SHEIGHT, 256)
28. FOR I = 1 TO 8
29.     FOR J = 1 TO 16
30.         FOR K = 1 TO 16
31.             READ L
32.             SPRITEMEM%(I, J, K) = L
33.         NEXT K
34.     NEXT J
35. NEXT I
36.  
37. REM SET COLOURS FOR SPRITES AND CHARACTER NUMBERS
38.  
39. SPRITE X(1), Y(1), 21, 1, 0
40. SPRITE X(2), Y(2), 32, 2, 0
41. SPRITE X(3), Y(3), 43, 3, 0
42. SPRITE X(4), Y(4), 54, 4, 0
43. SPRITE X(5), Y(5), 65, 5, 0
44. SPRITE X(6), Y(6), 76, 6, 0
45. SPRITE X(7), Y(7), 87, 7, 0
46. SPRITE X(8), Y(8), 98, 8, 0
47.  
48. FOR I = 1 TO 8: X(I) = INT(RND(1) * SHEIGHT): Y(I) = INT(RND(1) * SWIDTH): DO: B = INT(RND(1) * 2): IF B = 1 OR B = 2 THEN EXIT DO
49.     LOOP: IF B = 1 THEN X1(I) = -XJUMP ELSE X1(I) = XJUMP
50.     DO: B = INT(RND(1) * 2): IF B = 1 OR B = 2 THEN EXIT DO
51.     LOOP: IF B = 1 THEN Y1(I) = YJUMP ELSE Y1(I) = YJUMP
52. NEXT I
53.  
54. WHILE INKEY$ = ""
55.     FOR I = 1 TO 8
56.         IF X(I) < 1 THEN X1(I) = XJUMP ELSE IF X(I) > SHEIGHT - 17 THEN X1(I) = -XJUMP
57.         X(I) = X(I) + X1(I)
58.         IF Y(I) < 1 THEN Y1(I) = YJUMP ELSE IF Y(I) > SWIDTH - 17 THEN Y1(I) = -YJUMP
59.         Y(I) = Y(I) + Y1(I)
60.         B = SPRITEPO%(I, 3)
61.         SPRITE X(I), Y(I), B, I, 1
62.     NEXT I
63.     _LIMIT 266
64. WEND
65.  
66. END
67.  
68. SUB SPRITE (XCOL%, YCOL%, COL%, SPRITENO%, SPRITEONOFF%)
69.     CLS: SPRITEPO%(SPRITENO%, 1) = XCOL%: SPRITEPO%(SPRITENO%, 2) = YCOL%: SPRITEPO%(SPRITENO%, 3) = COL%: SPRITEPO%(SPRITENO%, 4) = SPRITEONOFF%
70.     REM SPRITES 1 TO 4 BEHIND TEXT. 4 HAVING HIGHEST PRIORITY
71.     FOR IPX = 1 TO 4
72.         CURRENT% = SPRITEPO%(IPX, 3)
73.         XCOL% = SPRITEPO%(IPX, 1)
74.         YCOL% = SPRITEPO%(IPX, 2)
75.         FOR I = 1 TO 8
76.             FOR J = 1 TO 16
77.                 FOR K = 1 TO 16
78.                     L = SPRITEMEM%(IPX, J, K)
79.                     SELECT CASE L
80.                         CASE 0
81.                             'PSET (K + YCOL% - 1, J + XCOL% - 1), 0
82.                         CASE 1
83.                             IF SPRITEPO%(IPX, 4) = 1 THEN PSET (K + YCOL% - 1, J + XCOL% - 1), SPRITEPO%(IPX, 3)
84.                     END SELECT
85.                 NEXT K
86.             NEXT J
87.         NEXT I
88.     NEXT IPX
89.  
90.     REM THIS IS WERE THE PRINT ROUTINES FOR TEXT GO : FOR I=1 TO 64:FOR J=1 TO 16:PRINT SCREENMEM%(I,J):NEXT : NEXT
91.     _PRINTMODE _KEEPBACKGROUND
92.     COLOR 7: LOCATE 6, 6: PRINT "ÛÛ 4 SPRITES IN FRONT OF TEXT": LOCATE 7, 6: PRINT "ÛÛ AND 4 SPRITES BEHIND TEXT"
93.     COLOR 14: LOCATE 13, 19: PRINT "ÜÜÜÜÜÜÜÜÜÜ": COLOR 6: LOCATE 13, 19: PRINT "----------"
94.     FOR I = 4 TO 6: COLOR 2: LOCATE 10 + I, 20: PRINT "ÛÛÛ²±°°°";: NEXT I: LINE (0, 0)-(511, 255), _RGB32(150, 150, 15), B
95.  
96.     REM SPRITES 8 TO 5 HIGH PRIORITY PRINT ONTO 8 = HIGHEST / ABOVE TEXT
97.     FOR IPX = 5 TO 8
98.         CURRENT% = SPRITEPO%(IPX, 3)
99.         XCOL% = SPRITEPO%(IPX, 1)
100.         YCOL% = SPRITEPO%(IPX, 2)
101.         FOR I = 1 TO 8
102.             FOR J = 1 TO 16
103.                 FOR K = 1 TO 16
104.                     L = SPRITEMEM%(IPX, J, K)
105.                     SELECT CASE L
106.                         CASE 0
107.                             'PSET (K + YCOL% - 1, J + XCOL% - 1), 0
108.                         CASE 1
109.                             IF SPRITEPO%(IPX, 4) = 1 THEN PSET (K + YCOL% - 1, J + XCOL% - 1), SPRITEPO%(IPX, 3)
110.                     END SELECT
111.                 NEXT K
112.             NEXT J
113.         NEXT I
114.     NEXT IPX
115.  
116.     _DISPLAY
117. END SUB
118.  
119.  
120.  
121.  
122.  
123.  
124.  
125.  
126.  
127.  
128.  
129.  
130.  
131.  
132.  
133.  
134.  
135.  
136.  
137.  
138.  
139.  
140.  
141.  
142.  
143.  
144.  
145.  
146.  
147.  
148.  
149.  
150.  
151.  
152.  
153.  
154. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
155. DATA 0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0
156. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
157. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
158. DATA 0,1,0,1,1,1,0,0,0,0,1,1,1,0,1,0
159. DATA 1,0,0,1,0,1,0,0,0,0,1,0,1,0,0,1
160. DATA 1,0,0,1,1,1,0,0,0,0,1,1,1,0,0,1
161. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
162. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
163. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
164. DATA 1,0,0,0,0,1,1,1,1,1,1,0,0,0,0,1
165. DATA 0,1,0,0,1,0,0,0,0,0,0,1,0,0,1,0
166. DATA 0,1,0,0,0,1,1,1,1,1,1,0,0,0,1,0
167. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
168. DATA 0,0,0,1,1,0,0,0,0,0,0,1,1,0,0,0
169. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
170.  
171. DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
172. DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0
173. DATA 0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0
174. DATA 0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0
175. DATA 0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0
176. DATA 0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0
177. DATA 1,0,1,0,1,0,1,0,1,0,1,0,1,0,0,0
178. DATA 0,1,0,0,0,0,1,0,0,0,0,1,0,0,0,0
179. DATA 0,0,1,0,0,0,1,0,0,0,1,0,0,0,0,0
180. DATA 0,0,0,1,0,0,1,0,0,1,0,0,0,0,0,0
181. DATA 0,0,0,0,1,0,1,0,1,0,0,0,0,0,0,0
182. DATA 0,0,0,0,0,1,1,1,0,0,0,0,0,0,0,0
183. DATA 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
184. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
185. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
186. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
187.  
188. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
189. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
190. DATA 1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,1
191. DATA 1,1,0,1,0,0,0,0,0,0,0,1,0,1,0,1
192. DATA 1,1,1,1,0,0,0,0,0,0,0,1,1,1,0,1
193. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
194. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
195. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
196. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
197. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
198. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
199. DATA 1,0,1,1,1,0,0,0,0,0,0,1,1,1,0,1
200. DATA 1,0,1,0,1,0,0,0,0,0,0,1,0,1,0,1
201. DATA 1,0,1,1,1,0,0,0,0,0,0,1,1,1,0,1
202. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
203. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
204.  
205. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
206. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
207. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
208. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
209. DATA 0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0
210. DATA 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0
211. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
212. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
213. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
214. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
215. DATA 0,0,0,0,0,1,0,0,0,0,1,0,0,0,0,0
216. DATA 0,0,0,0,1,0,0,0,0,0,0,1,0,0,0,0
217. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
218. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
219. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
220. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
221.  
222. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
223. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
224. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
225. DATA 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
226. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
227. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
228. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
229. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
230. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
231. DATA 0,0,0,0,0,0,1,0,0,1,0,0,0,0,0,0
232. DATA 0,0,0,0,0,0,1,1,1,1,0,0,0,0,0,0
233. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
234. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
235. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
236. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
237. DATA 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
238.  
239. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
240. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
241. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
242. DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0
243. DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0
244. DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0
245. DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0
246. DATA 0,0,0,0,0,0,1,0,1,0,0,0,0,0,0,0
247. DATA 1,1,1,1,1,1,1,0,1,0,0,0,0,0,0,0
248. DATA 1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0
249. DATA 1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0
250. DATA 1,0,1,0,1,0,1,0,1,0,0,0,0,0,0,0
251. DATA 1,0,1,0,1,0,1,0,1,0,0,1,1,1,0,0
252. DATA 1,0,1,0,1,0,1,0,1,1,1,0,0,1,0,0
253. DATA 1,0,1,0,1,0,1,0,1,0,0,0,1,0,0,0
254. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0
255.  
256. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
257. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
258. DATA 0,0,0,0,0,1,0,0,1,0,0,0,0,0,0,0
259. DATA 0,0,0,0,1,0,0,0,0,1,0,0,0,0,0,0
260. DATA 0,0,0,1,0,0,1,1,0,0,1,0,0,0,0,0
261. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
262. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
263. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
264. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
265. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
266. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
267. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
268. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
269. DATA 0,0,0,0,0,0,1,1,0,0,0,0,0,0,0,0
270. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
271. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
272.  
273. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
274. DATA 0,1,0,0,0,0,0,0,0,0,1,1,1,0,0,0
275. DATA 0,1,1,0,0,0,0,0,0,1,0,0,0,1,0,0
276. DATA 0,1,1,1,1,1,1,0,1,0,0,0,0,0,1,0
277. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0
278. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
279. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0
280. DATA 0,1,1,0,0,0,0,0,0,0,0,0,0,1,0,0
281. DATA 0,1,1,1,1,1,1,0,0,0,0,0,0,1,0,0
282. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
283. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
284. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
285. DATA 0,1,1,0,0,0,0,0,0,0,0,0,0,0,1,0
286. DATA 0,1,1,1,1,1,1,0,1,0,0,0,0,0,1,0
287. DATA 0,0,1,0,0,0,0,0,0,1,0,0,0,1,0,0
288. DATA 0,0,0,0,0,0,0,0,0,0,1,1,1,0,0,0
289.