Stuneris

Car rental

Feb 12th, 2014
1,949
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.02 KB | None | 0 0
  1. #include <a_samp>
  2.  
  3. // Script configuration
  4. #define RENT_PRICE 10 // Dolars per minute
  5. // Script configuration
  6.  
  7. enum rentalConfig { model, Float:x, Float:y, Float:z, Float:a }
  8. new rentalCars[][rentalConfig] =
  9. {
  10.     {495, 0.0, 0.0, 0.0, 0.0},
  11.     {411, 0.0, 0.0, 0.0, 0.0}
  12.   //{model, coord x, coord y, coord z, angle}
  13. };
  14. new rentalCarID[sizeof(rentalCars)], rentTimer[MAX_PLAYERS];
  15.  
  16. forward RentingCar(playerid);
  17.  
  18. public OnGameModeInit()
  19. {
  20.     for(new i=0; i<=sizeof(rentalCars); i++) rentalCarID[i] = CreateVehicle(rentalCars[i][model], rentalCars[i][x], rentalCars[i][y], rentalCars[i][z], rentalCars[i][a], 0, 0, -1);
  21.     return 1;
  22. }
  23.  
  24. public OnPlayerDisconnect(playerid, reason)
  25. {
  26.     KillTimer(rentTimer[playerid]);
  27.     return 1;
  28. }
  29.  
  30. public OnPlayerCommandText(playerid, cmdtext[])
  31. {
  32.     if(strcmp("/rentstop", cmdtext, true, 10) == 0)
  33.     {
  34.         KillTimer(rentTimer[playerid]);
  35.         RemovePlayerFromVehicle(playerid);
  36.         SetVehicleToRespawn(GetPlayerVehicleID(playerid));
  37.         return 1;
  38.     }
  39.     /*
  40.     CMD:rentstop(playerid, params[])
  41.     {
  42.         KillTimer(rentTimer[playerid]);
  43.         RemovePlayerFromVehicle(playerid);
  44.         SetVehicleToRespawn(vehicleid);
  45.         return 1;
  46.     }
  47.     */
  48.     return 0;
  49. }
  50.  
  51. public OnPlayerStateChange(playerid, newstate, oldstate)
  52. {
  53.     if(newstate == PLAYER_STATE_DRIVER)
  54.     {
  55.         for(new i=0; i<=sizeof(rentalCars); i++)
  56.         {
  57.             if(GetPlayerVehicleID(playerid) == rentalCarID[i])
  58.             {
  59.                 if(GetPlayerMoney(playerid) < RENT_PRICE) return SendClientMessage(playerid, 0xFF0000FF, "Jūs negalite leisti sau išsinuomoti šią mašiną.");
  60.                 rentTimer[playerid] = SetTimerEx("RentingCar", 60000, true, "i", playerid);
  61.             }
  62.         }
  63.     }
  64.     return 1;
  65. }
  66.  
  67. public RentingCar(playerid)
  68. {
  69.     GivePlayerMoney(playerid, -RENT_PRICE);
  70.     if(GetPlayerMoney(playerid) < RENT_PRICE)
  71.     {
  72.         SendClientMessage(playerid, 0xFF0000FF, "Jūs nebegalite leisti sau išsinuomoti šios mašinos.");
  73.         KillTimer(rentTimer[playerid]);
  74.         RemovePlayerFromVehicle(playerid);
  75.         SetVehicleToRespawn(GetPlayerVehicleID(playerid));
  76.     }
  77.     return 1;
  78. }
Advertisement
Add Comment
Please, Sign In to add comment