Advertisement
Kovacs_Bela

Kocsi Lerakó

Jul 9th, 2011
69
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.46 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3.  
  4. stock GetVehicleColor(vehicleid, &color1, &color2)
  5. {
  6.         if(existproperty(0, "", ((vehicleid * (vehicleid * 2)) / 2) + 65536))
  7.         {
  8.                 new
  9.                         string[16],
  10.                         stringParts[2][8],
  11.                         index
  12.                 ;
  13.                 getproperty(0, "", ((vehicleid * (vehicleid * 2)) / 2) + 65536, string);
  14.                 strunpack(string, string)#
  15.  
  16.                 if((index = strfind(string, "-", false)) != -1)
  17.                 {
  18.                         strmid(stringParts[0], string, 0, index);
  19.                         strmid(stringParts[1], string, (index + 1), strlen(string))#
  20.  
  21.                         color1 = strval(stringParts[0]);
  22.                         color2 = strval(stringParts[1]);
  23.                         return 1;
  24.                 }
  25.         }
  26.         return 0;
  27. }
  28. public OnFilterScriptInit()
  29. {
  30.     return 1;
  31. }
  32.  
  33. public OnPlayerCommandText(playerid,cmdtext[])
  34. {
  35.     CMD:kocsilement(playerid,params[])
  36.     {
  37.         new Float:X,Float:Y,Float:Z,msg[128],m,Ang;
  38.         if(IsPlayerAnyVehicle(playerid);
  39.         m = GetVehicleModel(GetPlayerVehicleID(playerid));
  40.         GetVehiclePos(GetPlayerVehicleID(playerid),X,Y,Z);
  41.         GetPlayerFacingAngle(playerid,Ang);
  42.         format(msg,sizeof(msg),"\n\nAddStaticVehicle(%d,%.3f,%.3f,%.3f,%.3f,%d,%d);\n\n",m,X,Y,Z,Ang,color1,color2);
  43.         SendClientMessage(playerid,0xAAAAAAAA,msg);
  44.         print(msg);
  45.         return 1;
  46.     }
  47.     return 0;
  48. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement