API tools faq
paste
Advertisement
VladaSavel

Neon system SAMP

VladaSavel
Feb 21st, 2015
480
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 10.13 KB | None | 0 0
raw download clone embed print report
  1. /* Neon system V1.0 */
  2. /* Autor : VladaSavel */
  3. /* For SuperKalba.tk */
  4. /*Address: 93.91.250.147:27023*/
  5.  
  6. #define FILTERSCRIPT
  7.  
  8. #include <a_samp>
  9. #include <sscanf2>
  10. #include <zcmd>
  11.  
  12.  
  13.  
  14. #if defined FILTERSCRIPT
  15. #define DIALOG NEON 8569
  16. public OnFilterScriptInit()
  17. {
  18.     print("\n--------------------------------------");
  19.     print(" Neon System By Savel");
  20.     print("--------------------------------------\n");
  21.     return 1;
  22. }
  23.  
  24. public OnFilterScriptExit()
  25. {
  26.     return 1;
  27. }
  28.  
  29. #else
  30. #endif
  31. public OnPlayerDisconnect(playerid, reason)
  32. {
  33.     {
  34.             DestroyObject(GetPVarInt(playerid, "neon"));DeletePVar(playerid, "Status");
  35.             DestroyObject(GetPVarInt(playerid, "neon1"));DeletePVar(playerid, "Status");
  36.             DestroyObject(GetPVarInt(playerid, "neon2"));DeletePVar(playerid, "Status");
  37.             DestroyObject(GetPVarInt(playerid, "neon3"));DeletePVar(playerid, "Status");
  38.             DestroyObject(GetPVarInt(playerid, "neon4"));DeletePVar(playerid, "Status");
  39.             DestroyObject(GetPVarInt(playerid, "neon5"));DeletePVar(playerid, "Status");
  40.             DestroyObject(GetPVarInt(playerid, "neon6"));DeletePVar(playerid, "Status");
  41.             DestroyObject(GetPVarInt(playerid, "neon7"));DeletePVar(playerid, "Status");
  42.             DestroyObject(GetPVarInt(playerid, "neon8"));DeletePVar(playerid, "Status");
  43.             DestroyObject(GetPVarInt(playerid, "neon9"));DeletePVar(playerid, "Status");
  44.             DestroyObject(GetPVarInt(playerid, "neon10"));DeletePVar(playerid, "Status");
  45.             DestroyObject(GetPVarInt(playerid, "neon11"));DeletePVar(playerid, "Status");
  46.             DestroyObject(GetPVarInt(playerid, "interior"));DeletePVar(playerid, "Status");
  47.             DestroyObject(GetPVarInt(playerid, "interior1"));DeletePVar(playerid, "Status");
  48.     }
  49.     return 1;
  50. }
  51. public OnVehicleDeath(vehicleid, killerid)
  52. {
  53.     {
  54.             DestroyObject(GetPVarInt(vehicleid, "neon"));DeletePVar(vehicleid, "Status");
  55.             DestroyObject(GetPVarInt(vehicleid, "neon1"));DeletePVar(vehicleid, "Status");
  56.             DestroyObject(GetPVarInt(vehicleid, "neon2"));DeletePVar(vehicleid, "Status");
  57.             DestroyObject(GetPVarInt(vehicleid, "neon3"));DeletePVar(vehicleid, "Status");
  58.             DestroyObject(GetPVarInt(vehicleid, "neon4"));DeletePVar(vehicleid, "Status");
  59.             DestroyObject(GetPVarInt(vehicleid, "neon5"));DeletePVar(vehicleid, "Status");
  60.             DestroyObject(GetPVarInt(vehicleid, "neon6"));DeletePVar(vehicleid, "Status");
  61.             DestroyObject(GetPVarInt(vehicleid, "neon7"));DeletePVar(vehicleid, "Status");
  62.             DestroyObject(GetPVarInt(vehicleid, "neon8"));DeletePVar(vehicleid, "Status");
  63.             DestroyObject(GetPVarInt(vehicleid, "neon9"));DeletePVar(vehicleid, "Status");
  64.             DestroyObject(GetPVarInt(vehicleid, "neon10"));DeletePVar(vehicleid, "Status");
  65.             DestroyObject(GetPVarInt(vehicleid, "neon11"));DeletePVar(vehicleid, "Status");
  66.             DestroyObject(GetPVarInt(vehicleid, "interior"));DeletePVar(vehicleid, "Status");
  67.             DestroyObject(GetPVarInt(vehicleid, "interior1"));DeletePVar(vehicleid, "Status");
  68.     }
  69.     return 1;
  70. }
  71. public OnPlayerExitVehicle(playerid, vehicleid)
  72. {
  73.     {
  74.             DestroyObject(GetPVarInt(playerid, "neon"));DeletePVar(playerid, "Status");
  75.             DestroyObject(GetPVarInt(playerid, "neon1"));DeletePVar(playerid, "Status");
  76.             DestroyObject(GetPVarInt(playerid, "neon2"));DeletePVar(playerid, "Status");
  77.             DestroyObject(GetPVarInt(playerid, "neon3"));DeletePVar(playerid, "Status");
  78.             DestroyObject(GetPVarInt(playerid, "neon4"));DeletePVar(playerid, "Status");
  79.             DestroyObject(GetPVarInt(playerid, "neon5"));DeletePVar(playerid, "Status");
  80.             DestroyObject(GetPVarInt(playerid, "neon6"));DeletePVar(playerid, "Status");
  81.             DestroyObject(GetPVarInt(playerid, "neon7"));DeletePVar(playerid, "Status");
  82.             DestroyObject(GetPVarInt(playerid, "neon8"));DeletePVar(playerid, "Status");
  83.             DestroyObject(GetPVarInt(playerid, "neon9"));DeletePVar(playerid, "Status");
  84.             DestroyObject(GetPVarInt(playerid, "neon10"));DeletePVar(playerid, "Status");
  85.             DestroyObject(GetPVarInt(playerid, "neon11"));DeletePVar(playerid, "Status");
  86.             DestroyObject(GetPVarInt(playerid, "interior"));DeletePVar(playerid, "Status");
  87.             DestroyObject(GetPVarInt(playerid, "interior1"));DeletePVar(playerid, "Status");
  88.     }
  89.     return 1;
  90. }
  91. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  92. {
  93. if(dialogid == 8569)
  94.     {
  95.         if(response)
  96.         {
  97.             if(listitem == 0)
  98.             {
  99.                     SetPVarInt(playerid, "Status", 1);
  100.                     SetPVarInt(playerid, "neon", CreateObject(18648,0,0,0,0,0,0));
  101.                     SetPVarInt(playerid, "neon1", CreateObject(18648,0,0,0,0,0,0));
  102.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  103.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon1"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  104.             }
  105.             if(listitem == 1)
  106.             {
  107.                     SetPVarInt(playerid, "Status", 1);
  108.                     SetPVarInt(playerid, "neon2", CreateObject(18647,0,0,0,0,0,0));
  109.                     SetPVarInt(playerid, "neon3", CreateObject(18647,0,0,0,0,0,0));
  110.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon2"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  111.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon3"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  112.             }
  113.             if(listitem == 2)
  114.             {
  115.                     SetPVarInt(playerid, "Status", 1);
  116.                     SetPVarInt(playerid, "neon4", CreateObject(18649,0,0,0,0,0,0));
  117.                     SetPVarInt(playerid, "neon5", CreateObject(18649,0,0,0,0,0,0));
  118.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon4"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  119.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon5"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  120.             }
  121.             if(listitem == 3)
  122.             {
  123.                     SetPVarInt(playerid, "Status", 1);
  124.                     SetPVarInt(playerid, "neon6", CreateObject(18652,0,0,0,0,0,0));
  125.                     SetPVarInt(playerid, "neon7", CreateObject(18652,0,0,0,0,0,0));
  126.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon6"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  127.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon7"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  128.             }
  129.             if(listitem == 4)
  130.             {
  131.                     SetPVarInt(playerid, "Status", 1);
  132.                     SetPVarInt(playerid, "neon8", CreateObject(18651,0,0,0,0,0,0));
  133.                     SetPVarInt(playerid, "neon9", CreateObject(18651,0,0,0,0,0,0));
  134.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon8"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  135.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon9"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  136.             }
  137.             if(listitem == 5)
  138.             {
  139.                     SetPVarInt(playerid, "Status", 1);
  140.                     SetPVarInt(playerid, "neon10", CreateObject(18650,0,0,0,0,0,0));
  141.                     SetPVarInt(playerid, "neon11", CreateObject(18650,0,0,0,0,0,0));
  142.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon10"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  143.                     AttachObjectToVehicle(GetPVarInt(playerid, "neon11"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  144.             }
  145.             if(listitem == 6)
  146.             {
  147.                     SetPVarInt(playerid, "Status", 1);
  148.                     SetPVarInt(playerid, "interior", CreateObject(18646,0,0,0,0,0,0));
  149.                     SetPVarInt(playerid, "interior1", CreateObject(18646,0,0,0,0,0,0));
  150.                     AttachObjectToVehicle(GetPVarInt(playerid, "interior"), GetPlayerVehicleID(playerid), 0, -0.0, 0, 2.0, 2.0, 3.0);
  151.                     AttachObjectToVehicle(GetPVarInt(playerid, "interior1"), GetPlayerVehicleID(playerid), 0, -0.0, 0, 2.0, 2.0, 3.0);
  152.             }
  153.             if(listitem == 7)
  154.             {
  155.             DestroyObject(GetPVarInt(playerid, "neon"));DeletePVar(playerid, "Status");
  156.             DestroyObject(GetPVarInt(playerid, "neon1"));DeletePVar(playerid, "Status");
  157.             DestroyObject(GetPVarInt(playerid, "neon2"));DeletePVar(playerid, "Status");
  158.             DestroyObject(GetPVarInt(playerid, "neon3"));DeletePVar(playerid, "Status");
  159.             DestroyObject(GetPVarInt(playerid, "neon4"));DeletePVar(playerid, "Status");
  160.             DestroyObject(GetPVarInt(playerid, "neon5"));DeletePVar(playerid, "Status");
  161.             DestroyObject(GetPVarInt(playerid, "neon6"));DeletePVar(playerid, "Status");
  162.             DestroyObject(GetPVarInt(playerid, "neon7"));DeletePVar(playerid, "Status");
  163.             DestroyObject(GetPVarInt(playerid, "neon8"));DeletePVar(playerid, "Status");
  164.             DestroyObject(GetPVarInt(playerid, "neon9"));DeletePVar(playerid, "Status");
  165.             DestroyObject(GetPVarInt(playerid, "neon10"));DeletePVar(playerid, "Status");
  166.             DestroyObject(GetPVarInt(playerid, "neon11"));DeletePVar(playerid, "Status");
  167.             DestroyObject(GetPVarInt(playerid, "interior"));DeletePVar(playerid, "Status");
  168.             DestroyObject(GetPVarInt(playerid, "interior1"));DeletePVar(playerid, "Status");
  169.             }
  170.  
  171.         }
  172.         }
  173. return 1;
  174. }
  175.  
  176. CMD:vneon(playerid,params[])
  177. {
  178.     if(IsPlayerInAnyVehicle(playerid))
  179.     {
  180.         ShowPlayerDialog(playerid, 8569, DIALOG_STYLE_LIST, "Neon System by Savel", "Blue neon\nRed neon\nGreen neon\nWhite neon\nPink neon\nYellow neon\nCrazy interior\nDelete neon", "Vybrat", "Zavřít");
  181.     }
  182.     else {
  183.                 SendClientMessage( playerid, -1, "You are not in vehicle." );
  184.         }
  185.     return 1;
  186. }
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!