Zikoziz

No funciona del todo Mira este lo cree basado en lo anterior, el problema es que aun no funciona X.x // créditos Pastilla Para Servidor eRO OnInit: set .@cash, 10000; set $mingm,99; setarray .Cards[0],4121,4123,4128,4131,4132,4134,4135,4137,4142,4143,4144,4145,4146,4147,4148,4168,4236,4241,4263,4276,4302,4305,4318,4324,4330,4342,4357,4359,4361,4363,4365,4399,4403,4407; setarray .@tables$[0], "auction", "cart_inventory", "guild_storage", "inventory", "mail", "storage"; setarray .@s$[0], "seller_id", "char_id", "0", "char_id", "dest_id", "account_id"; que_moon,39,19,4 script cards_deleter 726,{ mes "¡Hola "+strcharinfo(0)+"! ¿Borramos las cartas MvP y Mini Boss?"; if (getgmlevel() >= $mingm) { switch(select("-Demosle:- Close")) { case 1: .@e$ = "|"; for ( ; .@a < 6 ; .@a++ ) { for ( .@b = 0 ; .@b < .@n0 ; .@b++ ) { if ( .@s$[.@a] != "0" ) { deletarray .@c ; .@n1 = query_sql ( "SELECT `"+ .@s$[.@a] +"` FROM `"+ .@tables$[.@a] +"` WHERE `nameid` = '"+ .@id[.@b] +"'", .@c ); for ( .@d = 0 ; .@d < .@n1 ; .@d++ ) { deletearray .@f ; if ( .@s$[.@a] != "account_id" ) query_sql ( "SELECT `account_id` FROM `char` WHERE `char_id` = '"+ .@c[.@d] +"' LIMIT 1", .@f ); else .@f[0] = .@c[.@d]; if ( ! compare ( .@e$, "|"+ .@c +"|" ) ) { .@e$ = .@e$ +""+ .@f[0] +"|"; query_sql "UPDATE `global_reg_value` SET `value` = `value` + '" +.@cash +"' WHERE `str` = '#CASHPOINTS' AND `account_id` = '" +.@f[0] +"'"; } } } query_sql "DELETE FROM `"+ .@tables$[.@a] +"` WHERE `nameid` = '"+ .@id[.@b] +"'"; } } dispbottom "Todo listo."; case 2: mes "^616D7E¡Bueno!, si eso es lo que quieres. :("; close; } end; } }

Ya tengo la licencia..... XD

cri cri... XD

Saludos, Me gustaría si alguien me pudiera ayudar a incorporar Harmony a mi emulador rathena, compre la licencia y su foro y soporte esta muerto, harmony aun es vijente pero para versiones muy antiguas de rathena. Si alguien me pudiera ayudar <3

Gracias!!! =D Lo probare y te aviso

Saludos, Necesito ayuda, 1.- Necesito borrar las card MVP's que se encuentran ingame en los usuarios(storage-inventario) 2.- Si es posible que al borrar la card entregue una cierta cantidad de Cash. PD: tengo un script que detecta las card MVPs en el servidor, detecta el usuario que tiene la carta y en donde inventario o storage. (por si sirve de algo) Muchas Gracias.

Pero que de innovación tendrá, ya que servidores como **** ya están traducidos completo al español.... Entonces no deberían incorporar algo nuevo que identifique a los latinos?

No need mapflag only script

Voy a testiar gracias por la ayuda

Hi, I'm developing a script for restricting mvp cards on maps of woe and its really doing is restricting the use of all mvp cards in the server I post the script function and the card function Script function function script Card { OnPCLoadMapEvent: if (strcharinfo(3) == @Maps$[.@i]) { atcommand "@storeall "+ strcharinfo(0); for( set .@i,0; .@i<getarraysize(.Card$); set .@i,.@i+1 ) { if ( isequipped(.Card$[.@i]) == 1 ) { set @Card$,@Card$+1; if ( @Card$ > 1){ dispbottom "No puedes usar más de una MvP card acá."; set @Card$,0; nude; } } } setarray .Card$[0],4357,4361,4363,4365,4367; setarray .Maps$[0], "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05", "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05", "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05", "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05", "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05", "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05"; } end; } aldeg_cas01 mapflag loadevent aldeg_cas02 mapflag loadevent aldeg_cas03 mapflag loadevent aldeg_cas04 mapflag loadevent aldeg_cas05 mapflag loadevent gefg_cas01 mapflag loadevent gefg_cas02 mapflag loadevent gefg_cas03 mapflag loadevent gefg_cas04 mapflag loadevent gefg_cas05 mapflag loadevent prtg_cas01 mapflag loadevent prtg_cas02 mapflag loadevent prtg_cas03 mapflag loadevent prtg_cas04 mapflag loadevent prtg_cas05 mapflag loadevent schg_cas01 mapflag loadevent schg_cas02 mapflag loadevent schg_cas03 mapflag loadevent schg_cas04 mapflag loadevent schg_cas05 mapflag loadevent arug_cas01 mapflag loadevent arug_cas02 mapflag loadevent arug_cas03 mapflag loadevent arug_cas04 mapflag loadevent arug_cas05 mapflag loadevent Script item_db add---> callfunc "Card" 4357,B_Seyren_Card,Lord Knight Card,6,20,,10,,,,,,,,769,,,,,{ callfunc "Card"; skill "LK_BERSERK",1; bonus bMaxHPrate,-50; },{},{} 4361,B_Harword_Card,MasterSmith Card,6,20,,10,,,,,,,,2,,,,,{ callfunc "Card"; bonus bBreakWeaponRate,1000; bonus bBreakArmorRate,700; },{},{} 4363,B_Magaleta_Card,High Priest Card,6,20,,10,,,,,,,,16,,,,,{ callfunc "Card"; bonus5 bAutoSpellWhenHit,"HP_ASSUMPTIO",5,50,BF_WEAPON|BF_MAGIC,0; },{},{} 4365,B_Katrinn_Card,High Wizard Card,6,20,,10,,,,,,,,769,,,,,{ bonus2 bIgnoreMdefClassRate,Class_Normal,100; bonus bVariableCastrate,100; bonus bSPrecovRate,-100; },{},{ heal 0,-2000; } 4367,B_Shecil_Card,Sniper Card,6,20,,10,,,,,,,,2,,,,,{ callfunc "Card"; bonus2 bHpDrainRate,100,20; bonus bHPrecovRate,-10; },{},{} Example: The skill "Bersek" disappears PS: The item_db don't show any error to please helpme!!!! Regards

Saludos, Estoy intentado que en WoE solo funcione 1 Card MVP de las que tenga el user equipada y las demas entren a storage. Aqui a Script function script Card { OnPCLoadMapEvent: if (strcharinfo(3) == @Maps$[.@i]) { atcommand "@storeall "+ strcharinfo(0); for( set .@i,0; .@i<getarraysize(.Card$); set .@i,.@i+1 ) { if ( isequipped(.Card$[.@i]) == 1 ) { set @Card$,@Card$+1; if ( @Card$ > 1){ dispbottom "No puedes usar más de una MvP card acá."; set @Card$,0; nude; } } } setarray .Card$[0],4357,4361,4363,4365,4367; setarray .Maps$[0], "prtg_cas01","prtg_cas02","prtg_cas03","prtg_cas04","prtg_cas05", "payg_cas01","payg_cas02","payg_cas03","payg_cas04","payg_cas05", "gefg_cas01","gefg_cas02","gefg_cas03","gefg_cas04","gefg_cas05", "aldeg_cas01","aldeg_cas02","aldeg_cas03","aldeg_cas04","aldeg_cas05", "arug_cas01","arug_cas02","arug_cas03","arug_cas04","arug_cas05", "schg_cas01","schg_cas02","schg_cas03","schg_cas04","schg_cas05"; } end; } aldeg_cas01 mapflag loadevent aldeg_cas02 mapflag loadevent aldeg_cas03 mapflag loadevent aldeg_cas04 mapflag loadevent aldeg_cas05 mapflag loadevent gefg_cas01 mapflag loadevent gefg_cas02 mapflag loadevent gefg_cas03 mapflag loadevent gefg_cas04 mapflag loadevent gefg_cas05 mapflag loadevent prtg_cas01 mapflag loadevent prtg_cas02 mapflag loadevent prtg_cas03 mapflag loadevent prtg_cas04 mapflag loadevent prtg_cas05 mapflag loadevent schg_cas01 mapflag loadevent schg_cas02 mapflag loadevent schg_cas03 mapflag loadevent schg_cas04 mapflag loadevent schg_cas05 mapflag loadevent arug_cas01 mapflag loadevent arug_cas02 mapflag loadevent arug_cas03 mapflag loadevent arug_cas04 mapflag loadevent Agregé callfunc "Card"; a las script de las card 4357,B_Seyren_Card,Lord Knight Card,6,20,,10,,,,,,,,769,,,,,{ callfunc "Card"; skill "LK_BERSERK",1; bonus bMaxHPrate,-50; },{},{} 4361,B_Harword_Card,MasterSmith Card,6,20,,10,,,,,,,,2,,,,,{ callfunc "Card"; bonus bBreakWeaponRate,1000; bonus bBreakArmorRate,700; },{},{} 4362,Harword_Card,Howard Alt-Eisen Card,6,20,,10,,,,,,,,2,,,,,{ callfunc "Card"; bonus bAspdRate,-5; bonus bHit,30; },{},{} 4364,Magaleta_Card,Margaretha Sorin Card,6,20,,10,,,,,,,,769,,,,,{ callfunc "Card"; bonus bInt,1; bonus5 bAutoSpellWhenHit,"PR_LEXDIVINA",5,150,BF_MAGIC,1; },{},{} 4367,B_Shecil_Card,Sniper Card,6,20,,10,,,,,,,,2,,,,,{ callfunc "Card"; bonus2 bHpDrainRate,100,20; bonus bHPrecovRate,-10; },{},{} El problema que tengo es que Skill como Bersek que me entrega la Lord Knight Card no me la toma en ningún mapa Si alguien me pudiera ayudar a dejar solo que funcione una card MVP en WoE que salga como al azar y las demás a storage PD: No marcan errores Script tampoco item_db

El diff es para agregar comandos al src

El problema es que no usas eamod esos comandos no te correrán con solo rathena

Fernando intenta con esto Yo lo tengo que pida 10 Valor Badge + 5.000.000 millones de Zeny Tu puedes editar esa parte como también el mensaje que te dice itemmall,194,72,4 script Custome 864,{ mes "[^FFA500Custome^000000]"; mes "¡Hola! ^0000FF" + strcharinfo(0) + "^000000."; mes "Yo puedo convertir cualquiera de tus Headgear en Custome items."; next; mes "[^FFA500Custome^000000]"; mes "Selecciona que item quieres convertir"; mes "^FF0000Advertencia:^000000 Los bonus, refine y cartas serán removidos."; mes "^FF0000Advertencia:^000000 Si no sabes lo que es pregunta a un GM o revisa información en el foro."; next; setarray .@Position$[1],"Top","Mid","Low"; setarray .@Position[1], 1, 9, 10; set .@Menu$,""; for( set .@i, 1; .@i < 4; set .@i, .@i + 1 ) { if( getequipisequiped(.@Position[.@i]) ) set .@Menu$, .@Menu$ + .@Position$[.@i] + "-" + "[" + getequipname(.@Position[.@i]) + "]"; set .@Menu$, .@Menu$ + ":"; } set .@Part, .@Position[ select(.@Menu$) ]; if( !getequipisequiped(.@Part) ) { mes "[^FFA500Custome^000000]"; mes "No estás vistiendo nada"; close; } mes "[^FFA500Custome^000000]"; mes "¿Quieres convertir " + getitemname(getequipid(.@Part)) + " en custome?"; next; if( select("Sí, por favor:No, lo siento.") == 2 ) { mes "[^FFA500Custome^000000]"; mes "Regresa cuando necesites de mis servicios."; close; } mes "[^FFA500Custome^000000]"; mes "Para poder convertir " + getitemname(getequipid(.@Part)) + " necesitas estas cosas."; mes "10 Valor Badge"; mes "5.000.000 millones de Zeny"; next; mes "[^FFA500Custome^000000]"; mes "¿Tienes lo que se necesita?"; next; if( select("Sí, lo tengo:No") == 2 ) { mes "[^FFA500Custome^000000]"; mes "Regresa cuando tengas lo que te pedí."; close; } if(countitem(7829) < 10 || Zeny < 5000000) { mes "[^FFA500Custome^000000]"; mes "Regresa cuando tengas los items."; close; } else { delitem 7829, 10; set Zeny, Zeny - 5000000; costume .@Part; // Convert the Headgear mes "[^FFA500Custome^000000]"; mes "Listo, disfrutalo."; close; } OnInit: waitingroom "Custome",0; end; }

Nice PM jejejejeje

Fix Gracias Lo habia escuchado pero no lo probe XD ando en pre rene XDDDDD

Me parece que solo el Armor Lucius's Fierce Armor of Volcano reduce el daño del DB

Si quieres usar idnum debes usar un exe 2012 Para exe 2013-2014 como dice ziu debes usar iteminfo de la carpeta system Y en el grf los respectivos .act y.spr

De nada, busca datas custom en google

aqui te dejo el link >>Descargar<<

Gracias Pero Mi Pc No Descarga En Mega nose porque si puedes subirlo a mediafire :3 y otra cocita no tienes el set re coloreado osea de otros colores? :3Dejame buscar y resubo el set

Saludos, Mira yo tengo ese set, te deje el link lo subi al Mega >> Little Devil Set << Bueno esto debes agregar a tu data o bien agregarlos al ItemInfo idnum2itemresnametable ID#Dark_LDHorns# ID#Dark_LDTail# ID#Dark_LDWings# ID#LDHorns# ID#LDTail# ID#LDWings# idnum2itemdisplaynametable ID#Dark_Little_Devil_Horns# ID#Dark_Little_Devil_Tail# ID#Dark_Little_Devil_Wings# ID#Little_Devil_Horns# ID#Little_Devil_Tail# ID#Little_Devil_Wings# visionary_tab !1000 _Dark_LDHorns _Dark_LDTail _Dark_LDWings _LDHorns _LDTail _LDWings Item_db aqui es relativo a lo que tu queiras agregar ID/Nombre/y sus efectos ID,Dark_LDH,Dark LDH,5,,0,10,,10,,2,0xFFFFFFFF,7,2,256,,1,1,1000,{},{},{} ID,Dark_LDT,Dark LDT,5,,0,10,,10,,2,0xFFFFFFFF,7,2,512,,1,1,1001,{},{},{} ID,Dark_LDW,Dark LDW,5,,0,10,,10,,2,0xFFFFFFFF,7,2,1,,1,1,1002,{},{},{} ID,Little_Devil_Horns,Little Devil Horns,5,,0,10,,10,,2,0xFFFFFFFF,7,2,256,,1,1,1003,{},{},{} ID,Little_Devil_Tail,Little Devil Tail,5,,0,10,,10,,2,0xFFFFFFFF,7,2,512,,1,1,1004,{},{},{} ID,Little_Devil_Wings,Little Devil Wings,5,,0,10,,10,,2,0xFFFFFFFF,7,2,1,,1,1,1005,{},{},{} espero que te sirva

y como lo puedo hacer? o hay alguna de modificar para que no de ese error?

xDDDDDDD