Advertisement
KaLu17

Submarine Scripts, SA:MP

Apr 7th, 2014
755
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.92 KB | None | 0 0
  1. #include <a_samp>
  2. #include <zcmd>
  3.  
  4. main()
  5. {
  6.     print("Autor: KaLu\nPomysł: Jingles");
  7. }
  8.  
  9. new submarine, submarine_object;
  10.  
  11. public OnFilterScriptInit()
  12. {
  13.     submarine = CreateVehicle(484, -1899.1563, 1476.7891, 5.7422, 0, 0, 0, 0);
  14.     submarine_object = CreateObject(9958, 0, 0, 0, 0, 0, 180), AttachObjectToVehicle(submarine_object, submarine, 0, 0, 5.7422, 0.00000, 0.00000, 180.00000);
  15.     LinkVehicleToInterior(submarine, (submarine * MAX_PLAYERS));
  16.     return 1;
  17. }
  18.  
  19. public OnFilterScriptExit()
  20. {
  21.     DestroyVehicle(submarine), DestroyObject(submarine_object);
  22.     return 1;
  23. }
  24.  
  25. public OnPlayerConnect(playerid)
  26. {
  27.     RemoveBuildingForPlayer(playerid, 9958, -1899.1563, 1476.7891, 5.7422, 0.25);
  28.     RemoveBuildingForPlayer(playerid, 10285, -1899.1563, 1476.7891, 5.7422, 0.25);
  29.     return 1;
  30. }
  31.  
  32. CMD:submarine(playerid, params[])
  33. {
  34.     if(!IsPlayerInRangeOfPoint(playerid, 30.0, -1899.1563, 1476.7891, 5.7422) || GetPlayerVirtualWorld(playerid) != 0)
  35.     {
  36.         SendClientMessage(playerid, 0xBA1010FF, "Nie znajdujesz się w porcie, przy którym zacumowana powinna być łódź podwodna.");
  37.         return 1;
  38.     }
  39.    
  40.     new Float:submarine_pos[3]; GetVehiclePos(submarine, submarine_pos[0], submarine_pos[1], submarine_pos[2]);
  41.    
  42.     if(!IsPlayerInRangeOfPoint(playerid, 30.0, submarine_pos[0], submarine_pos[1], submarine_pos[2]) || IsVehicleInUse(submarine) != INVALID_PLAYER_ID)
  43.     {
  44.         SendClientMessage(playerid, 0xBA1010FF, "Łódź nie znajduje się w Twojej okolicy lub też jest zajęta przez innego gracza.");
  45.         return 1;
  46.     }
  47.    
  48.     SendClientMessage(playerid, 0xBA1010FF, "Zostajesz umieszczony w łodzi podwodnej.");
  49.    
  50.     return PutPlayerInVehicle(playerid, submarine, 0);
  51. }
  52.  
  53. CMD:test(playerid, params[])
  54. {
  55.     SetPlayerPos(playerid, -1899.1563, 1476.7891, 10.7422);
  56.     return 1;
  57. }
  58.  
  59. stock IsVehicleInUse(vehicleid)
  60. {
  61.     for(new i; i != MAX_PLAYERS; i++)
  62.     {
  63.         if(GetPlayerVehicleID(i) == vehicleid)
  64.         {
  65.             return i;
  66.         }
  67.     }
  68.     return INVALID_PLAYER_ID;
  69. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement