Euphy

Run all the scripts in the trunk/sql-files/upgrades/ directory, in ascending order.

Replace 'successrefitem' with 'downrefitem' in any refiner script to turn it into a de-refiner. (Or try this.)

Getpartymember

set string$,"";

// If guild members must be online, uncomment this line. //set .@str$," AND `online` = 1";
set .@gid, getcharid(2);
if (.@gid) {
set .@count, query_sql("SELECT `char_id` FROM `char` WHERE `guild_id` = "+.@gid+.@str$,.@temp);
if (.@count >= 10) {
warp "map",x,y;
end;
}
}
mes "You need at least 10 guild members.";
close;

Kenpachi released a source modification for this on eAthena; I'm not certain that it will still work. http://www.eathena.ws/board/index.php?showtopic=270648

setarray .@Badges[0],7773,7829,7828; setarray .@Points[0], 15, 10, 10;
mes "[Badge Trader]";
for(set .@i,0; .@i<getarraysize(.@Badges); set .@i,.@i+1) {
set .@count[.@i],countitem(.@Badges[.@i]);
if (.@count[.@i]) {
delitem .@Badges[.@i],.@count[.@i];
set #CASHPOINTS,#CASHPOINTS+(.@count[.@i]*.@Points[.@i]);
mes "Traded "+.@count[.@i]+" "+getitemname(.@Badges[.@i])+" for "+(.@count[.@i]*.@Points[.@i])+" Cash Points.";
}
}
if (!getarraysize(.@count))
mes "You have no badges.";
close;

Adding_a_Script

Renewal and all its features, including third jobs, are enabled by default.
trunk/src/config/renewal.h
/// game renewal server mode /// (disable by commenting the line) /// /// leave this line to enable renewal specific support such as renewal formulas #define RENEWALThis file reads all Renewal scripts: trunk/npc/re/scripts_main.confWe don't have the official Oboro quest implemented yet, but it's in the custom job changer along with all other third jobs: trunk/npc/custom/jobmaster.txt

The shops only show a discount, but the prices aren't actually reduced. It's the default behavior of the shop window.

if (getarraysize($itemlog1$) > 127) { deletearray $itemlog1$[0],1;
- deletearray $itemlog2$[0],1; }
+ deletearray $itemlog2$[0],1;
+ deletearray $itemlog3$[0],1; }
setarray $itemlog1$[getarraysize($itemlog1$)],strcharinfo(0);
- setarray $itemlog2$[getarraysize($itemlog2$)],.@name$; }
+ setarray $itemlog2$[getarraysize($itemlog2$)],.@name$;
+ setarray $itemlog3$[getarraysize($itemlog3$)],.@package; }
mes "Reward added.";
next;
...
mes "--------------------------------";
set .@i,0;
while (.@i < getarraysize($itemlog1$)) {
- mes "^B041FF" + $itemlog1$[.@i] + "^000000: sent to ^55AAFF" + $itemlog2$[.@i] + "^000000";
+ mes "^B041FF" + $itemlog1$[.@i] + "^000000: sent Package " + $itemlog3$[.@i] + "to ^55AAFF" + $itemlog2$[.@i] + "^000000";
set .@i, .@i+1; }
next;
goto Log_Menu;
...
deletearray $itemlog1$[0],getarraysize($itemlog1$);
deletearray $itemlog2$[0],getarraysize($itemlog2$);
+ deletearray $itemlog3$[0],getarraysize($itemlog3$);
mes "Logs cleared.";

Delete the OnPCLoginEvent label.

trunk/conf/battle/skill.conf
// Allows players to skip menu when casting Teleport level 1 // Menu contains two options. "Random" and "Cancel"
skip_teleport_lv1_menu: yes

They're given directly by default. Don't enable bit 2 (mail) in .Options.
setarray .Reward[0],itemID1,amount1,itemID2,amount2,...;

In trunk/conf/inter_athena.conf:
// Use SQL item_db, mob_db and mob_skill_db for the map server? (yes/no) use_sql_db: yes
Then execute trunk/sql-files/item_db_re.sql (or item_db.sql if pre-Renewal).

This was reported in bugreport:7307, waiting for a core developer to get to it.

if (getcharid(2))
mes "You are already in a guild.";
else {
mes "Input a guild name.";
input .@name$;
atcommand "@guild "+.@name$;
mes "Guild ^FF0000"+.@name$+"^000000 created.";
}
close;

trunk/conf/battle/items.conf
// Can any player equip any item regardless of the gender restrictions // NOTE: Wedding Rings and Whips/Musical Instruments will check gender regardless of setting.
ignore_items_gender: yes

Why this is defaulted to "yes", I have no idea...

mes "Input item ID:"; input .@item;
if (getitemname(.@item) == "null") {
mes "Invalid ID "+.@item+".";
close;
}
mes "Input quantity:";
input .@count,0,30000;
if (.@count == 0) {
mes "Invalid quantity 0.";
close;
}
set .@j, query_sql("SELECT `account_id` FROM `char` WHERE `online` = 1",.@aid);
for(set .@i,0; .@i<.@j; set .@i,.@i+1)
getitem .@item,.@count,.@aid[.@i];
mes "Gave item "+getitemname(.@item)+" x"+.@count+" to "+.@j+" players.";
close;

You should probably reset some other things, too...
UPDATE `char` SET `base_level` = 1, `job_level` = 1, `base_exp` = 0, `job_exp` = 0, `str` = 5, `agi` = 5, `vit` = 5, `int` = 5, `dex` = 5, `luk` = 5, `status_point` = 0;

...but you didn't add more shop data.- shop qshop6 -1,909:-1 - shop qshop7 -1,909:-1 - shop qshop8 -1,909:-1 - shop qshop9 -1,909:-1 - shop qshop10 -1,909:-1And you'll need to add shop names to the .Shops$ array.

I moved the NPC to trunk/npc/re/merchants/catalog.txt in r17138.
It was previously located in trunk/npc/merchants/buying_shops.txt.

Unexpected end of string.
--> You've ended a string without closing it with quotes.

// Missing quotes. mes "can you do it for me?

- if ((.@eac&EAJ_UPPERMASK) == EAJ_SUPER_NOVICE) setarray .@exp[0],roclass(.@eac|EAJL_THIRD),99; - if (Class == Job_Ninja) setarray .@exp[0],.@j1,70; - if (.@exp[0] && .ThirdClass) { + if (Class == Job_Ninja) { + setarray .@exp[0],.@j1,70;

You basically add a 'killmonster' command to each individual map with an MVP on it. Brian made a script a long time ago, you can find it here: http://subversion.assembla.com/svn/raijero/trunk/npc/custom/unloadnpc.txt