;SCENES for Quest 2- The Water Temple
; Quest 2, The Water Temple
;	20,"I met the crazy old fortune teller in the city, and she told me of Kinomu's problem.."
;	21,"I approached Kinomu and he told me of the key to the Water Temple that he lost."
;	22,"I went into the Serpent's cavern and retrieved the key from the Leviathan guarding it."
;	23,"I went to take the key to Kinomu, but a messenger told me that he had already left for the Water Temple."
;	24,"I unsealed the door to the Water Temple and went in."
;	25,"I defeated the monster at the Water Temple's pillar, and the Elemental Undine appeared to me.."
;	26,"I freed Kinomu from his captive state."
;	27,"I refused to free Kinomu from his captive state."
;	28,"On my way out of the Temple, Kinomu attacked me."
;	29,"I told the old lady about Kinomu and she advised me to go to the Fire Temple next."
;	200, "I accepted Haldorf's request to find his lost items."
;	201, "I declined Haldorf's request to help him find his lost packages."
;	202, "I found the box hidden in Jimbo's Cellar!"
;	203, "I found the box hidden in the Imp's Domain!"
;	204, "I found the box hidden in Kinomu's Hut!"
;	205, "I found the box hidden in the Water Temple!"
;	206, "I found the box hidden in the Thief's hideout!"
;	207, "I returned the packages to Haldorf and he gave me some awesome items!"
;	208, "Defeated Chillheart"

SCENE	20	kitchen, SCENE, "Fortune Teller's House", 0, 0
ACTOR	1, "Ingrid", joshMiscellaneous, 1, 17, 71
MUSIC	Trickery.mid
	IF	T20, @hasT20
		1: ...
		H: Hm? What is it?
		1: I see...
		H: You see what?
		1: I see....You...
		H: Well, obviously. I'm standing right here!
		1: Kinomu awaits.
		H: What are you talking about?
		1: Are you ready?
	@Menu1
		MENU	"Yes=@Yes", "No=@No", "What?=@What"
		GOTO	@Menu1
		END
	@Yes
		H:Yeah, I'm ready.
		1: Kinomu awaits... Seek him out.
		H: Where should I seek him out at?
		1: Enta...West Enta Valley.
		1: Kinomu awaits for you.
		GIVE	T20
		END
	@No
		H: No, I'm not ready.
		1: Well, then begone! Kinomu has no time to wait for you!
		H: Who's Kinomu?
		1: !I SAID LEAVE!
		WAIT	1
		GOTO	EXIT
		END
	@What
		H: Umm...What?
		1: Kinomu awaits the Chosen.
		H: The...Chosen?
		1: Kinomu awaits the one whom is decended from Tamriel.
		H: So... Kinomu awaits me, then?
		1: Are you ready to seek out Kinomu?
		GOTO	@Menu1
		END
	@HasT20
		IF	T26, @hasT26
		IF	T28, @hasT28
		1: Kinomu awaits you.
		1: Do not keep him waiting.
		1: West Enta Valley is lonely without your footsteps.
		END
	@hasT26
		IF	T29, @hasT29
		1: I see...
		H: You see what?
		1: I see the face of Tamriel in your eyes...
		H: The face of Tamriel?
		1: ...The next spirit awaits in the Fire Temple...
		H: ...The Fire Temple?
		1: You must break the seals on all 8 Temples...Only then can you face the Judgement...
		H: What Judgement? Explain to me, you crazy old hag!
		1: Kinomu is the key. He shall lead you to the Judgement, where you may face Tamriel...
		H: So... I should protect Kinomu then?
		1: No...You should head for the Temple of Raging Flames...The Fire Temple.
		H: Where's it at?
		1: Southwest...Past the Tolshroud Plains...
		1: I see a mountain range that envelops a desert...
		1: I see a hole, and a city of zombies...
		1: You must head there. Salamando's restless spirit awaits.
		GIVE	T29
		END
	@hasT28
		IF	T29, @hasT29
		H: What were you thinking, you crazy old coot!?
		1: I see...
		1: Kinomu was defeated in a bout of blades.
		H: That psycho tried to kill me!
		1: ...That psycho is your best friend...
		H: Huh?
		1: Kinomu is the key to the Temples...
		H: The...Temples?
		H: You mean like the Water Temple, right?
		1: The Temple of Soothing Water is just one of Tolaria's 8 Temples...
		1: You must visit them all, and bring light to the pillars at each!
		H: Why me?
		1: You wish to face Tamriel, do you not?
		H: Well, yeah.
		1: Then you must unseal his resting place.
		1: Prove you are worthy and unseal his tomb!
		1: Only then can you face the Judgement of Tamriel...
		H: ...Judgement?
		1: He will see if you are the Chosen that will lead Tolaria into a new age of light, as he did twice before.
		H: What does all this have to do with Kinomu?
		1: Kinomu is the key to unsealing the final Temple.
		1: Keep him alive, no matter what the cost...
		H: You mean that psycho and I have to be FRIENDS!?
		1: No...Just keep him alive.
		H: Where should I go next?
		1: The Fire Temple in the west awaits you next.
		1: Seek it out.
		GIVE	T29
		END
	@HasT29
		1: The fire Temple calls out to you.
		1: West of Tolshroud's grasslands, the mountain cries in pain.
		1: A city of zombies thirsts for blood...
		END
;-----
SCENE 21 Bedroom,SCENE,"The Adventurer's Inn"
ACTOR	1, "Ralph the Innkeeper", joshTownsfolk, 9, 17, 71
MUSIC	Talking3.mid	
	SET  innprice, 15
	SET  people, #<num.PeopleInScene>
	MUL  people, #<innprice>
	IF DEAD, @Dead
	@alive
	1: Hello, your party of #<num.PeopleInScene> can stay the night for #<People> Septi. Would you like to stay?
	@Menu
	MENU	"Yes=@Yes", "No=@No", "Set Save Point=@save"	
	GOTO	@Menu
	END
@Yes
	IF	G#<People>, @canAfford
	1: I'm sorry, but you don't seem to have enough money.
	END
@CanAfford
	1: Thank you. Rest well.
	WAIT	3
	HOST_TAKE	G#<People>
	GIVE	L1
	GIVE	H32000
	GIVE	M32000
	END
@Dead
	1: Hmm.. You seem to have been seriously wounded in battle.
	1: Let me take care of that for you...
	WAIT	2
	GIVE	L1
	1: All better!
	GOTO	@Alive
	END
@No
	1: Please come again.
	END
@save
	N: Morian has been set as your save point.
	SET	SPID, 8
	SET	SPlocation, "Morian"
	SET	SPset, 1
END
;-------
SCENE	22,	ItemShop, SCENE, "Haldorf's Emporium", 0, 0
ACTOR	1, "Haldorf", joshTownsfolk, 9, 17, 71
MUSIC	Town5.mid
		1: Welcome! What would you like to do today?
	@Menu1
		MENU	"Shop=@Shop", "Talk=@Talk", "Nothing=@Nothing"
		GOTO @Menu1
		END
	@EventActorClick1
		1: Welcome! What would you like to do today?
	@Menu4
		MENU	"Shop=@Shop", "Talk=@Talk", "Nothing=@Nothing"
		GOTO @Menu4
		END
	@Shop
		IF	T207, @HasT207
		1: All the best items, just for you!
		OFFER	1, 2, 3, 4, 7, 8, 12, 13, 15, 16, 99, 253
		END
	@HasT207
		1: All the best items, just for you!
		OFFER	1, 2, 3, 4, 7, 8, 12, 13, 15, 16, 20, 21, 22, 23, 24, 99, 253
		END
	@Talk
		1: You want to talk, eh? What would you like to talk about?
	@Menu2
		MENU	"Information=@Info", "Directions=@Directions", "Quests=@Quests", "No Thanks=@Nothing"
		GOTO	@Menu2
		END
	@Nothing
		1: Please come again!
		END
	@Info
		IF	T20, @Info20
		1: I heard that the fortune teller lady was babbling on about a "decendant" or something like that.
		1: Do you know a %1?
		H: Yeah, I'm %1!
		1: Oh, you're #<g.him> huh?
		1: Maybe you should go see the fortune teller. I heard she can point you in the right direction.
		END
	@Directions
		1: So you need directions...
		1: To the east, you'll find the Northrend Snowfield.
		1: The southwest leads to the Enta Valley, which connects to the Tolshroud Plains.
		1: From there, you can go east to Malano, or south through the woods.
		1: You can also go west from the plains to locate a small mountain range, where the Fire Temple lies.
		END
	@Quests
		IF	T200, @hasT200
		1: A job, huh...
		1: Well, I was recently attacked by a band of robbers.
		1: They stole five packages of great value from me.
		1: I chased them down and attacked them, but they got away.
		1: Knowing those dastardly thieves, they probably ran off with the packages and dumped them off somewhere.
		1: The band is notorious for having a wide area of operation, with many storehouses, so I bet the packages are spread all over the north continent.
		1: Anyway, if you can find them, I'll reward you very well.
		WAIT	2
		N: Will you accept the mission?
	@Menu3 
		MENU	"Yes=@Yes", "No=@No"
		GOTO	@Menu3
		END
	@Yes
		H: Alright, I'll keep my eyes open.
		1: Yay! Bring all five when you get them.
		H: This should be easy enough.
		GIVE	T200
		END
	@No
		H: Sorry, I'm a little busy.
		1: Oh, that's a real shame.
		1: Thanks anyway...
		1: /a mumbles: ...%3...
		H: What was that?
		1: Oh, nothing, sorry.
		GIVE	T201
		END
	@hasT200
		IF	T202+T203+T204+T205+T206, @hasAll
		1: Come back when you have all five.
		END
	@hasAll
		IF	T207, @HasReward
		COMPARE	#<counter>, 1
		IF = @Oops
		H: I have returned with your packages!
		1: Yes!!! You did it!
		1: Thank you so much!
		1: As a reward, I'll give you 2 items.
		1: They're both from those boxes that you had returned to me.
		1: You see... These items are called 'Tonics'.
		H: What do they do?
		1: Anyone that drinks from one of these mystical items will have their stats permanently increased.
		H: Wow, that's handy!
		1: I know! They're very rare, so they're very expensive.
		1: I managed to get a shipment in, but I had to pay out the ass for them.
		1: That's why I was so heartbroken when I was robbed, but you brought them back!
		1: Thank you so much!
		H: Umm.. Anytime, I guess.
		1: Okay, so here's how I'll reward you. Pick from a list which 2 kinds you want.
		1: Then I'll give you the two after you picked both.
		H: Alright.
		@First
		1: So which one do you want first?
		@Reward1
		MENU	"Tonic of the Ancients=@Ancient", "Tonic of the Barbarics=@Barbaric", "Tonic of the Paladin=@Paladin", "Tonic of the Kyu=@Kyu", "Tonic of the Tiger=@Tiger"
		GOTO	@Reward1
		END
	@Ancient
		COMPARE	#<counter>, 1
		IF = @Ancient2
		SET	counter, 1
		SET	ItemOne, 20
		H: For the first one, I'll have a %I#<ItemOne>.
		1: Alrighty!
		GOTO	@Reward2
		END
	@Barbaric
		COMPARE	#<counter>, 1
		IF = @Barbaric2
		SET	counter, 1
		SET	ItemOne, 21
		H: For the first one, I'll have a %I#<ItemOne>.
		1: Alrighty!
		GOTO	@Reward2
		END
	@Paladin
		COMPARE	#<counter>, 1
		IF = @Paladin2
		SET	counter, 1
		SET	ItemOne, 22
		H: For the first one, I'll have a %I#<ItemOne>.
		1: Alrighty!
		GOTO	@Reward2
		END
	@Kyu
		COMPARE	#<counter>, 1
		IF = @Kyu2
		SET	counter, 1
		SET	ItemOne, 23
		H: For the first one, I'll have a %I#<ItemOne>.
		1: Alrighty!
		GOTO	@Reward2
		END
	@Tiger
		COMPARE	#<counter>, 1
		IF = @Tiger2
		SET	counter, 1
		SET	ItemOne, 24
		H: For the first one, I'll have a %I#<ItemOne>.
		1: Alrighty!
		GOTO	@Reward2
		END
	@Oops
		1: Hey! You left the scene too fast!
		1: You still need to pick your second tonic!
	@Reward2
		1: So what'll the next one be, then?
		@RewardMenu
		MENU	"Tonic of the Ancients=@Ancient2", "Tonic of the Barbarics=@Barbaric2", "Tonic of the Paladin=@Paladin2", "Tonic of the Kyu=@Kyu2", "Tonic of the Tiger=@Tiger2"
		GOTO	@RewardMenu
		END
	@Ancient2
		SET ItemTwo, 20
		H: I guess for this one, I'll have a %I#<ItemTwo>.
		1: Okay then!
		GOTO	@Confirm
		END
	@Barbaric2
		SET ItemTwo, 21
		H: I guess for this one, I'll have a %I#<ItemTwo>.
		1: Okay then!
		GOTO	@Confirm
		END		
	@Paladin2
		SET ItemTwo, 22
		H: I guess for this one, I'll have a %I#<ItemTwo>.
		1: Okay then!
		GOTO	@Confirm
		END
	@Kyu2
		SET ItemTwo, 23
		H: I guess for this one, I'll have a %I#<ItemTwo>.
		1: Okay then!
		GOTO	@Confirm
		END
	@Tiger2
		SET ItemTwo, 24
		H: I guess for this one, I'll have a %I#<ItemTwo>.
		1: Okay then!
		GOTO	@Confirm
		END
	@Confirm
		1: Okay, so you wanted a %I#<ItemOne> and a %I#<ItemTwo>.
		1: Is that correct?
		@Correct
		MENU	"Yes it is=@Indeed", "No, it's not=@Nope"
		GOTO	@Correct
		END
	@Nope
		H: No, it's not.
		1: Aw, crap!
		1: I guess we'll have to start over then...
		SET counter, 0
		GOTO	@First
		END
	@Indeed
		H: Yes it is.
		H: I want a %I#<ItemOne> and a %I#<ItemTwo>.
		1: Alrighty. Here's your items!
		HOST_GIVE	T207
		HOST_GIVE	I#<ItemOne>
		HOST_GIVE	I#<ItemTwo>
		1: Thank you for your help!
		1: Now that I got these babies back, I can start selling them in the shop!
		1: Thanks again!
		END
	@HasReward
		1: Thanks for all your help!
		1: Check out my new supply of items!
		END
	
;------

SCENE	23	ArmorShop, SCENE, "Wally's Weapons", 0, 0
ACTOR	1, "Wally", josh96, 1, 17, 71
MUSIC	Inside1.mid
		1: Hi there! If ye need anything, just right click me!
		END
	@EventActorClick1
		1: Welcome to Wally's Weapons!
		1: Ye can get all ye're equipment needs here, or if ye just want to chat, ye can do that too!
		1: So, what'll it be?
	@Menu1
		MENU	"Shop=@Shop", "Chat=@Chat", "Nothing=@Nothing"
		GOTO @Menu1
		END
	@Shop
		1: Get ye're weapons here!
		OFFER   35, 36, 37, 38, 96, 97, 98, 106, 107, 108, 109, 110, 146, 147, 179, 180, 185 
		END
	@Chat
		1: What would ye like to chat about?
	@Menu2
		MENU	"Gossip=@gossip", "World News=@News", "Nothing=@nothing"
		GOTO	@Menu2
		END
	@Nothing
		1: Please return if ye need anything.
		END
	@Gossip
		1: Word on the streets is that Haldorf is having problems with bandits.
		1: Luckily for me, I own a weapon shop, so if any bandits attack, I have a large arsenal to protect myself with.
		IF	T200, @hasT200
		END
	@News
		1: News from around the world is pretty slow, since the Middle Continent locked us out with their big wall.
		1: I heard one was being built to block off the Southern Continent too, but that was some time ago.
		1: If you ask me, I think the Middle Continent is trying to hide something.
		END
	@hasT200
		H: Yeah, I talked to Haldorf about that already.
		1: Oh, ye're the one that's gonna help him?
		H: Indeed, I am.
		1: Ah, well, best of luck to ye!
		H: Thanks...
		END

;-----

SCENE	24	Bedroom, SCENE, "Kinomu's Retreat", 0 , 0
ACTOR	1, "Assistant", joshRoyalty, 30, 17, 71
MUSIC	Dude.mid
		IF	T20, @hasT20
		1: Greetings, friend.
		H: Erm... Hello there.
		1: What is it that you seek?
		H: Umm... I don't seek anything...
		1: Then this place is not for you.
		1: Leave now.
		END
	@hasT20
		IF	T21, @hasT21
		1: Greetings, friend.
		H: Hiya!
		1: What is it that you seek?
		H: I'm looking for a man named Kinomu.
		1: Kinomu is here.
		H: Okay, where?
		ACTOR	2, "Mysterious Voice", invisible, 1, 1, 1
		2: I am here...
		2: I am Everywhere; I am Kinomu!
		ACTOR	3, "Kinomu", kinomu, 1, 1, 1
		MOVE	3, 25, 71
		WAIT	4
		3: %1...There's a reason why I called you here.
		H: And what would that reason be?
		3: Because...I need your help.
		H: What is it you want me to do?
		3: I need your help in unsealing the Water Temple.
		3: The legends say that only the Chosen can retrieve the key, and use it to unseal the Temple.
		H: The Chosen, huh...
		3: Yes. You are of the line of Tamriel, are you not?
		H: I believe so, yes.
		3: Then it's settled. Enter the cave behind this hut, and retrieve the key from the monster there.
		H: Very well then.
		GIVE	T21
		3: Remember, you're the only one that can do this, %1...
		WAIT	3
		GOTO	EXIT
		END
	@HasT21
		IF	T22, @hasT22
		ACTOR	3, "Kinomu", kinomu, 1, 25, 71
		3: Please hurry, %1... The Water Temple awaits.
		END
	@HasT22
		IF	T23, @hasT23
		H: Hey, where's Kinomu?
		1: He left for the Water Temple already.
		1: He told me to tell you to meet him there.
		H: /a sighs...
		H: ...Which way do I go?
		1: It's northeast, through the Northrend Snowfield.
		H: Alright...Thanks.
		GIVE	T23
		END
	@HasT23
		IF	T200, @hasT200
		1: The Water Temple is northeast, at the edge of the Northrend snowfield.
		1: Good Luck.
		END
	@hasT200
		IF	T204, @hasT204
		ACTOR	4, "A box", joshMiscellaneous, 8, 15, 93
		H: Hmm... What's that you have there?
		1: Oh, this? It's just some box a guy ran off with.
		1: He just sort of dropped it, so I took it in so it wouldn't get wet.
		H: Really? Can I have it?
		1: Sure thing.
		H: Really, thanks!
		N: ~~Received a box!~~
		MOVE	4, 1, 1, 1
		1: Anytime, well, see you around.
		H: Yep, bye!
		GIVE	T204
		END
	@hasT204
		1: How's the adventure going?
		H: Not too bad!
		1: Really, great!
		END	
;-----
SCENE	25	Cave2, SCENE, "Shrine of the Leviathan", 0, 0
ACTOR	1, "Leviathan", josh67, 1, 17, 71
MUSIC	Sacred.mid
		IF	T22, @hasT22
		1: Zug.
		H: What?
		1: Zug zug.
		H: You must be the Leviathan!
		1: Zug zug wug zug!
		H: /a thinks: I must defeat this monster to unseal the Water Temple!
		1: Zug?
		H: Prepare yourself!
		MOVE	-5, 71, 1
		WAIT	3
		MUSIC	boss1.mid
		FIGHT	20
		IF	WIN, @win
		N: On this day, %1 took #<g.his> last breath.
		WAIT	3
		N: You can transport either to your home or to the city of Morian.
		WAIT	3
		N: Which would you like to do?
	@menu
		MENU	"Go Home=@Malano", "Go to Morian=@Morian", "Go nowhere=@End"
		GOTO	@Menu
		END
	@Malano
		N: And thus, %1 was transported to #<g.his> home.
		WAIT	3
		GOTO	LINK	0, 0, 1
		END
	@Morian
		N: And thus, %1 returned to Morian to recover...
		WAIT	3
		GOTO	LINK	5, 1, 1
		END
	@End
		N: And thus, %1's ill-fated spirit roamed the lands of the dead.
		END
	@Win
		H: Sad, it is...
	ACTOR	2, "Undine", Elementals, 1, 1, 1
		2: But it is a joyous moment for those who are chosen.
		MOVE	2, 17, 71
		WAIT	5
		H: Who...Who are you?
		2: I...Am the spirit of water, Undine.
		2: The Temple of Water is sealed by my tears.
		H: What are you talking about?
		2: Use this... It will help you.
		N: ***Received Undine's Tear!***
		MOVE	2, 1, 1
		2: Take care...%1...
		WAIT	3
		H: How do all these people know my name?
		H: Oh well, I have the key to the Temple, so I'll just take this to Kinomu now!
		GIVE	I105
		GIVE	T22
		END
	@hasT22
		H: The Leviathan has been defeated.
		H: This Shrine requires me no more.
		END
	@EventActorClick1
		1: I'm just a statue.
		1: Don't mind me.
		1: Zug.
		END
;-----
SCENE	26	CastleGates, SCENE, "Water Palace Entrance"
	IF	T23, @hasT23
		N: %1 approached the gates to the Water Temple...
		WAIT	3
		N: But the gates were magically sealed...
		END
	@hasT23
		IF	T24, @hasT24
		N: %1 approached the gates to the Water Temple...
		WAIT	3
		N: #<g.Che> lifted Undine's Tear high into the air...
		WAIT	3
		N: The door opened, and %1 walked inside...
		PARTY	T23
		GIVE	T24
		GOTO	LINK	18, 0
		END
	@hasT24
		WAIT	3
		PARTY	T24
		GOTO	LINK	18, 0
		END
;-----
SCENE	27	WaterTemple1, SCENE, "Temple Exit"
	IF	T27, @hasT27
		@Exit
		GOTO	LINK		17, 1
		END
	@hasT27
		IF	T28, @hasT28
		MUSIC	Legend.mid
		ACTOR	1, "Kinomu", kinomu, 1, 17, 71
		1: Funny to run into you here, %1...
		H: What the...Aren't you captured or something?
		1: Well... I kind of forgot to mention I had a Warp Stone...
		H: So you warped here...To get revenge...
		1: That's correct. Now, I will show you TRUE pain!
		MOVE	1, 1, 1, 1
		MUSIC	LegendBattle.mid
		FIGHT	25
		IF	WIN, @won
		1: Wahahahaha! That'll show you!
		WAIT	3
		GOTO	EXIT
		END
	@Won
		MOVE	1, 17, 71, 1
		1: What...How can this be?
		1: ...%1...Please accept my apologies.
		1: You're not a %3...
		1: Undine was right. I did not deserve to be here...
		GIVE	T28
		1: I shall now take my leave of you.
		1: Farewell, honorable %1...
		GOTO	@Exit
		END
	@HasT28
		GOTO	@Exit
		END
;-----
SCENE	28	WaterTemple2, SCENE, "Healing Shrine", 1, 0
		H: Wow...That looks like really tasty water...
		H: /a takes a drink!
		N: HP and MP Restored!
		GIVE	L1
		GIVE	H32000
		GIVE	M32000
		END
;-----
SCENE	29, WaterTemple3,	SCENE, "Pillar of Water", 2, 3
MUSIC	Evil.mid
	IF	T25, @hasT25
		ACTOR	1, "Kinomu", kinomu, 1, 50, 17
	IF	T208, @hasT208
		H: ...Kinomu?
		1: %1!!!
		1: Watch out!
		H: ...What's going on?
		1: It's...It's a monster!!!
		H: A mon...Oh...Crap.
		MUSIC	boss2.mid
		FIGHT2	24
		IF	WIN, @won
		N: On that day, %1 drew #<g.his> last breath...
		WAIT	4
		N: Where would you like to teleport?
	@Menu1
		MENU	"Home=@home", "Morian=@Morian", "Temple Healing Shrine=@shrine", "Nowhere=@none"
		GOTO	@Menu1
		END
	@home
		N: Just close your eyes and relax...
		WAIT	3
		GOTO	LINK	0, 0, 1
		END
	@Morian
		N: Just close your eyes and relax...
		WAIT	3
		GOTO	LINK	8, 1, 1
		END
	@Shrine
		N: Just close your eyes and relax...
		WAIT	3
		GOTO	LINK	18, 1, 1
		END
	@None
		N: Very well then.
		END
	@Won
		1: %1! You did it!
		H: Whew...That was a rough battle...
ACTOR	2, "Undine", Elementals, 1, 1, 1
		2: But not as rough as the ones yet to come...
		H: Undine!
		MOVE	2, 17, 71
		2: Indeed, it is I, Undine!
		2: Thanks to your actions, %1, you have not only saved the Temple of Water, but the life of this young man as well.
		1: ...
		2: What possessed you to come here, anyway?
		1: I search...For the power of Tamriel.
		2: ...One such as you does not deserve a force that powerful.
		2: %1, on the other hand...
		H: ...Heh...*scratches head*
		2: I suggest you seek out the fortune teller Ingrid next. She will show you the next stage of your journey.
		H: Ingrid...The one that led me to Kinomu?
		2: The very same. Now if you'll excuse me...I must rest.
		2: Thanks to you, %1, the power of Water has been restored to our world.
		2: When the time comes, the Gods will thank you for this deed.
		2: Goodbye, and good luck.
		GIVE	T208
		MOVE	2, 1, 1
		WAIT	4
		1: ...
		1: That...Was different.
		@hasT208
		H: Kinomu...What are you doing here? I thought you needed the key to get in?
		1: I did. You got to the Water Temple before I did, and you unsealed the door.
		1: However, while you were busy fighting, I snuck past you, and I was captured by the Chillheart.
		H: That's when I appeared...
		1: Yes, now...Would you please let me down?
		WAIT	2
	@Menu2
		MENU	"Yes=@Yes", "No=@No"
		GOTO	@Menu2
		END
	@Yes
		H: Yeah, I'll help you out.
		1: Yay! Thank you much!
		1: You truly are the Hero...
		MOVE	1, 36, 67
		H: I suggest you leave here as soon as you can, Kinomu.
		1: Yeah, yeah...I'm leaving soon.
		H: Okay, then. See you later.
		GIVE	T25
		GIVE	T26
		WAIT	3
		GOTO	EXIT
		END
	@No
		H: ...No, you should stay up there for a while.
		1: WHAT!?
		H: Maybe it'll teach you not to deceive people.
		1: You can't just leave me here!
		H: I can't? That's odd. That's what I was just going to do.
		1: You...You %3!
		H: Yeah, whatever. See you later, Kinomu.
		1: I won't let you get by without a scratch! Mark my words!!!
		GIVE	T25
		GIVE	T27
		H: /a yawns.
		H: Bye.
		WAIT	3
		GOTO	EXIT
		END
	@hasT25
		IF	T27, @hasT27
		@hasT28
		IF	T200, @hasT200
		H: There's the Pillar.
		H: The power of Water shines again.
		END
	@HasT27
		IF	T28, @HasT28
		ACTOR	1, "Kinomu", kinomu, 1, 50, 17
		1: ...Back to let me down, you %3?
		H: Nah, I was just going to see how it's like to hang around all day.
		1: ...Gods, I hate you.
		WAIT	3
		GOTO	EXIT
		END
	@hasT200
		IF	T205, @hasT205
		ACTOR	3, "A box", joshMiscellaneous, 8, 17, 71
		H: A box! I better get it out of all this water!
		WAIT	2
		N: %1 takes the box!
		MOVE	3, 1, 1, 1
		GIVE	T205
		END
	@hasT205
		N: Nothing stirs, aside from the drops of water eminating from the pillar.
		END
;-----
SCENE	200	Kitchen, SCENE, "Thieves' Hideout"
ACTOR	1, "Thief Leader", josh56, 1, 17, 71
	IF	T200, @hasT200
	IF	T50, @hasT50
	1: What.. What do you want?
	H: Uhh...What is this place?
	1: That's none of your concern.
	1: Get out.
	WAIT	3
	GOTO	EXIT
	END

	@hasT200
	IF	T206, @hasT206
	IF	T50, @hasT50
	@BoxResume
	1: Wahahahahaha!
	1: The potions contained in each of those boxes will keep us rich for a very long time...
	1: I wonder where my other men went off too, though... They should have been here by now...
	H: Umm..
	1: You! You're not one of my men!
	H: Am I supposed to be?
	1: That does it! Get him, boys!
	MUSIC	Boss-SideQuest.mid
	FIGHT	26, 26, 26
	IF	WIN, @won1
	@Lost
	1: That'll teach you to mess with the Shadow Gang!
	1: Come back again, if you're up for another scuffle!
	1: Hardy har!
	END
	@won1
	1: What? You killed all three of them?
	1: Oh... That does it!
	1: I'll get you now!
	MOVE	1, 1, 1, 1
	MUSIC	Boss-Sidequest.mid
	FIGHT	26, 26, 27
	IF	LOSE, @lost
	MOVE	1, 17, 71, 1
	1: What? You won!? Bah! Alright... I'll give you this package. Here!
	N: %1 got a package!
	WAIT	2
	1: I won't be a bother anymore... I promise.
	GIVE	T206
	END
@HasT206
	IF	T50, @hasT50
	1: I won't be a bother anymore, I promise.
	END
@hasT50
	IF	T51, @hasT51
	H: Did you steal the key to the Light Temple?
	1: What? Why would I do that?
	1: I have bigger fish to fry, like this new gang that appeared in the Forest of the Dead.
	H: What about them?
	1: They have a hideout in the Forest and they steal valuable gems and stuff.
	H: All right, I'll go check them out.
	GIVE	T51
	END
@hasT51
IF	T200, @BoxCheck
@Resume
	1: If you find their leader, kick his ass for me!
	END
@Boxcheck
IF	-T206, @BoxResume
GOTO	@resume

;-------
;------ Alchemestrum - North Continent
SCENE	215	PKarena, SCENE, "Alchemestrum - Nosren"
ACTOR	1,	"Aridijiah",	 JoshRoyalty, 2, 17, 71
	1: Welcome to the Alchemestrum!
	1: If there's some way we can be of assistance, please don't hesitate to right-click me.
	1: (But you have to be an Alchemist, otherwise I don't care about you!)
	END
@eventactorclick1
	IF C16, @Alchemist
	1: I'm sorry, but I can only help you if you're an Alchemist.
	END
@Alchemist
		1: Welcome, Alchemist %1!
		1: Which of our services do you require?
@menu1
	MENU	"Purchase Ingredients=@ingredients",	"Create Charges=@Charges", "Nothing=@end"
	GOTO @menu1
	END
@end
		1: That's too bad, come again!
	END
@ingredients
	MENU	"Water (11 Septi each)=@Water",	"Root (15 Septi each)=@root", "Oil (20 Septi each)=@oil", "Ash (18 Septi each)=@Ash", "Clay (15 Septi each)=@clay", "Mud Pepper (21 Septi each)=@mudpepper", "Wax (17 Septi each)=@wax", "Crystal (24 Septi each)=@crystal", "Back=@menu1", "Cancel=@end"
	GOTO	@ingredients
@water
	SET alchtrophyid, 1221
	SET trophyprice, 11
	1: How many Water would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 11
	MUL totalprice, #<lastAsk>
	1: The total price for Water x #<lastAsk> is #<totalprice> Septi. Is this okay?
@Confirmmenu
	MENU	"Yes=@confirm", "No=@end"
	GOTO	@confirmmenu
@incorrectnumber
	1: My apologies, but please enter a number between 1 and 20.
	END
@confirm
	IF -G#<totalprice>, @nocash
	HOST_TAKE G#<totalprice>
	HOST_GIVE Z#<alchtrophyid>.#<lastAsk>
	1: Thanks for your business! Please come again!
	END
@root
	SET alchtrophyid, 1218
	SET trophyprice, 15
	1: How many Root would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 15
	MUL totalprice, #<lastAsk>
	1: The total price for Root x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@Oil
	SET alchtrophyid, 1217
	SET trophyprice, 20
	1: How many Oil would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 20
	MUL totalprice, #<lastAsk>
	1: The total price for Oil x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@Ash
	SET alchtrophyid, 1201
	SET trophyprice, 18
	1: How many Ash would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 18
	MUL totalprice, #<lastAsk>
	1: The total price for Ash x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@clay
	SET alchtrophyid, 1205
	SET trophyprice, 15
	1: How many Clay would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 15
	MUL totalprice, #<lastAsk>
	1: The total price for Clay x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@mudpepper
	SET alchtrophyid, 1215
	SET trophyprice, 21
	1: How many Mud Pepper would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 21
	MUL totalprice, #<lastAsk>
	1: The total price for Mud Pepper x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@wax
	SET alchtrophyid, 1220
	SET trophyprice, 17
	1: How many Wax would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 17
	MUL totalprice, #<lastAsk>
	1: The total price for Wax x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@Crystal
	SET alchtrophyid, 1206
	SET trophyprice, 24
	1: How many Crystal would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 24
	MUL totalprice, #<lastAsk>
	1: The total price for Crystal x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@Charges
	1: Charges are the heart and soul of an Alchemist's trade.
	1: You see, for us to cast our spells, we must first make the Charges that all our spells require.
	1: For simplicity, Alchemy is divided into "Tiers".
	1: That being said, how can I assist you?
@menu2
	MENU	"Tier I=@tier1", "Tier II=@tier2", "Tier III=@tier3", "Tier IV=@tier4"
	GOTO	@menu2
@tier1
	MENU	"Heal (1 Root + 1 Water)=@healcharge", "Cure (2 Roots + 1 Oil)=@Curecharge", "Defend (1 Clay + 1 Ash)=@defendcharge", "Levitate (1 Mud Pepper + 1 Water)=@levitatecharge", "Speed (1 Wax + 2 Water)=@speedcharge", "Flash (1 Wax + 2 Oil)=@flashcharge", "Hard Ball(1 Crystal + 1 Clay)=@hardballcharge", "Acid Rain (1 Ash + 3 Water)=@acidraincharge", "Back=@tierback"
	GOTO	@tier1
@tier2
	MENU	"Revealer (2 Ash + 1 Wax)=@revealercharge", "Escape (1 Wax + 1 Vinegar)=@escapecharge", "Revive (3 Root + 1 Bone)=@revivecharge", "Barrier (1 Limestone + 2 Bone)=@barriercharge", "Sting (2 Water + 1 Vinegar)=@stingcharge", "Atlas (1 Atlas Amulet + 1 Ash)=@atlascharge", "Crush (1 Limestone + 1 Wax)=@crushcharge", "Drain (1 Ethanol + 2 Root)=@draincharge", "Fireball (1 Brimstone + 2 Ash)=@fireballcharge", "Back=@tierback"
	GOTO	@tier2
@tier3
	1: My apologies, %1, but Tier III spells are not yet available.
	END
@tier4
	1: My apologies, %1, but Tier IV spells are not yet available.
	END
@tierback
	GOTO	@menu2
@healcharge
	SET chargeid, 1222
	SET reagent1, 1218
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Heal would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Heal charges, I will need #<regamt1> x Root and #<regamt2> x Water.
	1: Is this acceptable?
@Confirmation2
	MENU	"Yes=@confirmation3", "No=@end"
	GOTO	@Confirmation2
@nostuff
	1: You don't have the required items, sorry.
	END
@Confirmation3
	IF	-Z#<reagent1>.#<regamt1>, @nostuff
	IF	-Z#<reagent2>.#<regamt2>,	 @nostuff
	HOST_TAKE	Z#<reagent1>.#<regamt1>
	HOST_TAKE	Z#<reagent2>.#<regamt2>
	HOST_GIVE	Z#<chargeid>.#<lastAsk>
	1: Thanks, here's your Charge.
	END
@curecharge
	SET chargeid, 1223
	SET reagent1, 1218
	SET reagent2, 1217
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Cure would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Cure charges, I will need #<regamt1> x Root and #<regamt2> x Oil.
	1: Is this acceptable?
	GOTO	@Confirmation2
@defendcharge
	SET chargeid, 1224
	SET reagent1, 1205
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Defend would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Defend charges, I will need #<regamt1> x Clay and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@Levitatecharge
	SET chargeid, 1225
	SET reagent1, 1215
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Levitate would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Levitate charges, I will need #<regamt1> x Mud Pepper and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@speedcharge
	SET chargeid, 1226
	SET reagent1, 1220
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Speed would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Speed charges, I will need #<regamt1> x Wax and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@flashcharge
	SET chargeid, 1227
	SET reagent1, 1220
	SET reagent2, 1217
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Flash would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Flash charges, I will need #<regamt1> x Wax and #<regamt2> x Oil.
	1: Is this acceptable?
	GOTO	@Confirmation2
@hardballcharge
	SET chargeid, 1228
	SET reagent1, 1206
	SET reagent2, 1205
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Hard Ball would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Hard Ball charges, I will need #<regamt1> x Crystal and #<regamt2> x Clay.
	1: Is this acceptable?
	GOTO	@Confirmation2
@acidraincharge
	SET chargeid, 1229
	SET reagent1, 1201
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 3
	1: How many charges of Acid Rain would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Acid Rain charges, I will need #<regamt1> x Ash and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@revealercharge
	SET chargeid, 1230
	SET reagent1, 1201
	SET reagent2, 1220
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Revealer would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Revealer charges, I will need #<regamt1> x Ash and #<regamt2> x Wax.
	1: Is this acceptable?
	GOTO	@Confirmation2
@escapecharge
	SET chargeid, 1231
	SET reagent1, 1220
	SET reagent2, 1219
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Escape would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Escape charges, I will need #<regamt1> x Wax and #<regamt2> x Vinegar.
	1: Is this acceptable?
	GOTO	@Confirmation2
@revivecharge
	SET chargeid, 1232
	SET reagent1, 1218
	SET reagent2, 1203
	SET	regamt1, 3
	SET regamt2, 1
	1: How many charges of Revive would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Revive charges, I will need #<regamt1> x Root and #<regamt2> x Bone.
	1: Is this acceptable?
	GOTO	@Confirmation2
@barriercharge
	SET chargeid, 1233
	SET reagent1, 1213
	SET reagent2, 1203
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Barrier would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Barrier charges, I will need #<regamt1> x Limestone and #<regamt2> x Bone.
	1: Is this acceptable?
	GOTO	@Confirmation2
@stingcharge
	SET chargeid, 1234
	SET reagent1, 1221
	SET reagent2, 1219
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Sting would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Sting charges, I will need #<regamt1> x Water and #<regamt2> x Vinegar.
	1: Is this acceptable?
	GOTO	@Confirmation2
@atlascharge
	SET chargeid, 1235
	SET reagent1, 1202
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Atlas would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Atlas charges, I will need #<regamt1> x Atlas Amulet and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@crushcharge
	SET chargeid, 1236
	SET reagent1, 1213
	SET reagent2, 1220
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Crush would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Crush charges, I will need #<regamt1> x Limestone and #<regamt2> x Wax.
	1: Is this acceptable?
	GOTO	@Confirmation2
@draincharge
	SET chargeid, 1237
	SET reagent1, 1208
	SET reagent2, 1218
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Drain would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Drain charges, I will need #<regamt1> x Ethanol and #<regamt2> x Root.
	1: Is this acceptable?
	GOTO	@Confirmation2
@fireballcharge
	SET chargeid, 1238
	SET reagent1, 1204
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Fireball would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Fireball charges, I will need #<regamt1> x Brimstone and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@incorrectamount
	1: I'm sorry, but please enter a number between 1 and 9.
	END
;------
; Alchemestrum - Talroa

SCENE	216	PKarena, SCENE, "Alchemestrum - Tolshroud"
ACTOR	1,	"Waltubah",	 JoshRoyalty, 2, 17, 71
	1: Welcome to the Alchemestrum!
	1: If there's some way we can be of assistance, please don't hesitate to right-click me.
	1: (But you have to be an Alchemist, otherwise I don't care about you!)
	END
@eventactorclick1
	IF C16, @Alchemist
	1: I'm sorry, but I can only help you if you're an Alchemist.
	END
@Alchemist
		1: Welcome, Alchemist %1!
		1: Which of our services do you require?
@menu1
	MENU	"Purchase Ingredients=@ingredients",	"Create Charges=@Charges", "Nothing=@end"
	GOTO @menu1
	END
@end
		1: That's too bad, come again!
	END
@ingredients
	MENU	"Vinegar (110 Septi each)=@vinegar", "Bone (85 Septi each)=@bone", "Limestone (92 Septi each)=@limestone","Atlas Amulet (150 Septi each)=@amulet", "Ethanol (125 Septi each)=@ethanol", "Brimstone (140 Septi each)=@brimstone", "Back=@menu1", "Cancel=@end"
	GOTO	@ingredients
@vinegar
	SET alchtrophyid, 1219
	SET trophyprice, 110
	1: How many Vinegar would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 110
	MUL totalprice, #<lastAsk>
	1: The total price for Vinegar x #<lastAsk> is #<totalprice> Septi. Is this okay?
@Confirmmenu
	MENU	"Yes=@confirm", "No=@end"
	GOTO	@confirmmenu
@incorrectnumber
	1: My apologies, but please enter a number between 1 and 20.
	END
@confirm
	IF -G#<totalprice>, @nocash
	HOST_TAKE G#<totalprice>
	HOST_GIVE Z#<alchtrophyid>.#<lastAsk>
	1: Thanks for your business! Please come again!
	END
@bone
	SET alchtrophyid, 1203
	SET trophyprice, 85
	1: How many Bone would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 85
	MUL totalprice, #<lastAsk>
	1: The total price for Bone x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@limestone
	SET alchtrophyid, 1213
	SET trophyprice, 92
	1: How many Limestone would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 92
	MUL totalprice, #<lastAsk>
	1: The total price for Limestone x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@amulet
	SET alchtrophyid, 1202
	SET trophyprice, 150
	1: How many Atlas Amulet would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 18
	MUL totalprice, #<lastAsk>
	1: The total price for Atlas Amulet x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@ethanol
	SET alchtrophyid, 1208
	SET trophyprice, 125
	1: How many Ethanol would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 125
	MUL totalprice, #<lastAsk>
	1: The total price for Ethanol x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@brimstone
	SET alchtrophyid, 1204
	SET trophyprice, 140
	1: How many Brimstone would you like? (Please enter a number between 1 and 20)
	ASK	32000
	COMPARE #<lastAsk>, 1
	IF<	@IncorrectNumber
	COMPARE #<lastAsk>, 20
	IF>	@IncorrectNumber
	SET totalprice, 0
	ADD totalprice, 140
	MUL totalprice, #<lastAsk>
	1: The total price for Brimstone x #<lastAsk> is #<totalprice> Septi. Is this okay?
	GOTO @confirmmenu
@Charges
	1: Charges are the heart and soul of an Alchemist's trade.
	1: You see, for us to cast our spells, we must first make the Charges that all our spells require.
	1: For simplicity, Alchemy is divided into "Tiers".
	1: That being said, how can I assist you?
@menu2
	MENU	"Tier I=@tier1", "Tier II=@tier2", "Tier III=@tier3", "Tier IV=@tier4"
	GOTO	@menu2
@tier1
	MENU	"Heal (1 Root + 1 Water)=@healcharge", "Cure (2 Roots + 1 Oil)=@Curecharge", "Defend (1 Clay + 1 Ash)=@defendcharge", "Levitate (1 Mud Pepper + 1 Water)=@levitatecharge", "Speed (1 Wax + 2 Water)=@speedcharge", "Flash (1 Wax + 2 Oil)=@flashcharge", "Hard Ball(1 Crystal + 1 Clay)=@hardballcharge", "Acid Rain (1 Ash + 3 Water)=@acidraincharge", "Back=@tierback"
	GOTO	@tier1
@tier2
	MENU	"Revealer (2 Ash + 1 Wax)=@revealercharge", "Escape (1 Wax + 1 Vinegar)=@escapecharge", "Revive (3 Root + 1 Bone)=@revivecharge", "Barrier (1 Limestone + 2 Bone)=@barriercharge", "Sting (2 Water + 1 Vinegar)=@stingcharge", "Atlas (1 Atlas Amulet + 1 Ash)=@atlascharge", "Crush (1 Limestone + 1 Wax)=@crushcharge", "Drain (1 Ethanol + 2 Root)=@draincharge", "Fireball (1 Brimstone + 2 Ash)=@fireballcharge", "Back=@tierback"
	GOTO	@tier2
@tier3
	1: My apologies, %1, but Tier III spells are not yet available.
	END
@tier4
	1: My apologies, %1, but Tier IV spells are not yet available.
	END
@tierback
	GOTO	@menu2
@healcharge
	SET chargeid, 1222
	SET reagent1, 1218
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Heal would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Heal charges, I will need #<regamt1> x Root and #<regamt2> x Water.
	1: Is this acceptable?
@Confirmation2
	MENU	"Yes=@confirmation3", "No=@end"
	GOTO	@Confirmation2
@nostuff
	1: You don't have the required items, sorry.
	END
@Confirmation3
	IF	-Z#<reagent1>.#<regamt1>, @nostuff
	IF	-Z#<reagent2>.#<regamt2>,	 @nostuff
	HOST_TAKE	Z#<reagent1>.#<regamt1>
	HOST_TAKE	Z#<reagent2>.#<regamt2>
	HOST_GIVE	Z#<chargeid>.#<lastAsk>
	1: Thanks, here's your Charge.
	END
@curecharge
	SET chargeid, 1223
	SET reagent1, 1218
	SET reagent2, 1217
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Cure would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Cure charges, I will need #<regamt1> x Root and #<regamt2> x Oil.
	1: Is this acceptable?
	GOTO	@Confirmation2
@defendcharge
	SET chargeid, 1224
	SET reagent1, 1205
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Defend would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Defend charges, I will need #<regamt1> x Clay and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@Levitatecharge
	SET chargeid, 1225
	SET reagent1, 1215
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Levitate would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Levitate charges, I will need #<regamt1> x Mud Pepper and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@speedcharge
	SET chargeid, 1226
	SET reagent1, 1220
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Speed would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Speed charges, I will need #<regamt1> x Wax and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@flashcharge
	SET chargeid, 1227
	SET reagent1, 1220
	SET reagent2, 1217
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Flash would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Flash charges, I will need #<regamt1> x Wax and #<regamt2> x Oil.
	1: Is this acceptable?
	GOTO	@Confirmation2
@hardballcharge
	SET chargeid, 1228
	SET reagent1, 1206
	SET reagent2, 1205
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Hard Ball would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Hard Ball charges, I will need #<regamt1> x Crystal and #<regamt2> x Clay.
	1: Is this acceptable?
	GOTO	@Confirmation2
@acidraincharge
	SET chargeid, 1229
	SET reagent1, 1201
	SET reagent2, 1221
	SET	regamt1, 1
	SET regamt2, 3
	1: How many charges of Acid Rain would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Acid Rain charges, I will need #<regamt1> x Ash and #<regamt2> x Water.
	1: Is this acceptable?
	GOTO	@Confirmation2
@revealercharge
	SET chargeid, 1230
	SET reagent1, 1201
	SET reagent2, 1220
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Revealer would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Revealer charges, I will need #<regamt1> x Ash and #<regamt2> x Wax.
	1: Is this acceptable?
	GOTO	@Confirmation2
@escapecharge
	SET chargeid, 1231
	SET reagent1, 1220
	SET reagent2, 1219
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Escape would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Escape charges, I will need #<regamt1> x Wax and #<regamt2> x Vinegar.
	1: Is this acceptable?
	GOTO	@Confirmation2
@revivecharge
	SET chargeid, 1232
	SET reagent1, 1218
	SET reagent2, 1203
	SET	regamt1, 3
	SET regamt2, 1
	1: How many charges of Revive would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Revive charges, I will need #<regamt1> x Root and #<regamt2> x Bone.
	1: Is this acceptable?
	GOTO	@Confirmation2
@barriercharge
	SET chargeid, 1233
	SET reagent1, 1213
	SET reagent2, 1203
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Barrier would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Barrier charges, I will need #<regamt1> x Limestone and #<regamt2> x Bone.
	1: Is this acceptable?
	GOTO	@Confirmation2
@stingcharge
	SET chargeid, 1234
	SET reagent1, 1221
	SET reagent2, 1219
	SET	regamt1, 2
	SET regamt2, 1
	1: How many charges of Sting would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Sting charges, I will need #<regamt1> x Water and #<regamt2> x Vinegar.
	1: Is this acceptable?
	GOTO	@Confirmation2
@atlascharge
	SET chargeid, 1235
	SET reagent1, 1202
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Atlas would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Atlas charges, I will need #<regamt1> x Atlas Amulet and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@crushcharge
	SET chargeid, 1236
	SET reagent1, 1213
	SET reagent2, 1220
	SET	regamt1, 1
	SET regamt2, 1
	1: How many charges of Crush would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Crush charges, I will need #<regamt1> x Limestone and #<regamt2> x Wax.
	1: Is this acceptable?
	GOTO	@Confirmation2
@draincharge
	SET chargeid, 1237
	SET reagent1, 1208
	SET reagent2, 1218
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Drain would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Drain charges, I will need #<regamt1> x Ethanol and #<regamt2> x Root.
	1: Is this acceptable?
	GOTO	@Confirmation2
@fireballcharge
	SET chargeid, 1238
	SET reagent1, 1204
	SET reagent2, 1201
	SET	regamt1, 1
	SET regamt2, 2
	1: How many charges of Fireball would you like to create? (Please enter a number 1-9).
	ASK 32000
	COMPARE #<lastask>, 1
	IF< @incorrectamount
	COMPARE #<lastask>, 9
	IF>	@incorrectamount
	MUL regamt1, #<lastask>
	MUL regamt2, #<lastask>
	1: To make your #<lastAsk> Fireball charges, I will need #<regamt1> x Brimstone and #<regamt2> x Ash.
	1: Is this acceptable?
	GOTO	@Confirmation2
@incorrectamount
	1: I'm sorry, but please enter a number between 1 and 9.
	END
;------------------------------------------------------------------------------------------------------------------------------------
;------------------------------------------------------------------------------------------------------------------------------------

SCENE	217, black, CUT,	 "Fishing Hole"
	FX	2
	MUSIC fishing.mid
	IF	#6, @type1
	IF	#87, @type1
	IF	#125, @type1
	IF	#4, @type2
	IF	#68, @type2
	IF	#166, @type2
	IF	#8, @type3
	IF	#47, @type3
	IF	#140, @type3
	@checkinit
	IF	T220, @fishinit
	N: This looks like a nice place to go fishing.
	WAIT	4
	N: Unfortunately, you don't know how to fish!
	END
@type1
	BKGND 	Fishing1
	SET watertype, 1
	GOTO	@checkinit
@type2
	BKGND	Fishing2
	SET	watertype, 2
	GOTO	@checkinit
@type3
	BKGND	FIshing3
	SET	watertype, 3
	GOTO	@checkinit
@fishinit
	N: This looks like a nice place to go fishing.
	WAIT	4
	N: What would you like to do?
	WAIT	3
	COMPARE	#<isfishing>, 1
	IF=	@fishpen
@setupmenu
	SET	isfishing, 0
	MENU	"Rod: #<rodname>  Lure: #<lurename>=@setupmenu", "Equip rod/lure=@equipmenu", "Cast off!=@castcheck", "Exit fishing=@exit"
	GOTO	@setupmenu
	END
@fishpen
	SET	lurename, "None"
	SET	lureclass, 0
	SET	lurebite, 0
	SET	lurerare, 0
	GOTO	@setupmenu
@equipmenu
	MENU	"Equip rod (Current rod: #<rodname>)=@equiprod", "Equip lure (Current lure: #<lurename>)=@equiplure", "Back=@setupmenu"
	GOTO	@equipmenu
@equiprod
	N: Select the rod you wish to equip.
@equiprod2
	MENU	"Basic Rod (Owned: #<num.item362>)=@equiprod362", "Bamboo Rod (Owned: #<num.item363>)=@equiprod363", "Sturdy Rod (Owned: #<num.item364>)=@equiprod364", "Composite Rod (Owned: #<num.item365>)=@equiprod365", "Angler's Rod (Owned: #<num.item366>)=@equiprod366", "Deep Sea Rod (Owned: #<num.item367>)=@equiprod367", "Master's Rod (Owned: #<num.item368>)=@equiprod368", "Unequip Rod=@unequiprod", "Back=@equipmenu"
	GOTO	@equiprod2
@norod
	N: Unable to equip rod. You do not possess the selected type.
	WAIT 3
	GOTO	@equiprod
@equiprod362
	IF	-I362, @norod
	SET	rodid, 362
	SET rodname, "Basic Rod"
	SET	rodhp, 200
	SET	rodfp, 10
	N: Basic Rod equipped!
	WAIT	1
	GOTO @equipmenu
@equiprod363
	IF	-I363, @norod
	SET	rodid, 363
	SET rodname, "Bamboo Rod"
	SET	rodhp, 100
	SET	rodfp, 20
	N: Bamboo Rod equipped!
	WAIT	1
	GOTO @equipmenu
@equiprod364
	IF	-I364, @norod
	SET	rodid, 364
	SET rodname, "Sturdy Rod"
	SET	rodhp, 500
	SET	rodfp, 5
	N: Sturdy Rod equipped!
	WAIT	1
	GOTO @equipmenu
@equiprod365
	IF	-I365, @norod
	SET	rodid, 365	
	SET rodname, "Composite Rod"
	N: Composite Rod equipped!
	SET	rodhp, 300
	SET	rodfp, 15
	WAIT	1
	GOTO @equipmenu
@equiprod366
	IF	-I366, @norod
	SET	rodid, 366
	SET rodname, "Angler's Rod"
	SET	rodhp, 220
	SET	rodfp, 35
	N: Angler's Rod equipped!
	WAIT	1
	GOTO @equipmenu
@equiprod367
	IF	-I367, @norod
	SET	rodid, 367
	SET rodname, "Deep Sea Rod"
	SET	rodhp, 800
	SET	rodfp, 10
	N: Deep Sea Rod equipped!
	WAIT	1
	GOTO @equipmenu
@equiprod368
	IF	-I368, @norod
	SET	rodid, 368
	SET rodname, "Master's Rod"
	SET	rodhp, 600
	SET	rodfp, 30
	N: Master's Rod equipped!
	WAIT	1
	GOTO @equipmenu
@unequiprod
	SET failclass, "Rod"
	COMPARE #<rodid>, 0
	IF=, @unequipfail
	SET rodid, 0
	SET rodname, "None"
	SET	rodhp, 0
	SET	rodfp, 0
	N: Rod unequipped!
	WAIT	1
	GOTO @equipmenu
@unequiplure
	SET	failclass, "Lure"
	COMPARE #<lureid>, 0
	IF=, @unequipfail
	HOST_GIVE	I#<lureid>
	SET lureid, 0
	SET lurename, "None"
	SET	lureclass, 0
	SET	lurebite, 0
	SET	lurerare, 0
	N: Lure unequipped!
	WAIT	1
	GOTO	@equipmenu
@unequipfail
	N: Unable to unequip your #<failclass>. Nothing is currently equipped.
	WAIT	2
	GOTO @equipmenu
@equiplure
	N: Select the class of lure you wish to equip.
	IF I361, @equiplure3
@equiplure2
	MENU "Worms=@equipworm", "Frogs=@Equipfrog", "Sinkers=@Equipsinker", "Floaters=@equipfloater", "Unequip Lure=@unequiplure", "Back=@equipmenu"
	GOTO @equiplure2
@equiplure3
	MENU "Worms=@equipworm", "Frogs=@Equipfrog", "Sinkers=@Equipsinker", "Floaters=@equipfloater", "Legendary Frog(Owned: #<num.item361>)=@equiplure361", "Unequip Lure=@unequiplure", "Back=@equipmenu"
	GOTO @equiplure3
@equipworm
	N: Select the worm you wish to equip.
@equipworm2
	MENU	"Worm (Owned: #<num.item345>)=@equiplure345", "Spirit (Owned: #<num.item346>)=@equiplure346", "Caro (Owned: #<num.item347>)=@equiplure347", "Heavy Caro (Owned: #<num.item348>)=@equiplure348", "Back=@equiplure2"
	GOTO	@equipworm2
@equipfrog
	N: Select the frog you wish to equip.
@equipfrog2
	MENU	"Toad (Owned: #<num.item349>)=@equiplure349", "Baby Frog (Owned: #<num.item350>)=@equiplure350", "Frog (Owned: #<num.item351>)=@equiplure351", "Fat Frog (Owned: #<num.item352>)=@equiplure352", "Back=@equiplure2"
	GOTO @equipfrog2
@equipsinker
	N: Select the sinker you wish to equip.
@equipsinker2
	MENU	"Sinker (Owned: #<num.item353>)=@equiplure353", "Strider (Owned: #<num.item354>)=@equiplure354", "Hanger (Owned: #<num.item355>)=@equiplure355", "Deep Diver (Owned: #<num.item356>)=@equiplure356", "Back=@equiplure2"
	GOTO	@equipsinker2
@equipfloater
	N: Select the floater you wish to equip.
@equipfloater2
	MENU	"Old Popper (Owned: #<num.item357>)=@equiplure357", "Popper (Owned: #<num.item358>)=@equiplure358", "Topper (Owned: #<num.item359>)=@equiplure359", "Dogwalker (Owned: #<num.item360>)=@equiplure360", "Back=@equiplure2"
	GOTO @equipfloater2
@equiplure345
	SET lureid, 345
	IF	-I#<lureid>, @nolure
	SET item.id, #<lureid>
	SET	lureclass, 1
	SET 	lurebite, 10
	SET	lurerare, 8
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure346
	SET lureid, 346
	IF	-I#<lureid>, @nolure
	SET item.id, #<lureid>
	SET	lureclass, 1
	SET	lurebite, 15
	SET	lurerare, 8
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure347
	SET	lureid, 347
	IF	-I#<lureid>, @nolure
	SET item.id, #<lureid>
	SET	lureclass, 1
	SET 	lurebite, 20
	SET	lurerare, 12
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure348
	SET	lureid, 348
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 1
	SET	lurebite, 25
	SET	lurerare, 16
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure349
	SET	lureid, 349
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 2
	SET	lurebite, 11
	SET	lurerare, 6
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure350
	SET	 lureid, 350
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 2
	SET	lurebite, 16
	SET	lurerare, 12
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure351
	SET	lureid, 351
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 2
	SET	lurebite, 21
	SET	lurerare, 18
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure352
	SET	lureid, 352
	IF -I#<lureid>, @nolure
	SET item.id, #<lureid>
	SET	lureclass, 2
	SET	lurebite, 26
	SET	lurerare, 24
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure353
	SET	lureid, 353
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 3
	SET	lurebite, 9
	SET	lurerare, 7
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure354
	SET	lureid, 354
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 3
	SET	lurebite, 14
	SET	lurerare, 14
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure355
	SET	lureid, 355
	IF	-I#lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 3
	SET	lurebite, 19
	SET	lurerare, 21
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure356
	SET	lureid, 356
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 3
	SET	lurebite, 24
	SET	lurerare, 28
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure357
	SET	lureid, 357
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 4
	SET	lurebite, 12
	SET	lurerare, 5
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure358
	SET	lureid, 358
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 4
	SET	lurebite, 17
	SET	lurerare, 10
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure359
	SET	lureid, 359
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 4
	SET	lurebite, 22
	SET	lurerare, 15
	N: #<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure360
	SET	lureid, 360
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 4
	SET	lurebite, 27
	SET	lurerare, 20
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@equiplure361
	SET	lureid, 361
	IF	-I#<lureid>, @nolure
	SET	item.id, #<lureid>
	SET	lureclass, 5
	SET	lurebite, 40
	SET	lurerare, 30
	N:	#<item.name> equipped!
	SET	lurename, #<item.name>
	HOST_TAKE	I#<lureid>
	WAIT	1
	GOTO	@equipmenu
@nolure
	SET	item.id, #<lureid>
	N: Unable to equip. #<item.name> not in inventory.
	WAIT	3
	GOTO	@equiplure
@exit
	N: Done fishing for now... Maybe next time!
	WAIT	3
	GOTO	EXIT
@castcheck
	COMPARE	#<rodid>, 0
	IF=, @nocast
	COMPARE	#<rodid>, 362	
	IF<, @nocast
	COMPARE #<rodid>, 368
	IF>, @nocast
	COMPARE	#<lureid>, 0
	IF=, @nocast
	COMPARE	#<lureid>, 345
	IF<, @nocast
	COMPARE	#<lureid>, 361
	IF>, @nocast
	SET roddura, #<rodhp>
	SET conditionname, "Good"
	SET roddura2, #<rodhp>
	DIV roddura2, 2
	SET roddura3, #<rodhp>
	DIV	roddura3, 4
	SET	rodtech, #<rodfp>
	SET	conditioncounter, 0
	N: Casting off!
	SET	movecounter, 0
	SET	movepen, 0
	SET	fishdistance, 70
	ADD fishdistance, %R29
	SOUND	"sploosh.wav"
	ACTOR	1, " ", fish, 1, #<fishdistance>, 90
	WAIT	2
@unhookedmenu
	SET bitechance, #<lurebite>
	SET fishcommon, #<lurerare>
	SET reelpwr, 9
@unhookedmenu2
	MENU	"Line Condition: #<conditionname>   Tech Points: #<rodtech>=@unhookedmenu2", "Reel In=@unhookedreel", "Use Technique=@unhookedtech", "Give up=@unhookedgiveup"
	GOTO	@unhookedmenu2
@hookedmenu
	SET 	powermulti, 2
	SET	gripbuff, 0
	SET	reelpwr, 9
	SET	isfishing, 1
@hookedmenu2
	SET	gripbuff, 0
	MENU	"Line Condition: #<conditionname>   Tech Points: #<rodtech>=@hookedmenu2", "Reel In=@hookedreel", "Use Technique=@hookedtech", "Give Up=@hookedgiveup"
	GOTO	@hookedmenu2
@unhookedreel
	ADD	movecounter, 1	
	ADD	movepen, #<movecounter>
	SUB	fishdistance, #<reelpwr>
	COMPARE #<fishdistance>, 1
	IF<	@unhookedfail
	MOVE	1, #<fishdistance>, 90
	WAIT	3
	IF	R#<bitechance>, @hookedcheck
	GOTO	@unhookedmenu
@hookedtech
	MENU	"Line Condition: #<conditionname>   Tech Points: #<rodtech>=@hookedtech", "Coated Line (Cost: 7)=@technique201", "Firm Grip (Cost: 2)=@technique202", "Defensive Maneuvers (Cost: 3)=@technique203", "Steady Grip (Cost: 6)=@technique204", "Give Some Line (Cost: 0)=@technique205", "Offensive Maneuvers (Cost: 4)=@technique206", "Release (Cost: 15)=@technique207", "Back=@hookedmenu2"
	GOTO	@hookedtech
@unhookedfail
	MOVE	1, -50, -50, 1
	WAIT	2
	N: Nothing's biting this time...
	WAIT	1
	GOTO	@setupmenu
@hookedcheck
	N: Something's biting!
	; 1 lake 2 river 3 sea
	; 1 worm 2 frog 3 sinker 4 floater
	GOTO	@bitecheck#<watertype>#<lureclass>
@bitecheck11
	SET	rare326, 10
	SET	rare331, 4
	SET	rare344, 5
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare326, #<fishcommon>
	ADD	rare331, #<fishcommon>
	ADD	rare344, #<fishcommon>
	IF	R#<rare331>, @hooked331
	IF	R#<rare344>, @hooked344
	IF	R#<rare326>, @hooked326
	GOTO	@hooked323
@bitecheck12
	SET	rare328, 12
	SET	rare338, 7
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare328, #<fishcommon>
	ADD	rare338, #<fishcommon>
	IF	R#<rare338>, @hooked338
	IF	R#<rare328>, @hooked328
	GOTO	@hooked323
@bitecheck13
	SET	rare326, 10
	SET	rare331, 4
	SET	rare342, 3
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare326, #<fishcommon>
	ADD	rare331, #<fishcommon>
	ADD	rare342, #<fishcommon>
	IF	R#<rare342>, @hooked342
	IF	R#<rare331>, @hooked331
	IF	R#<rare326>, @hooked326
	GOTO	@hooked323
@bitecheck14
	SET	rare335, 15
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare335, #<fishcommon>
	IF	R#<rare335>, @hooked335
	GOTO	@hooked323
@bitecheck21
	SET	rare324, 12
	SET	rare327, 9
	SET	rare329, 5
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare324, #<fishcommon>
	ADD	rare327, #<fishcommon>
	ADD	rare329, #<fishcommon>
	IF	R#<rare329>, @hooked329
	IF	R#<rare327>, @hooked327
	IF	R#<rare324>, @hooked324
	GOTO	@hooked323
@bitecheck22
	SET	rare324, 12
	SET	rare329, 5
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare324, #<fishcommon>
	ADD	rare329, #<fishcommon>
	IF	R#<rare329>, @hooked329
	IF	R#<rare324>, @hooked324
	GOTO	@hooked323
@bitecheck23
	SET	rare324, 12
	SET	rare327, 9
	SET	rare329, 5
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare324, #<fishcommon>
	ADD	rare327, #<fishcommon>
	ADD	rare329, #<fishcommon>
	IF	R#<rare329>, @hooked329
	IF	R#<rare327>, @hooked327
	IF	R#<rare324>, @hooked324
	GOTO	@hooked323
@bitecheck24
	SET	rare324, 12
	SET	rare325, 10
	SET	rare329, 5
	SET	rare334, 7
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare324, #<fishcommon>
	ADD rare325, #<fishcommon>
	ADD	rare329, #<fishcommon>
	ADD	rare334, #<fishcommon>
	IF	R#<rare329>, @hooked329
	IF	R#<rare334>, @hooked334
	IF	R#<rare325>, @hooked325
	IF	R#<rare324>, @hooked324
	GOTO	@hooked323
@bitecheck31
	SET	rare330, 13
	SET	rare333, 17
	SET	rare336, 15
	SET	rare337, 7
	SET	rare339, 11
	SET	rare341, 3 
	DIV	movepen, 2	
	SUB	fishcommon, #<movepen>
	ADD	rare330, #<fishcommon>
	ADD	rare333, #<fishcommon>
	ADD	rare336, #<fishcommon>
	ADD	rare337, #<fishcommon>
	ADD	rare339, #<fishcommon>
	ADD	rare341, #<fishcommon>
	IF	R#<rare341>, @hooked341
	IF	R#<rare337>, @hooked337
	IF	R#<rare339>, @hooked339
	IF	R#<rare330>, @hooked330
	IF	R#<rare336>, @hooked336
	IF	R#<rare333>, @hooked333
	GOTO	@hooked323
@bitecheck32
	SET	rare332, 5
	SET	rare333, 17
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare332, #<fishcommon>
	ADD	rare333, #<fishcommon>
	IF	R#<rare332>, @hooked332
	IF	R#<rare333>, @hooked333
	GOTO	@hooked323
@bitecheck33
	SET	rare333, 17
	SET	rare336, 15
	SET	rare337, 7
	SET	rare340, 9
	SET	rare343, 1
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare333, #<fishcommon>
	ADD	rare336, #<fishcommon>
	ADD	rare337, #<fishcommon>
	ADD	rare340, #<fishcommon>
	ADD	rare343, #<fishcommon>
	IF	R#<rare343>, @hooked343
	IF	R#<rare337>, @hooked337
	IF	R#<rare340>, @hooked340
	IF	R#<rare336>, @hooked336
	IF	R#<rare333>, @hooked333
	GOTO	@hooked323
@bitecheck34
	SET	rare333, 17
	DIV	movepen, 2
	SUB	fishcommon, #<movepen>
	ADD	rare333, #<fishcommon>
	IF	R#<rare333>, @hooked333
	GOTO	@hooked323
@hookedmessage
	N: What will you do now?
	GOTO	@hookedmenu
@hooked323
	SET	fishid, 323
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET	fishpower, 8
	GOTO	@hookedmessage
@hooked324
	SET	fishid, 324
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET	fishpower, 13
	GOTO	@hookedmessage
@hooked325
	SET	fishid, 325
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 14
	GOTO	@hookedmessage
@hooked326
	SET	fishid, 326
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 14
	GOTO	@hookedmessage
@hooked327
	SET	fishid, 327
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 15
	GOTO	@hookedmessage
@hooked328
	SET	fishid, 328
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 13
	GOTO	@hookedmessage
@hooked329
	SET	fishid, 329
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 17
	GOTO	@hookedmessage
@hooked330
	SET	fishid, 330
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 13
	GOTO	@hookedmessage
@hooked331
	SET	fishid, 331
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 17
	GOTO	@hookedmessage
@hooked332
	SET	fishid, 332
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 17
	GOTO	@hookedmessage
@hooked333
	SET	fishid, 333
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 10
	GOTO	@hookedmessage
@hooked334
	SET	fishid, 334
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 16
	GOTO	@hookedmessage
@hooked335
	SET	fishid, 335
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 11
	GOTO	@hookedmessage
@hooked336
	SET	fishid, 325
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 12
	GOTO	@hookedmessage
@hooked337
	SET	fishid, 337
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 16
	GOTO	@hookedmessage
@hooked338
	SET	fishid, 338
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 16
	GOTO	@hookedmessage
@hooked339
	SET	fishid, 339
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 14
	GOTO	@hookedmessage
@hooked340
	SET	fishid, 340
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 15
	GOTO	@hookedmessage
@hooked341
	SET	fishid, 341
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 20
	GOTO	@hookedmessage
@hooked342
	SET	fishid, 342
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 20
	GOTO	@hookedmessage
@hooked343
	SET	fishid, 343
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 30
	GOTO	@hookedmessage
@hooked344
	SET	fishid, 344
	SET	item.id, #<fishid>
	SET	fishname, #<item.name>
	SET fishpower, 16
	GOTO	@hookedmessage
@hookedreel
	SUB	fishdistance, #<reelpwr>
	COMPARE #<fishdistance>, 1
	WAIT	2
	N: You reel in with all your might...
	IF<	@fishcaught
	MOVE	1, #<fishdistance>, 90
	GOTO	@fishturn
@fishcaught
	WAIT	3
	N: Congratulations, you caught a %I#<fishid>!
	MOVE	1, -50,  -50, 1
	HOST_GIVE	I#<item.id>
	WAIT	3
	N: What would you like to do?
	GOTO	@setupmenu
@fishturn
	IF	R10, @fishturn3
	COMPARE	#<gripbuff>, 1
	IF=	@fishturn2
	ADD	fishdistance, %R4
@fishturn2
	WAIT	3
	N: The fish struggles right back!
	SET	gripbuff, 0
	MOVE	1, #<fishdistance>, 90
	SET	fishatk, #<fishpower>
	ADD	fishatk, %R#<fishpower>
	MUL	fishatk, #<powermulti>
	SET	powermulti, 2
	SUB	roddura, #<fishatk>
	COMPARE	#<roddura>, 1
	IF<	@giveupyes
	COMPARE	#<roddura>, #<roddura2>
	IF<	@condition2
	GOTO	@hookedmenu2
@fishturn3
	WAIT	3
	N: The fish leaps out of the water for a brief moment!
	N: Will something big happen soon?
	ADD	powermulti, 3
	GOTO	@hookedmenu2
@condition2
	COMPARE	#<roddura>, #<roddura3>
	IF<	@condition3
	SET	conditionname, "Caution"
	SET	conditioncounter, 2
	GOTO	@hookedmenu2
@condition3
	SET	conditionname, "DANGER"
	SET	conditioncounter, 3
	GOTO	@hookedmenu2
@nocast
	N: Unable to cast. Equip a rod and/or lure first.
	WAIT	2
	GOTO	@setupmenu
@unhookedgiveup
	WAIT	2
	N: Giving up and returning to main fishing menu.
@unhookedgiveup2
	WAIT	2
	MOVE	1, -50, -50, 1
	GOTO	@setupmenu
@hookedgiveup
	WAIT	2
	N: Would you like to give up on this fish?
	N: Note: You will lose your currently equipped lure!
	WAIT
@giveupmenu
	MENU	"Yes=@giveupyes", "No=@hookedmenu2"
	GOTO	@giveupmenu
@giveupyes
	MOVE	1, -50, -50, 1
	N: The fish got away with your lure!
	IF	I#<lureid>, @resetlure
	SET	lureid, 0
	SET	lurebite, 0
	SET	lurerare, 0
	SET	lureclass, 0
	SET	lurename, None
	GOTO	@setupmenu
@resetlure
	WAIT	2
	N: You set another one of your #<lurename> on your hook.
	HOST_TAKE	I#<lureid>
	GOTO	@setupmenu
@unhookedtech
	MENU	"Line Condition: #<conditionname>   Tech Points: #<rodtech>=@unhookedtech", "Wiggle the Line (Cost: 4)=@technique101", "Alluring Motion (Cost: 5)=@technique102", "Enticing Motion(Cost: 3)=@technique103", "Back=@unhookedmenu2"
	GOTO	@unhookedtech
@technique101
	SET	techid, 101
	SET	hooked, "unhooked"
	WAIT	2
	N: Wiggle the Line
	N: Tech Point cost: 4
	WAIT	2
	N: Attempts to get a bite without reeling in.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique102
	SET	techid, 102
	SET	hooked, "unhooked"
	WAIT	2
	N: Alluring Motion
	N: Tech Point cost: 5
	WAIT	2
	N:	Reels in with an enhanced chance of getting a bite.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique103
	SET	techid, 103
	SET	hooked, "unhooked"
	WAIT	2
	N: Enticing Motion
	N: Tech Point cost: 3
	WAIT	2
	N: Reels in. If you get a bite, increases the fish's rarity.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique201
	SET	techid, 201
	SET	hooked, "hooked"
	WAIT	2
	N: Coated Line
	N: Tech Point cost: 7
	WAIT	2
	N: Increases the durability of your Rod's line and will reduce the chance of it breaking.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique202
	SET	techid, 202
	SET	hooked, "hooked"
	WAIT	2
	N: Firm Grip
	N: Tech Point cost: 2
	WAIT	2
	N: Reels in and prevents the fish on the line from pulling the line this turn.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique203
	SET	techid, 203
	SET	hooked, "hooked"
	WAIT	2
	N: Defensive Maneuvers
	N: Tech Point cost: 3
	WAIT	2
	N: Reels in and reduces the amount of damage the fish does to the line.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique204
	SET	techid, 204
	SET	hooked, "hooked"
	WAIT	2
	N: Steady Grip
	N: Tech Point cost: 6
	WAIT	2
	N: Unable to reel in this turn. Reduces the damage dealt to the line to 0.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique205
	SET	techid, 205
	SET	hooked, "hooked"
	WAIT	2
	N: Give Some Line
	N: Tech Point cost: 0
	WAIT	2
	N: Allows the fish to pull away with the line, boosting your available tech points.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique206
	SET	techid, 206
	SET	hooked, "hooked"
	WAIT	2
	N: Offensive Maneuvers
	N: Tech Point cost: 4
	WAIT	2
	N: Boosts the amount reeled in while also boosting the damage the fish does to your line.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@technique207
	SET	techid, 207
	SET	hooked, "hooked"
	WAIT	2
	N: Release
	N: Tech Point cost: 15
	WAIT	2
	N: Ends fishing early, but allows you to keep your lure.
	WAIT	2
	N: Do you want to use this technique?
	GOTO	@techconfirm
@techconfirm
	MENU	"Yes=@usetech#<techid>", "No=@#<hooked>tech"
	GOTO	@techconfirm
@usetech101
	COMPARE	#<rodtech>, 4
	IF<	@notechpoint
	WAIT	3
	N: Used Wiggle the Line!
	SUB rodtech, 4
	IF	R#<bitechance>, @hookedcheck
	WAIT	3
	N: Nothing seems to be biting...
	GOTO	@unhookedmenu
@usetech102
	COMPARE	#<rodtech>, 5
	IF<	@notechpoint
	WAIT	3
	N: Used Alluring Motion!
	SUB	rodtech, 5
	ADD	movecounter, 1	
	ADD	movepen, #<movecounter>
	ADD	bitechance, 10
	WAIT	2
	N:	Chance to get a bite increased! Reeling in now...
	GOTO	@unhookedreel
@usetech103
	COMPARE	#<rodtech>, 3
	IF<	@notechpoint
	N: Used Enticing Motion!
	SUB	rodtech, 3
	ADD	movecounter, 1	
	ADD	movepen, #<movecounter>
	ADD	fishcommon, 20
	WAIT	2
	N: Chance to hook a rare fish increased! Reeling in now...
	GOTO	@unhookedreel
@usetech201
	COMPARE	#<rodtech>, 7
	IF<	@notechpoint
	SUB	rodtech, 7
	N: Used Coated Line!
	ADD	roddura, 80
	WAIT	1
	N: Your line is now protected with a strong coating!
	GOTO	@hookedreel
@usetech202
	COMPARE #<rodtech>, 2
	IF<	@notechpoint
	SUB	rodtech, 2
	N: Used Firm Grip!
	SET	gripbuff, 1
	WAIT	1
	N: The hooked fish won't move the line this turn! Reeling in now...
	GOTO	@hookedreel
@usetech203
	COMPARE	#<rodtech>, 3
	IF<	@notechpoint
	SUB	rodtech, 3
	N: Used Defensive Maneuvers!
	SUB	powermulti, 1
	WAIT	1
	N: The hooked fish will deal less damage to the line! Reeling in now...
	GOTO	@hookedreel
@usetech204
	COMPARE	#<rodtech>, 6
	IF<	@notechpoint
	SUB	rodtech, 3
	N: Used Steady Grip!
	WAIT	1
	SET	powermulti, 0
	N: The hooked fish will deal no damage to the line!
	WAIT	2
	GOTO	@fishturn
@usetech205
	N:	Used Give Some Line!
	ADD	rodtech, 4
	WAIT	1
	N: Gave the hooked fish some line to rest yourself a bit!
	ADD	fishdistance, 15
	MOVE	1, #<fishdistance>, 90
	WAIT	2
	GOTO	@fishturn
@usetech206
	COMPARE	#<rodtech>, 4
	IF<	@notechpoint
	SUB	rodtech, 4
	N: Used Offensive Maneuvers!
	WAIT	1
	ADD	powermulti, 1
	ADD	reelpwr, 9
	N: Reeling distance is increased as well as damage to the rod! Reeling in now...
	WAIT	2
	GOTO	@hookedreel
@usetech207
	COMPARE	#<rodtech>, 15
	IF<	@notechpoint
	SUB	rodtech, 15
	SET	isfishing, 0
	N: Used Release!
	WAIT	1
	N: The fish has been released and your lure retained!
	GOTO	@unhookedgiveup2
@notechpoint
	WAIT	3
	N: Not enough Tech Points to use the technique.
	WAIT	2
	GOTO	@#<hooked>tech


SCENE	218, Kitchen, SCENE,	"Fishing Enthusiast"
ACTOR	1, "Chapman", npcs2, 4, 17, 71
	IF	T220, @fishinit
	SET rodid, 0
	SET lureid, 0
	SET rodname, "None"
	SET lurename, "None"
	SET rodhp, 0
	SET	rodfp, 0
	1: You there!
	H: Me?
	1: Not another word! I can see it in your eyes.
	1: You, my friend... Were BORN TO FISH!
	1: Take this rod, and these really gross, wriggling worms...
	1: And fulfill your destiny... Like only a true fisher#<g.man> can!
	WAIT	3
	N: Received a Basic Rod!
	WAIT	3
	N: Received 5 Worms!
	HOST_GIVE	T220
	HOST_GIVE	I362
	HOST_GIVE	I345.5
	1: If you'd like to buy any supplies to keep fishing, I have everything you'll need!
	OFFER	345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 362, 363, 364, 365, 366, 367
	END

@fishinit
	1: Ah, welcome! I knew you'd be back!
	1: I have all the fishing supplies you'll need, right here.
	OFFER	345, 346, 347, 348, 349, 350, 351, 352, 353, 354, 355, 356, 357, 358, 359, 360, 362, 363, 364, 365, 366, 367
	END

; -----REMOVE BEFORE FINAL RELEASE------
;@eventactorclick1
;	N: Beta feature: resetting fishing initialization in 10 seconds
;	WAIT 10
;	HOST_TAKE	T220
;	GOTO EXIT

;This is the comment for the end of the file, for I fear the wrath of the old bug.
;If that old bug will smite cabbage, he'll sure as heck smite me, so I'd best be careful.