SCENE 6017
#include banthing.txt
ACTOR 1, "Guard", paladin, 2, 25, 90,
IF T918, @takeee
1: Hello. I advise you leave now.
H: I just arrived. Why should I leave?
1: No one comes near the Cleft of the Dead, that's why.
H: Why is that?
1: None who venture there return.
H: ..And why is that?
1: It's crawling with Undead. The mean sort.
1: Many adventurers have tried their luck.
1: Some say this is the graveyard for some kingdom
1: long forgotten.
1: It fell through the ground in an earthquake long time ago.
H: Sure I can't enter?
1: Hmmm..
IF -V99, @no
1: Well, I suppose so.
1: There's a rope there, just behind me.
1: I can set it ready for you.
1: However, it's not long enough.
1: You have to jump the rest of the way.
1: You can't get back once you're in.
1: Unless you use a portal scroll.
1: So be sure you have some with you!
1: And I wouldn't advise going in alone.
1: Actually, only a fool would.
MOVE 1, 60, 70
1: Here's the rope.
WAIT 4
N: You climb to the depths of the Cleft of the Dead.
WAIT 2
GOTO LINK 71,0
END
@no
1: Nope. You are not experienced enough.
1: Just go away before you get hurt..
END
@takeee
TAKE T913
TAKE T914
TAKE T915
TAKE T916
TAKE T917
TAKE T918
END

SCENE 6018
#include banthing.txt
ACTOR 1, "Queek", queek, 1, 25, 90,
IF C1, @gatefight2
IF C2, @gatefight2
IF C4, @gatefight2
IF C6, @gatefight2
IF C18, @gatefight2
IF C19, @gatefight2
IF C22, @gatefight2
IF C30, @gatefight2
IF C32, @gatefight2
IF T920, @wha
1: What you be doing here, manthing..
1: You so dead, you knows?
H: What in the blazes did you do here!?
1: The-the normal. Killed everyone, 
1: corrupted the ground with warpstone,
1: burned everything down.
H: You.. MONSTER!
1: That offends-offends me. You are dead.
1: Warpstone-hounds!
THEME 53
FIGHT 435, 435, 435, 435, 435,
THEME 58
IF WON, @angry
END
@gatefight2
1: Welcomes Skaven.
1: This one of the-the greatest achievements of mine.
1: See how well razed town?
1: I am proud of-of myself.
H: And you has a reason to be, too, boss-boss!
END
@angry
THEME 58
1: RRAAH!!
1: You kills my pretty shiny doggies!
1: Your times to die!
1: Packmaster! Glowie! To arms, friends!
GOTO SCENE 6019
END
SCENE 6019
THEME 62
FIGHT 436, 437, 438,
IF WON, @oho
THEME 70
END
@oho
THEME 71
GIVE I240
N: received %I240!
N: Oww, that hurt. But I'll be back, louzy human.
H: Queek is down.. For now.
END
@wha
1: What? Taken down Valorfist?
1: Admirable, admirable!
1: Takes this gold, uses well.
HOST_TAKE T920
HOST_GIVE G500000
N: You receive 500 000 gold!
N: You can now fight Valorfist again.
END

SCENE 6020
#include banthing.txt
ACTOR 1, "Alliance Commander Valorfist", silverknight, 1, 25, 90, 6
IF C1, @gatefight2
IF C2, @gatefight2
IF C4, @gatefight2
IF C6, @gatefight2
IF C18, @gatefight2
IF C19, @gatefight2
IF C22, @gatefight2
IF C30, @gatefight2
IF C32, @gatefight2
IF T919, @wow
1: Welcome to the Alliance war camp.
1: Here we plan the attacks against the foul Skaven.
END
@gatefight2
1: What the..?!
1: What is a Skaven like you doing here?
1: Well, it was an error..
1: To overestimate the intelligence of your kind.
1: Prepare to die!
1: To arms, men!
THEME 53
FIGHT 440, 440, 440, 440, 440
IF WON, @wha
THEME 68
END
@wha
THEME 68
1: So, you took down a few of my men.
1: Well, now you have to face me.
GOTO SCENE 6021
END
SCENE 6021
THEME 62
FIGHT 441, 442, 443,
IF WON, @oho
THEME 70
END
@oho
THEME 71
GIVE I240
N: received %I240!
N: The Alliance commander is down, for now.
END
@wow
1: What!? You have taken down Queek!?
1: Here, take this money!
1: You certainly deserve it!
HOST_TAKE T919
HOST_GIVE G500000
N: received 500 000 gold!
N: You can now fight Queek again.
END

SCENE 6022
#include banthing.txt
IF T913, @no
ACTOR 1, "Gatekeeper Arrax", skeletalwarrior, 1, 25, 90,
1: You shall not pass deeper to the Cleft.
1: You shall not defile the land of the dead!
WAIT 2
GOTO SCENE 6023
END
@no
N: Nothing here anymore..
WAIT 2
GOTO LINK 72, 0
END
SCENE 6023
THEME 53
FIGHT 444, 444, 451, 
IF WON, @miracle
THEME 70
END
@miracle
THEME 71
GIVE T913
GIVE I242
N: received %I242!
WAIT 2
GOTO LINK 72, 0
END

SCENE 6024
#include banthing.txt
IF T914, @nou
ACTOR 1, "Sitter Beslynn", lich, 1, 25, 90, 2
1: What are you doing here!?
1: Come to disturb the council?
1: Living ones are not allowed to leave here.. Alive!
WAIT 2
GOTO SCENE 6025
END
@nou
N: Nothing here anymore..
END
SCENE 6025
THEME 52
FIGHT 452, 444, 444, 444,
IF WON, @mirac
THEME 70
END
@mirac
THEME 71
GIVE T914
COMPARE %R3, 1
IF= @joq
GIVE I242
N: received %I242!
END 
@joq
GIVE I243
N: received %I243!
GIVE I242
N: received %I242!
END 


SCENE 6026
#include banthing.txt
IF T915, @nouz
ACTOR 1, "Sitter Zadrax", lich, 1, 25, 90, 2
1: What are you doing here!?
1: Living ones shall die!
1: Join us...
WAIT 2
GOTO SCENE 6027
END
@nouz
N: Nothing here anymore..
END
SCENE 6027
THEME 52
FIGHT 453, 444, 444, 444,
IF WON, @mir
THEME 70
END
@mir
THEME 71
GIVE T915
COMPARE %R3, 1
IF= @joq2
GIVE I242
N: received %I242!
END
@joq2
GIVE I244
N: received %I244
GIVE I242
N: received %I242!
END


SCENE 6028
#include banthing.txt
IF T916, @nod
ACTOR 1, "Sitter Ragefist", lich, 1, 25, 90, 2
1: Living ones in the Hall of Sitters!?
1: I am the leader of this Council.
1: You are not allowed to just barge in
1: and leave alive. You do know this.
1: Now you must.. DIEE!
WAIT 2
GOTO SCENE 6029
END
@nod
N: Nothing here anymore..
END
SCENE 6029
THEME 52
FIGHT 454, 444, 444, 444,
IF WON, @mi
THEME 70
END
@mi
THEME 71
GIVE T916
COMPARE %R3, 1
IF= @rage
GIVE I241
N: received %I241!
END
@rage
GIVE I245
N: received %I245!
GIVE I241
N: received %I241!
END

SCENE 6030
#include banthing.txt
IF T917, @nozz
ACTOR 1, "Keeper Frostwhisper", skeletalwarrior, 1, 25, 90, 2
1: What are you doing in the Lost Library..
1: You have no business here..
1: Oh, wait, living ones!
1: Finally I get to do something!
1: Well, apart from dusting, anyways.
1: Prepare to meet your doom!
WAIT 2
GOTO SCENE 6031
END
@nozz
N: Nothing here anymore..
END
SCENE 6031
THEME 52
FIGHT 455, 444, 446,
IF WON, @pla
THEME 70
END
@pla
THEME 71
GIVE T917
COMPARE %R3, 1
IF= @joq3
GIVE I242
N: received %I242!
END
@joq3
GIVE I1293
N: received %I1293!
GIVE I242
N: received %I242!
END

SCENE 6032
#include banthing.txt
IF 918, @jees
H: It is so quiet here..
H: This seems to be the throne of a..
WAIT 2
N: A king.. A dead king.. A spirit..
WAIT 2
H: Who said that!?
WAIT 2
N: You shall not take my throne!
WAIT 3
GOTO SCENE 6033
END
@jees
N: You have survived through the dungeon, victorious.
WAIT 3
N: You'll be teleported to the surface now.
WAIT 3
N: You must do this to be able to recomplete the dungeon.
WAIT 3
GOTO LINK 63, 4
END
SCENE 6033
THEME 62
FIGHT 456, 447, 447, 447,
IF WON, @whoa
THEME 70
END
@whoa
THEME 71
GIVE T918
COMPARE %R3, 1
IF= @woih
N: You did not get any special items.
GIVE I241
N: received %I241!
GIVE I242
N: received %I242!
WAIT 2
N: You have survived through the dungeon, victorious.
WAIT 3
N: You'll be teleported to the surface now.
WAIT 3
N: You must do this to be able to recomplete the dungeon.
WAIT 3
GOTO LINK 63, 4
END
@woih
COMPARE %R2, 1
IF= @kilpi
GIVE I1288
N: received %I1288!
WAIT 2
GIVE I241
N: received %I241!
GIVE I242
N: received %I242!
@jees
N: You have survived through the dungeon, victorious.
WAIT 3
N: You'll be teleported to the surface now.
WAIT 3
N: You must do this to be able to recomplete the dungeon.
WAIT 3
GOTO LINK 63, 4
END
@kilpi
GIVE I1289
N: received %I1289!
WAIT 2
GIVE I241
N: received %I241!
GIVE I242
N: received %I242!
@jees
N: You have survived through the dungeon, victorious.
WAIT 3
N: You'll be teleported to the surface now.
WAIT 3
N: You must do this to be able to recomplete the dungeon.
WAIT 3
GOTO LINK 63, 4
END

SCENE 6040
#include banthing.txt
ACTOR 1, "Alliance Quartermaster", armedmerchant, 1, 25, 90,
1: You can change your tokens for good equipment here.
1: Alternatively, you can pick "gold" items with high value.
WAIT 3
MENU "Belt of Evasion=@boe", "Golden Token=@got", "Officer's Chainmail=@oc", "Shattering Blade=@sb"
END
@boe
1: This item (Belt of Evasion) will cost you one of the following:
1: 1x %I240
1: 2x %I241
1: 5x %I242
WAIT 2
1: Choose your payment method.
MENU "1x Token of Valor=@vt", "2x Token of Glory=@ht", "5x Token of Honor=@gt"
END
@vt
COMPARE #<num.item240>, 0
IF> @vt2
1: You do not have enough Tokens.
END
@ht
COMPARE #<num.item241>, 1
IF> @ht2
1: You do not have enough Tokens.
END
@gt
COMPARE #<num.item242>, 4
IF> @gt2
1: You do not have enough Tokens.
END
@vt2
HOST_TAKE I240
HOST_GIVE I1294
N: received %I1294!
N: Lost %I240.
END
@ht2
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1294
N: received %I1294!
N: Lost 2x %I241.
END
@gt2
HOST_GIVE I1294
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
N: received %I1294!
N: Lost 5x %I242.
END


@got
1: This item (Golden Token) will cost you one of the following:
1: 1x %I240, you get 2 Golden Tokens
1: 1x %I241, you get 1 Golden Token
1: 5x %I242, you get 2 Golden Tokens
WAIT 2
1: Choose your payment method.
MENU "1x Token of Valor=@vt7", "1x Token of Glory=@ht7", "5x Token of Honor=@gt7"
END
@vt7
COMPARE #<num.item240>, 0
IF> @vt8
1: You do not have enough Tokens.
END
@ht7
COMPARE #<num.item241>, 0
IF> @ht8
1: You do not have enough Tokens.
END
@gt7
COMPARE #<num.item242>, 4
IF> @gt8
1: You do not have enough Tokens.
END
@vt8
HOST_TAKE I240
HOST_GIVE I1295
HOST_GIVE I1295
N: received 2x %I1295!
N: Lost %I240.
END
@ht8
HOST_TAKE I241
HOST_GIVE I1295
N: received %I1295!
N: Lost %I241.
END
@gt8
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1295
HOST_GIVE I1295
N: received 2x %I1295!
N: Lost 5x %I242.
END

@oc
1: This item (Officer's Chainmail) will cost you one of the following:
1: 2x %I240
1: 4x %I241
1: 10x %I242
WAIT 2
1: Choose your payment method.
MENU "2x Token of Valor=@vt5", "4x Token of Glory=@ht5", "10x Token of Honor=@gt5"
END
@vt5
COMPARE #<num.item240>, 1
IF> @vt6
1: You do not have enough Tokens.
END
@ht5
COMPARE #<num.item241>, 3
IF> @ht6
1: You do not have enough Tokens.
END
@gt5
COMPARE #<num.item242>, 9
IF> @gt6
1: You do not have enough Tokens.
END
@vt6
HOST_TAKE I240
HOST_TAKE I240
HOST_GIVE I1296
N: received %I1296!
N: Lost 2x %I240.
END
@ht6
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1296
N: received %I1296!
N: Lost 4x %I241.
END
@gt6
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1296
N: received %I1296!
N: Lost 10x %I242.
END

@sb
1: This item (Shattering Blade) will cost you one of the following:
1: 2x %I240
1: 4x %I241
1: 10x %I242
WAIT 2
1: Choose your payment method.
MENU "2x Token of Valor=@vt3", "4x Token of Glory=@ht3", "10x Token of Honor=@gt3"
END
@vt3
COMPARE #<num.item240>, 1
IF> @vt4
1: You do not have enough Tokens.
END
@ht3
COMPARE #<num.item241>, 3
IF> @ht4
1: You do not have enough Tokens.
END
@gt3
COMPARE #<num.item242>, 9
IF> @gt4
1: You do not have enough Tokens.
END
@vt4
HOST_TAKE I240
HOST_TAKE I240
HOST_GIVE I1302
N: received %I1302!
N: Lost 2x %I240.
END
@ht4
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1302
N: received %I1302!
N: Lost 4x %I241.
END
@gt4
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1302
N: received %I1302!
N: Lost 10x %I242.
END

SCENE 6041
#include banthing.txt
ACTOR 1, "Skaven Quartermaster", skaven3, 1, 25, 90,
1: You can-can change yours tokens for good equipment here.
1: Alternatively, you can-can pick "gold" items with high value.
WAIT 3
MENU "Belt of Evasion=@boe", "Golden Token=@got", "Officer's Chainmail=@oc", "Shattering Blade=@sb"
END
@boe
1: This item (Belt of Evasion) will cost you one of the following:
1: 1x %I240
1: 2x %I241
1: 5x %I242
WAIT 2
1: Choose your payment method.
MENU "1x Token of Valor=@vt", "2x Token of Glory=@ht", "5x Token of Honor=@gt"
END
@vt
COMPARE #<num.item240>, 0
IF> @vt2
1: You do not have enough Tokens.
END
@ht
COMPARE #<num.item241>, 1
IF> @ht2
1: You do not have enough Tokens.
END
@gt
COMPARE #<num.item242>, 4
IF> @gt2
1: You do not have enough Tokens.
END
@vt2
HOST_TAKE I240
HOST_GIVE I1294
N: received %I1294!
N: Lost %I240.
END
@ht2
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1294
N: received %I1294!
N: Lost 2x %I241.
END
@gt2
HOST_GIVE I1294
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I242
N: received %I1294!
N: Lost 5x %I242.
END


@got
1: This item (Golden Token) will cost you one of the following:
1: 1x %I240, you get 2 Golden Tokens
1: 1x %I241, you get 1 Golden Token
1: 5x %I242, you get 2 Golden Tokens
WAIT 2
1: Choose your payment method.
MENU "1x Token of Valor=@vt7", "1x Token of Glory=@ht7", "5x Token of Honor=@gt7"
END
@vt7
COMPARE #<num.item240>, 0
IF> @vt8
1: You do not have enough Tokens.
END
@ht7
COMPARE #<num.item241>, 0
IF> @ht8
1: You do not have enough Tokens.
END
@gt7
COMPARE #<num.item242>, 4
IF> @gt8
1: You do not have enough Tokens.
END
@vt8
HOST_TAKE I240
HOST_GIVE I1295
HOST_GIVE I1295
N: received 2x %I1295!
N: Lost %I240.
END
@ht8
HOST_TAKE I241
HOST_GIVE I1295
N: received %I1295!
N: Lost %I241.
END
@gt8
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1295
HOST_GIVE I1295
N: received 2x %I1295!
N: Lost 5x %I242.
END

@oc
1: This item (Officer's Chainmail) will cost you one of the following:
1: 2x %I240
1: 4x %I241
1: 10x %I242
WAIT 2
1: Choose your payment method.
MENU "2x Token of Valor=@vt5", "4x Token of Glory=@ht5", "10x Token of Honor=@gt5"
END
@vt5
COMPARE #<num.item240>, 1
IF> @vt6
1: You do not have enough Tokens.
END
@ht5
COMPARE #<num.item241>, 3
IF> @ht6
1: You do not have enough Tokens.
END
@gt5
COMPARE #<num.item242>, 9
IF> @gt6
1: You do not have enough Tokens.
END
@vt6
HOST_TAKE I240
HOST_TAKE I240
HOST_GIVE I1296
N: received %I1296!
N: Lost 2x %I240.
END
@ht6
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1296
N: received %I1296!
N: Lost 4x %I241.
END
@gt6
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1296
N: received %I1296!
N: Lost 10x %I242.
END

@sb
1: This item (Shattering Blade) will cost you one of the following:
1: 2x %I240
1: 4x %I241
1: 10x %I242
WAIT 2
1: Choose your payment method.
MENU "2x Token of Valor=@vt3", "4x Token of Glory=@ht3", "10x Token of Honor=@gt3"
END
@vt3
COMPARE #<num.item240>, 1
IF> @vt4
1: You do not have enough Tokens.
END
@ht3
COMPARE #<num.item241>, 3
IF> @ht4
1: You do not have enough Tokens.
END
@gt3
COMPARE #<num.item242>, 9
IF> @gt4
1: You do not have enough Tokens.
END
@vt4
HOST_TAKE I240
HOST_TAKE I240
HOST_GIVE I1302
N: received %I1302!
N: Lost 2x %I240.
END
@ht4
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_TAKE I241
HOST_GIVE I1302
N: received %I1302!
N: Lost 4x %I241.
END
@gt4
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_TAKE I242
HOST_GIVE I1302
N: received %I1302!
N: Lost 10x %I242.
END

SCENE 6042
#include banthing.txt
IF C1, @sk
IF C2, @sk
IF C4, @sk
IF C6, @sk
IF C18, @sk
IF C19, @sk
IF C22, @sk
IF C30, @sk
IF C32, @sk
ACTOR 1, "Alliance Warrior", silverknight, 1, 25, 90,
ACTOR 2, "Mercenary", army2foot, 4, 25, 65,
ACTOR 3, "Alliance Mage", drowmage, 1, 40, 80,
1: Greetings, ally.
1: This is the tunnel that leads to the Worldspine Valley.
1: It's a place of continuous battle between the Skaven and the Alliance.
1: If you wish to help us, you must be atleast lvl 99.
2: Only then can you enter the Valley.
3: You can enter only one by one..
1: But your friends can join you once inside.
IF V99, @go
2: You're too inexperienced to enter.
END
@go
1: You're experienced enough.
1: Do you wish to enter?
ASK 30
IF Qyes, @e
END
@e
COMPARE #<num.PeopleInScene>, "1"
IF> @tomany
GOTO LINK 78, 1
END
@tomany
1: Only one person may enter at a time!
END
@sk
ACTOR 1, "Skaven Warrior", skaven1, 1, 25, 90,
ACTOR 2, "Skaven Warlock", skaven2, 1, 25, 65,
ACTOR 3, "Skaven Monk", skaven3, 1, 40, 80,
1: Greetings-greetings, ally.
1: This is the tunnel that leads to the World-world-spine Valley.
1: It's a place of a continuous struggle between the Skaven and the Alliance.
1: If-if you wish to help us-us, you must be atleast lvl 99.
2: Only then can you enter the Valley.
3: You can enter only 1 by one..
1: But your friends can join you once inside.
IF V99, @go2
2: You're too inexperienced to-to enter.
END
@go2
1: You're experienced enough-enough.
1: Do you wish to enter?
ASK 30
IF Qyes, @e2
END
@e2
COMPARE #<num.PeopleInScene>, "1"
IF> @tomany2
GOTO LINK 78, 0
END
@tomany2
1: Only one person may enter at a time!
END

;Worldspine Valley

SCENE 6043
#include banthing.txt
ACTOR 1, "Knight Captain", silverknight, 1, 25, 90,
;togsut 1000-1009
IF T1009, @wb
IF T1008, @wb2
IF T1007, @wb3
IF T1006, @wb4
IF T950, @cheky
1: Hello, recruit.
1: You must be one of the new recruits.
1: You will have many chances to prove your bravery.
1: Every time you come here, I will check your bravery.
1: You will gain ranks according to your bravery.
1: With higher ranks you can buy some special equip from our Quartermaster.
HOST_GIVE T950
@cheky
COMPARE #<num.hostBravery>, 0
IF<, @rank0
COMPARE #<num.hostBravery>, 0
IF>, @rank1
END
@wb
1: Welcome back, Field Marshal!
END
@wb2
1: Welcome back, Commander.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kc3
END
@wb3
1: Welcome back, Lieutenant Commander.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kc2
END
@wb4
1: Welcome back, Knight-Champion.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kc
END
@nobrave
1: You are not brave enough to be awarded just yet.
END
@rank1
COMPARE #<num.hostBravery>, 1000
IF>, @rank2
1: While you are not *very* brave,
1: you still have had to fight..
1: You are now a Private (positive amount of bravery)
HOST_GIVE T1000
HOST_TAKE T1002
HOST_TAKE T1001
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank0
1: My my, a coward. (negative amount of bravery)
END
@rank2
COMPARE #<num.hostBravery>, 2200
IF>, @rank3
1: Hmm, not bad. From now on you will be known as..
1: Corporal.
HOST_GIVE T1001
HOST_TAKE T1000
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank3
COMPARE #<num.hostBravery>, 4000
IF>, @rank4
1: Mmh, a bit braver than normal soldier, I'd say.
1: You are fit to become.. Sergeant!
HOST_GIVE T1002
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank4
COMPARE #<num.hostBravery>, 6200
IF>, @rank5
1: You are quite brave, but there is still more to achieve.
1: You are now a Master Sergeant.
HOST_GIVE T1003
HOST_TAKE T1000
HOST_TAKE T1002
HOST_TAKE T1001
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank5
COMPARE #<num.hostBravery>, 9000
IF>, @rank6
1: Wow, you are certainly an experienced and brave warrior.
1: You are now a Sergeant Major.
HOST_GIVE T1004
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank6
COMPARE #<num.hostBravery>, 12000
IF>, @rank7
1: You are experienced enough to become a Knight-Lieutenant.
HOST_GIVE T1005
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
END
@rank7
@kc
COMPARE #<num.hostBravery>, 16000
IF>, @rank8
IF T1006, @nobrave
1: Words of your deeds have carried here.
HOST_GIVE T1006
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1007
HOST_TAKE T1008
HOST_TAKE T1009
1: You are now known as Knight-Champion!
END
@rank8
@kc2
COMPARE #<num.hostBravery>, 20000
IF>, @rank9
IF T1007, @nobrave
1: You are certainly of leader quality!
HOST_GIVE T1007
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1008
HOST_TAKE T1009
1: You are henceforth known as Lieutenant Commander!
END
@rank9
@kc3
COMPARE #<num.hostBravery>, 25000
IF>, @rank10
IF T1008, @nobrave
1: You are a beacon of light, shining in the darkness!
1: You are now a Commander!
HOST_GIVE T1008
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1009
1: You only have 1 more rank to achieve.
END
@rank10
1: Outstanding! Very few have gotten to the last rank.
HOST_GIVE T1009
HOST_TAKE T1000
HOST_TAKE T1001
HOST_TAKE T1002
HOST_TAKE T1003
HOST_TAKE T1004
HOST_TAKE T1005
HOST_TAKE T1006
HOST_TAKE T1007
HOST_TAKE T1008
1: You are now a Field Marshal!
1: You can buy some good stuff when you return next time.
END

SCENE 6044
#include banthing.txt
ACTOR 1, "Stormvermin Captain", skaven1, 1, 65, 90, 24
;togsut 1010-1019
IF T1019, @wbs
IF T1018, @wbs2
IF T1017, @wbs3
IF T1016, @wbs4
IF T950, @chek
1: Greetings-greetings, recruit.
1: You must be one of the new-new recruits.
1: You will have many-many chances to prove your bravery.
1: Every time you come here, I will check your bravery.
1: You will gain ranks according to your bravery.
1: With higher ranks you can buy some special equip from our Quartermaster.
HOST_GIVE T950
@chek
COMPARE #<num.hostBravery>, 0
IF<, @rank0s
COMPARE #<num.hostBravery>, 0
IF>, @rank1s
END
@rank1s
COMPARE #<num.hostBravery>, 1000
IF>, @rank2s
1: While you are not *very* brave,
1: you still have had to fight..
1: You are now a Scout (positive amount of bravery)
HOST_GIVE T1010
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@wbs
1: Welcome back, Warlord!
END
@wbs2
1: Welcome back, Battle Commander.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kcs3
END
@wbs3
1: Welcome back, Stormvermin Commander.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kcs2
END
@wbs4
1: Welcome back, Stormvermin Champion.
1: I will check if you are brave enough to obtain
1: the next rank.
WAIT 2
GOTO @kcs
END
@nobraves
1: You are not brave enough to be awarded just yet.
END

@rank0s
1: My my, a cow-coward! (negative amount of bravery)
END
@rank2s
COMPARE #<num.hostBravery>, 2200
IF>, @rank3s
1: Hmm, not bad. From now on you will be known as..
1: Warrior.
HOST_GIVE T1011
HOST_TAKE T1010
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank3s
COMPARE #<num.hostBravery>, 4000
IF>, @rank4s
1: Mmh, a bit braver than normal soldier, I'd say.
1: You are fit to become.. Sergeant!
HOST_GIVE T1012
HOST_TAKE T1010
HOST_TAKE T1011
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank4s
COMPARE #<num.hostBravery>, 6200
IF>, @rank5s
1: You are quite brave, but there is still more to achieve.
1: You are now a Master Sergeant.
HOST_GIVE T1013
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1010
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank5s
COMPARE #<num.hostBravery>, 9000
IF>, @rank6s
1: Wow, you are certainly an experienced and brave warrior.
1: You are now a Sergeant Major.
HOST_GIVE T1014
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1010
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank6s
COMPARE #<num.hostBravery>, 12000
IF>, @rank7s
1: You are experienced enough to become an Stormvermin Lieutenant.
HOST_GIVE T1015
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1010
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank7s
@kcs
COMPARE #<num.hostBravery>, 16000
IF>, @rank8s
IF T1016, @nobraves
1: Words of your deeds have carried here.
1: You are now known as Stormvermin Champion!
HOST_GIVE T1016
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1010
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank8s
@kcs2
COMPARE #<num.hostBravery>, 20000
IF>, @rank9s
IF T1017, @nobraves
1: You are certainly of leader quality!
1: You are henceforth known as Stormvermin Commander!
HOST_GIVE T1017
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1010
HOST_TAKE T1018
HOST_TAKE T1019
END
@rank9s
@kcs3
COMPARE #<num.hostBravery>, 25000
IF>, @rank10s
IF T1018, @nobraves
1: You are a bane of the filthy manthings!
1: You are now a Battle Commander!
HOST_GIVE T1018
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1010
HOST_TAKE T1019
1: You only have 1 more rank to achieve.
END
@rank10s
1: Outstanding! Very few have gotten to the last rank.
1: You are now a Warlord!
HOST_GIVE T1019
HOST_TAKE T1011
HOST_TAKE T1012
HOST_TAKE T1013
HOST_TAKE T1014
HOST_TAKE T1015
HOST_TAKE T1016
HOST_TAKE T1017
HOST_TAKE T1018
HOST_TAKE T1010
END

SCENE 6045
#include banthing.txt
ACTOR 1, "Field Marshal Coldblood", blazingguard, 1, 25, 90, 24, 8
IF T1021, @complete
IF T1020, @check
1: Welcome. Now, some might care about your bravery..
1: I don't. I just want you to butcher Skaven.
1: It won't be a small task.
1: When you have killed 50 Plagueguards, return to me.
1: I will reward you with something nice.
HOST_GIVE T1020
END
@check
IF KM460.50, @rew
1: You still have not killed 50 Plagueguards.
END
@rew
1: Good job!
1: Here is your reward.
HOST_GIVE I241
HOST_GIVE T1021
HOST_GIVE G500000
N: You received %I241!
N: You received 500,000 gold!
END
@complete
1: You have done a great service to the Alliance.
END

SCENE 6046
#include banthing.txt
ACTOR 1, "Warlord Manbane", queek, 1, 65, 90, 24, 3
IF T1023, @complete
IF T1022, @check
1: Welcome. Now, some might care about your bravery..
1: I don't. I just-just want you to butcher Manthings.
1: It won't be a small task-task.
1: When you have killed 50 Protectors, return to me.
1: I will reward you with something nice.
HOST_GIVE T1022
END
@check
IF KM459.50, @rew
1: You still have not killed 50 Protectors.
END
@rew
1: Good job!
1: Here is your reward.
HOST_GIVE I241
HOST_GIVE T1023
HOST_GIVE G500000
N: You received %I241!
N: You received 500,000 gold!
END
@complete
1: You have-have done a great service to the Skaven and Gobbos..
END

SCENE 6047
#include banthing.txt
ACTOR 1, "Arganda Whisperwind", windguardian, 1, 25, 90, 24, 5
IF T1025, @complete
IF T1024, @check
1: Welcome to the bestiary.
1: Here we constantly train new War Hawks to fight
1: against the Skaven and Gobbos.
1: However, they use beasts against us, too.
1: They have War Hydras.
1: Terrifying beasts. I would send you to cut some of them down.
1: How about.. 50?
H: Sounds like a deal.
HOST_GIVE T1024
1: They can be found to the northwest.
1: There's a Skaven bestiary there.
END
@complete
1: Thanks again for slaughtering those beasts.
END
@check
IF KM457.50, @rew
1: You still have not killed 50 War Hydra's.
END
@rew
1: Thanks a bunch! Here, take this, I don't need it.
HOST_GIVE I242
HOST_GIVE T1025
N: received %I242!
END


SCENE 6048
#include banthing.txt
ACTOR 1, "Beastlord Rargh", skaven2, 1, 45, 90, 24, 11
IF T1027, @complete
IF T1026, @check
1: Hmmz, hello recruit.
1: If you wished to aid me, just go and slay..
1: say, 50 War Hawks for me. Alliance is training them.
1: They are dangerous machines of war-war!
H: Sounds like a deal-deal.
HOST_GIVE T1026
1: They can be found near the Alliance bestiary.
1: It looks-looks like a big bird's head.
END
@complete
1: Thanks again for slaughtering those thingies.
END
@check
IF KM458.50, @rew
1: You still have not killed 50 War Hawks.
END
@rew
1: Thanks a bunch! Here, take this, I don't need it.
HOST_GIVE I242
HOST_GIVE T1027
N: received %I242!
END

SCENE 6049
#include banthing.txt
N: Here lies the ruins of Randorhal.
WAIT 2
N: The town itself was long ago devoured by the surrounding swamp.
WAIT 3
N: This is the town which Skaven sacked first, 
WAIT 2
N: attacking from the warpstone mines.
END

;ALLIANCE FORODHOLME

SCENE 6050
#include banthing.txt
ACTOR 1, "Demonslayer Bloodrage", paladin, 2, 45, 85,
ACTOR 2, "Knight of the Order", paladin, 1, 30, 95,
IF T1031, @no
IF T1030, @ch
IF T1029, @gre
IF T1028, @che
1: Hello traveler.
H: What is this place?
1: This is the Bastion of Light.
1: We are here to guard the ruins of Forodholme.
1: To prevent any spirits from leaving that cursed city..
H: Forodholme?
1: Yes, the Alliance capital city before it was sacked
1: by Skaven raiders.
1: None of the defenders or attackers survived.
1: The city is burning with some cursed, magical fire.
1: It is the playground of some wicked Chaos god..
1: Restless spirits wander the streets and kill every
1: living creature that dears to enter the city.
H: Hmm, can I do anything to help?
1: Yes, I suppose so. You could help the spirits..
1: By killing their ghostly form, you'd set them free.
1: So be it, go forth and release
1: 25 Forodholme Defenders and 30 Forodholme Militia.
HOST_GIVE T1028
END
@che
IF KM461.25, @che2
1: You have not killed enough Forodholme Defenders.
END
@che2
IF KM463.30, @re
1: You have not killed enough Forodholme Militias.
END
@re
1: Well done, %1.
HOST_GIVE T1029
HOST_GIVE I242
N: received %I242!
END
@gre
1: Now that I have seen you are capable of
1: fending off the lesser spirits..
1: I'd like to give you a mission of utmost importance.
1: The once virtuous Archbishop Lightforge of Forodholme..
1: He has succumbed to darkness and is a beacon of evil.
1: He is a Champion of Evil.
1: You might have defeated harder opponents.
1: But he's still not easy to defeat.
1: You might need some help from other adventurers.
1: Find him in the ruined Cathedral of Forodholme.
1: Defeat him and bring me his staff as a proof.
HOST_GIVE T1030
END
@ch
IF I475, @re2
1: You have not brought me the staff.
1: That means the evil is still undefeated.
END
@re2
1: I see you have the staff. You have vanquished Lightforge.
1: Here is your reward.
HOST_GIVE I242
HOST_GIVE T1031
HOST_TAKE I475
1: I have no more quests for you, as of yet.
END
@no
1: I have no more quests for you, as of yet.
1: I thank you for everything you've done.
END

SCENE 6051
#include banthing.txt
IF T1032, @woo
ACTOR 1, "Archbishop Lightforge", mage, 1, 45, 85, 3,
IF T1030, @fi
1: Welcome, welcome! To the Cathedral of Light!
H: I only see burning ruins.
1: Ahh, what a tragic thing.. The Skaven attack.
H: How come you survived?
1: Let's just say that it wasn't my time to die yet.
END
@fi
H: You are no archbishop anymore, Lightforge!
H: You are just a champion of chaos!
1: I was waiting for the next foolish adventurer..
1: Seems #<g.he> has arrived.
1: Prepare to die! For the Ligh... 
1: No, I mean.. Chaos!
WAIT 2
GOTO SCENE 6052
END
@woo
N: Nothing left here anymore.
END

SCENE 6052
THEME 52
#include banthing.txt
FIGHT 466
IF WON, @stave
THEME 70
END
@stave
THEME 71
N: You pick the staff from the corpse.
HOST_GIVE I475
HOST_GIVE T1032
N: You receive %I475!
END

;SKAVEN FORODHOLME

SCENE 6053
#include banthing.txt
ACTOR 1, "Battle Commander Eversneeze", skaven1, 1, 50, 95, 3,
ACTOR 3, "Stormvermin", skaven1, 1, 20, 90, 23,
ACTOR 4, "Stormvermin", skaven1, 1, 27, 95, 23,
ACTOR 2, "Storm Seer", skaven2, 1, 35, 95, 28,
IF T1034, @oo2
IF T1033, @c
1: Welcomes to the war-war camp!
H: Ummh, we attacking something, then?
1: Nay, this is our base-base near Forodholme.
H: Forodholme?
1: The former Alliance capital city before our forces destroyed it.
H: Why are you still-still here then?
1: We-we are making sure that the Alliance forces in the
1: Bastion of Light won't try to retake the city.
1: Though they won't, I knows!
1: It's full of dead things. Ghosts an' stuff.
1: But I gots a job for you, %1!
H: What kind of job?
1: You knows the Honey Ale? Heavenly substance, it be!
1: We want more of it! Our troops have developed a taste for it.
1: Only problem is.. There is only 2 taverns that have ever
1: sold it.
1: The other is the one in Stormkeep.
1: And the other, umm-umm.. Is in Forodholme.
H: UMM!??! 
1: Yes, the mad tavernkeeper is still there..
1: He is guarding the Honey Ale that was left bottled up.
1: You goes, defeats him and brings me a Keg of that ale.
HOST_GIVE T1033
H: Understood. :<
END
@c
IF I476, @oo
1: You still not has the Honey Ale!
END
@oo
1: Whoa, you gots it! GIVE!
H: Here you goes.
HOST_TAKE I476
HOST_GIVE I242
HOST_GIVE T1034
N: received %I242!
END
@oo2
1: Thankshies aghain!
2: Whee! ...hic!
3: Thhis shtuff be ash sthrong ash we imaghined... o.O
4: Gimmy more! ...hic!
END

SCENE 6054
#include banthing.txt
IF T1035, @n
IF T1033, @fi
N: Nothing special here.
END
@fi
N: You feel a strange presence.
WAIT 2
N: "You won't get my Honey Ale!"
WAIT 2
GOTO SCENE 6055
END
SCENE 6055
THEME 53
FIGHT 468
IF WON, @ale
THEME 70
END
@ale
THEME 71
N: You stand victorious!
HOST_GIVE I476
HOST_GIVE T1035
END
@n
N: Nothing here anymore.
END

SCENE 6056
ACTOR 1, "Bag Crafter", paladin, 3, 20, 90,
#include banthing.txt
IF T1036, @t
1: Oi, greetings.
1: Want ta help an ol' bag crafter?
1: Give me 100 coins and I'll craft ya a fine bag.
1: Ye can carry stuff taken from enemies in it..
1: Like bat ears an' all that.
1: Don't ye worry, the bag won't mind.
WAIT 2
1: So, ye wish to purchase a bag?
ASK 300
IF Qyes, @bag
1: Fine, oppression I say. :<
END
@bag
1: Here ye go!
WAIT 3
TAKE G100
SET num.TrophyBagWidth, 4
SET num.TrophyBagHeight, 3
GIVE T1036
1: If ye wishes to get a bigger bag..
1: Ye could visit the Mysterious Bagmaker.
1: He's living out in the desert in his little crypt.
END
@t
1: Ye already have a Trophy bag.
END

SCENE 6057
ACTOR 1, "Mysterious Mage", dwarf, 4, 30, 95,
#include banthing.txt
1: Hello..
1: Do you happen to have some %Z1s, %Z2s or %Z3s?
1: Every time you bring me 20 of one of those..
1: I'll give you a %I242.
IF Z1.20, @whoa1
IF Z2.20, @whoa2
IF Z3.20, @whoa3
WAIT 3
1: Seems you do not have enough..
END
@whoa1
WAIT 2
1: Give me those %Z1s, %1.
1: And I will reward you with a %I242.
1: Well, do we have a deal?
ASK 300
IF Qyes, @giv1
1: Fine, get out.
END
@whoa2
WAIT 2
1: Give me those %Z2s, %1.
1: And I will reward you with a %I242.
1: Well, do we have a deal?
ASK 300
IF Qyes, @giv2
1: Fine, get out.
END
@whoa3
WAIT 2
1: Give me those %Z3s, %1.
1: And I will reward you with a %I242.
1: Well, do we have a deal?
ASK 300
IF Qyes, @giv3
1: Fine, get out.
END
@giv1
N: You receive %I242!
HOST_GIVE I242
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
HOST_TAKE Z1
END
@giv2
N: You receive %I242!
HOST_GIVE I242
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
HOST_TAKE Z2
END
@giv3
N: You receive %I242!
HOST_GIVE I242
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
HOST_TAKE Z3
END

SCENE 6058
ACTOR 1, "Eiladan the Zealous", windguardian, 1, 30, 95, 4
IF Z4.15, @gr
1: You want to get shiny %I242s, ehh?
1: Easy to do. Just get me 15 %Z4.
1: I'll exhange 'em for one.
END
@gr
WAIT 2
1: Great, you have 15 %Z4s!
1: Want to change them for a %I242?
ASK 300
IF Qyes, @gr2
1: Fine.
END
@gr2
1: Give them here! More to add to my collection!
WAIT 2
N: You receive %I242!
HOST_GIVE I242
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
HOST_TAKE Z4
END


SCENE 6059
ACTOR 1, "Ikit Headhunter", skaven3, 4, 65, 95, 9
IF Z5.15, @gre
1: You want to get shiny %I242s, ehh?
1: Easy to do. Just get me 15 %Z5s.
1: I'll exhange 'em for one.
END
@gre
WAIT 2
1: Great-great, you have 15 %Z5s!
1: Wants to change 'em for a %I242?
ASK 300
IF Qyes, @gre2
1: Fine.
END
@gre2
1: Give them here! More to add to my collection!
WAIT 2
N: You receive %I242!
HOST_GIVE I242
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
HOST_TAKE Z5
END

SCENE 6060
ACTOR 1, "Quartermaster", paladin, 1, 30, 95,
IF T1009, @field
IF T1008, @com
IF T1007, @lie
IF T1006, @kni
IF T1005, @kni-lie
IF T1004, @ser
1: I will offer you goods based on your rank.
1: Only Sergeant Majors, Knight-Lieutenants,
1: Knight-Champions, Lieutenant Commanders,
1: Commanders and Field Marshals can buy stuff awarded by rank.
1: You are not any of those.
END
@field
1: Welcome, Field Marshal.
OFFER 1299, 1300, 1298,
END
@com
1: Welcome, Commander.
OFFER 1299, 1300,
END
@lie
1: Welcome, Lieutenant Commander.
OFFER 1299, 1300,
END
@kni
1: Welcome, Knight-Champion.
OFFER 1299, 1300,
END
@kni-lie
1: Welcome, Knight-Lieutenant.
OFFER 1299, 1300,
END
@ser
1: Welcome, Sergeant Major.
OFFER 1299, 1300,
END

SCENE 6061
ACTOR 1, "Quartermaster", skaven1, 1, 55, 95,
IF T1019, @wl
IF T1018, @bc
IF T1017, @svc
IF T1016, @sv
IF T1015, @hd
IF T1014, @hd2
1: I will offer you goods based on your rank.
1: Only Sergeant Majors, Stormvermin Lieutenants,
1: Stormvermin Champions, Stormvermin Commanders,
1: Battle Commanders and Warlords can buy stuff awarded by rank.
1: You are not any of those.
END
@wl
1: Welcome, Warlord.
OFFER 1299, 1301, 1298,
END
@bc
1: Welcome, Battle Commander.
OFFER 1299, 1301,
END
@svc
1: Welcome, Stormvermin Commander.
OFFER 1299, 1301,
END
@sv
1: Welcome, Stormvermin Champion.
OFFER 1299, 1301,
END
@hd2
1: Welcome, Sergeant Major.
OFFER 1299, 1301,
END
@hd
1: Welcome, Stormvermin Lieutenant.
OFFER 1299, 1301,
END

SCENE 6062
ACTOR 1, "Mysterious Bagmaker", dwarf, 4, 30, 95,
IF T1039, @kk2
IF T1038, @kk
IF T1037, @help2
IF T1036, @help
1: Begone, I see you have no trophy bag.
1: You can purchase one from a poor peasant handcrafter..
1: He's living near the Red Dragon Tavern.
1: Another bagmaker is living near the North Swamp.
END
@help
1: I see you have a trophy bag.
1: If you wish to make it bigger, I can help you.
1: My charge is a mere 100,000 gold.
1: Do we have a deal?
ASK 300
IF Qyes, @oz
1: Suit yourself.
END
@oz
IF -G100000, @bum
1: Ahh, good.
1: Here you go.
TAKE G100000
SET num.TrophyBagWidth, 7
SET num.TrophyBagHeight, 5
HOST_GIVE T1037
END
@bum
1: You don't have the required money..
END
@help2
1: You want me to make it bigger, again?
1: Ahh, fine. If you just get me some rare reagents..
WAIT 2
1: Bring me these things from the Cleft of the Dead:
1: 20 Frost Hydra's Tooth, 5 Skeleton Elite's Ribcages and
1: 10 Frost Spirit's Hands.
HOST_GIVE I29
HOST_GIVE T1038
N: Received %I29!
END
@kk
IF Z12.20, @etia
1: You do not have enough Frost Hydra's Tooth..
END
@etia
IF Z7.5, @etia2
1: You do not have enough Skeleton Elite's Ribcages..
END
@etia2
IF Z10.10, @etia3
1: You do not have enough Frost Spirit's Hands..
END
@etia3
1: Well done, you have everything needed.
1: Just a moment, this is no simple task.
1: I'll use magic to reinforce your bag.
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z10
HOST_TAKE Z7
HOST_TAKE Z7
HOST_TAKE Z7
HOST_TAKE Z7
HOST_TAKE Z7
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE Z12
HOST_TAKE I29
SET num.TrophyBagWidth, 8
SET num.TrophyBagHeight, 6
HOST_GIVE T1039
END
@kk2
1: Not even I am powerful enough to make your bag bigger.
1: Besides, it's not like you *need* it to be bigger, right?
END


SCENE 6063
ACTOR 1, "Bag Crafter", paladin, 3, 20, 90,
#include banthing.txt
IF T1036, @t
1: Oi, greetings.
1: Want ta help an ol' bag crafter?
1: Give me 100 coins and I'll craft ya a fine bag.
1: Ye can carry stuff taken from enemies in it..
1: Like bat ears an' all that.
1: Don't ye worry, the bag won't mind.
WAIT 2
1: So, ye wish to purchase a bag?
ASK 300
IF Qyes, @bag
1: Fine, oppression I say. :<
END
@bag
1: Here ye go!
WAIT 3
TAKE G100
SET num.TrophyBagWidth, 4
SET num.TrophyBagHeight, 3
GIVE T1036
1: If ye wishes to get a bigger bag..
1: Ye could visit the Mysterious Bagmaker.
1: He's living out in the desert in his little crypt.
1: But ye gots to know the desert of Khaudrak is a..
1: very dangerous place, ye know.
END
@t
1: Ye already have a Trophy bag.
END

SCENE 6064
N: 20 Frost Hydra's Tooth,
WAIT 2
N: 10 Frost Spirit's Hands,
WAIT 2
N: 5 Skeleton Elite's Ribcages.
END

SCENE 6065
ACTOR 1, "Grandmaster Crafter", forestguard, 1, 20, 90,
#include banthing.txt
IF I997+Z64.10+Z65.15, @moon4
IF I996+Z64.15+Z65.10, @moon5
IF I995+Z64.15+Z65.15, @moon6
IF I995, @rom
IF I996, @hom
IF I997, @gom
1: Greetings, I am the Grandmaster Crafter.
1: If you have rare powerful items you have gotten from monsters..
1: You should come to me for I can make them even better!
1: Beware, though. My upgrades greatly increase attack
1: but won't give very much defense.
1: The items I can upgrade are:
1: %I995, %I996 and %I997.
END
@rom
1: You have %I995 with you, %1.
1: That is one of the rare items that I can upgrade.
1: I can make it give you much more attack.
1: Though it will probably lose some defense in progress.
1: In order to upgrade it, I'll need rare minerals.
1: Minerals that can only be dropped by Golems..
1: True Mithril and True Gold are what I'm talking about.
1: Only these pure minerals can bring out the true power of %I995.
1: I will need 15 %Z64 and 15 %Z65 to upgrade this item, %1.
1: The golems live in no other place than the Valley of Golems.
1: It's just north of Worldspine Valley.
END
@hom
1: You have %I996 with you, %1.
1: That is one of the rare items that I can upgrade.
1: I can make it give you much more attack.
1: Though it will probably lose some defense in progress.
1: In order to upgrade it, I'll need rare minerals.
1: Minerals that can only be dropped by Golems..
1: True Mithril and True Gold are what I'm talking about.
1: Only these pure minerals can bring out the true power of %I996.
1: I will need 15 %Z64 and 10 %Z65 to upgrade this item, %1.
1: The golems live in no other place than the Valley of Golems.
1: It's just north of Worldspine Valley.
END
@gom
1: You have %I997 with you, %1.
1: That is one of the rare items that I can upgrade.
1: I can make it give you much more attack.
1: Though it will probably lose some defense in progress.
1: In order to upgrade it, I'll need rare minerals.
1: Minerals that can only be dropped by Golems..
1: True Mithril and True Gold are what I'm talking about.
1: Only these pure minerals can bring out the true power of %I997.
1: I will need 10 %Z64 and 15 %Z65 to upgrade this item, %1.
1: The golems live in no other place than the Valley of Golems.
1: It's just north of Worldspine Valley.
END

@moon4
1: You have all that I need for upgrading your %I997, %1.
1: Upgrading it will make it grant you very good attack.
1: I'll use %I997, 10 %Z64 and 15 %Z65.
1: Sound good?
ASK 30
IF Qyes, @moon44
1: Alright, come back later if you change your mind.
END

@moon44
1: Just a moment.
WAIT 3
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE I997
HOST_GIVE I1000
N: Received %I1000!
END

@moon5
1: You have all that I need for upgrading your %I996, %1.
1: Upgrading it will make it grant you very good attack.
1: I'll use %I996, 15 %Z64 and 10 %Z65.
1: Sound good?
ASK 30
IF Qyes, @moon55
1: Alright, come back later if you change your mind.
END

@moon6
1: You have all that I need for upgrading your %I995, %1.
1: Upgrading it will make it grant you very good attack.
1: I'll use %I995, 15 %Z64 and 15 %Z65.
1: Sound good?
ASK 30
IF Qyes, @moon66
1: Alright, come back later if you change your mind.
END

@moon55
1: Just a moment.
WAIT 3
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE I996
HOST_GIVE I999
N: Received %I999!
END

END

@moon66
1: Just a moment.
WAIT 3
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z64
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE Z65
HOST_TAKE I995
HOST_GIVE I998
N: Received %I998!
END

END

;1006, "You are now a Knight-Champion."
;1007, "You are now a Lieutenant Commander."
;1008, "You are now a Commander."
;1009, "You are now a Field Marshal."
;1016, "You are now a Stormvermin Champion."
;1017, "You are now a Stormvermin Commander."
;1018, "You are now a Battle Commander."
;1019, "You are now a Warlord."


;IF KM444.10, just so I can copy+paste that fast, I can't remember it otherwise. >.>

;lol
