Compatibilizar Lander G3 Discoteque RC1 de Skipper

[Edgar 2]

Hace tiempo que tengo un script antiguo de eathena, una discoteca.

 

Hace poco regrese al mundo de Ragnarok y me decidi por Hercules.

 

Resulta que no he podido hacerlo funcionar, por lo que he visto hay que hacerlo compatible y mi nivel de programacion es minimo, tipo Hola Mundo.

 

Para ver si alguien podria ayudarme, se los agradezco de antemano. Saludos.

 

//===== eAthena Script =======================================//= Lady-DJ//===== By: ==================================================//= Skipper		http://roevolution.com//===== Current Version: =====================================//= 1.0//===== Compatible With: =====================================//= eAthena Trunk 143x SQL//===== Description: =========================================//= Simple Script que permite programar musica usando BGM//= Se basa en la Indexación te Temas Musicales en una Tabla//= Cuenta con un PlayList de 5 Canciones y Shuffle//= Los Temas Musicales deben ser tipo .MP3//===== Additional Comments: =================================//=//============================================================job_knt,43,165,4	script	Lady-DJ	123,{	if (.reloj > 0) {					mes "[ ^FF8000Lady DJ^000000 ]";					mes "Actualmente hay un Tema en mi Toca Discos :";					mes "^FFFFFF.";					set @minu,.reloj / 60; 		set @segu,.reloj % 60;					mes "^FF0080"	+	.tema$	+	"^000000";					mes "Tiempo Restante : ^FF0000-" + @minu + " : " + @segu;					next;					}L_MENU:	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Dime... ¿Que necesecitas?";	next;	switch(select(" ^FF0080Playlist: ^0000FFInformacion: ^8000FFComprar Poring Coin: ^800000Salir")) {			case 1:	goto PLAYLIST;			case 2:	mes "[ ^FF8000Lady DJ^000000 ]";					mes "Hola, yo soy la DJ de este Salon.";					mes "Mi tarea es hacer trabajar mi Toca Discos para ustedes.";					mes "Tu, puedes elegir el Tema que quieres Escuchar...";					next;					mes "[ ^FF8000Lady DJ^000000 ]";					mes "Es muy Facil:";					mes "Cada Tema vale ^FF80001 Poring Coin";					mes "Solo vas a ^FF0080PlayList^000000 y programas la Cancion que deseas escuchar...";					next;					mes "[ ^FF8000Lady DJ^000000 ]";					mes "  Es importante que tengas tu opcion de ^FF0000BGM^000000 configurada en ^0000FFON^000000, del Contrario no podras escuchar ninguna Cancion.";					close;			case 3:	mes "[ ^FF8000Lady DJ^000000 ]";					mes "^008040Los Poring Coin solo se consiguen por evento";					mes "¿Quieres mas informacion?";					next;					goto COINS;			case 4:	close;	}COINS://		menu "^8000FFComprar ",-,"^FF8000volver [-]",L_MENU;//		if (zeny < 500000000)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "^FF0080Cada 20 minutos hay evento automatico n.n.";	close;	}//		getitem 7539,1;//		set zeny,zeny-5000000;		mes "[ ^FF8000Lady DJ^000000 ]";		mes "Ve a Conseguir Poring Coin para que puedas programar una Cancion ^^";		close;// ........................................................................................................LISTADO:		set @indi,0;		set @indi,getarraysize(@ID);		if (@indi != 0) {					deletearray @ID[0],@indi;					deletearray @NAME2$[0],@indi;					deletearray @ARTIST$[0],@indi;			}		set @ID,0;	set @NAME$,"";	set @ARTIST$,"";	mes "--CATEGORIAS :";	mes "^8080C0Selecciona tu Genero Musical...";	next;/*Menu Musical---------------Las Categorias son agregas segun tu opcion dentro de la Tabla 'w_music'Recuerda que la Tabla contendra toda la Informacion de Cada tema musical que adiciones.*/switch(select(" Rock: Bailables: Regeton: Disco: Electronica: Rock Latino: Lentos: Hip Hop: Metal: Salir")) {	case 1:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROCK'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 2:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'BAILE'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 3:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'REGGE'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 4:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'DISCO'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 5:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ELEC'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 6:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROCKL'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 7:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROMAN'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 8:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'HIPHOP'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 9:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'METAL'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 10: close;}LISTAR:	mes "ID ----- Tema / Artista";	set @i,0;ID_IMPRO:	if (@i < getarraysize(@ID))	{		mes "^0000FF" + @ID[@i] +" ^000000[ ^FF0080"+ @NAME$[@i] + "^808080 / ^8080C0" + @ARTIST$[@i] + "^000000 ]";		set @i,@i+1;		goto ID_IMPRO;	}next;	switch(select(" ^0080FFir a Playlist: ^FF8000Ver mas Temas: ^FF0000Salir")) {			case 1:	goto PLAYLIST;			case 2: goto LISTAR;			case 3: close;	}// ........................................................................................................// CONTADOR DE SEGUNDOS PARA LOS TEMAS// -------------------------------------------------OnTimer1000:	set .reloj,.reloj-1;	if (.reloj == 0) {	delwaitingroom;	stopnpctimer;	goto PLAYTEMA;	end;	}	set .varA,.reloj / 60; 	set .varB,.reloj % 60;	delwaitingroom;	waitingroom .tema$+" -"+.varA+":"+.varB+"",0;	initnpctimer;	end;// -------------------------------------------------PLAYLIST:	mes "^008000Playlist :^000000";	if (.reloj > 0)	{	mes "^0000FF[P] ^FF0000" + .tema$;	mes "^FFFFFF.";	}	if (.lista$[0] == "")	mes "^8000FF[1] ^808080vacio^000000";	else	mes "^8000FF[1] ^0080C0" + .lista$[0] + "^000000";	if (.lista$[1] == "")	mes "^8000FF[2] ^808080vacio^000000";	else	mes "^8000FF[2] ^800040" + .lista$[1] + "^000000";	if (.lista$[2] == "")	mes "^8000FF[3] ^808080vacio^000000";	else	mes "^8000FF[3] ^800040" + .lista$[2] + "^000000";	next;			switch(select(" ^0080C0Menu de Temas [0]: ^008000Agregar Tema [ + ]: ^FF0000Salir")) {			case 1: 	goto LISTADO;			case 2:		if (getarraysize(.lista$) > 2)	{	mes "^FF8000Actualmente no hay Espacio para Agregar otro Tema, intenta mas tarde.";	close;	}						else {	goto AGREGAR_T;	}			case 3:		close;			}AGREGAR_T:		if (countitem(7539) == 0)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Debes tener una ^FF0080Poring Coin^000000 para programar una cancion.";	close;}		mes "[ ^FF8000Lady DJ^000000 ]";		mes "Ingresa la #ID del Tema :";		mes "^808080Ingresa ^8080FFCero ^808080si deseas Salir.";		next;L_INPU:	input .@ID;	if (.@ID == 0) close;	query_sql("SELECT COUNT(ID) FROM w_music WHERE ID = '" + .@ID + "'", @punto);	if (@punto == 0) { mes "ID NO EXISTE"; close; }	// BUSCAMOS EL TEMA SEGUN ID	query_sql("SELECT ID,NAME,ARTIST,TIME,FILE FROM w_music WHERE ID = '" + .@ID + "'", @ID,@NAME$,@ARTIST$,@TIME,@FILE$);	mes "[ ^FF0000Landy DJ^000000 ]";	mes "^508050ID# : ^8080C0" 		+ @ID[0];	mes "^508050Cancion : ^0000FF"	+ @NAME$[0];	mes "^508050Artista : ^008000"	+ @ARTIST$[0];	set @minu,@TIME[0] / 60; 		set @segu,@TIME[0] % 60;	mes "^808080Duracion : ^FF0080"	+ @minu + "." + @segu;	switch(select(" ^008000Agregar [ + ]: ^FF8000Ingresar Otro: ^FF0000Salir")) {				case 1:	goto L_ADDER;				case 2:	next;	goto AGREGAR_T;				case 3:	close;	}L_ADDER:				mes "^FF0000 ------- AGREGADO -------";				// Revisa si alguien programo antes				if (countitem(7539) == 0)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Debes tener una ^FF0080Poring Coin^000000 para programar una cancion.";	close;}				if (getarraysize(.lista$) > 2)	{	mes "^FF8000Actualmente no hay Espacio para Agregar otro Tema, intenta mas tarde.";	close;	}				if (getarraysize(.lista$) == 0)	set @indi,0;				if (getarraysize(.lista$) == 1)	set @indi,1;				if (getarraysize(.lista$) == 2)	set @indi,2;				set .lista$[@indi],@NAME$[0] + " ^808080("+strcharinfo(0)+")";				set .play[@indi],@ID[0];				set .usere$[@indi],strcharinfo(0);				delitem 7539,1;		close2;			if (.automa == 1) {	set .automa,0;	goto DIRECTO;	}PLAYTEMA:	if (.reloj == 0 && getarraysize(.lista$) == 0 && .shuffle == 0) { goto  SHUFFLE; }	if (.reloj == 0) {DIRECTO:					query_sql("SELECT ID,NAME,ARTIST,TIME,FILE FROM w_music WHERE ID = '" + .play[0] + "'", .@ID,.@NAME$,.@ARTIST$,.@TIME,.@FILE$);// Correr el Tema// ---------------// El script funciona tomando el nombre de Archivo almacenado en la tabla 'w_music'// puedes cambiar el directorio que es lander quedando asi:// 								ROBGMlander// Mapa// --------------// Para que el tema musical sea escuchado por varios players// debes asiganar un rango de Area, ver : playBGMall					playBGMall "lander/"+.@FILE$[0],"job_knt",20,167,67,122;					set .tema$,.@NAME$[0];					set .@minu,.@TIME[0] / 60; 		set .@segu,.@TIME[0] % 60;					areaannounce "job_knt",20,167,67,122,.@ARTIST$[0] + "  :  "+.@NAME$[0]+"   ["+.@minu+":"+.@segu+"] ( programado por :  " + .usere$[0] + " )",bc_map|bc_woe,"0x00CCFF",FW_BOLD,10;					delwaitingroom;					waitingroom .tema$	+	" [ "	+	.@minu	+	":"	+	.@segu	+	" ]",0;					set .ultimo,.@ID;					set .reloj,.@TIME[0];					deletearray .lista$[0],1;					deletearray .play[0],1;					deletearray .usere$[0],1;					set .shufle,0;					initnpctimer;					end;				}	goto PLAYLIST;	end;SHUFFLE:	query_sql("SELECT ID FROM w_music LIMIT 126", .@ID);LANDA:	set .@palo, rand (0,getarraysize(.@ID));	if (.@palo == 0) {	set .@palo,0;	}	else {	set .@palo,.@palo-1;	}	if (.ultimo == .@ID[.@palo]) goto LANDA;	set .usere$[0],"~Lady DJ~";	set .play[0],.@ID[.@palo];	set .shufle,1;	set .automa,1;	goto DIRECTO;	end;}

 

y en la Base de Datos
 

CREATE TABLE `w_music` (  `ID` int(5) NOT NULL auto_increment,  `FILE` char(100) default NULL,  `TIME` int(5) default NULL,  `NAME` char(100) default NULL,  `ARTIST` char(100) default NULL,  `TYPE` char(20) default NULL,  `RANK` int(4) default NULL,  PRIMARY KEY  (`ID`)) ENGINE=MyISAM AUTO_INCREMENT=138 DEFAULT CHARSET=latin1

 

 

Enlace Original: http://www.eathena.ws/board/index.php?showtopic=254275

 

 

[jaBote 438]

Previo a probarlo en una instalación local de Hercules, he visto que había un error de scripting en el código. Ahora es obligatorio que todos los comandos de scripting estén en minúsculas. El validador de scripts de Haruna ha lanzado el siguiente error al copiar y pegar tu script:

 

 

[Error]: script_add_str: detected possible use of wrong case in a script. Found 'playBGMall', probably meant to be 'playbgmall' (in '/tmp/checkerkaHVGI'). [Error]: script error in file '(DIRECT INPUT)' line 243 column 6 

 

 

He solucionado ese error haciendo lo que la consola dice (cambiar playBGMall por playbgmall, esto es un error de estilo del scripter) y parece que el script con ese pequeño cambio ha pasado el validador sin ningún error más. Por favor, comprueba si el siguiente script funciona adecuadamente:

 

//===== eAthena Script =======================================//= Lady-DJ//===== By: ==================================================//= Skipper		http://roevolution.com//===== Current Version: =====================================//= 1.0//===== Compatible With: =====================================//= eAthena Trunk 143x SQL//===== Description: =========================================//= Simple Script que permite programar musica usando BGM//= Se basa en la Indexación te Temas Musicales en una Tabla//= Cuenta con un PlayList de 5 Canciones y Shuffle//= Los Temas Musicales deben ser tipo .MP3//===== Additional Comments: =================================//=//============================================================job_knt,43,165,4	script	Lady-DJ	123,{	if (.reloj > 0) {					mes "[ ^FF8000Lady DJ^000000 ]";					mes "Actualmente hay un Tema en mi Toca Discos :";					mes "^FFFFFF.";					set @minu,.reloj / 60; 		set @segu,.reloj % 60;					mes "^FF0080"	+	.tema$	+	"^000000";					mes "Tiempo Restante : ^FF0000-" + @minu + " : " + @segu;					next;					}L_MENU:	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Dime... ¿Que necesecitas?";	next;	switch(select(" ^FF0080Playlist: ^0000FFInformacion: ^8000FFComprar Poring Coin: ^800000Salir")) {			case 1:	goto PLAYLIST;			case 2:	mes "[ ^FF8000Lady DJ^000000 ]";					mes "Hola, yo soy la DJ de este Salon.";					mes "Mi tarea es hacer trabajar mi Toca Discos para ustedes.";					mes "Tu, puedes elegir el Tema que quieres Escuchar...";					next;					mes "[ ^FF8000Lady DJ^000000 ]";					mes "Es muy Facil:";					mes "Cada Tema vale ^FF80001 Poring Coin";					mes "Solo vas a ^FF0080PlayList^000000 y programas la Cancion que deseas escuchar...";					next;					mes "[ ^FF8000Lady DJ^000000 ]";					mes "  Es importante que tengas tu opcion de ^FF0000BGM^000000 configurada en ^0000FFON^000000, del Contrario no podras escuchar ninguna Cancion.";					close;			case 3:	mes "[ ^FF8000Lady DJ^000000 ]";					mes "^008040Los Poring Coin solo se consiguen por evento";					mes "¿Quieres mas informacion?";					next;					goto COINS;			case 4:	close;	}COINS://		menu "^8000FFComprar ",-,"^FF8000volver [-]",L_MENU;//		if (zeny < 500000000)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "^FF0080Cada 20 minutos hay evento automatico n.n.";	close;	}//		getitem 7539,1;//		set zeny,zeny-5000000;		mes "[ ^FF8000Lady DJ^000000 ]";		mes "Ve a Conseguir Poring Coin para que puedas programar una Cancion ^^";		close;// ........................................................................................................LISTADO:		set @indi,0;		set @indi,getarraysize(@ID);		if (@indi != 0) {					deletearray @ID[0],@indi;					deletearray @NAME2$[0],@indi;					deletearray @ARTIST$[0],@indi;			}		set @ID,0;	set @NAME$,"";	set @ARTIST$,"";	mes "--CATEGORIAS :";	mes "^8080C0Selecciona tu Genero Musical...";	next;/*Menu Musical---------------Las Categorias son agregas segun tu opcion dentro de la Tabla 'w_music'Recuerda que la Tabla contendra toda la Informacion de Cada tema musical que adiciones.*/switch(select(" Rock: Bailables: Regeton: Disco: Electronica: Rock Latino: Lentos: Hip Hop: Metal: Salir")) {	case 1:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROCK'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 2:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'BAILE'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 3:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'REGGE'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 4:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'DISCO'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 5:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ELEC'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 6:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROCKL'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 7:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'ROMAN'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 8:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'HIPHOP'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 9:	query_sql("SELECT ID,NAME,ARTIST FROM w_music WHERE TYPE = 'METAL'", @ID,@NAME$,@ARTIST$);	goto LISTAR;	case 10: close;}LISTAR:	mes "ID ----- Tema / Artista";	set @i,0;ID_IMPRO:	if (@i < getarraysize(@ID))	{		mes "^0000FF" + @ID[@i] +" ^000000[ ^FF0080"+ @NAME$[@i] + "^808080 / ^8080C0" + @ARTIST$[@i] + "^000000 ]";		set @i,@i+1;		goto ID_IMPRO;	}next;	switch(select(" ^0080FFir a Playlist: ^FF8000Ver mas Temas: ^FF0000Salir")) {			case 1:	goto PLAYLIST;			case 2: goto LISTAR;			case 3: close;	}// ........................................................................................................// CONTADOR DE SEGUNDOS PARA LOS TEMAS// -------------------------------------------------OnTimer1000:	set .reloj,.reloj-1;	if (.reloj == 0) {	delwaitingroom;	stopnpctimer;	goto PLAYTEMA;	end;	}	set .varA,.reloj / 60; 	set .varB,.reloj % 60;	delwaitingroom;	waitingroom .tema$+" -"+.varA+":"+.varB+"",0;	initnpctimer;	end;// -------------------------------------------------PLAYLIST:	mes "^008000Playlist :^000000";	if (.reloj > 0)	{	mes "^0000FF[P] ^FF0000" + .tema$;	mes "^FFFFFF.";	}	if (.lista$[0] == "")	mes "^8000FF[1] ^808080vacio^000000";	else	mes "^8000FF[1] ^0080C0" + .lista$[0] + "^000000";	if (.lista$[1] == "")	mes "^8000FF[2] ^808080vacio^000000";	else	mes "^8000FF[2] ^800040" + .lista$[1] + "^000000";	if (.lista$[2] == "")	mes "^8000FF[3] ^808080vacio^000000";	else	mes "^8000FF[3] ^800040" + .lista$[2] + "^000000";	next;			switch(select(" ^0080C0Menu de Temas [0]: ^008000Agregar Tema [ + ]: ^FF0000Salir")) {			case 1: 	goto LISTADO;			case 2:		if (getarraysize(.lista$) > 2)	{	mes "^FF8000Actualmente no hay Espacio para Agregar otro Tema, intenta mas tarde.";	close;	}						else {	goto AGREGAR_T;	}			case 3:		close;			}AGREGAR_T:		if (countitem(7539) == 0)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Debes tener una ^FF0080Poring Coin^000000 para programar una cancion.";	close;}		mes "[ ^FF8000Lady DJ^000000 ]";		mes "Ingresa la #ID del Tema :";		mes "^808080Ingresa ^8080FFCero ^808080si deseas Salir.";		next;L_INPU:	input .@ID;	if (.@ID == 0) close;	query_sql("SELECT COUNT(ID) FROM w_music WHERE ID = '" + .@ID + "'", @punto);	if (@punto == 0) { mes "ID NO EXISTE"; close; }	// BUSCAMOS EL TEMA SEGUN ID	query_sql("SELECT ID,NAME,ARTIST,TIME,FILE FROM w_music WHERE ID = '" + .@ID + "'", @ID,@NAME$,@ARTIST$,@TIME,@FILE$);	mes "[ ^FF0000Landy DJ^000000 ]";	mes "^508050ID# : ^8080C0" 		+ @ID[0];	mes "^508050Cancion : ^0000FF"	+ @NAME$[0];	mes "^508050Artista : ^008000"	+ @ARTIST$[0];	set @minu,@TIME[0] / 60; 		set @segu,@TIME[0] % 60;	mes "^808080Duracion : ^FF0080"	+ @minu + "." + @segu;	switch(select(" ^008000Agregar [ + ]: ^FF8000Ingresar Otro: ^FF0000Salir")) {				case 1:	goto L_ADDER;				case 2:	next;	goto AGREGAR_T;				case 3:	close;	}L_ADDER:				mes "^FF0000 ------- AGREGADO -------";				// Revisa si alguien programo antes				if (countitem(7539) == 0)	{	mes "[ ^FF8000Lady DJ^000000 ]";	mes "Debes tener una ^FF0080Poring Coin^000000 para programar una cancion.";	close;}				if (getarraysize(.lista$) > 2)	{	mes "^FF8000Actualmente no hay Espacio para Agregar otro Tema, intenta mas tarde.";	close;	}				if (getarraysize(.lista$) == 0)	set @indi,0;				if (getarraysize(.lista$) == 1)	set @indi,1;				if (getarraysize(.lista$) == 2)	set @indi,2;				set .lista$[@indi],@NAME$[0] + " ^808080("+strcharinfo(0)+")";				set .play[@indi],@ID[0];				set .usere$[@indi],strcharinfo(0);				delitem 7539,1;		close2;			if (.automa == 1) {	set .automa,0;	goto DIRECTO;	}PLAYTEMA:	if (.reloj == 0 && getarraysize(.lista$) == 0 && .shuffle == 0) { goto  SHUFFLE; }	if (.reloj == 0) {DIRECTO:					query_sql("SELECT ID,NAME,ARTIST,TIME,FILE FROM w_music WHERE ID = '" + .play[0] + "'", .@ID,.@NAME$,.@ARTIST$,.@TIME,.@FILE$);// Correr el Tema// ---------------// El script funciona tomando el nombre de Archivo almacenado en la tabla 'w_music'// puedes cambiar el directorio que es lander quedando asi:// 								ROBGMlander// Mapa// --------------// Para que el tema musical sea escuchado por varios players// debes asiganar un rango de Area, ver : playBGMall					playbgmall "lander/"+.@FILE$[0],"job_knt",20,167,67,122;					set .tema$,.@NAME$[0];					set .@minu,.@TIME[0] / 60; 		set .@segu,.@TIME[0] % 60;					areaannounce "job_knt",20,167,67,122,.@ARTIST$[0] + "  :  "+.@NAME$[0]+"   ["+.@minu+":"+.@segu+"] ( programado por :  " + .usere$[0] + " )",bc_map|bc_woe,"0x00CCFF",FW_BOLD,10;					delwaitingroom;					waitingroom .tema$	+	" [ "	+	.@minu	+	":"	+	.@segu	+	" ]",0;					set .ultimo,.@ID;					set .reloj,.@TIME[0];					deletearray .lista$[0],1;					deletearray .play[0],1;					deletearray .usere$[0],1;					set .shufle,0;					initnpctimer;					end;				}	goto PLAYLIST;	end;SHUFFLE:	query_sql("SELECT ID FROM w_music LIMIT 126", .@ID);LANDA:	set .@palo, rand (0,getarraysize(.@ID));	if (.@palo == 0) {	set .@palo,0;	}	else {	set .@palo,.@palo-1;	}	if (.ultimo == .@ID[.@palo]) goto LANDA;	set .usere$[0],"~Lady DJ~";	set .play[0],.@ID[.@palo];	set .shufle,1;	set .automa,1;	goto DIRECTO;	end;}

[Edgar 2]

¡Ha funcionado! Empezare a poner canciones, es muy buen script, lo recomiendo.

Gracias ademas por explicarme la regla de las minúsculas, sinceramente me quede en los tiempos de eathena. >=)