// creator  : D:\Baldur's gate mods etc\app\NearInfinity.jar (v2.4-20240424)
// game     : D:\Baldur's gate mods etc\LOL Baldur's Gate II Enhanced Edition
// resource : WSMITH01.DLG
// source   : Override\WSMITH01.DLG
// dialog   : lang\en_US\dialog.tlk
// dialogF  : (none)

BEGIN ~WSMITH01~
//////////////////////////////////////////////////
// WARNING: this file contains non-trivial WEIGHTs
//////////////////////////////////////////////////

IF WEIGHT #1 /* Triggers after states #: 68 even though they appear after this state */
~  NumTimesTalkedTo(0)
~ THEN BEGIN 0 // from:
  SAY #59654 /* ~Eh? Who's there? Some <GIRLBOY> <RACE> wanderin' in me smithy, I see. I rarely gets visitors, with the blisterin' heat and all... something I can do for ye, <GIRLBOY>?~ */
  IF ~~ THEN REPLY #59658 /* ~Who are you?~ */ GOTO 1
  IF ~~ THEN REPLY #59659 /* ~What do you have for sale here?~ */ GOTO 2
  IF ~~ THEN REPLY #59660 /* ~Well, you can stop calling me "<GIRLBOY>," for starters.~ */ GOTO 3
  IF ~~ THEN REPLY #59661 /* ~No thanks. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 1 // from: 0.0
  SAY #59662 /* ~My name be Cromwell. Now mayhap ye'll tell me who ye are, aye?~ */
  IF ~  CheckStatGT(LastTalkedToBy,12,CHR)
~ THEN REPLY #59664 /* ~I am <GABBER>. Pleased to meet you.~ */ GOTO 5
  IF ~  CheckStatLT(LastTalkedToBy,13,CHR)
~ THEN REPLY #59665 /* ~I am <GABBER>, if you really must know.~ */ GOTO 6
  IF ~~ THEN REPLY #59667 /* ~You don't need to know my name, I'm sure.~ */ GOTO 7
  IF ~~ THEN REPLY #59668 /* ~Forget introductions, I just want to see what you have for sale.~ */ GOTO 2
END

IF ~~ THEN BEGIN 2 // from: 0.1 1.3 3.3 5.0 6.0 7.0 58.1
  SAY #59670 /* ~I be not selling ye anything. I be the finest blacksmith in Athkatla, and I works on commission only. I can make most anything ye desire.~ */
  IF ~~ THEN REPLY #59671 /* ~What sorts of things do you make?~ */ GOTO 8
  IF ~~ THEN REPLY #59672 /* ~Can you make magical armor and weapons and the like?~ */ GOTO 8
  IF ~~ THEN REPLY #59673 /* ~Well, I'll be on my way, then.~ */ GOTO 4
END

IF ~~ THEN BEGIN 3 // from: 0.2
  SAY #59676 /* ~As ye wish. I meant no offense by it, friend. Is there something else ye wish Cromwell to call ye by instead?~ */
  IF ~~ THEN REPLY #59677 /* ~I am <GABBER>. Pleased to meet you.~ */ GOTO 5
  IF ~~ THEN REPLY #59678 /* ~I am <GABBER>, if you really must know.~ */ GOTO 6
  IF ~~ THEN REPLY #59679 /* ~You don't need to know my name, I'm sure.~ */ GOTO 7
  IF ~~ THEN REPLY #59680 /* ~Forget introductions, I just want to see what you have for sale.~ */ GOTO 2
END

IF ~~ THEN BEGIN 4 // from: 0.3 2.2 5.2 6.3 7.3 9.2
  SAY #59681 /* ~Mind the mess on yer way out, <GIRLBOY>. Me apprentice just returned to Abdar, sure enough, and I've no patience for housekeeping.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 5 // from: 1.0 3.0
  SAY #59682 /* ~Aye. Welcome to me smithy, <GABBER>. Was there something that ye needed from an old dwarf, mayhap?~ */
  IF ~~ THEN REPLY #59683 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59684 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59685 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 6 // from: 1.1 3.1
  SAY #59687 /* ~Nay, I care not... but ye're in me smithy, and it be only polite. Now, <GABBER>... be there something ye need from an old dwarf, or does ye just like the smoke?~ */
  IF ~~ THEN REPLY #59688 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59689 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59690 /* ~And what if I said I only want to look around?~ */ GOTO 10
  IF ~~ THEN REPLY #59691 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 7 // from: 1.2 3.2
  SAY #59692 /* ~That be true, but it be me own smithy here, and you be the guest. But I care not. Mayhap ye'll tell me what ye wish from an old dwarf and be on yer way, aye?~ */
  IF ~~ THEN REPLY #59693 /* ~I would like to see what you have for sale.~ */ GOTO 2
  IF ~~ THEN REPLY #59694 /* ~What sort of smithing do you do?~ */ GOTO 8
  IF ~~ THEN REPLY #59695 /* ~And what if I said I only want to look around?~ */ GOTO 10
  IF ~~ THEN REPLY #59696 /* ~Not really. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 8 // from: 2.0 2.1 5.1 6.1 7.1 58.0
  SAY #59697 /* ~I've made armor from the scales of a basilisk, a helmet from a cockatrice... items to put fear into the hearts of the bloody gods themselves. Hah! ~ */
  IF ~~ THEN DO ~SetGlobal("TalkedToCromwell","LOCALS",1)
~ GOTO 9
END

IF ~~ THEN BEGIN 9 // from: 8.0
  SAY #59698 /* ~All of me work be done from commissions. Give me the ingredients, and I can forge an item of power, sure enough. 'Tis a good living for a smith of me skills.~ */
  IF ~~ THEN REPLY #59699 /* ~Do I have anything you could forge into an item?~ */ GOTO 59
  IF ~~ THEN REPLY #59700 /* ~What sorts of things would you need in order to make something?~ */ GOTO 11
  IF ~~ THEN REPLY #59701 /* ~I suppose so. I'll be on my way.~ */ GOTO 4
END

IF ~~ THEN BEGIN 10 // from: 6.2 7.2
  SAY #59702 /* ~Well, that be your choice. There be only scrap metals an' such about... hardly something to interest ye, I'm sure, but ye can never tell about some folk.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 11 // from: 9.1 58.2
  SAY #59703 /* ~Well now, that depends. Rare scales or husks, mayhap, or a magical metal I could forge. Even the pieces to a larger item can be repaired. My skills are many.~ */
  IF ~~ THEN REPLY #59704 /* ~Do I have anything you could forge into something, then?~ */ GOTO 59
  IF ~~ THEN REPLY #59705 /* ~I see. I'll be going, then.~ */ GOTO 12
END

IF ~~ THEN BEGIN 12 // from: 11.1 53.7 54.6 55.2 58.4
  SAY #59706 /* ~Another time, then, me friend. Cromwell wishes ye a fair journey.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 13 // from: 59.0 144.8
  SAY #59707 /* ~Hmmm... I couldn't rightly say. Let me have a look into yer goods, then. A minute of rummagin' and I'll know fer sure, aye?~ */
  IF ~  OR(10)
PartyHasItem("bdbrac05")
PartyHasItem("bdhelm16")
PartyHasItem("GelJav0")
PartyHasItem("SPER02")
PartyHasItem("GelSpe6")
PartyHasItem("SPER05")
PartyHasItem("SPER07")
PartyHasItem("SPER08")
PartyHasItem("SPER11")
PartyHasItem("STAF14")
~ THEN GOTO 144
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 124
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 128
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 132
  IF ~  OR(2)
PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 136
  IF ~  PartyHasItem("dagg21")
~ THEN GOTO 140
END

IF ~~ THEN BEGIN 14 // from: 13.1 64.0 69.0 73.0 77.0 81.0 85.0 89.0 91.0 95.0 99.0 103.0 106.0 110.0 114.0 117.0 121.0 123.0 127.0 131.0 135.0 139.0 143.0
  SAY #59708 /* ~Hmm. Nay... nay. Ye've nothing amongst yer goods that I could work with. If ye come across anything interesting later, friend, ye knows where to come, aye?~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 15 // from: 13.2 64.1 69.1 73.1 77.1 81.1 85.1 89.1 91.1 95.1 99.1 103.1 106.1 110.1 114.1 117.1 121.1 123.1 127.1 131.1 135.1 139.1 143.1
  SAY #59709 /* ~Hmmm... what's this? Some kind of scale from a beastie, aye?~ */
  IF ~  PartyHasItem("scaleb")
~ THEN GOTO 16
  IF ~  !PartyHasItem("scaleb")
PartyHasItem("scaler")
~ THEN GOTO 17
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 18
END

IF ~~ THEN BEGIN 16 // from: 15.0
  SAY #59710 /* ~Aye, ye've collected the scales of a shadow dragon. By the Soul Forger, 'tis a grand sight. I can make a suit of armor from yon scales, if ye like.~ */
  IF ~~ THEN REPLY #59712 /* ~What would that involve?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",1)
~ GOTO 53
  IF ~  PartyHasItem("scaler")
~ THEN REPLY #59713 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 17
  IF ~  !PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN REPLY #59714 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 18
  IF ~  !PartyHasItem("scaler")
!PartyHasItem("misc12")
~ THEN REPLY #59715 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 19
END

IF ~~ THEN BEGIN 17 // from: 15.1 16.1 53.1
  SAY #59716 /* ~Ah! Scales from a red dragon, a beast of the Dread Flame. It shall make a grand suit of armor if ye wish, me friend. Does that hold yer interest?~ */
  IF ~~ THEN REPLY #59717 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",2)
~ GOTO 53
  IF ~  PartyHasItem("misc12")
~ THEN REPLY #59718 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 18
  IF ~  !PartyHasItem("misc12")
~ THEN REPLY #59719 /* ~I don't think so. Do I have anything else useful?~ */ GOTO 19
END

IF ~~ THEN BEGIN 18 // from: 15.2 16.2 17.1 53.2 53.3
  SAY #59720 /* ~Hmmm. Ye've the husk of an ankheg, I see. A comrade in Beregost taught me to make a fine suit of armor from the beastie. Would ye like to commission a suit?~ */
  IF ~~ THEN REPLY #59721 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",3)
~ GOTO 53
  IF ~~ THEN REPLY #59722 /* ~I don't think so. Do I have anything else of interest?~ */ GOTO 19
END

IF ~~ THEN BEGIN 19 // from: 16.3 17.2 18.1 53.4 53.5 53.6
  SAY #59723 /* ~I'll take another look for meself here. Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 20 // from: 13.3 19.0 64.2 69.2 73.2 77.2 81.2 85.2 89.2 91.2 95.2 99.2 103.2 106.2 110.2 114.2 117.2 121.2 123.2 127.2 131.2 135.2 139.2 143.2
  SAY #59724 /* ~Aye now, what have we here?~ */
  IF ~  PartyHasItem("scrlag")
!PartyHasItem("hamm07")
~ THEN GOTO 21
  IF ~  !PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 24
  IF ~  PartyHasItem("scrlag")
PartyHasItem("hamm07")
OR(2)
!PartyHasItem("brac06")
!PartyHasItem("belt08")
~ THEN GOTO 25
  IF ~  PartyHasItem("scrlag")
PartyHasItem("hamm07")
PartyHasItem("brac06")
PartyHasItem("belt08")
~ THEN GOTO 26
END

IF ~~ THEN BEGIN 21 // from: 20.0
  SAY #59725 /* ~Ye've a scroll with the true name of the thunderhammer, Crom Faeyr. Had ye a hammer of thunderbolts, gauntlets of ogre power, and a girdle of frost giant strength, I could combine 'em and forge it.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 22 // from: 21.0 24.0 25.0
  SAY #59726 /* ~But ye don't, so I cannae help ye. If ye can collect the scroll and all three items later, keep them on hand. Crom Faeyr is worth the effort, my friend.~ */
  IF ~~ THEN GOTO 23
END

IF ~~ THEN BEGIN 23 // from: 22.0 27.1 55.1
  SAY #59727 /* ~Let me see if ye've anything else in yer packs now...~ */
  IF ~  OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 24 // from: 20.1
  SAY #59728 /* ~I see ye've the hammer of thunderbolts? Had ye gauntlets of ogre power, a girdle of frost giant strength, and scroll with the thunderhammer's true name, I could forge a mighty weapon.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 25 // from: 20.2
  SAY #59730 /* ~Ah, ye've a hammer of thunderbolts and a scroll with the true name of the thunderhammer, Crom Faeyr. If ye had gauntlets of ogre power and a girdle of frost giant strength, I could forge the great weapon.~ */
  IF ~~ THEN GOTO 22
END

IF ~~ THEN BEGIN 26 // from: 20.3
  SAY #59731 /* ~Hmm... Ye've a hammer of thunderbolts, gauntlets of ogre power, a girdle of frost giant strength, and a scroll with the thunderhammer's true name... Crom Faeyr.~ */
  IF ~~ THEN GOTO 27
END

IF ~~ THEN BEGIN 27 // from: 26.0
  SAY #59732 /* ~ 'Tis a collection that would widen the eyes of the Soul Forger himself. I could create the Crom Faeyr for ye, friend... if ye've the interest, of course.~ */
  IF ~~ THEN REPLY #59733 /* ~What would that involve?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",4)
~ GOTO 55
  IF ~~ THEN REPLY #59734 /* ~No, I don't think so. Do I have anything else of interest?~ */ GOTO 23
END

IF ~~ THEN BEGIN 28 // from: 13.4 19.1 23.0 64.3 69.3 73.3 77.3 81.3 85.3 89.3 91.3 95.3 99.3 103.3 106.3 110.3 114.3 117.3 121.3 123.3 127.3 131.3 135.3 139.3 143.3
  SAY #59735 /* ~Eh? Ye've part of some sword here, is it? Let me see...~ */
  IF ~  PartyHasItem("sw1h54a")
OR(2)
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
~ THEN GOTO 29
  IF ~  PartyHasItem("sw1h54b")
OR(2)
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54c")
~ THEN GOTO 30
  IF ~  PartyHasItem("sw1h54c")
OR(2)
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54a")
~ THEN GOTO 31
  IF ~  PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 32
END

IF ~~ THEN BEGIN 29 // from: 28.0
  SAY #59736 /* ~Well, ye've the hilt of a sword here, but I would need both the blade and the pommel gem in order to forge it into one piece. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 30 // from: 28.1
  SAY #59737 /* ~Well, ye've the blade of a sword here indeed. But I would need both its pommel gem and the sword's hilt in order to forge it into one piece for ye. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 31 // from: 28.2
  SAY #59738 /* ~Hmmm. A pretty enough pommel gem, but without the blade or the hilt of the weapon, I cannae forge it into one piece for ye. A pity.~ */
  IF ~~ THEN GOTO 33
END

IF ~~ THEN BEGIN 32 // from: 28.3
  SAY #59739 /* ~Hmmm... I see. Ye've a hilt and a blade here for a long sword. And a pommel gem with much of its power. I could forge it all into one mighty sword for ye.~ */
  IF ~~ THEN REPLY #59740 /* ~What would be involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",5)
~ GOTO 54
  IF ~~ THEN REPLY #59741 /* ~No, I'm not interested in that. Anything else of use?~ */ GOTO 33
END

IF ~~ THEN BEGIN 33 // from: 29.0 30.0 31.0 32.1 54.1
  SAY #59742 /* ~Well, what else does ye have in yer packs, then? Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 34 // from: 13.5 19.2 23.1 33.0 64.4 69.4 73.4 77.4 81.4 85.4 89.4 91.4 95.4 99.4 103.4 106.4 110.4 114.4 117.4 121.4 123.4 127.4 131.4 135.4 139.4 143.4
  SAY #59743 /* ~Hmmm. What's this, then? Part of a bow? Looks like Gesen's work...~ */
  IF ~  PartyHasItem("bow19a")
!PartyHasItem("bow19b")
~ THEN GOTO 35
  IF ~  !PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 36
  IF ~  PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 37
END

IF ~~ THEN BEGIN 35 // from: 34.0
  SAY #59744 /* ~Ach, ye've a shaft that's been created by the great bowyer Gesen, but ye haven't Gesen's proper string. Find that and I can reforge the bow for ye.~ */
  IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 36 // from: 34.1
  SAY #59745 /* ~Ach, ye've a proper string made by the great bowyer Gesen. But not his shaft. If ye find the shaft, bring it to me, and I'll reforge the bow entire for ye.~ */
  IF ~~ THEN GOTO 38
END

IF ~~ THEN BEGIN 37 // from: 34.2
  SAY #59746 /* ~Hmmm. Aye, 'tis Gesen's work indeed. A string and a shaft both. I could remake one of the great bowyer's shortbows for ye. 'Tis a truly powerful weapon.~ */
  IF ~~ THEN REPLY #59747 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",6)
~ GOTO 54
  IF ~~ THEN REPLY #59748 /* ~No, I don't think so. Do I have anything else of use?~ */ GOTO 38
END

IF ~~ THEN BEGIN 38 // from: 35.0 36.0 37.1 54.2
  SAY #59749 /* ~I'll keep looking here, me friend. Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 39 // from: 13.6 19.3 23.2 33.1 38.0 64.5 69.5 73.5 77.5 81.5 85.5 89.5 91.5 95.5 99.5 103.5 106.5 110.5 114.5 117.5 121.5 123.5 127.5 131.5 135.5 139.5 143.5
  SAY #59750 /* ~Hmmm... hmmm... aye. Aye now, this looks interesting...~ */
  IF ~  PartyHasItem("halb09a")
!PartyHasItem("halb09b")
~ THEN GOTO 40
  IF ~  !PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 41
  IF ~  PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 42
END

IF ~~ THEN BEGIN 40 // from: 39.0
  SAY #59751 /* ~Ye've the shaft of what was once a powerful halberd. If ye finds the blade for it, I could reforge the old weapon without much fuss.~ */
  IF ~~ THEN GOTO 43
END

IF ~~ THEN BEGIN 41 // from: 39.1
  SAY #59752 /* ~Ye've a blade here fer a mighty halberd. It seems t' have power of water... odd. If ye can find the accompanying shaft, I can forge it together for ye.~ */
  IF ~~ THEN GOTO 43
END

IF ~~ THEN BEGIN 42 // from: 39.2
  SAY #59753 /* ~Hmmm... ye've the shaft and blade of a halberd. Power of water in its elemental magic. Most interesting. If ye like, I could try to reforge it for ye.~ */
  IF ~~ THEN REPLY #59754 /* ~What would be involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",7)
~ GOTO 54
  IF ~~ THEN REPLY #59755 /* ~No, I'm not interested. Anything else of use?~ */ GOTO 43
END

IF ~~ THEN BEGIN 43 // from: 40.0 41.0 42.1 54.3
  SAY #59756 /* ~Quite a mess ye have here. Traveling for some time, eh? Hmmm...~ */
  IF ~  OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 44 // from: 13.7 19.4 23.3 33.2 38.1 43.0 64.6 69.6 73.6 77.6 81.6 85.6 89.6 91.6 95.6 99.6 103.6 106.6 110.6 114.6 117.6 121.6 123.6 127.6 131.6 135.6 139.6 143.6
  SAY #59757 /* ~ 'Ey? What's this? Gith craftsmanship? Haven't seen this in o'er a century...~ */
  IF ~  PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
~ THEN GOTO 45
  IF ~  !PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 46
  IF ~  PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 47
END

IF ~~ THEN BEGIN 45 // from: 44.0
  SAY #59758 /* ~Well... it seems ye've the blade of a Silver Sword here. Not much good without the hilt though. Best be wary... the gith won't be pleased if they catch ye with this.~ */
  IF ~~ THEN GOTO 48
END

IF ~~ THEN BEGIN 46 // from: 44.1
  SAY #59759 /* ~Well... ye've the hilt of a Silver Sword, but without the blade to match, I cannae help ye. Best be wary, too... the gith won't be pleased if they catch ye with this.~ */
  IF ~~ THEN GOTO 48
END

IF ~~ THEN BEGIN 47 // from: 44.2
  SAY #59760 /* ~Aye. Ye've the hilt and blade of a vorpal Silver Sword. If ye're willing to risk the wrath of the gith, I'm willing to put it back together for ye.~ */
  IF ~~ THEN REPLY #59761 /* ~What would be involved with that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",8)
~ GOTO 54
  IF ~~ THEN REPLY #59762 /* ~I don't think so. Do I have anything else of use?~ */ GOTO 48
END

IF ~~ THEN BEGIN 48 // from: 45.0 46.0 47.1 54.4
  SAY #59763 /* ~I'll keep looking. Hmmm... I see...~ */
  IF ~  PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  !PartyHasItem("misc5k")
~ THEN GOTO 52
END

IF ~~ THEN BEGIN 49 // from: 13.8 19.5 23.4 33.3 38.2 43.1 48.0 64.7 69.7 73.7 77.7 81.7 85.7 89.7 91.7 95.7 99.7 103.7 106.7 110.7 114.7 117.7 121.7 123.7 127.7 131.7 135.7 139.7 143.7
  SAY #59764 /* ~Aye now... this could be something here. Some kind of metal, eh? Let me see...~ */
  IF ~  !PartyHasItem("blun12")
~ THEN GOTO 50
  IF ~  PartyHasItem("blun12")
~ THEN GOTO 51
END

IF ~~ THEN BEGIN 50 // from: 49.0
  SAY #59765 /* ~It be illithium, aye? A rare metal indeed. If ye ever get ahold of a mace of disruption, a coating of illithium would improve it vastly.~ */
  IF ~~ THEN GOTO 52
END

IF ~~ THEN BEGIN 51 // from: 49.1
  SAY #59766 /* ~Ye've illithium there, aye? And a mace of disruption as well. I could apply a coating to yer mace and improve it greatly, giving ye more protection from the undead.~ */
  IF ~~ THEN REPLY #59767 /* ~What's involved in that?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",9)
~ GOTO 54
  IF ~~ THEN REPLY #59768 /* ~No, I don't think so. Anything else of use?~ */ GOTO 52
END

IF ~~ THEN BEGIN 52 // from: 19.6 23.5 33.4 38.3 43.2 48.1 50.0 51.1 54.5
  SAY #59769 /* ~Nay... nay, I see nothing else here that could be of use in the forge. Perhaps another time then, me friend.~ */
  IF ~~ THEN EXIT
END

IF ~~ THEN BEGIN 53 // from: 16.0 17.0 18.0
  SAY #59771 /* ~Two things, me friend. It will cost ye 5,000 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #59775 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(5000)
DestroyGold(5000)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",1)
PartyHasItem("scaler")
~ THEN REPLY #59777 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 17
  IF ~  Global("ForgeItem","GLOBAL",1)
!PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN REPLY #59779 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 18
  IF ~  Global("ForgeItem","GLOBAL",2)
PartyHasItem("misc12")
~ THEN REPLY #59780 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 18
  IF ~  Global("ForgeItem","GLOBAL",3)
~ THEN REPLY #59781 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~  Global("ForgeItem","GLOBAL",1)
!PartyHasItem("scaler")
!PartyHasItem("misc12")
~ THEN REPLY #59782 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~  Global("ForgeItem","GLOBAL",2)
!PartyHasItem("misc12")
~ THEN REPLY #59783 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 19
  IF ~~ THEN REPLY #59778 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 54 // from: 32.0 37.0 42.0 47.0 51.0
  SAY #59784 /* ~Two things, me friend. It will cost ye 7,500 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #59785 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(7500)
DestroyGold(7500)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",5)
~ THEN REPLY #59786 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 33
  IF ~  Global("ForgeItem","GLOBAL",6)
~ THEN REPLY #59787 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 38
  IF ~  Global("ForgeItem","GLOBAL",7)
~ THEN REPLY #59788 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 43
  IF ~  Global("ForgeItem","GLOBAL",8)
~ THEN REPLY #59789 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 48
  IF ~  Global("ForgeItem","GLOBAL",9)
~ THEN REPLY #59790 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 52
  IF ~~ THEN REPLY #59791 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 55 // from: 27.0
  SAY #59792 /* ~Two things, me friend. It will cost ye 10,000 gp for the work, no less, and without an apprentice, ye'll have to stay here a full day and help me run the forge.~ */
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #59793 /* ~That sounds fine. Let's do it.~ */ DO ~TakePartyGold(10000)
DestroyGold(10000)
~ GOTO 56
  IF ~  Global("ForgeItem","GLOBAL",4)
~ THEN REPLY #59794 /* ~No, I don't think so. Do I have anything else useful?~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 23
  IF ~~ THEN REPLY #59795 /* ~No, I don't think so. I think I'll be going now.~ */ DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ GOTO 12
END

IF ~~ THEN BEGIN 56 // from: 53.0 54.0 55.0 63.1 67.1 72.1 76.1 80.1 84.1 88.1 90.1 94.1 98.1 102.1 105.1 109.1 113.1 113.2 113.3 116.1 120.1 122.1 126.1 130.1 134.1 138.1 142.1 145.0 147.0 149.0 150.0 151.0 152.0 153.0 154.0
  SAY #59796 /* ~As ye wish. Fer such a commission, we can start on it right away. No sense in wasting time, then... it be best if we just get to it.~ */
  IF ~~ THEN DO ~StartCutSceneMode()
StartCutSceneEx("cromwell",FALSE)
~ EXIT
END

IF WEIGHT #2 /* Triggers after states #: 68 even though they appear after this state */
~  GlobalGT("ForgeItem","GLOBAL",0)
~ THEN BEGIN 57 // from:
  SAY #59797 /* ~Well, there ye go, me friend. Use it well. And if ye comes across anything else of interest, ye knows where to bring it, aye?~ */
  IF ~~ THEN DO ~SetGlobal("ForgeItem","GLOBAL",0)
~ EXIT
END

IF WEIGHT #3 /* Triggers after states #: 68 even though they appear after this state */
~  Global("ForgeItem","GLOBAL",0)
~ THEN BEGIN 58 // from:
  SAY #59798 /* ~A good <DAYNIGHTALL> to ye, me friend. Good to see ye back in me forge, it is. Be there something that ye need?~ */
  IF ~  Global("TalkedToCromwell","LOCALS",0)
~ THEN REPLY #59803 /* ~What sorts of things do you forge here?~ */ GOTO 8
  IF ~  Global("TalkedToCromwell","LOCALS",0)
~ THEN REPLY #59799 /* ~What do you have for sale here?~ */ GOTO 2
  IF ~  Global("TalkedToCromwell","LOCALS",1)
~ THEN REPLY #59800 /* ~What sorts of things would you need in order to make something?~ */ GOTO 11
  IF ~  Global("TalkedToCromwell","LOCALS",1)
~ THEN REPLY #59801 /* ~Do I have anything you could forge into an item?~ */ GOTO 59
  IF ~~ THEN REPLY #59802 /* ~No, I don't think so.~ */ GOTO 12
END

IF ~~ THEN BEGIN 59 // from: 9.0 11.0 58.3 60.0
  SAY #59707 /* ~Hmmm... I couldn't rightly say. Let me have a look into yer goods, then. A minute of rummagin' and I'll know fer sure, aye?~ */
  IF ~~ THEN REPLY #93447 /* ~Get on with it, then.~ */ GOTO 13
  IF ~  PartyHasItem("bdbrac05")
~ THEN REPLY #103781 /* ~Sirine Bow +1~ */ GOTO 60
  IF ~~ THEN REPLY #992 /* ~There is nothing I want here. Goodbye.~ */ EXIT
END

IF ~~ THEN BEGIN 60 // from: 59.1
  SAY #103782 /* ~The Sirine Bow is a excellent craftmanshipped bow, the sirine has imbued this short bow with magical powers, and it can create Sirine Arrows once a day.

STATISTICS: 

Equipped Albilities:
- Type: Short Bow
- Speed: 5
- Thaco: +1
- Attack speed: Set to 2,5 attacks pr round

Item Albility:
- Create 20 Sirine Arrow +1 once a day

Usable by:
- Rangers~ */
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 59
  IF ~  PartyHasItem("bdbrac05")
PartyHasItem("MISC12")
PartyGoldGT(9999)
~ THEN REPLY #103783 /* ~Sirine Bow +2~ */ DO ~TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdbrac05",1)
DestroyItem("bdbrac05")
TakePartyItemNum("MISC12",1)
DestroyItem("MISC12")
GiveItemCreate("Gebrac05",Player1,1,1,1)
CreateVisualEffect("spcrtwpn",[401.348])
~ EXIT
END

IF ~~ THEN BEGIN 61 // from: 13.9 69.8 73.8 77.8 81.8 85.8 89.8 91.8 95.8 99.8 103.8 106.8 110.8 114.8 117.8 121.8 123.8 127.8 131.8 135.8 139.8 143.8
  SAY #103784 /* ~The Sirine Bow is a excellent craftmanshipped bow, the sirine has imbued this short bow with magical powers, and it can create Sirine Arrows once a day.

STATISTICS: 

Equipped Albilities:
- Type: Short Bow
- Speed: 5
- Thaco: +2
- Damage bonus +1
- Attack speed: Set to 2,5 attacks pr round

Item Albility:
- Create 40 Sirine Arrow +2 once a day

Usable by:
- Rangers~ */
  IF ~  PartyHasItem("bdbrac05")
!PartyHasItem("MISC12")
~ THEN GOTO 62
  IF ~  PartyHasItem("bdbrac05")
PartyHasItem("MISC12")
~ THEN GOTO 63
END

IF ~~ THEN BEGIN 62 // from: 61.0
  SAY #103785 /* ~Sirine Bow +3~ */
  IF ~~ THEN GOTO 64
END

IF ~~ THEN BEGIN 63 // from: 61.1
  SAY #103786 /* ~The Sirine Bow is a excellent craftmanshipped bow, the sirine has imbued this short bow with magical powers, and it can create Sirine Arrows once a day.

STATISTICS: 

Equipped Albilities:
- Type: Short Bow
- Speed: 5
- Thaco: +3
- Damage bonus +2
- Attack speed: Set to 3 attacks pr round

Item Albility:
- Create 60 Sirine Arrow +3 once a day

Usable by:
- Rangers~ */
  IF ~  PartyGoldLT(15000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 64
  IF ~  PartyGoldGT(14999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("GelItemUp","ar0334",1)
SetGlobal("ForgeItem","GLOBAL",1)
TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdbrac05",1)
DestroyItem("bdbrac05")
TakePartyItemNum("MISC12",1)
DestroyItem("MISC12")
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 64
END

IF ~~ THEN BEGIN 64 // from: 62.0 63.0 63.2
  SAY #103787 /* ~Sirine Bow +4~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
END

IF ~~ THEN BEGIN 65 // from: 13.10 73.9 77.9 81.9 85.9 89.9 91.9 95.9 99.9 103.9 106.9 110.9 114.9 117.9 121.9 123.9 127.9 131.9 135.9 139.9 143.9
  SAY #104920 /* ~Hmmm... aye, now, this looks interesting...~ */
  IF ~  PartyHasItem("RR#BUC01")
!PartyHasItem("KEY23")
~ THEN GOTO 66
  IF ~  PartyHasItem("RR#BUC01")
PartyHasItem("KEY23")
~ THEN GOTO 67
END

IF ~~ THEN BEGIN 66 // from: 65.0
  SAY #104921 /* ~That ol' battered buckler ye're holdin' was once a mighty relic that belonged to a high priest of Amaunator, if me eyes don't be deceiving me. In case ye somehow stumble upon a holy symbol of the lost sun god, I could infuse the shield with its essence and restore some of the relic's old power.~ */
  IF ~~ THEN GOTO 69
END

IF ~~ THEN BEGIN 67 // from: 65.1
  SAY #104922 /* ~Ye have the old relic of Amaunator and the sun god's holy symbol. For 7,500 gold, I could try to fuse them together for ye.~ */
  IF ~  PartyGoldLT(7500)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 69
  IF ~  PartyGoldGT(7499)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",1)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(7500)
TakePartyItemNum("RR#BUC01",1)
DestroyItem("RR#BUC01")
TakePartyItemNum("KEY23",1)
DestroyItem("KEY23")
DestroyGold(7500)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 69
END

IF WEIGHT #0 ~  GlobalGT("RR#Craft","ar0334",0)
~ THEN BEGIN 68 // from:
  SAY #59797 /* ~Well, there ye go, me friend. Use it well. And if ye comes across anything else of interest, ye knows where to bring it, aye?~ */
  IF ~~ THEN DO ~SetGlobal("RR#Craft","ar0334",0)
~ EXIT
END

IF ~~ THEN BEGIN 69 // from: 66.0 67.0 67.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
END

IF ~~ THEN BEGIN 70 // from: 13.11 77.10 81.10 85.10 89.10 91.10 95.10 99.10 103.10 106.10 110.10 114.10 117.10 121.10 123.10 127.10 131.10 135.10 139.10 143.10
  SAY #104924 /* ~Hmph, I reckon something could be done with that puny dart of yers. Let me see...~ */
  IF ~  PartyHasItem("RR#FDART")
!PartyHasItem("MISCAL")
~ THEN GOTO 71
  IF ~  PartyHasItem("RR#FDART")
PartyHasItem("MISCAL")
~ THEN GOTO 72
END

IF ~~ THEN BEGIN 71 // from: 70.0
  SAY #104925 /* ~If ye ever get yer hands on some mithral, I could use it to coat the dart's tip and make it a wee bit stronger. Even a small piece will do.~ */
  IF ~~ THEN GOTO 73
END

IF ~~ THEN BEGIN 72 // from: 70.1
  SAY #104926 /* ~Ach, ye have a mithral piece! For 5,000 gold I could use it to coat the tip of that dart ye're holdin' and make it a wee bit stronger. Well, what say ye?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 73
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",2)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#FDART",1)
DestroyItem("RR#FDART")
TakePartyItemNum("MISCAL",1)
DestroyItem("MISCAL")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 73
END

IF ~~ THEN BEGIN 73 // from: 71.0 72.0 72.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
END

IF ~~ THEN BEGIN 74 // from: 13.12 81.11 85.11 89.11 91.11 95.11 99.11 103.11 106.11 110.11 114.11 117.11 121.11 123.11 127.11 131.11 135.11 139.11 143.11
  SAY #104927 /* ~Ye've a fancy sword there, <GIRLBOY>. Kara-Tur craftmanship, aye? Let me take a look...~ */
  IF ~  PartyHasItem("RR#KEEP")
!PartyHasItem("MISC9Y")
~ THEN GOTO 75
  IF ~  PartyHasItem("RR#KEEP")
PartyHasItem("MISC9Y")
~ THEN GOTO 76
END

IF ~~ THEN BEGIN 75 // from: 74.0
  SAY #104928 /* ~Hmm... the craft be truly flawless, I cannae do much 'bout that. Still, I could strengthen the anti-chaos enchantments on the blade if ye ever get ahold of some Illithid brine water.~ */
  IF ~~ THEN GOTO 77
END

IF ~~ THEN BEGIN 76 // from: 74.1
  SAY #104929 /* ~Ay, now... ye found some Illithid brine water, didn't ye? Well, fer 5,000 gold I could use that to bolster the axiomatic enchantments on that fancy Kara-Tur blade of yers. Are ye interested?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 77
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",3)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#KEEP",1)
DestroyItem("RR#KEEP")
TakePartyItemNum("MISC9Y",1)
DestroyItem("MISC9Y")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 77
END

IF ~~ THEN BEGIN 77 // from: 75.0 76.0 76.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
END

IF ~~ THEN BEGIN 78 // from: 13.13 85.12 89.12 91.12 95.12 99.12 103.12 106.12 110.12 114.12 117.12 121.12 123.12 127.12 131.12 135.12 139.12 143.12
  SAY #104930 /* ~Eh, what have ye got there? A club of some sort? Let's see...~ */
  IF ~  PartyHasItem("RR#WEAR")
!PartyHasItem("MISC6Z")
~ THEN GOTO 79
  IF ~  PartyHasItem("RR#WEAR")
PartyHasItem("MISC6Z")
~ THEN GOTO 80
END

IF ~~ THEN BEGIN 79 // from: 78.0
  SAY #104931 /* ~Uthgardt craftsmanship? Aye, though it looks unfinished. Hmm... if ye can get me a Beljuril gem, I might be able to do something about that.~ */
  IF ~~ THEN GOTO 81
END

IF ~~ THEN BEGIN 80 // from: 78.1
  SAY #104932 /* ~Ye've found a Beljuril gem, aye? For 5,000 gold I could use it to finish the enchantments on that club of yers. What say ye, <GIRLBOY>?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 81
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",4)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#WEAR",1)
DestroyItem("RR#WEAR")
TakePartyItemNum("MISC6Z",1)
DestroyItem("MISC6Z")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 81
END

IF ~~ THEN BEGIN 81 // from: 79.0 80.0 80.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
END

IF ~~ THEN BEGIN 82 // from: 13.14 89.13 91.13 95.13 99.13 103.13 106.13 110.13 114.13 117.13 121.13 123.13 127.13 131.13 135.13 139.13 143.13
  SAY #104933 /* ~That's a fairly sturdy buckler ye got there. Made of darksteel eh? Let me see that up close...~ */
  IF ~  PartyHasItem("RR#RWARD")
OR(2)
!PartyHasItem("DWDUST")
!PartyHasItem("MISC45")
~ THEN GOTO 83
  IF ~  PartyHasItem("RR#RWARD")
PartyHasItem("DWDUST")
PartyHasItem("MISC45")
~ THEN GOTO 84
END

IF ~~ THEN BEGIN 83 // from: 82.0
  SAY #104934 /* ~Oy, if ye can get me a Rogue Stone and some adamantine dust, I could strengthen the darksteel alloy a bit.~ */
  IF ~~ THEN GOTO 85
END

IF ~~ THEN BEGIN 84 // from: 82.1
  SAY #104935 /* ~Ye have a Rogue Stone and some adamantine dust! For 5,000 gold I could use that to strengthen yer darksteel buckler. I reckon ye're interested?~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 85
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",5)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#RWARD",1)
DestroyItem("RR#RWARD")
TakePartyItemNum("DWDUST",1)
DestroyItem("DWDUST")
TakePartyItemNum("MISC45",1)
DestroyItem("MISC45")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 85
END

IF ~~ THEN BEGIN 85 // from: 83.0 84.0 84.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
END

IF ~~ THEN BEGIN 86 // from: 13.15 91.14 95.14 99.14 103.14 106.14 110.14 114.14 117.14 121.14 123.14 127.14 131.14 135.14 139.14 143.14
  SAY #104936 /* ~What's that yer holding <GIRLBOY>? Hmm, that be no ordinary club. Pass it to me, will ye?~ */
  IF ~  PartyHasItem("RR#STON")
!PartyHasItem("BOOK90")
~ THEN GOTO 87
  IF ~  PartyHasItem("RR#STON")
PartyHasItem("BOOK90")
~ THEN GOTO 88
END

IF ~~ THEN BEGIN 87 // from: 86.0
  SAY #104937 /* ~Orc made, eh? Aye, looks sturdy, but them scrawly runes could use some work. If ye can get me a Golem Building Book, I reckon I could strengthen 'em a wee bit.~ */
  IF ~~ THEN GOTO 89
END

IF ~~ THEN BEGIN 88 // from: 86.1
  SAY #104938 /* ~Ye found a Golem Building Book, eh? For 5,000 gold I could use it to strengthen the runes on that club of yers. Provided ye're interested, of course.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 89
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("RR#Items","ar0334",6)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("RR#STON",1)
DestroyItem("RR#STON")
TakePartyItemNum("BOOK90",1)
DestroyItem("BOOK90")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 89
END

IF ~~ THEN BEGIN 89 // from: 87.0 88.0 88.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
END

IF ~~ THEN BEGIN 90 // from: 13.16 95.15 99.15 103.15 106.15 110.15 114.15 117.15 121.15 123.15 127.15 131.15 135.15 139.15 143.15
  SAY #105480 /* ~Ah, a Case of Plenty. I can enchant this to produce even stronger bolts, but it'll cost ye. 5,000 gold it is.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #70892 /* ~I don't have that much gold.~ */ GOTO 91
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #70893 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",1)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("quiver02",1)
DestroyGold(5000)
DestroyItem("quiver02")
~ GOTO 56
  IF ~~ THEN REPLY #70894 /* ~No, I don't want that.~ */ GOTO 91
END

IF ~~ THEN BEGIN 91 // from: 90.0 90.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
END

IF ~~ THEN BEGIN 92 // from: 13.17 99.16 103.16 106.16 110.16 114.16 117.16 121.16 123.16 127.16 131.16 135.16 139.16 143.16
  SAY #105481 /* ~A thieves hood, aye?~ */
  IF ~  OR(2)
!PartyHasItem("ring05")
!PartyHasItem("potn20")
~ THEN GOTO 93
  IF ~  PartyHasItem("ring05")
PartyHasItem("potn20")
~ THEN GOTO 94
END

IF ~~ THEN BEGIN 93 // from: 92.0
  SAY #105482 /* ~With a bottle of antidote and an invisibility ring, this can be dead useful.~ */
  IF ~~ THEN GOTO 95
END

IF ~~ THEN BEGIN 94 // from: 92.1
  SAY #105483 /* ~There's a ring of invisibility alright... and an antidote. Ye got everything I need. For 10,000 gold I can make this much more powerful.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #67011 /* ~I don't have enough gold.~ */ GOTO 95
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #67012 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",2)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("helm29",1)
TakePartyItemNum("ring05",1)
TakePartyItemNum("potn20",1)
DestroyItem("potn20")
DestroyItem("ring05")
DestroyItem("helm29")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #67013 /* ~No. What else?~ */ GOTO 95
END

IF ~~ THEN BEGIN 95 // from: 93.0 94.0 94.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
END

IF ~~ THEN BEGIN 96 // from: 13.18 103.17 106.17 110.17 114.17 117.17 121.17 123.17 127.17 131.17 135.17 139.17 143.17
  SAY #105484 /* ~What's this, then?~ */
  IF ~  OR(3)
!PartyHasItem("helm31")
!PartyHasItem("compon12")
!PartyHasItem("compon13")
~ THEN GOTO 97
  IF ~  PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 98
END

IF ~~ THEN BEGIN 97 // from: 96.0
  SAY #105485 /* ~I have a recipe to attach two horns to a Helm of the Rock, making it more powerful. When you've got the pieces, I can make it for ye.~ */
  IF ~~ THEN GOTO 99
END

IF ~~ THEN BEGIN 98 // from: 96.1
  SAY #105486 /* ~You have the Helm of the Rock, and two horns that attach to it. For 5,000 gold I can attach the Horns, making a great helmet for fighters.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #67003 /* ~I don't have that much gold.~ */ GOTO 99
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #67004 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",3)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("helm31",1)
DestroyItem("helm31")
TakePartyItemNum("compon12",1)
DestroyItem("compon12")
TakePartyItemNum("compon13",1)
DestroyItem("compon13")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #67005 /* ~No. What else?~ */ GOTO 99
END

IF ~~ THEN BEGIN 99 // from: 97.0 98.0 98.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
END

IF ~~ THEN BEGIN 100 // from: 13.19 106.18 110.18 114.18 117.18 121.18 123.18 127.18 131.18 135.18 139.18 143.18
  SAY #105487 /* ~These are Bard Gloves.~ */
  IF ~  OR(4)
!PartyHasItem("misc43")
!PartyHasItem("misc42")
!PartyHasItem("misc41")
!PartyHasItem("misc45")
~ THEN GOTO 101
  IF ~  PartyHasItem("misc43")
PartyHasItem("misc42")
PartyHasItem("misc41")
PartyHasItem("misc45")
~ THEN GOTO 102
END

IF ~~ THEN BEGIN 101 // from: 100.0
  SAY #105488 /* ~With some crushed gems, these can be improved. Bring me a diamond, emerald, rogue stone, and star sapphire and I can do it for ye.~ */
  IF ~~ THEN GOTO 103
END

IF ~~ THEN BEGIN 102 // from: 100.1
  SAY #105489 /* ~By crushing a diamond, emerald, star sapphire, and rogue stone I can improve these. It'll cost you 5,000 gold.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66990 /* ~I don't have that much gold.~ */ GOTO 103
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66991 /* ~Go ahead and make it, then.~ */ DO ~SetGlobal("CDItems","ar0334",4)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("brac24",1)
DestroyItem("brac24")
TakePartyItemNum("misc41",1)
DestroyItem("misc41")
TakePartyItemNum("misc42",1)
DestroyItem("misc42")
TakePartyItemNum("misc43",1)
DestroyItem("misc43")
TakePartyItemNum("misc45",1)
DestroyItem("misc45")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66992 /* ~Never mind. What else?~ */ GOTO 103
END

IF ~~ THEN BEGIN 103 // from: 101.0 102.0 102.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
END

IF ~~ THEN BEGIN 104 // from: 13.20 110.19 114.19 117.19 121.19 123.19 127.19 131.19 135.19 139.19 143.19
  SAY #105490 /* ~These are bracers for a paladin.~ */
  IF ~~ THEN GOTO 105
END

IF ~~ THEN BEGIN 105 // from: 104.0
  SAY #105491 /* ~For 10,000 gold, I can re-forge these into something even better.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #66983 /* ~I don't have enough gold.~ */ GOTO 106
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #66984 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",5)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("brac22",1)
DestroyItem("brac22")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #66985 /* ~No. What else?~ */ GOTO 106
END

IF ~~ THEN BEGIN 106 // from: 105.0 105.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
END

IF ~~ THEN BEGIN 107 // from: 13.21 114.20 117.20 121.20 123.20 127.20 131.20 135.20 139.20 143.20
  SAY #105492 /* ~Hmm, an old golem manual.~ */
  IF ~~ THEN GOTO 108
  IF ~  PartyHasItem("tome01")
PartyHasItem("tome02a")
~ THEN GOTO 109
END

IF ~~ THEN BEGIN 108 // from: 107.0
  SAY #105493 /* ~With certain pages, you can improve the golems summoned by these books.~ */
  IF ~~ THEN GOTO 110
END

IF ~~ THEN BEGIN 109 // from: 107.1
  SAY #105494 /* ~With that clay golem page and 5,000 gold, I can improve your manual to summon clay golems.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66956 /* ~I don't have enough gold.~ */ GOTO 110
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66957 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",6)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("tome01",1)
DestroyItem("tome01")
TakePartyItemNum("tome02a",1)
DestroyItem("tome02a")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66959 /* ~No. What else?~ */ GOTO 110
END

IF ~~ THEN BEGIN 110 // from: 108.0 109.0 109.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
END

IF ~~ THEN BEGIN 111 // from: 13.22 117.21 121.21 123.21 127.21 131.21 135.21 139.21 143.21
  SAY #105495 /* ~Ach, now this is a real protection cloak.~ */
  IF ~  OR(2)
!PartyHasItem("scrl90")
!PartyHasItem("scrl7q")
~ THEN GOTO 112
  IF ~  PartyHasItem("scrl90")
PartyHasItem("scrl7q")
~ THEN GOTO 113
END

IF ~~ THEN BEGIN 112 // from: 111.0
  SAY #105496 /* ~With scrolls of invisibility and improved haste, this can be made even better.~ */
  IF ~~ THEN GOTO 114
END

IF ~~ THEN BEGIN 113 // from: 111.1
  SAY #105497 /* ~We can use those invisibility and improved haste scrolls to make this cloak even better. It's a tricky process and'll cost you 20,000 gold.~ */
  IF ~  PartyGoldLT(20000)
~ THEN REPLY #66938 /* ~I don't have that much gold.~ */ GOTO 114
  IF ~  PartyGoldGT(19999)
PartyHasItem("clck02")
!PartyHasItem("cdpp9")
!PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("clck02",1)
DestroyItem("clck02")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~  PartyGoldGT(19999)
PartyHasItem("cdpp9")
!PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("cdpp9",1)
DestroyItem("cdpp9")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~  PartyGoldGT(19999)
PartyHasItem("c!pp9")
~ THEN REPLY #66939 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",7)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(20000)
TakePartyItemNum("c!pp9",1)
DestroyItem("c!pp9")
TakePartyItemNum("scrl90",1)
DestroyItem("scrl90")
TakePartyItemNum("scrl7q",1)
DestroyItem("scrl7q")
DestroyGold(20000)
~ GOTO 56
  IF ~~ THEN REPLY #66940 /* ~No. What else?~ */ GOTO 114
END

IF ~~ THEN BEGIN 114 // from: 112.0 113.0 113.4
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
END

IF ~~ THEN BEGIN 115 // from: 13.23 121.22 123.22 127.22 131.22 135.22 139.22 143.22
  SAY #59709 /* ~Hmmm... what's this? Some kind of scale from a beastie, aye?~ */
  IF ~~ THEN GOTO 116
END

IF ~~ THEN BEGIN 116 // from: 115.0
  SAY #105498 /* ~Aye, scales from a white wyrm. I can make a suit of armor from yon scales, if ye like, for only 5,000 gold.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66908 /* ~I don't have that much gold.~ */ GOTO 117
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66909 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",8)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("compon18",1)
DestroyItem("compon18")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66910 /* ~No. What else?~ */ GOTO 117
END

IF ~~ THEN BEGIN 117 // from: 116.0 116.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
END

IF ~~ THEN BEGIN 118 // from: 13.24 123.23 127.23 131.23 135.23 139.23 143.23
  SAY #105499 /* ~Now this is some fine elven chain, even by dwarven standards.~ */
  IF ~  !PartyHasItem("scrl6t")
~ THEN GOTO 119
  IF ~  PartyHasItem("scrl6t")
~ THEN GOTO 120
END

IF ~~ THEN BEGIN 119 // from: 118.0
  SAY #105500 /* ~But there's still some dwarven tricks they don't yet ken. With a scroll of protection from normal weapons, it'll take something magic to get past it.~ */
  IF ~~ THEN GOTO 121
END

IF ~~ THEN BEGIN 120 // from: 118.1
  SAY #105501 /* ~With that scroll of protection from normal weapons, we can enchant the armor to resist anything but a magical blade. It's not easy adding dwarven magic to elven chain, and it'll cost ye 40,000 gold.~ */
  IF ~  PartyGoldLT(40000)
~ THEN REPLY #66900 /* ~I don't have that much gold.~ */ GOTO 121
  IF ~  PartyGoldGT(39999)
~ THEN REPLY #66901 /* ~Sure, do it.~ */ DO ~SetGlobal("CDItems","ar0334",9)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(40000)
TakePartyItemNum("chan16",1)
DestroyItem("chan16")
TakePartyItemNum("scrl6t",1)
DestroyItem("scrl6t")
DestroyGold(40000)
~ GOTO 56
  IF ~~ THEN REPLY #66902 /* ~No. What else?~ */ GOTO 121
END

IF ~~ THEN BEGIN 121 // from: 119.0 120.0 120.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
END

IF ~~ THEN BEGIN 122 // from: 13.25 127.24 131.24 135.24 139.24 143.24
  SAY #105502 /* ~This is a gnomish sling. For 5,000 gold, I've got a few tricks up my sleeve that can make it more accurate.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66872 /* ~I don't have that much gold.~ */ GOTO 123
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66873 /* ~All right, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",10)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("slng08",1)
DestroyItem("slng08")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66874 /* ~No. What else?~ */ GOTO 123
END

IF ~~ THEN BEGIN 123 // from: 122.0 122.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
END

IF ~~ THEN BEGIN 124 // from: 13.26 131.25 135.25 139.25 143.25
  SAY #105503 /* ~What's this quiver here then? Aye, produces infinite magic arrows.~ */
  IF ~  !PartyHasItem("misc45")
~ THEN GOTO 125
  IF ~  PartyHasItem("misc45")
~ THEN GOTO 126
END

IF ~~ THEN BEGIN 125 // from: 124.0
  SAY #105504 /* ~If ye come across a rogue stone, we can improve those arrows even more.~ */
  IF ~~ THEN GOTO 127
END

IF ~~ THEN BEGIN 126 // from: 124.1
  SAY #105505 /* ~With this rogue stone and 10,000 gold I can enchant the arrows another level.~ */
  IF ~  PartyGoldLT(10000)
~ THEN REPLY #66800 /* ~I don't have that much gold.~ */ GOTO 127
  IF ~  PartyGoldGT(9999)
~ THEN REPLY #66801 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",11)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(10000)
TakePartyItemNum("quiver01",1)
DestroyItem("quiver01")
TakePartyItemNum("misc45",1)
DestroyItem("misc45")
DestroyGold(10000)
~ GOTO 56
  IF ~~ THEN REPLY #66802 /* ~No. What else?~ */ GOTO 127
END

IF ~~ THEN BEGIN 127 // from: 125.0 126.0 126.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
END

IF ~~ THEN BEGIN 128 // from: 13.27 135.26 139.26 143.26
  SAY #105506 /* ~Ach, now this is a fine sight! The Flail of Ages!~ */
  IF ~  !PartyHasItem("blun30a")
~ THEN GOTO 129
  IF ~  PartyHasItem("blun30a")
~ THEN GOTO 130
END

IF ~~ THEN BEGIN 129 // from: 128.0
  SAY #105507 /* ~There are rumors of even more heads for this flail. If you find any, I can add them.~ */
  IF ~~ THEN GOTO 131
END

IF ~~ THEN BEGIN 130 // from: 128.1
  SAY #105508 /* ~I see you've found another head for it, too. Looks like poison. For 5,000 gold I can attach it.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66768 /* ~I don't have that much money.~ */ GOTO 131
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66769 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",12)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("blun14",1)
DestroyItem("blun14")
TakePartyItemNum("blun30a",1)
DestroyItem("blun30a")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 131
END

IF ~~ THEN BEGIN 131 // from: 129.0 130.0 130.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 124
END

IF ~~ THEN BEGIN 132 // from: 13.28 139.27 143.27
  SAY #105509 /* ~Could this be... ? Aye, it's a detonating club.~ */
  IF ~  !PartyHasItem("ring02")
~ THEN GOTO 133
  IF ~  PartyHasItem("ring02")
~ THEN GOTO 134
END

IF ~~ THEN BEGIN 133 // from: 132.0
  SAY #105510 /* ~If ye find a ring of fire resistance, we can make that one flash club.~ */
  IF ~~ THEN GOTO 135
END

IF ~~ THEN BEGIN 134 // from: 132.1
  SAY #105511 /* ~For 5,000 gold I can combine this with your ring of fire resistance for an even better club.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66752 /* ~I don't have enough gold.~ */ GOTO 135
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66753 /* ~Sure, go ahead.~ */ DO ~SetGlobal("CDItems","ar0334",13)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("blun26",1)
DestroyItem("blun26")
TakePartyItemNum("ring02",1)
DestroyItem("ring02")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 135
END

IF ~~ THEN BEGIN 135 // from: 133.0 134.0 134.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 124
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 128
END

IF ~~ THEN BEGIN 136 // from: 13.29 143.28
  SAY #105512 /* ~Ah, now that looks like something of Ixil's.~ */
  IF ~  OR(2)
!PartyHasItem("dagg23")
!PartyHasItem("sper11")
~ THEN GOTO 137
  IF ~  PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 138
END

IF ~~ THEN BEGIN 137 // from: 136.0
  SAY #105513 /* ~This is part of a great spear of Ixil's. If you find the other half, I can complete the weapon.~ */
  IF ~~ THEN GOTO 139
END

IF ~~ THEN BEGIN 138 // from: 136.1
  SAY #105514 /* ~You've found both parts of Ixil's old spear. For 5,000 gold we can top Ixil's Nail with Ixil's Spike.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66662 /* ~I don't have that much gold.~ */ GOTO 139
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66664 /* ~Sure, do it.~ */ DO ~SetGlobal("CDItems","ar0334",14)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("dagg23",1)
DestroyItem("dagg23")
TakePartyItemNum("sper11",1)
DestroyItem("sper11")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 139
END

IF ~~ THEN BEGIN 139 // from: 137.0 138.0 138.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 124
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 128
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 132
END

IF ~~ THEN BEGIN 140 // from: 13.30
  SAY #105515 /* ~Ah, now this is a Dagger of the Star.~ */
  IF ~  NumItemsPartyLT("misc41",5)
~ THEN GOTO 141
  IF ~  NumItemsPartyGT("misc41",4)
~ THEN GOTO 142
END

IF ~~ THEN BEGIN 141 // from: 140.0
  SAY #105516 /* ~If we combine this with five star sapphires, we can increase its enchantment further.~ */
  IF ~~ THEN GOTO 143
END

IF ~~ THEN BEGIN 142 // from: 140.1
  SAY #105517 /* ~With five of those star sapphires and 5,000 gold we can make it even more effective.~ */
  IF ~  PartyGoldLT(5000)
~ THEN REPLY #66648 /* ~I don't have that much gold.~ */ GOTO 143
  IF ~  PartyGoldGT(4999)
~ THEN REPLY #66649 /* ~Sure, let's see what it does.~ */ DO ~SetGlobal("CDItems","ar0334",15)
SetGlobal("ForgeStuff","GLOBAL",1)
TakePartyGold(5000)
TakePartyItemNum("dagg21",1)
DestroyItem("dagg21")
TakePartyItemNum("misc41",5)
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyItem("misc41")
DestroyGold(5000)
~ GOTO 56
  IF ~~ THEN REPLY #66770 /* ~No. What else?~ */ GOTO 143
END

IF ~~ THEN BEGIN 143 // from: 141.0 142.0 142.2
  SAY #104923 /* ~Well, let's see what else ye got.~ */
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
!PartyHasItem("misc5k")
~ THEN GOTO 14
  IF ~  OR(3)
PartyHasItem("scaleb")
PartyHasItem("scaler")
PartyHasItem("misc12")
~ THEN GOTO 15
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
OR(2)
PartyHasItem("scrlag")
PartyHasItem("hamm07")
~ THEN GOTO 20
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
OR(3)
PartyHasItem("sw1h54a")
PartyHasItem("sw1h54b")
PartyHasItem("sw1h54c")
~ THEN GOTO 28
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
OR(2)
PartyHasItem("bow19a")
PartyHasItem("bow19b")
~ THEN GOTO 34
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
OR(2)
PartyHasItem("halb09a")
PartyHasItem("halb09b")
~ THEN GOTO 39
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
OR(2)
PartyHasItem("misc8u")
PartyHasItem("sw2h15a")
~ THEN GOTO 44
  IF ~  !PartyHasItem("scaleb")
!PartyHasItem("scaler")
!PartyHasItem("misc12")
!PartyHasItem("scrlag")
!PartyHasItem("hamm07")
!PartyHasItem("sw1h54a")
!PartyHasItem("sw1h54b")
!PartyHasItem("sw1h54c")
!PartyHasItem("bow19a")
!PartyHasItem("bow19b")
!PartyHasItem("halb09a")
!PartyHasItem("halb09b")
!PartyHasItem("misc8u")
!PartyHasItem("sw2h15a")
PartyHasItem("misc5k")
~ THEN GOTO 49
  IF ~  PartyHasItem("bdbrac05")
~ THEN GOTO 61
  IF ~  PartyHasItem("RR#BUC01")
~ THEN GOTO 65
  IF ~  PartyHasItem("RR#FDART")
~ THEN GOTO 70
  IF ~  PartyHasItem("RR#KEEP")
~ THEN GOTO 74
  IF ~  PartyHasItem("RR#WEAR")
~ THEN GOTO 78
  IF ~  PartyHasItem("RR#RWARD")
~ THEN GOTO 82
  IF ~  PartyHasItem("RR#STON")
~ THEN GOTO 86
  IF ~  PartyHasItem("quiver02")
~ THEN GOTO 90
  IF ~  PartyHasItem("helm29")
~ THEN GOTO 92
  IF ~  OR(3)
PartyHasItem("helm31")
PartyHasItem("compon12")
PartyHasItem("compon13")
~ THEN GOTO 96
  IF ~  PartyHasItem("brac24")
~ THEN GOTO 100
  IF ~  PartyHasItem("brac22")
~ THEN GOTO 104
  IF ~  PartyHasItem("tome01")
~ THEN GOTO 107
  IF ~  OR(3)
PartyHasItem("clck02")
PartyHasItem("cdpp9")
PartyHasItem("c!pp9")
~ THEN GOTO 111
  IF ~  PartyHasItem("compon18")
~ THEN GOTO 115
  IF ~  PartyHasItem("chan16")
~ THEN GOTO 118
  IF ~  PartyHasItem("slng08")
~ THEN GOTO 122
  IF ~  PartyHasItem("quiver01")
~ THEN GOTO 124
  IF ~  PartyHasItem("blun14")
~ THEN GOTO 128
  IF ~  PartyHasItem("blun26")
~ THEN GOTO 132
  IF ~  OR(2)
PartyHasItem("dagg23")
PartyHasItem("sper11")
~ THEN GOTO 136
END

IF ~~ THEN BEGIN 144 // from: 13.0 145.2 145.3 146.0 147.2 147.3 148.0 149.1 150.1 151.1 152.1 153.1 154.1
  SAY #108043 /* ~Hmmm... aye, I see ye have some unusual pieces here. Cromwell might be able to make something of them.~ */
  IF ~  PartyHasItem("bdbrac05")
~ THEN REPLY #108044 /* ~Can you improve these Stalker Gauntlets?~ */ GOTO 145
  IF ~  PartyHasItem("bdhelm16")
~ THEN REPLY #108045 /* ~Can you improve this Circlet of Lost Souls?~ */ GOTO 147
  IF ~  PartyHasItem("GelJav0")
~ THEN REPLY #108046 /* ~Can you improve this Throwing Spear?~ */ GOTO 149
  IF ~  PartyHasItem("SPER02")
~ THEN REPLY #108047 /* ~Can you make a stronger Throwing Spear?~ */ GOTO 150
  IF ~  PartyHasItem("SPER07")
~ THEN REPLY #108048 /* ~Can you combine the Unicorn Spear and Halcyon?~ */ GOTO 151
  IF ~  PartyHasItem("SPER08")
~ THEN REPLY #108049 /* ~Can you improve the Impaler?~ */ GOTO 152
  IF ~  PartyHasItem("SPER11")
~ THEN REPLY #108050 /* ~Can you complete Ixil's Impaler?~ */ GOTO 153
  IF ~  PartyHasItem("STAF14")
~ THEN REPLY #108051 /* ~Can you empower the Staff of the Woodlands?~ */ GOTO 154
  IF ~~ THEN REPLY #95944 /* ~Never mind.~ */ GOTO 13
END

IF ~~ THEN BEGIN 145 // from: 144.0
  SAY #108052 /* ~Aye, I could reinforce those gauntlets with an ankheg shell. It'll cost ye 15,000 gold.~ */
  IF ~  PartyHasItem("bdbrac05")
PartyHasItem("misc12")
PartyGoldGT(14999)
~ THEN REPLY #108053 /* ~Yes, let's do it.~ */ DO ~TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdbrac05",1)
DestroyItem("bdbrac05")
TakePartyItemNum("misc12",1)
DestroyItem("misc12")
SetGlobal("GelForgeItem","GLOBAL",1)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~  PartyHasItem("bdbrac05")
!PartyHasItem("misc12")
~ THEN REPLY #108054 /* ~What am I missing?~ */ GOTO 146
  IF ~  PartyGoldLT(15000)
~ THEN REPLY #108055 /* ~I do not have enough gold.~ */ GOTO 144
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 146 // from: 145.1
  SAY #108056 /* ~Ye still need an ankheg shell for this work.~ */
  IF ~~ THEN REPLY #97497 /* ~I see.~ */ GOTO 144
END

IF ~~ THEN BEGIN 147 // from: 144.1
  SAY #108057 /* ~Aye, I could combine the Circlet of Lost Souls with the Helm of Vhailor. It'll cost ye 15,000 gold.~ */
  IF ~  PartyHasItem("bdhelm16")
PartyHasItem("WA2HELM")
PartyGoldGT(14999)
~ THEN REPLY #108053 /* ~Yes, let's do it.~ */ DO ~TakePartyGold(15000)
DestroyGold(15000)
TakePartyItemNum("bdhelm16",1)
DestroyItem("bdhelm16")
TakePartyItemNum("WA2HELM",1)
DestroyItem("WA2HELM")
SetGlobal("GelForgeItem","GLOBAL",2)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~  PartyHasItem("bdhelm16")
!PartyHasItem("WA2HELM")
~ THEN REPLY #108054 /* ~What am I missing?~ */ GOTO 148
  IF ~  PartyGoldLT(15000)
~ THEN REPLY #108055 /* ~I do not have enough gold.~ */ GOTO 144
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 148 // from: 147.1
  SAY #108058 /* ~Ye still need the Helm of Vhailor for this work.~ */
  IF ~~ THEN REPLY #97497 /* ~I see.~ */ GOTO 144
END

IF ~~ THEN BEGIN 149 // from: 144.2
  SAY #108059 /* ~Aye, I can combine that Throwing Spear with a Spear +1 for 500 gold.~ */
  IF ~  PartyHasItem("GelJav0")
PartyHasItem("SPER02")
PartyGoldGT(499)
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyGold(500)
DestroyGold(500)
TakePartyItemNum("GelJav0",1)
DestroyItem("GelJav0")
TakePartyItemNum("SPER02",1)
DestroyItem("SPER02")
SetGlobal("GelForgeItem","GLOBAL",3)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 150 // from: 144.3
  SAY #108061 /* ~Aye, I can combine two Spears +1 for 2,500 gold and make a Throwing Spear +2.~ */
  IF ~  NumItemsPartyGT("SPER02",1)
PartyGoldGT(2499)
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyGold(2500)
DestroyGold(2500)
TakePartyItemNum("SPER02",2)
DestroyItem("SPER02")
SetGlobal("GelForgeItem","GLOBAL",4)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 151 // from: 144.4
  SAY #108062 /* ~Aye, the Spear of the Unicorn and Halcyon can become something finer. It'll cost 5,000 gold.~ */
  IF ~  PartyHasItem("SPER07")
PartyHasItem("SPER09")
PartyGoldGT(4999)
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyGold(5000)
DestroyGold(5000)
TakePartyItemNum("SPER07",1)
DestroyItem("SPER07")
TakePartyItemNum("SPER09",1)
DestroyItem("SPER09")
SetGlobal("GelForgeItem","GLOBAL",5)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 152 // from: 144.5
  SAY #108063 /* ~Aye, I can join the Impaler with Ixi's Spike for 10,000 gold.~ */
  IF ~  PartyHasItem("SPER08")
PartyHasItem("DAGG23")
PartyGoldGT(9999)
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyGold(10000)
DestroyGold(10000)
TakePartyItemNum("SPER08",1)
DestroyItem("SPER08")
TakePartyItemNum("DAGG23",1)
DestroyItem("DAGG23")
SetGlobal("GelForgeItem","GLOBAL",6)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 153 // from: 144.6
  SAY #108064 /* ~Aye, I can bind Ixi's Nail to the improved Impaler. This is serious work: 30,000 gold.~ */
  IF ~  PartyHasItem("SPER11")
PartyHasItem("GelSpe6")
PartyGoldGT(29999)
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyGold(30000)
DestroyGold(30000)
TakePartyItemNum("SPER11",1)
DestroyItem("SPER11")
TakePartyItemNum("GelSpe6",1)
DestroyItem("GelSpe6")
SetGlobal("GelForgeItem","GLOBAL",7)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END

IF ~~ THEN BEGIN 154 // from: 144.7
  SAY #108065 /* ~Aye, with a Winter Wolf Pelt and a Demon Heart I can empower the Staff of the Woodlands.~ */
  IF ~  PartyHasItem("STAF14")
PartyHasItem("MISC01")
PartyHasItem("MISC06")
~ THEN REPLY #108060 /* ~Yes, do it.~ */ DO ~TakePartyItemNum("STAF14",1)
DestroyItem("STAF14")
TakePartyItemNum("MISC01",1)
DestroyItem("MISC01")
TakePartyItemNum("MISC06",1)
DestroyItem("MISC06")
SetGlobal("GelForgeItem","GLOBAL",8)
SetGlobal("GelForgeStuff","GLOBAL",1)
~ GOTO 56
  IF ~~ THEN REPLY #95699 /* ~Not right now.~ */ GOTO 144
END
