[ITEMDEF I_Paradox_GMTool]
ID=013f4
Name=Game Master Tool
TYPE=T_WEAPON_MACE_STAFF
DAM=200
TWOHANDS=Y
WEIGHT=0
ON=@Create
ATTR=ATTR_Newbie
HITPOINTS=1000
MORE2=0
ON=@Equip
If <SRC.IsGM>
Return 0
Else
SRC.SysMessage You are not a Game Master
SRC.FindLayer(2).UnEquip
Return 1
EndIf

ON=@DClick
If (<SRC.IsGM>)&&(<More2>=0)
Menu M_GMUtil_Main
Return 1
ElseIf (<SRC.IsGM>)&!(<More2>=0)
Target Select Target to Query
Else
SRC.SysMessage You are not a Game Master
SRC.FindLayer(2).UnEquip
Return 1
EndIf

ON=@TargOn_Char
SRC.SysMessage Target: <SRC.Targ.Name> (<SRC.Targ.Id>)
If <More2>=1
SRC.SysMessage Hitpoints: <SRC.Targ.Hits> of <SRC.Targ.Str>
SRC.SysMessage Mana: <SRC.Targ.Mana> of <SRC.Targ.Int>
SRC.SysMessage Stamina: <SRC.Targ.Stam> of <Src.Targ.Dex>
More2=0
Return 1
ElseIf <More2>=2
SRC.SysMessage If Data is Blank, no Race or Class
SRC.SysMessage Race: <SRC.Targ.Tag.Race>
SRC.SysMessage Class: <SRC.Targ.SkillClass>
More2=0
Return 1
ElseIf <More2>=3
SRC.SysMessage Events: <SRC.Targ.Events>
More2=0
Return 1
ElseIf <More2>=4
SRC.SysMessage Location Flags: <SRC.Targ.Region.Flags>
More2=0
Return 1
ElseIf <More2>=5
SRC.SysMessage If Data is all 'O' - No Guild Association
SRC.SysMessage Guild Name: <SRC.Targ.MemoryFindType.Memory_Guild.Link.Name>
SRC.SysMessage Align (0:Neutral, 1:O rder, 2:Chaos): <SRC.Targ.MemoryFindType.Memory_Guild.Link.More>
SRC.SysMessage GuildMaster: <SRC.Targ.MemoryFindType.Memory_Guild.Link.Master>
More2=0
Return 1
ElseIf <More2>=6
SRC.SysMessage Guildstone Location: <SRC.Targ.MemoryFindType.Memory_Guild.Link.P>
More=0
Return 1
ElseIf <More2>=7
SRC.SysMessage Going to Guildstone Location
SRC.Go <SRC.Targ.MemoryFindType.Memory_Guild.Link.P>
More2=0
Return 1
ElseIf <More2>=8
SRC.SysMessage If Data is all 'O' - No Town Association
SRC.SysMessage Town Name: <SRC.Targ.MemoryFindType.Memory_Town.Link.Name>
SRC.SysMessage Align (0:Neutral, 1:O rder, 2:Chaos): <SRC.Targ.MemoryFindType.Memory_Town.Link.More>
SRC.SysMessage Town Mayor: <SRC.Targ.MemoryFindType.Memory_Town.Link.Master>
More2=0
Return 1
ElseIf <More2>=9
SRC.SysMessage Townstone Location: <SRC.Targ.MemoryFindType.Memory_Town.Link.P>
More2=0
Return 1
ElseIf <More2>=10
SRC.SysMessage Going to Townstone Location
SRC.Go <SRC.Targ.MemoryFindType.Memory_Town.Link.P>
More2=0
Return 1
ElseIf <More2>=11
SRC.SysMessage If Data is '0' - Summoned, not Spawned
SRC.SysMessage Spawn Gem Loaction: <SRC.Targ.MemoryFindType.Memory_ISPawned.Link.P>
More2=0
Return 1
ElseIf <More2>=12
SRC.SysMessage Going to Spawn Gem Location
SRC.Go <SRC.Targ.MemoryFindType.Memory_ISPawned.Link.P>
More2=0
Return 1
ElseIf <More2>=13
SRC.SysMessage Last Char: <SRC.Targ.MemoryFindType.Memory_Speak.Link.Name>
SRC.SysMessage Last Char Location: <SRC.Targ.MemoryFindType.Memory_Speak.Link.P>
More2=0
Return 1
ElseIf <More2>=14
SRC.SysMessage Going to Last Char Spoken to
SRC.Go <SRC.Targ.MemoryFindType.Memory_Speak.Link.P>
More2=0
Return 1
ElseIf <More2>=15
SRC.SysMessage Name/Location of Pet Owner:
SRC.SysMessage Owner Name: <SRC.Targ.MemoryFindType.Memory_IPet.Link.Name>
SRC.SysMessage Owner Location: <SRC.Targ.MemoryFindType.Memory_IPet.Link.P>
More2=0
Return 1
ElseIf <More2>=16
SRC.SysMessage Going to Pet Owner Location
SRC.Go <SRC.Targ.MemoryFindType.Memory_IPet.Link.P>
More2=0
Return 1
ElseIf <More2>=20
SRC.Targ.FindLayer(29).Open
More2=0
Return 1
Else
SRC.SysMessage Improper Target
More2=0
Return 1
EndIf
On=@TargOn_Item
SRC.SysMessage Target: <SRC.Targ.Name> (<SRC.Targ.Id>)
If <More2>=17
SRC.SysMessage Damage (Min,Max): <SRC.Targ.Dam>
More2=0
Return 1
ElseIf <More2>=18
SRC.SysMessage Minimum STR: <SRC.Targ.ReqSTR>
More2=0
Return 1
ElseIf <More2>=19
SRC.SysMessage Resources to Make: <SRC.Targ.Resources>
More2=0
Return 1
Else
SRC.SysMessage Improper Target
More2=0
Return 1


Description=Utility Crook
SubSection=GM Utilities
Category=Custom Items


[MENU M_GMUtil_Main]
InGame GM Info Utility
On=0 Player Information
        Menu M_GMUtil_Player
On=0 Player Guild/Town Information
        Menu M_GMUtil_Player_Guild
On=0 NPC Options
        Menu M_GMUtil_NPC
On=0 Item Options
        Menu M_GMUtil_Item
On=0 Open Player/NPC Bankbox
                More2=20
                SRC.FindLayer(2).DClick
[MENU M_GMUtil_Player]
InGame GM Info Utility - Player Info
On=0 Display Stat Attributes (Quick List)
                More2=1
                SRC.FindLayer(2).DClick
On=0 Display Race/Class Info
                More2=2
                SRC.FindLayer(2).DClick
On=0 Display Events
                More2=3
                SRC.FindLayer(2).DClick
On=0 Display Location Flags
                More2=4
                SRC.FindLayer(2).DClick
On=0 Main Menu
        Menu M_GMUtil_Main

[MENU M_GMUtil_Player_Guild]
InGame GM Info Utility - Guild/Town Info
On=0 Display Guild Information
                More2=5
                SRC.FindLayer(2).DClick
On=0 Display Guildstone Location
                More2=6
                SRC.FindLayer(2).DClick
On=0 Go to Player's Guildstone
                More2=7
                SRC.FindLayer(2).DClick
On=0 Display Townstone Information
                More2=8
                SRC.FindLayer(2).DClick
On=0 Display Townstone Location
                More2=9
                SRC.FindLayer(2).DClick
On=0 Go to Player's Townstone
                More2=10
                SRC.FindLayer(2).DClick
On=0 Main Menu
        Menu M_GMUtil_Main

[MENU M_GMUtil_NPC]
InGame GM Info Utility - NPC Info
On=0 Display Spawn Gem Location
                More2=11
                SRC.FindLayer(2).DClick
On=0 Goto Spawn Gem Location
                More2=12
                SRC.FindLayer(2).DClick
On=0 Display Info on Last Char Spoken To
                More2=13
                SRC.FindLayer(2).DClick
On=0 Go to Last Char Spoken To
                More2=14
                SRC.FindLayer(2).DClick
On=0 Display Name/Location of Pet Owner
                More2=15
                SRC.FindLayer(2).DClick
On=0 Go to Location of Pet Owner
                More2=16
                SRC.FindLayer(2).DClick
On=0 Main Menu
        Menu M_GMUtil_Main

[MENU M_GMUtil_Item]
InGame GM Info Utility - Item Info
On=0 Display Weapon Damage
                More2=17
                SRC.FindLayer(2).DClick
On=0 Display Minimum STR to Use
                More2=18
                SRC.FindLayer(2).DClick
On=0 Display Resources to Make
                More2=19
                SRC.FindLayer(2).DClick
On=0 Main Menu
        Menu M_GMUtil_Main