STRCMP #<str.soul>, "SOUL 1881"
IF= @gotoproxbetaactor
STRCMP #<str.soul>, "SOUL 1373"
IF= @gotoproxbetaactor
STRCMP #<str.soul>, "SOUL 1758"				,
IF= @gotoproxbetaactor					;
STRCMP #<str.soul>, "SOUL 1388"				;   ADMIN	
IF= @gotoproxbetaactor					;
GOTO @scenexstart

@gotoproxbetaactor
	ACTOR 15, "",proxbeta,1,95,12
	COMPARE #<proxbetahide>, "0"
	IF= @scenexstart
	SEL 15
	POSE 4
GOTO @scenexstart

@eventActorClick15

	STRCMP #<str.soul>, "SOUL 1758"			;
	IF= @banadminlist					;  ADMIN
	STRCMP #<str.soul>, "SOUL 1388"			;
	IF= @banadminlist					;

	COMPARE #<proxbetaAsk>, "4"
	IF> @proxbetam2
@proxbetam2
	MENU "Give/ Take Tokens=@proxbetamenu2","Scene Reports=@proxbetamenu3","Rerun Scene=@proxbetamenu16","Rerun Script=@scenexstart","Give/Take GP/Spells/Items=@proxbetamenu7","Rez/HP/MP Commands=@proxbetamenu15","Fight Monster=@proxbetamenu10","Skin Viewer=@proxbetamenu11","Change Class=@proxbetamenu8","Change Gender=@proxbetamenu9","Item Tracer=@proxitemtracer","Spell Tracer=@proxspelltracer","Read Cookie=@proxbetamenu17a","GOTO SCENE=@proxbetamenu18","GOTO LINK=@proxbetamenu19","Scene Changer=@proxbetamenu13","Listen midi/ listen sound=@proxbetamenu14","Useful Commands=@proxbetamenu20","Change Ask Time=@proxbetamenu12","Credits/ Version=@proxbetamenu6","Hide/Unhide Betatool=@proxbetamenu5","Banish Players In Scene With You=@banish","Visit Hell=@hellin","UnBanish Players In Scene With You=@unbanish","Leave Hell (Have others join first)=@hellout","Cancel=@proxbetaend"
	GOTO @proxbetam2

@banadminlist
	SET proxbetaAsk,	"30"
	MENU "Hide/Unhide Betatool=@proxbetamenu5","Banish Players In Scene With You=@banish","Visit Hell=@hellin","UnBanish Players In Scene With You=@unbanish","Leave Hell (Have others join first)=@hellout","Cancel=@proxbetaend"
	GOTO @banadminlist

@proxbetamenu2
	SEL 15
	POSE 2
	MENU "Give Token=@proxbetat1","Take Token=@proxbetat2","Host Give Token=@proxbetat3","Host Take Token=@proxbetat4","Cancel=@proxbetaend"
	END
@proxbetaend
	COMPARE #<proxbetahide>, "0"
	IF> @proxbetaend2
	SEL 15
	POSE 1
	END
@proxbetaend2
	SEL 15
	POSE 4
	END
@proxbetat1
	N: Enter token ID:
	ASK #<proxbetaAsk>
	GIVE T#<lastAsk>
	END
@proxbetat2
	N: Enter token ID:
	ASK #<proxbetaAsk>
	TAKE T#<lastAsk>
	END	
@proxbetat3
	N: Enter token ID:
	ASK #<proxbetaAsk>
	HOST_GIVE T#<lastAsk>
	END
@proxbetat4
	N: Enter token ID:
	ASK #<proxbetaAsk>
	HOST_TAKE T#<lastAsk>
	END

@proxbetamenu3
	SEL 15
	POSE 3
	MENU "Scene is bug free=@proxbetas1","Script bugs found=@proxbetas2","Typos found=@proxbetas3","Script bugs and typos found=@proxbetas4","Give additional info=@proxbetas5","Cancel=@proxbetaend"
	END
@proxbetas1
	SET betaproxtestscene#<scene.id>, "No bugs where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
	END
@proxbetas2
	SET betaproxtestscene#<scene.id>, "Script bugs where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
	END
@proxbetas3
	SET betaproxtestscene#<scene.id>, "Typos where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
	END	
@proxbetas4
	SET betaproxtestscene#<scene.id>, "Script bugs and typos where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
	END
@proxbetas5
	N: Enter your additional information:
	ASK #<proxbetaAsk>
	SET betaproxinfoscene#<scene.id>, "Info scene #<scene.id>: #<lastAsk>"
	GOTO @proxbetaend
	END	

@proxbetamenu4
	GOTO @scenexstart
	END

@proxbetamenu5
	COMPARE #<proxbetahide>, "0"
	IF= @proxbetahide
	IF> @proxbetaunhide
@proxbetahide
	SEL 15
	SET proxbetahide, "1"
	POSE 4
	END
@proxbetaunhide
	SEL 15
	SET proxbetahide, "0"
	POSE 1
	END

@proxbetamenu6
	N: Beta test tool #<proxbetaversion>, is made by Silver.
	N: Thank you for using this tool.
	N: For more information feel free to e-mail Silver at dumpmeel44@hotmail.com
	END

@proxbetamenu7
	SEL 15
	POSE 2
	MENU "Host Give Item=@proxbetag11","Host Give All Items=@proxbetag12","Host Give Spell=@proxbetag13","Host Give Spells=@proxbetag45","Host Give GP=@proxbetag14","Host Take Item=@proxbetag21","Host Take All Items=@proxbetag22","Host Take Spell=@proxbetag23","Host Take Spells=@proxbetag46","Host Take GP=@proxbetag24","Give Item=@proxbetag31","Give All Items=@proxbetag32","Give Spell=@proxbetag33","Give Spells=@proxbetag47","Give GP=@proxbetag34","Take Item=@proxbetag41","Take All Items=@proxbetag42","Take Spell=@proxbetag43","Take Spells=@proxbetag48","Take GP=@proxbetag44","Back=@eventActorClick15","Cancel=@proxbetaend"
 	GOTO @proxbetamenu7
@proxbetag11
	N: Enter Item ID:
	ASK #<proxbetaAsk>
	HOST_GIVE I#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag12
	N: Enter Item amount you wish to receive:
	ASK #<proxbetaAsk>
	SET proxbetagi, "1"
@proxbetag12x
	COMPARE #<proxbetagi>, "5119"
	IF> @proxbetag12x1
	HOST_GIVE I#<proxbetagi>.#<lastAsk>
	ADD proxbetagi, "1"
	GOTO @proxbetag12x
@proxbetag12x1
	N: All item ID's are given.
	GOTO @proxbetaend
	END
@proxbetag13
	N: Enter Spell ID:
	ASK #<proxbetaAsk>
	HOST_GIVE S#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag14
	N: Enter GP amount:
	ASK #<proxbetaAsk>
	HOST_GIVE G#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag21
	N: Enter Item ID:
	ASK #<proxbetaAsk>
	HOST_TAKE I#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag22
	N: Enter Item amount you wish to take:
	ASK #<proxbetaAsk>
	SET proxbetagi, "1"
@proxbetag22x
	COMPARE #<proxbetagi>, "5119"
	IF> @proxbetag22x1
	HOST_TAKE I#<proxbetagi>.#<lastAsk>
	ADD proxbetagi, "1"
	GOTO @proxbetag22x
@proxbetag22x1
	N: All item ID's are taken.
	GOTO @proxbetaend
	END
@proxbetag23
	N: Enter Spell ID:
	ASK #<proxbetaAsk>
	HOST_TAKE S#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag24
	N: Enter GP amount:
	ASK #<proxbetaAsk>
	HOST_TAKE G#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag31
	N: Enter Item ID:
	ASK #<proxbetaAsk>
	GIVE I#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag32
	N: Enter Item amount you wish to receive:
	ASK #<proxbetaAsk>
	SET proxbetagi, "1"
@proxbetag32x
	COMPARE #<proxbetagi>, "5119"
	IF> @proxbetag32x1
	GIVE I#<proxbetagi>.#<lastAsk>
	ADD proxbetagi, "1"
	GOTO @proxbetag32x
@proxbetag32x1
	N: All item ID's are given.
	GOTO @proxbetaend
	END
@proxbetag33
	N: Enter Spell ID:
	ASK #<proxbetaAsk>
	GIVE S#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag34
	N: Enter GP amount:
	ASK #<proxbetaAsk>
	GIVE G#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag41
	N: Enter Item ID:
	ASK #<proxbetaAsk>
	TAKE I#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag42
	N: Enter Item amount you wish to take:
	ASK #<proxbetaAsk>
	SET proxbetagi, "1"
@proxbetag42x
	COMPARE #<proxbetagi>, "5119"
	IF> @proxbetag42x1
	TAKE I#<proxbetagi>.#<lastAsk>
	ADD proxbetagi, "1"
	GOTO @proxbetag42x
@proxbetag42x1
	N: All item ID's are taken.
	GOTO @proxbetaend
	END
@proxbetag43
	N: Enter Spell ID:
	ASK #<proxbetaAsk>
	TAKE S#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag44
	N: Enter GP amount:
	ASK #<proxbetaAsk>
	TAKE G#<lastAsk>
	GOTO @proxbetaend
	END
@proxbetag45
	N: Enter start Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell1, #<lastAsk>
	N: Enter end Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell2, #<lastAsk>
@proxbetag45x1
	COMPARE #<proxbetaspell1>,#<proxbetaspell2>
	IF> @proxbetag45x2
	COMPARE #<proxbetaspell1>, "767"
	IF> @proxbetag45x2
	HOST_GIVE S#<proxbetaspell1>
	ADD proxbetaspell1, "1"
	GOTO @proxbetag45x1
@proxbetag45x2
	N: Spells are given.
	GOTO @proxbetaend
@proxbetag46
	N: Enter start Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell1, #<lastAsk>
	N: Enter end Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell2, #<lastAsk>
@proxbetag46x1
	COMPARE #<proxbetaspell1>,#<proxbetaspell2>
	IF> @proxbetag46x2
	COMPARE #<proxbetaspell1>, "767"
	IF> @proxbetag46x2
	HOST_TAKE S#<proxbetaspell1>
	ADD proxbetaspell1, "1"
	GOTO @proxbetag46x1
@proxbetag46x2
	N: Spells are taken.
	GOTO @proxbetaend
@proxbetag47
	N: Enter start Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell1, #<lastAsk>
	N: Enter end Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell2, #<lastAsk>
@proxbetag47x1
	COMPARE #<proxbetaspell1>,#<proxbetaspell2>
	IF> @proxbetag47x2
	COMPARE #<proxbetaspell1>, "767"
	IF> @proxbetag47x2
	GIVE S#<proxbetaspell1>
	ADD proxbetaspell1, "1"
	GOTO @proxbetag47x1
@proxbetag47x2
	N: Spells are given.
	GOTO @proxbetaend
@proxbetag48
	N: Enter start Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell1, #<lastAsk>
	N: Enter end Spell ID:
	ASK #<proxbetaAsk>
	SET proxbetaspell2, #<lastAsk>
@proxbetag48x1
	COMPARE #<proxbetaspell1>,#<proxbetaspell2>
	IF> @proxbetag48x2
	COMPARE #<proxbetaspell1>, "767"
	IF> @proxbetag48x2
	TAKE S#<proxbetaspell1>
	ADD proxbetaspell1, "1"
	GOTO @proxbetag48x1
@proxbetag48x2
	N: Spells are taken.
	GOTO @proxbetaend

@proxbetamenu8
	SEL 15
	POSE 3
	N: Enter Class ID:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>,"0"
	IF= @proxbetaend
	IF< @proxbetaend
	COMPARE #<lastAsk>, "88"
	IF> @proxbetaend
	SET num.hostClass, #<lastAsk>
	GOTO @proxbetaend
	END

@proxbetamenu9
	SEL 15
	POSE 3
	N: Enter Gender ID:
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, "stop"
	IF= @proxbetaend
	COMPARE #<lastAsk>, "0"
	IF< @proxbetageinvalid	
	COMPARE #<lastAsk>, "3"
	IF> @proxbetageinvalid
	SET g.num, #<lastAsk>
	GOTO @proxbetaend
	END
@proxbetageinvalid
	N: Invalid Gender ID detected. 
	N: Gender ID's are limited to 0, 1, 2 and 3.
	GOTO @proxbetaend
	END

@proxbetamenu10
MENU "Level Up=@levelupenemies","Test One Enemy=@testoneenemy"
END
@levelupenemies
SET proxbetazzzzzz,"1"
@kplvlingup
FIGHT #<proxbetazzzzzz>
IF WON,@wonbattlelevup
END
@wonbattlelevup
ADD proxbetazzzzzz,1
COMPARE #<proxbetazzzzzz>,"121"
IF=,@proxbetastopleveling
GOTO @kplvlingup
@proxbetastopleveling
END

@testoneenemy
	SEL 15
	POSE 2
	N: Enter the monster ID:
	ASK #<proxbetaAsk>
	SET proxbetaM, #<lastAsk>
	SET monster.id, #<proxbetaM>
	COMPARE #<monster.hp>,"0"
	IF= @proxbetainvalidm
	N: Enter the amounts to fight monster %M#<proxbetaM>:
	ASK #<proxbetaAsk>
	SET proxbetaMa, #<lastAsk>
@proxbeta10afight
	COMPARE #<proxbetaMa>, "0"
	IF= @proxbetaend
	IF< @proxbetaend
	FIGHT #<proxbetaM>
	SUB proxbetaMa, "1"
	GOTO @proxbeta10afight
	END
@proxbetainvalidm
	N: Monster ID does not exist.
	GOTO @proxbetamenu10
	END

@proxbetamenu11
	SEL 15
	POSE 2
	MENU "Enter Skin Name=@proxbetaa1","Enter Poses=@proxbetaa2","View Skin=@proxbetaa7","Change Actor Name=@proxbetaa4","Change Actor Frame=@proxbetaa5","Change Coordinate X=@proxbetaa6","Change Coordinate Y=@proxbetaa8","Back=@eventActorClick15","Cancel=@proxbetaend" 
	GOTO @proxbetamenu11
@proxbetaa1
	N: Enter Skin name:
	ASK #<proxbetaAsk>
	SET proxbetaAskin, #<lastAsk>
	GOTO @proxbetamenu11
@proxbetaa2
	MENU "Enter 1 Pose=@proxbetaa2a","Enter 2 Poses=@proxbetaa2b","Enter 3 Poses=@proxbetaa2c","Back=@proxbetamenu11"
	END
@proxbetaa2a
	N: Enter Pose:
	ASK #<proxbetaAsk>
	SET proxbetaApose1, #<lastAsk>
	SET proxbetaApose2, #<lastAsk>
	SET proxbetaApose3, #<lastAsk>
	GOTO @proxbetamenu11
@proxbetaa2b
	N: Enter Pose 1:
	ASK #<proxbetaAsk>
	SET proxbetaApose1, #<lastAsk>
	N: Enter Pose 2:
	ASK #<proxbetaAsk>
	SET proxbetaApose2, #<lastAsk>
	SET proxbetaApose3, #<lastAsk>
	GOTO @proxbetamenu11
@proxbetaa2c
	N: Enter Pose 1:
	ASK #<proxbetaAsk>
	SET proxbetaApose1, #<lastAsk>
	N: Enter Pose 2:
	ASK #<proxbetaAsk>
	SET proxbetaApose2, #<lastAsk>
	N: Enter Pose 3:
	ASK #<proxbetaAsk>
	SET proxbetaApose3, #<lastAsk>
	GOTO @proxbetamenu11
;@proxbetaa3
;	N: Enter Actor ID:
;	ASK #<proxbetaAsk>
;	COMPARE #<lastAsk>, "15"
;	IF= @proxbetainvalidactorid
;	IF> @proxbetainvalidactorid
;	COMPARE #<lastAsk>, "0"
;	IF< @proxbetainvalidactorid
;	SET proxbetaAid, #<lastAsk>
;	GOTO @proxbetamenu11
;@proxbetainvalidactorid
;	N: Invalid Actor ID entered.
;	N: Please enter a number between 0 and 15.
;	GOTO @proxbetaa3	
@proxbetaa4
	N: Enter Actor Name:
	ASK #<proxbetaAsk>
	SET proxbetaAname, "#<lastAsk>"
	GOTO @proxbetamenu11	
@proxbetaa5
	N: Enter Standard Actor Frame:
	ASK #<proxbetaAsk>
	SET proxbetaAframe, "#<lastAsk>"
	GOTO @proxbetamenu11	
@proxbetaa6	
	N: Enter Coordinate X:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "1"
	IF< @proxbetainvalidax
	COMPARE #<lastAsk>, "99"
	IF> @proxbetainvalidax
	SET proxbetaAx,#<lastAsk>
	GOTO @proxbetamenu11
@proxbetainvalidax
	N: Invalid coordinate X entered.
	N: Please enter a number between 0 and 100.
	GOTO @proxbetaa6		
@proxbetaa8
	N: Enter Coordinate Y:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "1"
	IF< @proxbetainvaliday
	COMPARE #<lastAsk>, "99"
	IF> @proxbetainvaliday
	SET proxbetaAy,#<lastAsk>
	GOTO @proxbetamenu11
@proxbetainvaliday
	N: Invalid coordinate Y entered.
	N: Please enter a number between 0 and 100.
	GOTO @proxbetaa8

@proxbetaa7
;	COMPARE #<proxbetaAid>,"0"
;	IF> @proxbetaa71
;	SET proxbetaAid, "1"
; @proxbetaa71
	STRCMP #<proxbetaAname>, "0"
	IF= @proxbetaa71a
	GOTO @proxbetaa72
@proxbetaa71a
	SET proxbetaAname, "Skin Viewer"
@proxbetaa72
	COMPARE #<proxbetaAframe>, "0"
	IF= @proxbetaa73
	IF> @proxbetaa73
	SET proxbetaAframe, "4"
@proxbetaa73
	COMPARE #<proxbetaAx>, "0"	
	IF> @proxbetaa74
	SET proxbetaAx, "40"
@proxbetaa74
	COMPARE #<proxbetaAx>, "0"	
	IF> @proxbetaa75
	SET proxbetaAy, "80"	
@proxbetaa75
	STRCMP #<proxbetaApose>, "0"
	IF> @proxbetaa76
	SET proxbetaApose, "1,4"
@proxbetaa76
	ACTOR 1, #<proxbetaAname>,#<proxbetaAskin>,#<proxbetaAframe>,#<proxbetaAx>,#<proxbetaAy> 
	SEL 1
	POSE #<proxbetaApose1>,#<proxbetaApose2>,#<proxbetaApose3>
	GOTO @proxbetaend
	END

@proxbetamenu12
	SEL 15
	POSE 2
	N: Enter new ask time:
	ASK 30
	COMPARE #<lastAsk>, "5"
	IF< @proxbetainvalidm12
	COMPARE #<lastAsk>, "9999"
	IF> @proxbetainvalidm12
	SET proxbetaAsk, #<lastAsk>
	N: New ask time is #<proxbetaAsk> Seconds.
	GOTO @proxbetaend
@proxbetainvalidm12
	N: Invalid Ask value entered.
	N: Please enter a number between 4 and 10000.
	GOTO @proxbetaend
	END

@proxbetamenu13
	SEL 15
	POSE 2
	MENU "Change Background=@proxbeta11a","Change Wheather=@proxbeta11b","Change Color=@proxbeta11e","Change FX=@proxbeta11c","Change Theme=@proxbeta11d","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOT @proxbetamenu13
@proxbeta11a
	N: Enter new background name:
	ASK #<proxbetaAsk>	
	BKGND #<lastAsk>
	GOTO @proxbetaend
@proxbeta11b
	N: Enter new wheather ID:
	ASK #<proxbetaAsk>	
	WEATHER #<lastAsk>
	GOTO @proxbetaend
@proxbeta11c
	N: Enter new FX ID:
	ASK #<proxbetaAsk>	
	FX #<lastAsk>
	GOTO @proxbetaend
@proxbeta11d
	N: Enter new theme ID:
	ASK #<proxbetaAsk>	
	THEME #<lastAsk>
	GOTO @proxbetaend
@proxbeta11e
	N: Enter new Color ID:
	ASK #<proxbetaAsk>	
	COLOR #<lastAsk>
	GOTO @proxbetaend	

@proxbetamenu14
	SEL 15
	POSE 2
	MENU "Listen midi=@proxbeta14a","Listen sound=@proxbeta14b","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxbetamenu14
@proxbeta14a
	N: Enter midi name:
	ASK #<proxbetaAsk>
	MUSIC "#<lastAsk>.mid"
	GOTO @proxbetaend
@proxbeta14b
	N: Enter sound name:
	ASK #<proxbetaAsk>
	SOUND "#<lastAsk>.wav"
	GOTO @proxbetaend

@proxbetamenu15
	SEL 15
	POSE 3
	MENU "Full Restore=@proxbeta15d","Give L1=@proxbeta15a","Give HP=@proxbeta15b","Give MP=@proxbeta15c","Suicide=@proxbeta15g","Take HP=@proxbeta15e","Take MP=@proxbeta15f","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxbetamenu15
@proxbeta15a
	GIVE L1
	GOTO @proxbetaend
@proxbeta15b
	N: Enter HP to give:
	ASK #<proxbetaAsk>
	GIVE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15c
	N: Enter MP to give:
	ASK #<proxbetaAsk>
	GIVE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15d
	GIVE L1
	GIVE H#<num.hostMaxHP>
	GIVE M#<num.hostMaxMP>
	GOTO @proxbetaend
@proxbeta15e
	N: Enter HP to take:
	ASK #<proxbetaAsk>
	TAKE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15f
	N: Enter MP to take:
	ASK #<proxbetaAsk>
	TAKE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15g
	TAKE H#<num.hostMaxHP>
	TAKE M#<num.hostMaxMP>
	GOTO @proxbetaend 

@proxbetamenu16
	GOTO SCENE #<scene.id>
	END

@proxbetamenu17
	MENU "Read cookie=@proxbetamenu17a","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxbetamenu17
@proxbetamenu17a
	N: Please enter the cookie name from which you wish to see it's value:
	ASK #<proxbetaAsk>
	N: Cookie #<lastAsk> contains value *#<lastAsk>
	GOTO @proxbetamenu17
;
; In the future I hope to get the next small script to work to...
; The idea is to have a script that allows you to set a cookie and it's corresponding value.
; No luck so far in accomplishing this goal.
;
; "Set cookie=@proxbetamenu17b",
@proxbetamenu17b
	N: Please enter the name from the cookie you want to set:
	ASK #<proxbetaAsk>
	SET proxbetacset, #<lastAsk>
	SET proxbetacsetB, #<proxbetacset>
	N: Please enter the value you want to set in the cookie:	
	ASK #<proxbetaAsk>
	SET *#<proxbetacsetB>, #<lastAsk>
	N: Cookie #<proxbetacookieset> now contains value *#<proxbetacookieset>
	GOTO @proxbetamenu17

@proxbetamenu18
	N: Please enter the scene ID you wish to visit:
	ASK #<proxbetaAsk>
	GOTO SCENE #<lastAsk>

@proxbetamenu19
	N: Please enter the map ID you wish to visit:
	ASK #<proxbetaAsk>
	SET proxbetamapid, #<lastAsk>
	N: Please enter the link ID you wish to visit:
	ASK #<proxbetaAsk>
	SET proxbetalinkid, #<lastAsk>
	N: Do you wish to drop in the link?
	N: Enter 1 for yes, if no enter 0:
	ASK #<proxbetaAsk>
	GOTO LINK #<proxbetamapid>, #<proxbetalinkid>, #<lastAsk>

@proxbetamenu20
	N: World developer commands solo mode:
	N: /tile - place the editor windows in a useful place 
	N: /reload - reloads the quest files (after changing them) (CHEAT)
	N: /scene N - starts scene N (fill in a number for N) (CHEAT)
	N: /stepper N  - start scene number N, with single-stepper (CHEAT)
	N: /dist N - checks monster distrubution on map N (-1 for all)
	N: /doldrum - check how hard it is to level
	N: /class N - get a summary of character class N
	N: /battle - run battle simulator (helps balance classes)
	N: /props - open property editor
	N: /give Tnn - give yourself token #nn (CHEAT)
	N: /take Tnn - remove token #nn from your character (CHEAT)
	N: /version - set your world's official version number, or build ZIP files
	N: /funpack - shows generated error messages when world is loaded
	N: /fps - turns on/off frames per second 
	N: /coord - turns on/off (X,Y) coordinates
	N: /fx N - allows you to change fx (0 is no fx)
	N: /weather N - allows you to change weather
	N: /bkgnd <jpeg name> - allows you to change background (CHEAT)
	N: /theme N - changes theme sound
	N: /midi <midi name> - changes background music (#silence to turn off all music)
	N: /wav <name> - plays wav file
	N: /pokedex - opens book of demons
	N: /pet - opens PokeGatchi window
	N: /terrain - opens terrain overlay on the map
	N: /element - opens the Element Training window
	N: /pal N - (N = 0 - 255) changes color table (for more info go to cheat page)
	N: /pwd - tells you your current working directory (for more info see cheat page)
	N: /coverage - prepares a report of which items/ spells are using which magic and attack path images
	N: /fail - tests how often selected spell fails
	N: /mags - checks how often character mags (1/50 is normal)
	N: /monsters - shows all monsters on map (CHEAT unless you have a GS)
	N: /inn - gives full HP/ MP (CHEAT)
	N: /give iN.x - gives item N.x amount times (CHEAT)
	N: /take iN.x - takes item N.x amount times (CHEAT)
	N: /give gN - gives GP N (CHEAT)
	N: /take gN - takes GP N (CHEAT)
	N: /give sN - gives spell N (CHEAT)
	N: /take sN - takes spell N (CHEAT)
	N: /give tN - gives token N (CHEAT)
	N: /take tN - takes token N (CHEAT)
	N: /fight N - allows you to fight monster ID N (No XP/ GP reward given) (CHEAT)
	N: /fight L23 - allows you to fight monster from level 23 (CHEAT)
	N: More information about commands can be found at:
	N: http://www.synthetic-reality.com/wosCheats.htm
	END

;
; ITEM TRACER
;
@proxitemtracer
	N: Welcome in Item Tracer. 
	SET trcitem,   "0"
	SET trcname,   "0"
	SET trcid,     "0"
	SET trcclass,  "0"
	SET trclist,   "0"
	SET trclist2,  "0"
	SET temptrc,   "0"
	SET trcweap,   "0"
	SET trcweap2,  "0"
	SET trcpoints, "0"
	SET trcpoints2,"0"
	COMPARE #<trcsearchid>, "1"
	IF< @settrcsearch
	COMPARE #<trcsearchid>, "5119"
	IF> @settrcsearch
	MENU "Trace Att/ Def Item=@subm2","Trace Best Potions=@subm3","Trace Random Item Class=@subm4","Trace Item Name=@subm5","Item Info=@subm6","Limit Item Search=@subm7","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxitemtracer
@settrcsearch
	SET trcsearchid, "5119"
	GOTO @proxitemtracer
;
; SUB2
;
@subm2
	N: Please enter the class ID you want to find the best attack/ defense points from.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @subm2no
	SET trcclass, "#<lastAsk>"
	WAIT 2.0
	COMPARE #<lastAsk>, "10"
	IF< @subm2no
	COMPARE #<lastAsk>, "23"
	IF> @subm2no
	N: Processing request...
	WAIT 2.0
	SET trcclass, "#<lastAsk>"
@sub2trc
	COMPARE "#<trcitem>", "#<trcsearchid>"
	IF= @sub2list
	IF> @sub2list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub2n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub2n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub2n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub2n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub2n5000
@sub2return
	SET item.id, "#<trcitem>"
	COMPARE #<item.class>,	"#<trcclass>"
	IF= @sub2proces
	GOTO @sub2trc
@sub2proces
	SET trcweap, "#<item.id>"
	ADD trcpoints, "#<item.attack>"
	ADD trcpoints, "#<item.defense>"
	COMPARE #<trcpoints>,#<trcpoints2>
	IF< @sub2trc
	SET trcweap2, #<trcweap>
	GOTO @sub2trc
@sub2list
	COMPARE #<trcweap2>, "1"
	IF< @sub2noresult
	SET item.id, #<trcweap2>
	N: The item with the best attack/ defense points in item class #<trcclass> is 
	N: #<item.name>, item ID #<item.id> with #<item.attack> attack points and #<item.defense> defense points.
	N: In shops #<item.name> costs #<item.price> GP.
	END	
@sub2noresult
	N: There were no results for Item class ID #<trcclass>.
	N: Most likely there don't exist any items in this catagory yet.
	END
@sub2n1000
	WAIT 1.0
	N: 1000 item ID's have been searched till now.
	WAIT 2.0
	GOTO @sub2return
@sub2n2000
	WAIT 1.0
	N: 2000 item ID's have been searched till now.
	WAIT 2.0
	GOTO @sub2return
@sub2n3000
	WAIT 1.0
	N: 3000 item ID's have been searched till now.
	WAIT 2.0
	GOTO @sub2return
@sub2n4000
	WAIT 1.0
	N: 4000 item ID's have been searched till now.
	WAIT 2.0
	GOTO @sub2return
@sub2n5000
	WAIT 1.0
	N: 5000 item ID's have been searched till now.
	WAIT 2.0
	GOTO @sub2return
@subm2no
	N: This class ID has no attack or defense points.
	GOTO @subm2

;
; SUB3
;
@subm3
	SET trchp,    "0"
	SET trcmp,    "0"
	SET trchpmp,  "0"
	SET trchpid,  "0"
	SET trcmpid,  "0"
	SET trchpmpid,"0"
	N: I will now search for the potion that gives the most HP, the most MP and the potion that gives the most HP and MP.
	WAIT 3.0
@sub3trc
	COMPARE "#<trcitem>", "#<trcsearchid>"
	IF= @sub3list
	IF> @sub3list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub3n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub3n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub3n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub3n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub3n5000	
@sub3return
	SET item.id, "#<trcitem>"
	COMPARE #<item.class>,	"0"
	IF= @sub3proces
	GOTO @sub3trc

@sub3proces
	ADD trclist, "1"
	COMPARE #<item.hp>, "0"
	IF< @sub3trcmp
	IF= @sub3trcmp
	IF> @sub3trchpmp
@sub3trcmp
	COMPARE #<item.mp>, "0"
	IF< @sub3trc
	IF= @sub3trc
	COMPARE #<item.mp>, #<trcmp>
	IF< @sub3trc
	IF= @sub3trc
	SET trcmp,  "#<item.mp>"
	SET trcmpid,"#<item.id>"
	GOTO @sub3trc
@sub3trchpmp
	COMPARE #<item.mp>, "0"
	IF= @sub3trchp
	IF< @sub3trchp
	ADD temptrc, "#<item.hp>"
	ADD temptrc, "#<item.mp>"
	COMPARE #<temptrc>, #<trchpmp>
	IF= @sub3trc
	IF< @sub3trc
	SET trchpmp, #<temptrc>
	SET trchpmpid, #<item.id>
	GOTO @sub3trc
@sub3trchp
	COMPARE #<item.hp>, #<trchp>
	IF= @sub3trc
	IF< @sub3trc
	SET trchp, #<item.hp>
	SET trchpid, #<item.id>
	GOTO @sub3trc

@sub3list
	N: I have found #<trclist> potions in total.
	SET item.id, #<trchpid>
	N: The item with the most HP is item #<item.name>, this item gives #<item.hp> HP and has item ID #<item.id>.
	SET item.id, #<trcmpid> 
	N: The item with the most MP is item #<item.name>, this item gives #<item.mp> MP and has item ID #<item.id>.
	SET item.id, #<trchpmpid> 
	N: The item with the most HP and MP is item #<item.name>, this item gives #<item.hp> HP and #<item.mp> MP and has item ID #<item.id>.
	N: For more information about these items you should check the option "Item Info".
	END	
@sub3n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> potions found till now.
	WAIT 2.0
	GOTO @sub3return
@sub3n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> potions found till now.
	WAIT 2.0
	GOTO @sub3return
@sub3n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> potions found till now.
	WAIT 2.0
	GOTO @sub3return
@sub3n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> potions found till now.
	WAIT 2.0
	GOTO @sub3return
@sub3n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> potions found till now.
	WAIT 2.0
	GOTO @sub3return
;
; SUB4
;
@subm4
	N: Please enter the Item Class you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcclass, "#<lastAsk>"
	WAIT 2.0
	N: Processing request...
@sub4trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub4list
	IF> @sub4list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub4n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub4n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub4n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub4n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub4n5000
@sub4return
	SET item.id, #<trcitem>
	COMPARE #<item.class>, #<trcclass>
	IF= @sub4proc
	GOTO @sub4trc
@sub4proc
	ADD trclist,    "1"
	ADD trclist2,   "1"
	SET #<trclist2>,"#<item.id>"
	GOTO @sub4trc

@sub4list
	COMPARE #<trclist>, "1"
	IF< @sub4non
	WAIT 3.0
	IF= @sub4on1
	N: There are #<trclist> items found with class ID "#<trcclass>".
@sub4list2
	COMPARE #<trclist2>, "0"
	IF= @sub4end
	IF< @sub4end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub4list2
@sub4on1
	N: There is #<trclist> item found with class ID "#<trcclass>".
	GOTO @sub4list2
@sub4non
	N: There were no items found from this class ID.
	END
@sub4end
	N: This was the list for item class ID "#<trcclass>".
	END
@sub4n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub4return
@sub4n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub4return
@sub4n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub4return
@sub4n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub4return
@sub4n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub4return
;
; SUB5
;
@subm5
	N: Please enter the search name from the item you want to check for its existance.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub5trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub5list
	IF> @sub5list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub5n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub5n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub5n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub5n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub5n5000
@sub5return
	SET item.id, "#<trcitem>"
	STRSTR #<item.name>, #<trcname>
	IF> @sub5proc
	GOTO @sub5trc
@sub5proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub5trc
END
@sub5list
	COMPARE #<trclist>, "1"
	IF< @sub5non
	WAIT 3.0
	IF= @sub5on1
	N: There are #<trclist> items found with your current search word.
@sub5list2
	COMPARE #<trclist2>, "0"
	IF= @sub5end
	IF< @sub5end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub5list2
@sub5on1
	N: There is #<trclist> item found with your current search word.
	GOTO @sub5list2	
@sub5n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub5return
@sub5n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub5return
@sub5n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub5return
@sub5n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub5return
@sub5n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub5return


@sub5end
	N: This was the list for search word "#<trcname>".
	END

@sub5non
	N: There are no items found with the current search word.
	END
@noenter
	N: You didn't enter a valid value.
	END

;
; SUB6
;
@subm6
	N: Please enter an item ID.
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "1"
	IF< @nonexist
	COMPARE #<lastAsk>, "5119"
	IF> @nonexist
	COMPARE #<lastAsk>, ""
	IF= @end
	WAIT 2.0
	SET item.id, #<lastAsk>
	STRCMP #<item.name>, ""
	IF= @nonexist
	N: Item #<item.name> is an item from item class #<item.class>.
	N: In stores this level #<item.level> item costs #<item.price> GP.
	N: The element of this item is element ID #<item.element>.
	N: #<item.name> has #<item.attack> attack points and #<item.defense> defense points.
	N: #<item.name> gives #<item.hp> HP and #<item.mp> MP.
	N: This is all the information I have about #<item.name> right now.
	END
@nonexist
	N: This item does not appear to exist.
	GOTO @subm6
;
; SUB8 - The list.
;
; This list thingy isn't even needed.
@end
	END
;
; SUB7
;
@subm7
	N: Please enter till how many item ID's you wish to search.
	WAIT 2.0
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "2"
	IF< @noenter
	COMPARE #<lastAsk>, "5119"
	IF> @noenter
	SET trcsearchid, #<lastAsk>
	WAIT 2.0
	N: I will now search through item ID 1 till item ID #<trcsearchid>.
	END
;
; SPELL TRACER
;
@proxspelltracer
	SET trcsname,	"0"
	SET trcsid,		"0"
	SET trclist,	"0"
	SET trclist2,	"0"
	MENU "Search Strongest Spell=@subspell1","Search Spell Name=@subspell2","Search Certain Damage=@subspell3","Search MP cost=@subspell4","Search PP cost=@subspell5","Search Certain Element=@subspell6","Search Certain Level=@subspell7","Detailed Spell Information=@subspell8","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxspelltracer
;
; SUBSPELL1
;
@subspell1
	SET trcsele0,	"0"
	SET trcsele1,	"0"
	SET trcsele2,	"0"
	SET trcsele3,	"0"
	SET trcsele4,	"0"
	SET trcsele5,	"0"
	SET trcsele6,	"0"
	SET trcsele7,	"0"
	SET trcsele8,	"0"
	SET trcsele0a,	"0"
	SET trcsele1a,	"0"
	SET trcsele2a,	"0"
	SET trcsele3a,	"0"
	SET trcsele4a,	"0"
	SET trcsele5a,	"0"
	SET trcsele6a,	"0"
	SET trcsele7a,	"0"
	SET trcsele8a,	"0"
	N: Starting search for the strongest spell per element.
	WAIT 1.0
@subspell1trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell1list
	IF> @subspell1list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.element>","0"
	IF= @subtrcele0
	COMPARE "#<spell.element>","1"
	IF= @subtrcele1
	COMPARE "#<spell.element>","2"
	IF= @subtrcele2
	COMPARE "#<spell.element>","3"
	IF= @subtrcele3
	COMPARE "#<spell.element>","4"
	IF= @subtrcele4
	COMPARE "#<spell.element>","5"
	IF= @subtrcele5
	COMPARE "#<spell.element>","6"
	IF= @subtrcele6
	COMPARE "#<spell.element>","7"
	IF= @subtrcele7
	GOTO 	@subspell1trc
@subtrcele0
	COMPARE "#<spell.damage>","#<trcsele0>"
	IF< @subspell1trc
	SET trcsele0a, "#<spell.id>"
	SET trcsele0, "#<spell.damage>"
	GOTO @subspell1trc
@subtrcele1
	COMPARE "#<spell.damage>","#<trcsele1>"
	IF< @subspell1trc
	SET trcsele1a, "#<spell.id>"
	SET trcsele1, #<spell.damage>
	GOTO @subspell1trc
@subtrcele2
	COMPARE "#<spell.damage>","#<trcsele2>"
	IF< @subspell1trc
	SET trcsele2a, "#<spell.id>"
	SET trcsele2, #<spell.damage>
	GOTO @subspell1trc
@subtrcele3
	COMPARE "#<spell.damage>","#<trcsele3>"
	IF< @subspell1trc
	SET trcsele3a, "#<spell.id>"
	SET trcsele3, #<spell.damage>
	GOTO @subspell1trc
@subtrcele4
	COMPARE "#<spell.damage>","#<trcsele4>"
	IF< @subspell1trc
	SET trcsele4a, "#<spell.id>"
	SET trcsele4, #<spell.damage>
	GOTO @subspell1trc
@subtrcele5
	COMPARE "#<spell.damage>","#<trcsele5>"
	IF< @subspell1trc
	SET trcsele5a, "#<spell.id>"
	SET trcsele5, #<spell.damage>
	GOTO @subspell1trc
@subtrcele6
	COMPARE "#<spell.damage>","#<trcsele6>"
	IF< @subspell1trc
	SET trcsele6a, "#<spell.id>"
	SET trcsele6, #<spell.damage>
	GOTO @subspell1trc
@subtrcele7
	COMPARE "#<spell.damage>","#<trcsele7>"
	IF< @subspell1trc
	SET trcsele7a, "#<spell.id>"
	SET trcsele7, #<spell.damage>
	GOTO @subspell1trc

@subspell1list
	COMPARE "#<trcsele0a>", "0"
	IF> @subspell1ele0
	N: There is no spell found in element 0.
@subspell1listb
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele1
	N: There is no spell found in element 1.
@subspell1listc
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele2
	N: There is no spell found in element 2.
@subspell1listd
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele3
	N: There is no spell found in element 3.
@subspell1liste
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele4
	N: There is no spell found in element 4.
@subspell1listf
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele5
	N: There is no spell found in element 5.
@subspell1listg
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele6
	N: There is no spell found in element 6.
@subspell1listh
	COMPARE "#<trcsele1a>", "0"
	IF> @subspell1ele7
	N: There is no spell found in element 7.
	END

@subspell1ele0
	SET spell.id, "#<trcsele0a>"
	N: The strongest spell from element 0 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> Curative HP.
	GOTO @subspell1listb
@subspell1ele1
	SET spell.id, "#<trcsele1a>"
	N: The strongest spell from element 1 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1listc
@subspell1ele2
	SET spell.id, "#<trcsele2a>"
	N: The strongest spell from element 2 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1listd
@subspell1ele3
	SET spell.id, "#<trcsele3a>"
	N: The strongest spell from element 3 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1liste
@subspell1ele4
	SET spell.id, "#<trcsele4a>"
	N: The strongest spell from element 4 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1listf
@subspell1ele5
	SET spell.id, "#<trcsele5a>"
	N: The strongest spell from element 5 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1listg
@subspell1ele6
	SET spell.id, "#<trcsele6a>"
	N: The strongest spell from element 6 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	GOTO @subspell1listh
@subspell1ele7
	SET spell.id, "#<trcsele7a>"
	N: The strongest spell from element 7 is #<spell.name>, Spell ID #<spell.id> with #<spell.damage> HP damage.
	END
;
; SUBSPELL2
;
@subspell2
	N: Please enter the search name from the spell you want to find.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell2trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell2list
	IF> @subspell2list
	SET spell.id, "#<trcsid>"
	STRSTR "#<spell.name>", "#<trcsname>"
	IF> @subspell2proc
	GOTO @subspell2trc
	
@subspell2proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell2trc
@subspell2list
	COMPARE #<trclist>, "1"
	IF< @subspell2non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search word.
@subspelllist2
	COMPARE #<trclist2>, "0"
	IF= @subspell2end
	IF< @subspell2end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist2
@subspell2end
	N: This was the list for search word "#<trcsname>".
	END
@subspell2non
	N: There are no spells found with the current search word.
	END
;
; SUBSPELL3
;
@subspell3
	N: Please enter the amount of damage from the spell you want to find.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell3trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell3list
	IF> @subspell3list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.damage>", "#<trcsname>"
	IF= @subspell3proc
	GOTO @subspell3trc
	
@subspell3proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell3trc
@subspell3list
	COMPARE #<trclist>, "1"
	IF< @subspell3non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search damage.
@subspelllist3
	COMPARE #<trclist2>, "0"
	IF= @subspell3end
	IF< @subspell3end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist3
@subspell3end
	N: This was the list for search damage "#<trcsname>".
	END
@subspell3non
	N: There are no spells found with the current search damage.
	END
;
; SUBSPELL4
;
@subspell4
	N: Please enter the amount of MP from the spell you want to find.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell4trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell4list
	IF> @subspell4list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.price>", "#<trcsname>"
	IF= @subspell4proc
	GOTO @subspell4trc
	
@subspell4proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell4trc
@subspell4list
	COMPARE #<trclist>, "1"
	IF< @subspell4non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search MP.
@subspelllist4
	COMPARE #<trclist2>, "0"
	IF= @subspell4end
	IF< @subspell4end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist4
@subspell4end
	N: This was the list for search MP "#<trcsname>".
	END
@subspell4non
	N: There are no spells found with the current MP damage.
	END
;
; SUBSPELL5
;
@subspell5
	N: Please enter the amount of PP from the spell you want to find.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell5trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell5list
	IF> @subspell5list
	SET spell.id, "#<trcsid>"
	COMPARE "#<trcsname>", "0"
	IF< @trcquesstspellnow
	COMPARE "#<spell.pp>", "#<trcsname>"
	IF= @subspell5proc
	GOTO @subspell5trc
@trcquesstspellnow
	COMPARE "#<spell.pp>", "0"
	IF< @subspell5proc
	GOTO @subspell5trc
	
@subspell5proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell3trc
@subspell5list
	COMPARE #<trclist>, "1"
	IF< @subspell5non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search PP.
@subspelllist5
	COMPARE #<trclist2>, "0"
	IF= @subspell5end
	IF< @subspell5end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist5
@subspell5end
	N: This was the list for search PP "#<trcsname>".
	END
@subspell5non
	N: There are no spells found with the current search PP.
	END
;
; SUBSPELL6
;
@subspell6
	N: Please enter the element from the spells you want to find.
	N: The element has to be a number, you can not fill in the element name.
	N: Element 0 is the life element, element 4 is the death element in Evergreen.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell6trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell6list
	IF> @subspell6list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.element>", "#<trcsname>"
	IF= @subspell6proc
	GOTO @subspell6trc
	
@subspell6proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell6trc
@subspell6list
	COMPARE #<trclist>, "1"
	IF< @subspell6non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search element.
@subspelllist6
	COMPARE #<trclist2>, "0"
	IF= @subspell6end
	IF< @subspell6end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist6
@subspell6end
	N: This was the list for search element "#<trcsname>".
	END
@subspell6non
	N: There are no spells found with the current search element.
	END
;
; SUBSPELL7
;
@subspell7
	N: Please enter the level from the spells you want to find.
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @noenter
	SET trcsname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@subspell7trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell7list
	IF> @subspell7list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.level>", "#<trcsname>"
	IF= @subspell7proc
	GOTO @subspell7trc
	
@subspell7proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell7trc
@subspell7list
	COMPARE #<trclist>, "1"
	IF< @subspell7non
	WAIT 3.0
	N: There are #<trclist> spells found with your current search level.
@subspelllist7
	COMPARE #<trclist2>, "0"
	IF= @subspell7end
	IF< @subspell7end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist7
@subspell7end
	N: This was the list for search level "#<trcsname>".
	END
@subspell7non
	N: There are no spells found with the current search level.
	END
;
; SUBSPELL8
;
@subspell8
	N: Please enter the spell ID you want more detailed information from.
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "767"
	IF> @spellnoexist
	COMPARE #<lastAsk>, "1"
	IF< @spellnoexist
	SET spell.id, #<lastAsk>
	COMPARE #<spell.damage>, "0"
	IF= @spellnoexist

	COMPARE #<spell.damage>, "0"
	IF< @diseasespelldamage
	N: Spell #<spell.name> does #<spell.damage> HP damage.
@cdiseasespelldamage
	N: Spell #<spell.name> costs #<spell.price> MP to cast.
	COMPARE #<spell.pp>, "0"
	IF< @questspelltrc
	N: Spell #<spell.name> is a level #<spell.level> and costs #<spell.pp> PP to buy. 
@cquestspelltrc
	N: Spell #<spell.name> is a spell from element ID #<spell.element>.
	END

@questspelltrc
	N: Spell #<spell.name> is a level #<spell.level> quest spell.
	GOTO @cquestspelltrc
@diseasespelldamage
	N: Spell #<spell.name> casts disease effect #<spell.damage>.
	GOTO @cdiseasespelldamage
@spellnoexist
	N: This spell does not exist.
	END

@banish
GIVE T666
GIVE S666
HOST_TAKE S666
HOST_TAKE T666
N: Fire and  brimstone await you!
END

@unbanish
TAKE S666
TAKE T666
N: Mercy has been given to the accused.
END

@hellin
GOTO LINK 666,0,0
END

@hellout
GOTO LINK 0,5,0
END

@scenexstart

;XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;XXXXXXXX Made by Silver XXXXXXXX
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXX
