Guest User

Untitled

a guest
Feb 3rd, 2012
120
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.04 KB | None | 0 0
  1. #include <a_samp>
  2.  
  3. new dzwig;
  4. new timer;
  5. new timer2;
  6.  
  7. public OnFilterScriptInit()
  8. {
  9.     SetTimer("DzwigRot",4000, true);
  10.     dzwig = CreateObject(1384,1824.01867676,1429.07995605,70.27137756,0.00000000,0.00000000,130.00000000); //object(twrcrane_m_01) (1)
  11.     return 1;
  12. }
  13.  
  14.  
  15. forward DzwigRot();
  16. public DzwigRot(){
  17. new Float:RotX,Float:RotY,Float:RotZ;
  18. GetObjectRot(dzwig, RotX, RotY, RotZ);
  19. if(RotZ == 130.0){
  20. timer = SetTimer("DodawanieRot", 200, true);
  21. }
  22. if(RotZ == 140.0){
  23. timer2 = SetTimer("OdejmowenieRot", 200, true);
  24. }
  25. return 1;
  26. }
  27.  
  28. forward DodawanieRot();
  29. public DodawanieRot(){
  30. new Float:RotX,Float:RotY,Float:RotZ;
  31. GetObjectRot(dzwig, RotX, RotY, RotZ);
  32. SetObjectRot(dzwig, RotX, RotY, RotZ+0.2);
  33. GetObjectRot(dzwig, RotX, RotY, RotZ);
  34. if(RotZ == 140.0)KillTimer(timer);
  35. }
  36.  
  37.  
  38. forward OdejmowenieRot();
  39. public OdejmowenieRot(){
  40. new Float:RotX,Float:RotY,Float:RotZ;
  41. GetObjectRot(dzwig, RotX, RotY, RotZ);
  42. SetObjectRot(dzwig, RotX, RotY, RotZ-0.2);
  43. GetObjectRot(dzwig, RotX, RotY, RotZ);
  44. if(RotZ == 130.0)KillTimer(timer2);
  45. }
Advertisement
Add Comment
Please, Sign In to add comment