summaryrefslogtreecommitdiff
path: root/npc/052-1
diff options
context:
space:
mode:
authorJesusaves <cpntb1@ymail.com>2021-04-09 13:33:57 -0300
committerJesusaves <cpntb1@ymail.com>2021-04-09 13:33:57 -0300
commitcf18ce071c79ae37e14ea38943e0b1d88da70a7b (patch)
treef9159c9b60b3018300dd22ffba0d797bc5e828e5 /npc/052-1
parent8a4bf716002a017de77fe7df301ef8e4aaf00a2e (diff)
downloadserverdata-cf18ce071c79ae37e14ea38943e0b1d88da70a7b.tar.gz
serverdata-cf18ce071c79ae37e14ea38943e0b1d88da70a7b.tar.bz2
serverdata-cf18ce071c79ae37e14ea38943e0b1d88da70a7b.tar.xz
serverdata-cf18ce071c79ae37e14ea38943e0b1d88da70a7b.zip
Override
Diffstat (limited to 'npc/052-1')
-rw-r--r--npc/052-1/_import.txt6
-rw-r--r--npc/052-1/_mobs.txt3
-rwxr-xr-xnpc/052-1/channelling.txt324
-rwxr-xr-xnpc/052-1/janitor.txt17
-rwxr-xr-xnpc/052-1/mapflags.txt2
5 files changed, 352 insertions, 0 deletions
diff --git a/npc/052-1/_import.txt b/npc/052-1/_import.txt
new file mode 100644
index 00000000..f9c306da
--- /dev/null
+++ b/npc/052-1/_import.txt
@@ -0,0 +1,6 @@
+// Map 052-1: Illia archipelago
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+"npc/052-1/_mobs.txt",
+"npc/052-1/channelling.txt",
+"npc/052-1/janitor.txt",
+"npc/052-1/mapflags.txt",
diff --git a/npc/052-1/_mobs.txt b/npc/052-1/_mobs.txt
new file mode 100644
index 00000000..57fd7bd7
--- /dev/null
+++ b/npc/052-1/_mobs.txt
@@ -0,0 +1,3 @@
+// This file is generated automatically. All manually added changes will be removed when running the Converter.
+// Map 052-1: Illia archipelago mobs
+052-1,55,29,21,19 monster Poison Skull 1100,18,100000,20000
diff --git a/npc/052-1/channelling.txt b/npc/052-1/channelling.txt
new file mode 100755
index 00000000..e3c6097d
--- /dev/null
+++ b/npc/052-1/channelling.txt
@@ -0,0 +1,324 @@
+
+052-1,25,44,0 script #EnchantDoorTrigger NPC32767,3,4,{
+ @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:
+ heal -Hp, 0;
+ end;
+
+}
+
+052-1,57,29,0 script #Enchanted Door NPC369,1,1,{
+ if ($@illia_level_4_progress != 2) goto L_PushBack;
+ end;
+
+L_PushBack:
+ warp "052-1", 57, 34;
+ heal ((MaxHp/100) * -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", 56, 30, 60, 31, "", 1101, 2 + rand(3), "#Enchanted Door::OnSpawn";
+ misceffect FX_EVIL_SUMMON;
+ end;
+
+OnSpawn:
+ end;
+
+}
+
+052-1,57,29,0 script #Enchanted Door2 NPC400,1,1,{
+ if ($@illia_level_4_progress == 2) goto L_Warp;
+ end;
+
+L_Warp:
+ warp "052-2", 33, 40;
+ end;
+
+OnCommandDestroy:
+ misceffect FX_ENCHANTED_DOOR_BROKEN;
+ end;
+
+}
+
+052-1,51,38,0 script Engravings NPC400,{
+ 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",53,38) == 0)
+ goto L_Return;
+ if ($@illia_level_4_progress > 0)
+ goto L_Return;
+ $@illia_level_4_progress = 1;
+ $@illia_char_channelling$ = strcharinfo(0);
+
+ @bonus = (Int+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
+ $@illia_magic_power = 1811 + Int*2;
+ // Channelling required power depends on the base Int of the character
+ $@illia_magic_power_required = 5707 - 2*Int;
+ // magic power loss depends also on Int
+ $@illia_magic_power_loss = 53 - ((Int+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)
+ $@illia_magic_power_status = 1;
+
+ message strcharinfo(0), "Ok, let's stay focused now!";
+ donpcevent "#Power Circle::OnCommandSt";
+ goto L_Return;
+
+L_Return:
+ return;
+}
+
+052-1,53,38,0 script #Power Circle NPC368,{
+ @step = 4;
+ if ($@illia_progress < @step)
+ goto L_ShouldNotBeHere;
+ if (isat("052-1",53,38) == 0)
+ goto L_Hint;
+ end;
+
+OnCast:
+ callfunc "StartChannelling";
+ 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
+ donpcevent "#Enchanted Door::OnCommandDS";
+ end;
+
+S_ItemSpawn:
+ if (!(attachrid(getcharid(3, $@illia_char_channelling$))))
+ goto L_Return;
+ // spawn items at random
+ $@illia_item_spawn_i = rand(getarraysize($@illia_small_lazurites)/2);
+ $@illia_item_spawn_x = $@illia_small_lazurites[$@illia_item_spawn_i*2];
+ $@illia_item_spawn_y = $@illia_small_lazurites[($@illia_item_spawn_i*2)+1];
+ if (rand(10) > 0)
+ makeitem 873, rand(4,7), "052-1", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+ $@illia_item_spawn_i = rand(getarraysize($@illia_regular_lazurites)/2);
+ $@illia_item_spawn_x = $@illia_regular_lazurites[$@illia_item_spawn_i*2];
+ $@illia_item_spawn_y = $@illia_regular_lazurites[($@illia_item_spawn_i*2)+1];
+ if (rand(8) > 0)
+ makeitem 874, rand(3,4), "052-1", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+ $@illia_item_spawn_i = rand(getarraysize($@illia_large_lazurites)/2);
+ $@illia_item_spawn_x = $@illia_large_lazurites[$@illia_item_spawn_i*2];
+ $@illia_item_spawn_y = $@illia_large_lazurites[($@illia_item_spawn_i*2)+1];
+ if (rand(4) > 0)
+ makeitem 875, rand(1,2), "052-1", $@illia_item_spawn_x, $@illia_item_spawn_y;
+
+ $@illia_item_spawn_i = 0;
+ $@illia_item_spawn_x = 0;
+ $@illia_item_spawn_y = 0;
+
+ detachrid;
+ goto L_Return;
+
+L_Return:
+ return;
+
+S_CheckChannelling:
+ // Remove stones inside the circle
+ set $@illia_magic_power, $@illia_magic_power +
+ getareadropitem("052-1", 52, 37, 54, 39, 873, 1)*$@illia_lazurites_power[0] +
+ getareadropitem("052-1", 52, 37, 54, 39, 874, 1)*$@illia_lazurites_power[1] +
+ getareadropitem("052-1", 52, 37, 54, 39, 875, 1)*$@illia_lazurites_power[2];
+
+ // magic power fades over time
+ $@illia_magic_power = $@illia_magic_power - $@illia_magic_power_loss;
+
+ $@illia_magic_power_last_status = $@illia_magic_power_status;
+ $@illia_magic_power_status = 1;
+ if ($@illia_magic_power < 300)
+ $@illia_magic_power_status = 0;
+ if ($@illia_magic_power > $@illia_magic_power_required - 300)
+ $@illia_magic_power_status = 2;
+
+ // Player loses a part of his health while channelling
+ if (!(attachrid(getcharid(3, $@illia_char_channelling$))))
+ goto L_ChannellingFail;
+ // Display an effect showing the drain
+ misceffect FX_CHANNELLING_RAISE;
+ heal ((MaxHp/100) * -4), 0;
+
+ if (ispcdead())
+ goto L_ChannellingDead;
+ if (isat("052-1",53,38) == 0)
+ goto L_ChannellingMoved;
+ // check the magic power
+ if ($@illia_magic_power <= 0)
+ goto L_ChPwrVanish;
+ if ($@illia_magic_power >= $@illia_magic_power_required)
+ goto L_ChannellingComplete;
+
+ detachrid;
+
+ $@illia_channelling_status_msg$ = "";
+
+ if ($@illia_magic_power_last_status == 0 && $@illia_magic_power_status == 1)
+ $@illia_channelling_status_msg$ = $@illia_char_channelling$ + ": I think I'm controlling the spell again now. Keep up!";
+ if ($@illia_magic_power_last_status == 1 && $@illia_magic_power_status == 0)
+ $@illia_channelling_status_msg$ = $@illia_char_channelling$ + ": Guys I'm loosing it! Hurry up!";
+ if ($@illia_magic_power_last_status == 1 && $@illia_magic_power_status == 2)
+ $@illia_channelling_status_msg$ = $@illia_char_channelling$ + ": I almost have the power to cast it! One last effort!";
+ if ($@illia_magic_power_last_status == 2 && $@illia_magic_power_status == 1)
+ $@illia_channelling_status_msg$ = $@illia_char_channelling$ + ": Damn! It faded a little.";
+
+ if ($@illia_channelling_status_msg$ != "")
+ areatimer 0, "052-1", 1, 1, 100, 80, 0, "#Power Circle::OnMPSC";
+
+ return;
+
+OnMPSC:
+ message strcharinfo(0), $@illia_channelling_status_msg$;
+ $@illia_channelling_status_msg$ = "";
+ end;
+
+L_ChannellingComplete:
+ message strcharinfo(0), "You successfully cast the spell and broke the door's enchantment!";
+ detachrid;
+ stopnpctimer;
+ setnpctimer 0;
+ $@illia_magic_power = 0;
+ $@illia_magic_power_required = 0;
+ $@illia_magic_power_last_status = 0;
+ $@illia_magic_power_status = 0;
+ $@illia_magic_power_loss = 0;
+ $@illia_char_channelling$ = "";
+ $@illia_level_4_progress = 2;
+ $@illia_progress = 5;
+ callfunc "UpdateIlliaProgress";
+ $@illia_max_time = $@illia_max_time + 600;
+ // Effect to display the disenchant is cast
+ misceffect FX_CHANNELLING_CAST;
+ // move away the enchanted door
+ donpcevent "#Enchanted Door2::OnCommandDestroy";
+ 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",1,1,100,80) == 0)
+ goto L_ChannellingFail;
+ heal -Hp, 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_ChPwrVanish:
+ // kill the player as part of the process: the magic process drained his life.
+ heal -Hp, 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;
+ $@illia_magic_power = 0;
+ $@illia_magic_power_required = 0;
+ $@illia_magic_power_last_status = 0;
+ $@illia_magic_power_status = 0;
+ $@illia_magic_power_loss = 0;
+ $@illia_char_channelling$ = "";
+ $@illia_level_4_progress = 0;
+ end;
+
+L_ShouldNotBeHere:
+ heal -Hp, 0;
+ end;
+
+OnInit:
+ registercmd "#catalazuli", strnpcinfo(0)+"::OnCast";
+ end;
+}
diff --git a/npc/052-1/janitor.txt b/npc/052-1/janitor.txt
new file mode 100755
index 00000000..cae999e5
--- /dev/null
+++ b/npc/052-1/janitor.txt
@@ -0,0 +1,17 @@
+
+052-1,1,1,0 script #IlliaJanitor4 NPC32767,{
+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.
+ killmonster "052-1", "All";
+ // Delete the magic stones that are still laying around.
+ // FIXME Syntax error happens if not setting a variable...
+ set $@dummy_var, getareadropitem("052-1", 1, 1, 98, 78, 873, 1) +
+ getareadropitem("052-1", 1, 1, 98, 78, 874, 1) +
+ getareadropitem("052-1", 1, 1, 98, 78, 875, 1);
+ $@dummy_var = 0;
+ end;
+
+}
diff --git a/npc/052-1/mapflags.txt b/npc/052-1/mapflags.txt
new file mode 100755
index 00000000..0e8e3295
--- /dev/null
+++ b/npc/052-1/mapflags.txt
@@ -0,0 +1,2 @@
+052-1 mapflag nosave 007-2,36,23
+//052-1 mapflag resave 007-2,36,23