SHARE
TWEET

Vírus System

a guest Aug 20th, 2011 3,637 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. //==============================================================================
RAW Paste Data
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
Top