Ver Tema

LeoSevilla · 2011-11-24 13:02 @585

Hola a todos.

A ver si puedo explicarme bien: estoy cacharreando un plugin para el xchat, y necesito controlar los menús. Lo que me gustaría saber es cómo ver el estado de una ocpión en el menú, o sea, leerla con alguna función del xchat.

Veamos, tengo un menú creado de la siguiente forma:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

/menu add test

/menu -t0 add test/opcion "cmd1" "cmd2"

Lo que quiero saber es, desde el plugin, cómo consultar el estado en -t, si es 0 o 1.

He mirado la función Xchat::get_prefs( $name ), que me retorna los datos del comando set, pero ahí no está lo que busco, y no sé ya por dónde seguir.

Salu2, LeoSevilla

explorer · 2011-11-24 14:51 @660

Pues no lo sé... pero apostaría a que es viendo el valor de uno de los parámetros que se pasan a la función que gestiona los eventos del menú.

En este ejemplo, la función chanserver() recibe dos parámetros.

LeoSevilla · 2011-11-24 19:24 @850

Aunque estoy perdido, la página que me has mostrado me mostrará el camino, muchas gracias por la aportación, ya está en favoritos

Por cierto, por si alguien sabe la respuesta a mi consulta, he visto que la opción que me interesa obtener es la de radios, o sea, la que esté marcada en cada momento. Esta es la estructura que sería en el menú:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

/MENU ADD "Lenguaje"

/MENU -r1,"opcion" ADD "Lenguaje/Perl" cmd1

/MENU -r0,"opcion" ADD "Lengueje/Pascal" cmd2

/MENU -r0,"opcion" ADD "Lenguaje/C++" cmd3

Sigo investigando...

Salu2

LeoSevilla · 2011-11-25 13:43 @613

Ya he conseguido la solución, y es creando variables para esas opciones, y cambiarlas creando una función para los comandos

Salu2

explorer · 2011-11-25 13:55 @622

Estaría bien ver un ejemplo...

LeoSevilla · 2011-11-25 15:48 @700

Hola, explorer, a ver, soy bastante chapucero, siento no ser muy claro en el código, espero que se entienda.

Una vez cargado el script, poner el comando /crear, así se creará el menú, ya se puede elegir una de las tres opciones y después ver que está almacenada en la variable $opcion.

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

use strict;
use warnings;
 
Xchat::register( "Progracion" , "1.0" , "Herramienta" );
Xchat::print( "Loading script..\n" );
 
Xchat::hook_command( "crear" , "load_menu");
Xchat::hook_command( "cmda" , "cmd1" );
Xchat::hook_command( "cmdb" , "cmd2" );
Xchat::hook_command( "cmdc" , "cmd3" );
Xchat::hook_command( "cmdres" , "msg" );
 
my $opcion= 1;
 
sub msg {
  Xchat::print( "Tiene el valor: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd1{
  $opcion=1;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd2{
  $opcion=2;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub cmd3{
  $opcion=3;
  Xchat::print( "Hemos Seleccionado opcion: $opcion\n" );
  return Xchat::EAT_XCHAT;
}
 
sub load_menu {
  my $base_menu = <<BASE_MENU;
MENU ADD "Leo"
MENU -r1,"leo" ADD "Leo/English" "cmda"
MENU -r0,"leo" ADD "Leo/Spanish" "cmdb"
MENU -r0,"leo" ADD "Leo/German" "cmdc"
MENU ADD "Leo/Ver valor" "cmdres"
BASE_MENU
  chomp (my @menu_array = split(/^/,$base_menu));
  foreach my $menu_item (@menu_array) {
    Xchat::command($menu_item);
  }
  return Xchat::EAT_XCHAT;
}
 
Xchat::print( "\0033Cargad con exito la herramienta prg.!\003\n" );
 

A mi me ha servido y funciona de maravilla

Salu2

Publicidad

Socializa