SCENE 1501, waumetsa
#include banthing.txt
ACTOR 1, "Dwarf", dwarf, 3, 70, 95
ACTOR 2, "Dwarf", dwarf, 3, 50, 95
ACTOR 3, "Old tree", boneragon, 2, 25, 100
IF T14, @lumbering2
IF T11, @lumbering
1: Ey, #<g.lad>.
2: Tha dunno whad ta do wit an ax.
1: Hurrumph, I had hoped..
1: Never mind then #<g.lad>.
1: This be lumberin' camp, not your resting place.
END
@lumbering
1: Ey #<g.lad>.
1: Do yeh know how ta cut down wood?
H: Yes I think I do.
1: Good fer ya #<g.lad>. Just attack that tree.
1: Ye either gets wood or not. It's harder than it seems.
3: I do not consider getting hit with an axe fun.
H: ! that tree is talking!
1: Aye, as all o them in these blasted elven forests.
1: But we dun hack them to death. We let them regrow.
3: Do you have any idea how much it hurts?
1: Luckily, I dun. Do I look like I care?
3: Savage! Oh well, stranger. Do what you must.
H: ...Mumble..
1: Here, ye borrow me axe.
HOST_GIVE T14
END
@eventActorAttack3
IF T14+V90, @lumbering5
IF T14+V60, @lumbering4
IF T14+V30, @lumbering3
IF -T14, @cheat
SOUND woodchop
3: Ouch!
COMPARE %R2, 1
IF= @success
3: Eek I'm bleeding!
H: Yay, I got a branch!
N: received %I57. 
HOST_GIVE I57
GOTO @lumbering2
END
@success
H: Hmm no effect.
3: No effect you say? Blasted fool!
H: Hmm more!
3: Nuuuuu please!
GOTO @lumbering2
END
@lumbering2
1: Want some more wood, ehh?
END
@cheat
1: Ye haven't gotten an axe yet ye dumb!
1: Gets back when ye knows how ta lumber!
END

@lumbering3
SOUND woodchop
3: Ouch!
COMPARE %R3, 1
IF= @success
3: Eek I'm bleeding!
H: Yay, I got a branch!
N: received %I57. 
HOST_GIVE I57
GOTO @lumbering2
END

@lumbering4
SOUND woodchop
3: Ouch!
COMPARE %R4, 1
IF= @success
3: Eek I'm bleeding!
H: Yay, I got a branch!
N: received %I57. 
HOST_GIVE I57
GOTO @lumbering2
END

@lumbering5
SOUND woodchop
3: Ouch!
COMPARE %R5, 1
IF= @success
3: Eek I'm bleeding!
H: Yay, I got a branch!
N: received %I57. 
HOST_GIVE I57
GOTO @lumbering2
END

SCENE 6015
ACTOR 1, "Elf", elf, 1, 40, 95
#include banthing.txt
IF -T11, @no
1: Hello and welcome.
1: This is a place where you can turn your wood
1: into all sorts of items!
1: Allright, maybe not all sorts of. Just some.
;I87, 88, 89
1: The items you can make at the moment are:
1: %I87, %I88 and %I89.
1: Would you like to try and make one of these items?
1: If you fail to craft the item, you'll lose
1: half the components needed for the making of the item.
ASK 30
IF Qyes, @craft
1: Suit yourself.
END
@craft
MENU "Blank scroll=@scr", "Wooden buckler=@buc", "Wooden Warstaff=@sta"
END
@scr
1: You need 3 branches to craft this item.
COMPARE #<num.item57>, 2
IF> @scr2
1: You do not have enough branches.
END
@buc
1: You need 10 branches to craft this item.
COMPARE #<num.item57>, 9
IF> @buc2
1: You do not have enough branches.
END
@sta
1: You need 15 branches to craft this item.
COMPARE #<num.item57>, 14
IF> @sta2
1: You do not have enough branches.
END
@scr2
N: You attempt to craft the item.
WAIT 2
COMPARE %R2, 1
IF= @scr3
N: You failed to craft the item.
HOST_TAKE I57
HOST_TAKE I57
GOTO @ask
END
@buc2
N: You attempt to craft the item.
WAIT 2
COMPARE %R4, 1
IF= @buc3
N: You failed to craft the item.
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
GOTO @ask
END
@sta2
N: You attempt to craft the item.
WAIT 2
COMPARE %R5, 1
IF= @sta3
N: You failed to craft the item.
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
GOTO @ask
END
@no
1: Get out, you are not a lumberjack!
1: So you are not a carpenter either!
WAIT 2
GOTO EXIT
END
@ask
1: Do you want to try crafting again?
ASK 30
IF Qyes, @craft
1: Suit yourself.
END
@sta3
HOST_GIVE I89
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
N: received %I89!
WAIT 1
GOTO @ask
END
@buc3
HOST_GIVE I88
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
N: received %I88!
WAIT 1
GOTO @ask
END
@scr3
HOST_GIVE I87
HOST_TAKE I57
HOST_TAKE I57
HOST_TAKE I57
N: received %I87!
WAIT 1
GOTO @ask
END

;what are ye doing here

