; XOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOX
; Made by Silver
; XOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOX
;
; ~~~~~~~~~~~~~~~~~~~~~~~~ 
; BETA TEST TOOL PROXBETA 
; ~~~~~~~~~~~~~~~~~~~~~~~~
;
SET proxbetaversion, "Proxbeta v2.6"
;
; 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. ^_^
; It also has many other valueble features that will probably intrest you. Just follow the instructions and have fun!
;
;
; TABLE OF CONTENTS:
; - How to put the tool into the world
; - How to use the tool
; - Tips (Useful to read!)
; - Version history
; - Copyright
; - Credits
; - Soul ID protection (Important to read!)
; - The proxbeta script
;
;
; 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) (Or C:\WoS\monsters)
; 2) put this file in the main folder of the world (for example C:\WoS\Worlds\Evergreen)
; 3) put admin.ini and proxbetasoulIDs.txt in your main world folder. (See step 2.)
; 4) #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 0 must not be in use in order to use this tool properly. If actor ID 0 is in use then the tool will work
;         on the newest actor 0 and will override the @eventActorClick0 command that you set yourself for actor ID 0.
; 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.
;         As of version 2.1 you can use a special file for this, more info is available when you scroll down.
;
;
; 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 or rerun the script
;    - This option will run the scene or the script for 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.
;    - Since v2.1 you can completely make the tool invisible.
; 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)
;    - To have monsters fight as ally put a "-" in front of the monster ID (for example -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 
;    - Added in v2.1: You can now view up to 31 actors with skin viewer. Don't forget to change coordinate X and/ or Y though!
; 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 classes, items, spells and monsters
;	- Useful for finding how many classes a world has and which class ID's are still free.
;	- 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 and compare the values in cookies. (Writing cookies is impossible unfortunately.)
; 15) Ability to visit any @label, scene, map, or webpage you want.
; 16) Full list of commands that can be used/ are useful while working on your world.
; 17) You can use commands like OFFER, OFFER2, EJECT, PARTY, GAME, COUNTDOWN and LOCK.  
; 18) You can add your own scripts in proxbeta in admin.ini
;
;
; You can learn about most commands by just playing around with the tool or by reading about them in version history.
;
; 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.
;
; For new commands please check the version history. (Sometimes it's a little bit hard to keep up with everything that's 
; added) :-S
;
;
; 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.)
; - In skin viewer don't forget to change coordinate X and/ or Y, else you'll put the actor on top of the previous one.
; - STRCMP works on alphabetical order when you compare words. For example cat is smaller then dog, but dog is smaller then
;   eliphant. Goldfish on the other hand is larger then eliphant and so would mouse be, however mouse is larger then monkey 
;   because the u comes before the n; mo is the same, it compares letter by letter.(Sort of strange twist of reality with
;   those animals lol, but I hope you get the idea.)
; - In v2.1 you can add your own scripts in admin.ini
;   You can use that file to add in Admin commands to ban people on line with, but you can also add things you want yourself
;   there. It should be pretty helpful, it's very easy to adept proxbeta to your own world that way without having to go 
;   in the actual proxbeta script. Don't forget to add your own soul ID in the proxbetaSoulIDs file though, else you can't
;   access your own scripts! :-p
; - Don't give/ take to many items, spells or tokens, it will probably get you banned from the server for sending suspecious packets.
;   Mix can handle about 100 of each per minute(although I'm not sure what the limits are, hard to find out if you get banned
;   every time you try).
;
;
; 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/ weather/ 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
;
; 07/02/2004 v2.1
; - Proxbeta's actor ID changed from 15 to 0 (because of new functions Samsyn added in WoS)
; - Skin viewer has been updated, now you can view up to 31 skins! 
;   You can now also change the direction actors face.
; - Updated soul ID protections, from now on you need to fill in the soul ID's that you want to allow to use proxbeta
;   in the file proxbetaSoulIDs.txt
; - From now on you can disable/ enable the succesful load message when you enter a scene that supports proxbeta.
;   Hint: if you disabled the load message and proxbeta isn't working then try enabling it first again in another scene.
;   If still nothing shows up then you probably made a typo in #include proxbeta.txt
; - From now on you can use: the COUNTDOWN, EJECT, PARTY, OFFER and OFFER2 command. (You can find them in Other Commands.) 
; - From now on you can change: scene flags, start minigames, the scene LOCK. 
; - You can now go to labels in the scene itself. (Pretty much works like GOTO SCENE and GOTO LINK.)
; - You can go to webpages with proxbeta too now. (Especially useful for testing pages in off line folders in your world,
;   you can already go to webpages by just typing for example /www.google.com to go to google.
;   You'll need to type http://www.google.com to go to webpages with GOTO HTML
; - Read Cookie is changed to Cookie Commands now, in Cookie commands you can now read, COMPARE, STRCMP and STRSTR cookies.
;   Setting, MUL, DIV, SUB, ADD and MOD don't work yet and it's currently not possible to add this in proxbeta.  
;   Please note that STRCMP works on alphabetical order if you compare words. (More info about this under Tips.)
; - You can now add your own ban scripts in admin.ini, don't forget to add the soul ID's you want to allow to use these 
;   functions in proxbetaSoulIDs.txt
; - Proxbeta's skin has been updated, now it's possible to make the tool completely invisible. Just right click on where 
;   Proxbeta used to be and it will pop up.
; - Updated the item tracer script finally. Now you can search for pretty much everything Samsyn allows you to search for.
; - Monster tracer is added. This should be an interesting feature with monster testing in your world. 
;
; 20/02/2004 v2.2
; - Fixed a bug in spell tracer.
; - From now on you can also Host give hp mp and life.
; - GOTO commands are now in a seperate menu, also added GOTO EXIT.
;
; 25/03/2004 v2.3
; - You can now optionally leave the scene after morphing, doing so might (/should) prevent freezing.
; - You can now (host) give/ take token ranges, This goes a lot faster then taking/ giving token ID's manually.
; - You can now fight monsters in ranges, to interrupt the fights just click on proxbeta and select something different.
; - You can now deceide for yourself what items you want to (host) give/ take in ranges, rather then receiving or have
;   taken all items from you.
; - You can now place proxbeta wherever you want it to be in the scene.
;
; 21/05/2004 v2.4
; - Fixed some small bugs.
; - Fixed the bug in monster tracer.
;
; 8/11/2004 v2.5
; - Fixed the replace bug with coordinate Y.
; - Fixed the bug with the GOTO @LABEL command.
; - Skin Viewer now also shows recolorings.
; - Skin Viewer has the option to give a full report about the skin it will view and the actor ID and its poses.
; - Fixed the bug in monster tracer when searching for a monster name.
; - Class Tracer got added, it works similar like the other tracer scripts.
; - Monster Tracer and item tracer can now also be limited with a start ID to search with.
; - Monster Tracer can now also search for the total amount of monsters added in a world. 
; - Spell Tracer can now also search for the total amount of spells in use.
;
; 23/1/2005 v2.6
; - Updated Gold/ Item/ Spell/ Token give/take with the command PARTY_GIVE/ PARTY_TAKE.
; - Added a help function to explain how the previous mentioned updated function works.  
; - Updated L1/ HP/ MP give/ take with PARTY_GIVE/ PARTY_TAKE commands. 
;
;
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; Copyright
; xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
; This file is copyright protected 2002 - 2007
;
; 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 might not work 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. ^_^
; Also I want to thank Gametweeka and Masamune for giving some tips.
; Finally 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"
; Since v2.1 you can set the soul ID's in a different file so you don't have to reset them everytime you update 
; proxbeta. ^_^
; Check the file proxbetaSoulIDs.txt to set your soul ID's in.
;

#include proxbetaSoulIDs.txt

	STRCMP #<str.soul>, "48CF06B1"
	IF= @gotoproxbetaactor
;	STRCMP #<str.soul>, "..."
;	IF= @gotoproxbetaactor 
;	STRCMP #<str.soul>, "..."
;	IF= @gotoproxbetaactor 

	GOTO @scenexstart

@gotoproxbetaactor
	COMPARE #<proxbetaActorMX>, "0"
	IF> @skipsetproxbetaActormXa
	SET proxbetaActorMX, "95"
@skipsetproxbetaActormXa
	COMPARE #<proxbetaActorMX>, "100"
	IF< @skipsetproxbetaActormXb
	SET proxbetaActorMX, "95"
@skipsetproxbetaActormXb
	COMPARE #<proxbetaActorMY>, "0"
	IF> @skipsetproxbetaActormYa
	SET proxbetaActorMY, "12"
@skipsetproxbetaActormYa
	COMPARE #<proxbetaActorMY>, "100"
	IF< @skipsetproxbetaActormYb
	SET proxbetaActorMY, "12"
@skipsetproxbetaActormYb
	ACTOR 0, "",proxbeta,1,#<proxbetaActorMX>,#<proxbetaActorMY>
	COMPARE "#<proxbetaMess>", "1"
	IF= @gotoproxbetaactor1
	N: Beta test tool #<proxbetaversion> succesfully loaded.
@gotoproxbetaactor1
	SEL 0
	POSE 1
	COMPARE #<proxbetahide>, "0"
	IF= @scenexstart
	SEL 0
	POSE 4
	COMPARE #<proxbetahide>, "1"
	IF= @scenexstart
	SEL 0
	POSE 6
	COMPARE #<proxbetahide>, "2"
	IF= @scenexstart
	GOTO @proxbetamenu5

GOTO @scenexstart

@eventActorClick0
	COMPARE #<proxbetaAsk>, "4"
	IF> @proxbetam2
	SET proxbetaAsk,	"30"
@proxbetam2
	MENU "Scene Reports=@proxbetamenu3","Reload Scene=@proxbetamenu16","Reload Script=@scenexstart","Give/Take G/I/S/T=@proxbetamenu7","Rez/HP/MP Commands=@proxbetamenu15","Fight Monster=@proxbetamenu10","Fight Monsters=@proxbetamenu26","Skin Viewer=@proxbetamenu11","Change Class=@proxbetamenu8","Change Gender=@proxbetamenu9","Class Tracer=@proxclasstracer","Item Tracer=@proxitemtracer","Monster Tracer=@proxmonstertracer","Spell Tracer=@proxspelltracer","Cookie Commands=@proxbetamenu17", "GOTO Commands=@proxbetamenu25","Scene Changer=@proxbetamenu13","Listen midi/ listen sound=@proxbetamenu14","Other Commands=@proxbetamenu22","Command List=@proxbetamenu20","Admin Commands=@proxbetamenuadmin","More=@proxbetam","Cancel=@proxbetaend",
	GOTO @proxbetam2

; @proxbetamenu2 is free again for usage.

@proxbetam
	MENU "Change Ask Time=@proxbetamenu12","Credits/ Version=@proxbetamenu6","Hide/Unhide Proxbeta=@proxbetamenu5","Replace Proxbeta=@proxbetamenu27","Disable/Enable Load Message=@proxbetamenu21", "Back=@eventActorClick0", "Cancel=@proxbetaend"
	GOTO @proxbetam

@proxbetaend
	SEL 0
	POSE 1
	COMPARE #<proxbetahide>, "0"
	IF= @proxbetaend2
	SEL 0
	POSE 4
	COMPARE #<proxbetahide>, "1"
	IF= @proxbetaend2
	SEL 0
	POSE 6
	COMPARE #<proxbetahide>, "2"
	IF= @proxbetaend2
	GOTO @proxbetamenu5
@proxbetaend2
	END

@proxbetamenu3
	SEL 0
	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"
	GOTO @proxbetaend
@proxbetas1
	SET betaproxtestscene#<scene.id>, "No bugs where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
@proxbetas2
	SET betaproxtestscene#<scene.id>, "Script bugs where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
@proxbetas3
	SET betaproxtestscene#<scene.id>, "Typos where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
@proxbetas4
	SET betaproxtestscene#<scene.id>, "Script bugs and typos where found in scene #<scene.id>."
	N: Test report has been made.
	GOTO @proxbetaend
@proxbetas5
	N: Enter your additional information:
	ASK #<proxbetaAsk>
	SET betaproxinfoscene#<scene.id>, "Info scene #<scene.id>: #<lastAsk>"
	GOTO @proxbetaend

@proxbetamenu4
	GOTO @scenexstart

@proxbetamenu5
	MENU "Hide Proxbeta=@proxbetahide","Unhide Proxbeta=@proxbetaunhide","Invisible Proxbeta=@proxbetainvisible","More=@proxbetam","Cancel=@proxbetaend"
	GOTO @proxbetamenu5

	COMPARE #<proxbetahide>, "0"
	IF= @proxbetahide
	IF> @proxbetaunhide
@proxbetahide
	SEL 0
	SET proxbetahide, "1"
	POSE 4
	GOTO @proxbetaend
@proxbetaunhide
	SEL 0
	SET proxbetahide, "0"
	POSE 1
	GOTO @proxbetaend
@proxbetainvisible
	SEL 0
	SET proxbetahide, "2"
	POSE 6
	GOTO @proxbetaend

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

@proxbetamenu7
	SEL 0
	POSE 2
	MENU "Give G/I/S/T=@proxbetag1a", "Host Give G/I/S/T=@proxbetag2a", "Party Give G/I/S/T=@proxbetag3a", "Take G/I/S/T=@proxbetag1b","Host Take G/I/S/T=@proxbetag2b", "Party Take G/I/S/T=@proxbetag3b", "Give multiple I, S or T=@proxbetag4a", "Host Give multiple I, S or T=@proxbetag6a", "Party Give multiple I, S or T=@proxbetag8a", "Take multiple I, S or T=@proxbetag5a", "Host Take multiple I, S or T=@proxbetag7a", "Party Take multiple I, S or T=@proxbetag9a", "Help with this function.=@proxbetagx", "Back=@eventActorClick0", "Cancel=@proxbetaend"
 	GOTO @proxbetamenu7

@proxbetag1a
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to give:
	ASK #<proxbetaAsk>
	GIVE #<lastAsk>
	GOTO @proxbetaend

@proxbetag1b
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to take:
	ASK #<proxbetaAsk>
	TAKE #<lastAsk>
	GOTO @proxbetaend

@proxbetag2a
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to host give:
	ASK #<proxbetaAsk>
	HOST_GIVE #<lastAsk>
	GOTO @proxbetaend

@proxbetag2b
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to host take:
	ASK #<proxbetaAsk>
	HOST_TAKE #<lastAsk>
	GOTO @proxbetaend

@proxbetag3a
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to party give:
	ASK #<proxbetaAsk>
	PARTY_GIVE #<lastAsk>
	GOTO @proxbetaend

@proxbetag3b
	N: Please enter the G<amount>, I<id>, S<id>, or T<id> you want to party take:
	ASK #<proxbetaAsk>
	PARTY_TAKE #<lastAsk>
	GOTO @proxbetaend

@proxbetag4a
	N: Enter start I<id>, S<id> or T<id> to give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag4a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag4a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag4a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag4a
@proxbetag4a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag4ax2
	IF> @proxbetag4ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta4ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta4ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta4ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta4ag1
@proxbeta4ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag4ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag4ax1
	GIVE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag4ax
@proxbetag4ax1
	N: All values are given.
	GOTO @proxbetaend
@proxbetag4ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag4a1

@proxbetag5a
	N: Enter start I<id>, S<id> or T<id> to take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag5a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag5a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag5a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag5a
@proxbetag5a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag5ax2
	IF> @proxbetag5ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta5ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta5ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta5ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta4ag1
@proxbeta5ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag5ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag5ax1
	TAKE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag5ax
@proxbetag5ax1
	N: All values are taken.
	GOTO @proxbetaend
@proxbetag5ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag5a1

@proxbetag6a
	N: Enter start I<id>, S<id> or T<id> to host give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag6a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag6a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag6a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag6a
@proxbetag6a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to host give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag6ax2
	IF> @proxbetag6ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta6ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta6ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta6ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta6ag1
@proxbeta6ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag6ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag6ax1
	HOST_GIVE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag6ax
@proxbetag6ax1
	N: All values are given.
	GOTO @proxbetaend
@proxbetag6ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag6a1

@proxbetag7a
	N: Enter start I<id>, S<id> or T<id> to host take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag7a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag7a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag7a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag7a
@proxbetag7a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to host take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag7ax2
	IF> @proxbetag7ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta7ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta7ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta7ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta7ag1
@proxbeta7ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag7ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag7ax1
	HOST_TAKE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag7ax
@proxbetag7ax1
	N: All values are taken.
	GOTO @proxbetaend
@proxbetag7ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag7a1

@proxbetag8a
	N: Enter start I<id>, S<id> or T<id> to party give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag8a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag8a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag8a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag8a
@proxbetag8a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to give:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag8ax2
	IF> @proxbetag8ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta8ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta8ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta8ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta8ag1
@proxbeta8ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag8ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag8ax1
	PARTY_GIVE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag8ax
@proxbetag8ax1
	N: All values are given.
	GOTO @proxbetaend
@proxbetag8ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag8a1

@proxbetag9a
	N: Enter start I<id>, S<id> or T<id> to party take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix1b, "#<lastAsk>"
	SET_SUBSTR proxbetagix1c, 1,#<proxbetagix1b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix1a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "I"
	IF= @proxbetag9a1
	STRCMP "#<proxbetagix1a>", "S"
	IF= @proxbetag9a1
	STRCMP "#<proxbetagix1a>", "T"
	IF= @proxbetag9a1
	N: Error, you did not enter I, S or T first!
	GOTO @proxbetag9a
@proxbetag9a1
	SET proxbetagi1, "#<lastAsk>"
	N: Enter end I<id>, S<id> or T<id> to party take:
	ASK #<proxbetaAsk>
	SET_LEN proxbetagix2b, "#<lastAsk>"
	SET_SUBSTR proxbetagix2c, 1,#<proxbetagix2b>, "#<lastAsk>"
	SET_SUBSTR proxbetagix2a, 0,1, "#<lastAsk>"
	STRCMP "#<proxbetagix1a>", "#<proxbetagix2a>"
	IF< @proxbetag9ax2
	IF> @proxbetag9ax2
	STRCMP "#<proxbetagix2a>", "I"
	IF= @proxbeta9ag2
	STRCMP "#<proxbetagix2a>", "S"
	IF= @proxbeta9ag2
	STRCMP "#<proxbetagix2a>", "T"
	IF= @proxbeta9ag2
	N: Error, you did not enter I, S or T first!
	GOTO @proxbeta9ag1
@proxbeta9ag2
	SET proxbetagi2, "#<lastAsk>"
@proxbetag9ax
	COMPARE "#<proxbetagix1c>", "#<proxbetagix2c>"
	IF> @proxbetag9ax1
	PARTY_TAKE #<proxbetagix1a>#<proxbetagix1c>
	ADD proxbetagix1c, "1"
	GOTO @proxbetag9ax
@proxbetag9ax1
	N: All values are taken.
	GOTO @proxbetaend
@proxbetag9ax2
	N: Error, start I, S, or T  and end I, S, or T are not the same!
	N: You entered #<proxbetagix1a>#<proxbetagix1c> for start and #<proxbetagix2a>#<proxbetagix2c> for end.
	GOTO @proxbetag9a1

@proxbetagx
	N: Welcome in the Help menu.
	N: To give for example 1000 GP you have to enter G1000.
	N: To take for example spell ID's 15 - 21 you have to enter S15 and S21. 
	N: G = GP, I = Items, S = Spells, T = Tokens.
	N: To give a certain amount of for exmaple items enters I12.34 
	N: This will give 34 items of item ID 12.
	N: Giving or taking multiple of GP will not work, this function is only for Items, Spells and Tokens.
	N: Giving or taking multiple goes up in numerical order. 
	GOTO @proxbetaend

@proxbetamenu8
	SEL 0
	POSE 3
	N: Do you want to leave the scene after morphing to prevent freezing?
	ASK #<proxbetaAsk>
	IF YES, @proxbetamenu8a
	N: Enter Class ID:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>,"0"
	IF= @proxbetaend
	IF< @proxbetaend
	COMPARE #<lastAsk>, "88"
	IF> @proxbetaend
	SET num.hostClass, #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu8a
	N: Enter Class ID:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>,"0"
	IF= @proxbetaend
	IF< @proxbetaend
	COMPARE #<lastAsk>, "88"
	IF> @proxbetaend
	SET num.hostClass, #<lastAsk>
	GOTO EXIT

@proxbetamenu9
	SEL 0
	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
@proxbetageinvalid
	N: Invalid Gender ID detected. 
	N: Gender ID's are limited to 0, 1, 2 and 3.
	GOTO @proxbetaend
	
@proxbetamenu10
	SEL 0
	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
	GOTO @proxbetaend
@proxbetainvalidm
	N: Monster ID does not exist.
	GOTO @proxbetamenu10
	GOTO @proxbetaend

@proxbetamenu11
	SEL 0
	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","Change Actor Color=@proxbetaa10","Change Face=@proxbetaa9","Change Actor ID=@proxbetaa3","Skin Report=@proxbetaa11","Back=@eventActorClick0","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"
	GOTO @proxbetaend
@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
@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 #<proxbetaAy>, "0"	
	IF> @proxbetaa75
	SET proxbetaAy, "80"	
@proxbetaa75
	STRCMP #<proxbetaApose>, "0"
	IF> @proxbetaa76
	SET proxbetaApose, "1,4"
@proxbetaa76
	ACTOR #<proxbetaAid>, #<proxbetaAname>,#<proxbetaAskin>,#<proxbetaAframe>,#<proxbetaAx>,#<proxbetaAy>,#<proxbetaAc> 
	SEL 1
	POSE #<proxbetaApose1>,#<proxbetaApose2>,#<proxbetaApose3>
	GOTO @proxbetaend
@proxbetaa3
	N: Enter actor ID:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "1"
	IF< @proxbetaa3a
	COMPARE #<lastAsk>, "31"
	IF> @proxbetaa3a
	SET proxbetaAid, #<lastAsk>
	ACTOR #<proxbetaAid>, #<proxbetaAname>,#<proxbetaAskin>,#<proxbetaAframe>,#<proxbetaAx>,#<proxbetaAy>,#<proxbetaAc> 
	GOTO @proxbetamenu11
@proxbetaa3a
	N: Invalid value entered, please enter a number between 0 and 32.
	GOTO @proxbetaa3 
@proxbetaa9
	N: Enter the direction the actor faces:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "0"
	IF< @proxbetaa9a
	FACE #<proxbetaAid>, #<lastAsk>
	GOTO @proxbetamenu11
@proxbetaa9a
	N: Invalid value, number must be either 0, 1, 2, 3 or 4.
	GOTO @proxbetaa9
@proxbetaa10
	N: Enter the actor color:
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "0"
	IF< @proxbetaa10a
	COMPARE #<lastAsk>, "1032"
	IF> @proxbetaa10a
	COMPARE #<lastAsk>, "32"
	IF> @proxbetaa10b
@proxbetaa10c
	SET proxbetaAc, "#<lastAsk>"
	GOTO @proxbetamenu11
@proxbetaa10a
	N: Invalid value, enter value 0 to set back to default color or enter a value between 0 - 33 or between 999 - 1033.
	N: 1 - 32 sets a normal recoloring, 1000 - 1032 sets a recoloring and makes the skin transparant.
	GOTO @proxbetaa10
@proxbetaa10b
	COMPARE #<lastAsk>, "1000"
	IF< @proxbetaa10a
	GOTO @proxbetaa10c
@proxbetaa11
	N: Selected Actor ID = #<proxbetaAid> 
	N: Selected Actor Name = #<proxbetaAname> 
	N: Selected Actor Skin = #<proxbetaAskin> 
	N: Selected Actor Frame = #<proxbetaAframe> 
	N: Selected Coordinate X = #<proxbetaAx> 
	N: Selected Coordinate Y = #<proxbetaAy> 
	N: Selected Actor Color = #<proxbetaAc> 
	N: Selected pose Number 1 = #<proxbetaApose1> 
	N: Selected pose Number 2 = #<proxbetaApose1> 
	N: Selected pose Number 3 = #<proxbetaApose1> 
	GOTO @proxbetamenu11

@proxbetamenu12
	SEL 0
	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

@proxbetamenu13
	SEL 0
	POSE 2
	MENU "Change Background=@proxbeta11a","Change Weather=@proxbeta11b","Change Color=@proxbeta11e","Change FX=@proxbeta11c","Change Theme=@proxbeta11d","Change Flags=@proxbeta11f","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamenu13
@proxbeta11a
	N: Enter new background name:
	ASK #<proxbetaAsk>	
	BKGND #<lastAsk>
	GOTO @proxbetamenu13
@proxbeta11b
	N: Enter new weather ID:
	ASK #<proxbetaAsk>	
	WEATHER #<lastAsk>
	GOTO @proxbetamenu13
@proxbeta11c
	N: Enter new FX ID:
	ASK #<proxbetaAsk>	
	FX #<lastAsk>
	GOTO @proxbetamenu13
@proxbeta11d
	N: Enter new theme ID:
	ASK #<proxbetaAsk>	
	THEME #<lastAsk>
	GOTO @proxbetamenu13
@proxbeta11e
	N: Enter new Color ID:
	ASK #<proxbetaAsk>	
	COLOR #<lastAsk>
	GOTO @proxbetamenu13	
@proxbeta11f
	N: Enter new Flags ID:
	ASK #<proxbetaAsk>	
	FLAGS #<lastAsk>
	GOTO @proxbetamenu13	

@proxbetamenu14
	SEL 0
	POSE 2
	MENU "Listen midi=@proxbeta14a","Listen sound=@proxbeta14b","Back=@eventActorClick0","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 0
	POSE 3
	MENU "Full Restore=@proxbeta15d","Suicide=@proxbeta15h","Host Give L1=@proxbeta15a1","Host Give HP=@proxbeta15b1","Host Give MP=@proxbeta15c1","Host Take HP=@proxbeta15e1","Host Take MP=@proxbeta15f1","Give L1=@proxbeta15a","Give HP=@proxbeta15b","Give MP=@proxbeta15c","Take HP=@proxbeta15e","Take MP=@proxbeta15f","Party Give L1=@proxbeta15g1", "Party Give HP=@proxbeta15g2", "Party Give MP=@proxbeta15g3", "Party Take L1=@proxbeta15g4", "Party Take HP=@proxbeta15g5","Party Take MP=@proxbeta15g6","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamenu15
@proxbeta15a
	GIVE L1
	GOTO @proxbetaend
@proxbeta15a1
	HOST_GIVE L1
	GOTO @proxbetaend
@proxbeta15b
	N: Enter HP to give:
	ASK #<proxbetaAsk>
	GIVE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15b1
	N: Enter HP to give:
	ASK #<proxbetaAsk>
	HOST_GIVE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15c
	N: Enter MP to give:
	ASK #<proxbetaAsk>
	GIVE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15c1
	N: Enter MP to give:
	ASK #<proxbetaAsk>
	HOST_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
@proxbeta15e1
	N: Enter HP to take:
	ASK #<proxbetaAsk>
	HOST_TAKE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15f
	N: Enter MP to take:
	ASK #<proxbetaAsk>
	TAKE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15f1
	N: Enter MP to take:
	ASK #<proxbetaAsk>
	HOST_TAKE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15g1
	PARTY_GIVE L1
	GOTO @proxbetaend
@proxbeta15g2
	N: Enter HP to give:
	ASK #<proxbetaAsk>
	PARTY_GIVE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15g3
	N: Enter MP to give:
	ASK #<proxbetaAsk>
	PARTY_GIVE M#<lastAsk>
	GOTO @proxbetaend
@proxbeta15g4
	PARTY_TAKE L1
	GOTO @proxbetaend
@proxbeta15g5
	N: Enter HP to take:
	ASK #<proxbetaAsk>
	PARTY_TAKE H#<lastAsk>
	GOTO @proxbetaend
@proxbeta15g6
	N: Enter MP to take:
	ASK #<proxbetaAsk>
	PARTY_TAKE M#<lastAsk>
	GOTO @proxbetaend

@proxbeta15h
	TAKE H#<num.hostMaxHP>
	TAKE M#<num.hostMaxMP>
	GOTO @proxbetaend 

@proxbetamenu16
	GOTO SCENE #<scene.id>
	GOTO @proxbetaend

@proxbetamenu17
	MENU "Read cookie=@proxbetamenu17a","COMPARE 2 cookies=@proxbetamenu17c","STRCMP 2 cookies=@proxbetamenu17d","STRSTR 2 cookies=@proxbetamenu17e","Back=@eventActorClick0","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. Maybe sub/add/div/mul will work, but probably not seeing it's the same problem
; with that.
;
; "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
@proxbetamenu17c
	N: Please enter the name from cookie 1:
	ASK #<proxbetaAsk>
	SET proxbetaCch1, #<lastAsk>
	N: Please enter the name from cookie 2:
	ASK #<proxbetaAsk>
	SET proxbetaCch2, #<lastAsk>
	COMPARE "*#<proxbetaCch1>","*#<proxbetaCch2>"
	IF< @proxbetamenu17c1
	IF= @proxbetamenu17c2
	IF> @proxbetamenu17c3
	N: ERROR!
	N: Are you sure you entered numbers only?
	GOTO @proxbetamenu17end
@proxbetamenu17c1
	N: Cookie #<proxbetaCch1> is smaller then cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17c2
	N: Cookie #<proxbetaCch1> equals cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17c3
	N: Cookie #<proxbetaCch1> is larger then cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17d
	N: Please enter the name from cookie 1:
	ASK #<proxbetaAsk>
	SET proxbetaCch1, #<lastAsk>
	N: Please enter the name from cookie 2:
	ASK #<proxbetaAsk>
	SET proxbetaCch2, #<lastAsk>
	STRCMP "*#<proxbetaCch1>","*#<proxbetaCch2>"
	IF< @proxbetamenu17d1
	IF= @proxbetamenu17d2
	IF> @proxbetamenu17d3
	N: ERROR!
	GOTO @proxbetamenu17end
@proxbetamenu17d1
	N: Cookie #<proxbetaCch1> and is smaller then cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17d2
	N: Cookie #<proxbetaCch1> equals cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17d3
	N: Cookie #<proxbetaCch1> is larger then cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17e  
	N: Please enter the name from cookie 1:
	ASK #<proxbetaAsk>
	SET proxbetaCch1, #<lastAsk>
	N: Please enter the name from cookie 2:
	ASK #<proxbetaAsk>
	SET proxbetaCch2, #<lastAsk>
	STRSTR "*#<proxbetaCch2>","*#<proxbetaCch1>"
	IF= @proxbetamenu17e1
	N: Cookie #<proxbetaCch1> is found in cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17e1
	N: Cookie #<proxbetaCch1> is not found in cookie #<proxbetaCch2>
	GOTO @proxbetamenu17end
@proxbetamenu17end
	N: Cookie #<proxbetaCch1> = *#<proxbetaCch1>
	N: Cookie #<proxbetaCch2> = *#<proxbetaCch2>  
	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 (most only work in 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: /q <text file name> to open a certain text file with that name in the worlds main folder
	N: More information about commands can be found at:
	N: http://www.synthetic-reality.com/wosCheats.htm
	GOTO @proxbetaend

@proxbetamenu21
	COMPARE "#<proxbetaMess>", "0"
	IF= @proxbetamenu21a
	SET proxbetaMess, "0"
	N: Load message enabled.
	GOTO @proxbetaend
@proxbetamenu21a
	N: Load message disabled.
	SET proxbetaMess, "1"
	GOTO @proxbetaend

@proxbetamenu22
	SEL 0
	POSE 2
	MENU "OFFER=@proxbetamenu22g","OFFER2=@proxbetamenu22h","EJECT=@proxbetamenu22c","PARTY=@proxbetamenu22d","Start COUNTDOWN=@proxbetamenu22a","Stop COUNTDOWN=@proxbetamenu22b","Lock/Unlock Scene=@proxbetamenu22f","Start Minigame=@proxbetamenu22e","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamenu22
@proxbetamenu22a
	N: Enter the Countdown time:
	ASK #<proxbetaAsk>
	COUNTDOWN #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22b
	COUNTDOWN 0
	GOTO @proxbetaend
@proxbetamenu22c
	N: Please fill in the EJECT conditions:
	ASK #<proxbetaAsk>
	EJECT #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22d
	N: Please fill in the PARTY conditions:
	ASK #<proxbetaAsk>
	PARTY #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22e
	N: Please enter the Minigame ID:
	ASK #<proxbetaAsk>
	COMPARE "#<lastAsk>", "1"
	IF< @proxbetamenu22e1
	COMPARE "#<lastAsk>", "8"
	IF> @proxbetamenu22e1
	GAME #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22e1
	N: Invalid Minigame ID, please enter a number between 0 and 9.
	GOTO @proxbetamenu22e
@proxbetamenu22f
	N: Please enter the lock ID:
	ASK #<proxbetaAsk>
	COMPARE "#<lastAsk>", "0"
	IF< @proxbetamenu22f1
	COMPARE "#<lastAsk>", "2"
	IF> @proxbetamenu22f1
	LOCK #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22f1
	N: Invalid lock ID, you can only enter 0, 1 or 2.
	N: Right now 2 isn't supported yet in WoS, 
	N: but in advance it gets supported in proxbeta already.
	GOTO @proxbetamenu22f
@proxbetamenu22g
	N: Enter the item ID you want to offer:
	ASK #<proxbetaAsk>
	OFFER #<lastAsk>
	GOTO @proxbetaend
@proxbetamenu22h
	N: Enter the minimum item level you want to offer:
	ASK #<proxbetaAsk>
	SET proxbetaO2min, "#<lastAsk>"
@proxbetamenu22h1
	N: Enter the maximum item level you want to offer:
	ASK #<proxbetaAsk>
	SET proxbetaO2max, "#<lastAsk>"
	COMPARE "#<proxbetaO2min>", "#<proxbetaO2max>"
	IF> @proxbetamenu22h2
	N: Enter the item class ID you want to offer:
	ASK #<proxbetaAsk>
	SET proxbetaO2id, "#<lastAsk>"
	OFFER2 #<proxbetaO2min>,#<proxbetaO2max>,#<proxbetaO2id>
	GOTO @proxbetaend
@proxbetamenu22h2
	N: Invalid level, maximum level must be equal or higher then minimum level!
	GOTO @proxbetamenu22h1

@proxbetamenu23
	N: Please enter the label name:
	ASK #<proxbetaAsk>
	STRCMP "#<lastAsk>", "0"
	IF= @proxbetaend
	GOTO @#<lastAsk>
	N: Label not found!
	GOTO @proxbetamenu23

@proxbetamenu24
	N: Please enter the (web)site name you want to visit:
	ASK #<proxbetaAsk>
	HTML "#<lastAsk>"
	GOTO @proxbetaend

@proxbetaadmininimenu
#include admin.ini
	GOTO @proxbetaend

@proxbetamenu25
	MENU "GOTO SCENE=@proxbetamenu18","GOTO LINK=@proxbetamenu19","GOTO @LABEL=@proxbetamenu23","GOTO HTML=@proxbetamenu24","GOTO EXIT=@proxbetamenu25a","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamenu25
@proxbetamenu25a
	GOTO EXIT

@proxbetamenu26
	N: Enter start monster ID:
	ASK #<proxbetaAsk>
	SET proxbetamenu26a, #<lastAsk>
	N: Enter end monster ID:
	ASK #<proxbetaAsk>
	SET proxbetamenu26b, #<lastAsk>
@proxbetamenu26a
	COMPARE "#<proxbetamenu26a>,"#<proxbetamenu26b>"
	IF> @proxbetaend
	GIVE L1
	GIVE H#<num.hostMaxHP>
	GIVE M#<num.hostMaxMP>
	FIGHT #<proxbetamenu26a>
	ADD proxbetamenu26a, "1"
	GOTO @proxbetamenu26a	

@proxbetamenu27
	N: Enter new coordinate for X:
	ASK #<proxbetaAsk>
	SET proxbetaActorMX, #<lastAsk>
	N: Enter new coordinate for Y:
	ASK #<proxbetaAsk>
	SET proxbetaActorMY, #<lastAsk>
	COMPARE #<proxbetaActorMX>, "0"
	IF> @skipsetproxbetaActormmXa
	SET proxbetaActorMX, "95"
@skipsetproxbetaActormmXa
	COMPARE #<proxbetaActorMX>, "100"
	IF< @skipsetproxbetaActormmXb
	SET proxbetaActorMX, "95"
@skipsetproxbetaActormmXb
	COMPARE #<proxbetaActorMY>, "0"
	IF> @skipsetproxbetaActormmYa
	SET proxbetaActorMY, "12"
@skipsetproxbetaActormmYa
	COMPARE #<proxbetaActorMY>, "100"
	IF< @skipsetproxbetaActormmYb
	SET proxbetaActorMY, "12"
@skipsetproxbetaActormmYb
	ACTOR 0, "",proxbeta,1,#<proxbetaActorMX>,#<proxbetaActorMY>
	GOTO @proxbetaend	

;
; ITEM TRACER
;
@proxitemtracer
	N: Welcome in Item Tracer. 
	SET trcitem,   "#<trcitem2>"
	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=@proxbetaitsubm2","Trace Best Potions=@proxbetaitsubm3","Trace Item Class=@proxbetaitsubm4","Trace Item Name=@proxbetaitsubm5","Trace Item Price=@proxbetaitsubm8","Trace Item Level=@proxbetaitsubm9","Trace Item Element=@proxbetaitsubm10","Trace Item Attack Points=@proxbetaitsubm11","Trace Item Defense Points=@proxbetaitsubm12","Trace Item HP=@proxbetaitsubm13","Trace Item MP=@proxbetaitsubm14","Item Info=@proxbetaitsubm6","Limit Item Search=@proxbetaitsubm7","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxitemtracer
@settrcsearch
	SET trcsearchid2,"1"
	SET trcsearchid, "5119"
	GOTO @proxitemtracer
;
; SUB2
;
@proxbetaitsubm2
	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.
	GOTO @proxitemtracer	
@sub2noresult
	N: There were no results for Item class ID #<trcclass>.
	N: Most likely there don't exist any items in this catagory yet.
	GOTO @proxitemtracer
@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 @proxbetaitsubm2

;
; SUB3
;
@proxbetaitsubm3
	SET trchp,    "0"
	SET trcmp,    "0"
	SET trchpmp,  "0"
	SET trchpid,  "0"
	SET trcmpid,  "0"
	SET trchpmpid,"0"
	N: Item tracer 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".
	GOTO @proxbetaend	
@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
;
@proxbetaitsubm4
	N: Please enter the Item Class you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	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.
	GOTO @proxbetaend
@sub4end
	N: This was the list for item class ID "#<trcclass>".
	GOTO @proxbetaend
@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
;
@proxbetaitsubm5
	N: Please enter the search name from the item you want to check for its existance.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	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

@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>".
	GOTO @proxbetaend
@sub5non
	N: There are no items found with the current search word.
	GOTO @proxbetaend
@proxbetaitnoenter
	N: You didn't enter a valid value.
	GOTO @proxbetaend

;
; SUB6
;
@proxbetaitsubm6
	N: Please enter an item ID.
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "1"
	IF< @nonexist
	COMPARE #<lastAsk>, "5119"
	IF> @nonexist
	COMPARE #<lastAsk>, ""
	IF= @proxbetaitsubm6
	WAIT 2.0
	SET item.id, #<lastAsk>
	STRCMP #<item.name>, ""
	IF= @proxitnonexist
	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.
	SET proxitfun, num.item#<item.id>
	N: Your current character is carrying *#<proxitfun> #<item.name> at the moment.
	N: This is all the information I have about #<item.name> right now.
	GOTO @proxitemtracer
@proxitnonexist
	N: It appears this item does not exist.
	GOTO @proxbetaitsubm6

;
; SUB7
;
@proxbetaitsubm7
	N: Please enter the item ID you want to start searching with:
	WAIT 2.0
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "0"
	IF< @proxbetaitnoenter7
	COMPARE #<lastAsk>, "5118"
	IF> @proxbetaitnoenter7
	SET trcitem2, "#<lastAsk>"
	N: Please enter the item ID you want to stop searching with:
	WAIT 2.0
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "#<trcitem>"
	IF< @proxbetaitnoenter7a
	COMPARE #<lastAsk>, "2"
	IF< @proxbetaitnoenter7
	COMPARE #<lastAsk>, "5119"
	IF> @proxbetaitnoenter
	SET trcsearchid, #<lastAsk>
	WAIT 2.0
	N: Item tracer will now search through item ID #<trcitem> till item ID #<trcsearchid>. 
	GOTO @proxitemtracer
@proxbetaitnoenter7
	N: You did not enter a valid value, item ID's range from 1 to 5119.
	GOTO @proxbetaitsubm7
@proxbetaitnoenter7a
	N: End value must be higher then start value, item ID's range from 1 to 5119.
	GOTO @proxbetaitsubm7
;
; SUB8
;

@proxbetaitsubm8
	N: Please enter the item price you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub8trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub8list
	IF> @sub8list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub8n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub8n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub8n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub8n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub8n5000
@sub8return
	SET item.id, "#<trcitem>"
	COMPARE #<item.price>, #<trcname>
	IF= @sub8proc
	GOTO @sub8trc
@sub8proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub8trc

@sub8list
	COMPARE #<trclist>, "1"
	IF< @sub8non
	WAIT 3.0
	IF= @sub8on1
	N: There are #<trclist> items found with your current search value.
@sub8list2
	COMPARE #<trclist2>, "0"
	IF= @sub8end
	IF< @sub8end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub8list2
@sub8on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub8list2	
@sub8n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub8return
@sub8n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub8return
@sub8n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub8return
@sub8n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub8return
@sub8n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub8return

@sub8end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub8non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB9
;

@proxbetaitsubm9
	N: Please enter the item level you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub9trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub9list
	IF> @sub9list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub9n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub9n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub9n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub9n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub9n5000
@sub9return
	SET item.id, "#<trcitem>"
	COMPARE #<item.level>, #<trcname>
	IF= @sub9proc
	GOTO @sub9trc
@sub9proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub9trc

@sub9list
	COMPARE #<trclist>, "1"
	IF< @sub9non
	WAIT 3.0
	IF= @sub9on1
	N: There are #<trclist> items found with your current search value.
@sub9list2
	COMPARE #<trclist2>, "0"
	IF= @sub9end
	IF< @sub9end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub9list2
@sub9on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub9list2	
@sub9n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub9return
@sub9n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub9return
@sub9n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub9return
@sub9n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub9return
@sub9n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub9return

@sub9end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub9non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB10
;

@proxbetaitsubm10
	N: Please enter the item element you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub10trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub10list
	IF> @sub10list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub10n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub10n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub10n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub10n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub10n5000
@sub10return
	SET item.id, "#<trcitem>"
	COMPARE #<item.element>, #<trcname>
	IF= @sub10proc
	GOTO @sub10trc
@sub10proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub10trc

@sub10list
	COMPARE #<trclist>, "1"
	IF< @sub10non
	WAIT 3.0
	IF= @sub10on1
	N: There are #<trclist> items found with your current search value.
@sub10list2
	COMPARE #<trclist2>, "0"
	IF= @sub10end
	IF< @sub10end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub10list2
@sub10on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub10list2	
@sub10n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub10return
@sub10n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub10return
@sub10n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub10return
@sub10n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub10return
@sub10n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub10return

@sub10end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub10non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB11
;

@proxbetaitsubm11
	N: Please enter the item attack points you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub11trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub11list
	IF> @sub11list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub11n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub11n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub11n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub11n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub11n5000
@sub11return
	SET item.id, "#<trcitem>"
	COMPARE #<item.attack>, #<trcname>
	IF= @sub11proc
	GOTO @sub11trc
@sub11proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub11trc

@sub11list
	COMPARE #<trclist>, "1"
	IF< @sub11non
	WAIT 3.0
	IF= @sub11on1
	N: There are #<trclist> items found with your current search value.
@sub11list2
	COMPARE #<trclist2>, "0"
	IF= @sub11end
	IF< @sub11end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub11list2
@sub11on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub11list2	
@sub11n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub11return
@sub11n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub11return
@sub11n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub11return
@sub11n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub11return
@sub11n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub11return

@sub11end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub11non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB12
;

@proxbetaitsubm12
	N: Please enter the item defense points you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub12trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub12list
	IF> @sub12list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub12n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub12n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub12n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub12n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub12n5000
@sub12return
	SET item.id, "#<trcitem>"
	COMPARE #<item.defense>, #<trcname>
	IF= @sub12proc
	GOTO @sub12trc
@sub12proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub12trc

@sub12list
	COMPARE #<trclist>, "1"
	IF< @sub12non
	WAIT 3.0
	IF= @sub12on1
	N: There are #<trclist> items found with your current search value.
@sub12list2
	COMPARE #<trclist2>, "0"
	IF= @sub12end
	IF< @sub12end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub12list2
@sub12on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub12list2	
@sub12n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub12return
@sub12n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub12return
@sub12n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub12return
@sub12n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub12return
@sub12n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub12return

@sub12end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub12non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB13
;

@proxbetaitsubm13
	N: Please enter the item HP you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub13trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub13list
	IF> @sub13list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub13n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub13n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub13n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub13n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub13n5000
@sub13return
	SET item.id, "#<trcitem>"
	COMPARE #<item.hp>, #<trcname>
	IF= @sub13proc
	GOTO @sub13trc
@sub13proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub13trc

@sub13list
	COMPARE #<trclist>, "1"
	IF< @sub13non
	WAIT 3.0
	IF= @sub13on1
	N: There are #<trclist> items found with your current search value.
@sub13list2
	COMPARE #<trclist2>, "0"
	IF= @sub13end
	IF< @sub13end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub13list2
@sub13on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub13list2	
@sub13n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub13return
@sub13n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub13return
@sub13n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub13return
@sub13n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub13return
@sub13n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub13return

@sub13end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub13non
	N: There are no items found with the current search value.
	GOTO @proxbetaend

;
; SUB14
;

@proxbetaitsubm14
	N: Please enter the item MP you want to find.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetaitnoenter
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@sub14trc
	COMPARE #<trcitem>, #<trcsearchid>
	IF= @sub14list
	IF> @sub14list
	ADD trcitem, "1"
	COMPARE #<trcitem>, "1000"
	IF= @sub14n1000
	COMPARE #<trcitem>, "2000"
	IF= @sub14n2000
	COMPARE #<trcitem>, "3000"
	IF= @sub14n3000
	COMPARE #<trcitem>, "4000"
	IF= @sub14n4000
	COMPARE #<trcitem>, "5000"
	IF= @sub14n5000
@sub14return
	SET item.id, "#<trcitem>"
	COMPARE #<item.mp>, #<trcname>
	IF= @sub14proc
	GOTO @sub14trc
@sub14proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<item.id>"
	GOTO @sub14trc

@sub14list
	COMPARE #<trclist>, "1"
	IF< @sub14non
	WAIT 3.0
	IF= @sub14on1
	N: There are #<trclist> items found with your current search value.
@sub14list2
	COMPARE #<trclist2>, "0"
	IF= @sub14end
	IF< @sub14end	
	SET item.id, *#<trclist2>	
	N: Item #<item.name>, item ID #<item.id>
	SUB trclist2, "1"
	GOTO @sub14list2
@sub14on1
	N: There is #<trclist> item found with your current search value.
	GOTO @sub14list2	
@sub14n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub14return
@sub14n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub14return
@sub14n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub14return
@sub14n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub14return
@sub14n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @sub14return

@sub14end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@sub14non
	N: There are no items found with the current search value.
	GOTO @proxbetaend


;
; SPELL TRACER
;
@proxspelltracer
	SET trcsname,	"0"
	SET trcsid,		"0"
	SET trclist,	"0"
	SET trclist2,	"0"
	MENU "Total Amount Of Spells=@subspell9","Search Strongest Spell=@subspell1","Search Spell Name=@subspell2","Search Spell Damage=@subspell3","Search MP cost=@subspell4","Search PP cost=@subspell5","Search Spell Element=@subspell6","Search Spell Level=@subspell7","Free Spell ID's=@subspell10","Detailed Spell Information=@subspell8","Back=@eventActorClick0","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.
	GOTO @proxbetaend

@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.
	GOTO @proxbetaend
;
; 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
	COMPARE #<spell.damage>, "0"
	IF= @@subspell2trc
	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>".
	GOTO @proxbetaend
@subspell2non
	N: There are no spells found with the current search word.
	GOTO @proxbetaend
;
; 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>".
	GOTO @proxbetaend
@subspell3non
	N: There are no spells found with the current search damage.
	GOTO @proxbetaend
;
; 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>".
	GOTO @proxbetaend
@subspell4non
	N: There are no spells found with the current MP damage.
	GOTO @proxbetaend
;
; 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>".
	GOTO @proxbetaend
@subspell5non
	N: There are no spells found with the current search PP.
	GOTO @proxbetaend
;
; 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
	COMPARE #<spell.damage>, "0"
	IF= @subspell6trc
	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>".
	GOTO @proxbetaend
@subspell6non
	N: There are no spells found with the current search element.
	GOTO @proxbetaend
;
; 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
	COMPARE #<spell.damage>, "0"
	IF= @subspell7trc
	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>".
	GOTO @proxbetaend
@subspell7non
	N: There are no spells found with the current search level.
	GOTO @proxbetaend
;
; 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>.
	GOTO @proxbetaend

@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.
	GOTO @proxbetaend

;
; SUBSPELL9
;
@subspell9


	SET subspell9, "0"
	N: Do you want to view each spell ID and name when the list is done searching, or only want to view the total amount?
	MENU "View Spell ID's And Names=@subspell9ex1","View Only Total Amount=@subspell9ex2","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamtsubm19

@subspell9ex1
	SET subspell9, "1"
	GOTO @psubspell9process
@subspell9ex2
	SET subspell9, "2"
	GOTO @subspell99process

@subspell99process
	N: Searching for all Spell ID's that are in use...
	WAIT 1.0
@subspell9trc
	ADD trcsid, "1"
	COMPARE #<trcsid>, "768" 
	IF= @subspell9list
	IF> @subspell9list
	SET spell.id, "#<trcsid>"
	COMPARE "#<spell.price>", "0"
	IF> @subspell9proc
	GOTO @subspell9trc
	
@subspell9proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<spell.id>"
	GOTO @subspell9trc
@subspell9list
	COMPARE #<trclist>, "1"
	IF< @subspell9non
	WAIT 3.0
	N: There are #<trclist> spells found.
	COMPARE #<subspell9>, "2"
	IF= @proxbetaend
@subspelllist9
	COMPARE #<trclist2>, "0"
	IF= @subspell9end
	IF< @subspell9end	
	SET spell.id, *#<trclist2>	
	N: Spell #<spell.name>, spell ID #<spell.id>
	SUB trclist2, "1"
	GOTO @subspelllist9
@subspell9end
	N: This was the list for all found Spell ID's.
	GOTO @proxbetaend
@subspell9non
	N: There are no spells found.
	GOTO @proxbetaend

;
; MONSTER TRACER
;
@proxmonstertracer
	N: Welcome in Monster Tracer. 
	SET trcmon,    "#<trcmon2>"
	SET trcname,   "0"
	SET trcid,     "0"
	SET trclist,   "0"
	SET trclist2,  "0"
	SET temptrc,   "0"
	COMPARE #<trcmsearchid>, "1"
	IF< @settrcmsearch
	COMPARE #<trcmsearchid>, "4095"
	IF> @settrcmsearch
	MENU "Trace Total Amount Of Monsters=@proxbetamtsubm19","Trace Monster Name=@proxbetamtsubm1","Trace Monster Level=@proxbetamtsubm4","Trace Monster Element=@proxbetamtsubm10","Trace Monster HP=@proxbetamtsubm11","Trace Monster MP=@proxbetamtsubm12","Trace Monster Strength=@proxbetamtsubm5","Trace Monster Wisdom=@proxbetamtsubm6","Trace Monster Stamina=@proxbetamtsubm7","Trace Monster Agility=@proxbetamtsubm8","Trace Monster Dexterity=@proxbetamtsubm9","Trace Monster Attack Points=@proxbetamtsubm13","Trace Monster Defense Points=@proxbetamtsubm14","Trace Monster Exp. Points=@proxbetamtsubm15","Trace Monster Gold Points=@proxbetamtsubm16","Trace Monster Alignment=@proxbetamtsubm17","Trace Monster Skin=@proxbetamtsubm18","Monster Info=@proxbetamtsubm3","Limit Monster Search=@proxbetamtsubm2","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxmonstertracer
@settrcmsearch
	SET trcmsearchid2,"1"
	SET trcmsearchid, "4095"
	GOTO @proxmonstertracer

;
; MON1
;

@proxbetamtsubm1
	N: Please enter the monster name you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter1
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt1trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt1list
	IF> @submt1list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt1n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt1n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt1n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt1n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt1n5000
@submt1return
	SET monster.id, "#<trcmon>"
	STRSTR #<monster.name>, #<trcname>
	IF> @submt1proc
	GOTO @submt1trc
@submt1proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt1trc

@submt1list
	COMPARE #<trclist>, "1"
	IF< @submt1non
	WAIT 3.0
	IF= @submt1on1
	N: There are #<trclist> items found with your current search value.
@submt1list2
	COMPARE #<trclist2>, "0"
	IF= @submt1end
	IF< @submt1end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, Monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt1list2
@submt1on1
	N: There is #<trclist> item found with your current search value.
	GOTO @submt1list2	
@submt1n1000
	WAIT 1.0
	N: 1000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt1return
@submt1n2000
	WAIT 1.0
	N: 2000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt1return
@submt1n3000
	WAIT 1.0
	N: 3000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt1return
@submt1n4000
	WAIT 1.0
	N: 4000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt1return
@submt1n5000
	WAIT 1.0
	N: 5000 item ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt1return

@submt1end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt1non
	N: There are no items found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter1
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm1

;
; MON2
;
@proxbetamtsubm2
	N: Please enter the monster ID you want to start searching with: 
	WAIT 2.0
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, "0"
	IF< @proxbetaitnoenter2
	COMPARE #<lastAsk>, "4094"
	IF> @proxbetaitnoenter2
	SET trcmon2, "#<lastAsk>"
	N: Please enter the monster ID you want to stop searching with: 
	WAIT 2.0
	ASK #<proxbetaAsk>
	COMPARE #<lastAsk>, #<trcmon>
	IF< @proxbetaitnoenter2a
	COMPARE #<lastAsk>, "2"
	IF< @proxbetamtnoenter
	COMPARE #<lastAsk>, "4095"
	IF> @proxbetaitnoenter2
	SET trcmsearchid, #<lastAsk>
	WAIT 2.0
	N: Monster tracer will now search through item ID #<trcmon> till item ID #<trcmsearchid>.
	GOTO @proxmonstertracer
@proxbetaitnoenter2
	N: You did not enter a valid value, monster ID's range from 1 to 4095.
	GOTO @proxbetamtsubm2
@proxbetaitnoenter2a
	N: End value must be higher then start value, monster ID's range from 1 to 4095.
	GOTO @proxbetamtsubm2
;
; MON3
;
@proxbetamtsubm3
	N: Please enter a monster ID you want more information from.
	WAIT 2.0
	ASK #<proxbetaAsk>
	SET monster.id, #<lastAsk>
	STRCMP #<monster.name>, ""
	IF= @proxnonexistingmonster
	N: #<monster.name> is a level #<monster.level> monster from element #<monster.element>.
	N: Monster #<monster.name> has #<monster.STR> strenght, #<monster.WIS> wisdom, #<monster.STA> stamina, #<monster.AGI> agility and #<monster.DEX> dexterity. 
	N: #<monster.name> has #<monster.hp> HP, #<monster.mp> MP, #<monster.attack> attack points, #<monster.defense> defense points and gives #<monster.expPts> experience points.
	STRCMP #<monster.allignment>, ""
	IF= @proxbetamtskipalignment
	N: Monster #<monster.name> is from alignment #<monster.alignment>
@proxbetamtskipalignment
	N: #<monster.name> gives #<monster.gold> GP after it's killed and wears skin #<monster.skin>
	N: Your current character has killed monster #<monster.name> %K#<monster.id> times.
	SET proxmtfun1, %K#<monster.id>
	SET proxmtfun2, %K0
	MUL proxmtfun1, 100
	DIV proxmtfun1, #<proxmtfun2>
	N: That is #<proxmtfun1>% of your total amount of monster kills.
	N: This is all the information I have about #<monster.name> right now.
	GOTO @proxmonstertracer

@proxnonexistingmonster
	N: It appears this monster does not exist.
	GOTO @proxbetamtsubm3
 
;
; MON4
;
@proxbetamtsubm4
	N: Please enter the monster level you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter4
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt4trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt4list
	IF> @submt4list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt4n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt4n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt4n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt4n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt4n5000
@submt4return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.level>, #<trcname>
	IF= @submt4proc
	GOTO @submt4trc
@submt4proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt4trc

@submt4list
	COMPARE #<trclist>, "1"
	IF< @submt4non
	WAIT 3.0
	IF= @submt4on1
	N: There are #<trclist> monsters found with your current search value.
@submt4list2
	COMPARE #<trclist2>, "0"
	IF= @submt4end
	IF< @submt4end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt4list2
@submt4on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt4list2	
@submt4n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt4return
@submt4n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt4return
@submt4n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt4return
@submt4n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt4return
@submt4n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt4return

@submt4end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt4non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter4
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm4

;
; MON5
;
@proxbetamtsubm5
	N: Please enter the monster strenght you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter5
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt5trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt5list
	IF> @submt5list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt5n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt5n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt5n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt5n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt5n5000
@submt5return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.STR>, #<trcname>
	IF= @submt5proc
	GOTO @submt5trc
@submt5proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt5trc

@submt5list
	COMPARE #<trclist>, "1"
	IF< @submt5non
	WAIT 3.0
	IF= @submt5on1
	N: There are #<trclist> monsters found with your current search value.
@submt5list2
	COMPARE #<trclist2>, "0"
	IF= @submt5end
	IF< @submt5end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt5list2
@submt5on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt5list2	
@submt5n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt5return
@submt5n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt5return
@submt5n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt5return
@submt5n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt5return
@submt5n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt5return

@submt5end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt5non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter5
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm5

;
; MON6
;
@proxbetamtsubm6
	N: Please enter the monster wisdom you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter6
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt6trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt6list
	IF> @submt6list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt6n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt6n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt6n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt6n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt6n5000
@submt6return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.WIS>, #<trcname>
	IF= @submt6proc
	GOTO @submt6trc
@submt6proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt6trc

@submt6list
	COMPARE #<trclist>, "1"
	IF< @submt6non
	WAIT 3.0
	IF= @submt6on1
	N: There are #<trclist> monsters found with your current search value.
@submt6list2
	COMPARE #<trclist2>, "0"
	IF= @submt6end
	IF< @submt6end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt6list2
@submt6on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt6list2	
@submt6n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt6return
@submt6n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt6return
@submt6n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt6return
@submt6n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt6return
@submt6n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt6return

@submt6end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt6non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter6
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm6

;
; MON7
;
@proxbetamtsubm7
	N: Please enter the monster stamina you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter7
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt7trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt7list
	IF> @submt7list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt7n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt7n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt7n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt7n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt7n5000
@submt7return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.STA>, #<trcname>
	IF= @submt7proc
	GOTO @submt7trc
@submt7proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt7trc

@submt7list
	COMPARE #<trclist>, "1"
	IF< @submt7non
	WAIT 3.0
	IF= @submt7on1
	N: There are #<trclist> monsters found with your current search value.
@submt7list2
	COMPARE #<trclist2>, "0"
	IF= @submt7end
	IF< @submt7end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt7list2
@submt7on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt7list2	
@submt7n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt7return
@submt7n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt7return
@submt7n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt7return
@submt7n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt7return
@submt7n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt7return

@submt7end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt7non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter7
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm7

;
; MON8
;
@proxbetamtsubm8
	N: Please enter the monster agility you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter8
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt8trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt8list
	IF> @submt8list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt8n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt8n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt8n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt8n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt8n5000
@submt8return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.AGI>, #<trcname>
	IF= @submt8proc
	GOTO @submt8trc
@submt8proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt8trc

@submt8list
	COMPARE #<trclist>, "1"
	IF< @submt8non
	WAIT 3.0
	IF= @submt8on1
	N: There are #<trclist> monsters found with your current search value.
@submt8list2
	COMPARE #<trclist2>, "0"
	IF= @submt8end
	IF< @submt8end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt8list2
@submt8on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt8list2	
@submt8n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt8return
@submt8n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt8return
@submt8n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt8return
@submt8n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt8return
@submt8n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt8return

@submt8end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt8non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter8
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm8

;
; MON9
;
@proxbetamtsubm9
	N: Please enter the monster dexterity you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter9
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt9trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt9list
	IF> @submt9list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt9n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt9n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt9n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt9n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt9n5000
@submt9return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.DEX>, #<trcname>
	IF= @submt9proc
	GOTO @submt9trc
@submt9proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt9trc

@submt9list
	COMPARE #<trclist>, "1"
	IF< @submt9non
	WAIT 3.0
	IF= @submt9on1
	N: There are #<trclist> monsters found with your current search value.
@submt9list2
	COMPARE #<trclist2>, "0"
	IF= @submt9end
	IF< @submt9end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt9list2
@submt9on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt9list2	
@submt9n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt9return
@submt9n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt9return
@submt9n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt9return
@submt9n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt9return
@submt9n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt9return

@submt9end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt9non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter9
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm9

;
; MON10
;
@proxbetamtsubm10
	N: Please enter the monster element you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter10
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt10trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt10list
	IF> @submt10list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt10n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt10n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt10n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt10n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt10n5000
@submt10return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.element>, #<trcname>
	IF= @submt10proc
	GOTO @submt10trc
@submt10proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt10trc

@submt10list
	COMPARE #<trclist>, "1"
	IF< @submt10non
	WAIT 3.0
	IF= @submt10on1
	N: There are #<trclist> monsters found with your current search value.
@submt10list2
	COMPARE #<trclist2>, "0"
	IF= @submt10end
	IF< @submt10end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt10list2
@submt10on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt10list2	
@submt10n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt10return
@submt10n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt10return
@submt10n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt10return
@submt10n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt10return
@submt10n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt10return

@submt10end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt10non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter10
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm10

;
; MON11
;
@proxbetamtsubm11
	N: Please enter the monster HP you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter11
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt11trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt11list
	IF> @submt11list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt11n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt11n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt11n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt11n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt11n5000
@submt11return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.hp>, #<trcname>
	IF= @submt11proc
	GOTO @submt11trc
@submt11proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt11trc

@submt11list
	COMPARE #<trclist>, "1"
	IF< @submt11non
	WAIT 3.0
	IF= @submt11on1
	N: There are #<trclist> monsters found with your current search value.
@submt11list2
	COMPARE #<trclist2>, "0"
	IF= @submt11end
	IF< @submt11end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt11list2
@submt11on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt11list2	
@submt11n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt11return
@submt11n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt11return
@submt11n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt11return
@submt11n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt11return
@submt11n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt11return

@submt11end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt11non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter11
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm11

;
; MON12
;
@proxbetamtsubm12
	N: Please enter the monster MP you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter12
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt12trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt12list
	IF> @submt12list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt12n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt12n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt12n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt12n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt12n5000
@submt12return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.mp>, #<trcname>
	IF= @submt12proc
	GOTO @submt12trc
@submt12proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt12trc

@submt12list
	COMPARE #<trclist>, "1"
	IF< @submt12non
	WAIT 3.0
	IF= @submt12on1
	N: There are #<trclist> monsters found with your current search value.
@submt12list2
	COMPARE #<trclist2>, "0"
	IF= @submt12end
	IF< @submt12end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt12list2
@submt12on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt12list2	
@submt12n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt12return
@submt12n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt12return
@submt12n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt12return
@submt12n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt12return
@submt12n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt12return

@submt12end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt12non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter12
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm12

;
; MON13
;
@proxbetamtsubm13
	N: Please enter the monster attack points you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter13
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt13trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt13list
	IF> @submt13list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt13n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt13n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt13n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt13n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt13n5000
@submt13return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.attack>, #<trcname>
	IF= @submt13proc
	GOTO @submt13trc
@submt13proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt13trc

@submt13list
	COMPARE #<trclist>, "1"
	IF< @submt13non
	WAIT 3.0
	IF= @submt13on1
	N: There are #<trclist> monsters found with your current search value.
@submt13list2
	COMPARE #<trclist2>, "0"
	IF= @submt13end
	IF< @submt13end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt13list2
@submt13on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt13list2	
@submt13n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt13return
@submt13n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt13return
@submt13n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt13return
@submt13n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt13return
@submt13n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt13return

@submt13end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt13non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter13
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm13

;
; MON14
;
@proxbetamtsubm14
	N: Please enter the monster defense points you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter14
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt14trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt14list
	IF> @submt14list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt14n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt14n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt14n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt14n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt14n5000
@submt14return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.defense>, #<trcname>
	IF= @submt14proc
	GOTO @submt14trc
@submt14proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt14trc

@submt14list
	COMPARE #<trclist>, "1"
	IF< @submt14non
	WAIT 3.0
	IF= @submt14on1
	N: There are #<trclist> monsters found with your current search value.
@submt14list2
	COMPARE #<trclist2>, "0"
	IF= @submt14end
	IF< @submt14end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt14list2
@submt14on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt14list2	
@submt14n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt14return
@submt14n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt14return
@submt14n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt14return
@submt14n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt14return
@submt14n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt14return

@submt14end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt14non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter14
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm14

;
; MON15
;
@proxbetamtsubm15
	N: Please enter the monster experience points you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter15
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt15trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt15list
	IF> @submt15list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt15n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt15n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt15n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt15n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt15n5000
@submt15return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.expPts>, #<trcname>
	IF= @submt15proc
	GOTO @submt15trc
@submt15proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt15trc

@submt15list
	COMPARE #<trclist>, "1"
	IF< @submt15non
	WAIT 3.0
	IF= @submt15on1
	N: There are #<trclist> monsters found with your current search value.
@submt15list2
	COMPARE #<trclist2>, "0"
	IF= @submt15end
	IF< @submt15end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt15list2
@submt15on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt15list2	
@submt15n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt15return
@submt15n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt15return
@submt15n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt15return
@submt15n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt15return
@submt15n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt15return

@submt15end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt15non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter15
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm15

;
; MON16
;
@proxbetamtsubm16
	N: Please enter the monster gold points you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter16
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt16trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt16list
	IF> @submt16list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt16n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt16n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt16n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt16n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt16n5000
@submt16return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.gold>, #<trcname>
	IF= @submt16proc
	GOTO @submt16trc
@submt16proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt16trc

@submt16list
	COMPARE #<trclist>, "1"
	IF< @submt16non
	WAIT 3.0
	IF= @submt16on1
	N: There are #<trclist> monsters found with your current search value.
@submt16list2
	COMPARE #<trclist2>, "0"
	IF= @submt16end
	IF< @submt16end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt16list2
@submt16on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt16list2	
@submt16n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt16return
@submt16n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt16return
@submt16n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt16return
@submt16n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt16return
@submt16n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt16return

@submt16end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt16non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter16
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm16

;
; MON17
;
@proxbetamtsubm17
	N: Please enter the monster alignment you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter17
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt17trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt17list
	IF> @submt17list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt17n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt17n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt17n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt17n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt17n5000
@submt17return
	SET monster.id, "#<trcmon>"
	STRCMP #<monster.alignment>, #<trcname>
	IF= @submt17proc
	GOTO @submt17trc
@submt17proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt17trc

@submt17list
	COMPARE #<trclist>, "1"
	IF< @submt17non
	WAIT 3.0
	IF= @submt17on1
	N: There are #<trclist> monsters found with your current search value.
@submt17list2
	COMPARE #<trclist2>, "0"
	IF= @submt17end
	IF< @submt17end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt17list2
@submt17on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt17list2	
@submt17n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt17return
@submt17n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt17return
@submt17n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt17return
@submt17n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt17return
@submt17n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt17return

@submt17end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt17non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter17
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm17

;
; MON18
;
@proxbetamtsubm18
	N: Please enter the monster skin name you want to trace.
	WAIT 2.0
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxbetamtnoenter18
	SET trcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
;
;
@submt18trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt18list
	IF> @submt18list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt18n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt18n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt18n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt18n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt18n5000
@submt18return
	SET monster.id, "#<trcmon>"
	STRCMP #<monster.skin>, #<trcname>
	IF= @submt18proc
	GOTO @submt18trc
@submt18proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt18trc

@submt18list
	COMPARE #<trclist>, "1"
	IF< @submt18non
	WAIT 3.0
	IF= @submt18on1
	N: There are #<trclist> monsters found with your current search value.
@submt18list2
	COMPARE #<trclist2>, "0"
	IF= @submt18end
	IF< @submt18end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt18list2
@submt18on1
	N: There is #<trclist> monster found with your current search value.
	GOTO @submt18list2	
@submt18n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt18return
@submt18n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt18return
@submt18n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt18return
@submt18n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt18return
@submt18n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt18return

@submt18end
	N: This was the list for search value "#<trcname>".
	GOTO @proxbetaend
@submt18non
	N: There are no monsters found with the current search value.
	GOTO @proxbetaend
@proxbetamtnoenter18
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm18

;
; MON19
;
@proxbetamtsubm19
	SET proxbetamtsubm19, "0"
	N: Do you want to view each monster ID and name when the list is done searching, or only want to view the total amount?
	MENU "View Monster ID's And Names=@proxbetamtsubm19ex1","View Only Total Amount=@proxbetamtsubm19ex2","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxbetamtsubm19

@proxbetamtsubm19ex1
	SET proxbetamtsubm19, "1"
	GOTO @proxbetamtsubm19process
@proxbetamtsubm19ex2
	SET proxbetamtsubm19, "2"
	GOTO @proxbetamtsubm19process

@proxbetamtsubm19process
	N: Searching for all Monster ID's that are in use...
	WAIT 1.0
;
;
@submt19trc
	COMPARE #<trcmon>, #<trcmsearchid>
	IF= @submt19list
	IF> @submt19list
	ADD trcmon, "1"
	COMPARE #<trcmon>, "1000"
	IF= @submt19n1000
	COMPARE #<trcmon>, "2000"
	IF= @submt19n2000
	COMPARE #<trcmon>, "3000"
	IF= @submt19n3000
	COMPARE #<trcmon>, "4000"
	IF= @submt19n4000
	COMPARE #<trcmon>, "5000"
	IF= @submt19n5000
@submt19return
	SET monster.id, "#<trcmon>"
	COMPARE #<monster.hp>, "0"
	IF> @submt19proc
	GOTO @submt19trc
@submt19proc
	ADD trclist, "1"
	ADD trclist2,"1"
	SET #<trclist2>, "#<monster.id>"
	GOTO @submt19trc

@submt19list
	COMPARE #<trclist>, "1"
	IF< @submt19non
	WAIT 3.0
	IF= @submt19on1
	N: There are #<trclist> monsters found.
	COMPARE #<proxbetamtsubm19>, "2"
	IF= @proxbetaend
@submt19list2
	COMPARE #<trclist2>, "0"
	IF= @submt19end
	IF< @submt19end	
	SET monster.id, *#<trclist2>	
	N: Monster #<monster.name>, monster ID #<monster.id>
	SUB trclist2, "1"
	GOTO @submt19list2
@submt19on1
	N: There is #<trclist> monster found.
	COMPARE #<proxbetamtsubm19>, "2"
	IF= @proxbetaend
	GOTO @submt19list2	
@submt19n1000
	WAIT 1.0
	N: 1000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt19return
@submt19n2000
	WAIT 1.0
	N: 2000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt19return
@submt19n3000
	WAIT 1.0
	N: 3000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt19return
@submt19n4000
	WAIT 1.0
	N: 4000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt19return
@submt19n5000
	WAIT 1.0
	N: 5000 monster ID's have been searched with #<trclist> results till now.
	WAIT 2.0
	GOTO @submt19return

@submt19end
	N: This was the list for all existing monsters.
	GOTO @proxbetaend
@submt19non
	N: There are no monsters found.
	GOTO @proxbetaend
@proxbetamtnoenter19
	N: You didn't enter a valid value.
	GOTO @proxbetamtsubm19

;
; CLASS TRACER
;

@proxclasstracer
	SEL 0
	POSE 2

	N: Welcome in Class Tracer.

	SET proxbetaclasstrcid, "0"
	SET #<proxbetaclasstrcname>, "0"
	SET trclist, "0"
	SET trclist2,"0"

	MENU	"Trace Specific Class Name=@proxclasstracer1","Trace All Existing Classes=@proxclasstracer2","Search For All Free Class ID's=@proxclasstracer3","Back=@eventActorClick0","Cancel=@proxbetaend"
	GOTO @proxclasstracer

@proxclasstracer1
	N: Please enter the class name you want to trace:
	ASK #<proxbetaAsk>
	STRCMP #<lastAsk>, ""
	IF= @proxclasstrc1noenter
	SET proxbetaclasstrcname, #<lastAsk>
	WAIT 2.0
	N: Processing request...
	WAIT 1.0
@proxclasstrc1a
	COMPARE #<proxbetaclasstrcid>, "88"
	IF= @proxclasstrc1list
	IF> @proxclasstrc1list
	ADD proxbetaclasstrcid, "1"
	STRSTR "%C#<proxbetaclasstrcid>", "#<proxbetaclasstrcname>"
	IF> @proxclasstrc1b
	GOTO @proxclasstrc1a
@proxclasstrc1b
	ADD trclist, "1"
	ADD trclist2,"1"
 	SET #<trclist2>, "#<proxbetaclasstrcid>"
	GOTO @proxclasstrc1a
@proxclasstrc1list
	COMPARE #<trclist>, "1"
	IF< @proxclasstrc1non
	WAIT 3.0
	IF= @proxclasstrc1liston1
	N: There are #<trclist> classes found with your current search value.
@proxclasstrc1list2
	COMPARE #<trclist2>, "0"
	IF= @proxclasstracer1end
	IF< @proxclasstracer1end
	SET proxbetaclasstrcid, *#<trclist2>	
	N: Class %C#<proxbetaclasstrcid>, class ID #<proxbetaclasstrcid>
	SUB trclist2, "1"
	GOTO @proxclasstrc1list2
@proxclasstrc1liston1
	N: There is #<trclist> class found with your current search value.
	GOTO @proxclasstrc1list2
@proxclasstrc1non
	N: There are no classes found with the current search value.
	GOTO @proxbetaend
@proxclasstrc1noenter
	N: You didn't enter a valid value.
	GOTO @proxclasstracer1
@proxclasstracer1end
	N: This was the list for search value "#<proxbetaclasstrcname>".
	GOTO @proxbetaend

@proxclasstracer2
	SET proxbetaclasstrcname, ""
	N: Searching for all existing classes with a class name...
	WAIT 1.0
@proxclasstrc2a
	COMPARE #<proxbetaclasstrcid>, "88"
	IF= @proxclasstrc2list
	IF> @proxclasstrc2list
	ADD proxbetaclasstrcid, "1"
	STRCMP "%C#<proxbetaclasstrcid>", "#<proxbetaclasstrcname>"
	IF< @proxclasstrc2b
	IF> @proxclasstrc2b
	GOTO @proxclasstrc2a
@proxclasstrc2b
	ADD trclist, "1"
	ADD trclist2,"1"
 	SET #<trclist2>, "#<proxbetaclasstrcid>"
	GOTO @proxclasstrc2a
@proxclasstrc2list
	COMPARE #<trclist>, "1"
	IF< @proxclasstrc2non
	WAIT 3.0
	IF= @proxclasstrc2liston1
	N: There are #<trclist> classes found with your current search value.
@proxclasstrc2list2
	COMPARE #<trclist2>, "0"
	IF= @proxclasstracer2end
	IF< @proxclasstracer2end
	SET proxbetaclasstrcid, *#<trclist2>	
	N: Class %C#<proxbetaclasstrcid>, class ID #<proxbetaclasstrcid>
	SUB trclist2, "1"
	GOTO @proxclasstrc2list2
@proxclasstrc2liston1
	N: There is #<trclist> class found.
	GOTO @proxclasstrc2list2
@proxclasstrc2non
	N: There are no classes found.
	GOTO @proxbetaend
@proxclasstracer2end
	N: This was the list for all found classes with a class name.
	GOTO @proxbetaend

@proxclasstracer3
	SET proxbetaclasstrcname, ""
	N: Searching for all free class ID's...
	WAIT 1.0
@proxclasstrc3a
	COMPARE #<proxbetaclasstrcid>, "88"
	IF= @proxclasstrc3list
	IF> @proxclasstrc3list
	ADD proxbetaclasstrcid, "1"
	STRCMP "%C#<proxbetaclasstrcid>", "#<proxbetaclasstrcname>"
	IF= @proxclasstrc3b
	GOTO @proxclasstrc3a
@proxclasstrc3b
	ADD trclist, "1"
	ADD trclist2,"1"
 	SET #<trclist2>, "#<proxbetaclasstrcid>"
	GOTO @proxclasstrc3a
@proxclasstrc3list
	COMPARE #<trclist>, "1"
	IF< @proxclasstrc3non
	WAIT 3.0
	IF= @proxclasstrc3liston1
	N: There are #<trclist> free class ID's found.
@proxclasstrc3list2
	COMPARE #<trclist2>, "0"
	IF= @proxclasstracer3end
	IF< @proxclasstracer3end
	SET proxbetaclasstrcid, *#<trclist2>	
	N: Class ID #<proxbetaclasstrcid> is still free.
	SUB trclist2, "1"
	GOTO @proxclasstrc3list2
@proxclasstrc3liston1
	N: There is #<trclist> free class ID found.
	GOTO @proxclasstrc3list2
@proxclasstrc3non
	N: All classes are taken up already.
	GOTO @proxbetaend
@proxclasstracer3end
	N: This was the list for all free class ID's.
	GOTO @proxbetaend

@scenexstart

