SCENE 51 The Lake "excalibur.jpg"
ACTOR 1, "Lady of the Lake", "Lady of the Lake", 301, -10, 70
IF T950 @done
MOVE 1,25,70
WAIT 2
' i am the Lady of the Lake
WAIT 1
' and guardian of the sword of Excalibur!
WAIT 2
' only a worthy King shall call upon it's name
WAIT 2
' will that name be %1?
' only the sword can tell
WAIT 1
' will you take that test young King %1!
ASK 30
IF NO @end
IF YES @start
end
@start
' Good! let the test begin
MOVE 1,-15,70
WAIT 3
N: Behold! the sword of EXCALIBUR!
COMPARE #<num.peopleInScene>, "1"
IF<, @tking
N: you took the sword and feel its power
COMPARE #<num.hostlevel>, 99
IF<, @nworth
COMPARE #<num.token>, 999
IF<, @nworth
end
GIVE  I1010
MOVE 1,25,70
WAIT 1
' the sword have found you worthy of its power
' may it protect you King %1.
WAIT 2
H: I can feel its power!
WAIT 1
GIVE T950
N: You are now one with Excalibur
end
@tking
Move 1,15,70
WAIT 3
' only a true king may enter here
WAIT 2
' all others...BEGONE!
exit
end

@end
' then ..BEGONE mortal!
WAIT 2
GOTO exit
end
@nworth
WAIT 5
MOVE 1,20,70
WAIT 2
' i'm sorry %1
WAIT 1
' the sword find you're not worthy yet!
WAIT 2
GOTO SCENE 1
end
@done
N: the scenery here is very nice here

end

