Search the Community

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