Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

prgmAR01: General Routines(walking, tilemapping, textbox)

By: yeongJIN_COOL on Jan 10th, 2012  |  syntax: None  |  size: 0.95 KB  |  hits: 21  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. :.0:
  2. :Stop
  3. :.TILE
  4. :ClrDraw
  5. :Pt-Change(0,M,T,W',X',Y',0
  6. :Line(80,0,64,16,1
  7. :Line(81,1,62,14,0
  8. :Pt-On(0,S+F'*8,Y*8,X,1,8
  9. :Y+Y'
  10. :*W'
  11. :+X'+X
  12. :→T'
  13. :Text('0,0,T'
  14. :Text('0,21,X'
  15. :Text('6,21,Y'
  16. :DispGraph
  17. :End
  18. :.MOVE
  19. :getKey→H
  20. :F'
  21. :If H=1
  22. :0
  23. :If H=4
  24. :1
  25. :If H=2
  26. :2
  27. :If H=3
  28. :3
  29. :→F'
  30. :0→G
  31. :X'
  32. :If H=2 *!(M+T'-1) *X' *X=5
  33. :1→G X'-1
  34. :If H=3 *!(M+T'+1) *X=5 *W'≠X'+10
  35. :1→G X'+1
  36. :If W'<X'+10
  37. :X'
  38. :→X'
  39. :X
  40. :If H=2 *!(M+T'-1) *!G
  41. :-1
  42. :If H=3 *!(M+T'+1) *!G
  43. :+1
  44. :If  >9
  45. :X
  46. :→X
  47. :0→G
  48. :Y'
  49. :If H=4 *!(M+T'-W') *Y' *Y=4
  50. :1→G Y'-1→Y'
  51. :If H=1 *!(M+T'+W') *Y=4 *H'≠Y'+8
  52. :1→G Y'+1→Y'
  53. :If H'<Y'+8
  54. :Y'
  55. :→Y'
  56. :Y
  57. :If H=4 *!(M+T'-W') *!G
  58. :-1
  59. :If H=1 *!(M+T'+W') *!G
  60. :+1
  61. :If  >7
  62. :Y
  63. :→Y
  64. :End
  65. :.TEXT
  66. :Fix Text(A'
  67. :0→B'
  68. :If Y>4
  69. :1→B'
  70. :Line(0,B',22,80,1
  71. :Line(1,1+B',20,78,0
  72. :/Text(2+B',1,N
  73. :/Text(8+B',1,O
  74. :/Text(14+B',1,P
  75. :Pxl-On(19+B',76
  76. :DispGraph
  77. :Repeat getKey=9
  78. :End
  79. :Pause 15
  80. :End
  81. :
create a new version of this paste RAW Paste Data