summaryrefslogtreecommitdiff
path: root/npc/012-6
diff options
context:
space:
mode:
Diffstat (limited to 'npc/012-6')
-rw-r--r--npc/012-6/nurse.txt73
1 files changed, 72 insertions, 1 deletions
diff --git a/npc/012-6/nurse.txt b/npc/012-6/nurse.txt
index a818325d7..80d442856 100644
--- a/npc/012-6/nurse.txt
+++ b/npc/012-6/nurse.txt
@@ -2,9 +2,80 @@
// Author:
// Jesusalva
// Crazyfefe
+// Notes:
+// HurnscaldQuest_BloodDonor
+// 1 - Donation finished
+// 2 - Donation in progress
+// Structure
+// Status, Next Attempt Timer
012-6,56,67,6 script Hurnscald's Nurse NPC_FEMALE,{
- Nurse(.name$, 10, 6);
+ .@q2=getq2(HurnscaldQuest_BloodDonor);
+ if (.@q2 > gettimetick(2)) {
+ Nurse(.name$, 10, 6);
+ close;
+ }
+ mesn;
+ mesq l("Hello there. Do you want to donate blood?");
+ mesc l("Donating blood will BLOCK YOUR MOVEMENT for three minutes.");
+ mesc l("Do not disconnect while waiting. You need 100% HP to donate.");
+
+L_BLCore;
+ mes "";
+ select
+ l("I need infirmary services."),
+ l("Info"),
+ rif(readparam(Hp) == readparam(MaxHp), l("Yes, please use my blood to save lifes."));
+ mes "";
+ switch (@menu) {
+ case 1:
+ Nurse(.name$, 10, 6);
+ close;
+ case 2:
+ mesn;
+ mesq l("Donating blood is a noble act, which allows to save lifes.");
+ next;
+ mesn;
+ mesq l("When people loses too much blood, they die, unless we can lend them somebody's else blood.");
+ next;
+ mesn;
+ mesq l("Not everyone can be a blood donor. For example, you must be healthy.");
+ mesq l("You can think more info about this on these links:");
+ mes "";
+ mes "[@@https://www.blood.co.uk/|https://www.blood.co.uk/@@]";
+ mes "[@@https://www.nhsbt.nhs.uk/what-we-do/blood-services/blood-donation/|https://www.nhsbt.nhs.uk/what-we-do/blood-services/blood-donation/@@]";
+ mes l("France: [@@https://dondesang.efs.sante.fr/|https://dondesang.efs.sante.fr/@@]");
+ mes l("Brazil: [@@http://www.prosangue.sp.gov.br/home/Default.html|http://www.prosangue.sp.gov.br/home/Default.html@@]");
+ next;
+ goto L_BLCore;
+ case 3:
+ mesn;
+ mesq l("Please don't sound like I was some sort of vampire or something...");
+ next;
+ mesn;
+ mesq l("This will take only a short while.");
+ next;
+ setq1 HurnscaldQuest_BloodDonor, 2;
+ percentheal -90, 0;
+ addtimer(180000, "Hurnscald's Nurse::OnDonationComplete");
+ slide 34, 29;
+ setpcblock(PCBLOCK_ATTACK|PCBLOCK_SKILL|PCBLOCK_ITEM|PCBLOCK_MOVE, true);
+ dispbottom l("Any movement/skill/item will be without effect until time is up.");
+ closedialog;
+ close;
+ }
+
+ close;
+
+OnDonationComplete:
+ if (checkpcblock() & PCBLOCK_ATTACK)
+ setpcblock(PCBLOCK_ATTACK|PCBLOCK_SKILL|PCBLOCK_ITEM|PCBLOCK_MOVE, false);
+ slide 58, 67;
+ percentheal 100, 0;
+ getexp readparam(Hp)*2, readparam(Hp)/100;
+ setq HurnscaldQuest_BloodDonor, 1, gettimetick(2)+(2592000); // 60*60*24*30
+ mesn;
+ mesq l("Thanks for donating blood. You can donate again in 30 days.");
close;
OnInit: