;--------------
; Camp scene
;--------------
SCENE 1
SET at, 
	THEME
	BKGND
IF C10, @modcheck
IF C87, @NailZcheck
IF C88, @soniccheck
@start
STRCMP #<str.soul>, "SOUL 1021"
IF=, @sham
STRCMP #<str.soul>, "SOUL 1561"
IF=, @dar
COMPARE #<voidbound>, "1"
IF=, @cheater
STRCMP #<str.soul>, "SOUL 1015"
IF=, @cy
;STRCMP #<str.soul>, "SOUL 1056"
;IF=, @soro
STRCMP #<str.soul>, "SOUL 1436"
IF=, @cheater
STRCMP #<str.soul>, "670E10ED"
IF=, @cheater
STRCMP #<str.soul>, "SOUL 1062"
IF=, @sonic
STRCMP #<str.soul>, "SOUL 1318"
IF=, @cheater
STRCMP #<str.soul>, "SOUL 1324"
IF=, @cheater
STRCMP #<str.soul>, "SOUL 1500"
IF=, @cheater
STRCMP #<str.soul>, "732E2B12"
IF=, @cheater
STRCMP #<str.soul>, "422FD1F0"
IF=, @NailZcheck
@norm
	IF M0, @cheater
STRCMP #<str.soul>, "SOUL 1227"
IF=, @jas
	IF T4002, @cheater
	IF M2, @cheater
END
@cheater
	GOTO LINK 199,0
END
@dar
ACTOR 1, "", menu, 1, 10, 25
ACTOR 3, "", menu, 0, 90, 25
END
@eventActorClick3
WAIT 1
END
@eventActorClick1
N: Hello Darangen, What would you like today?
WAIT 1
MENU "an item=@item","gold=@gold","a spell=@spell","leveling=@leveling","life=@life","a token=@token","take token=@taketoken","class=@class","fight=@fight","nothing=@end"
END
@gold
N: How much gold would you like?
ASK 10
GIVE G#<lastAsk>
GOTO @dar
@fight
N: Fight which Monster?
ASK 10
FIGHT #<lastAsk>
GOTO @dar
@item
N: Item Number Please:
ASK 20
SET giveitemtodar, #<lastAsk>
N: How many?
ASK 20
SET repeatgiveitemtodar, #<lastAsk>
SET keepgivingtodar, 0
@keepgiving
COMPARE #<repeatgiveitemtodar>, #<keepgivingtodar>
IF=, @dar
ADD keepgivingtodar, 1
GIVE I#<giveitemtodar>
GOTO @keepgiving
@spell
N: Spell ID Please:
ASK 20
GIVE S#<lastAsk>
GOTO @dar
@leveling
FIGHT 4095
GOTO @leveling
@token
N: Token Number Please:
ASK 20
GIVE T#<lastAsk>
GOTO @dar
@taketoken
N: Take which token number?
ASK 10
TAKE T#<lastAsk>
GOTO @dar
@life
GIVE L1
GIVE H10000
GIVE M10000
GOTO @dar
@class
N: What Class# would you like to be?
ASK 20
SET num.hostClass, #<lastAsk>
GOTO @dar
@end
END

@modcheck
STRCMP #<str.soul>, "SOUL 1561"
IF<, @cheater
GOTO @start
END
@cy
ACTOR 2, "", menu, 1, 10, 25
END
@eventActorClick2
MENU "Make me a prince!=@class2","an item=@item2","a spell=@spell2","leveling=@leveling2","life=@life2","nothing=@end"
@class2
N: A Prince of Althagar you shall be!
SET num.hostClass, 20
GOTO @cy
@item2
N: Item Number Please:
ASK 20
GIVE I#<lastAsk>
GOTO @cy
@spell2
N: Spell ID Please:
ASK 20
GIVE S#<lastAsk>
GOTO @cy
@leveling2
FIGHT 4095
GOTO @leveling
END
@life2
GIVE L1
GIVE H10000
GIVE M10000
GOTO @cy
END
@soro
N: Bestow the token?
ASK 5
IF YES, @tokensoro
END
@tokensoro
GIVE T101
END
@sonic
@soniccheck
STRCMP #<str.soul>, "SOUL 1062"
IF-, @cheater
COMPARE #<sonicchange>, 1
IF=, @end
N: Hello Sonic :-)
N: Change your class to a Under Water Basket Weaver?
ASK 10
IF YES, @sonicchange
@end
END
@sonicchange
SET num.hostclass, "88"
END
@NailZcheck
STRCMP #<str.soul>, "422FD1F0"
IF-, @cheater
COMPARE #<noasknailz>, 1
IF=, @end
COMPARE #<nailzchange>, 1
IF=, @end
N: Hello NailZ :-)
N: Change your class to a Cat Goddess?
ASK 10
IF YES, @nailzchange
N: Ask this question again later?
ASK 10
IF NO, @nomoreasknailz
@end
END
@nailzchange
SET num.hostclass, "87"
END
@nomoreasknailz
SET noasknailz, 1
END
@jas
COMPARE #<jasgiverune>, 1
IF=, @end
N: Jasmin, would you like your personal rune?
ASK 10
IF YES @specialrune
END
@specialrune
GIVE I94
SET jasgiverune, 1
END
@sham
GIVE S700
GIVE S701
GIVE S702
GIVE S703
GIVE S704
GIVE S705
GIVE S706
GIVE S707
GIVE S708
GIVE S709
GIVE S710
GIVE S711
GIVE S712
GIVE S713
GIVE S714
GIVE S716
GIVE S717
GIVE S718
GOTO @norm
;@eventActorAttack1
;N: You attacked the menu! You will fight a monster now!
;SET gaurdattack, %R4
;N: cookie gaurdattack is #<gaurdattack>
;ADD gaurdattack, 999
;N: Gaurdattack is now #<gaurdattack>
;FIGHT2 #<gaurdattack>
;END
:THE GREEN BUNNY HAS PINK EARS    