// Configure 'flagmaps' table using this custom flags
// 1: PvP
// 2: PvP No Party
// 4: PvP No Guild
// 8: GvG
// 16: GvG No Party
// 32: No Skill
// 64: Nightmare Drops (only rAthena)
// Function to Set / Unset the World Map Flags
function script applyMapFlags {
set $@MapFlagStatus,getarg(0);
do {
set .@Rows, query_sql("select map, flag from flagmaps limit " + .@Page + ",100", .@Map$, .@Flags);
set .@Flag, .@Flags[0];
for (set .@x,0; .@x < .@Rows; set .@x, .@x + 1) {
if ($@MapFlagStatus) {
if (.@Flag & 1) setmapflag .@Map$[.@x], mf_pvp;
if (.@Flag & 2) setmapflag .@Map$[.@x], mf_pvp_noparty;
if (.@Flag & 4) setmapflag .@Map$[.@x], mf_pvp_noguild;
if (.@Flag & 8) setmapflag .@Map$[.@x], mf_gvg;
if (.@Flag & 16) setmapflag .@Map$[.@x], mf_gvg_noparty;
if (.@Flag & 32) setmapflag .@Map$[.@x], mf_noskill;
if (.@Flag & 64) setmapflag .@Map$[.@x], mf_nightmaredrop;
} else {
if (.@Flag & 1) removemapflag .@Map$[.@x], mf_pvp;
if (.@Flag & 2) removemapflag .@Map$[.@x], mf_pvp_noparty;
if (.@Flag & 4) removemapflag .@Map$[.@x], mf_pvp_noguild;
if (.@Flag & 8) removemapflag .@Map$[.@x], mf_gvg;
if (.@Flag & 16) removemapflag .@Map$[.@x], mf_gvg_noparty;
if (.@Flag & 32) removemapflag .@Map$[.@x], mf_noskill;
if (.@Flag & 64) removemapflag .@Map$[.@x], mf_nightmaredrop;
}
}
set .@Page, .@Page + 100; // Move to the Next Page
} while(.@Rows);
return;
}
// Map Flag Manager
- script MFM -1,{
ceroLeft:
set .@Num$, getarg(0);
while (getstrlen(.@Num$) < getarg(1)) {
set .@Num$, "0" + .@Num$;
}
return .@Num$;
OnInit:
set .PvpMap$, "pvp_y_1-2";
set .PvpExitMap$, "prontera";
set .PvpExitX,156;
set .PvpExitY,192;
set .baseexp, getbattleflag("base_exp_rate");
set .jobexp, getbattleflag("job_exp_rate");
// Sample Configuration: These pairs of numbers are hours with minutes
// (23:00 to 00:00 - 00:00 to 03:30 - 15:47 to 15:48)
// Don't mix hours of two days (ie: 2300,0330) because doesn't work, in this cases add 2 ranges exactly like the sample (2300,2359,0000,0330)
setarray .Changes[0],2300,2359,0000,0330,1547,1855;
set .Count, getarraysize(.Changes);
setarray .@msgs$[0],
"The night is slowly taking over Rune midgard.",
"Weaklings and cowards stay in towns, while fierce warriors grab their weapons and prepare for bloody fights....",
"Players whose level is lower than lv40 can't kill/be killed by other players during NMM";
OnWhisperGlobal:
OnTimer60000: // Check every 1 minute (support restarts)
set .@Done,0;
for (set .@x,0; .@x < .Count && !.@Done; set .@x, .@x + 2) {
set .@CurrentHour, atoi(callsub(ceroLeft,gettime(3),2) + callsub(ceroLeft,gettime(2),2));
set .@Hour1, .Changes[.@x];
set .@Hour2, .Changes[.@x + 1];
// If this is a valid range...
if (.@CurrentHour >= .@Hour1 && .@CurrentHour <= .@Hour2) {
if (!$@MapFlagStatus) {
debugmes "[" + .@CurrentHour + "] Enabling Nightmare Flags [" + .@Hour1 + " to " + .@Hour2 + "]";
night;
callfunc "applyMapFlags",1; // Activating Map Flags
set .@Done,1;
setbattleflag "base_exp_rate", 2 * .baseexp;
setbattleflag "job_exp_rate", 2 * .jobexp;
atcommand "@reloadmobdb";
mapwarp .PvpMap$,.PvpExitMap$,.PvpExitX,.PvpExitY; //warps the players in the pvp map
night;
for (set .@x,0; .@x < getarraysize(.@msgs$); set .@x, .@x + 1) {
announce .@msgs$[.@x],bc_all;
sleep 2000;
}
}
}
}
// If there are not valid ranges but the nightmare mode is enabled...
if (!.@Done && $@MapFlagStatus) {
debugmes "[" + .@CurrentHour + "] Disabling Nightmare Flags [" + .@Hour1 + " to " + .@Hour2 + "]";
callfunc "applyMapFlags",0; // Disabling Map Flags
day;
announce "Nightmares: A new day is starting, you had sweet dreams ? Nightmare Mode deactivated! .",bc_all;
setbattleflag "base_exp_rate", .baseexp;
setbattleflag "job_exp_rate", .jobexp;
atcommand "@reloadmobdb";
}
initnpctimer;
OnPCDieEvent:
if (!$@MapFlagStatus) end;
callfunc "PenaltyBaseExp", (killerrid > 1999999?2:1);
}
function script PenaltyBaseExp {
if (BaseExp) {
set BaseExp, BaseExp - (BaseExp / 100 * getarg(0));
announce "~ Nightmare Penalty: -" + getarg(0) + "% Base Exp", bc_self, 0xEAC8E7;
}
return;
}