Advertisement
Guest User

Simple Teleport System v1.2

a guest
Apr 16th, 2016
409
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 7.16 KB | None | 0 0
  1. //==============================================================================
  2. #include <a_samp>
  3. #include <zcmd>
  4. #include <mSelection>
  5. //==============================================================================
  6. #define COLOR_LIGHTBLUE 0x33CCFFAA
  7. #define FS_BY "Zorona"
  8. #define FS_VER "1.2"
  9. #define DIALOG_VEHICLES 1337
  10. //==============================================================================
  11. #define red   "{FF0000}"
  12. #define grey  "{AFAFAF}"
  13. #define green "{00FF00}"
  14. //==============================================================================
  15. new CountDownVarible = 4;
  16. new CountDownTimer;
  17. new playerCar[MAX_PLAYERS];
  18. new Airplanes = mS_INVALID_LISTID;
  19. new Bikes = mS_INVALID_LISTID;
  20. new Boats = mS_INVALID_LISTID;
  21. new Convertible = mS_INVALID_LISTID;
  22. new Helicopters = mS_INVALID_LISTID;
  23. new Industrials = mS_INVALID_LISTID;
  24. new Lowrider = mS_INVALID_LISTID;
  25. new OffRoad = mS_INVALID_LISTID;
  26. new PublicService = mS_INVALID_LISTID;
  27. new RC = mS_INVALID_LISTID;
  28. new Saloon = mS_INVALID_LISTID;
  29. new Sports = mS_INVALID_LISTID;
  30. new StationWagon = mS_INVALID_LISTID;
  31. new Trailer = mS_INVALID_LISTID;
  32. new Unique = mS_INVALID_LISTID;
  33. //==============================================================================
  34. public OnFilterScriptInit()
  35. {
  36.     print("===========================================================");
  37.     print("Simple Teleport System (Version:"FS_VER") By [BR]"FS_BY"");
  38.     print("===========================================================");
  39.     Airplanes = LoadModelSelectionMenu("STS/Airplane.txt");
  40.     Bikes = LoadModelSelectionMenu("STS/Bike.txt");
  41.     Boats = LoadModelSelectionMenu("STS/Boat.txt");
  42.     Convertible = LoadModelSelectionMenu("STS/Convertible.txt");
  43.     Helicopters = LoadModelSelectionMenu("STS/Helicopter.txt");
  44.     Industrials = LoadModelSelectionMenu("STS/Industrial.txt");
  45.     Lowrider = LoadModelSelectionMenu("STS/Lowrider.txt");
  46.     OffRoad = LoadModelSelectionMenu("STS/OffRoad.txt");
  47.     PublicService = LoadModelSelectionMenu("STS/PublicService.txt");
  48.     RC = LoadModelSelectionMenu("STS/RC.txt");
  49.     Saloon = LoadModelSelectionMenu("STS/Saloon.txt");
  50.     Sports = LoadModelSelectionMenu("STS/Sport.txt");
  51.     StationWagon = LoadModelSelectionMenu("STS/StationWagon.txt");
  52.     Trailer = LoadModelSelectionMenu("STS/Trailer.txt");
  53.     Unique = LoadModelSelectionMenu("STS/Unique.txt");
  54.     return 1;
  55. }
  56.  
  57. public OnFilterScriptExit()
  58. {
  59.     return 1;
  60. }
  61.  
  62. public OnPlayerConnect(playerid)
  63. {
  64.     playerCar[playerid] = INVALID_VEHICLE_ID;
  65.     return 1;
  66. }
  67.  
  68. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  69. {
  70.     switch(dialogid)
  71.     {
  72.         case DIALOG_VEHICLES:
  73.         {
  74.             if(response)
  75.             {
  76.                 switch(listitem)
  77.                 {
  78.                     case 0:
  79.                     {
  80.                     ShowModelSelectionMenu(playerid, Airplanes, "Airplanes");
  81.                     }
  82.                     case 1:
  83.                     {
  84.                     ShowModelSelectionMenu(playerid, Bikes, "Bikes");
  85.                     }
  86.                     case 2:
  87.                     {
  88.                     ShowModelSelectionMenu(playerid, Boats, "Boats");
  89.                     }
  90.                     case 3:
  91.                     {
  92.                     ShowModelSelectionMenu(playerid, Convertible, "Convertible");
  93.                     }
  94.                     case 4:
  95.                     {
  96.                     ShowModelSelectionMenu(playerid, Helicopters, "Helicopters");
  97.                     }
  98.                     case 5:
  99.                     {
  100.                     ShowModelSelectionMenu(playerid, Industrials, "Industrials");
  101.                     }
  102.                     case 6:
  103.                     {
  104.                     ShowModelSelectionMenu(playerid, Lowrider, "Lowrider");
  105.                     }
  106.                     case 7:
  107.                     {
  108.                     ShowModelSelectionMenu(playerid, OffRoad, "OffRoad Vehicle");
  109.                     }
  110.                     case 8:
  111.                     {
  112.                     ShowModelSelectionMenu(playerid, PublicService, "Public Service");
  113.                     }
  114.                     case 9:
  115.                     {
  116.                     ShowModelSelectionMenu(playerid, RC, "RC Vehicles");
  117.                     }
  118.                     case 10:
  119.                     {
  120.                     ShowModelSelectionMenu(playerid, Saloon, "Saloons");
  121.                     }
  122.                     case 11:
  123.                     {
  124.                     ShowModelSelectionMenu(playerid, Sports, "Sport Cars");
  125.                     }
  126.                     case 12:
  127.                     {
  128.                     ShowModelSelectionMenu(playerid, StationWagon, "StationWagon");
  129.                     }
  130.                     case 13:
  131.                     {
  132.                     ShowModelSelectionMenu(playerid, Trailer, "Trailer");
  133.                     }
  134.                     case 14:
  135.                     {
  136.                     ShowModelSelectionMenu(playerid, Unique, "Unique Vehicles");
  137.                     }
  138.                 }
  139.             }
  140.         }
  141.     }
  142.     return 0;
  143. }
  144.  
  145. public OnPlayerDisconnect(playerid, reason)
  146. {
  147.     DestroyVehicle(playerCar[playerid]);
  148.     return 1;
  149. }
  150.  
  151. public OnPlayerModelSelection(playerid, response, listid, modelid)
  152. {
  153.     new VW, INT;
  154.     if(listid == Airplanes || listid == Bikes || listid == Boats || listid == Convertible || listid == Helicopters || listid == Industrials || listid == Lowrider || listid == OffRoad || listid == PublicService || listid == RC || listid == Saloon || listid == Sports || listid == StationWagon || listid == Trailer || listid == Unique)
  155.     {
  156.         if(response)
  157.         {
  158.             DestroyVehicle(playerCar[playerid]);
  159.             new Float:pos[4], color[2];
  160.             GetPlayerPos(playerid, pos[0], pos[1], pos[2]);
  161.             GetPlayerFacingAngle(playerid, pos[3]);
  162.             color[0] = random(256);
  163.             color[1] = random(256);
  164.             playerCar[playerid] = CreateVehicle(modelid, pos[0], pos[1], pos[2]+2.0, pos[3], color[0], color[1], -1);
  165.             VW = GetPlayerVirtualWorld(playerid);
  166.             INT = GetPlayerInterior(playerid);
  167.             SetVehicleVirtualWorld(playerCar[playerid], VW);
  168.             LinkVehicleToInterior(playerCar[playerid], INT);
  169.             PutPlayerInVehicle(playerid, playerCar[playerid], 0);
  170.             SendClientMessage(playerid, 0xFF0000FF, ""red"[Vehicle] "grey"Vehcile Spawned.");
  171.  
  172.         }
  173.         else SendClientMessage(playerid, 0xFF0000FF, ""red"[Vehicle] "grey"Order Canceled.");
  174.         return 1;
  175.     }
  176.     return 1;
  177. }
  178.  
  179. forward CountDown();
  180. public CountDown()
  181. {
  182.      CountDownVarible++;
  183.      new str[128];
  184.      if(CountDownVarible == 0)
  185.      {
  186.             KillTimer(CountDownTimer);
  187.             CountDownVarible = 4;
  188.      }
  189.      else
  190.      {
  191.            format(str, sizeof(str), "%d", CountDownTimer);
  192.            GameTextForAll(str, 1000, 1);
  193.      }
  194.      return 1;
  195. }
  196. //==============================================================================
  197. stock TeleportPlayer(playerid,Float:x,Float:y,Float:z,musicurl[],gmtext[],msgtext[],teletext[])
  198. {
  199. new doroname[MAX_PLAYER_NAME],string[128];
  200. SetPlayerPos(playerid,x,y,z);
  201. GameTextForPlayer(playerid,gmtext, 5000, 2);
  202. GetPlayerName(playerid, doroname, sizeof(doroname));
  203. format(string, sizeof(string), "[TELE]:%s (ID:%d) has just Teleported To %s {FF6600}/%s", doroname, playerid, msgtext, teletext);
  204. SendClientMessageToAll(COLOR_LIGHTBLUE, string);
  205. PlayAudioStreamForPlayer(playerid,musicurl);
  206. CountDownTimer = SetTimerEx("CountDown",1000,0,"i",playerid);
  207. ShowPlayerDialog(playerid, DIALOG_VEHICLES, DIALOG_STYLE_LIST, ""red"Vehicle Category", ""green"Airplane\n"green"Bike\n"green"Boat\n"green"Convertible\n"green"Helicopter\n"green"Industrial\n"green"Lowrider\n"green"Off Road\n"green"Public Service\n"green"RC\n"green"Saloon\n"green"Sport\n"green"Station Wagon\n"green"Trailer\n"green"Unique", "Select", "Cancel");
  208. return 1;
  209. }
  210. //==============================================================================
  211. //For Example
  212. CMD:sfa(playerid,params[])
  213. {
  214. TeleportPlayer(playerid,-1657.5400,-164.9457,14.1484,"http://crut.in/audio-GYxtmW5GONX7.mp3","San Fierro Airport","San Fierro Airport","sfa");
  215. return 1;
  216. }
  217. //==============================================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement