// TMW2 scripts.
// Author:
// Jesusalva
// Description:
// 023-3 Abandoned Ice Caves Configuration File. Variables: $@LOGIC_0233BOSS
023-3 mapflag zone MMO
023-3,63,220,0 script #Exit0233 NPC_HIDDEN,0,0,{
end;
OnTouch:
.@q=getq(General_Narrator);
.@q2=getq2(General_Narrator);
// Cheater Detected
if (.@q < 15) {
warp "Save", 0, 0;
percentheal -100, -100;
return false;
}
mesc l("Return to Frostia's Castle?");
if (askyesno() == ASK_YES) {
.@mapn$="024-16";
warp .@mapn$, 30, 26;
}
closeclientdialog;
close;
}
023-3,48,22,0 script #Finish0233 NPC_HIDDEN,0,0,{
end;
OnTouch:
.@q=getq(General_Narrator);
.@q2=getq2(General_Narrator);
// Cheater Detected
if (.@q < 13) {
warp "Save", 0, 0;
percentheal -100, -100;
return false;
}
.@mapn$="001-7";
warp .@mapn$, 91, 90;
end;
}
001-7,91,89,0 script #Init0233 NPC_HIDDEN,0,0,{
end;
OnTouch:
.@q=getq(General_Narrator);
.@q2=getq2(General_Narrator);
// Cheater Detected
if (.@q < 13) {
warp "Save", 0, 0;
percentheal -100, -100;
return false;
}
if (.@q == 15) {
dispbottom lg("I'm not a coward! I must press forward!");
end;
}
.@mapn$="023-3";
warp .@mapn$, 48, 23;
end;
}
// A simple random treasure chest - to be sure players were introduced to this
// awesome system. Same rules as any treasure box still applies.
023-3,94,212,0 script #chest_02330 NPC_CHEST,{
TreasureBox();
specialeffect(.dir == 0 ? 24 : 25, AREA, getnpcid()); // closed ? opening : closing
close;
OnInit:
.distance = 2;
end;
}
// Miniboss fight must be enabled on right npc. No passing before that.
023-3,120,103,0 script #MiniBossTrap0233 NPC_HIDDEN,0,2,{
end;
OnTouch:
.@q=getq(FrostiaQuest_Homunculus);
if (!.@q) {
dispbottom l("A powerful magic barrier repels you!");
getmapxy(.@m$, .@x, .@y, 0);
slide .@x-2, .@y;
sit();
}
end;
}
// The scout which went ahead of you (+ miniboss mechanics)
023-3,86,88,0 script Elite Scout#MB0233 NPC_DARKSABER,{
if ($@LOGIC_0233BOSS) {
npctalkonce l("FIGHT!");
end;
}
if (getq(FrostiaQuest_Homunculus) >= 1) {
npctalkonce l("I'm not going any closer to that cursed place!");
end;
}
mesn;
mesq l("Congratulations in making this far, @@.", strcharinfo(0));
next;
select
l("Thanks, and bye."),
l("What should I do now?");
if (@menu == 1)
close;
mes "";
mesn;
mesq l("So, there is a magical barrier to the right, which is in place exactly to protect us.");
next;
mesn;
mesq l("Past this checkpoint, is the village where the Monster King was born.");
next;
mesn;
mesq l("If you want to pass through it, you'll need to defeat the Guardian which made the seal. You can bring friends for healing and support.");
next;
mesn;
mesq l("Once the fight begins, the barrier at your left will lock. It won't open until the fight is over.");
next;
mesn;
mesq l("Are you ready?");
mesc l("WARNING: DO NOT PROCEED UNLESS YOU'RE READY."), 1;
if (askyesno() == ASK_YES && !$@LOGIC_0233BOSS) {
$@LOGIC_0233BOSS=getcharid(3); // It could be 1.
$@LOGIC_0233BOXX=monster("023-3", any(85,94,103,113), any(91,96,102,111), "Guardian", Yeti, 1, .name$+"::OnYetiDefeat");
initnpctimer;
}
closeclientdialog;
end;
// Check if fight is still going on
OnTimer10000:
if (!attachrid($@LOGIC_0233BOSS)) {
killmonster("023-3", .name$+"::OnYetiDefeat");
$@LOGIC_0233BOSS=0;
end;
}
// You gave up, finish it now and not later
if (getmap() != "023-3") {
killmonster("023-3", .name$+"::OnYetiDefeat");
$@LOGIC_0233BOSS=0;
end;
}
// What if the Yeti left the chamber? O.o
// It's not like there was mob collision to prevent this from happening
// If that's the case, bring the Yeti to player position and order attack :>
getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@LOGIC_0233BOXX);
getmapxy(.@mx$, .@xx, .@yx, 0);
if (!(is_between(79, 120, .@x) && is_between(75, 125, .@y))) {
unitwarp($@LOGIC_0233BOXX, .@mx$, .@xx, .@yx);
unitattack($@LOGIC_0233BOXX, $@LOGIC_0233BOSS);
unittalk($@LOGIC_0233BOXX, "I did not forgot you, @@! %%e", strcharinfo(0));
end;
}
initnpctimer;
end;
// Yeti Defeated
OnYetiDefeat:
stopnpctimer;
.@rid=$@LOGIC_0233BOSS;
$@LOGIC_0233BOSS=0;
// In past, only MVP would count. Now, the requester count.
if (playerattached())
detachrid();
// Player decided to leave the game, annuled
if (!attachrid(.@rid))
end;
// Player decided to leave for a walk, annuled
if (!isin("023-3", 79, 75, 120, 125))
end;
// We don't need compareandsetq because it's now the requester
message(.@rid, l("You've slayed the Yeti."));
npctalk l("Good luck in your journey, @@.", rid2name(.@rid));
setq FrostiaQuest_Homunculus, 1;
end;
OnInit:
.distance = 5;
end;
}
// Cannot flee from Miniboss Fight
023-3,80,84,0 script #MiniBossTrapB0233 NPC_HIDDEN,5,0,{
end;
OnTouch:
.@q=getq(FrostiaQuest_Homunculus);
.@q2=getq(FrostiaQuest_Homunculus);
if ($@LOGIC_0233BOSS) {
dispbottom l("A powerful magic barrier repels you!");
slide 81, 86;
sit();
}
end;
}
// A not-so-simple treasure chest from Sagratha's Dungeon
023-3,0,0,0 script #0233ChestCtrl NPC_HIDDEN,{
end;
OnDelay:
initnpctimer;
end;
OnTimer180000:
stopnpctimer;
OnInit:
setarray .@x, 189, 191, 193, 186;
setarray .@y, 44, 42, 43, 45;
.@r=rand2(getarraysize(.@x));
monster "023-3", .@x[.@r], .@y[.@r], "Treasure Chest", any(BronzeChest,BronzeMimic,SilverChest,SilverMimic,GoldenChest,GoldenMimic), 1, "#0233ChestCtrl::OnDelay";
end;
}
// TODO: Spike traps and etc. at the corritor
// TODO: Rolling Stone Trap
// Delete rolling stones as they hit this wall
/*023-3,47,40,0 script #0233DelStone NPC_HIDDEN,1,0,{
OnTouch:
end;
OnTouchNPC:
//percentheal -100, -100;
//unitkill(0);
unitwarp(0, "023-3", 42, 26);
end;
}
// TODO: Rolling Stone core
023-3,0,0,0 script #0233RollStone NPC_HIDDEN,{
end;
OnInit:
$@0233_STONEA=monster("023-3", 47, 23, "Rolling Stone", RollingStone, 1);
$@0233_STONEB=monster("023-3", 48, 25, "Rolling Stone", RollingStone, 1);
$@0233_STONEC=monster("023-3", 47, 30, "Rolling Stone", RollingStone, 1);
$@0233_STONED=monster("023-3", 48, 37, "Rolling Stone", RollingStone, 1);
initnpctimer;
end;
OnTimer250:
unitwalk($@0233_STONEA, 47, 40);
unitwalk($@0233_STONEC, 47, 40);
unitwalk($@0233_STONEB, 48, 40);
unitwalk($@0233_STONED, 48, 40);
getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEA);
if (.@y >= 40)
unitwarp($@0233_STONEA, "023-3", 47, 23);
getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEB);
if (.@y >= 40)
unitwarp($@0233_STONEB, "023-3", 48, 23);
getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONEC);
if (.@y >= 40)
unitwarp($@0233_STONEC, "023-3", 47, 23);
getmapxy(.@m$, .@x, .@y, UNITTYPE_MOB, $@0233_STONED);
if (.@y >= 40)
unitwarp($@0233_STONED, "023-3", 48, 23);
initnpctimer;
end;
}
*/
// TODO: NPC walking cannot trigger OnTouch events >.>
023-3,47,23,0 script #0233RollStoneA NPC_ROLLINGSTONE,0,0,{
end;
OnInit:
npcspeed(220);
initnpctimer;
npcwalkto(47, 41);
end;
OnTimer220:
if (.y >= 40) {
movenpc(.name$, 47, 23);
npcwalkto(47, 41);
}
if (getareausers("023-3", 0)) {
areatimer2("023-3", .x, .y, .x, .y, 10, .name$+"::OnTouch");
}
initnpctimer;
end;
OnTouch:
percentheal -100, -100;
end;
OnTouchNPC:
sc_start SC_COMA, 60000, 0;
end;
}
023-3,48,25,0 script #0233RollStoneB NPC_ROLLINGSTONE,0,0,{
end;
OnInit:
npcspeed(220);
initnpctimer;
npcwalkto(48, 41);
end;
OnTimer220:
if (.y >= 40) {
movenpc(.name$, 48, 23);
npcwalkto(48, 41);
}
if (getareausers("023-3", 0)) {
areatimer2("023-3", .x, .y, .x, .y, 10, .name$+"::OnTouch");
}
initnpctimer;
end;
OnTouch:
percentheal -100, -100;
end;
OnTouchNPC:
sc_start SC_COMA, 60000, 0;
end;
}
023-3,47,30,0 duplicate(#0233RollStoneA) #0233RollStoneC NPC_ROLLINGSTONE,0,0
023-3,48,37,0 duplicate(#0233RollStoneB) #0233RollStoneD NPC_ROLLINGSTONE,0,0
