Advertisement
matrefeytontias

[Axe] Jumps engine (Ti-Editor compatible)

Mar 3rd, 2012
389
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.94 KB | None | 0 0
  1. :.AAA
  2. :∆List(0,0,0,0,0)→GDB1J
  3. :
  4. :48→X-48→Y
  5. :
  6. :[FFFFFFFFFFFFFFFF→Pic1
  7. :
  8. :Repeat getKey(15)
  9. : Line(0,50,48,50
  10. : Line(48,63,95,63
  11. : getKey(2)?X-2→X
  12. : getKey(3)?X+2→X
  13. :
  14. : If {GDB1J}=0 and {GDB1J+4} and getKey(54)
  15. : 1→{GDB1J}→{GDB1J+2}→{GDB1J+4}*10→{GDB1J+1
  16. : Y→{GDB1J+3
  17. : End
  18. :
  19. : If {GDB1J}
  20. : {GDB1J+1}-{GDB1J+2}→{GDB1J+1}
  21. : ‾int(GDB1J+1}//2+Y→Y
  22. : {GDB1J+3}≤Y?0→{GDB1J
  23. : End
  24. :
  25. : For(r<sub>1</sub>,0,7)
  26. : For(r<sub>2</sub>,0,4)
  27. : int(GDB1J+1}≤≤0 and Pxl-Test(X+r<sub>1</sub>,Y+7+r<sub>2</sub>)?0→{GDB1J}+1→{GDB1J+4}+Y+r<sub>2</sub>-2→Y
  28. : End
  29. : End
  30. :
  31. : 0→{GDB1J+4
  32. :
  33. : For(r<sub>1</sub>,0,7)
  34. : For(r<sub>2</sub>,0,4)
  35. : !If Pxl-Test(X+r<sub>1</sub>,Y+7+r<sub>2</sub>) or {GDB1J} or {GDB1J+4}
  36. : →{GDB1J+4
  37. : Else!If {GDB1J} or {GDB1J+4}
  38. : 1→{GDB1J+4
  39. : End
  40. : End
  41. : End
  42. :
  43. : {GDB1J} or {GDB1J+4}??Y+4→Y
  44. : Pt-On(X,Y,Pic1
  45. : DispGraphClrDraw
  46. : Pause 50
  47. :End
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement