SCENE 1511, dwarfsmith
#include banthing.txt
ACTOR 1, "Dwarf", dwarf, 2, 30, 95
1: Hey #<g.lad>!
1: Ye here to smith stuff or not?
WAIT 2
MENU "Yes=@smith", "No=@saidno", "Huh?=@answer"
END
@answer
1: Smith stuff from minerals of course!
1: Mithril, Thoridium, Warpstone!
1: Miners get those. If you don't have, buy from miners!
1: Or learn to mine!
1: Now, do ye want ta forge somethin' or not!?
WAIT 2
MENU "Yes=@smith", "No=@saidno"
END
@saidno
1: Then get outta here before ye gets stepped on or somthin'..
END
@smith
IF -V80, @tooyoung
1: Good, ye be a real dwarf in makin'!
1: Feel free to use the anvil an' forge!
1: Here's a list what ye can attempt to make.
@forge
WAIT 3
MENU "Thoridium plate=@thorplate", "Mithril Light Plate=@mithlight", "Warpstone Power Suit=@warppower", "Warpstone Grim Helm=@warpgrim", "Thoridium Gauntlets=@thorgaunt"
1: So, nothing fer ye? Have a good day.
1: And more importantly.. Stop wasting me time an' get out!!!!
END
@thorplate
1: So ye wants to make a Thoridium Plate?
1: Good choice, albeit a difficult one to make.
1: Ye need 20 Thoridium, 1 Mithril and 1 Warpstone.
COMPARE #<num.item90>, 19
IF> @thorpl
1: Ye don't have everything needed..
END
@thorpl
IF I91+I92, @thorpla
END
@thorpla
1: Seems ye have everything ye needs to make one.
WAIT 2
N: You attempt to forge the Plate.
COMPARE %R2, 1
IF= @thorp
WAIT 2
1: Oi, it seems ye managed to destroy it..
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I91
HOST_TAKE I92
1: Thas kind of normal though.
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@thorp
WAIT 2
1: Oi ye managed to make it!
WAIT 2
N: You forged a Thoridium Plate!
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I91
HOST_TAKE I92
HOST_GIVE I94
WAIT 2
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@tooyoung
1: Ye thinks ye can smith that young?
1: Nay, come back later when yer more experienced.
1: Say, level 80.
END

@mithlight
1: So ye wants to make a Mithril Light Plate?
1: Good choice, light to carry. Takes skill to craft one though.
1: Ye need 32 Mithril, 1 Thoridium and 1 Warpstone.
COMPARE #<num.item92>, 31
IF> @mith
1: Ye don't have everything needed..
END
@mith
IF I91+I90, @mithi
END
@mithi
1: Seems ye have everything ye needs to make one.
WAIT 2
N: You attempt to forge the Light Plate.
COMPARE %R2, 1
IF= @mithlig
WAIT 2
1: Oi, it seems ye managed to destroy it..
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I91
HOST_TAKE I90
1: Thas kind of normal though.
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@mithlig
WAIT 2
1: Oi ye managed to make it!
WAIT 2
N: You forged a Mithril Light Plate!
HOST_GIVE I95
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I92
HOST_TAKE I91
HOST_TAKE I90
WAIT 2
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END

@warppower
1: So ye wants to make a Warpstone Power Suit?
1: Smellin' like them damned Skaven.. Warpstone is dangerous..
1: Ye need 1 Mithril, 1 Thoridium and 26 Warpstone.
COMPARE #<num.item91>, 25
IF> @warps
1: Ye don't have everything needed..
END
@warps
IF I90+I92, @warpst
END
@warpst
1: Seems ye have everything ye needs to make one.
WAIT 2
N: You attempt to forge the Warpstone Power Suit.
COMPARE %R2, 1
IF= @powersuit
WAIT 2
1: Oi, it seems ye managed to destroy it..
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I92
HOST_TAKE I90
1: Thas kind of normal though.
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@powersuit
WAIT 2
1: Oi ye managed to make it!
WAIT 2
N: You forged a Warpstone Power Suit!
HOST_GIVE I96
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I92
HOST_TAKE I90
WAIT 2
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END

@warpgrim
1: So ye wants to make a Warpstone Grim Helm?
1: Smellin' like them damned Skaven.. 
1: Looks Grim an' stuff, would fit us Dwarves..
1: If it only weren't green..
1: Ye need 1 Mithril and 15 Warpstone.
COMPARE #<num.item91>, 14
IF> @grim
1: Ye don't have everything needed..
END
@grim
IF I92, @grimh
END
@grimh
1: Seems ye have everything ye needs to make one.
WAIT 2
N: You attempt to forge the Warpstone Grim Helm.
COMPARE %R2, 1
IF= @grimhe
WAIT 2
1: Oi, it seems ye managed to destroy it..
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I92
1: Thas kind of normal though.
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@grimhe
WAIT 2
1: Oi ye managed to make it!
WAIT 2
N: You forged a Warpstone Grim Helm!
HOST_GIVE I97
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I91
HOST_TAKE I92
WAIT 2
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END

@thorgaunt
1: So ye wants to make Thoridium Gauntlets?
1: Good quality stuff really.
1: Ye need 10 Thoridium and 1 Warpstone.
COMPARE #<num.item90>, 9
IF> @thorg
1: Ye don't have everything needed..
END
@thorg
IF I91, @thorga
END
@thorga
1: Seems ye have everything ye needs to make one.
WAIT 2
N: You attempt to forge Thoridium Gauntlets.
COMPARE %R2, 1
IF= @thorgau
WAIT 2
1: Oi, it seems ye managed to destroy it..
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I91
1: Thas kind of normal though.
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END
@thorgau
WAIT 2
1: Oi ye managed to make them!
WAIT 2
N: You forged Thoridium Gauntlets!
HOST_GIVE I98
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I90
HOST_TAKE I91
WAIT 2
1: Wanna attempt to forge more stuff?
ASK 999
IF Qyes, @forge
1: Fine, blasted lazy one.
END

;never mind me, I'm just a little comment

