« previous next »
Pages: [1]   Go Down

Author Topic: Better way to moving 'sprites'  (Read 5287 times)

0 Members and 1 Guest are viewing this topic.

Offline RobinGravel

  • Newbie
  • Posts: 30
    • View Profile
Better way to moving 'sprites'
« on: August 07, 2021, 10:22:07 am »
I always do this when programming in QB.

I wonder if there is a way to improve it.

Code: QB64: [Select]
  1. 'Frpg3d
  3. X1 = 0: Y1 = 0: X2 = 7: Y2 = 7
  4. m = 4 + Int(((PMap(X2!, 0) - PMap(X1!, 0) + 1) * (1) + 7) / 8) * 4 * (PMap(Y2!, 1) - PMap(Y1!, 1) + 1)
  5. X1 = 0: Y1 = 0: X2 = 15: Y2 = 15
  6. m2 = 4 + Int(((PMap(X2!, 0) - PMap(X1!, 0) + 1) * (1) + 7) / 8) * 4 * (PMap(Y2!, 1) - PMap(Y1!, 1) + 1)
  7. X1 = 0: Y1 = 0: X2 = 15: Y2 = 31
  8. m4 = 4 + Int(((PMap(X2!, 0) - PMap(X1!, 0) + 1) * (1) + 7) / 8) * 4 * (PMap(Y2!, 1) - PMap(Y1!, 1) + 1)
  9.  
  10. Dim t1%(m), t2%(m), t3%(m), pl1%(m2), pl2%(m2), pl3%(m2), pl4%(m2), pl5%(m2)
  11. Dim pl6%(m2), pl7%(m2), pl8%(m2), pl9%(m2), pl10%(m2), mr01%(m2), mr02%(m2)
  12. Dim rd1%(m4), rd2%(m4), vd%(m4)
  14. 'tile 1
  15. x = 0: y = 0
  16. For z1 = 1 To 8
  17.     For z2 = 1 To 8
  18.         Read r
  19.         If r = 0 Then PSet (x, y), 8
  20.         If r = 1 Then PSet (x, y), 7
  21.         If r = 2 Then PSet (x, y), 15
  22.         x = x + 1
  23.     Next z2
  24.     x = 0: y = y + 1
  25. Next z1
  26. Get (0, 0)-(7, 7), t1%()
  27.  
  28. 'tile 2
  29. x = 0: y = 0
  30. For z1 = 1 To 8
  31.     For z2 = 1 To 8
  32.         Read r
  33.         If r = 0 Then PSet (x, y), 0
  34.         If r = 1 Then PSet (x, y), 8
  35.         If r = 2 Then PSet (x, y), 7
  36.         If r = 3 Then PSet (x, y), 15
  37.         x = x + 1
  38.     Next z2
  39.     x = 0: y = y + 1
  40. Next z1
  41. Get (0, 0)-(7, 7), t2%()
  42.  
  43. 'tile 3
  44. x = 0: y = 0
  45. For z1 = 1 To 8
  46.     For z2 = 1 To 8
  47.         Read r
  48.         If r = 0 Then PSet (x, y), 0
  49.         If r = 1 Then PSet (x, y), 7
  50.         If r = 2 Then PSet (x, y), 8
  51.         If r = 3 Then PSet (x, y), 15
  52.         x = x + 1
  53.     Next z2
  54.     x = 0: y = y + 1
  55. Next z1
  56. Get (0, 0)-(7, 7), t3%()
  57. 'plancher 1
  58. x = 0: y = 0
  59. For z1 = 1 To 16
  60.     For z2 = 1 To 16
  61.         Read r
  62.         If r = 0 Then PSet (x, y), 6
  63.         If r = 1 Then PSet (x, y), 4
  64.         x = x + 1
  65.     Next z2
  66.     x = 0: y = y + 1
  67. Next z1
  68. Get (0, 0)-(15, 15), pl1%()
  69. 'plancher 2
  70. x = 0: y = 0
  71. For z1 = 1 To 16
  72.     For z2 = 1 To 16
  73.         Read r
  74.         If r = 0 Then PSet (x, y), 6
  75.         If r = 1 Then PSet (x, y), 4
  76.         If r = 2 Then PSet (x, y), 8
  77.         x = x + 1
  78.     Next z2
  79.     x = 0: y = y + 1
  80. Next z1
  81. Get (0, 0)-(15, 15), pl2%()
  82. 'plancher 3
  83. x = 0: y = 0
  84. For z1 = 1 To 16
  85.     For z2 = 1 To 16
  86.         Read r
  87.         If r = 0 Then PSet (x, y), 8
  88.         If r = 1 Then PSet (x, y), 0
  89.         x = x + 1
  90.     Next z2
  91.     x = 0: y = y + 1
  92. Next z1
  93. Get (0, 0)-(15, 15), pl3%()
  94. 'plancher 4
  95. x = 0: y = 0
  96. For z1 = 1 To 16
  97.     For z2 = 1 To 16
  98.         Read r
  99.         If r = 0 Then PSet (x, y), 6
  100.         If r = 1 Then PSet (x, y), 4
  101.         If r = 2 Then PSet (x, y), 8
  102.         x = x + 1
  103.     Next z2
  104.     x = 0: y = y + 1
  105. Next z1
  106. Get (0, 0)-(15, 15), pl4%()
  107. 'plancher 5
  108. x = 0: y = 0
  109. For z1 = 1 To 16
  110.     For z2 = 1 To 16
  111.         Read r
  112.         If r = 0 Then PSet (x, y), 6
  113.         If r = 1 Then PSet (x, y), 4
  114.         If r = 2 Then PSet (x, y), 8
  115.         x = x + 1
  116.     Next z2
  117.     x = 0: y = y + 1
  118. Next z1
  119. Get (0, 0)-(15, 15), pl5%()
  120. 'plancher 6
  121. x = 0: y = 0
  122. For z1 = 1 To 16
  123.     For z2 = 1 To 16
  124.         Read r
  125.         If r = 0 Then PSet (x, y), 6
  126.         If r = 1 Then PSet (x, y), 4
  127.         If r = 2 Then PSet (x, y), 8
  128.         x = x + 1
  129.     Next z2
  130.     x = 0: y = y + 1
  131. Next z1
  132. Get (0, 0)-(15, 15), pl6%()
  133. 'plancher 7
  134. x = 0: y = 0
  135. For z1 = 1 To 16
  136.     For z2 = 1 To 16
  137.         Read r
  138.         If r = 0 Then PSet (x, y), 6
  139.         If r = 1 Then PSet (x, y), 4
  140.         If r = 2 Then PSet (x, y), 8
  141.         x = x + 1
  142.     Next z2
  143.     x = 0: y = y + 1
  144. Next z1
  145. Get (0, 0)-(15, 15), pl7%()
  146. 'plancher 8
  147. x = 0: y = 0
  148. For z1 = 1 To 16
  149.     For z2 = 1 To 16
  150.         Read r
  151.         If r = 0 Then PSet (x, y), 6
  152.         If r = 1 Then PSet (x, y), 4
  153.         If r = 2 Then PSet (x, y), 8
  154.         x = x + 1
  155.     Next z2
  156.     x = 0: y = y + 1
  157. Next z1
  158. Get (0, 0)-(15, 15), pl8%()
  159.  
  160. 'plancher 9
  161. x = 0: y = 0
  162. For z1 = 1 To 16
  163.     For z2 = 1 To 16
  164.         Read r
  165.         If r = 0 Then PSet (x, y), 6
  166.         If r = 1 Then PSet (x, y), 4
  167.         If r = 2 Then PSet (x, y), 8
  168.         x = x + 1
  169.     Next z2
  170.     x = 0: y = y + 1
  171. Next z1
  172. Get (0, 0)-(15, 15), pl9%()
  173. 'plancher 10
  174. x = 0: y = 0
  175. For z1 = 1 To 16
  176.     For z2 = 1 To 16
  177.         Read r
  178.         If r = 0 Then PSet (x, y), 6
  179.         If r = 1 Then PSet (x, y), 4
  180.         If r = 2 Then PSet (x, y), 8
  181.         x = x + 1
  182.     Next z2
  183.     x = 0: y = y + 1
  184. Next z1
  185. Get (0, 0)-(15, 15), pl10%()
  186. 'mur 1
  187. x = 0: y = 0
  188. For z1 = 1 To 16
  189.     For z2 = 1 To 16
  190.         Read r
  191.         If r = 0 Then PSet (x, y), 14
  192.         If r = 1 Then PSet (x, y), 8
  193.         x = x + 1
  194.     Next z2
  195.     x = 0: y = y + 1
  196. Next z1
  197. Get (0, 0)-(15, 15), mr01%()
  198. 'mur 2
  199. x = 0: y = 0
  200. For z1 = 1 To 16
  201.     For z2 = 1 To 16
  202.         Read r
  203.         If r = 0 Then PSet (x, y), 12
  204.         If r = 1 Then PSet (x, y), 8
  205.         x = x + 1
  206.     Next z2
  207.     x = 0: y = y + 1
  208. Next z1
  209. Get (0, 0)-(15, 15), mr02%()
  210. 'Rodan
  211. x = 0: y = 0
  212. For z1 = 1 To 32
  213.     For z2 = 1 To 16
  214.         Read r
  215.         If r = 0 Then PSet (x, y), 0
  216.         If r = 1 Then PSet (x, y), 10
  217.         If r = 2 Then PSet (x, y), 12
  218.         If r = 3 Then PSet (x, y), 15
  219.         If r = 4 Then PSet (x, y), 4
  220.         If r = 5 Then PSet (x, y), 9
  221.         If r = 6 Then PSet (x, y), 8
  222.         If r = 7 Then PSet (x, y), 1
  223.         x = x + 1
  224.     Next z2
  225.     x = 0: y = y + 1
  226. Next z1
  227. Get (0, 0)-(15, 31), rd1%()
  228. 'Rodan
  229. Restore Rodan
  230. x = 0: y = 0
  231. For z1 = 1 To 32
  232.     For z2 = 1 To 16
  233.         Read r
  234.         If r = 0 Then PSet (x, y), 0 Else PSet (x, y), 15
  235.         x = x + 1
  236.     Next z2
  237.     x = 0: y = y + 1
  238. Next z1
  239. Get (0, 0)-(15, 31), rd2%()
  240.  
  242. x = 0: y = 0
  243. For z1% = 1 To 7
  244.     For z2% = 1 To 8
  245.         Read r$
  246.         If r$ = "0" Then Put (x, y), pl1%(), PSet
  247.         If r$ = "1" Then Put (x, y), pl2%(), PSet
  248.         If r$ = "2" Then Put (x, y), pl3%(), PSet
  249.         If r$ = "3" Then Put (x, y), pl4%(), PSet
  250.         If r$ = "4" Then Put (x, y), pl5%(), PSet
  251.         If r$ = "5" Then Put (x, y), pl6%(), PSet
  252.         If r$ = "6" Then Put (x, y), pl7%(), PSet
  253.         If r$ = "7" Then Put (x, y), pl8%(), PSet
  254.         If r$ = "8" Then Put (x, y), pl9%(), PSet
  255.         If r$ = "9" Then Put (x, y), pl10%(), PSet
  256.         If r$ = "A" Then Put (x, y), mr01%(), PSet
  257.         If r$ = "B" Then Put (x, y), mr02%(), PSet
  258.         x = x + 16
  259.     Next z2%
  260.     x = 0: y = y + 16
  261. Next z1%
  262. rx = 60: ry = 32
  263. For z = 1 To 5
  264.     For rx = 60 To 100 Step 8
  265.         Get (rx, ry)-Step(15, 31), vd%()
  266.         Put (rx, ry), rd2%(), Or: Put (rx, ry), rd2%(), Xor: Put (rx, ry), rd1%(), Xor
  267.         _Delay .2
  268.         Put (rx, ry), vd%(), PSet
  269.     Next
  270.     For rx = 100 To 60 Step -8
  271.         Get (rx, ry)-Step(15, 31), vd%()
  272.         Put (rx, ry), rd2%(), Or: Put (rx, ry), rd2%(), Xor: Put (rx, ry), rd1%(), Xor
  273.         _Delay .2
  274.         Put (rx, ry), vd%(), PSet
  275.     Next
  277.  
  278. 'GoTo boucle
  279. 'Locate 14, 2: Print rx
  281.  
  282. '8x8
  283. Data 0,0,0,0,0,0,0,0
  284. Data 0,0,0,0,0,0,0,0
  285. Data 0,0,0,0,0,0,0,0
  286. Data 0,0,0,0,0,0,0,0
  287. Data 0,0,0,0,0,0,0,0
  288. Data 0,0,0,0,0,0,0,0
  289. Data 0,0,0,0,0,0,0,0
  290. Data 0,0,0,0,0,0,0,0
  291. '16x16
  292. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  293. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  294. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  295. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  296. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  297. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  298. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  299. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  300. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  301. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  302. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  303. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  304. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  305. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  306. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  307. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  308. '16x32
  309. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  310. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  311. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  312. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  313. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  314. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  315. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  316. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  317. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  318. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  319. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  320. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  321. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  322. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  323. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  324. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  325. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  326. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  327. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  328. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  329. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  330. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  331. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  332. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  333. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  334. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  335. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  336. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  337. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  338. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  339. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  340. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  341.  
  342.  
  343. ici:
  344.  
  345. 'tile 1
  346. Data 0,0,0,0,0,0,0,0
  347. Data 0,2,2,2,2,2,2,0
  348. Data 0,2,1,2,2,1,2,0
  349. Data 0,2,2,2,2,2,2,0
  350. Data 0,2,2,2,2,2,2,0
  351. Data 0,2,1,2,2,1,2,0
  352. Data 0,2,2,2,2,2,2,0
  353. Data 0,0,0,0,0,0,0,0
  354. ' tile 2
  355. Data 0,0,0,0,0,0,0,0
  356. Data 1,1,1,1,1,1,1,1
  357. Data 2,2,2,2,2,2,2,2
  358. Data 3,3,3,3,3,3,3,3
  359. Data 3,3,3,3,3,3,3,3
  360. Data 2,2,2,2,2,2,2,2
  361. Data 1,1,1,1,1,1,1,1
  362. Data 0,0,0,0,0,0,0,0
  363. ' tile 3
  364. Data 0,2,1,3,3,1,2,0
  365. Data 0,2,1,3,3,1,2,0
  366. Data 0,2,1,3,3,1,2,0
  367. Data 0,2,1,3,3,1,2,0
  368. Data 0,2,1,3,3,1,2,0
  369. Data 0,2,1,3,3,1,2,0
  370. Data 0,2,1,3,3,1,2,0
  371. Data 0,2,1,3,3,1,2,0
  372. 'Plancher 1
  373. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  374. Data 0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0
  375. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
  376. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  377. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  378. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  379. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  380. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  381. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  382. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  383. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  384. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  385. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  386. Data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0
  387. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  388. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  389. 'Plancher 2
  390. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  391. Data 0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0
  392. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
  393. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  394. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  395. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  396. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  397. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  398. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  399. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  400. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  401. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  402. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  403. Data 0,2,2,2,2,1,0,2,2,2,0,0,2,2,2,2
  404. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  405. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  406. 'Plancher 3
  407. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  408. Data 0,1,0,0,0,0,0,0,0,0,0,0,1,0,0,0
  409. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
  410. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  411. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  412. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  413. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  414. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  415. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  416. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  417. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  418. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  419. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  420. Data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0
  421. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  422. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  423. 'Plancher 4
  424. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  425. Data 2,2,2,0,2,2,2,2,2,0,0,2,2,2,2,2
  426. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,0
  427. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  428. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  429. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  430. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  431. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  432. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  433. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  434. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  435. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  436. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  437. Data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,0
  438. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  439. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  440. 'Plancher 5
  441. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  442. Data 0,1,0,0,0,0,0,0,0,0,0,0,1,0,2,2
  443. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,2,2,2
  444. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  445. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  446. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2
  447. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,2
  448. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,2,2,2
  449. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  450. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  451. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  452. Data 1,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  453. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  454. Data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,2,2
  455. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  456. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  457. 'Plancher 6
  458. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  459. Data 2,2,0,0,0,0,0,0,0,0,0,0,1,0,0,0
  460. Data 2,2,2,0,0,0,1,0,0,0,0,0,0,0,0,0
  461. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  462. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  463. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  464. Data 2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  465. Data 2,2,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  466. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  467. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  468. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  469. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  470. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  471. Data 2,2,0,0,0,1,0,0,0,0,0,0,0,0,0,0
  472. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  473. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  474. 'Plancher 7
  475. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  476. Data 0,1,0,0,0,0,0,0,0,0,0,0,1,0,2,2
  477. Data 0,0,0,0,0,0,1,0,0,0,0,0,0,2,2,2
  478. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  479. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  480. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2
  481. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,2
  482. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,2,2,2
  483. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  484. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  485. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  486. Data 1,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  487. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  488. Data 0,0,0,2,2,2,2,0,0,2,2,0,2,2,2,2
  489. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  490. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  491.  
  492. 'Plancher 8
  493. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  494. Data 2,2,0,0,0,0,0,0,0,0,0,0,1,0,0,0
  495. Data 2,2,2,0,0,0,1,0,0,0,0,0,0,0,0,0
  496. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  497. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  498. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  499. Data 2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  500. Data 2,2,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  501. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  502. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  503. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  504. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  505. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  506. Data 2,2,2,0,2,2,2,0,0,2,2,2,2,2,0,0
  507. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  508. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  509. 'Plancher 9
  510. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  511. Data 2,2,2,2,0,0,2,2,2,2,2,2,2,2,2,2
  512. Data 0,0,0,0,0,0,1,0,2,2,0,0,2,2,2,2
  513. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  514. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  515. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,1,2,2
  516. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,0,2,2
  517. Data 0,0,0,0,0,0,0,0,1,0,0,0,0,2,2,2
  518. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  519. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  520. Data 0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  521. Data 1,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2
  522. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2
  523. Data 0,0,0,0,0,1,0,0,0,0,0,0,0,0,2,2
  524. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  525. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2
  526. 'Plancher 10
  527. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  528. Data 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2
  529. Data 2,2,2,2,2,0,2,2,2,2,0,0,2,2,2,0
  530. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  531. Data 2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0
  532. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,1,0,0
  533. Data 2,2,1,0,0,0,0,0,0,0,0,0,0,0,0,0
  534. Data 2,2,0,0,0,0,0,0,1,0,0,0,0,0,0,0
  535. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  536. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  537. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  538. Data 2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  539. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  540. Data 2,2,0,0,0,1,0,0,0,0,0,0,0,0,0,0
  541. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  542. Data 2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  543. 'mur 1
  544. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  545. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  546. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  547. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  548. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  549. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  550. Data 0,0,0,0,0,0,0,1,1,0,0,0,0,0,0,0
  551. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  552. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  553. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  554. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  555. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  556. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  557. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  558. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  559. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  560. 'mur 2
  561. 'DATA 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  562.  
  563. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  564. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  565. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  566. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  567. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  568. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  569. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  570. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  571. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  572. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  573. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  574. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  575. Data 1,0,0,1,1,0,0,1,1,0,0,1,1,0,0,1
  576. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  577. Data 1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1
  578. Data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  579.  
  580.  
  581. Rodan:
  582. 'Rodan
  583. Data 0,0,0,0,0,0,1,1,0,1,0,0,0,0,0,0
  584. Data 0,0,0,0,1,1,1,1,1,1,1,0,0,0,0,0
  585. Data 0,0,0,0,1,1,1,1,2,1,1,0,0,0,0,0
  586. Data 0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0
  587. Data 0,0,0,0,2,2,3,2,3,2,2,0,0,0,0,0
  588. Data 0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0
  589. Data 0,0,0,0,1,2,2,4,2,2,1,0,0,0,0,0
  590. Data 0,0,0,0,1,2,2,2,2,2,1,0,0,0,0,0
  591. Data 0,0,0,0,0,2,4,4,4,2,0,0,0,0,0,0
  592. Data 0,0,0,0,0,2,2,2,2,2,0,0,0,0,0,0
  593. Data 0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0
  594. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  595. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  596. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  597. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  598. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  599. Data 0,0,0,0,7,5,5,5,5,5,7,0,0,0,0,0
  600. Data 0,0,0,0,3,5,5,5,5,5,3,0,0,0,0,0
  601. Data 0,0,0,0,2,6,6,6,6,6,2,0,0,0,0,0
  602. Data 0,0,0,0,2,7,7,7,7,7,2,0,0,0,0,0
  603. Data 0,0,0,0,2,7,7,7,7,7,2,0,0,0,0,0
  604. Data 0,0,0,0,0,7,7,7,7,7,0,0,0,0,0,0
  605. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  606. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  607. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  608. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  609. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  610. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  611. Data 0,0,0,0,0,7,7,0,7,7,0,0,0,0,0,0
  612. Data 0,0,0,0,0,3,3,0,3,3,0,0,0,0,0,0
  613. Data 0,0,0,0,0,3,3,0,3,3,0,0,0,0,0,0
  614. Data 0,0,0,0,0,6,6,0,6,6,0,0,0,0,0,0
  615.  
  616. Monde:
  617.  
  618. Data B,B,B,B,4,2,5,B
  619. Data A,A,A,A,4,2,5,A
  620. Data A,A,z,A,4,2,5,A
  621. Data A,A,z,A,4,2,5,A
  622. Data 1,6,2,7,6,2,7,1
  623. Data 2,2,2,2,2,2,2,2
  624. Data 3,3,3,3,8,2,9,3
  625.  
« Last Edit: August 07, 2021, 10:23:53 am by RobinGravel »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Better way to moving 'sprites'
« Reply #1 on: August 07, 2021, 11:41:14 am »
Quote
I wonder if there is a way to improve it.

Yes! many ways, Cobalt, Unseen many others have developed whole systems to tiling, building backgrounds and sprites....

It probably starts by making tile images and then building images for more images so can move sprite as one image.
« Last Edit: August 07, 2021, 11:43:06 am by bplus »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Better way to moving 'sprites'
« Reply #2 on: August 07, 2021, 11:57:03 am »
Can you make a routine to draw your sprite at any x,y? Usually x,y is top, left corner of image but could be it's middle too. With that, use arrow keys or mouse to say the x, y position of sprite.
Logged

Offline RobinGravel

  • Newbie
  • Posts: 30
    • View Profile
Re: Better way to moving 'sprites'
« Reply #3 on: August 07, 2021, 12:19:01 pm »
Doesn't sprites always draw from left?

Is there other alternatives to draw sprites?
Logged

Offline loudar

  • Newbie
  • Posts: 73
  • improve it bit by bit.
    • View Profile
Re: Better way to moving 'sprites'
« Reply #4 on: August 07, 2021, 12:34:26 pm »
There are many ways in which you could "improve" this, though that's always subjective of course.

For me, I like having my sprites as images within a folder, then load them and be able to just play with them how I want. That removes code from the program and generalizes the drawing part a lot.
I wrote some functions in QB64 that can do that in my latest Gamejam participation: https://github.com/loudar/Gamejam-2021-07-24

There are many options how you can tweak this, it totally depends on your coding style and your end goal ;D
Logged
Check out what I do besides coding: http://loudar.myportfolio.com/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Better way to moving 'sprites'
« Reply #5 on: August 07, 2021, 02:36:51 pm »
Here is simple code for a bat sprite to follow mouse position:
Code: QB64: [Select]
  1. '_title "Moving Bat Sprites" 'b+ 2021-08-07
  2. Screen _NewImage(800, 600, 32)
  3. _ScreenMove 300, 50
  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,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. Data 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
  12. Data 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
  13. Data 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  14. Data 0,0,0,0,0,0,1,1,1,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. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20.  
  21.  
  22. Dim Shared sprt(15, 15) 'sprite 1 bat wings up
  23.  
  24. For y = 0 To 15 '5* 16 = 80
  25.     For x = 0 To 15
  26.         Read sprt(x, y)
  27.     Next
  29.  
  31.     Cls , _RGB32(0, 0, 128)
  32.     While _MouseInput: Wend 'polls mouse
  33.     drawBat _MouseX - 40, _MouseY - 40 ' -40 because want to draw the bat around the mouse, sprite is 16 * 5 = 80
  34.     _Display
  35.     _Limit 20
  37.  
  38. Sub drawBat (bx, by)
  39.     sz = 5 ' scale the pixels into little 5x5 boxes for larger tile
  40.     For y = 0 To 15
  41.         For x = 0 To 15
  42.             If sprt(x, y) Then Line (x * sz + bx, y * sz + by)-Step(sz, sz), _RGB32(0, 0, 0), BF
  43.         Next
  44.     Next
  46.  
  47.  
« Last Edit: August 07, 2021, 02:37:57 pm by bplus »
Logged

Offline RobinGravel

  • Newbie
  • Posts: 30
    • View Profile
Re: Better way to moving 'sprites'
« Reply #6 on: August 07, 2021, 03:03:44 pm »
Thanks.

It's a good start.

I'll take a look at it.
« Last Edit: August 07, 2021, 03:05:38 pm by RobinGravel »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Better way to moving 'sprites'
« Reply #7 on: August 07, 2021, 04:47:21 pm »
Added 2nd sprite for some animation fun:
Code: QB64: [Select]
  1. _Title "Moving Bat Sprites, move mousewheel to increase or decrease bat size " 'b+ 2021-08-07
  2. Screen _NewImage(800, 600, 32)
  3. _ScreenMove 300, 50
  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,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. Data 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
  12. Data 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
  13. Data 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  14. Data 0,0,0,0,0,0,1,1,1,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. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20.  
  21. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  22. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  29. Data 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  30. Data 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
  31. Data 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
  32. Data 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
  33. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
  34. Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  35. Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  36. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  37.  
  38. Dim Shared sprt(15, 15) 'sprt() bat wings up
  39. Dim Shared flap, sz
  40.  
  41. For y = 0 To 15 '5* 16 = 80
  42.     For x = 0 To 15
  43.         Read sprt(x, y)
  44.     Next
  46.  
  47. Dim Shared sprt2(15, 15) ' sprt2() bat wings down
  48. For y = 0 To 15
  49.     For x = 0 To 15
  50.         Read sprt2(x, y)
  51.     Next
  55.     loopcount = loopcount + 1
  56.     If loopcount = 10 Then loopcount = 0: flap = 1 - flap
  57.     Cls , _RGB32(0, 0, 128)
  58.  
  59.     ' debug
  60.     'Print loopcount, flap
  61.  
  63.         sz = sz + _MouseWheel
  64.         If sz < 1 Then sz = 1
  65.         If sz > 20 Then sz = 20
  66.     Wend 'polls mouse
  67.     drawBat _MouseX - sz * 8, _MouseY - sz * 8 ' -40 because want to draw the bat around the mouse, sprite is 16 * 5 = 80
  68.     _Display
  69.     _Limit 20
  71.  
  72. Sub drawBat (bx, by)
  73.     ' shared now sz = 5 ' scale the pixels into little 5x5 boxes for larger tile
  74.     For y = 0 To 15
  75.         For x = 0 To 15
  76.             If flap Then
  77.                 If sprt(x, y) Then Line (x * sz + bx, y * sz + by)-Step(sz, sz), _RGB32(0, 0, 0), BF
  78.             Else
  79.                 If sprt2(x, y) Then Line (x * sz + bx, y * sz + by)-Step(sz, sz), _RGB32(0, 0, 0), BF
  80.             End If
  81.         Next
  82.     Next
  84.  
  85.  
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Better way to moving 'sprites'
« Reply #8 on: August 07, 2021, 05:44:41 pm »
Easiest way I know to do this is to just make your sprites sprites and then putimage them to the screen.

Code: QB64: [Select]
  1. _Title "Moving Bat Sprites, move mousewheel to increase or decrease bat size " 'b+ 2021-08-07
  2. Screen _NewImage(800, 600, 32)
  3. _ScreenMove 300, 50
  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,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  10. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  11. Data 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
  12. Data 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
  13. Data 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  14. Data 0,0,0,0,0,0,1,1,1,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. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  19. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  20.  
  21. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  22. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  23. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  24. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  25. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  26. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  27. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  28. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  29. Data 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  30. Data 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
  31. Data 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
  32. Data 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
  33. Data 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
  34. Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  35. Data 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  36. Data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  37.  
  38. Dim As Long bat(1)
  39. bat(0) = _NewImage(16, 16, 32): bat(1) = _NewImage(16, 16, 32)
  40.  
  41. For z = 0 To 1
  42.     If z Then _Dest bat(1) Else _Dest bat(0)
  43.     For y = 0 To 15 '5* 16 = 80
  44.         For x = 0 To 15
  45.             Read p
  46.             If p Then PSet (x, y), _RGB32(255, 255, 255)
  47.         Next
  48.     Next
  52.  
  55.     loopcount = loopcount + 1
  56.     If loopcount = 10 Then loopcount = 0: flap = Not flap
  57.     Cls , _RGB32(0, 0, 128)
  58.  
  60.         sz = sz + .1 * -_MouseWheel
  61.     Wend 'polls mouse
  62.     If sz < 1 Then sz = 1
  63.     If sz > 10 Then sz = 10
  64.     _PutImage (_MouseX, _MouseY)-Step(16 * sz, 16 * sz), bat(flap)
  65.     _Display
  66.     _Limit 20
  68.  

As you can see here, I've simply made two 16x16 sorites and then used READ to read the data and create my bat images, which I then simply use PUTIMAGE to display to the screen.  It doesn't get any easier than that.
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Better way to moving 'sprites'
« Reply #9 on: August 07, 2021, 07:24:17 pm »
Yeah that would be next step, bit of a learning curve though (with _NewImage with _Dest and _PutImage)

Sorite?, not Soarite? ;-))
« Last Edit: August 07, 2021, 07:29:50 pm by bplus »
Logged

Offline SMcNeill

  • QB64 Developer
  • Forum Resident
  • Posts: 3972
    • View Profile
    • Steve’s QB64 Archive Forum
Re: Better way to moving 'sprites'
« Reply #10 on: August 07, 2021, 09:50:08 pm »
Quote from: bplus on August 07, 2021, 07:24:17 pm
Sorite?, not Soarite? ;-))

Sprite with a typo, but it’s impossible to edit or correct it.  :P
Logged
https://github.com/SteveMcNeill/Steve64 — A github collection of all things Steve!

Offline RobinGravel

  • Newbie
  • Posts: 30
    • View Profile
Re: Better way to moving 'sprites'
« Reply #11 on: August 08, 2021, 11:36:37 am »
I also downloaded Dragon Warrior 64 to take a look how its sprites work.
Logged

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Re: Better way to moving 'sprites'
« Reply #12 on: August 08, 2021, 01:24:44 pm »
Quote from: RobinGravel on August 08, 2021, 11:36:37 am
I also downloaded Dragon Warrior 64 to take a look how its sprites work.

Hooray for me. X)
Logged
Granted after becoming radioactive I only have a half-life!
Pages: [1]   Go Up
« previous next »