Add Illia quest scripts. Update submodule pointer.

4 files changed, 333 insertions, 0 deletions

diff --git a/world/map/npc/052-1/_import.txt b/world/map/npc/052-1/_import.txt
index 29240d1c..96b46ee0 100644
--- a/world/map/npc/052-1/_import.txt
+++ b/world/map/npc/052-1/_import.txt
@@ -3,3 +3,6 @@
 map: 052-1.gat
 npc: npc/052-1/_mobs.txt
 npc: npc/052-1/_warps.txt
+npc: npc/052-1/channelling.txt
+npc: npc/052-1/janitor.txt
+npc: npc/052-1/mapflags.txt
diff --git a/world/map/npc/052-1/channelling.txt b/world/map/npc/052-1/channelling.txt
new file mode 100644
index 00000000..9c6ffe88
--- /dev/null
+++ b/world/map/npc/052-1/channelling.txt
@@ -0,0 +1,311 @@
+//-----------------------------------------------------------------------------
+// Illia Island
+// $@illia_progress = 4
+//
+// Level progress:
+//     0: Did not start the channelling, or previous channelling failed
+//     1: Channelling started
+//     2: Channelling completed
+//-----------------------------------------------------------------------------
+
+052-1.gat,25,44,0|script|#EnchantDoorTrigger|32767,3,4,{
+    set @step, 4;
+    if ($@illia_progress < @step) goto L_ShouldNotBeHere;
+    if (strcharinfo(0) == $@ILLIA_HERO$ &&
+        $@illia_level_4_progress == 0) goto L_EnchantDoor;
+    end;
+
+L_EnchantDoor:
+    enablenpc "#Enchanted Door";
+    end;
+
+L_ShouldNotBeHere:
+    percentheal -100, 0;
+    end;
+
+}
+
+052-1.gat,57,29,0|script|#Enchanted Door|369,1,1{
+    if ($@illia_level_4_progress != 2) goto L_PushBack;
+    end;
+
+L_PushBack:
+    warp "052-1.gat", 57, 34;
+    percentheal -20, 0;
+    message strcharinfo(0), "You are pushed back violently. There is probably some way to break this barrier.";
+    mes "You are pushed back violently.";
+    mes "There is probably some way to break this barrier.";
+    close;
+
+OnCommandDS:
+    areamonster "052-1.gat", 56, 30, 60, 31, "", 1101, 2 + rand(3), "#Enchanted Door::onSpawn";
+    misceffect FX_EVIL_SUMMON;
+    end;
+
+onSpawn:
+    end;
+
+}
+
+052-1.gat,57,29,0|script|#Enchanted Door2|127,1,1{
+    if ($@illia_level_4_progress == 2) goto L_Warp;
+    end;
+
+L_Warp:
+    warp "052-2.gat", 33, 40;
+    end;
+
+OnCommandDestroy:
+    misceffect FX_ENCHANTED_DOOR_BROKEN;
+    end;
+
+}
+
+052-1.gat,51,38,0|script|Engravings|127,{
+    mes "You can read some words engraved inside this rock, but some are erased by wind and time:";
+    next;
+    mes "\".. can use this .. power..´. . .´. .  . amplify a spell ..´.";
+    mes " . ´´. Don't let .. spell power .´..´ . .. fade away ...";
+    mes "´ .Use lazurite stones ´..´. they will appear. ..´ ..  drop them inside .. this circle.";
+    mes ". ´ power.. drains .. life..´. .´  focus . .not move at all´. .\"";
+    next;
+    mes "Below this strange writing, you notice a word still deeply engraved in the stone:";
+    next;
+    mes "\"#catalazuli\"";
+    next;
+    mes "... that looks like an incantation or something.";
+    if ($@illia_level_4_progress == 0)
+        goto L_SuggestChannelling;
+    close;
+
+L_SuggestChannelling:
+    next;
+    mes "I think this blue circle right here can be helpful to break the enchantment that blocks the door of the Inn.";
+    next;
+    mes "Let's see how I can activate it...";
+    mes "But I should probably get inside it, first.";
+    close;
+
+}
+
+function|script|StartChannelling|{
+    if (isat("052-1.gat",53,38) == 0)
+        end;
+    if ($@illia_level_4_progress > 0)
+        end;
+    set $@illia_level_4_progress, 1;
+    set $@illia_char_channelling$, strcharinfo(0);
+
+    set @bonus, (readparam(bInt)+1) / 25;
+    // Lazurite Stones power, will also depend on the Int of the channelling character
+    setarray $@illia_lazurites_power,
+        12 + @bonus, // small
+        32 + @bonus, // regular
+        65 + @bonus; // large
+
+    // coordinates where stones will appear
+    setarray $@illia_small_lazurites, 50,41, 44,33, 61,42;
+    setarray $@illia_regular_lazurites, 68,29, 47,25, 38,45, 70,40;
+    setarray $@illia_large_lazurites, 21,40, 34,25;
+
+    // amount of initial magic power
+    set $@illia_magic_power, 1811 + readparam(bInt)*2;
+    // Channelling required power depends on the base Int of the character
+    set $@illia_magic_power_required, 5707 - 2*readparam(bInt);
+    // magic power loss depends also on Int
+    set $@illia_magic_power_loss, 53 - ((readparam(bInt)+1)*2)/10;
+
+    // register the power status to display hints to the players
+    // Statuses: 0=critical(below 300), 1=neutral, 2=almost there (max-300)
+    set $@illia_magic_power_status, 1;
+
+    message strcharinfo(0), "Ok, let's stay focused now!";
+    cmdothernpc "#Power Circle", "St";
+    close;
+
+}
+
+052-1.gat,53,38,0|script|#Power Circle|368,{
+    set @step, 4;
+    if ($@illia_progress < @step)
+        goto L_ShouldNotBeHere;
+    if (isat("052-1.gat",53,38) == 0)
+        goto L_Hint;
+    end;
+
+OnCommandSt:
+    initnpctimer;
+    end;
+
+L_Hint:
+    mes "Magic seems to be flowing from this place. I should find out what it is.";
+    close;
+
+OnTimer2000:
+    callsub S_CheckChannelling;
+    end;
+
+OnTimer4000:
+    callsub S_CheckChannelling;
+    end;
+
+OnTimer6000:
+    // Spawn items at specific place
+    callsub S_ItemSpawn;
+    callsub S_CheckChannelling;
+    end;
+
+OnTimer8000:
+    callsub S_CheckChannelling;
+    end;
+
+OnTimer10000:
+    // Spawn items at specific place
+    callsub S_ItemSpawn;
+    callsub S_CheckChannelling;
+    end;
+
+OnTimer11000:
+    setnpctimer 0;
+    // Spawn monsters (demonic spirits) near the enchanted door
+    cmdothernpc "#Enchanted Door", "DS";
+    end;
+
+S_ItemSpawn:
+    if (isloggedin(getcharid(3, $@illia_char_channelling$)) == 0)
+        return;
+    attachrid(getcharid(3, $@illia_char_channelling$));
+    // spawn items at random
+    set $@illia_item_spawn_i, rand(getarraysize($@illia_small_lazurites)/2);
+    set $@illia_item_spawn_x, $@illia_small_lazurites[$@illia_item_spawn_i*2];
+    set $@illia_item_spawn_y, $@illia_small_lazurites[($@illia_item_spawn_i*2)+1];
+    if (rand(10) > 0)
+        makeitem 873, rand(4,7), "052-1.gat", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+    set $@illia_item_spawn_i, rand(getarraysize($@illia_regular_lazurites)/2);
+    set $@illia_item_spawn_x, $@illia_regular_lazurites[$@illia_item_spawn_i*2];
+    set $@illia_item_spawn_y, $@illia_regular_lazurites[($@illia_item_spawn_i*2)+1];
+    if (rand(8) > 0)
+        makeitem 874, rand(3,4), "052-1.gat", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+    set $@illia_item_spawn_i, rand(getarraysize($@illia_large_lazurites)/2);
+    set $@illia_item_spawn_x, $@illia_large_lazurites[$@illia_item_spawn_i*2];
+    set $@illia_item_spawn_y, $@illia_large_lazurites[($@illia_item_spawn_i*2)+1];
+    if (rand(4) > 0)
+        makeitem 875, rand(1,2), "052-1.gat", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+    set $@illia_item_spawn_i, 0;
+    set $@illia_item_spawn_x, 0;
+    set $@illia_item_spawn_y, 0;
+
+    detachrid;
+    return;
+
+S_CheckChannelling:
+    // Remove stones inside the circle
+    set $@illia_magic_power, $@illia_magic_power +
+        getareadropitem("052-1.gat", 52, 37, 54, 39, 873, 1)*$@illia_lazurites_power[0] +
+        getareadropitem("052-1.gat", 52, 37, 54, 39, 874, 1)*$@illia_lazurites_power[1] +
+        getareadropitem("052-1.gat", 52, 37, 54, 39, 875, 1)*$@illia_lazurites_power[2];
+
+    // magic power fades over time
+    set $@illia_magic_power, $@illia_magic_power - $@illia_magic_power_loss;
+
+    set $@illia_magic_power_last_status, $@illia_magic_power_status;
+    set $@illia_magic_power_status, 1;
+    if ($@illia_magic_power < 300)
+        set $@illia_magic_power_status, 0;
+    if ($@illia_magic_power > $@illia_magic_power_required - 300)
+        set $@illia_magic_power_status, 2;
+
+    // Player loses a part of his health while channelling
+    if (isloggedin(getcharid(3, $@illia_char_channelling$)) == 0)
+        goto L_ChannellingFail;
+    attachrid(getcharid(3, $@illia_char_channelling$));
+    // Display an effect showing the drain
+    misceffect FX_CHANNELLING_RAISE;
+    percentheal -4, 0;
+
+    if (isdead())
+        goto L_ChannellingDead;
+    if (isat("052-1.gat",53,38) == 0)
+        goto L_ChannellingMoved;
+    // check the magic power
+    if ($@illia_magic_power <= 0)
+        goto L_ChannellingPowerVanished;
+    if ($@illia_magic_power >= $@illia_magic_power_required)
+        goto L_ChannellingComplete;
+
+    detachrid;
+
+    if ($@illia_magic_power_last_status == 0 && $@illia_magic_power_status == 1)
+        mapannounce "052-1.gat", $@illia_char_channelling$ + ": I think I'm controlling the spell again now. Keep up!", 0;
+    if ($@illia_magic_power_last_status == 1 && $@illia_magic_power_status == 0)
+        mapannounce "052-1.gat", $@illia_char_channelling$ + ": Guys I'm loosing it! Hurry up!", 0;
+    if ($@illia_magic_power_last_status == 1 && $@illia_magic_power_status == 2)
+        mapannounce "052-1.gat", $@illia_char_channelling$ + ": I almost have the power to cast it! One last effort!", 0;
+    if ($@illia_magic_power_last_status == 2 && $@illia_magic_power_status == 1)
+        mapannounce "052-1.gat", $@illia_char_channelling$ + ": Damn! It faded a little.", 0;
+
+    return;
+
+L_ChannellingComplete:
+    message strcharinfo(0), "You successfully cast the spell and broke the door's enchantment!";
+    detachrid;
+    stopnpctimer;
+    setnpctimer 0;
+    set $@illia_magic_power, 0;
+    set $@illia_magic_power_required, 0;
+    set $@illia_magic_power_last_status, 0;
+    set $@illia_magic_power_status, 0;
+    set $@illia_magic_power_loss, 0;
+    set $@illia_char_channelling$, "";
+    set $@illia_level_4_progress, 2;
+    set $@illia_progress, 5;
+    set $@illia_max_time, $@illia_max_time + 900;
+    // Effect to display the disenchant is cast
+    misceffect FX_CHANNELLING_CAST;
+    // move away the enchanted door
+    cmdothernpc "#Enchanted Door2", "Destroy";
+    disablenpc "#Enchanted Door";
+    end;
+
+L_ChannellingDead:
+    misceffect FX_MAGIC_DARK_EXPLOSION, strcharinfo(0);
+    goto L_ChannellingFail;
+
+L_ChannellingMoved:
+    // kill the player as part of the process: the magic process drained his life.
+    // But only if he is still in the island (otherwise, he probably got warped
+    // and does not need being killed)
+    if (isin("052-1.gat",1,1,100,80) == 0)
+        goto L_ChannellingFail;
+    percentheal -100, 0;
+    misceffect FX_MAGIC_DARK_EXPLOSION, strcharinfo(0);
+    message strcharinfo(0), "You moved out of the power circle. The magic power you accumulated backfires at you!";
+    goto L_ChannellingFail;
+
+L_ChannellingPowerVanished:
+    // kill the player as part of the process: the magic process drained his life.
+    percentheal -100, 0;
+    misceffect FX_MAGIC_DARK_EXPLOSION, strcharinfo(0);
+    message strcharinfo(0), "The magic power vanished, and your spell backfires at you!";
+    goto L_ChannellingFail;
+
+L_ChannellingFail:
+    detachrid;
+    stopnpctimer;
+    setnpctimer 0;
+    set $@illia_magic_power, 0;
+    set $@illia_magic_power_required, 0;
+    set $@illia_magic_power_last_status, 0;
+    set $@illia_magic_power_status, 0;
+    set $@illia_magic_power_loss, 0;
+    set $@illia_char_channelling$, "";
+    set $@illia_level_4_progress, 0;
+    end;
+
+L_ShouldNotBeHere:
+    percentheal -100, 0;
+    end;
+}
diff --git a/world/map/npc/052-1/janitor.txt b/world/map/npc/052-1/janitor.txt
new file mode 100644
index 00000000..e2ca8c4f
--- /dev/null
+++ b/world/map/npc/052-1/janitor.txt
@@ -0,0 +1,18 @@
+// Illia Island janitor
+
+052-1.gat,1,1,0|script|#IlliaJanitor4|127,{
+end;
+
+OnCommandClean:
+    // Kill all monsters (that includes the spawned Demonic Spirits and Azul Slimes)
+    // Note that the loot the slimes may have picked will be deleted at the same time.
+    killmonsterall "052-1.gat";
+    // Delete the magic stones that are still laying around.
+    // FIXME Syntax error happens if not setting a variable...
+    set $@dummy_var, getareadropitem("052-1.gat", 1, 1, 98, 78, 873, 1) +
+                     getareadropitem("052-1.gat", 1, 1, 98, 78, 874, 1) +
+                     getareadropitem("052-1.gat", 1, 1, 98, 78, 875, 1);
+    set $@dummy_var, 0;
+    end;
+
+}
diff --git a/world/map/npc/052-1/mapflags.txt b/world/map/npc/052-1/mapflags.txt
new file mode 100644
index 00000000..1490f5c0
--- /dev/null
+++ b/world/map/npc/052-1/mapflags.txt
@@ -0,0 +1 @@
+052-1.gat mapflag nosave 007-1,86,76;