Advertisement
Guest User

Vírus System

a guest
Aug 20th, 2011
4,254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 5.15 KB | None | 0 0
  1. //==============================================================================
  2. #include                                                                        a_samp
  3. #include                                                                        zcmd
  4. #include                                                                        sscanf2
  5. //==============================================================================
  6. #define                                                                         FILTERSCRIPT
  7. #define                                                                         SLOTS 32
  8. //==============================================================================
  9. new
  10.     vNome [ MAX_PLAYER_NAME ] ,
  11.     virus [ SLOTS ] ,
  12.     Str [ 128 ] ,
  13.     Float:X ,
  14.     Float:Y ,
  15.     Float:Z ,
  16.     id ,
  17.     ii
  18. ;
  19. //==============================================================================
  20. public
  21.     OnFilterScriptInit ( )
  22. {
  23.     print ( "\n--------------------------------------" ) ;
  24.     print ( " Virus System" ) ;
  25.     print ( "--------------------------------------\n" ) ;
  26.     return 1 ;
  27. }
  28. //==============================================================================
  29. public OnPlayerDeath ( playerid , killerid , reason )
  30. {
  31.     virus [ playerid ] = 0 ;
  32.     return 1 ;
  33. }
  34. //==============================================================================
  35. CMD:darvirus(playerid, params[])
  36. {
  37.     if ( IsPlayerAdmin ( playerid ) )
  38.     {
  39.         if ( sscanf ( params , "u" , id ) ) return SendClientMessage ( playerid , 0x0080FFAA , "[USE]: /darvirus [id]" ) ;
  40.         else
  41.         {
  42.             GetPlayerName ( playerid , vNome , MAX_PLAYER_NAME ) ;
  43.             format ( Str , 128 , "[AVISO]: O administrador %s deu um virus para ti, usa /infectar [id]" , vNome ) ;
  44.             SendClientMessage ( id , 0x0080FFAA , Str ) ;
  45.             SendClientMessageToAll ( 0x0080FFAA , "Um virus Foi Espalhado Pela Cidade, Tenha Cuidado" ) ;
  46.             virus [ id ] = 1 ;
  47.         }
  48.     }
  49.     else SendClientMessage ( playerid , 0x0080FFAA , "Você não é admin logado na rcon" ) ;
  50.     return 1 ;
  51. }
  52. //==============================================================================
  53. CMD:infectar(playerid, params[])
  54. {
  55.     if ( virus [ playerid ] == 1 )
  56.     {
  57.         if ( sscanf ( params , "u" , id ) ) return SendClientMessage ( playerid , 0x0080FFAA , "USE: /infectar [id]" ) ;
  58.         else
  59.         {
  60.             if ( virus [ id ] == 1 ) return SendClientMessage ( playerid , 0x0080FFAA , "AVISO: Este player já esta infetado" ) ;
  61.             else
  62.             {
  63.                 GetPlayerPos ( id , X , Y , Z ) ;
  64.                 if ( IsPlayerInRangeOfPoint ( playerid , 3.0 , X , Y , Z ) )
  65.                 {
  66.                     GetPlayerName ( playerid , vNome , MAX_PLAYER_NAME ) ;
  67.                     format ( Str , 128 , "Você foi infectado por %s, use /infectar [id]" , vNome ) ;
  68.                     SendClientMessage ( id , 0x0080FFAA , Str ) ;
  69.                     virus [ id ] = 1 ;
  70.                     GetPlayerName ( id , vNome , MAX_PLAYER_NAME ) ;
  71.                     format ( Str , 128 , "Você infectou %s !" , vNome ) ;
  72.                     SendClientMessage ( playerid , 0x0080FFAA , Str ) ;
  73.                     ResetPlayerWeapons(id);
  74.                 }
  75.                 else return SendClientMessage ( playerid , -1 , "Este Player Está Longe" ) ;
  76.             }
  77.         }
  78.     }
  79.     else SendClientMessage ( playerid , -1 , "Você não ésta infectado" ) ;
  80.     return 1 ;
  81. }
  82. //==============================================================================
  83. CMD:verinfectados(playerid, params[])
  84. {
  85.     ii = 0 ;
  86.     for ( id = 0 ; id < SLOTS ; id++ )
  87.     {
  88.         if ( virus [ id ] == 1 )
  89.         {
  90.             GetPlayerName ( id , vNome , MAX_PLAYER_NAME ) ;
  91.             format ( Str , 128 , "%s [ %i ] Está infectado." , vNome , id ) ;
  92.             if ( ii == 0 )
  93.             {
  94.                 ii = 1 ;
  95.                 SendClientMessage ( playerid , -1 , "Lista de jogadores infectados:" ) ;
  96.             }
  97.             SendClientMessage ( playerid , 0x0080FFAA , Str ) ;
  98.         }
  99.     }
  100.     if ( ii == 0 ) return SendClientMessage ( playerid , -1 , "Não existem jogadores infectados." ) ;
  101.     return 1 ;
  102. }
  103. //==============================================================================
  104. CMD:vcmd(playerid, params[])
  105. {
  106.     ShowPlayerDialog ( playerid , 4830 , DIALOG_STYLE_MSGBOX , "Virus System - Comandos" , "/infectar [id] - para infectar alguem...\n/darvirus [id] - Para setar o virus a algum player, Deverá estar logado na rcon/n\vcreditos - Para ver o creditos\n/vobj - Para ver o objetivo...", "Ok" , "" ) ;
  107.     return 1 ;
  108. }
  109. //==============================================================================
  110. CMD:vcreditos(playerid, params[])
  111. {
  112.     ShowPlayerDialog ( playerid , 4830 , DIALOG_STYLE_MSGBOX , "Virus System - Creditos" , "Scripter Geral - BlueX\nColaborador - Slash PT\nZCMD: Zeex\nSscanf: Y_Less\nNão Retire os Creditos Do FS!" , "Ok" , "" ) ;
  113.     return 1 ;
  114. }
  115. //==============================================================================
  116. CMD:vobj(playerid, params[])
  117. {
  118.     ShowPlayerDialog ( playerid , 4830 , DIALOG_STYLE_MSGBOX , "Virus System - Objetivo" , "Virus: O Objetivo do virus é infectar todos os players, lembrando que quando eles morrem a infeção para\nCops: Os Cops deverão proteger a cidade contra o vrius, matando os infectados\nInfectados: Os infectados deverão infectar Todos Os Players " , "Ok" , "" ) ;
  119.     return 1 ;
  120. }
  121. //==============================================================================
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement