Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 6th, 2012  |  syntax: PAWN  |  size: 12.63 KB  |  hits: 178  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  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. }
create a new version of this paste RAW Paste Data