Guest User

Untitled

a guest
Jun 15th, 2013
115
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.24 KB | None | 0 0
  1. ascent(i in 0..Shells)
  2. {
  3. let ShellID = ShellCount[i];
  4. if(ShellXDir[i] == 0)
  5. {
  6. ShellXDir[i] = ShellXDir[i] - 1;
  7. }
  8. if(ShellTimer%16<4)
  9. {
  10. ObjSprite2D_SetSourceRect(ShellID, 2, 74, 34, 106);
  11. }
  12. else if(ShellTimer%16<8)
  13. {
  14. ObjSprite2D_SetSourceRect(ShellID, 38, 74, 70, 106);
  15. }
  16. else if(ShellTimer%16<12)
  17. {
  18. ObjSprite2D_SetSourceRect(ShellID, 74, 74, 106, 106);
  19. }
  20. else
  21. {
  22. ObjSprite2D_SetSourceRect(ShellID, 110, 74, 142, 106);
  23. }
  24. ObjSprite2D_SetDestCenter(ShellID);
  25.  
  26. ObjMove_SetX(ShellID, ObjMove_GetX(ShellID)+6*ShellXDir[i]);
  27. ObjMove_SetY(ShellID, ObjMove_GetY(ShellID)+ShellVelocityY[i]);
  28. ShellVelocityY[i]=ShellVelocityY[i]+0.25;
  29. if(ShellVelocityY[i] > 15)
  30. {
  31. ShellVelocityY[i] = 15;
  32. }
  33. if(ObjMove_GetY(ShellID) >= GetStgFrameHeight-5)
  34. {
  35. ShellVelocityY[i] = -13;
  36. ObjMove_SetY(ShellID, GetStgFrameHeight-6);
  37. }
  38. if(ObjMove_GetX(ShellID) <= 0)
  39. {
  40. ShellXDir[i] = -(ShellXDir[i]);
  41. ObjMove_SetX(ShellID, 1);
  42. }
  43. else if(ObjMove_GetX(ShellID) >= GetStgFrameWidth)
  44. {
  45. ShellXDir[i] = -(ShellXDir[i]);
  46. ObjMove_SetX(ShellID, GetStgFrameWidth-1);
  47. }
  48. }
Advertisement
Add Comment
Please, Sign In to add comment