// author: Jenalya
// reviewed by:
// state0: Cindy is totally scared and does nothing helpful
// state1: you are able to open the cage
// state2 and greater: Cindy is saved, she asks you to visit them
//
//TODO: picture
031-3.gat,122,51,0 script Cindy 114, {
if ($@FIGHT_YETI_STATUS != 0) goto L_Yeti;
set @KEYS_AMOUNT, 10;
set @Q_Nivalis_state_MASK, NIBBLE_5_MASK;
set @Q_Nivalis_state_SHIFT, NIBBLE_5_SHIFT;
set @rescue_Cindy, ((QUEST_Nivalis_state & @Q_Nivalis_state_MASK) >> @Q_Nivalis_state_SHIFT);
if (Sex == 0) set @title$, "Misses";
if (Sex == 1) set @title$, "Mister";
if (@rescue_Cindy >= 3) goto L_Please_Visit;
if (@rescue_Cindy == 2) goto L_Reward;
if (@rescue_Cindy == 1) goto L_Please_Help;
mes "There is a little girl in a cage. As you come near, she starts to shiver and back off from you as far as she can in that small cage.";
next;
mes "You don't know, what to do.";
close;
L_Please_Help:
mes "There is a little girl in a cage. As you come near, she starts to shiver and back off from you as far as she can in that small cage.";
next;
menu
"Hello Cindy, I'm here to save you.", - ;
mes "Cindy doesn't look so scared anymore.";
next;
mes "[Cindy]";
mes "\"Hello, dear " + @title$ + " adventurer. Did my mother send you?\"";
next;
mes "\"It's so cold in here! Can you please open the cage?\"";
next;
mes "\"But be careful, if the Yetis hear you, they will come!\"";
menu
"Try to open the cage", L_Try_Cage,
"Leave", -;
close;
L_Try_Cage:
if (countitem("TreasureKey") < @KEYS_AMOUNT) goto L_Not_Enough_Keys;
delitem "TreasureKey", @KEYS_AMOUNT;
mes "As you try to open the door of the cage, there is a loudly squeaking noise.";
next;
mes "You get an uncomfortable feeling and Cindy starts to shiver.";
next;
mes "\"Oh no, the Yetis...\"";
if ($@FIGHT_YETI_STATUS != 0) goto L_Yeti;
// initialize fight
set $@FIGHT_YETI_STATUS, 1;
set $@FIGHT_YETI_WAVE, 1;
set $@FIGHT_YETI_PLAYER_COUNT, getareausers("031-3.gat", 80, 20, 160, 90);
startnpctimer;
goto L_Exit;
//TODO: remove
//TODO: start the battle and set state2 in case of success
mes "DEBUG: ADD YETIFIGHT HERE, QUEST VARIABLE INCREASED";
set @rescue_Cindy, 2;
callsub S_Update_Mask;
close;
//TODO: why close and end?
L_Exit:
close;
end;
L_Yeti:
mes "[Cindy]";
mes "\"Watch out, the Yetis!\"";
close;
L_Reward:
mes "[Cindy]";
mes "\"You are a hero! All this strong monsters!\"";
next;
mes "\"I've found this thing in the cave - it looks valuable. I want you to have it.\"";
next;
getinventorylist;
if (@inventorylist_count == 100) goto L_Full_Inv;
set @reward, rand(2);
if (@reward == 1) goto L_Wizard_Hat;
//TODO: set right, when quarterstaff is in item_db
//getitem "WoodenStaff", 1;
mes "DEBUG: GET ACORN INSTEAD OF WOODENSTAFF";
getitem "acorn", 1;
goto L_Visit;
L_Wizard_Hat:
//TODO: set right, when quarterstaff is in item_db
//getitem "BugLeg", 1;
mes "DEBUG: GET BUGLEG INSTEAD OF WIZARDHAT";
getitem "acorn", 1;
L_Visit:
mes "\"Thank you so much, please come to my home. It's the house at the beach.\"";
next;
mes "\"I'm sure, my mother want to thank you as well.\"";
set @rescue_Cindy, 3;
callsub S_Update_Mask;
close;
L_Please_Visit:
mes "[Cindy]";
mes "\"Thank you, thank you! You're a hero! Please come home with me to our house at the beach!\"";
close;
L_Not_Enough_Keys:
mes "You don't have enough keys to open the cage.";
close;
L_Full_Inv:
mes "\"Oh, it seems you carry so much stuff - I will keep it for you until you can take it.\"";
close;
// Fight logic
OnTimer5000:
setnpctimer 0;
if ($@FIGHT_YETI_STATUS != 0) goto L_CaveLogic;
L_Return_1:
set $@FIGHT_YETI_PLAYER_COUNT, 0;
areatimer "031-3.gat", 80, 20, 160, 90, 10, "Cindy::onTick";
end;
L_CaveLogic:
set $@FIGHT_YETI_ROUND_PEN, $@FIGHT_YETI_PLAYER_COUNT;
if ($@FIGHT_YETI_ROUND_PEN > 60) set $@FIGHT_YETI_ROUND_PEN, 60;
if ($@FIGHT_YETI_PLAYER_COUNT <= 0) goto L_CleanUp;
set $@FIGHT_YETI_ROUND_TIMER, $@FIGHT_YETI_ROUND_TIMER + 5; // Advance 5 seconds
if (mobcount("031-3.gat", "Cindy::onPetDeath") <= 0) goto L_NextWave;
if ($@FIGHT_YETI_ROUND_TIMER + $@FIGHT_YETI_ROUND_PEN >= 120) goto L_NextWave;
goto L_Return_1;
L_NextWave:
set $@FIGHT_YETI_ROUND_TIMER, 0;
set $@FIGHT_YETI_WAVE, $@FIGHT_YETI_WAVE + 1;
if ($@FIGHT_YETI_WAVE >= 10) goto L_CleanUp;
//TODO: adjust number of yetis spawned
set $@FIGHT_YETI_NUMBER, $@FIGHT_YETI_WAVE + $@FIGHT_YETI_WAVE * $@FIGHT_YETI_PLAYER_COUNT/30;
set $@YETI_SUMMON, 0;
areamonster "031-3.gat", 80, 20, 160, 90, "", 1072, $@FIGHT_YETI_NUMBER, "Cindy::onPetDeath";
goto L_Return_1;
// Called on each player once every 5 seconds
onTick:
if (isdead(0)) end;
set $@FIGHT_YETI_PLAYER_COUNT, $@FIGHT_YETI_PLAYER_COUNT + 1;
end;
onPetDeath:
end;
onInit:
initnpctimer;
stopnpctimer;
L_CleanUp:
areatimer "031-3.gat", 80, 20, 160, 90, 10, "Cindy::onReward";
set $@FIGHT_YETI_STATUS, 0;
set $@FIGHT_YETI_PLAYER_COUNT, 0;
set $@FIGHT_YETI_WAVE, 1;
set $@FIGHT_YETI_ROUND_TIMER, 0;
killmonster "031-3.gat", "Cindy::onPetDeath";
stopnpctimer;
setnpctimer 0;
end;
onReward:
if (isdead(0)) end;
//TODO: determine, if and how many boss points should be added
set BOSS_POINTS, BOSS_POINTS + 100;
message strcharinfo(0), "You gain 100 Boss Points giving you a total of " + BOSS_POINTS;
if (@rescue_Cindy < 1) goto L_No_Progress;
set @rescue_Cindy, 2;
callsub S_Update_Mask;
message strcharinfo(0), "Cindy looks relieved and as if she wants to talk with you.";
L_No_Progress:
end;
/////////
S_Update_Mask:
set QUEST_Nivalis_state,
(QUEST_Nivalis_state & ~(@Q_Nivalis_state_MASK))
| (@rescue_Cindy << @Q_Nivalis_state_SHIFT);
return;
}
