Advertisement
Guest User

Air Bomb

a guest
Apr 23rd, 2012
302
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 3.26 KB | None | 0 0
  1. /*
  2. VISITE NOSSO SITE: http://www.sampknd.com/
  3. SAMP KND MELHOR BLOG DE SAMP DO BRASIL
  4.  _____   _   _____      _____   _____   ___   ___   _____
  5. |  _  | | | |  _  |    |  _  | |  _  | |   | |   | |  _  |
  6. | |_| | | | | |_| |    | |_| | | | | | |   |_|   | | |_| |
  7. |  _  | | | |  _  \    |  _  \ | | | | |  _   _  | |  _  \
  8. | | | | | | | | | |    | |_| | | |_| | | | | | | | | |_| |
  9. |_| |_| |_| |_| |_|    |_____| |_____| |_| |_| |_| |_____|
  10.  
  11. ..-=====-...-=====-...-=====-...-=====-...-=====-...-=====-..
  12.  
  13. Todos os creditos reservados, deixe os creditos nos devidos locais, não necessita de colocar em /creditos
  14. Basta deixar no main() ou OnFilterScriptInit...
  15.  
  16. Aviso: Este filterscript usa o plugin MapAndreas, você necessita de fazer o download do mesmo.
  17.  
  18. Autor do projeto: BlueX , Agradecimento: Kalcor & Mauzen pelo MapAndreas
  19.  
  20. */
  21. #define FILTERSCRIPT
  22.  
  23. #define FS_V "v1"
  24. #define FS_C "BlueX"
  25. #define FS_D "18/4/2012"
  26. #define FS_SOLTS (500) //Info: Edite os solts do seu servidor como logico.
  27. #define FS_AMMO (25) //Info: Edite o máximo de misseis para cada avião
  28.  
  29. #include <a_samp>
  30. #include <mapandreas>
  31. #include <zcmd>
  32.  
  33. #define PRESSED(%0) \
  34.     (((newkeys & (%0)) == (%0)) && ((oldkeys & (%0)) != (%0)))
  35.  
  36. new bomb[FS_SOLTS];
  37. new ammo[MAX_VEHICLES] = FS_AMMO;
  38. public OnFilterScriptInit()
  39. {
  40.     print("\n--------------------------------------");
  41.     printf(" AIR BOMB %s",FS_V);
  42.     printf(" CREDITOS: %s",FS_C);
  43.     printf(" SOLTS: %d",FS_SOLTS);
  44.     printf(" Lançamento: %s",FS_D);
  45.     print("--------------------------------------\n");
  46.     MapAndreas_Init(MAP_ANDREAS_MODE_FULL);
  47.     return 1;
  48. }
  49.  
  50. public OnFilterScriptExit()
  51. {
  52.     return 1;
  53. }
  54. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  55. {
  56.     if(PRESSED(KEY_FIRE)){
  57.         cmd_fire(playerid);
  58.     }
  59.     return 1;
  60. }
  61. CMD:fire(playerid){
  62.     if(IsPlayerInAnyVehicle(playerid)){
  63.             new Float:X,Float:Y,Float:Z,Float:A, car = GetPlayerVehicleID(playerid),model = GetVehicleModel(car);
  64.         if(ammo[car] == 0) return SendClientMessage(playerid,-1,"sem munição, use /ammo");
  65.         if(model != 553) return 1;
  66.         GetPlayerPos(playerid,X,Y,Z);
  67.         GetVehicleZAngle(GetPlayerVehicleID(playerid),A);
  68.         bomb[playerid] = CreateObject(345,X,Y,Z,A,0,0,0.0);
  69.        
  70.         MapAndreas_FindZ_For2DCoord(X,Y,Z);
  71.         MoveObject(bomb[playerid],X,Y,Z,100.0,A,0.0,0.0);
  72.         CreateExplosion(X,Y,Z,10,20.0);
  73.         ammo[car] --;
  74.         DestroyObject(bomb[playerid]);
  75.     }
  76.     return 1;
  77. }
  78. //Info: Comando usado para largar bombas, você tanto pode usar a key FIRE(ALT) como pode usar o comando /fire
  79.  
  80. CMD:ammo(playerid){
  81.     new car = GetPlayerVehicleID(playerid);
  82.     //if(IsPlayerInRangeOfPoint(playerid,10.0,X,Y,Z)){ ammo[car] = FS_AMMO };
  83.     ammo[car] = 25;
  84.     return 1;
  85. }
  86.  
  87. //Info: Você pode colocar o comando /ammo a funcionar em uma determinada area basta alterar o X, Y e o Z
  88.     //Lembrando que se você quiser usar IsPlayerInRangeOfPoint terá que eleminar o ammo[car] que está aqui em baixo.
  89.  
  90.  
  91. /*CMD:nevada(playerid){
  92.     new Float:X,Float:Y,Float:Z;
  93.     GetPlayerPos(playerid,X,Y,Z);
  94.     CreateVehicle(553,X,Y,Z+1,0,1,2,10000);
  95.     return 1;
  96. }*/
  97.  
  98. //Info: Este comando serve para criar um nevada que é o veiculo que lança as bombas...
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement