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

Untitled

By: a guest on Aug 19th, 2012  |  syntax: None  |  size: 1.32 KB  |  hits: 14  |  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. #include <a_samp>
  2.  
  3.  
  4. #define OBJECT_MODEL  1607 // whale id
  5. #define OBJECT_SPEED 3.0 //How fast it gonna follow you
  6. new
  7.         Float:PL_POS[MAX_PLAYERS][4],
  8.         ACTIVE_PL[MAX_PLAYERS],
  9.         OBJ_ID[MAX_PLAYERS];
  10.  
  11.  
  12. public OnFilterScriptInit()
  13. {
  14.         SetTimer("T_REFRESH", 500, true);
  15.         return 1;
  16. }
  17.  
  18.  
  19. public OnPlayerCommandText(playerid, cmdtext[])
  20. {
  21.         if (strcmp("/createwhale", cmdtext, true, 10) == 0)
  22.         {
  23.             ACTIVE_PL[playerid]=1;
  24.             GetPlayerPos(playerid, PL_POS[playerid][0], PL_POS[playerid][1], PL_POS[playerid][2]);
  25.             GetPlayerFacingAngle( playerid, PL_POS[playerid][3]);
  26.             OBJ_ID[playerid] = CreateObject(OBJECT_MODEL,PL_POS[playerid][0]-1.0, PL_POS[playerid][1], PL_POS[playerid][2],87.640026855469,342.13500976563, 350.07507324219);
  27.             SetObjectRot( OBJ_ID[playerid],PL_POS[playerid][3], PL_POS[playerid][3],PL_POS[playerid][3] );
  28.             SetTimerEx("T_REFRESH",500,0,"i",playerid);
  29.                 return 1;
  30.         }
  31.         return 0;
  32. }
  33.  
  34. forward T_REFRESH(playerid);
  35. public T_REFRESH(playerid)
  36. {
  37.     GetPlayerPos(playerid, PL_POS[playerid][0], PL_POS[playerid][1], PL_POS[playerid][2]);
  38.     GetPlayerFacingAngle( playerid, PL_POS[playerid][3]);
  39.     MoveObject(OBJ_ID[playerid], PL_POS[playerid][0]-1.0, PL_POS[playerid][1], PL_POS[playerid][2], OBJECT_SPEED);
  40.     SetObjectRot( OBJ_ID[playerid],0.0, 0.0,PL_POS[playerid][3] );
  41.         return 1;
  42. }