API tools faq
paste
Advertisement
matrefeytontias

Isometric scrolling 3D engine - Axe (not fixed)

matrefeytontias
Feb 23rd, 2012
380
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.87 KB | None | 0 0
raw download clone embed print report
  1. :.CUBES
  2. :
  3. :DiagnosticOff
  4. :ClrDrawrr
  5. :0→H+1→V
  6. :
  7. :.Masked cube
  8. :[0106186080E09886→Pic1
  9. :[01071F7FFFFFFFFF
  10. :[8060180601071961
  11. :[80E0F8F7FFFFFFFF
  12. :[8180806018060100
  13. :[FFFFFF7F1F070100
  14. :[8101010618608000
  15. :[FFFFFFFEF8E08000
  16. :
  17. :.Unoptimized map
  18. :[00000000000000→GDB1
  19. :[00000100000000
  20. :[00010100000000
  21. :[00010001000000
  22. :[01000001000000
  23. :[01000000010000
  24. :[01000001000000
  25. :[00010001000000
  26. :[00010100000000
  27. :[00000100000000
  28. :[00000000000000
  29. :[00000000000000
  30. :[00000000000000
  31. :
  32. :Repeat getKey(15)
  33. : For(r1,0,11)
  34. : For(r2,0,6)
  35. : If {r1+V*7+r2-H+GDB1}→A
  36. : -1→A
  37. : r1^2*8→r3
  38. : r1*4→r4
  39. : r2*16+r3→r5
  40. :
  41. : For(r6,0,3)
  42. : Pt-Mask(r6^2*8+r5,r6/2^2*8+r4,r6*8+A*2+Pic1
  43. : End
  44. : End
  45. : End
  46. : End
  47. :
  48. : V and getKey(1)?V--
  49. : H<1 and getKey(2)?H++
  50. : H and getKey(3)?H--
  51. : V<1 and getKey(4)?V++
  52. :
  53. : DispGraphrClrDrawrr
  54. :End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!