diff options
Diffstat (limited to 'npc/012-6')
| -rw-r--r-- | npc/012-6/nurse.txt | 73 |
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: |