Euphy

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 [email protected][0],7773,7829,7828; setarray [email protected][0], 15, 10, 10;
mes "[Badge Trader]";
for(set [email protected],0; [email protected]<getarraysize([email protected]); set [email protected],[email protected]+1) {
set [email protected][[email protected]],countitem([email protected][[email protected]]);
if ([email protected][[email protected]]) {
delitem [email protected][[email protected]],[email protected][[email protected]];
set #CASHPOINTS,#CASHPOINTS+([email protected][[email protected]]*[email protected][[email protected]]);
mes "Traded "[email protected][[email protected]]+" "+getitemname([email protected][[email protected]])+" for "+([email protected][[email protected]]*[email protected][[email protected]])+" Cash Points.";
}
}
if (!getarraysize([email protected]))
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$)],[email protected]$; }
+ setarray $itemlog2$[getarraysize($itemlog2$)],[email protected]$;
+ setarray $itemlog3$[getarraysize($itemlog3$)],[email protected]; }
mes "Reward added.";
next;
...
mes "--------------------------------";
set [email protected],0;
while ([email protected] < getarraysize($itemlog1$)) {
- mes "^B041FF" + $itemlog1$[[email protected]] + "^000000: sent to ^55AAFF" + $itemlog2$[[email protected]] + "^000000";
+ mes "^B041FF" + $itemlog1$[[email protected]] + "^000000: sent Package " + $itemlog3$[[email protected]] + "to ^55AAFF" + $itemlog2$[[email protected]] + "^000000";
set [email protected], [email protected]+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 [email protected]$;
atcommand "@guild "[email protected]$;
mes "Guild ^FF0000"[email protected]$+"^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 [email protected];
if (getitemname([email protected]) == "null") {
mes "Invalid ID "[email protected]+".";
close;
}
mes "Input quantity:";
input [email protected],0,30000;
if ([email protected] == 0) {
mes "Invalid quantity 0.";
close;
}
set [email protected], query_sql("SELECT `account_id` FROM `char` WHERE `online` = 1",[email protected]);
for(set [email protected],0; [email protected]<[email protected]; set [email protected],[email protected]+1)
getitem [email protected],[email protected],[email protected][[email protected]];
mes "Gave item "+getitemname([email protected])+" x"[email protected]+" to "[email protected]+" 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 (([email protected]&EAJ_UPPERMASK) == EAJ_SUPER_NOVICE) setarray [email protected][0],roclass([email protected]|EAJL_THIRD),99; - if (Class == Job_Ninja) setarray [email protected][0],[email protected],70; - if ([email protected][0] && .ThirdClass) { + if (Class == Job_Ninja) { + setarray [email protected][0],[email protected],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

Always check your map-server for errors.

new_1-1,57,114,2 <tab> script <tab> Greeter NPC <tab> 108,{
Second question, include an OnTouch label with an x,y radius after sprite (in the header):

new_1-1,57,114,2 script Greeter NPC 108,2,2,{ // ... close; OnTouch: npctalk "You stepped within 2 cells of me!"; end; }

That's how PCRE works -- it compares your string with the definition as a substring. It's working as intended.

Just on certain maps, or all maps?

Certain maps:
trunk/conf/mapflag/nosave.txt
All maps:
- script ToSavePoint -1,{ OnPCLogoutEvent: warp "SavePoint",0,0; end; }

The most practical way I can think of is making all the registration NPCs call an IP check function, which would do something like this:

// callfunc "Check_IP","<map_name>"; function script Check_IP { // Get list of accounts with attached character's IP address. set [email protected], query_sql("SELECT `account_id` FROM `login` WHERE `last_ip` = '"+getcharip()+"'",[email protected]); // Passed check if only the attached player is returned. if ([email protected] < 2) return; // Check all online characters using the IP address if they're on the given map. set [email protected], getcharid(3); for(set [email protected],0; [email protected]<[email protected]; set [email protected],[email protected]+1) { if (attachrid([email protected][[email protected]])) { if (strcharinfo(3) == getarg(0)) { set [email protected]$, strcharinfo(0); attachrid([email protected]); mes "Character "[email protected]$+" is already logged into Battlegrounds with your IP."; close; } } } attachrid([email protected]); // Passed check. return; }
Note that you can't do an SQL query on `last_map` since that field doesn't update in real time.

If you're running the script on the attached character, you can just do it using script commands, no need for SQL/relog:

setlook 7,0; setlook 1,0; setlook 6,0;
You only need an SQL query to modify values for offline characters (in which case @kick would still not be needed xP).