;thank madge for this! :)
SCENE 1500, waumetsa
#include banthing.txt
ACTOR 1, "Ranger", elf, 3, 25, 95
ACTOR 2,"Cooking fire", danNoFloat, 3, 50, 95
ACTOR 3, "Ranger", elf, 1, 40, 100
IF T12, @jee
1: Welcome to our camp, %1.
1: We are rangers who guard the woods.
1: Feel free to use our fire for cooking.
3: Ha, #<g.he> can't even cook. 
1: Oh. Feel free to rest then.
END
@jee
1: Welcome to our camp, %1.
1: We are rangers who guard the woods.
1: Feel free to use our fire for cooking.
1: Do you want to cook?
WAIT 2
MENU "Yes=@start", "No=@saidno"
@cancel
END
@start
SET menu1, "Unavailable"
SET menu1b, "Unavailable"
SET menu2, "Unavailable"
SET menu2b, "Unavailable"
SET menu3, "Unavailable"
SET menu3b, "Unavailable"
SET menu4, "Unavailable"
SET menu4b, "Unavailable"
SET menu5, "Unavailable"
SET menu5b, "Unavailable"
IF I60+I61, @makesoup
@2ndcheck
IF I62, @makemushrooms
@3rdcheck
IF I63, @makeshrimp
@4thcheck
IF I64, @makefish
@5thcheck
IF I61+I64, @makefishsteaks
GOTO @COOKING
END

@makesoup
SET menu1, "Meat soup"
SET menu1b, "Meatsoup"
GOTO @2ndcheck

@makemushrooms
SET menu2, "Cooked mushrooms"
SET menu2b, "Cookedmushrooms"
GOTO @3rdcheck

@makeshrimp
SET menu3, "Cooked shrimps"
SET menu3b, "Cookedshrimps"
GOTO @4thcheck

@makefish
SET menu4, "Cooked fish"
SET menu4b, "Cookedfish"
GOTO @5thcheck

@makefishsoup
SET menu5, "Fish steaks"
SET menu5b, "Fishsteaks"
GOTO @COOKING

@COOKING
1: The recipes you can make are shown on the popup menu.
WAIT 2
@Unavailable
MENU "#<menu1>=@#<menu1b>" "#<menu2>=@#<menu2b>" "#<menu3>=@#<menu3b>" "#<menu4>=@#<menu4b>" "#<menu5>=@#<menu5b>"
END

@Meatsoup
HOST_TAKE I60
HOST_TAKE I61
COMPARE %R5, 1
IF= @failed
HOST_GIVE I66
N: You just made some nutritous soup!
GOTO @ask

@Cookedmushrooms
HOST_TAKE I62
COMPARE %R10, 1
IF= @failed
HOST_GIVE I67
N: You just made some cooked mushrooms!
GOTO @ask

@Cookedshrimps
HOST_TAKE I63
COMPARE %R20, 1
IF= @failed
HOST_GIVE I68
N: You just made some cooked shrimps!
GOTO @ask

@Cookedfish
HOST_TAKE I64
COMPARE %R20, 1
IF= @failed
HOST_GIVE I69
N: You just made some cooked fish!
GOTO @ask

@Fishsoup
HOST_TAKE I64
HOST_TAKE I61
COMPARE %R5, 1
IF= @failed
HOST_GIVE I70
N: You just made some fish steaks!
GOTO @ask

@failed
WAIT 2
N: Your skills aren't up to the task, you burnt the dish beyond belief.
N: Care for some charcoal?
@ask
1: Would you like to try to cook something else?
ASK 9999
IF -yes, @saidno
GOTO @start
@saidno
1: Ok, feel free to rest here. You'll be safe.
END

;this is a comment
