API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 10th, 2012
128
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.60 KB | None | 0 0
raw download clone embed print report
  1. /* Cruiser dash mounted speed radar
  2. made by Srdjan. Today's date 31/08/2011
  3. All credits go to me */
  4.  
  5.  
  6. #include <a_samp>
  7.  
  8. #define COLOR_YELLOW 0xFFFF00AA
  9.  
  10. new VehRadarID [MAX_VEHICLES];
  11. new Text: RadarHud;
  12. new Text: SpeedAndModel [MAX_VEHICLES];
  13. new CheckingSpeed [MAX_VEHICLES];
  14. new OldVehID [MAX_PLAYERS];
  15.  
  16. forward UpdateSpeed (vehid);
  17. forward CheckValidTextDraws();
  18.  
  19.  
  20. new VehicleModel[212][] ={
  21. "Landstalker", "Bravura", "Buffalo", "Linerunner", "Perrenial","Sentinel", "Dumper", "Firetruck", "Trashmaster", "Stretch", "Manana",
  22. "Infernus", "Voodoo", "Pony", "Mule", "Cheetah", "Ambulance","Leviathan", "Moonbeam", "Esperanto", "Taxi",
  23. "Washington", "Bobcat","Whoopee", "BF Injection", "Hunter", "Premier","Enforcer", "Securicar", "Banshee",
  24. "Predator", "Bus", "Rhino", "Barracks", "Hotknife","Trailer 1", "Previon", "Coach", "Cabbie", "Stallion",
  25. "Rumpo", "RC Bandit", "Romero", "Packer","Monster", "Admiral", "Squalo","Seasparrow", "Pizzaboy", "Tram", "Trailer 2",
  26. "Turismo", "Speeder", "Reefer", "Tropic","Flatbed", "Yankee", "Caddy", "Solair","Berkley's RC Van", "Skimmer", "PCJ-600", "Faggio",
  27. "Freeway", "RC Baron", "RC Raider","Glendale", "Oceanic", "Sanchez", "Sparrow","Patriot", "Quad", "Coastguard", "Dinghy", "Hermes",
  28. "Sabre", "Rustler", "ZR-350","Walton", "Regina", "Comet", "BMX", "Burrito","Camper", "Marquis", "Baggage", "Dozer", "Maverick",
  29. "News Chopper", "Rancher","FBI Rancher", "Virgo", "Greenwood", "Jetmax", "Hotring","Sandking", "Blista Compact", "Police Maverick",
  30. "Boxvillde", "Benson","Mesa", "RC Goblin", "Hotring Racer A", "Hotring Racer B","Bloodring Banger", "Rancher", "Super GT", "Elegant",
  31. "Journey", "Bike", "Mountain Bike", "Beagle", "Cropduster","Stunt", "Tanker", "Roadtrain", "Nebula", "Majestic", "Buccaneer",
  32. "Shamal", "Hydra","FCR-900", "NRG-500", "HPV1000", "Cement Truck", "Tow Truck", "Fortune","Cadrona", "FBI Truck", "Willard",
  33. "Forklift", "Tractor", "Combine","Feltzer", "Remington", "Slamvan", "Blade", "Freight","Streak","Vortex", "Vincent", "Bullet",
  34. "Clover", "Sadler", "Firetruck LA","Hustler", "Intruder", "Primo", "Cargobob", "Tampa","Sunrise", "Merit","Utility", "Nevada",
  35. "Yosemite", "Windsor", "Monster A", "Monster B", "Uranus", "Jester", "Sultan","Stratum", "Elegy", "Raindance","RC Tiger",
  36. "Flash", "Tahoma", "Savanna", "Bandito","Freight Flat", "Streak Carriage", "Kart","Mower", "Dune", "Sweeper", "Broadway",
  37. "Tornado", "AT-400", "DFT-30", "Huntley", "Stafford","BF-400", "News Van", "Tug", "Trailer 3", "Emperor","Wayfarer", "Euros",
  38. "Hotdog","Club", "Freight Carriage", "Trailer 4","Andromada", "Dodo", "RC Cam", "Launch", "Police Car (LSPD)","Police Car (SFPD)",
  39. "Police Car (LVPD)", "Police Ranger", "Picador", "S.W.A.T", "Alpha","Phoenix", "Glendale", "Sadler", "Luggage Trailer A",
  40. "Luggage Trailer B", "Stairs", "Boxville", "Tiller", "Utility Trailer" };
  41.  
  42.  
  43. public OnFilterScriptInit ()
  44. {
  45. printf (" \nCruiser speed radar made by Srdjan loaded.\n");
  46.  
  47. SetTimer ("CheckValidTextDraws", 1000, 1);
  48.  
  49. RadarHud = TextDrawCreate (495.0, 200.0, "~b~Model: ~n~~r~Speed: kmph");
  50. TextDrawFont (RadarHud, 2);
  51. TextDrawLetterSize (RadarHud, 0.3, 1.0);
  52.  
  53. for (new i = 1; i <= MAX_VEHICLES; i++)
  54. {
  55. VehRadarID [i] = -1;
  56. SpeedAndModel [i] = TextDrawCreate (545.0, 200.0, "~b~ ~n~~r~");
  57. TextDrawFont (SpeedAndModel [i], 2);
  58. TextDrawLetterSize (SpeedAndModel [i], 0.3, 1.0);
  59. CheckingSpeed [i] = 0;
  60. }
  61.  
  62. return 1;
  63. }
  64.  
  65. public OnPlayerCommandText (playerid, cmdtext[])
  66. {
  67. if (!strcmp (cmdtext, "/placeradar"))
  68. {
  69. if (IsPlayerInAnyVehicle (playerid))
  70. {
  71. new vehid = GetPlayerVehicleID (playerid);
  72. if (VehRadarID [vehid] > -1) return 1;
  73.  
  74. new Float: x, Float: y, Float: z, Float: a;
  75. GetVehiclePos (vehid, x, y, z);
  76. GetVehicleZAngle (vehid, a);
  77. SendClientMessage (playerid, COLOR_YELLOW, "Radar has been added successfully.");
  78. VehRadarID [vehid] = CreateObject (367, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 300.0);
  79. AttachObjectToVehicle (VehRadarID [vehid], vehid, 0.2, 0.50, 0.3, 0.0, 0.0, 90.0);
  80.  
  81. for (new i = 0; i < MAX_PLAYERS; i++)
  82. {
  83. if (IsPlayerInVehicle (i, vehid))
  84. {
  85. TextDrawShowForPlayer (i, RadarHud);
  86. }
  87. }
  88. }
  89. return 1;
  90. }
  91.  
  92. if (!strcmp (cmdtext, "/removeradar"))
  93. {
  94. if (IsPlayerInAnyVehicle (playerid))
  95. {
  96. new vehid = GetPlayerVehicleID (playerid);
  97. if (VehRadarID [vehid] == -1) return 1;
  98.  
  99. DestroyObject (VehRadarID [vehid]);
  100. SendClientMessage (playerid, COLOR_YELLOW, "Radar has been removed successfully.");
  101. VehRadarID [vehid] = -1;
  102. KillTimer (CheckingSpeed [vehid]);
  103. CheckingSpeed [vehid] = -1;
  104.  
  105. for (new i = 0; i < MAX_PLAYERS; i++)
  106. {
  107. if (IsPlayerInVehicle (i, vehid))
  108. {
  109. TextDrawHideForPlayer (i, RadarHud);
  110. TextDrawHideForPlayer (playerid, SpeedAndModel [vehid]);
  111. }
  112. }
  113. }
  114. return 1;
  115. }
  116.  
  117. if (!strcmp (cmdtext, "/checkspeed"))
  118. {
  119. if (IsPlayerInAnyVehicle (playerid))
  120. {
  121. new vehid = GetPlayerVehicleID (playerid);
  122. if (VehRadarID [vehid] == -1) return 1;
  123. CheckingSpeed [vehid] = SetTimerEx ("UpdateSpeed", 100, 1, "d", vehid);
  124. }
  125. return 1;
  126. }
  127.  
  128. if (!strcmp (cmdtext, "/stopchecking"))
  129. {
  130. if (IsPlayerInAnyVehicle (playerid))
  131. {
  132. new vehid = GetPlayerVehicleID (playerid);
  133. if (CheckingSpeed [vehid] > 0)
  134. {
  135. KillTimer (CheckingSpeed [vehid]);
  136. CheckingSpeed [vehid] = -1;
  137. }
  138. for (new i = 0; i < MAX_PLAYERS; i++)
  139. {
  140. if (IsPlayerInVehicle (i, vehid))
  141. {
  142. TextDrawHideForPlayer (i, SpeedAndModel [vehid]);
  143. }
  144. }
  145. }
  146. return 1;
  147. }
  148.  
  149. if (!strcmp (cmdtext, "/issueticket"))
  150. {
  151. if (IsPlayerInAnyVehicle (playerid))
  152. {
  153. new vehid = GetPlayerVehicleID (playerid);
  154. if (CheckingSpeed [vehid] > -1)
  155. {
  156. for (new i = 0; i < MAX_PLAYERS; i++)
  157. {
  158. if (IsPlayerConnected (i) && i != playerid)
  159. {
  160. if (IsPlayerInVehicle (i, GetVehicleInfrontID (vehid)))
  161. {
  162. if (GetPlayerVehicleSeat (i) == 0)
  163. {
  164. GivePlayerMoney (i, -1500);
  165. }
  166. }
  167. }
  168. }
  169. }
  170. }
  171. return 1;
  172. }
  173.  
  174. return 0;
  175. }
  176.  
  177. GetVehicleInfrontID (vehid)
  178. {
  179. new Float: temp = 7.0;
  180. new j = 0;
  181. for (new i = 1; i <= MAX_VEHICLES; i++)
  182. {
  183. new Float: a, Float: x1, Float: y1, Float: z1, Float: x2, Float: y2, Float: z2;
  184. GetVehiclePos (vehid, x1, y1, z1);
  185. GetVehicleZAngle (vehid, a);
  186. if (i != vehid)
  187. {
  188. if (GetVehiclePos (i, x2, y2, z2))
  189. {
  190. new Float: distance = floatsqroot (floatpower ((x1 - x2), 2) + floatpower ((y1 - y2), 2) + floatpower ((z1 - z2), 2));
  191. GetVehicleZAngle (vehid, a);
  192.  
  193. if (distance < 300.0)
  194. {
  195. x1 = x1 + (distance * floatsin(-a, degrees));
  196. y1 = y1 + (distance * floatcos(-a, degrees));
  197.  
  198. distance = floatsqroot ((floatpower ((x1 - x2), 2)) + (floatpower ((y1 - y2), 2)));
  199.  
  200. if (temp > distance)
  201. {
  202. temp = distance;
  203. j = i;
  204. }
  205. }
  206. }
  207. }
  208. }
  209. if (temp < 7.0) return j;
  210. return -1;
  211. }
  212.  
  213. public UpdateSpeed (vehid)
  214. {
  215. new id = GetVehicleInfrontID (vehid);
  216. if (id < 0)
  217. {
  218. TextDrawSetString (SpeedAndModel [vehid], "~b~N/A ~n~~r~N/A");
  219. }
  220. else
  221. {
  222. new str[32], Float: velocityX, Float: velocityY, Float: velocityZ;
  223. GetVehicleVelocity (id, velocityX, velocityY, velocityZ);
  224. new speed = floatround (floatsqroot (floatpower (velocityX, 2) + floatpower (velocityY, 2) + floatpower (velocityZ, 2)) * 136.666667, floatround_round);
  225. format (str, sizeof (str), "~b~%s ~n~~r~%d", VehicleModel [GetVehicleModel (id) - 400], speed);
  226. TextDrawSetString (SpeedAndModel [vehid], str);
  227. }
  228.  
  229. for (new i = 0; i < MAX_PLAYERS; i++)
  230. {
  231. if (IsPlayerInVehicle (i, vehid))
  232. {
  233. TextDrawShowForPlayer (i, SpeedAndModel [vehid]);
  234. }
  235. }
  236. return 1;
  237. }
  238.  
  239. public CheckValidTextDraws()
  240. {
  241. for (new i = 0; i < MAX_PLAYERS; i++)
  242. {
  243. if (IsPlayerConnected (i))
  244. {
  245. if (IsPlayerInAnyVehicle (i))
  246. {
  247. new vehid = GetPlayerVehicleID (i);
  248. if (VehRadarID [vehid] > -1)
  249. {
  250. TextDrawShowForPlayer (i, RadarHud);
  251. if (CheckingSpeed [vehid] > 0)
  252. {
  253. TextDrawShowForPlayer (i, SpeedAndModel [vehid]);
  254. }
  255. else
  256. {
  257. TextDrawHideForPlayer (i, SpeedAndModel [vehid]);
  258. }
  259. }
  260. else
  261. {
  262. TextDrawHideForPlayer (i, RadarHud);
  263. }
  264. }
  265.  
  266. else
  267. {
  268. TextDrawHideForPlayer (i, RadarHud);
  269. TextDrawHideForPlayer (i, SpeedAndModel [OldVehID[i]]);
  270. OldVehID [i] = 0;
  271. }
  272. }
  273. }
  274. return 1;
  275. }
  276.  
  277. public OnPlayerStateChange (playerid, newstate, oldstate)
  278. {
  279. if ((oldstate == PLAYER_STATE_ONFOOT) && (newstate == PLAYER_STATE_PASSENGER || newstate == PLAYER_STATE_DRIVER))
  280. {
  281. OldVehID [playerid] = GetPlayerVehicleID (playerid);
  282. }
  283. return 1;
  284. }
  285.  
  286. public OnVehicleDeath (vehicleid)
  287. {
  288. DestroyObject (VehRadarID [vehicleid]);
  289. VehRadarID [vehicleid] = -1;
  290. KillTimer (CheckingSpeed [vehicleid]);
  291. CheckingSpeed [vehicleid] = -1;
  292. for (new i = 0; i < MAX_PLAYERS; i++)
  293. {
  294. if (IsPlayerInVehicle (i, vehicleid))
  295. {
  296. TextDrawHideForPlayer (i, RadarHud);
  297. TextDrawHideForPlayer (i, SpeedAndModel [vehicleid]);
  298. }
  299. }
  300. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!