//
function script KadiyaSubquestConsts {
set @Q_kadiya_status, (QUEST_MAGIC2 & NIBBLE_3_MASK) >> NIBBLE_3_SHIFT;
set @Q_STATUS_NONE, 0;
set @Q_STATUS_KNOWS_MOPOX, 1;
set @Q_STATUS_MADE_MOPOX, 2;
set @Q_STATUS_DIDNT_DRINK, 3;
set @Q_STATUS_WANTS_CHOCOCAKE, 4;
set @Q_STATUS_WANTS_ORANGECUPCAKE, 5;
set @Q_STATUS_COMPLETED, 6;
set @Q_STATUS_COMPLETED_ELANORE, 7;
set @Q_STATUS_COMPLETED_NOELANORE, 8;
set @Q_STATUS_COMPLETED_POST_ELANORE, 9;
if (((QUEST_MAGIC2 & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT) < 4)
set @Q_kadiya_status, @Q_STATUS_NONE;
if (((QUEST_MAGIC2 & NIBBLE_1_MASK) >> NIBBLE_1_SHIFT) > 4)
set @Q_kadiya_status, @Q_STATUS_COMPLETED_POST_ELANORE;
return;
}
001-4.gat,25,21,0 script Omar 162,{
callfunc "ElanoreFix";
callfunc "KadiyaSubquestConsts";
set @Q_status, @Q_kadiya_status;
if (@Q_status >= @Q_STATUS_COMPLETED)
goto L_cured;
if (@Q_status == @Q_STATUS_DIDNT_DRINK)
goto L_didnt_drink;
if (@Q_status > @Q_STATUS_DIDNT_DRINK)
goto L_make_food;
mes "[Omar]";
mes "\"Welcome to my humble abode.\"";
next;
menu
"Well met! May I ask who you are?", L_omar,
"What's wrong with your daughter?", L_kadiya_sick,
"Thank you!", -;
close;
L_omar:
mes "[Omar]";
mes "\"My name is Omar; I am a trader of oils and spices.\"";
close;
L_kadiya_sick:
mes "[Omar]";
mes "\"Kadiya has caught Ponderpox, I fear.\"";
mes "He sighs.";
mes "\"She's has been feverish for many days now. I wish there were something I could do.\"";
next;
menu
"Have you asked Elanore the healer?", L_sick_elanore,
"How about the Hurnscald hospital?", L_sick_hospital,
"Can I help?", L_sick_self,
"I'm sorry to hear that.", -;
mes "[Omar]";
mes "\"Well, she is a strong girl. I am sure that she will get over it eventually.\"";
mes "He smiles, but you see doubt in his eyes.";
close;
L_sick_elanore:
mes "[Omar]";
mes "\"Elanore?\"";
mes "He frowns.";
mes "\"She knows nothing. I see no point in talking to her.\"";
close;
L_sick_hospital:
mes "[Omar]";
mes "\"Hurnscald is too far away. I don't think that it would be good for her to go on such a long trip.\"";
close;
L_sick_self:
mes "[Omar]";
mes "\"You are very kind, but I don't think there is anything you can do.\"";
close;
L_didnt_drink:
mes "[Omar]";
mes "\"So she has Mopox, not Ponderpox, you say? Hmm. That is much harder to cure, I think.\"";
mes "\"I am grateful for the effort you put into brewing a potion for her. But it does smell vile...\"";
next;
mes "[Omar]";
mes "\"I promised my dear wife that I would never make Kadiya eat or drink anything she doesn't like. So I won't force her to drink this.\"";
next;
mes "[Omar]";
set @Q_status, (@Q_STATUS_WANTS_CHOCOCAKE + rand(2));
callsub S_update_var;
if (@Q_status == @Q_STATUS_WANTS_ORANGECUPCAKE)
mes "\"If only we could make it smell and taste like orange cupcakes... she really loves those cupcakes.\"";
if (@Q_status == @Q_STATUS_WANTS_CHOCOCAKE)
mes "\"If only this were a chocolate cake and not a potion... she really loves chocolate cakes.\"";
close;
L_make_food:
mes "[Omar]";
mes "\"I should stay here to watch over her. I wish I could think of a way to convince her to drink the potion...\"";
if (@Q_status == @Q_STATUS_WANTS_ORANGECUPCAKE)
mes "\"Alas, it is not an orange cupcake.\"";
if (@Q_status == @Q_STATUS_WANTS_CHOCOCAKE)
mes "\"If only it were to smell and taste like her favourite chocolate cake...\"";
close;
L_cured:
if (@Q_status == @Q_STATUS_COMPLETED)
goto L_cured_choice;
mes "[Omar]";
mes "\"She is sleeping now, but she seems to be much better. I am sure that she will be up and running around again soon.\"";
close;
L_cured_choice:
mes "[Omar]";
mes "\"I am very grateful for your help. I really was sure that it was Ponderpox, not Mopox, that she had.\"";
next;
menu
"Oh, it was nothing.", L_cured_nothing,
"I didn't do it alone; Elanore helped.", L_cured_elanore,
"That will be 5000 GP.", -;
mes "[Omar]";
mes "\"Ah, certainly.\"";
mes "He hands you a small bag of money.";
next;
set @Q_status, @Q_STATUS_COMPLETED_NOELANORE;
callsub S_update_var;
set zeny, zeny + 5000;
close;
L_cured_nothing:
mes "[Omar]";
mes "\"No, this wasn't nothing. She is everything to me. Here, you deserve a reward.\"";
mes "He hands you a bag of money containing 10,000 GP and two pearls.";
mes "\"And feel free to drop by again whenever you would like!\"";
set @Q_status, @Q_STATUS_COMPLETED_NOELANORE;
callsub S_update_var;
getitem "Pearl", 2;
set zeny, zeny + 10000;
close;
L_cured_elanore:
mes "[Omar]";
mes "Omar frowns.";
mes "\"That witch? You worked with her without telling me?\"";
mes "He looks over to his daughter, concern suddenly in his eyes.";
mes "\"She is looking better, though...\"";
next;
mes "[Omar]";
mes "Omar shakes his head.";
mes "\"I will have to think about this. Please leave me alone.\"";
next;
set @Q_status, @Q_STATUS_COMPLETED_ELANORE;
callsub S_update_var;
close;
S_update_var:
set QUEST_MAGIC2,
(QUEST_MAGIC2 & ~(NIBBLE_3_MASK)
| (@Q_status << NIBBLE_3_SHIFT));
return;
}
001-4.gat,31,20,0 script _______Kadiya 174,{
callfunc "ElanoreFix";
set @Q_MASK, NIBBLE_3_MASK;
set @Q_SHIFT, NIBBLE_3_SHIFT;
callfunc "KadiyaSubquestConsts";
set @Q_status, @Q_kadiya_status;
if (@Q_status >= @Q_STATUS_COMPLETED)
goto L_cured;
mes "You see a young girl lying in bed. At first she doesn't seem to notice you approaching.";
mes "Finally, she turns her head towards you. Judging from the sweat on her forehead and look in her eyes, she is suffering from some kind of fever.";
next;
mes "[Kadiya]";
mes "\"Hello,\" she says in a tiny voice.";
next;
set @M_NAME, 1;
set @M_CANDY, 2;
set @M_POTION, 3;
set @M_CHOCOCAKE, 4;
set @M_CUPCAKE, 5;
setarray @choice$, "Hello! What's your name?", "Would you like some candy?", "", "", "", "", "", "";
setarray @choice_idx, @M_NAME, @M_CANDY, 0, 0, 0, 0, 0, 0;
set @choices_nr, 2;
if (countitem("MopoxCurePotion") == 0)
goto L_M_no_cure;
set @choice_idx[@choices_nr], @M_POTION;
set @choice$[@choices_nr], "This potion will cure your illness!";
set @choices_nr, @choices_nr + 1;
L_M_no_cure:
if ((countitem("LacedChocolateCake") == 0) || (@Q_status != @Q_STATUS_WANTS_CHOCOCAKE))
goto L_M_no_chococake;
set @choice_idx[@choices_nr], @M_CHOCOCAKE;
set @choice$[@choices_nr], "Would you like special chocolate cake?";
set @choices_nr, @choices_nr + 1;
L_M_no_chococake:
if ((countitem("LacedOrangeCupcake") == 0) || (@Q_status != @Q_STATUS_WANTS_ORANGECUPCAKE))
goto L_M_no_cupcake;
set @choice_idx[@choices_nr], @M_CUPCAKE;
set @choice$[@choices_nr], "Would you like special orange cupcake?";
set @choices_nr, @choices_nr + 1;
L_M_no_cupcake:
set @choice_idx[@choices_nr], 0;
set @choice$[@choices_nr], "Goodbye.";
set @choices_nr, @choices_nr + 1;
menu
@choice$[0], -,
@choice$[1], -,
@choice$[2], -,
@choice$[3], -,
@choice$[4], -,
@choice$[5], -;
set @choice, @choice_idx[@menu - 1];
if (@choice == @M_NAME) goto L_name;
if (@choice == @M_CANDY) goto L_no_candy;
if (@choice == @M_POTION) goto L_potion;
if (@choice == @M_CHOCOCAKE) goto L_chococake;
if (@choice == @M_CUPCAKE) goto L_cupcake;
close;
L_name:
mes "[Kadiya]";
mes "She smiles a faint smile.";
mes "\"My name is Kadiya.\"";
close;
L_no_candy:
mes "[Kadiya]";
mes "She hesitates for a moment.";
mes "\"No, thank you. I don't think I should.\"";
close;
L_potion:
mes "[Kadiya]";
if (@Q_status < @Q_STATUS_DIDNT_DRINK)
set @Q_status, @Q_STATUS_DIDNT_DRINK;
callsub S_update_var;
mes "Kadiya grimaces and pushes the bottle away.";
mes "\"That smells terrible!\"";
next;
mes "[Kadiya]";
mes "She pulls the sheets over her head.";
mes "\"I won't drink that!\"";
next;
close;
L_chococake:
delitem "LacedChocolateCake", 1;
goto L_do_cure;
L_cupcake:
delitem "LacedOrangeCupcake", 1;
goto L_do_cure;
L_do_cure:
if (@Q_status < @Q_STATUS_COMPLETED)
set @Q_status, @Q_STATUS_COMPLETED;
callsub S_update_var;
mes "[Kadiya]";
mes "Kadiya's eyes widen.";
mes "\"Oh! Daddy, is it okay if I eat this?\"";
mes "Omar nods and smiles. \"You should eat a bit to regain your strength, sweetheart.\"";
next;
mes "[Kadiya]";
mes "Kadiya devours your gift in just a handful of bites.";
next;
mes "[Kadiya]";
mes "She smiles. \"Thank you! I feel better already!\".";
next;
mes "[Kadiya]";
mes "She looks much healthier, too. Omar walks over and touches her forehead.";
mes "\"Now that is funny-- your fever has gone down quite a bit!\"";
mes "He smiles at you. \"Thank you for your help!\"";
next;
mes "[Kadiya]";
mes "\"You should get some sleep now, sweetheart. I'm sure that you will be better soon.\"";
close;
L_goodbye:
mes "[Kadiya]";
mes "Goodbye!";
close;
L_cured:
mes "[Kadiya]";
mes "Kadiya seems to be sleeping calmly. She looks much less sweaty than earlier; unless you are very much mistaken, her fever has disappeared.";
close;
S_update_var:
set QUEST_MAGIC2,
(QUEST_MAGIC2 & ~(@Q_MASK)
| (@Q_status << @Q_SHIFT));
return;
}
