API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 6th, 2012
284
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 12.63 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. Neon system by Theo
  3. Dies dürft ihr nicht veröffentlichen und als euers Ausgeben
  4. Falls ihr es veröffentlicht schreibt Bitte das ich es gemacht habe
  5. by Theo (c) Copyright 2012
  6. */
  7.  
  8. #include <a_samp>
  9. #include <ocmd>
  10.  
  11. #define rot 0xFF0000FF
  12. #define weiß 0xFAFAFAFF
  13. #define grün 0xA8FF3CFF
  14.  
  15.  
  16. #define neondialog 1
  17.  
  18. #pragma tabsize 0
  19.  
  20. new engine, lights, alarm, doors, bonnet, boot, objective;
  21.  
  22.  
  23.  
  24.  
  25.  
  26. public OnFilterScriptInit()
  27. {
  28.     print("\n--------------------------------------");
  29.     print(" Neon + Motor system by Theo (c)");
  30.     print("--------------------------------------\n");
  31.  
  32.     ManualVehicleEngineAndLights();
  33.  
  34.  
  35.     return 1;
  36. }
  37.  
  38. public OnFilterScriptExit()
  39. {
  40.     return 1;
  41. }
  42.  
  43.  
  44.  
  45.  
  46. public OnPlayerRequestClass(playerid, classid)
  47. {
  48.     SetPlayerPos(playerid, 1958.3783, 1343.1572, 15.3746);
  49.     SetPlayerCameraPos(playerid, 1958.3783, 1343.1572, 15.3746);
  50.     SetPlayerCameraLookAt(playerid, 1958.3783, 1343.1572, 15.3746);
  51.     return 1;
  52. }
  53.  
  54. public OnPlayerConnect(playerid)
  55. {
  56.     return 1;
  57. }
  58.  
  59.  
  60. ocmd:motor(playerid,params[])
  61. {
  62.     new vid;
  63.     vid = GetPlayerVehicleID(playerid);
  64.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  65.     SetVehicleParamsEx(vid,1,lights,alarm,doors,bonnet,boot,objective);
  66.     GameTextForPlayer(playerid,"Motor an!",3000,3);
  67.     SendClientMessage(playerid,grün,"Um den Motor aus zu machen Tippe:{FFFFFF} /motoraus");
  68.     return 1;
  69. }
  70.  
  71. ocmd:motoraus(playerid,params[])
  72. {
  73.     new vid;
  74.     vid = GetPlayerVehicleID(playerid);
  75.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  76.     SetVehicleParamsEx(vid,0,lights,alarm,doors,bonnet,boot,objective);
  77.     GameTextForPlayer(playerid,"Motor aus!",3000,3);
  78.     return 1;
  79. }
  80.  
  81. ocmd:licht(playerid,params[])
  82. {
  83.     new vid;
  84.     vid = GetPlayerVehicleID(playerid);
  85.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  86.     SetVehicleParamsEx(vid,engine,1,alarm,doors,bonnet,boot,objective);
  87.     GameTextForPlayer(playerid,"Licht an!",3000,3);
  88.     SendClientMessage(playerid,grün,"Um das Licht aus zu machen Tippe:{FFFFFF} /lichtaus");
  89.     return 1;
  90. }
  91.  
  92. ocmd:lichtaus(playerid,params[])
  93. {
  94.     new vid;
  95.     vid = GetPlayerVehicleID(playerid);
  96.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  97.     SetVehicleParamsEx(vid,engine,0,alarm,doors,bonnet,boot,objective);
  98.     GameTextForPlayer(playerid,"Licht aus!",3000,3);
  99.     return 1;
  100. }
  101.  
  102. ocmd:carlock(playerid,params[])
  103. {
  104.     new vid;
  105.     vid = GetPlayerVehicleID(playerid);
  106.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  107.     SetVehicleParamsEx(vid,engine,lights,alarm,1,bonnet,boot,objective);
  108.     GameTextForPlayer(playerid,"Auto zu!",3000,3);
  109.     SendClientMessage(playerid,grün,"Um das Auto auf zu machen Tippe:{FFFFFF} /carauf");
  110.     return 1;
  111. }
  112.  
  113. ocmd:carauf(playerid,params[])
  114. {
  115.     new vid;
  116.     vid = GetPlayerVehicleID(playerid);
  117.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  118.     SetVehicleParamsEx(vid,engine,lights,alarm,0,bonnet,boot,objective);
  119.     GameTextForPlayer(playerid,"Auto auf!",3000,3);
  120.     return 1;
  121. }
  122.  
  123. ocmd:mhaubeauf(playerid,params[])
  124. {
  125.     new vid;
  126.     vid = GetPlayerVehicleID(playerid);
  127.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  128.     SetVehicleParamsEx(vid,engine,lights,alarm,doors,1,boot,objective);
  129.     GameTextForPlayer(playerid,"Motorhaube auf!",3000,3);
  130.     SendClientMessage(playerid,grün,"Um die Motorhaube wider zu, zu  machen Tippe:{FFFFFF} /mhaubezu");
  131.     return 1;
  132. }
  133.  
  134. ocmd:mhaubezu(playerid,params[])
  135. {
  136.     new vid;
  137.     vid = GetPlayerVehicleID(playerid);
  138.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  139.     SetVehicleParamsEx(vid,engine,lights,alarm,doors,0,boot,objective);
  140.     GameTextForPlayer(playerid,"Motorhaube zu!",3000,3);
  141.     return 1;
  142. }
  143.  
  144. ocmd:kraumauf(playerid,params[])
  145. {
  146.     new vid;
  147.     vid = GetPlayerVehicleID(playerid);
  148.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  149.     SetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,1,objective);
  150.     GameTextForPlayer(playerid,"Kofferraum auf!",3000,3);
  151.     SendClientMessage(playerid,grün,"Um den Kofferraum wider zu, zu  machen Tippe:{FFFFFF} /kraumzu");
  152.     return 1;
  153. }
  154.  
  155. ocmd:kraumzu(playerid,params[])
  156. {
  157.     new vid;
  158.     vid = GetPlayerVehicleID(playerid);
  159.     GetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,boot,objective);
  160.     SetVehicleParamsEx(vid,engine,lights,alarm,doors,bonnet,0,objective);
  161.     GameTextForPlayer(playerid,"Kofferraum zu!",3000,3);
  162.     return 1;
  163. }
  164.  
  165.  
  166.  
  167. ocmd:carhelp(playerid,params[])
  168. {
  169.     SendClientMessage(playerid,rot,"•==•==•==•==•==•==Car-Help•==•==•==•==•==•==");
  170.     SendClientMessage(playerid,grün,"Motor: {FFFFFF}/motor & /motoraus");
  171.     SendClientMessage(playerid,grün,"Licht: {FFFFFF}/licht & /lichtaus");
  172.     SendClientMessage(playerid,grün,"Auto: {FFFFFF}/carlock & /carauf");
  173.     SendClientMessage(playerid,grün,"Motorhaube: {FFFFFF}/mhaubeauf & /mhaubezu");
  174.     SendClientMessage(playerid,grün,"Kofferraum: {FFFFFF}/kraumauf & /kraumzu");
  175.     SendClientMessage(playerid,rot,"•==•==•==•====•==•Car-Help•==•==•==•==•==•==");
  176.     return 1;
  177. }
  178.  
  179.  
  180. public OnPlayerDisconnect(playerid, reason)
  181. {
  182.     return 1;
  183. }
  184.  
  185. public OnPlayerSpawn(playerid)
  186. {
  187.     return 1;
  188. }
  189.  
  190. public OnPlayerDeath(playerid, killerid, reason)
  191. {
  192.     return 1;
  193. }
  194.  
  195. public OnVehicleSpawn(vehicleid)
  196. {
  197.     return 1;
  198. }
  199.  
  200. public OnVehicleDeath(vehicleid, killerid)
  201. {
  202.     return 1;
  203. }
  204.  
  205. public OnPlayerText(playerid, text[])
  206. {
  207.     return 1;
  208. }
  209.  
  210. public OnPlayerCommandText(playerid, cmdtext[])
  211. {
  212.     if(strcmp("/neon", cmdtext, true, 10) ==0)
  213.     {
  214.         if(!IsPlayerInAnyVehicle(playerid))return SendClientMessage(playerid,rot,"Du bist in keinem Fahrzeug");
  215.         {
  216.             ShowPlayerDialog(playerid, neondialog, DIALOG_STYLE_LIST, "Neon System by Theo","Blau\nRot\nGrün\nWeiß\nPink\nGelb\nNeon entfernen","Auswählen","Abbrechen");
  217.         }
  218.         return 1;
  219.     }
  220.  
  221.  
  222.     return 0;
  223. }
  224.  
  225.  
  226. public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
  227. {
  228.     SendClientMessage(playerid,grün,"Um den Motor anzuschalten Tippe: {FFFFFF}/motor");
  229.     return 1;
  230. }
  231.  
  232. public OnPlayerExitVehicle(playerid, vehicleid)
  233. {
  234.     return 1;
  235. }
  236.  
  237. public OnPlayerStateChange(playerid, newstate, oldstate)
  238. {
  239.     return 1;
  240. }
  241.  
  242. public OnPlayerEnterCheckpoint(playerid)
  243. {
  244.     return 1;
  245. }
  246.  
  247. public OnPlayerLeaveCheckpoint(playerid)
  248. {
  249.     return 1;
  250. }
  251.  
  252. public OnPlayerEnterRaceCheckpoint(playerid)
  253. {
  254.     return 1;
  255. }
  256.  
  257. public OnPlayerLeaveRaceCheckpoint(playerid)
  258. {
  259.     return 1;
  260. }
  261.  
  262. public OnRconCommand(cmd[])
  263. {
  264.     return 1;
  265. }
  266.  
  267. public OnPlayerRequestSpawn(playerid)
  268. {
  269.     return 1;
  270. }
  271.  
  272. public OnObjectMoved(objectid)
  273. {
  274.     return 1;
  275. }
  276.  
  277. public OnPlayerObjectMoved(playerid, objectid)
  278. {
  279.     return 1;
  280. }
  281.  
  282. public OnPlayerPickUpPickup(playerid, pickupid)
  283. {
  284.     return 1;
  285. }
  286.  
  287. public OnVehicleMod(playerid, vehicleid, componentid)
  288. {
  289.     return 1;
  290. }
  291.  
  292. public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
  293. {
  294.     return 1;
  295. }
  296.  
  297. public OnVehicleRespray(playerid, vehicleid, color1, color2)
  298. {
  299.     return 1;
  300. }
  301.  
  302. public OnPlayerSelectedMenuRow(playerid, row)
  303. {
  304.     return 1;
  305. }
  306.  
  307. public OnPlayerExitedMenu(playerid)
  308. {
  309.     return 1;
  310. }
  311.  
  312. public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
  313. {
  314.     return 1;
  315. }
  316.  
  317. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  318. {
  319.     return 1;
  320. }
  321.  
  322. public OnRconLoginAttempt(ip[], password[], success)
  323. {
  324.     return 1;
  325. }
  326.  
  327. public OnPlayerUpdate(playerid)
  328. {
  329.     return 1;
  330. }
  331.  
  332. public OnPlayerStreamIn(playerid, forplayerid)
  333. {
  334.     return 1;
  335. }
  336.  
  337. public OnPlayerStreamOut(playerid, forplayerid)
  338. {
  339.     return 1;
  340. }
  341.  
  342. public OnVehicleStreamIn(vehicleid, forplayerid)
  343. {
  344.     return 1;
  345. }
  346.  
  347. public OnVehicleStreamOut(vehicleid, forplayerid)
  348. {
  349.     return 1;
  350. }
  351.  
  352. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  353. {
  354.     if(dialogid == neondialog)
  355.     {
  356.         if(response)
  357.         {
  358.             if(listitem == 0)
  359.             {
  360.                 SetPVarInt(playerid, "NEON", 1);
  361.                 SetPVarInt(playerid, "neon", CreateObject(18648,0,0,0,0,0,0));
  362.                 SetPVarInt(playerid, "neon1", CreateObject(18648,0,0,0,0,0,0));
  363.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  364.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon1"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  365.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  366.             }
  367.             if(listitem == 1)
  368.             {
  369.                 SetPVarInt(playerid, "NEON", 1);
  370.                 SetPVarInt(playerid, "neon2", CreateObject(18647,0,0,0,0,0,0));
  371.                 SetPVarInt(playerid, "neon3", CreateObject(18647,0,0,0,0,0,0));
  372.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon2"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  373.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon3"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  374.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  375.  
  376.             }
  377.             if(listitem == 2)
  378.             {
  379.                 SetPVarInt(playerid, "NEON", 1);
  380.                 SetPVarInt(playerid, "neon4", CreateObject(18649,0,0,0,0,0,0));
  381.                 SetPVarInt(playerid, "neon5", CreateObject(18649,0,0,0,0,0,0));
  382.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon4"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  383.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon5"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  384.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  385.  
  386.                 }
  387.             if(listitem == 3)
  388.             {
  389.                 SetPVarInt(playerid, "NEON", 1);
  390.                 SetPVarInt(playerid, "neon6", CreateObject(18652,0,0,0,0,0,0));
  391.                 SetPVarInt(playerid, "neon7", CreateObject(18652,0,0,0,0,0,0));
  392.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon6"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  393.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon7"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  394.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  395.  
  396.             }
  397.             if(listitem == 4)
  398.             {
  399.                 SetPVarInt(playerid, "NEON", 1);
  400.                 SetPVarInt(playerid, "neon8", CreateObject(18651,0,0,0,0,0,0));
  401.                 SetPVarInt(playerid, "neon9", CreateObject(18651,0,0,0,0,0,0));
  402.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon8"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  403.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon9"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  404.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  405.  
  406.             }
  407.             if(listitem == 5)
  408.             {
  409.                 SetPVarInt(playerid, "NEON", 1);
  410.                 SetPVarInt(playerid, "neon10", CreateObject(18650,0,0,0,0,0,0));
  411.                 SetPVarInt(playerid, "neon11", CreateObject(18650,0,0,0,0,0,0));
  412.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon10"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  413.                 AttachObjectToVehicle(GetPVarInt(playerid, "neon11"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  414.                 SendClientMessage(playerid,weiß, "Neon eingebaut");
  415.  
  416.             }
  417.             if(listitem == 6)
  418.             {
  419.             DestroyObject(GetPVarInt(playerid, "neon")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon1")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon2")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon3"));
  420.             DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon4")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon5")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon6")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon7"));
  421.             DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon8")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon9")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon10")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon11"));
  422.             DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon12")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon13")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon14")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon15")); DeletePVar(playerid, "NEON");
  423.             DestroyObject(GetPVarInt(playerid, "neon16")); DeletePVar(playerid, "NEON"); DestroyObject(GetPVarInt(playerid, "neon17")); DeletePVar(playerid, "NEON");
  424.             return 1;
  425.             }
  426.         }
  427.     }
  428.  
  429.     return 1;
  430. }
  431.  
  432. public OnPlayerClickPlayer(playerid, clickedplayerid, source)
  433. {
  434.     return 1;
  435. }
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!