Advertisement
Guest User

Untitled

a guest
Jan 23rd, 2017
83
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.15 KB | None | 0 0
  1. forward OnVehicleLoad(playerid);
  2. public OnVehicleLoad(playerid)
  3. {
  4. new AllCars;
  5.  
  6. AllCars = cache_num_rows();
  7.  
  8. printf("[SERVER: Žaidėjas turi %i automobiliu]", AllCars);
  9.  
  10. if(AllCars > 0)
  11. {
  12. new
  13. Float:Possition[4],
  14. lModelis,
  15. lSavininkas[MAX_PLAYER_NAME],
  16. lMasina,
  17. lSpalva1, lSpalva2,
  18. tInformacija[30], tSlotas[14],
  19. lPaintjob, lKuras,
  20. lUzraktas,
  21. lIDD, lTipas,
  22. lRida, Float:lBukle,
  23.  
  24. lSunaikinta = cache_get_field_content_int(0, "Sunaikinta");
  25.  
  26. if(lSunaikinta == 0)
  27. {
  28. lModelis = cache_get_field_content_int(0, "Model");
  29. lIDD = cache_get_field_content_int(0, "ID");
  30. Possition[0] = cache_get_field_content_float(0, "POSx");
  31. Possition[1] = cache_get_field_content_float(0, "POSz");
  32. Possition[2] = cache_get_field_content_float(0, "POSy");
  33. Possition[3] = cache_get_field_content_float(0, "POSa");
  34. lRida = cache_get_field_name(0, "Rida");
  35. lBukle = cache_get_field_content_float(0, "Bukle");
  36. lSpalva1 = cache_get_field_content_int(0, "Spalva1");
  37. lSpalva2 = cache_get_field_content_int(0, "Spalva2");
  38. lPaintjob = cache_get_field_content_int(0, "Paintjob");
  39. lKuras = cache_get_field_content_int(0, "Kuras");
  40. lUzraktas = cache_get_field_content_int(0, "Uzraktas");
  41. lTipas = cache_get_field_content_int(0, "Tipas");
  42.  
  43. for(new t; t < 14; t++)
  44. {
  45. format(tInformacija, 30, "Tune%i", t);
  46. tSlotas[t] = cache_get_field_content_int(0, tInformacija);
  47. }
  48.  
  49. lMasina = CreateVehicle(lModelis, Possition[0], Possition[1],
  50. Possition[2], Possition[3], lSpalva1, lSpalva2, -1);
  51. a_Automobilis[lMasina][a_Rida] = lRida;
  52. SetVehicleHealth(lMasina, lBukle);
  53. a_Automobilis[lMasina][a_Spalva1] = lSpalva1;
  54. a_Automobilis[lMasina][a_Spalva2] = lSpalva2;
  55. ChangeVehiclePaintjob(lMasina, lPaintjob);
  56. a_Automobilis[lMasina][a_Kuras] = lKuras;
  57. a_Automobilis[lMasina][a_Uzraktas] = lUzraktas;
  58. a_Automobilis[lMasina][a_Tipas] = lTipas;
  59. a_Automobilis[lMasina][a_ID] = lIDD;
  60.  
  61. format(a_Automobilis[lMasina][a_Owner], 50, "%s",lSavininkas);
  62. }
  63.  
  64. }
  65. return 1;
  66. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement