// TMW2 scripts.
// Author:
// Jesusalva
// Description:
// Controls events, part of Aurora Event System
//
// See also: functions/aurora.txt, functions/seasons.txt, command/event.txt,
// event.txt, functions/soulmenhir.txt and, of course, the event maps (if any).
//
// Script Variables:
// Q_AuroraEvent
// Quest Variable: FYEVENT_CYCLE, Score, ClaimedControl
//
// TODO: Use duplicate() command to make it available in other towns as well
// Easter
003-1,47,53,0 script Aurora NPC_FEMALE,{
function handleEaster;
function handleValentine;
function handleStPatrick;
// Aurora Event functions
function auroraRankings;
function auroraCurrentRankings;
function auroraSubmit;
function auroraListRewards;
// Handle annuals
//.@v_stday = getvariableofnpc(.valentine_stday, "#EventCore");
//.@v_stmon = getvariableofnpc(.valentine_stmon, "#EventCore");
.@v_endday = getvariableofnpc(.valentine_endday, "#EventCore");
.@v_endmon = getvariableofnpc(.valentine_endmon, "#EventCore");
//.@e_stday = getvariableofnpc(.easter_stday, "#EventCore");
//.@e_stmon = getvariableofnpc(.easter_stmon, "#EventCore");
.@e_endday = getvariableofnpc(.easter_endday, "#EventCore");
.@e_endmon = getvariableofnpc(.easter_endmon, "#EventCore");
.@dy=gettime(GETTIME_DAYOFMONTH);
.@mo=gettime(GETTIME_MONTH);
// Debug Overrides
if ($@DEBUG_OD)
.@dy=$@DEBUG_OD;
if ($@DEBUG_OM)
.@mo=$@DEBUG_OM;
// Annual rewards can only be claimed until the month ends
if ($EVENT$ == "Patrick")
handleStPatrick();
else if (.@mo == .@v_endmon && .@dy > .@v_endday)
handleValentine();
else if (.@mo == .@e_endmon && .@dy > .@e_endday)
handleEaster();
// Another event is going on, smoothly handle it
if ($EVENT$ != "")
goto L_Aurora;
else
mesc l("Currently, there is no event going on."), 1;
close;
// OnRestore causes OnInit to start again
OnRestore:
setnpcdisplay .name$, "Aurora", NPC_FEMALE;
OnInit:
.@npcId = getnpcid(.name$);
setunitdata(.@npcId, UDT_HEADTOP, MiniSkirt);
setunitdata(.@npcId, UDT_HEADMIDDLE, RedStockings);
//setunitdata(.@npcId, UDT_HEADBOTTOM, BlueRoseHat);
setunitdata(.@npcId, UDT_WEAPON, UglyChristmasSweater); // (Blue) Bathrobe?
setunitdata(.@npcId, UDT_HAIRSTYLE, any(8, 8, 8, 20, 20, 11));
setunitdata(.@npcId, UDT_HAIRCOLOR, 7);
.sex = G_FEMALE;
.distance = 5;
end;
// Overloaded
OnValentine:
setnpcdisplay .name$, "Demure#ValentineFinal", NPC_FEMALE;
.@npcId = getnpcid(.name$);
setunitdata(.@npcId, UDT_HEADTOP, Cap);
setunitdata(.@npcId, UDT_HEADMIDDLE, RedStockings);
setunitdata(.@npcId, UDT_HEADBOTTOM, BunnyEars);
setunitdata(.@npcId, UDT_WEAPON, GMRobe);
setunitdata(.@npcId, UDT_HAIRSTYLE, 14);
setunitdata(.@npcId, UDT_HAIRCOLOR, 18);
end;
/////////////////////////////////////////////////////////////////////////////////
function handleEaster {
// Handle rewards before anything else
if (EASTER_YEAR != gettime(GETTIME_YEAR)) {
EASTER_YEAR=gettime(GETTIME_YEAR);
if (strcharinfo(0) == $@easter_name$[0]) {
makepet BhopFluffy;
mesn;
mesc l("For the first place in Easter, you gained a Bhopper Fluffy."), 3;
mesc l("Remember to give it a balanced diet of Aquadas to make it happy."), 3;
next;
} else {
.@pos=array_find($@easter_name$, strcharinfo(0));
// 0 (aka top 1) is not an appliable winner
if (.@pos > 0) {
// Reverse it so top 10 value is 2, and top 2 value is 10.
.@pos=11-.@pos;
getitem StrangeCoin, .@pos*10;
}
}
}
mesn;
mesq l("Easter is over! I am the last chance to get rid of eggs!!");
mesc l("Note: Golden and Silver Eggs are deleted after the next event end."), 1;
// Heartbeat
select
l("Trade Silver Eggs"),
l("Trade Golden Eggs"),
l("View LeaderBoard"),
l("Thanks Lilica.");
mes "";
switch (@menu) {
case 1:
openshop "#eastershop1";
closedialog;
break;
case 2:
openshop "#eastershop2";
closedialog;
break;
case 3:
mesn l("Easter @@", gettime(GETTIME_YEAR));
mes("1."+$@easter_name$[0]+" ("+$@easter_value[0]+")");
mes("2."+$@easter_name$[1]+" ("+$@easter_value[1]+")");
mes("3."+$@easter_name$[2]+" ("+$@easter_value[2]+")");
mes("4."+$@easter_name$[3]+" ("+$@easter_value[3]+")");
mes("5."+$@easter_name$[4]+" ("+$@easter_value[4]+")");
mes("6."+$@easter_name$[5]+" ("+$@easter_value[5]+")");
mes("7."+$@easter_name$[6]+" ("+$@easter_value[6]+")");
mes("8."+$@easter_name$[7]+" ("+$@easter_value[7]+")");
mes("9."+$@easter_name$[8]+" ("+$@easter_value[8]+")");
mes("10."+$@easter_name$[9]+" ("+$@easter_value[9]+")");
break;
}
return;
}
/////////////////////////////////////////////////////////////////////////////////
function handleValentine {
mesn;
mesq l("Valentine Day is over!");
next;
mes "##B"+l("Top 10 - Valentine Day")+"##b";
mes("1." +$@valentine_name$[0]+" ("+$@valentine_value[0]+")");
mes("2." +$@valentine_name$[1]+" ("+$@valentine_value[1]+")");
mes("3." +$@valentine_name$[2]+" ("+$@valentine_value[2]+")");
mes("4." +$@valentine_name$[3]+" ("+$@valentine_value[3]+")");
mes("5." +$@valentine_name$[4]+" ("+$@valentine_value[4]+")");
mes("6." +$@valentine_name$[5]+" ("+$@valentine_value[5]+")");
mes("7." +$@valentine_name$[6]+" ("+$@valentine_value[6]+")");
mes("8." +$@valentine_name$[7]+" ("+$@valentine_value[7]+")");
mes("9." +$@valentine_name$[8]+" ("+$@valentine_value[8]+")");
mes("10."+$@valentine_name$[9]+" ("+$@valentine_value[9]+")");
if (#VALENTINE_SENT+#VALENTINE_OPENED <= 0)
return;
next;
// Handle rewards
#VALENTINE_SENT=0;
#VALENTINE_OPENED=0;
#VALENTINE_RECEIVED=0;
copyarray(.@name$[0], $@valentine_name$[0], 10);
if (strcharinfo(0) == .@name$[0]) {
makepet DoggyDog;
getitem PrismGift, 1;
getitem StrangeCoin, 10;
} else if (strcharinfo(0) == .@name$[1] || strcharinfo(0) == .@name$[2]) {
getitem PrismGift, 1;
getitem GoldenGift, 1;
getitem StrangeCoin, 10;
} else if (strcharinfo(0) == .@name$[3] || strcharinfo(0) == .@name$[4]) {
getitem GoldenGift, 1;
getitem SilverGift, 1;
getitem StrangeCoin, 10;
} else if (strcharinfo(0) == .@name$[5] || strcharinfo(0) == .@name$[6]) {
getitem SilverGift, 1;
getitem BronzeGift, 1;
getitem StrangeCoin, 10;
} else if (strcharinfo(0) == .@name$[7] || strcharinfo(0) == .@name$[8] || strcharinfo(0) == .@name$[9]) {
getitem BronzeGift, 1;
getitem StrangeCoin, 10;
} else {
getitem StrangeCoin, 5;
}
getexp #VALENTINE_SENT+#VALENTINE_RECEIVED, #VALENTINE_SENT;
Zeny=Zeny+#VALENTINE_OPENED;
if (strcharinfo(0) == .@name$[0])
mesc l("You gained a @@ for the #1 place on the event. Remember to feed it @@, or it may run away from you.", getitemlink(DoggyDog), getitemlink(AnimalBones));
return;
}
/////////////////////////////////////////////////////////////////////////////////
function handleStPatrick {
// Check if St. Patrick day is over D:
if ($EVENT$ != "Patrick")
goto OnRestore;
// Okay, it is still St. Patrick :3
mesn;
mesc l("It's St. Patrick Event!"), 3;
mes l("At 00:00, 06:00, 12:00, 15:00, 18:00 and 21:00 server time");
mes l("Several special clovers will show up at forests.");
next;
mes l("They have 10x more chance to drop a @@, so it is a great deal!", getitemlink(FourLeafClover));
mes l("Also, hidden in a forest which is not hot nor cold, is the Gold Pot Cauldron...");
mes l("You can get daily something from it, but unless you're green like me, you will have no luck...");
next;
return;
}
/////////////////////////////////////////////////////////////////////////////////
L_Aurora:
// Define script variables
.@WHAT$=l("event");
// Fill them with specific details, if available
if ($EVENT$ == "Expo") {
.@WHAT$=l("world expo");
} else if ($EVENT$ == "Fishing") {
.@WHAT$=l("golden fish hunt");
} else if ($EVENT$ == "Kamelot") {
.@WHAT$=l("kamelot raid");
} else if ($EVENT$ == "Regnum") {
.@WHAT$=l("regnum's blessing");
} else if ($EVENT$ == "Mining") {
.@WHAT$=l("miners union request");
} else if ($EVENT$ == "Candor") {
.@WHAT$=l("candor battle season");
}
mesn;
mesq l("Hello! I am Aurora, and I oversee the %s!", .@WHAT$);
next;
mesn;
mesq l("So, how can I help you today?");
do
{
next;
select
l("Event Details"),
l("Event Ranking Rewards"),
rif(FYEventUsesRanking(), l("Current Rankings")),
rif(FYEventUsesRanking(), l("List & Claim rewards")),
l("That's all, thanks!");
mes "";
switch (@menu) {
case 1:
EventHelp();
if (FYEventUsesRanking()) {
mesc l("You must claim all rewards and use any event item BEFORE it ends."), 1;
mesc l("Left-overs will be deleted shortly after."), 1;
mesc l("Any eventual ranking reward will be sent by the banker's mail."), 1;
} else {
mesn;
mesq l("Have fun!");
}
break;
case 2:
auroraRankings();
break;
case 3:
auroraCurrentRankings();
break;
case 4:
auroraSubmit();
auroraListRewards();
break;
default:
close;
}
// The code block is done
} while (true);
close;
/////////////////////////////////////////////////////////////////////////////////
function auroraRankings {
setnpcdialogtitle l("Aurora Events")+" - "+$EVENT$;
setskin "aurora_"+$EVENT$;
mes "There is no ranking information available for this event.";
select("Ok");
setskin "";
clear;
auroraCurrentRankings(); // More to silence a bug than whatelse
return;
}
function auroraCurrentRankings {
if (FYEventUsesRanking()) {
HallOfAurora();
} else {
mesn;
mesq l("Personally, I like unranked events more than ranked ones...");
}
return;
}
function auroraListRewards {
.@s=getq2(Q_AuroraEvent);
.@r=getq3(Q_AuroraEvent);
mesn;
freeloop(true);
for (.@i=0; .@i < getarraysize($FYREWARD_PT); .@i++) {
mes l("%s %d pts - %d %s",
(.@r > .@i ? "%%A" : (.@r == .@i ? "%%E" : "%%B")), // Status Indicator
$FYREWARD_PT[.@i], $FYREWARD_AM[.@i], getitemlink($FYREWARD_ID[.@i]));
// You're at this milestone? Hmm
if (.@r == .@i) {
// Your score is enough: rank you up
if (.@s >= $FYREWARD_PT[.@i]) {
inventoryplace $FYREWARD_ID[.@i], $FYREWARD_AM[.@i];
getitem $FYREWARD_ID[.@i], $FYREWARD_AM[.@i];
.@r+=1;
setq3 Q_AuroraEvent, .@r;
}
}
}
freeloop(false);
return;
}
function auroraSubmit {
.@q2=getq2(Q_AuroraEvent);
FYE_Submit();
mesc l("Event score: %d -> %d", .@q2, getq2(Q_AuroraEvent));
return;
}
// DO NOT REMOVE
}