Advertisement
Guest User

Untitled

a guest
Mar 3rd, 2012
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.58 KB | None | 0 0
  1. if (move == 0)
  2. {
  3. image_speed = 0;
  4. image_index = 1;
  5. speed = 0;
  6. }
  7. if (move == 1)
  8. {
  9. image_speed = .15;
  10. speed = 1.5;
  11. }
  12.  
  13. // Key pressed.
  14. if (keyboard_check(ord('W')) && move == 0)
  15. {
  16. if (place_meeting(x, y - speed, o_Block) == 0)
  17. {
  18. move = 1;
  19. direction = 90;
  20. sprite_index = WALK_BACK;
  21. }
  22. }
  23.  
  24. if (keyboard_check(ord('A')) && move == 0)
  25. {
  26. if (place_meeting(x - speed, y, o_Block) == 0)
  27. {
  28. move = 1;
  29. direction = 180;
  30. sprite_index = WALK_LEFT;
  31. }
  32. }
  33.  
  34. if (keyboard_check(ord('S')) && move == 0)
  35. {
  36. if (place_meeting(x, y + speed, o_Block) == 0)
  37. {
  38. move = 1;
  39. direction = 270;
  40. sprite_index = WALK_FRONT;
  41. }
  42. }
  43.  
  44. if (keyboard_check(ord('D')) && move == 0)
  45. {
  46. if (place_meeting(x + speed, y, o_Block) == 0)
  47. {
  48. move = 1;
  49. direction = 0;
  50. sprite_index = WALK_RIGHT;
  51. }
  52. }
  53.  
  54. // Two keys pressed.
  55. if (keyboard_check(ord('W')) && keyboard_check(ord('D')))
  56. {
  57. direction = 45;
  58. }
  59.  
  60. if (keyboard_check(ord('W')) && keyboard_check(ord('A')))
  61. {
  62. direction = 135;
  63. }
  64.  
  65. if (keyboard_check(ord('S')) && keyboard_check(ord('A')))
  66. {
  67. direction = 225;
  68. }
  69.  
  70. if (keyboard_check(ord('S')) && keyboard_check(ord('D')))
  71. {
  72. direction = 315;
  73. }
  74.  
  75. // Key released.
  76. if (keyboard_check_released(ord('W')))
  77. {
  78. move = 0;
  79. }
  80.  
  81. if (keyboard_check_released(ord('A')))
  82. {
  83. move = 0;
  84. }
  85.  
  86. if (keyboard_check_released(ord('S')))
  87. {
  88. move = 0;
  89. }
  90.  
  91. if (keyboard_check_released(ord('D')))
  92. {
  93. move = 0;
  94. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement