; XOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOX
; Made by Silver
; XOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOX
;
; ~~~~~~~~~~~~~~~~~~~~~~~~ 
; BETA TEST TOOL PROXBETA 
; ~~~~~~~~~~~~~~~~~~~~~~~~
;
SET proxbetaversion, "Proxbeta v2.0"
;
; Beta test tool suitable for any world, this tool allows to take and give tokens without being marked, rerun the scene
; and allows to report bugs. This script can not *find* bugs, that's the beta testers job. ^_^
;
; TABLE OF CONTENTS:
; - How to put the tool into the world
; - How to use the tool
; - Tips
; - Version history
; - Copyright
; - Credits
; - Soul ID protection
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; How to put the tool into the world:
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; To use the tool follow the next steps:
; 1) Put proxbeta.bmp in the monsters folder (for example C:\WoS\Worlds\Evergreen\monsters)
; 2) put this file in the main folder of the world (for example C:\WoS\Worlds\Evergreen)
; 3) #include this file in every scene
; 
; After each SCENE ID should be typed on the next line: #include proxbeta.txt
; For example:
; SCENE 10, castle, SCENE, "Castle Well",0,0
; #include proxbeta.txt
; <Rest of the script continues>
;
; This tool is especially useful for new worlds, older worlds won't profit much from it since it'll be hell to adept 
; all the scenes... However it is useful to put it in the camp scene and add/ remove tokens from there.
; 
; Note 1: Actor ID 15 must not be in use in order to use this tool properly. If actor ID 15 is in use then the tool will work
;         on the newest actor 15 and will override the @eventActorClick15 command that you set yourself for actor ID 15.
; Note 2: As of version 1.8 you can now soul ID protect proxbeta against unauthorized access, to do so please fill in your 
;         own soul ID. For more information please scroll down to Soul ID protection.
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; How to use the tool:
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; After putting in the tool the beta tester only has to click on the Actor in the right top of the screen.
; From there he can:
; 1) Take or give tokens, useful for testing quests
;    - Beta testers can use GIVE Tnn, TAKE Tnn, HOST_GIVE Tnn and HOST_TAKE Tnn
;      GIVE and TAKE should be used in group quests
;	 HOST_GIVE and HOST_TAKE should be used in parties where only the token ID from the host should change.	
; 2) Make the test report from the scene
;    - There are four variations possible here:
;      o Scene is bug free, the scene ID of the scene will be reported each time.
;      o Scene contains script quests, meaning the script is bugged, this should have a priority to solve.
;      o Scene contains typos, meaning what actors say is bugged, you might want to look this over.
;      o Scene contains typos and script bugs.
;    - Ability to give additional info about the scene.
; 3) Rerun the scene
;    - This option will run the scene a 2nd time.
; 4) Hide the tool, if needed 
;    - If the tool is in the way then it can be hidden, the actor is still visible but only for a little bit.
; 5) (Host) Give/take Items/spells/GP
; 6) Change class
;    - Enter 0 to keep the same class. Class ID's range from 1 - 88. The script allows you to morph into non existing classes.
;      The beta testers should therefore watch out in which class they morph into.
;      Personally I see no reason to prevent this at the moment, however script adeptions can be made if needed.
; 7) Change Gender
;    - Genders are limited to 0,1,2 and 3. Enter stop to prevent that your gender gets changed.
; 8) Fight monster(s)
;    - Enter the monster ID, enter 0 to close the option. (for example 1, to fight a Green Jelly in Evergreen)
;    - If you enter several monster ID's, seperated by "," then you'll fight more monsters. (for example 3,2,5)
;    - To have monsters fight as ally put a "-" in front of the monster ID (for example 4,-5)
; 9) View skins
;    - Enter the skinname and after that enter the poses you wish to view. Standard pose will be 1,4.
;    - The advanced options allow you to make your own actor and enable you to let him speak. (only interesting for world
;      developers)
; 10) Change scene
;     - Ability to change the scene completely. (Useful for scene effect testing)
; 11) Midi's/ Sounds
;     - Ability to play midi's/ sounds. Just enter the midi or sound name.
; 12) Ability to give and take HP/ MP
;     - Useful for questtesting that involves a certain amount of HP/ MP
;     - Useful for a quick full restore
; 13) Ability to trace items, spells and monsters
;	- Useful for quickly finding items by name, best stats etc.
;	- Useful for finding spells by name, damage etc.
;	- Useful for finding monsters by there stats.
; 14) Ability to read the value in a cookie. (Writing cookies is impossible unfortunately.)
; 15) Ability to visit any scene you want.
; 16) Ability to visit any map and link you want.
; 17) Full list of commands that can be used/ are useful while working on your world.
;
; After the beta testers are done with testing all the scenes/ quests they should test they have to send their characters
; cookie file to the world developer. The world developer can open file and read which scenes are bugged and which ones are
; bug free.
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Tips
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; - If you add this file in all your scenes you can later replace it with a file that bans all cheaters, modders etc.
;   all your scenes will be protected emmediately and keep out the scum that walks around. Or you just simple put 
;   #include somescript.txt in proxbeta. In somescript.txt you add all your securities and the scenes will be completely
;   protected. 
; - That's about it for tips lol, maybe I'll add more later. ^_^
; - Unauthorized people won't see the tool if you soul ID protect it, for more info about this please scroll down.
; - If you think a there is a bug in your scene because your scene jumps to something completely different then it should,
;   then that bug might be caused because of a link in proxbeta with the same name. I tried picking names as random as I could,
;   however I didn't add certain scripts till several months later and those scripts aren't updated with more randomized names.
;   This bug might be caused in minigames, because I can understand you would pick certain logical label names there.
;   In case this bug hits you then you should either change your label name or you should test the scene without proxbeta.
;   My appologies for the inconvenience.
; - To (host) give/ (host) take more items to/ from yourself type <item ID>.<number> For example You want to give 
;   item ID 100 5 times to yourself. Just enter 100.5 and you'll receive item ID 100 5 times.
; - To (host) give/ (host) take all spells to yourself just fill in 0 in the start range and 767 (or higher) in the 
;   end range. Proxbeta will automatically stop after spell ID 767. (767 is the highest possible spell ID.)
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Version history
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; 01/02/2003 v1.0
; - Yay, tool has been made!
; - Ability to take/ give tokens
; - Test reports (Main beta test tool goal)
; - Ability to rerun the scene
; - Ability to change the proxbeta beta test tool
; - Ability to give spells/ items/ GP
; 02/02/2003 v1.3
; - Change classes got added
; - Change genders got added
; - Ability to fight monster(s)
; - Ability to view skins
; - You can change the standard Ask time of #<proxbetaAsk> seconds to a higher or lower value
; - Change scene background/ fx/ wheather/ theme
; - Listen midi's/ sounds
; - Ability to give or take HP/ MP
; 03/02/2003 v1.4
; - Ability to give additional information about the scene.
; 27/02/2003 v1.5
; - Scene reload bug fixed. (well it wasn't a real bug in the first place, but I like the way it's done better now)
; 08/06/2003 v1.6
; - Several bugs fixed
; 05/07/2003 v1.7
; - Another bug fix
; 05/07/2003 v1.8
; - Added item tracer
; - Added spell tracer
; - Added in an option to allow only certain soul ID's to see proxbeta. (Please scroll down to read more about this.)
; - Added a small script that allows you to read a cookie value
; - Ability to go to scenes
; - Ability to go to maps, links and whether or not you wish to drop in link
; 05/08/2003 v1.9
; - Huge list with all possible world developer commands is now added.
; 03/09/2003 v2.0
; - Improved menu, thanks to Samsyn who was so kind to allow more menu options ^_^
; - Proxbeta load message won't appear anymore for people who can't see proxbeta in the first place
; - You can now (host) give/ (host) take spell ID ranges. This makes it easier if you want to give yourself a lot of spells
; - You can now (host) give/ (host) take all item ID's
; - You can now change the background colours
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Copyright
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; This file is copyright protected 2003 - 2004
;
; For questions about this file you can contact me at dumpmeel44@hotmail.com
; Feel free to mail me about comments, suggestions or bugs.
; If needed you're allowed change the position of the actor. (Especially useful in camp scenes in Mc Guyver 
; where proxbeta won't because of the Lock that's already taking up that spot. 
; Best is to change coordinate X to either 5 or 50.
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Credits
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; I'd like to thank Devil for the pictures he gave to RoT (http://members.home.nl/silver00) I modded these pictures for 
; the actor.
; I'd also like to thank Diablo II where he got the pictures from ^_^
; I'd like to thank Samsyn for the great game he made and the cheatpage where I got a lot of the commands from.
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Soul ID protection
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
;
; To soul ID protect this file simply add in your soul ID.
; Right now there is a standard option to protect proxbeta with 3 soul ID's, but you can just copy/paste the lines and 
; expand it if needed.
;
; Please do not forget to remove the semicons before the other 2 string compare commands.
; To give a golden soul access fill in between the "..." SOUL <GS number>. I standardly put in my own soul ID as an example.
; To give a normal soul access simply fill in the persons entire soul number.
; For example:
; STRCMP #<str.soul>, "1234AB56"
;
	STRCMP #<str.soul>, "SOUL 1373"
	IF= @gotoproxbetaactor
;	STRCMP #<str.soul>, "..."
;	IF= @gotoproxbetaactor 
;	STRCMP #<str.soul>, "..."
;	IF= @gotoproxbetaactor 

	GOTO @scenexstart

@gotoproxbetaactor
	ACTOR 15, "",proxbeta,1,95,12
	N: Beta test tool #<proxbetaversion> succesfully loaded.
	COMPARE #<proxbetahide>, "0"
	IF= @scenexstart
	SEL 15
	POSE 4
GOTO @scenexstart

@eventActorClick15
	COMPARE #<proxbetaAsk>, "4"
	IF> @proxbetam2
	SET proxbetaAsk,	"30"
@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","More=@proxbetam","Cancel=@proxbetaend",
	GOTO @proxbetam2

@proxbetam
	MENU "Change Ask Time=@proxbetamenu12","Credits/ Version=@proxbetamenu6","Hide/Unhide Betatool=@proxbetamenu5","Back=@eventActorClick15","Cancel=@proxbetaend"
	GOTO @proxbetam

@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
	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

@scenexstart

