***********************
*Made by Nemesis*
***********************

 IF T800 @campmanager

 END

 @campmanager

 ACTOR 1, "",misc,1,95,15

 END

 @eventactorclick1

 MENU "Trone Storage=@trones", "Lock/Unlock Camp=@lock", "MIDI Player=@midi", "Game Player=@game"

 END

 @trones

 COMPARE #<campbank>, "1"
 IF= @cmb
 GOTO @first
 @cmb
 N: Hello %1, what would you like today?
 MENU "Balance=@tell", "Deposit=@give", "Withdraw=@take"
 END
 @first
 N: Thank you for purchasing the Camp Manager
 SET balance, "0"
 SET trones, "0"
 WAIT 2.0
 N: With this function you can store money that you can no longer hold
 SET campbank, "1"
 WAIT 2.0
 N: Or withdraw it at a later time
 GOTO @cmba
 END
 @tell
 COMPARE #<balance>, #<trones>
 IF= @cmba
 @cmba
 N: You currently have #<balance> Trones stored
 END
 @give
 N: You currently have #<balance> Trones stored
 WAIT 2.0
 N: How many do you wish to deposit?
 WAIT 2.0
 N: Use numbers only.
 ASK 9999
 COMPARE #<lastask>, "0"
 IF< @useapos
 COMPARE #<num.hostGP>, #<lastask>
 IF< @less
 HOST_TAKE G#<lastask>
 ADD balance, #<lastask>
 SET trones, #<balance>
 N: You deposited #<lastask> Trones
 END
 @less
 N: You don't have that many Trones
 END
 @take
 N: You currently have #<balance> Trones stored.
 N: How much do you wish to withdraw?
 N: Use numbers only
 ASK 9999
 COMPARE #<lastask>, "0"
 IF< @useapos
 COMPARE #<balance>, #<lastask>
 IF< @notmuch
 SUB balance, #<lastask>
 HOST_GIVE G#<lastask>
 SET curry, #<balance>
 N: Enjoy your #<lastask> Trones
 END
 @notmuch
 N: You don't have that much stored
 END
 @useapos
 N: You must enter a positive amount
 END

 @lock

	COMPARE #<sceneLock>, 0
	IF= @locked
	LOCK 0
	SET sceneLock, 0
	SEL 1
	POSE	1
	END
@locked
	LOCK 1
	SET sceneLock, 1
	SEL 1
	POSE	2 
	END

 END

 @midi

 N: Enter midi name:
 ASK 60
 MUSIC "#<lastAsk>.mid"
 
 END

 @game

 N: Please enter the Minigame ID:
 ASK 60
 COMPARE "#<lastAsk>", "1"
 IF< 
 COMPARE "#<lastAsk>", "8"
 IF> 
 GAME #<lastAsk>
 GOTO @proxbetaend



















