Jump to content

hendra814

Members
  • Posts

    1241
  • Joined

  • Last visited

  • Days Won

    17

Everything posted by hendra814

  1. are you already enable the script via Rathena\npc\re\scripts_athena.conf line 173.
  2. i want to share my custom world boss, please try it Welgaia,128,96,4 script World Boss 123,{ @_count = (.monster_kill_requirement - $world_boss_counter); mes "[ World Boss ]"; mes "Status :" +($world_boss_active == 1?"^00FF00Active^000000":"^FF0000Inactive^000000"); mes "Kill Remaining - [ ^0000FF"+$count+"^000000 ]"; mes "============================="; mes "Reward:"; mes "<ITEM>World Boss Reward<INFO>7539</INFO></ITEM>"; end; OnNPCKillEvent: if($world_boss_active == 1) end; $world_boss_counter += 1; if($world_boss_counter == .monster_kill_requirement){ donpcevent "World Boss::OnSummon"; } end; OnSummon: setarray .bc_city$[0],"alberta","aldebaran","geffen","izlude","morocc","payon","prontera","new_zone03"; setarray .bc_monster[0],"1917","1885","1874","1871","1832","1802","1785","1779","1768","1751","1734","1719","1708","1688","1685","1658","1651","1650","1649","1648","1647","1646","1630","1623","1583","1511","1502","1492","1418","1399","1389","1373","1312","1272","1252","1251","1190","1159","1157","1150","1147","1115","1112","1087","1086","1059","1046","1038","2202"; set .@city,rand(0,getarraysize(.bc_city$)-1); set .@mvp,rand(0,getarraysize(.bc_monster)-1); $world_boss_active = 1; announce "Danger! "+.bc_city$[.@city]+" under attack by MvP!!",bc_all; //announce and end monster .bc_city$[.@city],0,0,"City Attacker",.bc_monster[.@mvp],1,"World Boss::OnBossKill"; end; OnBossKill: announce "Congratulation to "+strcharinfo(0)+", for save the city "+.bc_city$[.@city]+" !",bc_all; $world_boss_active = 0; $world_boss_counter = 0; getitem 7539,10; end; OnInit: .monster_kill_requirement = 1000000; freeloop(1); while(1){ $count = (.monster_kill_requirement - $world_boss_counter); waitingroom "Kill Left : ["+$count+"]",0; sleep 1000; //= 1 Second Refresh delwaitingroom; } freeloop(0); end; }
  3. are you already tried this file?
  4. rename the file with .patch extention right click on the file pick review/apply single patch go to your rathena server root folder and select it but for this patch file i check have issue like this try @PercyNPC file, show like this, click on path all items and then save, last recompile your rathena
  5. will you share the patch for that modification?
  6. use script in the first post by @Louis T Steinhil
  7. thanks for the information, now working with lastest script in the first post
  8. are the configuration for sql using this part?
  9. i got this error, don't know why because item link already appear at chat area
  10. try drop your mob_db_re sql table and then reimport mob_db_re.sql file
  11. i want to ask, why you import yml file into sql? i think yml file not supported for import to sql
  12. try import mob_db_re.sql first at sql-files folder
  13. For this part "s there any modification to the script that will make it so that all dungeon warps will be redirected to only 1st floor of the dungeon?" OnInit: OnTimer0050: showscript "Warper & Storage", getnpcid(0); initnpctimer; .Satan_Morocc = true; // false will enable moc_fild 4,5,6,8,9,10,14,15 while disable moc_fild 20,21,22 Default is true. .OnlyFirstFld = false; // true will teleport to the first level of the Fields Default is false. .OnlyFirstDun = false; // true will teleport to the first level of the Dungeons Default is false. set .OnlyFirstDun into true
  14. found it in this link PVP, WoE, GVG: Rune War - Battleground - PvP, GvG, WoE, Battleground Script Releases - rAthena
  15. make sure your client read data folder first, if your client read grf first try import the files into your GRF.
  16. try check this page and look at this part [ The kRO Client: Updating, Diffing, Hexing, Translating, and Customizing ]
  17. if not using custom item equipment the answer is yes, i recomended you using old client.
  18. try use this script //===== rAthena Script ======================================= //= Account Management System //===== By: ================================================== //= Patskie //===== Current Version: ===================================== //= 1.1 //===== Compatible With: ===================================== //= rAthena SVN //===== Description: ========================================= //= Simple and useful script to boost the capabilities of //= players to manage their account without going into the //= control panel. //= 1.0 Initial Release //= 1.1 Remove unnecessary variables //============================================================ - script Char Information -1,{ OnInit: bindatcmd("account",strnpcinfo(3)+ "::OnAccount"); end; OnPCLoginEvent: if (#finalpassword$ != "") goto P_insert; else end; P_insert: sc_start sc_berserk, 1000000000, 1; mes "^55AA88Account System^000000"; mes "Please enter your locker password"; next; input @insertlp$; if (@insertlp$ == #finalpassword$) goto P_pass; mes "^55AA88Account System^000000"; mes "Invalid password!"; next; mes "^55AA88Account System^000000"; mes "Forgot Password?(Y/N)"; next; input @askfp$; next; if ((@askfp$ == "Y") || (@askfp$ == "y")) { mes "^55AA88Account System^000000"; mes "Ask the administrator to retrieve your password"; next; mes "^55AA88Account System^000000"; mes "Bye!"; atcommand "@kick "+strcharinfo(0); end; } else if ((@askfp$ == "N") || (@askfp$ == "n")) { mes "^55AA88Account System^000000"; mes "Try again!"; next; input @insertlp$; next; if (@insertlp$ == #finalpassword$) goto P_pass; mes "^55AA88Account System^000000"; mes "Invalid password. Bye!"; next; atcommand "@kick "+strcharinfo(0); end; } else { mes "^55AA88Account System^000000"; mes "Invalid Choice. Bye!"; next; atcommand "@kick "+strcharinfo(0); end; } P_pass: sc_end sc_berserk; end; OnAccount: switch(prompt("My Account:Change Mail:Change Birthday:Who's Online:Set Password:Delete Password:View Character:Exit")) { case 1: query_sql "SELECT `userid` , `email` , `logincount` , `last_ip` , `birthdate` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@user$,@email$,@login,@last_ip$,@birthdate$; mes "^55AA88Account System^000000"; mes "Account Username: " + @user$; mes "Account ID: " + getcharid(3); mes "E-Mail: " + @email$; mes "Login Count: " + @login; mes "IP Address: " + @last_ip$; mes "Birthday: " + @birthdate$; end; case 2: query_sql "SELECT `email` FROM `login` WHERE `account_id` = '"+getcharid(3)+"'",@old_email$; mes "^55AA88Account System^000000"; mes "Input the new e-mail you want"; input @new_mail$; mes "Old e-mail: " +@old_email$; mes "New e-mail: " +@new_mail$; mes " "; mes "Is that correct?"; next; if(select("Yes:No") - 1) { mes "^55AA88Account System^000000"; mes "Next time, make a faster decision"; end; } else { mes "^55AA88Account System^000000"; mes "Your e-mail will be changed now"; next; query_sql "UPDATE `login` SET `email` = '"+escape_sql(@new_mail$)+"' WHERE `account_id` = '"+getcharid(3)+"'"; mes "^55AA88Account System^000000"; mes "Done!"; end; } case 3: query_sql "select birthdate from login where account_id = "+ getcharid(3), .@birthdate$; mes "^55AA88Account System^000000"; mes "Well tell me your new birthdate - format 0000-00-00"; mes "Example 2018-12-31"; input .@string$; next; explode( .@tmp$, .@string$, "-" ); if( getarraysize( .@tmp$ ) != 3 || getstrlen(.@tmp$[0]) != 4 || atoi(.@tmp$[0]) < 1 || getstrlen(.@tmp$[1]) != 2 || atoi(.@tmp$[1]) < 1 || getstrlen(.@tmp$[2]) != 2 || atoi(.@tmp$[2]) < 1 ) { mes "wrong format bye"; end; } query_sql "update login set birthdate = '"+ escape_sql( .@string$ ) +"' where account_id = "+ getcharid(3); mes "done"; end; case 4: query_sql "SELECT `name` , `class` FROM `char` WHERE `online` = '1'", .@name$, .@class; mes "^55AA88Account System^000000"; mes "-----------------------------------"; mes "Online Users: " + getusers(1); mes "-----------------------------------"; for( set .@a,0; .@a < getarraysize(.@name$); set .@a,.@a + 1) mes .@name$[.@a]+ " | Job: " +jobname(.@class[.@a]); mes "-----------------------------------"; set .@count, .@count + 128; end; case 5: if (#finalpassword$ != "") { mes "^55AA88Account System^000000"; mes "You already have your account password. Delete it first before setting a new password"; end; } mes "^55AA88Account System^000000"; mes "Do you want to set a password for your account?"; next; if(select("Yes:No") - 1) { mes "^55AA88Account System^000000"; mes "Next time, make a faster decision"; end; } else { sc_start sc_berserk, 1000000000, 1; mes "^55AA88Account System^000000"; mes "Input your password here. Note that this is CASE SENSITIVE."; next; input @pw$; next; mes "^55AA88Account System^000000"; mes "Confirm your password"; next; input @accountvpw$; next; if (@accountvpw$ != @pw$) { mes "^55AA88Account System^000000"; mes "The verification password that you had entered is incorrect"; sc_end sc_berserk; end; } else { mes "^55AA88Account System^000000"; mes "Thank you. Please remember the password you had setted. I will ask for it again everytime you login"; set #finalpassword$,@pw$; sc_end sc_berserk; end; } } end; case 6: if (#finalpassword$ == "") { mes "^55AA88Account System^000000"; mes "You do not have a password to delete"; end; } mes "^55AA88Account System^000000"; mes "Please enter your current password"; next; input @cpassword$; next; if (@cpassword$ != #finalpassword$) { mes "^55AA88Account System^000000"; mes "Invalid Password!"; end; } else { mes "^55AA88Account System^000000"; mes "Are you sure you want to delete your password?"; next; if(select("Yes:No") - 1) { mes "^55AA88Account System^000000"; mes "Next time, make a faster decision"; end; } else { mes "^55AA88Account System^000000"; mes "Done!"; set #finalpassword$,""; end; } } case 7: mes "Choose a character, if you"; mes "want to change something."; query_sql "SELECT `char_num` , `name` , `class` , `base_level` , `job_level` , `zeny` , `str` , `agi` , `vit` , `int` , `dex` , `luk` , `last_map` , `last_x` , `last_y` , `save_map` , `save_x` , `save_y` FROM `char` WHERE `account_id` = '"+getcharid(3)+"' ORDER BY `base_level` DESC",@char_num,@name$,@class,@base_level,@job_level,@zeny,@str,@agi,@vit,@int,@dex,@luk,@last_map$,@last_x,@last_y,@save_map$,@save_x,@save_y; set @menu$,""; mes " "; set @menu$,"- " + @name$[0] + ""; mes "^FF0000"+@name$[0]+"^000000"; mes "---------------------"; mes "[Base/Job: " + @base_level[0] + "/" + @job_level[0] + "]"; mes "(Class: " + jobname(@class[0]) + ")"; mes "====================="; for( set @a,1; @a < getarraysize(@name$); set @a,@a + 1) { mes "^FF0000"+@name$[@a]+"^000000"; mes "---------------------"; mes "[Base/Job: " + @base_level[@a] + "/" + @job_level[@a] + "]"; mes "(Class: " + jobname(@class[@a]) + ")"; mes "====================="; set @menu$,@menu$ + ":- " + @name$[@a] + ""; } next; if((prompt(@menu$) - getarraysize(@name$)) > 0) { end; } else { set @m,@menu - 1; mes "^55AA88Account System^000000"; mes "You have chosen:"; mes "^FF0000"+@name$[@m]+"^000000"; mes "Base/Job: " + @base_level[@m] + "/" + @job_level[@m]; mes "Class: " + jobname(@class[@m]); mes "Zeny: " + @zeny[@m]; mes " "; mes "Strenght: " + @str[@m]; mes "Agility: " + @agi[@m]; mes "Vitality: " + @vit[@m]; mes "Intelligence: " + @int[@m]; mes "Dexterity: " + @dex[@m]; mes "Luck: " + @luk[@m]; mes " "; mes "Position:"; mes "Current Map: " + @last_map$[@m]; mes "Cooardinates x: " + @last_x[@m] + ", y: " + @last_y[@m]; mes " "; mes "Savepoint:"; mes "Map: "+ @save_map$[@m] + " x: " + @save_x[@m] + ", y: " + @save_y[@m]; mes "What do you want to do?"; next; switch(select("Reset Position:Reset Style:Reset Equip:Nothing")) { case 1: mes "^55AA88Account System^000000"; query_sql "SELECT `online` FROM `char` WHERE `name` = '"+escape_sql(@name$[@m])+"'",@online; if(@online) { mes "I'm sorry, but I can't reset the"; mes "position of the chosen character"; mes "while you are logged-in on it."; end; } mes "I will reset the position now."; query_sql "UPDATE `char` SET `last_map` = '"+@save_map$[@m]+"' , `last_x` = '"+@save_x[@m]+"' , `last_y` = '"+@save_y[@m]+"' WHERE `name` = '"+escape_sql(@name$[@m])+"'"; end; case 2: mes "^55AA88Account System^000000"; mes "This will reset your"; mes "whole style."; next; if(select("Proceed:Stop!!") - 1) { mes "^55AA88Account System^000000"; mes "Next time, make a faster decision"; end; end; } else { mes "^55AA88Account System^000000"; query_sql "SELECT `online` FROM `char` WHERE `name` = '"+escape_sql(@name$[@m])+"'",@online; if(@online) { mes "I'm sorry, but I can't reset the"; mes "style of the chosen character"; mes "while you are logged-in on it."; end; } query_sql "UPDATE `char` SET `hair` , `hair_color` , `clothes_color` = '0' , '0' , '0' WHERE `name` = '"+escape_sql(@name$[@m])+"'"; mes "Your request has been completed."; end; } case 3: mes "^55AA88Account System^000000"; mes "Wanna reset your Equip?"; if(select("Yes, please:No, thanks") - 1) { end; } else { next; mes "^55AA88Account System^000000"; query_sql "SELECT `online` FROM `char` WHERE `name` = '"+escape_sql(@name$[@m])+"'",@online; if(@online) { mes "I'm sorry, but I can't reset"; mes "your equipment of this character"; mes "while you are logged-in on it."; end; } mes "I will start now."; query_sql "UPDATE `inventory` SET `equip` = '0' WHERE `char_id` = '"+getcharid(0,escape_sql(@name$[@m]))+"'"; query_sql "UPDATE `char` SET `weapon` = '0' , `shield` = '0' , `head_top` = '0' , `head_mid` = '0' , `head_bottom` = '0' WHERE `name` = '"+escape_sql(@name$[@m])+"'"; next; mes "^55AA88Account System^000000"; mes "Your request has been completed."; end; } case 4: mes "^55AA88Account System^000000"; mes "Okay, Bye!"; end; } } case 8: mes "^55AA88Account System^000000"; mes "Okay, Bye!"; end; } }
  19. try remove ; sign at the end of all this bossnia_01,0,0,0,0 monster Poring 1002,70,0,0,0; bossnia_02,0,0,0,0 monster Poring 1002,70,0,0,0; bossnia_03,0,0,0,0 monster Poring 1002,70,0,0,0; bossnia_04,0,0,0,0 monster Poring 1002,70,0,0,0;
  20. found this guide, maybe this can help you [Tutorial] Multi Servers - Installation Support - rAthena
  21. found this page, but some link and image can't be opened. DUAL SERVER - General Support - rAthena
  22. try check at this page, [questio] about dual server - Client-side Support - rAthena
  23. found it at this page insert this sql script into your sql database ALTER TABLE `char` ADD `pvp_kill` INT(11) UNSIGNED NOT NULL DEFAULT '0' AFTER `fame`;
×
×
  • Create New...