summaryrefslogtreecommitdiff
path: root/npc/018-7-1
diff options
context:
space:
mode:
Diffstat (limited to 'npc/018-7-1')
-rw-r--r--npc/018-7-1/demure.txt168
1 files changed, 168 insertions, 0 deletions
diff --git a/npc/018-7-1/demure.txt b/npc/018-7-1/demure.txt
index 4da2520c6..e9d0c323a 100644
--- a/npc/018-7-1/demure.txt
+++ b/npc/018-7-1/demure.txt
@@ -8,8 +8,176 @@
018-7-1,23,20,0 script Demure, Queen of Dragons NPC_DEMURE,{
mesn;
mesq l("Greetings mortal; I am Demure, Queen of Dragons.");
+ if (BaseLevel < 40) close;
+ next;
+ mesn strcharinfo(0);
+ select
+ l("Thanks. It is my pleasure."),
+ l("I want to challenge you.");
+ mes "";
+ if (@menu == 1) { closeclientdialog; close;}
+ mesc l("Mode?");
+ menuint
+ l("Solo"), MODE_SOLO,
+ rif(getcharid(1), l("Party")), MODE_PARTY;
+ .@mode = @menu;
+ if (.@mode == MODE_PARTY) {
+ if (getcharid(1) < 1)
+ kick(getcharid(3), 3);
+ if (strcharinfo(0) != getpartyleader(getcharid(1))) {
+ mesn;
+ mesq l("Hold your horses, %s. You are not the party leader.", strcharinfo(0));
+ close;
+ }
+ }
+ mes "";
+ mesc l("Difficulty?");
+ menuint
+ l("I want to challenge the Yetifly."), 1,
+ l("I want to challenge you."), 2,
+ l("I want to challenge you both."), 3;
+ .@mode2 = @menuret;
+ mes "";
+ mesc l("Monster Density and Boss HP?");
+ menuint
+ l("Meager."), 1,
+ l("Normal."), 2,
+ l("Doubled."), 4,
+ l("Hunter."), 8,
+ l("Ultimate"), 16;
+ .@mode3 = @menuret;
+ mes "";
+ if (.@mode == MODE_SOLO) {
+ .@mapn$="demu@"+getcharid(0);
+ .@inst = instance_create("Demured "+getcharid(0), getcharid(3), IOT_CHAR);
+ } else {
+ .@mapn$="demu@"+getcharid(1);
+ .@inst = instance_create("Demured "+getcharid(1), getcharid(1), IOT_PARTY);
+ }
+ instance_attachmap("018-7-1", .@inst, false, .@mapn$);
+ // Instance lasts 10 minutes + 15s grace time
+ instance_set_timeout(615, 615, .@inst);
+ instance_init(.@inst);
+
+ // Create walls
+ setcells .@mapn$, 75, 66, 75, 67, 1, .@mapn$+"A";
+ setcells .@mapn$, 85, 84, 86, 84, 1, .@mapn$+"B";
+
+ // Adjust the proper monster count to be spawned
+ if (.@mode == MODE_PARTY) {
+ getpartymember(getcharid(1));
+ .@count = max($@partymembercount, 1);
+ } else {
+ .@count = 1;
+ }
+
+ // Setup the boss monsters. Non-exclusive (bitwise)
+ if (.@mode2 & 1) {
+ .@m=monster(.@mapn$, 85, 66, strmobinfo(1, Yetifly), Yetifly, 1, strnpcinfo(NPC_NAME_UNIQUE)+"::OnYeti");
+ .@p=getunitdata(.@m, UDT_MAXHP);
+ setunitdata(.@m, UDT_MAXHP, .@p*.@count*.@mode3);
+ setunitdata(.@m, UDT_HP, .@p*.@count*.@mode3);
+ }
+ if (.@mode2 & 2) {
+ .@m=monster(.@mapn$, 87, 57, strmobinfo(1, DemureFirstForm), DemureFirstForm, 1, strnpcinfo(NPC_NAME_UNIQUE)+"::OnDem1");
+ .@p=getunitdata(.@m, UDT_MAXHP);
+ setunitdata(.@m, UDT_MAXHP, .@p*.@count*.@mode3);
+ setunitdata(.@m, UDT_HP, .@p*.@count*.@mode3);
+ }
+
+ // Setup the reinforcements, in appropriate number and mode
+ for (.@i = 0; .@i < (.@count*.@mode3); .@i++) {
+ .@mob = any(EarthFairy, FireFairy, WaterFairy, WindFairy, PoisonFairy);
+ .@m = areamonster(.@mapn$, 76, 47, 95, 83, strmobinfo(1, .@mob), .@mob, 1);
+ .@p = getunitdata(.@m, UDT_MODE);
+ setunitdata(.@m, UDT_MODE, (.@p | MD_AGGRESSIVE));
+ }
+ for (.@i = 0; .@i < .@count; .@i++) {
+ .@mob = any(EliteDuck, Archant, Wolvern, BlueSlimeMother);
+ areamonster .@mapn$, 76, 47, 95, 83, strmobinfo(1, .@mob), .@mob, any(1,2);
+ }
+
+ // Warp you and/or your party
+ if (.@mode == MODE_SOLO)
+ warp(.@mapn$, 36, 47);
+ else
+ warpparty(.@mapn$, 176, 20, getcharid(1), "018-7-1", true);
+
+ // Begin tracking time and metadata (blackbox needs this)
+ @elapsed = 0;
+ @d_mode1 = .@mode;
+ @d_mode2 = .@mode2;
+ @d_mode3 = .@mode3;
+ @d_count = .@count;
+ addtimer 5000, strnpcinfo(NPC_NAME_UNIQUE)+"::OnBeet";
close;
+OnBeet:
+ if (!compare(getmap(), "demu@") && !compare(getmap(), "018-7-1")) end;
+ @elapsed += 5;
+ if (@elapsed % 60 < 5)
+ mapannounce(getmap(), l("Time left: %d minutes", 10-(@elapsed/60)), bc_map | bc_pc);
+ if (@elapsed > 600)
+ end;
+ addtimer2 5000, strnpcinfo(NPC_NAME_UNIQUE)+"::OnBeet";
+ end;
+
+// Check victory conditions
+OnYeti:
+OnDem2:
+ if (!playerattached()) {
+ debugmes "ERROR - PLAYER NOT ATTACHED, INVALID KILL, CANNOT RESOLVE MAP.";
+ end;
+ }
+ .@m$ = getmap();
+ .@left=0;
+ .@left+=mobcount(.@m$, strnpcinfo(NPC_NAME_UNIQUE)+"::OnYeti");
+ .@left+=mobcount(.@m$, strnpcinfo(NPC_NAME_UNIQUE)+"::OnDem1");
+ .@left+=mobcount(.@m$, strnpcinfo(NPC_NAME_UNIQUE)+"::OnDem2");
+ // You win!
+ if (!.@left) {
+ // TODO: Call BLACKBOX
+ // BLACKBOX: Solo both of them within five(?) minutes, normal+, all map
+ // aka. @d_mode{1: 1, 2: 3, 3: 2+}, @elapsed < 300
+ mapannounce(getmap(), "CONGRATULATIONS - YOU WIN", bc_map | bc_pc);
+ Zeny += rand2(500, 1500)*max(1, @d_mode2);
+ // FIXME: Add a proper reward
+ sleep2(100);
+ instance_warpall("018-7-2", 23, 22);
+ }
+ end;
+
+// Summon second form (give 5 seconds to players to move)
+OnDem1:
+ if (!playerattached()) {
+ debugmes "ERROR - PLAYER NOT ATTACHED, INVALID KILL, CANNOT RESOLVE MAP.";
+ end;
+ }
+ getmapxy(.@m$, .@x, .@y, 0);
+ .@n$ = "Demure, Queen of Dragons : ";
+ mapannounce(getmap(), .@n$+"You think you've won...?", bc_map | bc_pc);
+ sleep2(1000);
+ mapannounce(getmap(), .@n$+"That would be lame; After all, did you forget that...", bc_map | bc_pc);
+ sleep2(2000);
+ mapannounce(getmap(), .@n$+"I *am* the Queen of Dragons??", bc_map | bc_pc);
+ sleep2(1000);
+ // Read data, summon dragons...
+ for (.@i = 0; .@i < max(1, @d_count*@d_mode3/2); .@i++) {
+ .@mob = any(EarthFairy, FireFairy, WaterFairy, WindFairy, GreenDragon);
+ .@m = areamonster(.@m$, .@x-10, .@y-10, .@x+10, .@y+10, strmobinfo(1, .@mob), .@mob, 1);
+ .@p = getunitdata(.@m, UDT_MODE);
+ setunitdata(.@m, UDT_MODE, (.@p | MD_AGGRESSIVE));
+ }
+ areamonster(.@m$, .@x-5, .@y-5, .@x+5, .@y+5, strmobinfo(1, GreenDragon), GreenDragon, 1);
+
+ // And finally, change form (ressurect)
+ .@m=monster(.@m$, 87, 57, strmobinfo(1, DemureSecondForm), DemureSecondForm, 1, strnpcinfo(NPC_NAME_UNIQUE)+"::OnDem2");
+ .@p=getunitdata(.@m, UDT_MAXHP);
+ setunitdata(.@m, UDT_MAXHP, .@p*@d_count*@d_mode3);
+ setunitdata(.@m, UDT_HP, .@p*@d_count*@d_mode3);
+ mapannounce(getmap(), .@n$+"I'll leave a 2x2 black square where you used to be!", bc_map | bc_pc);
+ end;
+
OnInit:
.distance = 4;
.sex = G_FEMALE;