Advertisement
Guest User

Interactuar

a guest
Feb 14th, 2019
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.41 KB | None | 0 0
  1. #include <a_samp>
  2.  
  3. #define DIALOG_CLICK_1                                                          0
  4. #define DIALOG_CLICK_2                                                          1
  5. #define COLOR_BLANCO                                                            0xFFFFFFFF
  6. #define Funcion%0(%1)                                                           forward %0(%1); public %0(%1)
  7.  
  8. new opcion[1024];
  9.  
  10. Funcion Cerca(Float:radio, playerid, playerid_2)
  11. {
  12.     new Float:Posiciones[3];
  13.     GetPlayerPos(playerid_2, Posiciones[0], Posiciones[1], Posiciones[2]);
  14.     if(IsPlayerInRangeOfPoint(playerid, radio, Posiciones[0], Posiciones[1], Posiciones[2]) && GetPlayerVirtualWorld(playerid) == GetPlayerVirtualWorld(playerid_2)) { return 1; }
  15.     return 0;
  16. }
  17.  
  18. public OnPlayerClickPlayer(playerid, clickedplayerid, source)
  19. {
  20.     new dialog[1024], cadena[128];
  21.  
  22.     if(playerid == clickedplayerid)
  23.     {
  24.         format(cadena, sizeof(cadena), "{FFFFFF}Cuenta\nInventario");
  25.         strcat(dialog, cadena); //Esta función concatena (une) dos cadenas en una cadena.
  26.         opcion = "yo";
  27.     }
  28.     else
  29.     {
  30.         format(cadena, sizeof(cadena), "{FFFFFF}Reportar\nEnviar mensaje privado");
  31.         strcat(dialog, cadena);
  32.  
  33.         if(Cerca(5.0, playerid, clickedplayerid))
  34.         {
  35.             format(cadena, sizeof(cadena), "{FFFFFF}\nVer Aspecto\nSusurar\nBesar");
  36.             strcat(dialog, cadena);
  37.         }
  38.     }
  39.     ShowPlayerDialog(playerid, DIALOG_CLICK, DIALOG_STYLE_LIST, "Interactuar", dialog, "Aceptar", "Cancelar");
  40.     return 1;
  41. }
  42.  
  43. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  44. {
  45.     switch(dialogid)
  46.     {
  47.         case DIALOG_CLICK:
  48.         {
  49.             if(response)
  50.             {
  51.                 if(opcion == "yo")
  52.                 {
  53.                     switch(listitem)
  54.                     {
  55.                         case 0:
  56.                         {
  57.                             //CMD CUENTA
  58.                         }
  59.                         case 1:
  60.                         {
  61.                             //CMD INVENTARIO
  62.                         }
  63.                     }
  64.                 }
  65.                 else
  66.                 {
  67.                     switch(listitem)
  68.                     {
  69.                         case 0:
  70.                         {
  71.                             //CMD REPORTAR
  72.                         }
  73.                         case 1:
  74.                         {
  75.                             //CMD MENSAJE PRIVADO
  76.                         }
  77.                         case 2:
  78.                         {
  79.                             //CMD VER ASPECTO
  80.                         }
  81.                         case 3:
  82.                         {
  83.                             //CMD SUSURAR
  84.                         }
  85.                         case 4:
  86.                         {
  87.                             //CMD BESAR
  88.                         }
  89.                     }
  90.                 }
  91.             }
  92.             else
  93.             {
  94.            
  95.             }
  96.         }
  97.     }
  98. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement