Advertisement
Firerfan

Untitled

Dec 24th, 2012
76
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 7.55 KB | None | 0 0
  1. #include <a_samp>
  2.  
  3. #define zahl 4873
  4. #define DIA_CAR_MAIN zahl+0
  5. #define DIA_CAR_LIST zahl+1
  6.  
  7. public OnFilterScriptInit()
  8. {
  9.     print("Carspawn-System by Firerfan loaded!");
  10. }
  11. public OnFilterScriptExit()
  12. {
  13.     print("Carspawn-System by Firerfan unloaded!");
  14. }
  15.  
  16. stock IsAMotorBike(model) {
  17.     switch(model){
  18.         case 462,448,581,522,461,521,523,463,586,468,471: {return 1;}
  19.     }
  20.     return 0;
  21. }
  22. stock IsABike(model) {
  23.     switch(model){
  24.         case 509,481,510: {return 1;}
  25.     }
  26.     return 0;
  27. }
  28. stock IsAPlane(model) {
  29.     switch(model){
  30.         case 460,511,512,513,519,553,577,592,593: {return 1;}
  31.     }
  32.     return 0;
  33. }
  34. stock IsAHeli(model) {
  35.     switch(model){
  36.         case 548,417,587,488,497,563,469: {return 1;}
  37.     }
  38.     return 0;
  39. }
  40. stock IsACar(model) {
  41.     if(!IsAMotorBike(model) && !IsABike(model) && !IsAPlane(model) && !IsAHeli(model)){return 1;}
  42.     return 0;
  43. }
  44. stock NotListed(model) {
  45.     switch(model) {
  46.      case 606,607,608,610,611,612: {return 1;}
  47.     }
  48.     return 0;
  49. }
  50. new CarName[][] =
  51. {
  52.     "Landstalker", "Bravura", "Buffalo", "Linerunner", "Perrenial", "Sentinel", "Dumper", "Firetruck", "Trashmaster", "Stretch", "Manana", "Infernus",
  53.     "Voodoo", "Pony", "Mule", "Cheetah", "Ambulance", "Leviathan", "Moonbeam", "Esperanto", "Taxi", "Washington", "Bobcat", "Whoopee", "BF Injection",
  54.     "Hunter", "Premier", "Enforcer", "Securicar", "Banshee", "Predator", "Bus","Rhino", "Barracks", "Hotknife", "Trailer", "Previon", "Coach", "Cabbie",
  55.     "Stallion", "Rumpo", "RC Bandit", "Romero", "Packer", "Monster", "Admiral","Squalo", "Seasparrow", "Pizzaboy", "Tram", "Trailer", "Turismo", "Speeder",
  56.     "Reefer", "Tropic", "Flatbed", "Yankee", "Caddy", "Solair", "Berkley's RC Van","Skimmer", "PCJ-600", "Faggio", "Freeway", "RC Baron", "RC Raider", "Glendale",
  57.     "Oceanic","Sanchez", "Sparrow", "Patriot", "Quad", "Coastguard", "Dinghy","Hermes", "Sabre", "Rustler", "ZR-350", "Walton", "Regina", "Comet", "BMX",
  58.     "Burrito", "Camper", "Marquis", "Baggage", "Dozer", "Maverick", "News Chopper","Rancher", "FBI Rancher", "Virgo", "Greenwood", "Jetmax", "Hotring", "Sandking",
  59.     "Blista Compact", "Police Maverick", "Boxvillde", "Benson", "Mesa", "RC Goblin","Hotring Racer A", "Hotring Racer B", "Bloodring Banger", "Rancher", "Super GT",
  60.     "Elegant", "Journey", "Bike", "Mountain Bike", "Beagle", "Cropduster", "Stunt","Tanker", "Roadtrain", "Nebula", "Majestic", "Buccaneer", "Shamal", "Hydra",
  61.     "FCR-900", "NRG-500", "HPV1000", "Cement Truck", "Tow Truck", "Fortune","Cadrona", "FBI Truck", "Willard", "Forklift", "Tractor", "Combine", "Feltzer",
  62.     "Remington", "Slamvan", "Blade", "Freight", "Streak", "Vortex", "Vincent","Bullet", "Clover", "Sadler", "Firetruck", "Hustler", "Intruder", "Primo",
  63.     "Cargobob", "Tampa", "Sunrise", "Merit", "Utility", "Nevada", "Yosemite","Windsor", "Monster", "Monster", "Uranus", "Jester", "Sultan", "Stratum",
  64.     "Elegy", "Raindance", "RC Tiger", "Flash", "Tahoma", "Savanna", "Bandito","Freight Flat", "Streak Carriage", "Kart", "Mower", "Dune", "Sweeper",
  65.     "Broadway", "Tornado", "AT-400", "DFT-30", "Huntley", "Stafford", "BF-400","News Van", "Tug", "Trailer", "Emperor", "Wayfarer", "Euros", "Hotdog", "Club",
  66.     "Freight Box", "Trailer", "Andromada", "Dodo", "RC Cam", "Launch", "Police","Police", "Police", "Police Ranger", "Picador", "S.W.A.T", "Alpha",
  67.     "Phoenix", "2. Gebrauchtwagen", "1. Gebrauchtwagen", "Luggage", "Luggage", "Stairs", "Boxville","Tiller", "Utility Trailer"
  68. };
  69.  
  70. public OnPlayerCommandText(playerid, cmdtext[])
  71. {
  72.     if(!strcmp("/veh", cmdtext, true, 4))
  73.     {
  74.         ShowPlayerDialog(playerid,DIA_CAR_MAIN,DIALOG_STYLE_LIST,"Carspawn - Auswahl","-> Autos\n->Motorräder\n->Fahrräder\n->Helikopter\n->Flugzeuge","Weiter","Abbrechen");
  75.     }
  76.     return 0;
  77. }
  78.  
  79. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  80. {
  81.     if(dialogid == DIA_CAR_MAIN && response)
  82.     {
  83.         new str[8192], teilstr[56], namestr[56];
  84.         if(listitem == 0) //---[Autos]
  85.         {
  86.             new modelid = 400, item;
  87.             while(modelid < 611)
  88.             {
  89.                 if(NotListed(modelid) && IsACar(modelid))
  90.                 {
  91.                     format(namestr,sizeof(namestr),"spawncar_%d",item);
  92.                     SetPVarInt(playerid,namestr,modelid);
  93.                     item++;
  94.                    
  95.                     format(teilstr,sizeof(teilstr),"-> %s",CarName[modelid-400]);
  96.                     strcat(str,teilstr);
  97.                 }
  98.                 modelid++;
  99.             }
  100.             ShowPlayerDialog(playerid,DIA_CAR_LIST,DIALOG_STYLE_LIST,"Carspawn - Autos",str,"Spawnen","Zurück");
  101.         }
  102.         else if(listitem == 1) //---[Motorräder]
  103.         {
  104.             new modelid = 400, item;
  105.             while(modelid < 611)
  106.             {
  107.                 if(IsAMotorBike(modelid))
  108.                 {
  109.                     format(namestr,sizeof(namestr),"spawncar_%d",item);
  110.                     SetPVarInt(playerid,namestr,modelid);
  111.                     item++;
  112.  
  113.                     format(teilstr,sizeof(teilstr),"-> %s",CarName[modelid-400]);
  114.                     strcat(str,teilstr);
  115.                 }
  116.                 modelid++;
  117.             }
  118.             ShowPlayerDialog(playerid,DIA_CAR_LIST,DIALOG_STYLE_LIST,"Carspawn - Autos",str,"Spawnen","Zurück");
  119.         }
  120.         else if(listitem == 2) //---[Fahrräder]
  121.         {
  122.             new modelid = 400, item;
  123.             while(modelid < 611)
  124.             {
  125.                 if(IsABike(modelid))
  126.                 {
  127.                     format(namestr,sizeof(namestr),"spawncar_%d",item);
  128.                     SetPVarInt(playerid,namestr,modelid);
  129.                     item++;
  130.  
  131.                     format(teilstr,sizeof(teilstr),"-> %s",CarName[modelid-400]);
  132.                     strcat(str,teilstr);
  133.                 }
  134.                 modelid++;
  135.             }
  136.             ShowPlayerDialog(playerid,DIA_CAR_LIST,DIALOG_STYLE_LIST,"Carspawn - Autos",str,"Spawnen","Zurück");
  137.         }
  138.         else if(listitem == 3) //---[Helikopter]
  139.         {
  140.             new modelid = 400, item;
  141.             while(modelid < 611)
  142.             {
  143.                 if(IsAHeli(modelid))
  144.                 {
  145.                     format(namestr,sizeof(namestr),"spawncar_%d",item);
  146.                     SetPVarInt(playerid,namestr,modelid);
  147.                     item++;
  148.  
  149.                     format(teilstr,sizeof(teilstr),"-> %s",CarName[modelid-400]);
  150.                     strcat(str,teilstr);
  151.                 }
  152.                 modelid++;
  153.             }
  154.             ShowPlayerDialog(playerid,DIA_CAR_LIST,DIALOG_STYLE_LIST,"Carspawn - Autos",str,"Spawnen","Zurück");
  155.         }
  156.         else if(listitem == 4) //---[Flugzeuge]
  157.         {
  158.             new modelid = 400, item;
  159.             while(modelid < 611)
  160.             {
  161.                 if(IsAPlane(modelid))
  162.                 {
  163.                     format(namestr,sizeof(namestr),"spawncar_%d",item);
  164.                     SetPVarInt(playerid,namestr,modelid);
  165.                     item++;
  166.  
  167.                     format(teilstr,sizeof(teilstr),"-> %s",CarName[modelid-400]);
  168.                     strcat(str,teilstr);
  169.                 }
  170.                 modelid++;
  171.             }
  172.             ShowPlayerDialog(playerid,DIA_CAR_LIST,DIALOG_STYLE_LIST,"Carspawn - Autos",str,"Spawnen","Zurück");
  173.         }
  174.     }
  175.     if(dialogid == DIA_CAR_LIST)
  176.     {
  177.         if(response)
  178.         {
  179.             new Float:coord[4]; GetPlayerPos(playerid,coord[0],coord[1],coord[2]); GetPlayerFacingAngle(playerid,coord[3]);
  180.             new namestr[56]; format(namestr,sizeof(namestr),"spawncar_%d",listitem);
  181.             new model = GetPVarInt(playerid,namestr);
  182.            
  183.             new vid = CreateVehicle(model,coord[0],coord[1],coord[2],coord[1],-1,-1,-1);
  184.             PutPlayerInVehicle(playerid,vid,0);
  185.         }
  186.         else{ShowPlayerDialog(playerid,DIA_CAR_MAIN,DIALOG_STYLE_LIST,"Carspawn - Auswahl","-> Autos\n->Motorräder\n->Fahrräder\n->Helikopter\n->Flugzeuge","Weiter","Abbrechen");}
  187.     }
  188.     return 1;
  189. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement