SCENE 1450 waurakennus, SCENE, "Alchemist's Laboratory", 0, 0, 0
#include banthing.txt
  ACTOR 1, "Da Alchemist", skaven2, 1, 25, 95
  ACTOR 2, "Da Apprentice", skaven2, 1, 25, 80
  ACTOR 3, "Da Apparatus", boneragon, 4, 50, 90
  IF C32+T16, @remove
  IF T16, @CheckWeapon
  1: What's this? A visitor?
  2: Master, this one has no-zero skill in alchemy.
  2: Don't be wasting your valuable time.
END

@CheckWeapon
  IF V95-T590, @Weapon95
  IF V90-T589, @Weapon90
  IF V80-T588, @Weapon80
  IF V70-T587, @Weapon70
  IF V60-T586, @Weapon60
  IF V50-T585, @Weapon50
  IF V40-T584, @Weapon40
  IF V30-T583, @Weapon30
  IF V20-T582, @Weapon20
  IF V10-T581, @Weapon10
  IF V1-T580, @Weapon1
  1: I suppose it be okay if you use the lab.
  2: Just keep explosions littlest-minimal, mind you!
  1: You need to make something simple-easy, then my assistant help.
  1: If you want to attempt-try something harder, talk to me.
  1: Oh, there's list of recipes on table there.
  WAIT 2.0
  N: Right-click the NPCs for options.
END

@Weapon1
  2: This one seems to have study-learning in alchemy, master.
  1: But #<g.he> has no toss-throw potion!
  2: Hey, you! Every alchemist needs explosions! Didn't you know?
  1: I suppose you can begin-start with this, for now.
  WAIT 2.0
  N: You received a Goblin Brainhew!
  HOST_GIVE I185
  HOST_GIVE T580
  GOTO @CheckWeapon
END

@Weapon10
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Goblin Antidote!
  HOST_TAKE I185
  HOST_GIVE I186
  HOST_GIVE T581
  GOTO @CheckWeapon
END

@Weapon20
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Minor Explosion Potion!
  HOST_TAKE I186
  HOST_GIVE I187
  HOST_GIVE T582
  GOTO @CheckWeapon
END

@Weapon30
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Gas Potion!
  HOST_TAKE I187
  HOST_GIVE I188
  HOST_GIVE T583
  GOTO @CheckWeapon
END

@Weapon40
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Freezing Potion!
  HOST_TAKE I188
  HOST_GIVE I189
  HOST_GIVE T584
  GOTO @CheckWeapon
END

@Weapon50
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Fiery Potion!
  HOST_TAKE I189
  HOST_GIVE I190
  HOST_GIVE T585
  GOTO @CheckWeapon
END

@Weapon60
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Blast Potion!
  HOST_TAKE I190
  HOST_GIVE I191
  HOST_GIVE T586
  GOTO @CheckWeapon
END

@Weapon70
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Strange Liquid!
  HOST_TAKE I191
  HOST_GIVE I192
  HOST_GIVE T587
  GOTO @CheckWeapon
END

@Weapon80
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Boom Boom Liquid!
  HOST_TAKE I192
  HOST_GIVE I193
  HOST_GIVE T588
  GOTO @CheckWeapon
END

@Weapon90
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Manbane Potion!
  HOST_TAKE I193
  HOST_GIVE I194
  HOST_GIVE T589
  GOTO @CheckWeapon
END

@Weapon95
  1: Take this instead of your old toss-throw potion.
  WAIT 2.0
  N: You received a Purple Nightmare!
  HOST_TAKE I194
  HOST_GIVE I195
  HOST_GIVE T590
  GOTO @CheckWeapon
END

@eventActorClick1
  IF T16, @CheckSnarl
END

@CheckSnarl
  SET Menu1, "Unavailable"
  SET Menu1B, "AdvancedMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "AdvancedMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "AdvancedMixtures"
  SET Menu4, "Unavailable"
  SET Menu4B, "AdvancedMixtures"
  IF V10, @EnableSnarl

@CheckVenom
  IF V30, @EnableVenom

@CheckSloom
  IF V30, @EnableSloom

@CheckPandemonium
  IF V50, @EnablePandemonium
  GOTO @AdvancedMixtures
END

@EnableSnarl
  SET Menu1, "Snarl Brew"
  SET Menu1B, "CheckSnarl10"
  GOTO @CheckVenom

@EnableVenom
  SET Menu2, "Venom Blend"
  SET Menu2B, "CheckVenom30"
  GOTO @CheckSloom

@EnableSloom
  SET Menu3, "Sloom Alloy"
  SET Menu3B, "CheckSloom30"
  GOTO @CheckPandemonium

@EnablePandemonium
  SET Menu4, "Pandemonium Melange"
  SET Menu4B, "CheckPandemonium50"
  GOTO @AdvancedMixtures

@AdvancedMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>", "#<Menu4>=@#<Menu4B>"
END

@CheckSnarl10
  SET Menu1, "Unavailable"
  SET Menu1B, "SnarlMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "SnarlMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "SnarlMixtures"
  SET Menu4, "Unavailable"
  SET Menu4B, "SnarlMixtures"
  SET Menu5, "Unavailable"
  SET Menu5B, "SnarlMixtures"
  IF I75+I75+I76+I76, @EnableSnarl10

@CheckSnarl30
  IF V30+I312+I75+I75+I76+I76, @EnableSnarl30

@CheckSnarl50
  IF V50+I313+I75+I75+I76+I76, @EnableSnarl50

@CheckSnarl70
  IF V70+I314+I75+I75+I76+I76, @EnableSnarl70

@CheckSnarl90
  IF V90+I315+I75+I75+I76+I76, @EnableSnarl90
  GOTO @SnarlMixtures
END

@EnableSnarl10
  SET Menu1, "Snarl Brew, level 10"
  SET Menu1B, "MakeSnarl10"
  GOTO @CheckSnarl30

@EnableSnarl30
  SET Menu2, "Snarl Brew, level 30"
  SET Menu2B, "MakeSnarl30"
  GOTO @CheckSnarl50

@EnableSnarl50
  SET Menu3, "Snarl Brew, level 50"
  SET Menu3B, "MakeSnarl50"
  GOTO @CheckSnarl70

@EnableSnarl70
  SET Menu4, "Snarl Brew, level 70"
  SET Menu4B, "MakeSnarl70"
  GOTO @CheckSnarl90

@EnableSnarl90
  SET Menu5, "Snarl Brew, level 90"
  SET Menu5B, "MakeSnarl90"
  GOTO @SnarlMixtures

@SnarlMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>", "#<Menu4>=@#<Menu4B>", "#<Menu5>=@#<Menu5B>"
END

@MakeSnarl10
  HOST_TAKE I75
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I76
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I312
  N: You mixed a Snarl Brew!
END

@MakeSnarl30
  HOST_TAKE I312
  HOST_TAKE I75
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I76
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I313
  N: You mixed a Snarl Brew!
END

@MakeSnarl50
  HOST_TAKE I313
  HOST_TAKE I75
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I76
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I314
  N: You mixed a Snarl Brew!
END

@MakeSnarl70
  HOST_TAKE I314
  HOST_TAKE I75
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I76
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I315
  N: You mixed a Snarl Brew!
END

@MakeSnarl90
  HOST_TAKE I315
  HOST_TAKE I75
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I76
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I316
  N: You mixed a Snarl Brew!
END

@CheckVenom30
  SET Menu1, "Unavailable"
  SET Menu1B, "VenomMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "VenomMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "VenomMixtures"
  SET Menu4, "Unavailable"
  SET Menu4B, "VenomMixtures"
  IF I77+I78+I78+I79, @EnableVenom30

@CheckVenom50
  IF V50+I317+I77+I78+I78+I79, @EnableVenom50

@CheckVenom70
  IF V70+I318+I77+I78+I78+I79, @EnableVenom70

@CheckVenom90
  IF V90+I319+I77+I78+I78+I79, @EnableVenom90
  GOTO @VenomMixtures
END

@EnableVenom30
  SET Menu1, "Venom Blend, level 30"
  SET Menu1B, "MakeVenom30"
  GOTO @CheckVenom50

@EnableVenom50
  SET Menu2, "Venom Blend, level 50"
  SET Menu2B, "MakeVenom50"
  GOTO @CheckVenom70

@EnableVenom70
  SET Menu3, "Venom Blend, level 70"
  SET Menu3B, "MakeVenom70"
  GOTO @CheckVenom90

@EnableVenom90
  SET Menu4, "Venom Blend, level 90"
  SET Menu4B, "MakeVenom90"
  GOTO @VenomMixtures

@VenomMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>", "#<Menu4>=@#<Menu4B>"
END

@MakeVenom30
  HOST_TAKE I77
  HOST_TAKE I78
  HOST_TAKE I78
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I317
  N: You mixed a Venom Blend!
END

@MakeVenom50
  HOST_TAKE I317
  HOST_TAKE I77
  HOST_TAKE I78
  HOST_TAKE I78
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I318
  N: You mixed a Venom Blend!
END

@MakeVenom70
  HOST_TAKE I318
  HOST_TAKE I77
  HOST_TAKE I78
  HOST_TAKE I78
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I319
  N: You mixed a Venom Blend!
END

@MakeVenom90
  HOST_TAKE I319
  HOST_TAKE I77
  HOST_TAKE I78
  HOST_TAKE I78
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I320
  N: You mixed a Venom Blend!
END

@CheckSloom30
  SET Menu1, "Unavailable"
  SET Menu1B, "SloomMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "SloomMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "SloomMixtures"
  SET Menu4, "Unavailable"
  SET Menu4B, "SloomMixtures"
  IF I75+I76+I77+I78, @EnableSloom30

@CheckSloom50
  IF V50+I321+I75+I76+I77+I78, @EnableSloom50

@CheckSloom70
  IF V70+I322+I75+I76+I77+I78, @EnableSloom70

@CheckSloom90
  IF V90+I323+I75+I76+I77+I78, @EnableSloom90
  GOTO @SloomMixtures
END

@EnableSloom30
  SET Menu1, "Sloom Alloy, level 30"
  SET Menu1B, "MakeSloom30"
  GOTO @CheckSloom50

@EnableSloom50
  SET Menu2, "Sloom Alloy, level 50"
  SET Menu2B, "MakeSloom50"
  GOTO @CheckSloom70

@EnableSloom70
  SET Menu3, "Sloom Alloy, level 70"
  SET Menu3B, "MakeSloom70"
  GOTO @CheckSloom90

@EnableSloom90
  SET Menu4, "Sloom Alloy, level 90"
  SET Menu4B, "MakeSloom90"
  GOTO @SloomMixtures

@SloomMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>", "#<Menu4>=@#<Menu4B>"
END

@MakeSloom30
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I321
  N: You mixed a Sloom Alloy!
END

@MakeSloom50
  HOST_TAKE I321
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I322
  N: You mixed a Sloom Alloy!
END

@MakeSloom70
  HOST_TAKE I322
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I323
  N: You mixed a Sloom Alloy!
END

@MakeSloom90
  HOST_TAKE I323
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I324
  N: You mixed a Sloom Alloy!
END

@CheckPandemonium50
  SET Menu1, "Unavailable"
  SET Menu1B, "PandemoniumMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "PandemoniumMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "PandemoniumMixtures"
  IF I76+I77+I79+I79, @EnablePandemonium50

@CheckPandemonium70
  IF V70+I325+I76+I77+I79+I79, @EnablePandemonium70

@CheckPandemonium90
  IF V90+I326+I76+I77+I79+I79, @EnablePandemonium90
  GOTO @PandemoniumMixtures
END

@EnablePandemonium50
  SET Menu1, "Pandemonium Melange, level 50"
  SET Menu1B, "MakePandemonium50"
  GOTO @CheckPandemonium70

@EnablePandemonium70
  SET Menu1, "Pandemonium Melange, level 70"
  SET Menu1B, "MakePandemonium70"
  GOTO @CheckPandemonium90

@EnablePandemonium90
  SET Menu1, "Pandemonium Melange, level 90"
  SET Menu1B, "MakePandemonium90"
  GOTO @PandemoniumMixtures

@PandemoniumMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>"
END

@MakePandemonium50
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I79
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I325
  N: You mixed a Pandemonium Melange!
END

@MakePandemonium70
  HOST_TAKE I325
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I79
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I326
  N: You mixed a Pandemonium Melange!
END

@MakePandemonium90
  HOST_TAKE I326
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I79
  HOST_TAKE I79
  COMPARE %R3, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I327
  N: You mixed a Pandemonium Melange!
END

@eventActorClick2
  IF T16, @CheckPower
END

@CheckPower
  SET Menu1, "Unavailable"
  SET Menu1B, "BasicMixtures"
  SET Menu2, "Unavailable"
  SET Menu2B, "BasicMixtures"
  SET Menu3, "Unavailable"
  SET Menu3B, "BasicMixtures"
  SET Menu4, "Unavailable"
  SET Menu4B, "BasicMixtures"
  SET Menu5, "Unavailable"
  SET Menu5B, "BasicMixtures"
  SET Menu6, "Unavailable"
  SET Menu6B, "BasicMixtures"
  SET Menu7, "Unavailable"
  SET Menu7B, "BasicMixtures"
  IF I76+I77+I78, @EnablePower

@CheckSeer
  IF I75+I76+I78, @EnableSeer

@CheckConstitution
  IF I77+I78+I79, @EnableConstitution

@CheckEvasion
  IF I75+I77+I78, @EnableEvasion

@CheckAiming
  IF I75+I76+I79, @EnableAiming

@CheckRevival
  IF I76+I79, @EnableRevival

@CheckBreath
  IF I77+I78, @EnableBreath
  GOTO @BasicMixtures
END

@EnablePower
  SET Menu1, "Liquid of Power"
  SET Menu1B, "MakePower"
  GOTO @CheckSeer

@EnableSeer
  SET Menu2, "Liquid of the Seer"
  SET Menu2B, "MakeSeer"
  GOTO @CheckConstitution

@EnableConstitution
  SET Menu3, "Liquid of Constitution"
  SET Menu3B, "MakeConstitution"
  GOTO @CheckEvasion

@EnableEvasion
  SET Menu4, "Liquid of Evasion"
  SET Menu4B, "MakeEvasion"
  GOTO @CheckAccuracy

@EnableAiming
  SET Menu5, "Liquid of Aiming"
  SET Menu5b, "MakeAiming"
  GOTO @CheckRevival

@EnableRevival
  SET Menu6, "Elven Revival Potion"
  SET Menu6B, "MakeRevival"
  GOTO @CheckBreath

@EnableBreath
  SET Menu7, "Ice Dragon's Breath"
  SET Menu7B, "MakeBreath"
  GOTO @BasicMixtures

@BasicMixtures
  MENU "#<Menu1>=@#<Menu1B>", "#<Menu2>=@#<Menu2B>", "#<Menu3>=@#<Menu3B>", "#<Menu4>=@#<Menu4B>", "#<Menu5>=@#<Menu5B>", "#<Menu6>=@#<Menu6B>", "#<Menu7>=@#<Menu7B>"
END

@MakePower
  HOST_TAKE I76
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R2, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I80
  N: You mixed a Liquid of Power!
END

@MakeSeer
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_TAKE I77
  COMPARE %R2, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I81
  N: You mixed a Liquid of the Seer!
END

@MakeConstitution
  HOST_TAKE I77
  HOST_TAKE I78
  HOST_TAKE I79
  COMPARE %R2, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I82
  N: You mixed a Liquid of Constitution!
END

@MakeEvasion
  HOST_TAKE I75
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R2, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I83
  N: You mixed a Liquid of Evasion!
END

@MakeAiming
  HOST_TAKE I75
  HOST_TAKE I76
  HOST_Take I79
  COMPARE %R2, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I84
  N: You mixed a Liquid of Aiming!
END

@MakeRevival
  HOST_TAKE I76
  HOST_TAKE I79
  COMPARE %R5, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I85
  N: You mixed an Elven Revival Potion!
END

@MakeBreath
  HOST_TAKE I77
  HOST_TAKE I78
  COMPARE %R5, 1
  WAIT 3.0
  IF= @Failure
  HOST_GIVE I86
  N: You mixed an Ice Dragon's Breath!
END

@Failure
  N: You failed to mix the potion!
END

@eventActorClick3
  IF T16, @Information
END

@Information
  N: You take a List of Recipes.
  HOST_GIVE I46
END

@remove
HOST_TAKE T16
GOTO EXIT
END


SCENE 2005
ACTOR 1,"Plague Monk Itzh-znikkit",skaven3,1,25,95
IF C32, @check
1: Welcomes to the Horrrned Rat's temple.
1: Only Plague Monks find-find it worth visiting here though, I thinks.
END
@check
IF T805+T810, @nomore
IF V50-T805, @monk50
IF V95-T810, @monk95
IF V90-T809, @monk90
IF V80-T808, @monk80
IF V70-T807, @monk70
IF V60-T806, @monk60
IF V50-T805, @monk50
IF V40-T804, @monk40
IF V30-T803, @monk30
IF V20-T802, @monk20
IF V10-T801, @monk12
IF V1-T800, @monk1
1: Welcome, one of the-the monks!
1: I offers you equip every ten levels! Starting from level 1 though.
1: You shoulds return for more stuff-stuff every ten levels.
1: They is good, better than normal equip, indeed.
1: You gets sap, poison and resurrection spells at level 50!
1: You gets best stuff at level 95!
END
@monk1
1: Here is your first-first special weapon.
HOST_GIVE I30
HOST_GIVE T800
END
@monk12
1: Here is your first special armor and anodder weapon.
HOST_GIVE I31
HOST_GIVE I41
HOST_GIVE T801
END
@monk20
1: Here is another weapon for you.
HOST_GIVE I32
HOST_GIVE T802
END
@monk30
1: Here is another-another armor and weapon for you.
HOST_GIVE I33
HOST_GIVE I42
HOST_GIVE T803
END
@monk40
1: Here is another weapon-weapon for you.
HOST_GIVE I34
HOST_GIVE T804
END
@monk50
1: Here is another weapon and armor-armor for you.
HOST_GIVE I35
HOST_GIVE I43
HOST_GIVE T805
1: And here is a couple of spells you-you will be finding useful.
HOST_GIVE S305
HOST_GIVE S306
HOST_GIVE S307
N: Learned %S305, %S306 and %S307!
END
@monk60
1: Here-here is another weapon for you.
HOST_GIVE I36
HOST_GIVE T806
END
@monk70
1: Here is another weapon-weapon for you, monk.
HOST_GIVE I37
HOST_GIVE I44
HOST_GIVE T807
END
@monk80
1: Here is yet another weapon-weapon for you, mr. monk!
HOST_GIVE I38
HOST_GIVE T808
END
@monk90
1: Here is another weapon and best armor-armor you get for you!
HOST_GIVE I39
HOST_GIVE I45
HOST_GIVE T809
END
@monk95
1: Here is the-the Best weapon for you! No more stuff for you.
HOST_GIVE I40
HOST_GIVE T810
IF -T811, @ya
END
@ya
1: And here is some great spells for you!
HOST_GIVE T811
HOST_GIVE S308
HOST_GIVE S309
HOST_GIVE S310
END
@nomore
1: You gots all stuff available to you already.
END


;comment!

;dacomment