Ichigo

Actualizado y testeado, a la versión 1.2. Nota: En la db, cuando más pequeño es la tax, menos posibilidad tiene de salir el item.

The interface is already created and I guess that will come officially included in the data.grf or rdata.grf therefore should only be programmed the operation of the interface that is combined with a db. Hopefully it implemented, would be luxury. La interface ya esta creada oficialmente y supongo que vendra incluida en el data.grf o en el rdata.grf, por lo tanto solo debe ser programar el funcionamiento de dicha interface para que se combine con una db. Ojala lo implemente, estaria de lujo.

Hola a todos. Este evento esta inspirado en el ultimo evento activo del RO2. Consiste en ir matando mobs, y estos pueden dropear ciertos items, un tesoro y un martillo, los martillos son necesarios para abrir los tesoros. + info item_db2 31349,Pandora's_Box,Pandora's Box,3,0,,0,,,,,,,,,,,,,{},{},{} 31350,Pandora's_Mallet,Pandora's Mallet,11,20,,10,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc "F_Pandora_Box",31350; },{},{} 31351,Pandora's_Key,Pandora's Key,11,20,,10,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc "F_Pandora_Box",31351; },{},{} idnum2itemdesctable.txt 31349# Item obtained is base on the items which is used to open the box. Can be opened by using Pandora's Mallet or Pandora's Keys. # 31350# A powerful hammer which can force open the treasure box. # 31351# Krafra Items Key to open Pandora Box. ^CC0000Cannot Destroy. Sharing among characters in one account is not possible. Usable to keep at Guild Storage.^000000 # idnum2itemdisplaynametable.txt 31349#Pandora's_Box# 31350#Pandora's_Mallet# 31351#Pandora's_Key# idnum2itemresnametable.txt 31349#º¸¹°»óÀÚ_# 31350#ºê¶óµð¿òµ¹¸ÁÄ¡# 31351#½Ã°èž¿­¼è# pandora_box.txt //============================================ // Pandora's Box // Creado por Ichigo // Versión 1.3 //============================================ // item_db2.txt // 31349,Pandora's_Box,Pandora's Box,3,0,,0,,,,,,,,,,,,,{},{},{} // 31350,Pandora's_Mallet,Pandora's Mallet,11,20,,10,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc "F_Pandora_Box",31350; },{},{} // 31351,Pandora's_Key,Pandora's Key,11,20,,10,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc "F_Pandora_Box",31351; },{},{} //============================================ // idnum2itemdesctable.txt // 31349# // Item obtained is base on the items which is used to open the box. // Can be opened by using Pandora's Mallet or Pandora's Keys. // # // 31350# // A powerful hammer which can force open the treasure box. // # // 31351# // Krafra Items // Key to open Pandora Box. // ^CC0000Cannot Destroy. // Sharing among characters in one account is not possible. // Usable to keep at Guild Storage.^000000 // # //============================================ // idnum2itemdisplaynametable.txt // 31349#Pandora's_Box# // 31350#Pandora's_Mallet# // 31351#Pandora's_Key# //============================================ // idnum2itemresnametable.txt // 31349#º¸¹°»óÀÚ_# // 31350#ºê¶óµð¿òµ¹¸ÁÄ¡# // 31351#½Ã°èž¿­¼è# //============================================ function script F_Pandora_Box { if(getarg(0) == 31350) { set [email protected], 100; set [email protected], 25; } else { set [email protected], 75; set [email protected], 0; } set [email protected], rand([email protected],[email protected]); set @nb, query_sql("SELECT item_id FROM `pandora_db` WHERE tax >= "[email protected]+" and tax <= "[email protected]+" ORDER BY rand() LIMIT 0 , 1;", @item_id); if(countitem(31349) < 1) { dispbottom "Necesitas 1 "+getitemname(31349); end; } delitem getarg(0), 1; delitem 31349, 1; getitem @item_id, 1; end; } - script pandora_box -1,{ end; OnNPCKillEvent: // Protección de mobs deviles if(BaseLevel < 20) end; if(strmobinfo(3,killedrid) < (BaseLevel - 50)) end; if(strmobinfo(3,killedrid) > (BaseLevel + 50)) end; if(rand(10000) <= 1000) getitem 31349, 1; // 10% de posibilidad if(rand(10000) <= 100) getitem 31350, 1; // 1% de posibilidad end; } //prontera,147,165,4 shop Kafra#prt_pandora 49,31350:50000 En la sql CREATE TABLE IF NOT EXISTS `pandora_db` ( `item_id` int(11) NOT NULL, `tax` int(11) NOT NULL, UNIQUE KEY `item_id` (`item_id`) ) ENGINE=InnoDB DEFAULT CHARSET=latin1; INSERT INTO `pandora_db` (`item_id`, `tax`) VALUES (512, 100), (521, 100), (529, 100), (601, 90), (602, 70), (603, 70), (604, 70), (605, 70), (606, 70), (607, 90), (608, 95), (610, 75), (616, 25), (656, 50), (657, 75), (662, 95), (670, 75), (969, 50), (988, 25), (989, 25), (1649, 2), (1658, 3), (2111, 20), (2115, 20), (2124, 28), (2125, 30), (2128, 1), (2129, 1), (2147, 30), (2148, 20), (2151, 1), (2153, 20), (2160, 1), (2341, 50), (2342, 25), (2375, 1), (2383, 1), (5390, 10), (5445, 30), (6320, 25), (7230, 25), (7444, 25), (7510, 25), (7875, 25), (8969, 29), (12028, 72), (12031, 77), (12103, 25), (12208, 28), (12210, 25), (12214, 35), (12248, 4), (12278, 26), (12281, 78), (12301, 3), (12302, 3), (12321, 76), (12354, 75), (12575, 49), (12617, 31), (14517, 50), (14518, 50), (14519, 50), (14520, 50), (14527, 70), (14545, 1), (15014, 1), (15023, 25), (15037, 1), (15044, 20), (15046, 28), (15053, 26), (15054, 1), (15056, 20), (16998, 2), (19507, 25); pandora_box.txt

Si, es como menciona DanielArt.

Si, era una forma de especificar por partes, o si se quiere modificar el precio de x parte en especial. xD

Hola a todos. Les traigo un encantador de equipo, encanta cualquier tipo de equipo a cambio de cash. Solo tienen que cambiar la posición del NPC. Espero que les guste. Encantamiento.txt //===================================== // Script creado por Ichigo //===================================== Crystilia,52,91,5 script Freya#Encantamiento 465,{ set @name$, "[^0000FFFreya^000000]"; cutin "3rd_wl_queen01",2; mes @name$; mes "Soy la diosa Freya."; mes "Capaz de encantar cualquier parte de tu equipo."; M_Menu: next; menu "Head - ["+getequipname(1)+"]",PART1,"Body - ["+getequipname(2)+"]",PART2,"Left hand - ["+getequipname(3)+"]",PART3,"Right hand - ["+getequipname(4)+"]",PART4,"Robe - ["+getequipname(5)+"]",PART5,"Shoes - ["+getequipname(6)+"]",PART6,"Accessory 1 - ["+getequipname(7)+"]",PART7,"Accessory 2 - ["+getequipname(8)+"]",PART8,"Head 2 - ["+getequipname(9)+"]",PART9,"Head 3 - ["+getequipname(10)+"]",PART10; //Head Gear PART1: set [email protected],1; set [email protected],50; if (getequipisequiped(1)) goto CHECK1; goto NoEncantar; //Armor PART2: set [email protected],2; if (getequipisequiped(2)) goto CHECK1; goto NoEncantar; //Left Hand PART3: set [email protected],3; if (getequipisequiped(3)) goto CHECK1; goto NoEncantar; //Right Hand PART4: set [email protected],4; if (getequipisequiped(4)) goto CHECK1; goto NoEncantar; //Garment PART5: set [email protected],5; if (getequipisequiped(5)) goto CHECK1; goto NoEncantar; //Foot Gear PART6: set [email protected],6; if (getequipisequiped(6)) goto CHECK1; goto NoEncantar; //Accessory1 PART7: set [email protected],7; if (getequipisequiped(7)) goto CHECK1; goto NoEncantar; //Accessory2 PART8: set [email protected],8; if (getequipisequiped(8)) goto CHECK1; goto NoEncantar; PART9: set [email protected],9; if (getequipisequiped(9)) goto CHECK1; goto NoEncantar; PART10: set [email protected],10; goto NoEncantar; CHECK1: switch([email protected]) { case 1: case 2: set [email protected],500; break; case 3: case 4: switch(getequipweaponlv([email protected])) { case 1: set [email protected],350; break; case 2: set [email protected],400; break; case 3: set [email protected],450; break; case 4: set [email protected],500; break; } break; case 5: case 6: case 7: case 8: case 9: case 10: set [email protected],500; break; } callsub S_Enchant,getequipid([email protected]),[email protected],[email protected]; end; NoEncantar: mes @name$; mes "No tienes nada para encantar"; emotion 6; goto M_Menu; S_Enchant: if(countitem(getarg(0)) == 1) { set [email protected]_Slots, getitemslots(getarg(0)); set [email protected], getequipcardid(getarg(1),0); set [email protected], getequipcardid(getarg(1),1); set [email protected], getequipcardid(getarg(1),2); set [email protected], getequipcardid(getarg(1),3); mes @name$; mes "Cada vez que quieras encantarlo, cuesta "+getarg(2)+" Cash Points."; mes "¿Quieres encantarlo?"; next; switch(select("Hmm... Mejor más tarde.:Si, encantala.")) { case 1: close2; cutin "", 255; end; case 2: if([email protected]_Slots == 4) { mes "No puedes encantarlo."; close2; cutin "", 255; end; } if(([email protected]_Slots == 3) && ([email protected] > 0)) { mes "No puedes encantarlo."; close2; cutin "", 255; end; } if(([email protected]_Slots == 2) && ([email protected] > 0)) { if([email protected] > 0) { mes "No puedes encantarlo."; close2; cutin "", 255; end; } } if(([email protected]_Slots == 1) && ([email protected] > 0)) { if([email protected] > 0) { if([email protected] > 0) { mes "No puedes encantarlo."; close2; cutin "", 255; end; } } } if(([email protected]_Slots == 0) && ([email protected] > 0)) { if([email protected] > 0) { if([email protected] > 0) { if([email protected] > 0) { mes "No puedes encantarlo."; close2; cutin "", 255; end; } } } } } if(#CASHPOINTS < getarg(2)) { mes @name$; mes "Lo siento, pero no tienes suficientes Cash Points."; close2; cutin "", 255; end; } mes @name$; mes "Vamos a encantarla ..."; progressbar "ffff00",7; close2; M_Selec: set [email protected], rand(4700,4862); if(([email protected] == 4845) || ([email protected] == 4846) || ([email protected] == 4847)) goto M_Selec; switch([email protected]_Slots) { case 0: if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; break; case 1: if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; break; case 2: if([email protected] == 0) set [email protected], [email protected]; else if([email protected] == 0) set [email protected], [email protected]; break; case 3: if([email protected] == 0) set [email protected], [email protected]; break; } set #CASHPOINTS, #CASHPOINTS - getarg(2); set [email protected], getequiprefinerycnt(getarg(1)); // Refinamiento del equipo delitem getarg(0), 1; if(rand(10000) <= (2500+(readparam(bLuk)+readparam(SC_INCLUK))+(readparam(bDex)+readparam(SC_INCDEX)))) { getitem2 getarg(0), 1, 1, [email protected], 0, [email protected], [email protected], [email protected], [email protected]; //specialeffect2 EF_REFINEOK; specialeffect EF_LORD; mes @name$; mes "Perfecto, todo ha salido bien."; close2; cutin "", 255; end; } else { //specialeffect2 EF_REFINEFAIL; specialeffect EF_SUI_EXPLOSION; mes @name$; mes "Lo siento, el proceso ha fallado."; close2; cutin "", 255; end; } } else if(countitem(getarg(0)) > 1) { mes @name$; mes "Hmm? Solo puedes tener un mismo tipo de objeto!"; mes "Por favor, vuelva con un solo equipo a encantar."; close2; cutin "", 255; end; } else { mes @name$; mes "Hmm? No hay nada que encantar!"; mes "Por favor, vuelva con un solo equipo a encantar."; close2; cutin "", 255; end; } end; }

Aquí les traigo como añadir un poco de seguridad a los almacenes de guild. Primero en el src\map\atcommand.c Buscamos: ACMD_FUNC(guildstorage) { nullpo_retr(-1, sd); if (!sd->status.guild_id) { clif_displaymessage(fd, msg_txt(sd,252)); return -1; } if (sd->npc_id || sd->state.vending || sd->state.buyingstore || sd->state.trading) return -1; if (sd->state.storage_flag == 1) { clif_displaymessage(fd, msg_txt(sd,250)); return -1; } if (sd->state.storage_flag == 2) { clif_displaymessage(fd, msg_txt(sd,251)); return -1; } storage_guild_storageopen(sd); clif_displaymessage(fd, msg_txt(sd,920)); // Guild storage opened. return 0; } Y añadimos debajo: /*========================================= * gstorage Security System *-----------------------------------------*/ ACMD_FUNC(gstoragesecurity) { nullpo_retr(-1,sd); if( sd->npc_id || sd->vender_id || sd->buyer_id || sd->state.trading || sd->state.storage_flag ) return -1; npc_event(sd,"GstorageSecurity::OnGuild",0); return 0; } Luego, en el mismo documento buscamos: ACMD_DEF(unloadnpcfile), ACMD_DEF(cart), ACMD_DEF(mount2), Y al final añadimos: ACMD_DEF2("gstorage",gstoragesecurity), Compilamos, sino no funciona. Y cargamos el siguiente script: gstorage_security.txt - script GstorageSecurity -1,{ end; OnGuild: if (!query_sql("show columns from `guild` like 'gstorage_mode'",@ignore,@ignore,@ignore,@ignore,@ignore,@ignore)) { mes "Hubo un error de base de datos críticos. Please informar de ello a un GM!"; close; } if (!getcharid(2)) { mes "[Guild S.]"; mes "Lo sentimos, usted debe estar en un clan para utilizar esta función!"; close; } mes "[Guild S.]"; mes "¿Qué te gustaría hacer?"; next; switch(select("Usar guild Storage (500 zeny)","Ver configuración","Atras")) { case 1: goto L_UseGStorage; case 2: query_sql "select gstorage_mode,gstorage_pos,gstorage_password from `guild` where `guild_id` = "+getcharid(2),@mode,@pos,@password$; if (strcharinfo(0) == getguildmaster(getcharid(2))) { next; mes "[Guild S.]"; mes "Guild Storage modo de acceso está configurado para "[email protected][0]; mes "0= sin restricción de acceso"; mes "1= requisito Posición"; mes "2= protegidos por contraseña"; switch(select("Cambiar el modo","Establecer posición minima permitida","Establecer Contraseña","Atras")) { case 1: mes "Entre en el modo #"; input @temp; if (@temp < 0) set @temp, 0; if (@temp > 2) set @temp, 2; query_sql "update `guild` set gstorage_mode = "[email protected]+" where guild_id = "+getcharid(2),@ignore; mes "Modo ajustado a "[email protected]; next; goto OnGuild; case 2: mes "Introduzca la posición mínima"; input @temp; if (@temp < 1) set @temp, 1; if (@temp > 50) set @temp, 50; query_sql "update `guild` set gstorage_pos = "[email protected]+" where guild_id = "+getcharid(2),@ignore; mes "Posición mínima establecida a "[email protected]; next; goto OnGuild; case 3: mes "Introduzca la contraseña, introduzca un espacio para cancelar"; input @temp$; set @temp$, escape_sql(@temp$); if (@temp$ == " ") { next; goto OnGuild; } query_sql "update `guild` set gstorage_password = '"+escape_sql(@temp$)+"' where guild_id = "+getcharid(2),@ignore; mes "Contraseña establece a "[email protected]$; next; goto OnGuild; case 4: next; goto OnGuild; } } else { query_sql "select gstorage_mode from `guild` where guild_id = "+getcharid(2),@mode; mes "[Guild S.]"; switch(@mode) { case 0: mes "Guild storage is not currently restricted."; break; case 1: mes "Guild storage is currently restricted by position."; break; case 2: mes "Guild storage is currently restricted via password."; break; } next; goto OnGuild; } case 3: close; } close; L_UseGStorage: if (strcharinfo(0) == getguildmaster(getcharid(2))) goto L_UseGStorageSkip; query_sql "select gstorage_mode,gstorage_pos,gstorage_password from `guild` where guild_id = "+getcharid(2),@mode,@pos,@password$; if (@mode[0] == 1) { query_sql "select position from `guild_member` where guild_id = "+getcharid(2)+" and char_id = "+getcharid(0),@current_pos; if (@current_pos[0] > (@pos[0] - 1)) { mes "[Guild S.]"; mes "Sorry, but you are not authorized to use guild storage."; close; } } if (@mode[0] == 2) { mes "[Guild S.]"; mes "The guild leader has instated password protected guild storage, please enter the password now."; input @pw$; if (@pw$ != @password$[0]) { next; mes "[Guild S.]"; mes "Sorry, that password is incorrect."; close; } } L_UseGStorageSkip: if(zeny < 500) { mes "[Guild S.]"; mes "Necesitas 500 zeny."; close; } close2; if(basicskillcheck() && getskilllv(1) < 6) goto L_nobasicskill; if(guildopenstorage() == 1) goto L_gmateusing; dispbottom "Guild Storage is now open."; set zeny, zeny - 500; end; L_nobasicskill: mes "[Kafra]"; mes "You need to have Basic Skill level of 6 to open Guild storage"; close; L_gmateusing: mes "[Kafra]"; mes "One of your Guildmates is currently using the guild storage"; mes "Please try again later"; close; } Espero que les sirva.

Como indica la consola, falta una etiqueta. Añade el OnCheck, quedaría así: / WoE Setter 3 Plug-in // Player - Guild Recruit Advertiser // By: [GM]Xeon // Version: 1.0.1 - script WoES3Pl_RGuildRecruit -1,{ end; OnCheck: set [email protected], 0; while ([email protected] < [email protected]_gr_enlisted) { if ([email protected]_gr_expiration[[email protected]]<=gettimetick(2)) { deletearray [email protected]_gr_name$[[email protected]], 1; deletearray [email protected]_gr_id[[email protected]], 1; deletearray [email protected]_gr_expiration[[email protected]], 1; deletearray [email protected]_gr_id[[email protected]], 1; set [email protected]_gr_enlisted, [email protected]_gr_enlisted-1; } else { set [email protected], [email protected]+1; } } sleep 60000-(gettime(1)*1000); goto OnCheck; OnLoadPlugins: //The following section adds the plug-in to the main NPC set [email protected]_pl_playermenu$[getarraysize([email protected]_pl_playermenu$)], "Guild Recruitment"; set [email protected]_pl_player$[getarraysize([email protected]_pl_player$)], "GuildRecruit"; set [email protected]_gr_feeperhr, 10000; //THE FEE PER HOUR FOR ENLISTMENT!! set [email protected]_gr_maxhrs, 24; //THE MAXIMUM NUMBER OF HOURS GUIDL MAStERS CAN REGISTER FOR!! donpcevent "WoES3_Plugin_RGuildRecruit::OnCheck"; end; } function script WoES3Pl_GuildRecruit { end; OnCheck: if (getcharid(2)) { if (strcharinfo(0) != getguildmaster(getcharid(2))) { mes "[Guild Recruitement]"; mes "You are already a member of a guild; what are you coming to guild recruitement for?"; return; } else { goto L_Master; } } L_User: if ([email protected]_gr_enlisted) { mes "[Guild Recruitement]"; mes "There are currently no guilds registered to the recruitement bulletin..."; return; } set @temp$, ""; for (set @i, 0; @i<[email protected]_gr_enlisted; set @i, @i+1) { set @temp$, @temp$+":"[email protected]_gr_name$[@i]; } menu @temp$,-,"Back",L_Return; set [email protected], @menu; query_sql("select char_id,account_id from `char` where `name` = '"+getguildmaster([email protected]_gr_id[[email protected]])+"'", @id, @aid); mes "Guild master message: "[email protected]_gr_mes$[[email protected]]; mes "Are you sure you wish to request to join this guild?"; if (select("Yes:No")==2) { next; goto L_User; } query_sql("insert into `mail` (send_name,send_id,dest_name,dest_id,title,message,time) values ('"+escape_sql(strcharinfo(0))+"','"+getcharid(0)+"','"+getguildmaster([email protected]_gr_id[[email protected]])+"','"[email protected]+"','Guild Recruitment Request','The player "+escape_sql(strcharinfo(0))+" (BLV: "+BaseLevel+", JLV: "+JobLevel+") has requested to join your guild through the guild recruitement bulletin.','"+gettimetick(2)+"')"); set [email protected], getcharid(3); set [email protected]$, strcharinfo(0); if (attachrid(@id)) { dispbottom "A guild recruitment request has been sent from "[email protected]$+", check your inbox for more information."; } attachrid([email protected]); mes "A recruitement request has been sent to "+getguildmaster([email protected]_gr_id[[email protected]])+" for approval."; next; goto L_User; L_Master: set @listed, 0; for (set @i, 0; @i < getarraysize([email protected]_gr_enlisted); set @i, @i+1) { if ([email protected]_gr_id[@i]==getcharid(2)) set @listed, @i+1; } if (@listed) { set @time, [email protected]_gr_expiration[@listed-1]-gettimetick(2); set @hrs, 0; set @mins, 0; while (@time >= 3600) { set @hrs, @hrs+1; set @time, @time-3600; } while (@time >= 60) { set @mins, @mins+1; set @time, @time-60; } mes "[Guild Recruitement]"; mes "Your guild is still listed for "[email protected]+" hours, "[email protected]+" minutes and "[email protected]+" seconds!"; mes "When a player wants to join your guild off the bulletin, you will receive a mail message."; return; } else { mes "[Guild Recruitement]"; mes "Would you like to register your guild to the recruitment bulletin? Note there is a fee of "[email protected]_gr_feeperhr+" per hour you register."; if(select("Yes:No")==1) { mes "Enter the number of hours to register for. There is currently a maximum of "[email protected]_gr_maxhrs+"!"; input @n; if (@n > [email protected]_gr_maxhrs) { mes "Uhh, I just said there's a MAXIMUM of "[email protected]_gr_maxhrs+" hours..."; next; goto L_Master; } if (@n == 0) { mes "Since you said 0 hours, I assume you don't want to register your guild right now. Come back whenever you want to!"; return; } mes "Enter a message to display to people looking for a guild..."; input @mes$; if (Zeny >= [email protected]_gr_feeperhr*@n) { if ([email protected]_gr_enlisted>=32) { mes "Sorry, the maximum number of registered guilds has been reached. Please come back and try again later!"; return; } set Zeny, Zeny-([email protected]_gr_feeperhr*@n); set [email protected]_gr_name$[[email protected]_gr_enlisted], getguildname(getcharid(2)); set [email protected]_gr_mes$[[email protected]_gr_enlisted], @mes$; set [email protected]_gr_id[[email protected]_gr_enlisted], getcharid(2); set [email protected]_gr_expiration[[email protected]_gr_enlisted], gettimetick(2)+(3600*@n+gettime(1)); set [email protected]_gr_enlisted, [email protected]_gr_enlisted+1; mes "Congratulations! You have just registered your guild to the recruitement bulletin. You should receive mail from members who are interested in joining!"; return; } else { mes "You don't appear to have enough zeny..."; next; goto L_Master; } } else { mes "Come back whenever you feel like registering!"; return; } } L_Return: return; }

Hola a todos. Este es mi primer aporte en rAthena. Consiste en un item que juega como una lotería individual de objetos. La idea esta tomada del juego Eden Eternal. En el rar adjunto, aparte del script, hay un archivo (crystal_altar.psd), en el cual pueden modificar-lo para añadir las imágenes de los items que quieren sortear. Espero que les guste. crystal altar.rar