;
; HEAL SCENES
; originally made by Atsumori, improved by Silver with the recharge script.
; Thanks to CC for giving the idea, the script itself is worked out by Silver.
;

SCENE 3		oceancastle
	FX 	2
	THEME	%R8
	SET wheal, %R9
	ADD wheal, 8990
	WEATHER #<wheal>
;	MUSIC	waltz2.mid
	ACTOR	1,	"Kempto", a5, 1, 25, 90
	MOVE	1,	15, 80

	FLAGS 99328

	IF T1, @continue
	' Hello, new warrior.
	' I am Kempto, Devil's old Assassin.
	' ..I was fired for failing.
    ' So I decided to join Atsumori's side.
    ' This is my job now, to heal you.
	HOST_GIVE T1
	GOTO @continue
@saidNo
	' What? Why must you be so stupid?
	' Oh well... You will be beat down by the Master Swordsmen!
	MOVE	1, -30, 80
    	FIGHT	255	
    	END
@kemptoxmass
#include lpscript3.txt
	COMPARE "#<num.serverTimeDay>","24"
	IF= @randomxmass
	COMPARE "#<num.serverTimeDay>","25"
	IF= @randomxmass
	COMPARE "#<num.serverTimeDay>","26"
	IF= @randomxmass
	GOTO @xmasnotnow
@randomxmass
	' Merry christmas %1!
	' Don't forget to buy a christmas present for the people you love!
	OFFER 736,734,28, 771,772,773,774,775,2057,2058, 2131, 2132, 122
	GOTO @xmascontinue

@fixuparakaki1
	HOST_GIVE T273
	GOTO @fixuparakaki2

@continue

	IF T299-T273, @fixuparakaki1
@fixuparakaki2

	COMPARE "#<num.serverTimeMonth>","12"
	IF= @kemptoxmass
@xmasnotnow
	OFFER 736,734,28, 771,772,773,774,775,2057,2058, 2132
@xmascontinue
	IF ALIVE, @skip1
	' I see you are training a little too hard, eh?
	WAIT    4.0
	SOUND	"thunder1.wav"
	WAIT	1.0
@skip1
	MOVE	1,	10, 75
	IF ALIVE,@start
	HOST_GIVE L1

@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	COMPARE #<hpnew>, "2"
	IF< @stop1
	COMPARE #<mpnew>, "2"
	IF< @stop1

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

@compare
	COMPARE #<hpnew>, "2"
	IF< @stop1xa
	COMPARE #<mpnew>, "2"
	IF< @stop1xb

@heal
	WAIT 0.5
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@stop1xa
	ADD hpnew, "1"
	GOTO @compare
@stop1xb
	ADD mpnew, "1"
	GOTO @compare
@end
	DIV hptimes, "2"
;	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	1: You have rested enough now young #<g.warrior>.
	STRCMP #<str.soul>, "SOUL 1333"
	IF= @juliarun
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @juliarun
	STRCMP #<str.soul>, "SOUL 1455"
	IF= @juliarun
	STRCMP #<str.soul>, "SOUL 1791"
	IF= @juliarun
	END
@juliarun
	COMPARE #<g.num>, "2"
	IF= @juliaruna
	END
@juliaruna
	IF R5, @juliarunb
	IF R5, @juliarunc
	IF R5, @juliarund
	IF R5, @juliarune
	IF R5, @juliarunf
	IF R5, @juliarung
	IF R5, @juliarunh
	IF R5, @juliaruni
	END
@juliarunb
	1: AHHHHHHHHH!
	1: Run for your live!
	1: It's that clickomaniac %1 again!
	MOVE 1,-40,95,2
	END
@juliarunc
	1: Oh My GOSH!
	1: It's.. it's...
	1: Her again!
	1: Somebody save me!
	END
@juliarund
	1: Ahhhhhh!
	1: Where the heck is Silver when you need him!?
	1: Silver come get your clickynympho woman!
	END
@juliarune
	1: Nooooooooo!
	1: ! It's HER again!
	1: Abandon posts, Kempto's first woman and children can wait, SAVE YOURSELF!
	MOVE 1,-20,95,2
	END
@juliarunf
	1: Euh... %1...?
	1: Please have mercy with me this time....
	END
@juliarung
	1: ...
	1: Don't you dare doing what you're thinking right now!
	1: ...
	1: Oh my gosh...
	1: She's gonna do it again...
	1: Silver make her stop thinking that!
	1: ! PLEASE I BEG YOU SILVER, COME SAVE ME!
	1: ! AHHHHHHH!
	END
@juliarunh
	1: Please have mercy!
	1: I'm still brain dead cause of the last time!
	END
@juliaruni
	1: Okay okay okay...
	1: Here we go...
	1: ! AGAIN!
	1: This time just end my suffering fast, okay %1?
	1: It's not like I can run from you anyways...
	END

@end2
	COMPARE #<g.num>, "1"
	IF= @maletouch
	IF> @femaletouch
	END
@maletouch
	ADD kemptoclick, "1"
	COMPARE #<kemptoclick>, "15"
	IF> @maletouch2
	1: I don't mind healing you, but please....
	1: Don't touch me on that place!
	END
@maletouch2
	SET kemptoclick, "0"
	1: You PERVERT!
	1: WILL YOU FINALLY STOP TOUCHING ME!?
	1: For the last time, I'm NOT gay!
	1: Ugh... 
	1: I can't stand it anymore!
	1: It's hard enough to heal everybody already but they have to keep touching me too!
	1: I'm gonna demand a raise in wage, I never got payed to be touched the whole time.
	WAIT 4.0
	MOVE 1,-30,90
	END	
@femaletouch
	STRCMP #<str.soul>, "SOUL 1791"
	IF= @juliatouch
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @juliatouch
	STRCMP #<str.soul>, "SOUL 1486"
	IF= @angeltouch
	ADD kemptoclick, "1"
@kemptonorm
	COMPARE "#<kemptoclick>", "14"
	IF> @femaletouch3
	COMPARE "#<kemptoclick>", "10"
	IF= @femaletouch2
	1: Ahem...
	1: Do you touch every guy you meet on that place...?
	END
@femaletouch2
	1: Will you please stop touching me you pervert!
	1: This is getting boring...
	END
@femaletouch3
	SET kemptoclick, "0"
	1: !!
	1: You dirty woman!
	1: You just caused a little accident in my pants...
	1: Now I have to go change them...
	WAIT 5.0
	1: I needed some relief there anyways...
	WAIT 3.0
	MOVE 1,-30,90
	END
@angeltouch
	COMPARE #<kemptoclick>, "3"
	IF< @kemptonorm
	IF> @kemptonorm
	ADD kemptoclick, "1"
	1: !!
	1: %1, why are you still touching me?
	1: I mean, sure I like you too, but everybody could see us here out in the open...
	1: Tell you what, put on that leather outfit you have somewhere in your closet and I'll take you to a very special place.
	H: You're so kinky sometimes Kempto!
	H: I love it when you do that!
	1: Oh yeah baby, let's get it on!
	END
@juliatouch
	ADD kemptoclick, "1"
	IF R3, @juliatouch2
	IF R3, @juliatouch3
	IF R3, @juliatouch4
	IF R3, @juliatouch5
	COMPARE #<kemptoclick>, "1"
	IF= @juliaclick1
	COMPARE #<kemptoclick>, "2"
	IF= @juliaclick2
	COMPARE #<kemptoclick>, "3"
	IF= @juliaclick3
	COMPARE #<kemptoclick>, "4"
	IF= @juliaclick4
	COMPARE #<kemptoclick>, "5"
	IF= @juliaclick5
	COMPARE #<kemptoclick>, "6"
	IF= @juliaclick6
	COMPARE #<kemptoclick>, "7"
	IF= @juliaclick7
	COMPARE #<kemptoclick>, "8"
	IF= @juliaclick8
	COMPARE #<kemptoclick>, "9"
	IF= @juliaclick9
	COMPARE #<kemptoclick>, "10"
	IF= @juliaclick10
	COMPARE #<kemptoclick>, "11"
	IF= @juliaclick11
	COMPARE #<kemptoclick>, "12"
	IF= @juliaclick12
	COMPARE #<kemptoclick>, "13"
	IF= @juliaclick13
	COMPARE #<kemptoclick>, "14"
	IF= @juliaclick14
	COMPARE #<kemptoclick>, "15"
	IF= @juliaclick15
	COMPARE #<kemptoclick>, "16"
	IF= @juliaclick16
	GOTO @kemptonorm

@juliaclick1
	IF R80, @kemptonorm
	IF R50, @juliaclick1a
	1: %1! 
	1: Will you please cut that out!?
	1: It's tickling!
	END
@juliaclick1a
	IF R80, @kemptonorm
	1: Uh oh...
	1: I'm in trouble...
	1: It's *HER* again...
	END

@juliaclick2
	IF R80, @kemptonorm
	IF R50, @juliaclick2a
	1: Euh... have mercy...
	1: Pretty pretty please...?
	1: I'll give you candy if you do...
	END
@juliaclick2a
	1: You really get a kick out of this don't you?
	1: You pervy woman, harming a poor guy like me!
	END

@juliaclick3
	IF R80, @kemptonorm
	IF R50, @juliaclick3a
	1: Here we go again...
	1: Why am I still doing this job...
	1: This is more something for Gizerkai...
	1: Go click on Gizerkai you pervert!
	END
@juliaclick3a
	1: I'm so gonna telll on youu!
	1: SILVER!
	1: ...
	1: AHHHHHHH!
	1: She's gonna click on me AGAIN!
	END

@juliaclick4
	IF R80, @kemptonorm
	IF R50, @juliaclick4a
	1: 1 click, I can live with that...
	1: 2 clicks, fine!
	1: 3 clicks, irritating...
	1: 4 clicks...
	1: ! ARGGHHHHHHHH!
	END
@juliaclick4a
	1: When will the horror stop??
	H: ! NEVER!
	END

@juliaclick5
	IF R80, @kemptonorm
	IF R50, @juliaclick5a
	1: I'm gonna tell Silver if you don't stop clicking me right now!
	END
@juliaclick5a
	1: %1 stop that right now!
	H: No...
	1: Oh my goodness, you're hopeless!
	H: Yes!
	END

@juliaclick6
	IF R80, @kemptonorm
	IF R50, @juliaclick6a
	1: Hmmm...
	1: Maybe this works...
	1: Oh yeah %1, please click more on me!
	1: ...
	1: Uh oh... it doesn't work...
	1: She's gonna click on me again...
	1: Ahhhhhh!
	END
@juliaclick6a
	1: Somebody please kill me...
	1: Everything but being clicked on again!
	H: Okay okay, I'll stop!
	1: ...
	1: Really??
	H: Nope...
	H: Just messing with your emotions!
	1: Ahhhhhhh!
	END

@juliaclick7
	IF R80, @kemptonorm
	IF R50, @juliaclick7a
	1: I don't know what's more worse...
	1: Getting eating alive by tiny little toads who chop me to pieces with spoons...
	1: Or being clicked by you again!
	END
@juliaclick7a
	1: Why me?
	1: ! WHY!?
	H: Cause I like you?
	1: Ack!
	1: Just my luck...
	1: Being liked by a clicktomaniac!
	END

@juliaclick8
	IF R80, @kemptonorm
	IF R50, @juliaclick8a
	1: Oh my goodness!
	1: You clicked so much on me that my belt broke!
	1: Ahhhhhh!
	1: My pants are dropping!
	1: Be Right Back!
	1: I'm gonna get you now %1...
	MOVE 1,-10,-20,1
	WAIT 5.0
	1: I'm allllmost done...
	WAIT 5.0
	MOVE 1, 20,80,1
	1: Ha!
	1: I got myself a nice strong %I972!
	1: Try beating that!
	1: ...
	1: Uh oh... she's gonna click on me again!
	END
@juliaclick8a
	1: The word mercy isn't in your dictionary, is it?
	H: Nope...
	H: Now shut up and let me click some more!
	1: Ahhhhhh!
	END

@juliaclick9
	IF R80, @kemptonorm
	IF R50, @juliaclick9a
	1: Ahem...
	1: ! WILL YOU STOP POKING ME!
	END
@juliaclick9a
	1: Can't we just be friends?
	H: Nope...
	H: Now let me click some more!
	1: What on earth did I do to deserve this punishment!?
	H: You eh...
	H: Breathed!
	END

@juliaclick10
	IF R80, @kemptonorm
	IF R50, @juliaclick10a
	1: I'm gonna report you to my boss, RoT's protector!
	1: BOSS!
	1: BOSS!
	ACTOR	2,	"RoT's Protector",monster002, 4, 115, 90
	MOVE 2,50, 90,2
	WAIT 5.0
	2: Yeah what Kempto?
	1: %1 is clicking on me again!
	2: So...?
	1: SO !?
	1: I can't stand it!
	2: Well she bought an official clicking license...
	2: You'll just have to deal with it...
	WAIT 3.0
	N: *Kempto looks at %1*
	WAIT 2.0
	1: I need to get out of here...
	2: Well if that was it, I have more things to do!
	2: Have fun %1!
	MOVE 2,120,90,2
	1: HAVE FUN!?
	H: Muhahaha
	SOUND evillaugh.wav
	1: Yikes...
	END
@juliaclick10a
	ACTOR	2,	"Silver",Silver, 4, 40, -20
	FACE 2,4
	1: ! SILVER!
	MOVE 2, 40, 90, 2
	WAIT 4.0
	2: You called me Kempto?
	1: Yes, please deliver me from this evil %1!
	2: Why should I do that?
	1: Cause she's clicking on me the entire time!
	2: Did you just click on him %1?
	H: Who me??
	H: I'd NEVER do something like that!
	N: %1 gives her best angelic look to Silver.
	WAIT 2.0
	2: See?
	2: She isn't clicking on you.
	2: Now stop lieing and bothering me with this stuff Kempto.
	2: I have better things to do, for example saving the world...
	WAIT 3.0
	MOVE 2,-20,90,2
	WAIT 4.0
	1: I'm doomed...
	END

@juliaclick11
	IF R80, @kemptonorm
	IF R50, @juliaclick11a
	1: If you don't stop clicking on me right now then...
	1: then...
	H: Then what sissy boy?
	1: Then I'm gonna call my mommy!
	END
@juliaclick11a
	1: Mommy mommy mommy!
	1: Where the heck are you!?
	1: I want to get out of here!
	H: Sissy...
	END

@juliaclick12
	IF R80, @kemptonorm
	IF R50, @juliaclick12a
	1: I BEG YOU!
	1: Please!
	1: Show mercy!
	H: ! NEVER!
	1: Ahhhhhhhh!
	END
@juliaclick12a
	1: I'll give you everything you want if you stop clicking on me?
	H: That's not enough...
	1: What do you want then!?
	H: Euh... I don't know...
	H: *hmmm...*
	H: Oh hey, I know something!
	1: What??
	WAIT 2.0
	N: %1 look evily at Kempto...
	H: CLICKING ON YOU!
	1: SOMEBODY, ANYBODY, EVEN PRETTY GREEN BIRDS OR DANGEROUS YELLOW PIGS, SAVE ME!!!
	END	

@juliaclick13
	IF R80, @kemptonorm
	IF R50, @juliaclick13a
	1: ...
	1: You really enjoy this, don't you?
	1: You perverted woman!
	1: How dare you clicking on a poor guy like me!
	1: GO pick on somebody else!
	END
@juliaclick13a
	1: If you don't watch it I'm gonna throw one of my dirty boxershorts to you!
	H: Oeh...
	1: ...
	1: Oh my god!
	1: You ARE terrible!
	1: Not to mention a real perv!
	END

@juliaclick14
	IF R80, @kemptonorm
	IF R50, @juliaclick14a
	1: *snif*
	1: Nobody loves me...
	1: Everybody clicks on me...
	1: And...
	1: I WANT MY MOMMY!!!
	END
@juliaclick14a
	1: Please give me a break %1!
	1: I'm still sore from the last time you clicked on me!
	1: Have some mercy please..?
	H: Never!
	N: You watch Kempto turn pale white and see that he's about to faint!
	WAIT 2.0
	END 

@juliaclick15
	IF R80, @kemptonorm
	IF R50, @juliaclick15a
	1: Okay, that's it %1!
	1: I have had more then enough of you now!
	1: ...
	1: Ack!
	1: You caused an accident again!
	1: I'm running out of clean boxershorts!
	1: You dirrrty woman!
	END
@juliaclick15a
	1: Uh oh...
	1: MY PANTS ARE SOAKED AGAIN!
	1: Thank you very much, %1!
	1: ...
	1: No I mean it... thank you verrry much...
	1: Guess I better change clothes...
	1: AGAIN!
	WAIT 3.0
	MOVE 1,-20,80
	END

@juliaclick16
	SET kemptoclick, "0"
	IF R50, @juliaclick16a
	1: Oh my goodness!
	1: I really need to get out of here!
	1: ! SILVER!
	1: %1 is doing it again!
	MOVE 1,-20,80
	END
@juliaclick16a
	1: Woooo there!
	1: You don't know when to stop, do you!?
	1: Maybe I should just steal your panties instead!
	1: MINE ARE SOAKED, AGAIN!
	WAIT 3.0
	MOVE 1,-20,80
	END

@juliatouch2
	1: Aahhh!
	1: Have mercy with me please!
	END
@juliatouch3
	1: I beg you to quit!
	END
@juliatouch4
	1: Ack...
	1: Why am I always the victim...?
	END
@juliatouch5
	1: Will you stop clicking on me!?
	END

@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnews> HP and #<mpnews> MP.
	1: You are healed.
	STRCMP #<str.soul>, "SOUL 1333"
	IF= @juliarun
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @juliarun
	STRCMP #<str.soul>, "SOUL 1791"
	IF= @juliarun
	END
@eventActorClick1
	IF I737, @end2
	SET kemptoclick, "0"
	IF T118, @gunslinger 
	1: Perhaps I can interest you in a %I737?
	1: It does the same as a %I736, except that you can  use this Teleport an infinite amount of times.
	1: For only 100,000 GP it is yours.
	1: Do you want to buy a %I737?
	ASK 30
	IF YES, @buyit
	1: Perhaps another time.
	END
@eventActorGive1
#include merchant.txt
END
@buyit
	IF -G100000, @nomo
	HOST_TAKE G100000
	HOST_GIVE I737
	HOST_GIVE T414
	1: Here you go.
	WAIT 3.0
	N: You received a %I737.
	
@end
	END
	
@nomo
	1: It seems you are not carrying enough money with you right now.
	1: Perhaps another time...
	END

@gunslinger
		1: Eh... Normally I would gladly offer a %I737 for sale, but something tells me that you already know a lot more about these things than I do.
		1: I'm afraid you'll have to get it somewhere else.
		1: Don't your people have specialists for this sort of thing?
		END




SCENE 12 darkfevor, HEAL, "Healing Zone", 2, 0
	THEME	5
	MUSIC	waltz2.mid
	ACTOR	1,	"Maku", a7, 4, 10, 90
	MOVE	1,	20, 90
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	1: I shall resurrect you from the death so you can fight once more.
	HOST_GIVE L1

@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	COMPARE #<hpnew>, "2"
	IF< @stop1
	COMPARE #<mpnew>, "2"
	IF< @stop1

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

@compare
	COMPARE #<hpnew>, "2"
	IF< @stop1xa
	COMPARE #<mpnew>, "2"
	IF< @stop1xb

	1: Let me heal your pain...
@heal
	WAIT 0.1
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@stop1xa
	ADD hpnew, "1"
	GOTO @compare
@stop1xb
	ADD mpnew, "1"
	GOTO @compare
@end
;	DIV hptimes, "2"
;	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	END
@stop1
	1: I shall heal your pain.
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END


;--------------
; Baiken Recharge
;
SCENE 20 lighthousem, SCENE,"Recharge",5,0 
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Baiken", a13, 1, 10, 80
	POSE	21,21,
	MOVE	1,20, 80
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start2
	1: Dead I see..
	HOST_GIVE L1
@start2
	1: I shall heal your wounds brave #<g.warrior>.

#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

;--------------
; Baiken Recharge
;
SCENE 21 lighthousem, SCENE,"Recharge",2,0
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Baiken", a13, 1, 10, 80
	POSE	21,21,
	MOVE	1,20, 80
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start2
	1: Dead I see..
	HOST_GIVE L1
@start2
	1: I shall heal your wounds brave #<g.warrior>.
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

SCENE 333	oceancastle,SCENE,"Recharge",0,0
	FX 	2
	THEME	
	SET wheal, %R9
	ADD wheal, 9990
	WEATHER #<wheal>
;	MUSIC	waltz2.mid
	ACTOR	1,	"Kempto", a5, 1, 25, 90
	POSE	5, 5, 5
	SEL		1
	MOVE	1,	15, 80

	1: It is time to regenerate yourself %1.
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	HOST_GIVE L1
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

SCENE 22 scenes102, SCENE,"Koritjo Recharge", 0,0

	ACTOR 1, "Koritjo",pet006,4,15,65

; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	1: Once again the dead shall rise from their empty existence.
	HOST_GIVE L1
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
	1: You are healed.
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

SCENE 23 inside, SCENE,"Rebel Recharge", 0,0

	ACTOR 1, "Doctor Luke", monster038,4,40,90

	IF I746, @questit
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start2
	1: Ouch that must have hurt...
	HOST_GIVE L1
@start2
	1: Feel welcome to recover here from your wounds.
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
	1: You are healed.
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END
@questit
	IF ALIVE, @skipit
	HOST_GIVE L1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
@skipit
	1: Ah!
	1: I see you have my %I746 with you.
	1: Please, give it to me.
	H: Here you go...
	WAIT 3.0
	N: You hand over the %I746.
	HOST_TAKE I746
	WAIT 3.0
	1: Perfect...
	1: This was exactly what I was looking for!
	H: *Cough* aren't you forgetting something?
	1: Oh yeah, I'm sorry, your reward of course.
	1: Please accept these 2 %I8s and 20,000 GP.
	WAIT 3.0
	HOST_GIVE I8.2
	HOST_GIVE G20000
	N: You received 2 %I8s and 20,000 GP.
	WAIT 3.0
	H: Thanks, I'll have some good use for these.
	1: No problem at all, I have been looking for this for ages...
	1: Please feel free to make use of my healing services any time you want.
	END

SCENE 27	meadow, SCENE, "Healing",0,0

	ACTOR 1, "Kinjo",a95,4,20,90

; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	1: Let me revive you...
	HOST_GIVE L1
@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	COMPARE #<hpnew>, "2"
	IF< @stop1
	COMPARE #<mpnew>, "2"
	IF< @stop1

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

@compare
	COMPARE #<hpnew>, "2"
	IF< @stop1xa
	COMPARE #<mpnew>, "2"
	IF< @stop1xb

@heal
	WAIT 0.1
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@stop1xa
	ADD hpnew, "1"
	GOTO @compare
@stop1xb
	ADD mpnew, "1"
	GOTO @compare
@end
;	DIV hptimes, "2"
;	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	1: Your wounds are healed. 
	1: I wish you good luck %1.
	END
@stop1
	COMPARE #<g.num>, "1"
	IF> @fem1
	1: You have the spirit of a cherry tree.
@fem2
	WAIT 2.0
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END
@fem1
	1: You have the beauty of a lotus blossom.
	GOTO @fem2


@eventActorClick1
	IF T450, @finendnu
	IF C36, @ninjaevent
	IF C37, @ninjaevent
	IF C38, @ninjaevent
@finendnu
	WAIT 10.0
	END
@notcompleted
	1: I'm afraid you have not finished your training yet #<g.ssir> %1.
	1: Return to me once you reached level 9 hunting skill and level 9 in all your elements and hands.
	1: Once you finished your training click on me and I will check your progress.
	1: Good luck #<g.ssir> %1.
	END

@ninjaevent
	EJECT T172
	1: Every %C receives a %I745 once #<g.he> finished #<g.his> training.
	1: Let me see if you finished your training already...
	COMPARE #<num.hostHuntSkill>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill0>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill1>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill2>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill3>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill4>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill5>, "9"
	IF< @notcompleted
	COMPARE #<num.hostHandSkill6>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill0>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill1>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill2>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill3>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill4>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill5>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill6>, "9"
	IF< @notcompleted
	COMPARE #<num.hostElementSkill7>, "9"
	IF< @notcompleted
	WAIT 5.0
	1: Perfect...
	1: It looks like you finished your training.
	1: You are truly worthy to be called a %C now #<g.ssir> %1.
	1: It is a great honor for me to give you this %I745.
	WAIT 3.0
	HOST_GIVE I745
	N: You received a %I745.
	WAIT 3.0
	1: I also want you to have these %I719 and I want to learn you %S96.
	WAIT 3.0
	HOST_GIVE I719
	HOST_GIVE S96
	N: You received a pair of %I719!
	N: You learnt %S96!
	HOST_GIVE T450
	WAIT 3.0
	1: I bid you luck on the rest of your travels #<g.ssir> %1.
	END

SCENE 28 standingstones, SCENE,"Recharge",0,0 
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"Baiken", a13, 1, 20, 90

; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start2
	1: Dead I see..
	HOST_GIVE L1
@start2
	1: I shall heal your wounds brave #<g.warrior>.
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

SCENE 10 darkfevor, HEAL, "Atsu's Maze", 2, 0
	THEME	5
	MUSIC	waltz2.mid
	ACTOR	1,	"Maku", a7, 4, 10, 80
	POSE	13,13,13
	MOVE	1,	20, 80
	IF ALIVE, @start2
	1: Train hard, but don't die...
	HOST_GIVE L1
@start2
	1: I shall heal you.
#include regen.txt
@stop1
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

; Baiken Recharge
;
; Gotta love metal gear solid. XD
;
SCENE 29 darkfevor, SCENE,"Recharge",0,0 
	THEME	0
	MUSIC	waltz2.mid
	IF R25, @hideohealing
	GOTO SCENE 20
@hideohealing
	ACTOR	1,	"Hideo Kojima", pet033, 4, 20, 95

	COMPARE #<hideoheal>, "0"
	IF> @skiphealset
	SET hideoheal, "0"
@skilhealset
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	COMPARE #<hideoheal>,"1"
	IF= @taunt1
	IF> @taunt2
	ADD hideoheal, "1"
	1: Neither truly alive nor truly dead...
	GOTO @rezhim
@taunt1
	ADD hideoheal, "1"
	1: An undying shadow in a world of light...
	GOTO @rezhim
@taunt2
	SET hideoheal, "0"
	1: Soon... soon it will all end.
@rezhim
	HOST_GIVE L1

@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	COMPARE #<hpnew>, "2"
	IF< @stop1
	COMPARE #<mpnew>, "2"
	IF< @stop1

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

@compare
	COMPARE #<hpnew>, "2"
	IF< @stop1xa
	COMPARE #<mpnew>, "2"
	IF< @stop1xb

	1: I can not give you any metal gear, but these rations should do the trick.
@heal
	WAIT 0.1
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@stop1xa
	ADD hpnew, "1"
	GOTO @compare
@stop1xb
	ADD mpnew, "1"
	GOTO @compare
@end
;	DIV hptimes, "2"
;	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	END
@stop1
	1: A liquid snake will never catch a grey fox...
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END
@eventActorGive1
	1: Thank you for this item.
	1: Perhaps I can buy a box with it...
	END

@eventActorAttack1
	1: You are not my brother snake...
	SET healhido, #<num.hostMaxHP>
	DIV healhido, "2"
	HOST_TAKE H#<healhido>
	END
@eventActorSpell1
	1: I won't fall for your charms Sniper Wolf.
	END

SCENE 30 glasfire&water, SCENE,"Recharge",5,0
	THEME	0
	MUSIC	waltz2.mid
	ACTOR	1,	"", monster004, 4, 20, 90
	POSE	4,1
; You heal 1% of the HP every second now, MP heals near the same time.
	IF ALIVE,@start
	1: Another lost soul...
	HOST_GIVE L1

@start
	IF -V20, @stop1
	SET hpnew, "#<num.hostMaxHP>"
	SET mpnew, "#<num.hostMaxMP>"

	SUB hpnew, "#<num.hostHP>"
	SUB mpnew, "#<num.hostMP>"

	SET hpnews, #<hpnew>
	SET mpnews, #<mpnew>

	SET hptime, "#<num.hostHP>"
	MUL hptime, 100
	DIV hptime,"#<num.hostMaxHP>"

	SET hptimes,"100"
	SUB hptimes,"#<hptime>"  

	COMPARE #<hpnew>, "2"
	IF< @stop1
	COMPARE #<mpnew>, "2"
	IF< @stop1

	DIV hpnew, "#<hptimes>"
	DIV mpnew, "#<hptimes>"

@compare
	COMPARE #<hpnew>, "2"
	IF< @stop1xa
	COMPARE #<mpnew>, "2"
	IF< @stop1xb

	1: ugh...
	SOUND pain1.wav
@heal
	WAIT 0.1
	HOST_GIVE H#<hpnew>
	HOST_GIVE M#<mpnew>
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @mp
@mp
	COMPARE #<num.hostMaxMP> ,#<num.hostMP>
	IF= @hp
	GOTO @heal
@hp
	COMPARE #<num.hostMaxHP> ,#<num.hostHP>  
	IF= @end
	GOTO @heal
@stop1xa
	ADD hpnew, "1"
	GOTO @compare
@stop1xb
	ADD mpnew, "1"
	GOTO @compare
@end
;	DIV hptimes, "2"
;	N: You healed #<hpnew> HP and #<mpnew> MP every second for #<hptimes> seconds.
	END
@stop1
	1: Save yourself...
	HOST_GIVE H#<num.hostMaxHP>
	HOST_GIVE M#<num.hostMaxMP>
;	N: You healed #<hpnew> HP and #<mpnew> MP.
	END

SCENE 40, solar,SCENE,"Heal Scene",2,0

	ACTOR 1, "Sir Taz Cowan",pet032,4,20,100

@eventActorClick1
@eventActorAttack1
@eventActorSpell1
@eventActorGive1
	IF M0, @exit
	IF M2, @exit
	IF M4, @exit

	GIVE L1
	GIVE H#<num.hostMaxHP>
	GIVE M#<num.hostMaxMP>
	1: You are healed...
	1: Now go out and get some more kills!
	END
@exit
	HOST_GIVE T172
	EJECT T172
	GOTO LINK 99,0,1

; Comment: Ahem... seeing this is a family game I edited the last comment out. O.o