API tools faq
paste
Guest User

Untitled

a guest
Apr 14th, 2015
30
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
C# 323.14 KB
raw download clone embed print report
  1. function RPGchat(%client, %team, %message, %senderName)
  2. {
  3.     if(%client.IsInvalid) {
  4.         return;
  5.     }
  6.    
  7.     if(isobject(%client) == false) {
  8.         return;
  9.     }
  10.    
  11.     //-------------------------//
  12.     %TrueClientId = %client;
  13.    
  14.     if(%senderName !$= "")
  15.     {
  16.         %client = 2048;
  17.         %clientToServerAdminLevel = $BlockOwnerAdminLevel[%senderName];
  18.     }
  19.     else
  20.     {
  21.         %senderName = %client.nameBase;
  22.         %clientToServerAdminLevel = mfloor(%client.adminLevel);
  23.     }
  24.    
  25.     if(%client.isAIControlled()) {
  26.         %clientToServerAdminLevel = 3;
  27.     }
  28.    
  29.     if(%TrueClientId $= 2048) {
  30.         %echoOff = true;
  31.     }
  32.     else {
  33.         %echoOff = %TrueClientId.echoOff;
  34.     }
  35.    
  36.     %TCsenderName = %TrueClientId.rpgName;
  37.    
  38.     //If %senderName is empty, the rest of this function will continue normally, as both %TrueClientId and %client
  39.     //are identical.  However, if %senderName is NOT empty, messages that the server should hear will be under %client,
  40.     //and messages that the client RUNNING the script needs to hear will be under %TrueClientId.
  41.     //During %senderName being NOT empty, basic player command messages are sent to the server.  These commands shouldn't
  42.     //normally be invoked anyway, unless the scripter forces it somehow.  Block management commands should use
  43.     //%TrueClientId because they can only be run WHILE the client is in-game, so the messages should be sent to him.
  44.     //The rest of the commands should use %client because those are the ones that the server will be calling.
  45.    
  46.     //An easy to way to distinguish the tasks between client and server is that the client runs the commands that
  47.     //manage, while the server runs the commands that do actions.
  48.    
  49.     //- %TrueClientId should be assigned to things that require client access, and need to send a message
  50.     //  (like a confirmation or error message) to someone.
  51.     //- %client should be assigned to things that do actions.
  52.    
  53.     //%TrueClientId will only become 2048 if the client leaves the game.
  54.    
  55.     //Remember that if a client disconnects, the %TrueClientId will become 2048, the same as %client.  This means
  56.     //that the server will then be receiving all these messages.
  57.    
  58.     //I had to write this little commentary because I was getting confused myself...
  59.    
  60.     //NEW:
  61.     //- %TrueClientId should be assigned to things that involve the player at hand
  62.     //- %client should be assigned to things that involve control
  63.     //-------------------------//
  64.    
  65.     %time = getTime();
  66.    
  67.     if(%time - %client.lastSayTime <= $sayDelay && !(%clientToServerAdminLevel >= 1)) {
  68.         return;
  69.     }
  70.    
  71.     %client.lastSayTime = %time;
  72.    
  73.     //check for a bulknum-type of message
  74.     if(%message $= mfloor(%message))
  75.     {
  76.         if(%client.currentShop !$= "" || %client.currentBank !$= "")
  77.         {
  78.             if(%message < 1) {
  79.                 %message = 1;
  80.             }
  81.            
  82.             if(%message > 100) {
  83.                 %message = 100;
  84.             }
  85.         }
  86.        
  87.         %TrueClientId.bulkNum = %message;
  88.     }
  89.    
  90.     //parse message
  91.     %botTalk = false;
  92.     %isCommand = false;
  93.    
  94.     if(getsubstr(%message, 0, 1) !$= "#")
  95.     {
  96.         if(%team $= 1) {
  97.             %message = "#zone " @ %message;
  98.         }
  99.         else {
  100.             %message = fetchData(%TrueClientId, "defaultTalk") @ " " @ %message;
  101.         }
  102.     }
  103.    
  104.     if(getsubstr(%message, 0, 1) $= "#") {
  105.         %isCommand = true;
  106.     }
  107.    
  108.     if($exportChat)
  109.     {
  110.         %ip = %TrueClientId.getAddress();
  111.        
  112.         if(%TrueClientId.doExport)
  113.         {
  114.             $log::msg["[\"" @ %TCsenderName @ "\"]"] = %message;
  115.             export("log::msg[\"" @ %TCsenderName @ "\"*", "temp\\log-" @ %TCsenderName @ ".cs", true);
  116.             $log::msg["[\"" @ %TCsenderName @ "\"]"] = "";//memory
  117.         }
  118.     }
  119.    
  120.     %w1 = GetWord(%message, 0);
  121.    
  122.     //========== Redirect block commands into memory =============================================
  123.     if(fetchData(%TrueClientId, "BlockInputFlag") !$= "" && stricmp(%w1, "#endblock") !$= 0 && %w1 !$= -1 && %message !$= "")
  124.     {
  125.         //Entering block information into memory
  126.         %tmpBlockCnt = fetchData(%TrueClientId, "tmpBlockCnt") + 1;
  127.         storeData(%TrueClientId, "tmpBlockCnt", %tmpBlockCnt);
  128.         $BlockData[%TCsenderName, fetchData(%TrueClientId, "BlockInputFlag"), %tmpBlockCnt] = %message;
  129.         return 0;
  130.     }
  131.    
  132.     //============================================================================================
  133.    
  134.     %cropped = getsubstr(%message, (strlen(%w1)+1), 99999);
  135.    
  136.     if(%isCommand)
  137.     {
  138.         switch$(%w1)
  139.         {
  140.             case "#say":
  141.                 if(SkillCanUse(%TrueClientId, "#say"))
  142.                 {
  143.                     if(%TrueClientID.player)// does player exist
  144.                     {
  145.                    
  146.                         %count = ClientGroup.getCount();
  147.                        
  148.                         for(%icl = 0; %icl < %count; %icl++)
  149.                         {
  150.                             %cl = ClientGroup.getObject(%icl);
  151.                            
  152.                             if(isobject(%cl.player))
  153.                             {
  154.                                 %talkingPos = %TrueClientId.player.getPosition();
  155.                                 %receivingPos = %cl.player.getPosition();
  156.                                 %distVec = VectorDist(%talkingPos, %receivingPos);
  157.                                
  158.                                 if(%distVec <= $maxSAYdistVec)
  159.                                 {
  160.                                     //%newmsg = FadeMsg(%cropped, %distVec, $maxSAYdistVec);
  161.                                     %newmsg = %cropped;
  162.                                    
  163.                                     if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId) {
  164.                                         messageClient(%cl, 'RPGchatCallback', %TCsenderName @ " says, \"" @ %newmsg @ "\"");
  165.                                     }
  166.                                 }
  167.                             }
  168.                         }
  169.                        
  170.                         messageClient(%TrueClientId, 'RPGchatCallback', "You say, \"" @ %cropped @ "\"");
  171.                         UseSkill(%TrueClientId, $SkillSpeech, true, true);
  172.                        
  173.                         %botTalk = true;
  174.                     }
  175.                 }
  176.                 else
  177.                 {
  178.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  179.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  180.                 }
  181.                
  182.             case "#shout":
  183.                 if(SkillCanUse(%TrueClientId, "#shout"))
  184.                 {
  185.                     %count = ClientGroup.getCount();
  186.                    
  187.                     for(%icl = 0; %icl < %count; %icl++)
  188.                     {
  189.                         %cl = ClientGroup.getObject(%icl);
  190.                        
  191.                         %talkingPos = %TrueClientId.player.getPosition();
  192.                         %receivingPos = %cl.player.getPosition();
  193.                         %distVec = VectorDist(%talkingPos, %receivingPos);
  194.                        
  195.                         if(%distVec <= $maxSHOUTdistVec)
  196.                         {
  197.                             //%newmsg = FadeMsg(%cropped, %distVec, $maxSHOUTdistVec);
  198.                             %newmsg = %cropped;
  199.                            
  200.                             if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId) {
  201.                                 messageClient(%cl, 'RPGchatCallback', %TCsenderName @ " shouts, \"" @ %newmsg @ "\"");
  202.                             }
  203.                         }
  204.                     }
  205.                    
  206.                     messageClient(%TrueClientId, 'RPGchatCallback', "You shouted, \"" @ %cropped @ "\"");
  207.                     UseSkill(%TrueClientId, $SkillSpeech, true, true);
  208.                    
  209.                     %botTalk = true;
  210.                 }
  211.                 else
  212.                 {
  213.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  214.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  215.                 }
  216.                
  217.             case "#whisper":
  218.                 if(SkillCanUse(%TrueClientId, "#whisper"))
  219.                 {
  220.                     %count = ClientGroup.getCount();
  221.                    
  222.                     for(%icl = 0; %icl < %count; %icl++)
  223.                     {
  224.                         %cl = ClientGroup.getObject(%icl);
  225.                        
  226.                         %talkingPos = %TrueClientId.player.getPosition();
  227.                         %receivingPos = %cl.player.getPosition();
  228.                         %distVec = VectorDist(%talkingPos, %receivingPos);
  229.                        
  230.                         if(%distVec <= $maxWHISPERdistVec)
  231.                         {
  232.                             //%newmsg = FadeMsg(%cropped, %distVec, $maxWHISPERdistVec);
  233.                             %newmsg = %cropped;
  234.                            
  235.                             if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId) {
  236.                                 messageClient(%cl, 'RPGchatCallback', %TCsenderName @ " whispers, \"" @ %newmsg @ "\"");
  237.                             }
  238.                         }
  239.                     }
  240.                    
  241.                     messageClient(%TrueClientId, 'RPGchatCallback', "You whisper, \"" @ %cropped @ "\"");
  242.                     UseSkill(%TrueClientId, $SkillSpeech, true, true);
  243.                    
  244.                     %botTalk = true;
  245.                 }
  246.                 else
  247.                 {
  248.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  249.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  250.                 }
  251.         }
  252.        
  253.         if(Game.IsJailed(%TrueClientId) && %clienttoServeradminlevel < 5) {
  254.             return;
  255.         }
  256.        
  257.         switch$(%w1)
  258.         {
  259.             case "#tell":
  260.                 if(SkillCanUse(%TrueClientId, "#tell"))
  261.                 {
  262.                     if(%cropped $= "")
  263.                     {
  264.                         messageClient(%TrueClientId, 'RPGchatCallback', "syntax: #tell whoever, message");
  265.                     }
  266.                     else
  267.                     {
  268.                         %pos1 = 0;
  269.                         %pos2 = strstr(%cropped, ",");
  270.                         %name = getsubstr(%cropped, %pos1, %pos2-%pos1);
  271.                         %final = getsubstr(%cropped, %pos2 + 2, strlen(%cropped)-%pos2-2);
  272.                         %cl = getClientByName(%name);
  273.                        
  274.                         if(%cl !$= -1)
  275.                         {
  276.                             %n = %cl.nameBase;  //capitalize the name properly
  277.                            
  278.                             if(!%cl.muted[%TrueClientId])
  279.                             {
  280.                                 messageClient(%cl, 'RPGchatCallback', %TCsenderName @ " tells you, \"" @ %final @ "\"");
  281.                                
  282.                                 if(%cl !$= %TrueClientId) {
  283.                                     messageClient(%TrueClientId, 'RPGchatCallback', "You tell " @ %n @ ", \"" @ %final @ "\"");
  284.                                 }
  285.                                
  286.                                 %cl.replyTo = %TCsenderName;
  287.                                
  288.                                 UseSkill(%TrueClientId, $SkillSpeech, true, true);
  289.                             }
  290.                             else {
  291.                                 messageClient(%TrueClientId, 'RPGchatCallback', %n @ " has muted you.");
  292.                             }
  293.                         }
  294.                         else {
  295.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  296.                         }
  297.                     }
  298.                    
  299.                     %botTalk = true;
  300.                 }
  301.                 else
  302.                 {
  303.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  304.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  305.                 }
  306.                
  307.             case "#r":
  308.                 if(SkillCanUse(%TrueClientId, "#tell"))
  309.                 {
  310.                     if(%cropped $= "") {
  311.                         messageClient(%TrueClientId, 'RPGchatCallback', "syntax: #r message");
  312.                     }
  313.                     else
  314.                     {
  315.                         %name = %TrueClientId.replyTo;
  316.                        
  317.                         if(%name !$= "")
  318.                         {
  319.                             %cl = getClientByName(%name);
  320.                            
  321.                             if(%cl !$= -1)
  322.                             {
  323.                                 if(!%cl.muted[%TrueClientId])
  324.                                 {
  325.                                     messageClient(%cl, 'RPGchatCallback', %TCsenderName @ " replies, \"" @ %cropped @ "\"");
  326.                                    
  327.                                     if(%cl !$= %TrueClientId) {
  328.                                         messageClient(%TrueClientId, 'RPGchatCallback', "You reply to " @ %name @ ", \"" @ %cropped @ "\"");
  329.                                     }
  330.                                    
  331.                                     %cl.replyTo = %TCsenderName;
  332.                                    
  333.                                     //UseSkill(%TrueClientId, $SkillSpeech, true, true);
  334.                                 }
  335.                             }
  336.                             else {
  337.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  338.                             }
  339.                            
  340.                             %botTalk = true;
  341.                         }
  342.                         else {
  343.                             messageClient(%TrueClientId, 'RPGchatCallback', "You haven't received a #tell to reply to yet.");
  344.                         }
  345.                     }
  346.                 }
  347.                 else
  348.                 {
  349.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  350.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  351.                 }
  352.                
  353.                 return;
  354.                
  355.             case "#global" or "#g":
  356.                 if(SkillCanUse(%TrueClientId, "#global"))
  357.                 {
  358.                     if(!fetchData(%TrueClientId, "ignoreGlobal"))
  359.                     {
  360.                         %count = ClientGroup.getCount();
  361.                        
  362.                         for(%icl = 0; %icl < %count; %icl++)
  363.                         {
  364.                             %cl = ClientGroup.getObject(%icl);
  365.                            
  366.                             if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId && !fetchData(%cl, "ignoreGlobal")) {
  367.                                 messageClient(%cl, 'RPGchatCallback', "[GLBL] " @ %TCsenderName @ " \"" @ %cropped @ "\"");
  368.                             }
  369.                         }
  370.                        
  371.                         messageClient(%TrueClientId, 'RPGchatCallback', "[GLBL] \"" @ %cropped @ "\"");
  372.                        
  373.                         //UseSkill(%TrueClientId, $SkillSpeech, true, true);
  374.                     }
  375.                     else {
  376.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't send a Global message when ignoring other Global messages.");
  377.                     }
  378.                 }
  379.                 else
  380.                 {
  381.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  382.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  383.                 }
  384.                
  385.                 return;
  386.                
  387.             case "#guild" or "#gu":
  388.                 if(SkillCanUse(%TrueClientId, "#guild"))
  389.                 {
  390.                     %guildid = IsInWhatGuild(%client);
  391.                     %guild = GuildGroup.GetObject(%guildid);
  392.                    
  393.                     if(%guildid != -1 || %guild.GetGUIDRank(%TrueClientId.guid) == 0)
  394.                     {
  395.                         //ok user is in a guild so we get the guild and obtain the list.
  396.                        
  397.                        
  398.                        
  399.                         %count = ClientGroup.getCount();
  400.                        
  401.                         for(%icl = 0; %icl < %count; %icl++)
  402.                         {
  403.                             %cl = ClientGroup.getObject(%icl);
  404.                            
  405.                             if(%cl.isAiControlled()) {
  406.                                 continue;    //skip bots
  407.                             }
  408.                            
  409.                             if(%guild.GUIDinGuild(%cl.guid) && %guild.GetGUIDRank(%cl.guid) > 0 && (!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId)) {
  410.                                 messageClient(%cl, 'RPGchatCallback'  ,"[GUILD] " @ %TCsenderName @ " \"" @ %cropped @ "\"");
  411.                             }
  412.                            
  413.                         }
  414.                        
  415.                         messageClient(%TrueClientID, 'RPGchatCallback', "[GUILD] \"" @ %cropped @ "\"");
  416.                         UseSkill(%TrueClientId, $SkillSpeech, true, true);
  417.                     }
  418.                     else {
  419.                         messageClient(%TrueClientID, 'RPGchatcallback', "You are not in a guild.");
  420.                     }
  421.                    
  422.                    
  423.                 }
  424.                 else {
  425.                     messageClient(%TrueClientID, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  426.                 }
  427.                
  428.                 return;
  429.                
  430.             case "#zone" or "#z":
  431.                 if(SkillCanUse(%TrueClientId, "#zone"))
  432.                 {
  433.                     %count = ClientGroup.getCount();
  434.                    
  435.                     for(%icl = 0; %icl < %count; %icl++)
  436.                     {
  437.                         %cl = ClientGroup.getObject(%icl);
  438.                        
  439.                         if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId && fetchData(%cl, "zone") $= fetchData(%TrueClientId, "zone")) {
  440.                             messageClient(%cl, 'RPGchatCallback', "[ZONE] " @ %TCsenderName @ " \"" @ %cropped @ "\"");
  441.                         }
  442.                     }
  443.                    
  444.                     messageClient(%TrueClientId, 'RPGchatCallback', "[ZONE] \"" @ %cropped @ "\"");
  445.                    
  446.                     UseSkill(%TrueClientId, $SkillSpeech, true, true);
  447.                 }
  448.                 else
  449.                 {
  450.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  451.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  452.                 }
  453.                
  454.                 return;
  455.                
  456.             case "#group":
  457.                 if(SkillCanUse(%TrueClientId, "#group"))
  458.                 {
  459.                     %count = ClientGroup.getCount();
  460.                    
  461.                     for(%icl = 0; %icl < %count; %icl++)
  462.                     {
  463.                         %cl = ClientGroup.getObject(%icl);
  464.                        
  465.                         if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId && IsInGroupList(%TrueClientId, %cl))
  466.                         {
  467.                             if(IsInGroupList(%cl, %TrueClientId)) {
  468.                                 messageClient(%cl, 'RPGchatCallback', "[GRP] " @ %TCsenderName @ " \"" @ %cropped @ "\"");
  469.                             }
  470.                             else {
  471.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cl.nameBase @ " does not have you on his/her group-list.");
  472.                             }
  473.                         }
  474.                     }
  475.                    
  476.                     messageClient(%TrueClientId, 'RPGchatCallback', "[GRP] \"" @ %cropped @ "\"");
  477.                     UseSkill(%TrueClientId, $SkillSpeech, true, true);
  478.                 }
  479.                 else
  480.                 {
  481.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  482.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  483.                 }
  484.                
  485.                 return;
  486.                
  487.             case "#party" or "#p":
  488.                 if(SkillCanUse(%TrueClientId, "#party"))
  489.                 {
  490.                     %list = GetPartyListIAmIn(%TrueClientId);
  491.                    
  492.                     for(%p = strstr(%list, ","); (%p = strstr(%list, ",")) !$= -1; %list = getsubstr(%list, %p+1, 99999))
  493.                     {
  494.                         %cl = getsubstr(%list, 0, %p);
  495.                        
  496.                         if(!%cl.muted[%TrueClientId] && %cl !$= %TrueClientId) {
  497.                             messageClient(%cl, 'RPGchatCallback', "[PRTY] " @ %TCsenderName @ " \"" @ %cropped @ "\"");
  498.                         }
  499.                     }
  500.                    
  501.                     messageClient(%TrueClientId, 'RPGchatCallback', "[PRTY] \"" @ %cropped @ "\"");
  502.                     UseSkill(%TrueClientId, $SkillSpeech, true, true);
  503.                 }
  504.                 else
  505.                 {
  506.                     messageClient(%TrueClientId, 'RPGchatCallback', "You lack the necessary skills to use this command.");
  507.                     UseSkill(%TrueClientId, $SkillSpeech, false, true);
  508.                 }
  509.                
  510.                 return;
  511.                
  512.             case "#leavearena":
  513.                 if(inArenaroster(%TrueClientId))
  514.                 {
  515.                     leaveArena(%TrueClientId);
  516.                    
  517.                 }
  518.                 else {
  519.                     messageClient(%TrueClientId, 'RPGchatCallback', "You must be in the arena wait room in order to leave it");
  520.                 }
  521.         }
  522.        
  523.         if(IsDead(%TrueClientId) && %TrueClientId !$= 2048) {
  524.             return;
  525.         }
  526.        
  527.         //check for onHear events
  528.         if(%botTalk)
  529.         {
  530.             %count = ClientGroup.getCount();
  531.            
  532.             for(%icl = 0; %icl < %count; %icl++)
  533.             {
  534.                 %oid = ClientGroup.getObject(%icl);
  535.                
  536.                 %time = getTime();
  537.                
  538.                 if(%time - fetchData(%oid, "nextOnHear") > 0.05)
  539.                 {
  540.                     storeData(%oid, "nextOnHear", %time);
  541.                    
  542.                     %oname = %oid.nameBase;
  543.                    
  544.                     %index = GetEventCommandIndex(%oid, "onHear");
  545.                    
  546.                     if(%index !$= -1)
  547.                     {
  548.                         for(%i2 = 0; (%index2 = GetWord(%index, %i2)) !$= ""; %i2++)
  549.                         {
  550.                             %ec = $EventCommand[%oid, %index2];
  551.                            
  552.                             %hearName = GetWord(%ec, 2);
  553.                             %radius = GetWord(%ec, 3);
  554.                            
  555.                             if(VectorDist(%oid.player.getPosition(), %TrueClientId.player.getPosition()) <= %radius)
  556.                             {
  557.                                 %targetname = GetWord(%ec, 5);
  558.                                
  559.                                 if(stricmp(%targetname, "all") !$= 0) {
  560.                                     %targetId = getClientByName(%targetname);
  561.                                 }
  562.                                
  563.                                 if(stricmp(%targetname, "all") $= 0 || %targetId $= %TrueClientId)
  564.                                 {
  565.                                     %sname = GetWord(%ec, 0);
  566.                                     %type = GetWord(%ec, 1);
  567.                                     %keep = GetWord(%ec, 4);
  568.                                     %var = GetWord(%ec, 6);
  569.                                    
  570.                                     if(stricmp(%var, "var") $= 0) {
  571.                                         %var = true;
  572.                                     }
  573.                                     else
  574.                                     {
  575.                                         %div1 = strstr(%ec, "|");
  576.                                         %div2 = String::ofindSubStr(%ec, "|", %div1+1);
  577.                                         %text = getsubstr(%ec, %div1+1, %div2);
  578.                                         %oec = getsubstr(%ec, %div1+%div2+2, 99999);
  579.                                     }
  580.                                    
  581.                                     if(stricmp(%cropped, %text) $= 0 || %var)
  582.                                     {
  583.                                         if((%cl = getClientByName(%sname)) $= -1) {
  584.                                             %cl = 2048;
  585.                                         }
  586.                                        
  587.                                         %cmd = getsubstr($EventCommand[%oid, %index2], strstr($EventCommand[%oid, %index2], ">")+1, 99999);
  588.                                        
  589.                                         if(%var) {
  590.                                             %cmd = strreplace(%cmd, "^var", %cropped);
  591.                                         }
  592.                                        
  593.                                         %pcmd = ParseBlockData(%cmd, %TrueClientId, "");
  594.                                        
  595.                                         if(!%keep) {
  596.                                             $EventCommand[%oid, %index2] = "";
  597.                                         }
  598.                                        
  599.                                         RPGchat(%cl, 0, %pcmd); //, %sname);
  600.                                     }
  601.                                 }
  602.                             }
  603.                         }
  604.                     }
  605.                 }
  606.             }
  607.         }
  608.        
  609.         //=================================================
  610.         // Beginning of commands
  611.         // (player can't use any of these while dead)
  612.         //=================================================
  613.        
  614.         switch$(%w1)
  615.         {
  616.             case "#steal":
  617.                 %time = getTime();
  618.                
  619.                 if(%time - %TrueClientId.lastStealTime > $stealDelay)
  620.                 {
  621.                     %TrueClientId.lastStealTime = %time;
  622.                    
  623.                     if((%reason = AllowedToSteal(%TrueClientId)) $= "true")
  624.                     {
  625.                         if(SkillCanUse(%TrueClientId, "#steal"))
  626.                         {
  627.                             if(getLOSinfo(%TrueClientId, 1))
  628.                             {
  629.                                 %id = $los::object.client;
  630.                                
  631.                                 if($los::object.getClassName() $= "Player")
  632.                                 {
  633.                                     %victimName = %id.nameBase;
  634.                                     %stealerName = %TCsenderName;
  635.                                     %victimCoins = fetchData(%id, "COINS");
  636.                                     %fail = false;
  637.                                    
  638.                                     if(%victimCoins > 0)
  639.                                     {
  640.                                         %r1 = GetRpgRoll("1r" @(%TrueClientId.PlayerSkill[$SkillStealing] * (4/5)));
  641.                                         %r2 = GetRpgRoll("1r" @ %id.PlayerSkill[$SkillStealing]);
  642.                                         %a = %r1 - %r2;
  643.                                        
  644.                                         if(%a > 0)
  645.                                         {
  646.                                             %amount = mfloor(%a * getRandom() * 1.2);
  647.                                            
  648.                                             if(%amount > %victimCoins) {
  649.                                                 %amount = %victimCoins;
  650.                                             }
  651.                                            
  652.                                             if(%amount > 0)
  653.                                             {
  654.                                                 storeData(%TrueClientId, "COINS", %amount, "inc");
  655.                                                 storeData(%id, "COINS", %amount, "dec");
  656.                                                 PerhapsPlayStealSound(%TrueClientId, 0);
  657.                                                
  658.                                                 messageClient(%TrueClientId, 'RPGchatCallback', "You successfully stole " @ %amount @ " coins from " @ %victimName @ "!");
  659.                                                
  660.                                                 RefreshAll(%TrueClientId);
  661.                                                 RefreshAll(%id);
  662.                                                
  663.                                                 UseSkill(%TrueClientId, $SkillStealing, true, true);
  664.                                                 PostSteal(%TrueClientId, true, 0);
  665.                                             }
  666.                                             else {
  667.                                                 %fail = true;
  668.                                             }
  669.                                         }
  670.                                         else {
  671.                                             %fail = true;
  672.                                         }
  673.                                        
  674.                                         if(%fail)
  675.                                         {
  676.                                             messageClient(%TrueClientId, 'RPGchatCallback', "You failed to steal from " @ %victimName @ "!");
  677.                                             messageClient(%id, 'RPGchatCallback', %stealerName @ " just failed to steal from you!");
  678.                                            
  679.                                             UseSkill(%TrueClientId, $SkillStealing, false, true);
  680.                                             PostSteal(%TrueClientId, false, 0);
  681.                                         }
  682.                                     }
  683.                                     else
  684.                                     {
  685.                                         messageClient(%TrueClientId, 'RPGchatCallback', %victimName @ " doesn't appear to be carrying any coins...");
  686.                                     }
  687.                                 }
  688.                             }
  689.                         }
  690.                         else
  691.                         {
  692.                             messageClient(%TrueClientId, 'RPGchatCallback', "You can't steal because you lack the necessary skills.");
  693.                             UseSkill(%TrueClientId, $SkillStealing, false, true);
  694.                         }
  695.                     }
  696.                     else {
  697.                         messageClient(%TrueClientId, 'RPGchatCallback', %reason);
  698.                     }
  699.                 }
  700.                
  701.                 return;
  702.                
  703.             case "#savecharacter":
  704.                 if(%clientToServerAdminLevel >= 4)
  705.                 {
  706.                     if(%cropped $= "")
  707.                     {
  708.                         %r = SaveCharacter(%TrueClientId);
  709.                         messageClient(%TrueClientId, 'RPGchatCallback', "Saving self (" @ %TrueClientId @ "): success = " @ %r);
  710.                     }
  711.                     else
  712.                     {
  713.                         %id = getClientByName(%cropped);
  714.                        
  715.                         if(%id)
  716.                         {
  717.                             %r = SaveCharacter(%id);
  718.                             messageClient(%TrueClientId, 'RPGchatCallback', "Saving " @ %id.nameBase @ " (" @ %id @ "): success = " @ %r);
  719.                         }
  720.                         else {
  721.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  722.                         }
  723.                     }
  724.                 }
  725.                 else
  726.                 {
  727.                     %time = getTime();
  728.                    
  729.                     if(%time - %TrueClientId.lastSaveCharTime > 10)
  730.                     {
  731.                         %TrueClientId.lastSaveCharTime = %time;
  732.                        
  733.                         %r = SaveCharacter(%TrueClientId);
  734.                         messageClient(%TrueClientId, 'RPGchatCallback', "Saving self (" @ %TrueClientId @ "): success = " @ %r);
  735.                     }
  736.                 }
  737.                
  738.                 return;
  739.                
  740.             case "#whatismyclientid":
  741.                 messageClient(%TrueClientId, 'RPGchatCallback', "Your clientId is " @ %TrueClientId);
  742.                 return;
  743.                
  744.             case "#whatismyuniqueid":
  745.                 messageClient(%TrueClientId, 'RPGchatCallback', "Your Global Unique ID is" SPC %TrueClientId.guid);
  746.                
  747.             case "#whatismyplayerid":
  748.                 messageClient(%TrueClientId, 'RPGchatCallback', "Your playerId is " @ %TrueClientId.player);
  749.                 return;
  750.                
  751.             case "#dropcoins":
  752.                 %cropped = GetWord(%cropped, 0);
  753.                
  754.                 if(%cropped $= "all") {
  755.                     %cropped = fetchData(%TrueClientId, "COINS");
  756.                 }
  757.                 else {
  758.                     %cropped = mfloor(%cropped);
  759.                 }
  760.                
  761.                 if(fetchData(%TrueClientId, "COINS") >= %cropped || %clientToServerAdminLevel >= 4)
  762.                 {
  763.                     if(%cropped > 0)
  764.                     {
  765.                         if(!(%clientToServerAdminLevel >= 4)) {
  766.                             storeData(%TrueClientId, "COINS", %cropped, "dec");
  767.                         }
  768.                        
  769.                         %toss = GetTypicalTossStrength(%TrueClientId);
  770.                        
  771.                         TossLootbag(%TrueClientId, "", %cropped, 0);
  772.                         RefreshAll(%TrueClientId);
  773.                        
  774.                         messageClient(%TrueClientId, 'RPGchatCallback', "You dropped " @ %cropped @ " coins.");
  775.                         %TrueClientId.player.playAudio(0, SoundMoney1);
  776.                     }
  777.                 }
  778.                 else
  779.                 {
  780.                     messageClient(%TrueClientId, 'RPGchatCallback', "You don't even have that many coins!");
  781.                 }
  782.                
  783.                 return;
  784.                
  785.             case "#compass":
  786.            
  787.                 if(%cropped $= "") {
  788.                     messageClient(%TrueClientId, 'RPGchatCallback', "Use #compass town or #compass dungeon. (Do not specify which, simply write town or dungeon)");
  789.                 }
  790.                 else
  791.                 {
  792.                     if(SkillCanUse(%TrueClientId, "#compass"))
  793.                     {
  794.                         %mpos = GetNearestZone(%TrueClientId, %cropped, 4);
  795.                        
  796.                         if(%mpos !$= false && (%cropped $= "town" || %cropped $= "dungeon"))    // only allow town and dungeon queries.
  797.                         {
  798.                             %d = GetNESW(%TrueClientId.player.getPosition(), %mpos);
  799.                             UseSkill(%TrueClientId, $SkillSenseHeading, true, true);
  800.                            
  801.                             messageClient(%TrueClientId, 'RPGchatCallback', "The nearest " @ %cropped @ " is " @ %d @ " of here.");
  802.                         }
  803.                         else {
  804.                             messageClient(%TrueClientId, 1, "Error finding a zone!");
  805.                         }
  806.                     }
  807.                     else
  808.                     {
  809.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't use your compass because you lack the necessary skills.");
  810.                         UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  811.                     }
  812.                 }
  813.                
  814.                 return;
  815.                
  816.             case "#getinfo":
  817.                 %cropped = %cropped;
  818.                
  819.                 if(%cropped $= "") {
  820.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a name.");
  821.                 }
  822.                 else
  823.                 {
  824.                     %id = getClientByName(%cropped);
  825.                    
  826.                     if(%id !$= -1) {
  827.                         DisplayGetInfo(%TrueClientId, %id);
  828.                     }
  829.                     else {
  830.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  831.                     }
  832.                 }
  833.                
  834.                 return;
  835.                
  836.             case "#setinfo":
  837.                 if(%cropped $= "") {
  838.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify text.");
  839.                 }
  840.                 else
  841.                 {
  842.                     storeData(%TrueClientId, "PlayerInfo", %cropped);
  843.                     messageClient(%TrueClientId, 'RPGchatCallback', "Info set.  Use #getinfo [name] to retrieve this type of information.");
  844.                 }
  845.                
  846.                 return;
  847.                
  848.             case "#addinfo":
  849.                 if(%cropped $= "") {
  850.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify text.");
  851.                 }
  852.                 else
  853.                 {
  854.                     storeData(%TrueClientId, "PlayerInfo", %cropped, "strinc");
  855.                     messageClient(%TrueClientId, 'RPGchatCallback', "Info added to the end of previous info.");
  856.                 }
  857.                
  858.                 return;
  859.                
  860.             case "#w" or "#whatis":
  861.            
  862.                 %item = %cropped;
  863.                
  864.                 if(%item $= "") {
  865.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify an item (ex: Small Rock = SmallRock).");
  866.                 }
  867.                 else
  868.                 {
  869.                     %msg = WhatIs(%item);
  870.                    
  871.                     if(%msg !$= "") {
  872.                         sendRPGbottomprint(%TrueClientId, mfloor(strlen(%msg) / 10)+1, Getword(%msg, 0), getwords(%msg, 1));
  873.                     }
  874.                 }
  875.                
  876.                 return;
  877.                
  878.             case "#spell" or "#cast":
  879.            
  880.                 if(fetchData(%TrueClientId, "SpellCastStep") $= 1) {
  881.                     messageClient(%TrueClientId, 'RPGchatCallback', "You are already casting a spell!");
  882.                 }
  883.                 else if(fetchData(%TrueClientId, "SpellCastStep") $= 2) {
  884.                     messageClient(%TrueClientId, 'RPGchatCallback', "You are still recovering from your last spell cast.");
  885.                 }
  886.                 else if(%TrueClientId.sleepMode !$= "" && %TrueClientId.sleepMode !$= false) {
  887.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can not cast a spell while sleeping or meditating.");
  888.                 }
  889.                 else if(IsDead(%TrueClientId)) {
  890.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can not cast a spell when dead.");
  891.                 }
  892.                 else if(inArenaRoster(%TrueClientID))
  893.                 {
  894.                     messageClient(%TrueClientId, 'RPGchatCallback', "Some force is preventing you to cast a spell in this area. Wait till you enter the arena!");
  895.                 }
  896.                 else
  897.                 {
  898.                     if(%cropped $= "") {
  899.                         messageClient(%TrueClientId, 'RPGchatCallback', "Specify a spell.");
  900.                     }
  901.                     else
  902.                     {
  903.                         if(fetchdata(%client, "Mana") >= $spelldata[%cropped, Cost])
  904.                         {
  905.                             if(SkillCanUse(%TrueclientId, getword(%cropped, 0))) {
  906.                                 BeginCastSpell(%TrueClientId, %cropped);
  907.                             }
  908.                             else {
  909.                                 messageClient(%TrueClientId, 'RPGchatCallback', "You do not have the required skill for this spell. " @ $skillDesc[$spelldata[GetWord(%cropped, 0), Skill]] @ ":" @ GetWord($skillRestriction[GetWord(%cropped, 0)],1));
  910.                             }
  911.                         }
  912.                         else {
  913.                             messageClient(%TrueClientId, 'RPGchatCallback', "You do not have the required amount of mana for this spell");
  914.                         }
  915.                     }
  916.                 }
  917.                
  918.                 return;
  919.                
  920.             case "#recall":
  921.                 if(inarena(%Trueclientid)) {
  922.                     return;
  923.                 }
  924.                
  925.                 %zvel = mfloor(getWord(%TrueClientId.player.getVelocity, 2));
  926.                 messageClient(%TrueClientId, 'RPGchatCallback', "ATTEMPTING RECALL");
  927.                
  928.                 if(%zvel <= -350 || %zvel >= 350)
  929.                 {
  930.                     FellOffMap(%TrueClientId);
  931.                     CheckAndBootFromArena(%TrueClientId);
  932.                    
  933.                     %zv = "PASS";
  934.                 }
  935.                 else {
  936.                     %zv = "FAIL";
  937.                 }
  938.                
  939.                 messageClient(%TrueClientId, 'RPGchatCallback', "Z-Velocity check: " @ %zv);
  940.                
  941.                 if(%zv !$= "PASS" && !fetchData(%TrueClientId, "tmprecall"))
  942.                 {
  943.                     %seconds = $recallDelay;
  944.                     storeData(%TrueClientId, "tmprecall", true);
  945.                     %client.recall = schedule(%seconds * 1000, 0, "checkrecall", %TrueClientId, %TrueClientID.player.GetPosition());
  946.                     messageClient(%TrueClientId, 'RPGchatCallback', "Stay at your current position for the next " @ %seconds @ " seconds to recall.");
  947.                    
  948.                 }
  949.                
  950.                 return;
  951.                
  952.             case "#track":
  953.            
  954.                 //%cropped = GetWord(%cropped, 0);
  955.                
  956.                 if(%cropped $= "") {
  957.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a name.");
  958.                 }
  959.                 else
  960.                 {
  961.                     if(SkillCanUse(%TrueClientId, "#track"))
  962.                     {
  963.                         %id = getClientByName(%cropped);
  964.                        
  965.                         if(%id !$= -1)
  966.                         {
  967.                             %clientpos = %TrueClientId.player.getPosition();
  968.                             %idpos = %id.player.getPosition();
  969.                            
  970.                             %dist = round(VectorDist(%clientpos, %idpos));
  971.                            
  972.                             if(Cap(%TrueClientId.PlayerSkill[$Skill::SenseHeading] * 7.5, 100, "inf") >= %dist)
  973.                             {
  974.                                 %d = GetNESW(%clientpos, %idpos);
  975.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " is " @ %d @ " of here, " @ %dist @ " meters away.");
  976.                                 UseSkill(%TrueClientId, $Skill::SenseHeading, true, true);
  977.                                
  978.                                 if(%dist <= 10) {
  979.                                     Client::unhide(%id);    //counter counter!
  980.                                 }
  981.                             }
  982.                             else
  983.                             {
  984.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " is too far from you to track with your current sense heading skills.");
  985.                                 UseSkill(%TrueClientId, $Skill::SenseHeading, false, true);
  986.                             }
  987.                         }
  988.                         else {
  989.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  990.                         }
  991.                     }
  992.                     else
  993.                     {
  994.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't track because you lack the necessary skills.");
  995.                         UseSkill(%TrueClientId, $Skill::SenseHeading, false, true);
  996.                     }
  997.                 }
  998.                
  999.                 return;
  1000.                
  1001.             case "#trackpack":
  1002.                 return;
  1003.                 %cropped = GetWord(%cropped, 0);
  1004.                
  1005.                 if(%cropped $= "") {
  1006.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a name.");
  1007.                 }
  1008.                 else
  1009.                 {
  1010.                     if(SkillCanUse(%TrueClientId, "#trackpack"))
  1011.                     {
  1012.                         %id = getClientByName(%cropped);
  1013.                        
  1014.                         if(%id !$= -1)
  1015.                         {
  1016.                             %cropped = %id.nameBase;    //properly capitalize name
  1017.                            
  1018.                             %closest = 5000000;
  1019.                             %closestId = -1;
  1020.                             %clientpos = %TrueClientId.player.getPosition();
  1021.                             %list = fetchData(%id, "lootbaglist");
  1022.                            
  1023.                             for(%i = strstr(%list, ","); strstr(%list, ",") !$= -1; %list = getsubstr(%list, %i+1, 99999))
  1024.                             {
  1025.                                 %id = getsubstr(%list, 0, %i);
  1026.                                 %idpos = %id.player.getPosition();
  1027.                                 %dist = round(VectorDist(%clientpos, %idpos));
  1028.                                
  1029.                                 if(%dist < %closest)
  1030.                                 {
  1031.                                     %closest = %dist;
  1032.                                     %closestId = %id;
  1033.                                 }
  1034.                             }
  1035.                            
  1036.                             if(%closestId !$= -1)
  1037.                             {
  1038.                                 %idpos = %closestId.player.getPosition();
  1039.                                
  1040.                                 if(Cap(%TrueClientId.PlayerSkill[$SkillSenseHeading] * 15, 100, "inf") >= %closest)
  1041.                                 {
  1042.                                     %d = GetNESW(%clientpos, %idpos);
  1043.                                     messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ "'s nearest backpack is " @ %d @ " of here, " @ %closest @ " meters away.");
  1044.                                     UseSkill(%TrueClientId, $SkillSenseHeading, true, true);
  1045.                                 }
  1046.                                 else
  1047.                                 {
  1048.                                     messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ "'s nearest backpack is too far from you to track with your current sense heading skills.");
  1049.                                     UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  1050.                                 }
  1051.                             }
  1052.                             else
  1053.                             {
  1054.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " doesn't have any dropped backpacks.");
  1055.                                 UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  1056.                             }
  1057.                         }
  1058.                         else {
  1059.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  1060.                         }
  1061.                     }
  1062.                     else
  1063.                     {
  1064.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't track a backpack because you lack the necessary skills.");
  1065.                         UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  1066.                     }
  1067.                 }
  1068.                
  1069.                 return;
  1070.                
  1071.             case "#sharepack":
  1072.                 return;
  1073.                 %time = getTime();
  1074.                
  1075.                 if(%time - %TrueClientId.lastSharePackTime > 5)
  1076.                 {
  1077.                     %TrueClientId.lastSharePackTime = %time;
  1078.                    
  1079.                     %c1 = GetWord(%cropped, 0);
  1080.                     %c2 = GetWord(%cropped, 1);
  1081.                    
  1082.                     if(%c1 !$= -1 && %c2 !$= -1)
  1083.                     {
  1084.                         %id = getClientByName(%c1);
  1085.                        
  1086.                         if(%id !$= -1 && %id.nameBase !$= %senderName)
  1087.                         {
  1088.                             %c1 = %id.nameBase; //properly capitalize name
  1089.                            
  1090.                             if(mfloor(%c2) !$= 0 || %c2 $= "*")
  1091.                             {
  1092.                                 %flag = "";
  1093.                                 %cnt = 0;
  1094.                                 %list = fetchData(%TrueClientId, "lootbaglist");
  1095.                                
  1096.                                 for(%i = strstr(%list, ","); strstr(%list, ",") !$= -1; %list = getsubstr(%list, %i+1, 99999))
  1097.                                 {
  1098.                                     %cnt++;
  1099.                                     %bid = getsubstr(%list, 0, %i);
  1100.                                    
  1101.                                     if(%cnt $= %c2 || %c2 $= "*")
  1102.                                     {
  1103.                                         %flag++;
  1104.                                        
  1105.                                         %nl = GetWord($loot[%bid], 1);
  1106.                                        
  1107.                                         if(%nl !$= "*")
  1108.                                         {
  1109.                                             $loot[%bid] = strreplace($loot[%bid], %nl, AddToCommaList(%nl, %c1));
  1110.                                             messageClient(%TrueClientId, 'RPGchatCallback', "Adding " @ %c1 @ " to backpack #" @ %cnt @ " (" @ %bid @ ")'s share list.");
  1111.                                             messageClient(%id, 'RPGchatCallback', %TCsenderName @ " is sharing his/her backpack #" @ %cnt @ " with you.");
  1112.                                         }
  1113.                                         else {
  1114.                                             messageClient(%TrueClientId, 'RPGchatCallback', "Backpack #" @ %cnt @ " is already publicly available.");
  1115.                                         }
  1116.                                     }
  1117.                                 }
  1118.                                
  1119.                                 if(%flag $= "") {
  1120.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Invalid backpack number.");
  1121.                                 }
  1122.                             }
  1123.                             else {
  1124.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a backpack number (1, 2, 3, etc, or * for all)");
  1125.                             }
  1126.                         }
  1127.                         else {
  1128.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name or same player name.");
  1129.                         }
  1130.                     }
  1131.                     else {
  1132.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  1133.                     }
  1134.                 }
  1135.                
  1136.                 return;
  1137.                
  1138.             case "#unsharepack":
  1139.                 return;
  1140.                 %c1 = GetWord(%cropped, 0);
  1141.                 %c2 = GetWord(%cropped, 1);
  1142.                
  1143.                 if(%c1 !$= -1 && %c2 !$= -1)
  1144.                 {
  1145.                     %id = getClientByName(%c1);
  1146.                    
  1147.                     if(%id !$= -1 && %id.nameBase !$= %senderName)
  1148.                     {
  1149.                         %c1 = %id.nameBase; //properly capitalize name
  1150.                        
  1151.                         if(mfloor(%c2) !$= 0 || %c2 $= "*")
  1152.                         {
  1153.                             %flag = "";
  1154.                             %cnt = 0;
  1155.                             %list = fetchData(%TrueClientId, "lootbaglist");
  1156.                            
  1157.                             for(%i = strstr(%list, ","); strstr(%list, ",") !$= -1; %list = getsubstr(%list, %i+1, 99999))
  1158.                             {
  1159.                                 %cnt++;
  1160.                                 %bid = getsubstr(%list, 0, %i);
  1161.                                
  1162.                                 if(%cnt $= %c2 || %c2 $= "*")
  1163.                                 {
  1164.                                     %flag++;
  1165.                                    
  1166.                                     %nl = GetWord($loot[%bid], 1);
  1167.                                    
  1168.                                     if(%nl !$= "*")
  1169.                                     {
  1170.                                         $loot[%bid] = strreplace($loot[%bid], %nl, RemoveFromCommaList(%nl, %c1));
  1171.                                         messageClient(%TrueClientId, 'RPGchatCallback', "Removing " @ %c1 @ " from backpack #" @ %cnt @ " (" @ %bid @ ")'s share list.");
  1172.                                         messageClient(%id, 'RPGchatCallback', %TCsenderName @ " has removed you from his/her backpack #" @ %cnt @ " share list.");
  1173.                                     }
  1174.                                     else {
  1175.                                         messageClient(%TrueClientId, 'RPGchatCallback', "Backpack #" @ %cnt @ " is already publicly available.  Its share list can not be changed.");
  1176.                                     }
  1177.                                 }
  1178.                             }
  1179.                            
  1180.                             if(%flag $= "") {
  1181.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Invalid backpack number.");
  1182.                             }
  1183.                         }
  1184.                         else {
  1185.                             messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a backpack number (1, 2, 3, etc, or * for all)");
  1186.                         }
  1187.                     }
  1188.                     else {
  1189.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name or same player name.");
  1190.                     }
  1191.                 }
  1192.                 else {
  1193.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  1194.                 }
  1195.                
  1196.                 return;
  1197.                
  1198.             case "#packsummary":
  1199.                 return;
  1200.                
  1201.                 if(%clientToServerAdminLevel >= 1)
  1202.                 {
  1203.                     if(%cropped !$= "")
  1204.                     {
  1205.                         %id = getClientByName(%cropped);
  1206.                         %cropped = %id.nameBase;    //properly capitalize name
  1207.                        
  1208.                         %cnt = mfloor(CountObjInCommaList(fetchData(%id, "lootbaglist")));
  1209.                         messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " has " @ %cnt @ " dropped backpacks.");
  1210.                     }
  1211.                     else
  1212.                     {
  1213.                         %list = GetPlayerIdList();
  1214.                        
  1215.                         for(%i = 0; (%id = GetWord(%list, %i)) !$= ""; %i++)
  1216.                         {
  1217.                             %cnt = CountObjInCommaList(fetchData(%id, "lootbaglist"));
  1218.                            
  1219.                             if(%cnt > 0) {
  1220.                                 messageClient(%TrueClientId, 'RPGchatCallback', %id.nameBase @ " has " @ %cnt @ " dropped backpacks.");
  1221.                             }
  1222.                         }
  1223.                     }
  1224.                 }
  1225.                 else if(%cropped $= "")
  1226.                 {
  1227.                     %cnt = mfloor(CountObjInCommaList(fetchData(%TrueClientId, "lootbaglist")));
  1228.                     messageClient(%TrueClientId, 'RPGchatCallback', "You have a total of " @ %cnt @ " currently dropped backpacks.");
  1229.                 }
  1230.                
  1231.                 return;
  1232.                
  1233.             case "#mypassword":
  1234.                 return; //no password for characters!
  1235.                 %c1 = GetWord(%cropped, 0);
  1236.                
  1237.                 if(%c1 !$= -1)
  1238.                 {
  1239.                     storeData(%TrueClientId, "password", %c1);
  1240.                     messageClient(%TrueClientId, 'RPGchatCallback', "Changed personal password to " @ fetchData(%TrueClientId, "password") @ ".");
  1241.                 }
  1242.                 else {
  1243.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a one-word password.");
  1244.                 }
  1245.                
  1246.                 return;
  1247.                
  1248.             case "#sleep":
  1249.            
  1250.                 //return; //BROKEN will be fixed later
  1251.                 if(fetchData(%TrueClientId, "InSleepZone") == true && %TrueClientId.sleepMode $= "" && !IsDead(%TrueClientId)) {
  1252.                     %flag = true;
  1253.                 }
  1254.                
  1255.                 echo(fetchData(%trueclientid, "InSleepZone"));
  1256.                
  1257.                 if(%flag)
  1258.                 {
  1259.                     %TrueClientId.sleepMode = 1;
  1260.                     %TrueClientId.camera.setTransform(%transform);
  1261.                     %TrueClientId.camera.client = %clientid;
  1262.                     %TrueClientId.camera.setOrbitMode(%TrueClientId.player, %TrueClientId.player.getTransform(), 0.5, 4.5, 4.5);
  1263.                     %TrueClientId.setControlObject(%TrueClientId.camera);
  1264.                     refreshHPREGEN(%TrueClientId);
  1265.                     refreshMANAREGEN(%TrueClientId);
  1266.                    
  1267.                     messageClient(%TrueClientId, 'RPGchatCallback', "You fall asleep...  Use #wake to wake up.");
  1268.                 }
  1269.                 else {
  1270.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't seem to fall asleep here.");
  1271.                 }
  1272.                
  1273.                 return;
  1274.                
  1275.             case "#meditate":
  1276.                 if(%TrueClientId.sleepMode $= "" && !IsDead(%TrueClientId) && $possessedBy[%TrueClientId].possessId !$= %TrueClientId)
  1277.                 {
  1278.                     %TrueClientId.sleepMode = 2;
  1279.                     %transform = %TrueClientId.player.getTransform();
  1280.                    
  1281.                     //note, AI's don't have a camera...
  1282.                     if(isObject(%TrueClientId.camera))
  1283.                     {
  1284.                         %TrueClientId.camera.setTransform(%transform);
  1285.                         %TrueClientId.camera.client = %clientid;
  1286.                         %TrueClientId.camera.setOrbitMode(%TrueClientId.player, %TrueClientId.player.getTransform(), 0.5, 4.5, 4.5);
  1287.                         %TrueClientId.setControlObject(%TrueClientId.camera);
  1288.                     }
  1289.                    
  1290.                     //Client::setControlObject(%TrueClientId, Client::getObserverCamera(%TrueClientId));
  1291.                     //Observer::setOrbitObject(%TrueClientId, Client::getOwnedObject(%TrueClientId), 30, 30, 30);
  1292.                     refreshHPREGEN(%TrueClientId);
  1293.                     refreshMANAREGEN(%TrueClientId);
  1294.                    
  1295.                     messageClient(%TrueClientId, 'RPGchatCallback', "You begin to meditate.  Use #wake to stop meditating.");
  1296.                 }
  1297.                 else {
  1298.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't seem to meditate.");
  1299.                 }
  1300.                
  1301.                 return;
  1302.                
  1303.             case "#wake":
  1304.                 if(%TrueClientId.sleepMode !$= "")
  1305.                 {
  1306.                     %TrueClientId.sleepMode = "";
  1307.                     %TrueClientId.setControlObject(%TrueClientId.player);
  1308.                     refreshHPREGEN(%TrueClientId);
  1309.                     refreshMANAREGEN(%TrueClientId);
  1310.                    
  1311.                     messageClient(%TrueClientId, 'RPGchatCallback', "You awaken.");
  1312.                 }
  1313.                 else {
  1314.                     messageClient(%TrueClientId, 'RPGchatCallback', "You are not sleeping or meditating.");
  1315.                 }
  1316.                
  1317.                 return;
  1318.                
  1319.             case "#roll":
  1320.                 %c1 = GetWord(%cropped, 0);
  1321.                
  1322.                 if(%c1 !$= -1) {
  1323.                     messageClient(%TrueClientId, 'RPGchatCallback', %c1 @ ": " @ GetRpgRoll(%c1));
  1324.                 }
  1325.                 else {
  1326.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a roll (example: 1d6)");
  1327.                 }
  1328.                
  1329.                 return;
  1330.                
  1331.             case "#hide":
  1332.            
  1333.                 if(SkillCanUse(%TrueClientId, "#hide"))
  1334.                 {
  1335.                     if(!fetchData(%TrueClientId, "invisible") && !fetchData(%TrueClientId, "blockHide") && %Trueclientid.lasthide + 5000 < getSimTime())
  1336.                     {
  1337.                         %closeEnoughToWall = Cap(%TrueClientId.PlayerSkill[$SkillHiding] / 125, 3.5, 8);
  1338.                        
  1339.                         %pos = %TrueClientId.player.getPosition();
  1340.                        
  1341.                         %closest = 10000;
  1342.                        
  1343.                         for(%i = 0; %i <= 6.283; %i+= 0.52)
  1344.                         {
  1345.                             getLOSinfo(%TrueClientId, 25, "", "0 0 " @ %i);
  1346.                             %dist = VectorDist(%pos, $los::position);
  1347.                            
  1348.                             if(%dist < %closest && $los::position !$= "0 0 0" && $los::position !$= "") {
  1349.                                 %closest = %dist;
  1350.                             }
  1351.                         }
  1352.                        
  1353.                         if(%closest <= %closeEnoughToWall)
  1354.                         {
  1355.                             messageClient(%TrueClientId, 'RPGchatCallback', "You are successful at Hide In Shadows.");
  1356.                            
  1357.                             Client::hide(%TrueClientID);
  1358.                             //GameBase::startFadeOut(%TrueClientId);
  1359.                             //storeData(%TrueClientId, "invisible", true);
  1360.                            
  1361.                             %grace = Cap(%TrueClientId.PlayerSkill[$SkillHiding] / 20, 5, 100);
  1362.                             WalkSlowInvisLoop(%TrueClientId, 5, %grace);
  1363.                             %Trueclientid.lasthide = getSimTime();
  1364.                             UseSkill(%TrueClientId, $Skill::Hiding, true, true);
  1365.                         }
  1366.                         else
  1367.                         {
  1368.                             messageClient(%TrueClientId, 'RPGchatCallback', "You were unsuccessful at Hide In Shadows.");
  1369.                             UseSkill(%TrueClientId, $Skill::Hiding, false, true);
  1370.                         }
  1371.                     }
  1372.                 }
  1373.                 else
  1374.                 {
  1375.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't hide because you lack the necessary skills.");
  1376.                     //UseSkill(%TrueClientId, $Skill::Hiding, false, true);
  1377.                 }
  1378.                
  1379.                 return;
  1380.                
  1381.             case "#bash":
  1382.            
  1383.                 if(SkillCanUse(%TrueClientId, "#bash"))
  1384.                 {
  1385.                     if(!(fetchdata(%trueClientId, "NextHitBash") || fetchdata(%trueClientId, "blockBash")))
  1386.                     {
  1387.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to bash!");
  1388.                         storeData(%TrueClientId, "NextHitBash", true);
  1389.                         storeData(%TrueClientId, "blockBash", true);
  1390.                     }
  1391.                     else if(fetchdata(%TrueClientId, "NextHitBash")) {
  1392.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to bash");
  1393.                     }
  1394.                     else {
  1395.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to bash again, wait a bit");
  1396.                     }
  1397.                 }
  1398.                 else
  1399.                 {
  1400.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't bash because you lack the necessary skills.");
  1401.                     //UseSkill(%TrueClientId, $SkillBashing, false, true);
  1402.                 }
  1403.                
  1404.                 return;
  1405.                
  1406.             case "#disrupt":
  1407.                 if(SkillCanUse(%TrueClientId, "#disrupt"))
  1408.                 {
  1409.                     if(!(fetchdata(%TrueClientId, "NextHitDisrupt") || fetchdata(%TrueClientId, "BlockDisrupt")))
  1410.                     {
  1411.                    
  1412.                         storedata(%TrueClientId, "NextHitDisrupt", true);
  1413.                         storedata(%TrueClientId, "blockdisrupt", true);
  1414.                         messageClient(%TrueClientID, 'RPGchatCallback', "You are ready to disrupt!");
  1415.                        
  1416.                     }
  1417.                     else if(fetchdata(%TrueClientId, "NextHitDisrupt")) {
  1418.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to disrupt.");
  1419.                     }
  1420.                     else {
  1421.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to Disrupt again, wait a bit");
  1422.                     }
  1423.                    
  1424.                    
  1425.                 }
  1426.                 else {
  1427.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't Disrupt because you lack the necessary skills.");
  1428.                 }
  1429.                
  1430.             case "#focus":
  1431.            
  1432.                 if(SkillCanUse(%TrueClientId, "#focus"))
  1433.                 {
  1434.                     if(!(fetchdata(%trueClientId, "NextHitFocus") || fetchdata(%trueClientId, "blockFocus")))
  1435.                     {
  1436.                         messageClient(%TrueClientId, 'RPGchatCallback', "You focus your energy!");
  1437.                         storeData(%TrueClientId, "NextHitFocus", true);
  1438.                         storeData(%TrueClientId, "blockFocus", true);
  1439.                     }
  1440.                     else if(fetchdata(%TrueClientId, "NextHitFocus")) {
  1441.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already focused.");
  1442.                     }
  1443.                     else {
  1444.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too strained to focus, wait a bit.");
  1445.                     }
  1446.                 }
  1447.                 else
  1448.                 {
  1449.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't focus because you lack the necessary skills.");
  1450.                     //UseSkill(%TrueClientId, $SkillBashing, false, true);
  1451.                 }
  1452.                
  1453.                 return;
  1454.                
  1455.             case "#cleave":
  1456.            
  1457.                 if(SkillCanUse(%TrueClientId, "#cleave"))
  1458.                 {
  1459.                     if(!(fetchdata(%trueClientId, "NextHitCleave") || fetchdata(%trueClientId, "blockCleave")))
  1460.                     {
  1461.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to Cleave!");
  1462.                         storeData(%TrueClientId, "NextHitCleave", true);
  1463.                         storeData(%TrueClientId, "blockCleave", true);
  1464.                     }
  1465.                     else if(fetchdata(%TrueClientId, "NextHitCleave")) {
  1466.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to cleave.");
  1467.                     }
  1468.                     else {
  1469.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to cleave again, wait a bit");
  1470.                     }
  1471.                 }
  1472.                 else
  1473.                 {
  1474.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't cleave because you lack the necessary skills.");
  1475.                     //UseSkill(%TrueClientId, $SkillBashing, false, true);
  1476.                 }
  1477.                
  1478.                 return;
  1479.                
  1480.             case "#shock":
  1481.                 if(SkillCanUse(%TrueClientId, "#shock"))
  1482.                 {
  1483.                
  1484.                
  1485.                
  1486.                
  1487.                 }
  1488.                 else
  1489.                 {
  1490.                     messageClient(%TrueClientID, 'RPGchatCallback', "You can't shock because you lack the necessary skills.");
  1491.                 }
  1492.                
  1493.             case "#stun":
  1494.                 if(SkillCanUse(%TrueClientId, "#stun"))
  1495.                 {
  1496.                     if(!(fetchdata(%trueClientId, "NextHitStun") || fetchdata(%trueClientId, "blockStun")))
  1497.                     {
  1498.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to Stun!");
  1499.                         storeData(%TrueClientId, "NextHitStun", true);
  1500.                         storeData(%TrueClientId, "blockStun", true);
  1501.                     }
  1502.                     else if(fetchdata(%TrueClientId, "NextHitStun")) {
  1503.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to Stun.");
  1504.                     }
  1505.                     else {
  1506.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to Stun again, wait a bit");
  1507.                     }
  1508.                    
  1509.                 }
  1510.                 else
  1511.                 {
  1512.                     messageClient(%TrueClientID, 'RPGchatCallback', "You can't stun because you lack the necessary skills.");
  1513.                 }
  1514.                
  1515.             case "#targetleg":
  1516.                 if(SkillCanUse(%TrueClientId, "#targetleg"))
  1517.                 {
  1518.                     if(!(fetchdata(%trueClientId, "NextHitLeg") || fetchdata(%trueClientId, "blockLeg")))
  1519.                     {
  1520.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to Target Leg!");
  1521.                         storeData(%TrueClientId, "NextHitLeg", true);
  1522.                         storeData(%TrueClientId, "blockLeg", true);
  1523.                     }
  1524.                     else if(fetchdata(%TrueClientId, "NextHitLeg")) {
  1525.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to Target Leg.");
  1526.                     }
  1527.                     else {
  1528.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to Target Leg again, wait a bit");
  1529.                     }
  1530.                 }
  1531.                 else
  1532.                 {
  1533.                     MessageClient(%trueClientId, 'RPGchatCallBack', "You can't target leg because you lack the necessary skills.");
  1534.                 }
  1535.                
  1536.             case "#encumber":
  1537.            
  1538.                 if(SkillCanUse(%TrueClientId, "#encumber"))
  1539.                 {
  1540.                     if(!(fetchdata(%trueClientId, "NextHitencumber") || fetchdata(%trueClientId, "blockEncumber")))
  1541.                     {
  1542.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to Encumber!");
  1543.                         storeData(%TrueClientId, "NextHitencumber", true);
  1544.                         storeData(%TrueClientId, "blockencumber", true);
  1545.                     }
  1546.                     else if(fetchdata(%TrueClientId, "NextHitEncumber")) {
  1547.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to Encumber.");
  1548.                     }
  1549.                     else {
  1550.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to Encumber again, wait a bit");
  1551.                     }
  1552.                 }
  1553.                 else
  1554.                 {
  1555.                     MessageClient(%trueClientId, 'RPGchatCallBack', "You can't encumber because you lack the necessary skills.");
  1556.                 }
  1557.                
  1558.             case "#backstab":
  1559.            
  1560.                 if(SkillCanUse(%TrueClientId, "#backstab"))
  1561.                 {
  1562.                     if(!(fetchdata(%trueClientId, "NextHitBackStab") || fetchdata(%trueClientId, "BlockBackStab")))
  1563.                     {
  1564.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to backstab!");
  1565.                         storeData(%TrueClientId, "NextHitBackStab", true);
  1566.                         storeData(%TrueClientId, "blockBackStab", true);
  1567.                     }
  1568.                     else if(fetchdata(%TrueClientId, "NextHitBackStab")) {
  1569.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to backstab.");
  1570.                     }
  1571.                     else {
  1572.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to backstab again, wait a bit");
  1573.                     }
  1574.                 }
  1575.                 else
  1576.                 {
  1577.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't backstab because you lack the necessary skills.");
  1578.                     //UseSkill(%TrueClientId, $SkillBashing, false, true);
  1579.                 }
  1580.                
  1581.                 return;
  1582.                
  1583.             case "#surge":
  1584.                 if(SkillCanUse(%TrueClientId, "#surge"))
  1585.                 {
  1586.                     if(!(fetchdata(%TrueClientId, "blockSurge")))
  1587.                     {
  1588.                         //storedata(%TrueClientId, "Surge", true);
  1589.                         AddBonusState(%TrueClientId, "12 10", 5, "Surge");
  1590.                         storedata(%TrueClientId, "BlockSurge", true);
  1591.                         weightcall(%TrueClientId, false);
  1592.                         debugBonusState(%TrueClientId);
  1593.                         schedule(5000, %client, "endsurge", %client);
  1594.                         messageClient(%TrueClientid, 'RPGchatCallback', "You begin to surge!");
  1595.                        
  1596.                     }
  1597.                     else {
  1598.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to boost your speed.");
  1599.                     }
  1600.                    
  1601.                 }
  1602.                 else {
  1603.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't surge because you lack the necessary skills.");
  1604.                 }
  1605.                
  1606.             case "#berserk":
  1607.                 if(SkillCanuse(%trueclientid, "#berserk"))
  1608.                 {
  1609.                     if(!(fetchdata(%TrueClientId, "blockberserk") || fetchdata(%TrueClientId, "Surge")))
  1610.                     {
  1611.                         storedata(%TrueClientId, "Surge", true);
  1612.                         weightcall(%TrueClientId, false);
  1613.                         storedata(%TrueClientId, "BlockBerserk", true);
  1614.                         schedule(5000, %client, "endberserk", %client);
  1615.                         messageClient(%TrueClientId, 'RPGchatCallBack', "You go Berserk!");
  1616.                     }
  1617.                    
  1618.                 }
  1619.                 else {
  1620.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't berserk because you lack the necessary skills.");
  1621.                 }
  1622.                
  1623.             case "#ignite":
  1624.            
  1625.                 if(SkillCanUse(%TrueClientId, "#ignite"))
  1626.                 {
  1627.                     if(!(fetchdata(%trueClientId, "NextHitignite") || fetchdata(%trueClientId, "Blockignite")))
  1628.                     {
  1629.                         messageClient(%TrueClientId, 'RPGchatCallback', "You light your projectile!");
  1630.                         storeData(%TrueClientId, "NextHitignite", true);
  1631.                         storeData(%TrueClientId, "blockignite", true);
  1632.                     }
  1633.                     else if(fetchdata(%TrueClientId, "NextHitignite")) {
  1634.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to ignite.");
  1635.                     }
  1636.                     else {
  1637.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too tired to ignite again, wait a bit");
  1638.                     }
  1639.                 }
  1640.                 else
  1641.                 {
  1642.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't ignite arrows because you lack the necessary skills.");
  1643.                     //UseSkill(%TrueClientId, $SkillBashing, false, true);
  1644.                 }
  1645.                
  1646.                 return;
  1647.                
  1648.             case "#shove":
  1649.                 %time = getTime();
  1650.                
  1651.                 if(%time - %TrueClientId.lastShoveTime > 1.5)
  1652.                 {
  1653.                     %TrueClientId.lastShoveTime = %time;
  1654.                    
  1655.                     if(SkillCanUse(%TrueClientId, "#shove"))
  1656.                     {
  1657.                         %player = %trueClientId.player;
  1658.                        
  1659.                         if(getLOSinfo(%TrueClientId, 5))
  1660.                         {
  1661.                             %pl = $los::object;
  1662.                             %id = %pl.client;
  1663.                            
  1664.                             if(%TrueClientId.adminLevel > %id.adminLevel || %id.adminLevel < 1 && %id != 0)
  1665.                             {
  1666.                                 %b = %TrueClientId.player.rotation;
  1667.                                 %c1 = Cap(20 + fetchData(%TrueClientId, "LVL"), 0, 250);
  1668.                                 %c2 = %c1 / 4;
  1669.                                 %muzzlevec = %client.player.getMuzzleVector(1);
  1670.                                 %vel = %id.player.getVelocity();
  1671.                                 %mom = GetWord(%muzzlevec, 0)*20+GetWord(%vel, 0) SPC GetWord(%muzzlevec, 1)*20+GetWord(%vel, 1) SPC GetWord(%muzzlevec, 2)*20+GetWord(%vel, 2);
  1672.                                 %id.player.setVelocity(%mom);
  1673.                                
  1674.                             }
  1675.                         }
  1676.                     }
  1677.                     else {
  1678.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't shove because you lack the necessary skills.");
  1679.                     }
  1680.                 }
  1681.                
  1682.                 return;
  1683.                
  1684.             case "#defaulttalk":
  1685.                 if(%cropped !$= "")
  1686.                 {
  1687.                     storeData(%TrueClientId, "defaultTalk", %cropped);
  1688.                     messageClient(%TrueClientId, 'RPGchatCallback', "Changed Default Talk to " @ fetchData(%TrueClientId, "defaultTalk") @ ".");
  1689.                 }
  1690.                 else {
  1691.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify what will be added to the beginning of each of your messages.");
  1692.                 }
  1693.                
  1694.                 return;
  1695.                
  1696.             case "#zonelist":
  1697.                 if(SkillCanUse(%TrueClientId, "#zonelist"))
  1698.                 {
  1699.                     %c1 = GetWord(%cropped, 0);
  1700.                    
  1701.                     if(%c1 !$= -1)
  1702.                     {
  1703.                         if(stricmp(%c1, "all") $= 0) {
  1704.                             %t = 1;
  1705.                         }
  1706.                         else if(stricmp(%c1, "players") $= 0) {
  1707.                             %t = 2;
  1708.                         }
  1709.                         else if(stricmp(%c1, "enemies") $= 0) {
  1710.                             %t = 3;
  1711.                         }
  1712.                        
  1713.                         %list = Zone::getPlayerList(fetchData(%TrueClientId, "zone"), %t);
  1714.                        
  1715.                         if(%list !$= "")
  1716.                         {
  1717.                             for(%i = 0; (%id = GetWord(%list, %i)) !$= ""; %i++) {
  1718.                                 messageClient(%TrueClientId, 'RPGchatCallback', %id.nameBase);
  1719.                             }
  1720.                         }
  1721.                         else {
  1722.                             messageClient(%TrueClientId, 'RPGchatCallback', "[none]");
  1723.                         }
  1724.                     }
  1725.                     else {
  1726.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify 'players', 'enemies', or 'all'");
  1727.                     }
  1728.                 }
  1729.                 else
  1730.                 {
  1731.                     messageClient(%TrueClientId, 'RPGchatCallback', "You can't zonelist because you lack the necessary skills.");
  1732.                     UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  1733.                 }
  1734.                
  1735.                 return;
  1736.                
  1737.             case "#pickpocket":
  1738.            
  1739.                 %time = getTime();//ok pickpocket will only steal small items, user really wont have a choice to what they steal either unlike tribes rpg.
  1740.                
  1741.                 if(%time - %TrueClientId.lastStealTime > $stealDelay)
  1742.                 {
  1743.                     %TrueClientId.lastStealTime = %time;
  1744.                    
  1745.                     if((%reason = AllowedToSteal(%TrueClientId)) $= "true")
  1746.                     {
  1747.                         if(SkillCanUse(%TrueClientId, "#pickpocket"))
  1748.                         {
  1749.                             if(getLOSinfo(%TrueClientId, 1))
  1750.                             {
  1751.                                 %id = $los::object.client;
  1752.                                 %pos = $los::position;
  1753.                                
  1754.                                 if($los::object.getClassName() $= "Player")
  1755.                                 {
  1756.                                     %damloc = %id.player.getDamageLocation(%pos);
  1757.                                     %tciskill = %TrueClientID.PlayerSkill[$SkillStealing] * 4/5;
  1758.                                     %idskill = %id.playerSkill[$skillStealing];
  1759.                                    
  1760.                                     //echo(%damloc);
  1761.                                     //%TrueClientId.stealType = 1;
  1762.                                     //SetupInvSteal(%TrueClientId, %id);
  1763.                                     //attempt to steal
  1764.                                     %inv = fetchdata(%id, "inventory");
  1765.                                     %num = getwordcount(%inv);
  1766.                                     //randomly select an item
  1767.                                     %itemid = GetWord(%inv, getrandom(0,%num-1));
  1768.                                    
  1769.                                     if(%itemid)
  1770.                                     {
  1771.                                         %item = getItem(%itemid);
  1772.                                        
  1773.                                         if($itemtype[%item] $= "armor" || $itemType[%item] $= "weapon")
  1774.                                         {
  1775.                                             //error cannot steal
  1776.                                             %fail = true;
  1777.                                         }
  1778.                                         else
  1779.                                         {
  1780.                                             %backfront = getword(%damloc, 1);
  1781.                                            
  1782.                                             if(%backfront $= "back_right" || %backfront $= "back" || %backfront $= "back_left" || %backfront $= "middle_back") {
  1783.                                                 %multi = 1;
  1784.                                             }
  1785.                                             else {
  1786.                                                 %multi = 0.5;    //odds of stealing 1/2
  1787.                                             }
  1788.                                            
  1789.                                             if(!id.isAIControlled()) {
  1790.                                                 %oddcalc = %num - 10;
  1791.                                             }
  1792.                                             else {
  1793.                                                 %oddcalc = %num;
  1794.                                             }
  1795.                                            
  1796.                                             if(%oddcalc < 0) {
  1797.                                                 %oddcalc = 0;
  1798.                                             }
  1799.                                            
  1800.                                             %ooddcalc = %oddcalc * %tciskill * %multi;
  1801.                                             %doddcalc = 35 * %idskill + 10;
  1802.                                             %success = getRandom(-%doddcalc, %ooddcalc);
  1803.                                            
  1804.                                             if(%success > 0) {
  1805.                                                 %fail = false;
  1806.                                             }
  1807.                                             else {
  1808.                                                 %fail = true;
  1809.                                             }
  1810.                                         }
  1811.                                        
  1812.                                         echo("PICKPOCKET:" SPC -%doddcalc SPC %ooddcalc SPC %success SPC %tciskill SPC %idskill);
  1813.                                        
  1814.                                         if(!%fail)
  1815.                                         {
  1816.                                             RemoveFromInventory(%id, %itemid);
  1817.                                             AddToInventory(%TrueClientId, %itemid);
  1818.                                             messageClient(%TrueClientId, 'RPGchatCallback', "You sucessfully stole a" SPC GetFullItemName(%itemid));
  1819.                                             MessageClient(%TrueClientID, 'RPGchatcallback', "DEBUG, ODDS TO STEAL:" SPC -%doddcalc SPC " to " SPC %ooddcalc SPC "NUMBER:" SPC %success);
  1820.                                         }
  1821.                                         else
  1822.                                         {
  1823.                                             messageClient(%TrueClientId, 'RPGchatCallback', "You failed to steal from" SPC %id.rpgname @ "!");
  1824.                                             MessageClient(%TrueClientID, 'RPGchatcallback', "DEBUG, ODDS TO STEAL:" SPC -%doddcalc SPC " to " SPC %ooddcalc SPC "NUMBER:" SPC %success);
  1825.                                             messageClient(%id, 'RPGchatCallback', %TrueClientid.rpgname SPC "failed to steal from you!");
  1826.                                             //failed to steal, notify victim? lashback?
  1827.                                         }
  1828.                                        
  1829.                                     }
  1830.                                     else {
  1831.                                         messageClient(%TrueClientId, 'RPGchatCallback', "Your target has no items on him");
  1832.                                     }
  1833.                                 }
  1834.                             }
  1835.                         }
  1836.                         else
  1837.                         {
  1838.                             messageClient(%TrueClientId, 'RPGchatCallback', "You can't pickpocket because you lack the necessary skills.");
  1839.                             UseSkill(%TrueClientId, $SkillStealing, false, true);
  1840.                         }
  1841.                     }
  1842.                     else {
  1843.                         messageClient(%TrueClientId, 'RPGchatCallback', %reason);
  1844.                     }
  1845.                 }
  1846.                
  1847.                 return;
  1848.                
  1849.             case "#mug":
  1850.            
  1851.                 //can steal ANYTHING unequiped at a higher success rate, however player must be in your target list to attempt!
  1852.                 %time = getTime();
  1853.                
  1854.                 if(%time - %TrueClientId.lastStealTime > $stealDelay)
  1855.                 {
  1856.                     %TrueClientId.lastStealTime = %time;
  1857.                    
  1858.                     if(skillcanuse(%TrueClientId, "#mug"))
  1859.                     {
  1860.                         if(fetchdata(%TrueClientId, "NextHitMug"))
  1861.                         {
  1862.                             messageClient(%TrueClientId, 'RPGchatCallback', "You are already ready to mug");
  1863.                         }
  1864.                         else if(fetchdata(%TrueClientId, "blockHitMug"))
  1865.                         {
  1866.                             messageClient(%TrueClientId, 'RPGchatCallback', "You are not ready to mug");
  1867.                         }
  1868.                         else
  1869.                         {
  1870.                             storedata(%TrueClientId, "blockhitmug", true);
  1871.                             storedata(%TrueClientId, "NextHitMug", true);
  1872.                             messageClient(%TrueClientId, 'RPGchatCallback', "You are ready to mug.");
  1873.                            
  1874.                         }
  1875.                        
  1876.                        
  1877.                     }
  1878.                     else {
  1879.                         messageClient(%TrueClientId, 'RPGchatCallback', "You do not have enough skill to mug");
  1880.                     }
  1881.                    
  1882.                 }
  1883.                
  1884.                 return;
  1885.                
  1886.             case "#createpack":
  1887.                 return;
  1888.                
  1889.                 if(fetchData(%TrueClientId, "TempPack") !$= "")
  1890.                 {
  1891.                     if(HasThisStuff(%TrueClientId, fetchData(%TrueClientId, "TempPack")))
  1892.                     {
  1893.                         TakeThisStuff(%TrueClientId, fetchData(%TrueClientId, "TempPack"));
  1894.                         %namelist = %TCsenderName @ ",";
  1895.                         TossLootbag(%TrueClientId, fetchData(%TrueClientId, "TempPack"), 5, %namelist, 0);
  1896.                         RefreshAll(%TrueClientId);
  1897.                        
  1898.                         remotePlayMode(%TrueClientId);
  1899.                     }
  1900.                 }
  1901.                
  1902.                 return;
  1903.                
  1904.             case "#camp":
  1905.                 return;
  1906.                
  1907.                 if(Player::getItemCount(%TrueClientId, Tent))
  1908.                 {
  1909.                     %camp = nameToId("MissionCleanup/Camp" @ %TrueClientId);
  1910.                    
  1911.                     if(%camp $= -1)
  1912.                     {
  1913.                         if(fetchData(%TrueClientId, "zone") $= "")
  1914.                         {
  1915.                             messageClient(%TrueClientId, 'RPGchatCallback', "Setting up camp...");
  1916.                            
  1917.                             %pos = %TrueClientId.player.getPosition();
  1918.                            
  1919.                             Player::decItemCount(%TrueClientId, Tent);
  1920.                             RefreshAll(%TrueClientId);
  1921.                             %group = newObject("Camp" @ %TrueClientId, SimGroup);
  1922.                             addToSet("MissionCleanup", %group);
  1923.                            
  1924.                             schedule(2000, "DoCampSetup(" @ %TrueClientId @ ", 1, \"" @ %pos @ "\");");
  1925.                             schedule(10000, "DoCampSetup(" @ %TrueClientId @ ", 2, \"" @ %pos @ "\");");
  1926.                             schedule(17000, "DoCampSetup(" @ %TrueClientId @ ", 3, \"" @ %pos @ "\");");
  1927.                             schedule(20000, "DoCampSetup(" @ %TrueClientId @ ", 4, \"" @ %pos @ "\");");
  1928.                         }
  1929.                         else {
  1930.                             messageClient(%TrueClientId, 'RPGchatCallback', "You can't set up a camp here.");
  1931.                         }
  1932.                     }
  1933.                     else {
  1934.                         messageClient(%TrueClientId, 'RPGchatCallback', "You already have a camp setup somewhere.");
  1935.                     }
  1936.                 }
  1937.                 else {
  1938.                     messageClient(%TrueClientId, 'RPGchatCallback', "You aren't carrying a tent.");
  1939.                 }
  1940.                
  1941.                 return;
  1942.                
  1943.             case "#uncamp":
  1944.                 return;
  1945.                 %camp = nameToId("MissionCleanup/Camp" @ %TrueClientId);
  1946.                
  1947.                 if(%camp !$= -1)
  1948.                 {
  1949.                     %obj = nameToId("MissionCleanup/Camp" @ %TrueClientId @ "/woodfire");
  1950.                    
  1951.                     if(VectorDist(%TrueClientId.player.getPosition(), %obj.getPosition()) <= 10)
  1952.                     {
  1953.                         DoCampSetup(%TrueClientId, 5);
  1954.                         messageClient(%TrueClientId, 'RPGchatCallback', "Camp has been packed up.");
  1955.                     }
  1956.                     else {
  1957.                         messageClient(%TrueClientId, 'RPGchatCallback', "You are too far from your camp.");
  1958.                     }
  1959.                 }
  1960.                 else {
  1961.                     messageClient(%TrueClientId, 'RPGchatCallback', "You don't have a camp.");
  1962.                 }
  1963.                
  1964.                 return;
  1965.                
  1966.             case "#advcompass":
  1967.                 if(%cropped $= "") {
  1968.                     messageClient(%TrueClientId, 'RPGchatCallback', "Use #advcompass zone keyword");
  1969.                 }
  1970.                 else
  1971.                 {
  1972.                     if(SkillCanUse(%TrueClientId, "#advcompass"))
  1973.                     {
  1974.                         %obj = GetZoneByKeywords(%TrueClientId, %cropped, 3);
  1975.                        
  1976.                         if(%obj !$= false)
  1977.                         {
  1978.                             %mpos = Zone::getMarker(%obj);
  1979.                            
  1980.                             %d = GetNESW(%TrueClientId.player.getPosition(), %mpos);
  1981.                             UseSkill(%TrueClientId, $SkillSenseHeading, true, true);
  1982.                            
  1983.                             messageClient(%TrueClientId, 'RPGchatCallback', Zone::getDesc(%obj) @ " is " @ %d @ " of here.");
  1984.                         }
  1985.                         else {
  1986.                             messageClient(%TrueClientId, 1, "Couldn't fine a zone to match those keywords.");
  1987.                         }
  1988.                     }
  1989.                     else
  1990.                     {
  1991.                         messageClient(%TrueClientId, 'RPGchatCallback', "You can't use #advcompass because you lack the necessary skills.");
  1992.                         UseSkill(%TrueClientId, $SkillSenseHeading, false, true);
  1993.                     }
  1994.                 }
  1995.                
  1996.                 return;
  1997.                
  1998.             case "#smith":
  1999.                 %ret = getLOSInfo(%TrueClientId, 10);
  2000.                 %obj = GetWord(%ret, 0);
  2001.                
  2002.                 if(%obj.special !$= "Smith")
  2003.                 {
  2004.                     MessageClient(%TrueClientId, 'RPGchatCallback', "You need to be looking at an anvil to smith");
  2005.                     return false;
  2006.                 }
  2007.                
  2008.                 if(!%TrueClientId.IsSmithing)
  2009.                 {
  2010.                     %TrueClientId.IsSmithing = true;
  2011.                     %command = GetWord(%cropped, 0);
  2012.                     %nitem = GetWord(%cropped, 1);
  2013.                     %from = GetWord(%cropped, 2);
  2014.                     Game.smith(%TrueClientID, %command, %nitem, %from);
  2015.                     %TrueClientId.IsSmithing = false;
  2016.                 }
  2017.                
  2018.             case "#myexp":
  2019.                 messageClient(%TrueClientId, 'RPGchatCallback', "Your EXP:" SPC fetchdata(%TrueClientId, "EXP"));
  2020.                
  2021.             case "#mylevel":
  2022.                 messageClient(%TrueClientId, 'RPGchatCallback', "Your Level:" SPC fetchdata(%TrueClientId, "LVL"));
  2023.                
  2024.             case "#quickbind":
  2025.                 if(%cropped !$= "")
  2026.                 {
  2027.                     %number = GetWord(%cropped, 0);
  2028.                     %rest = GetWords(%cropped, 1, 99);
  2029.                     %number = mfloor(%number);
  2030.                    
  2031.                     if(%number > 0 && %number <= 6)
  2032.                     {
  2033.                         %number--;
  2034.                         storedata(%client, "QuickBind" @ %number, %rest);
  2035.                     }
  2036.                     else {
  2037.                         messageClient(%TrueClientId, 'RPGchatCallBack', "Incorrect usage, syntax: #QuickBind [number 1-6] [#command...] example #quickbind 1 #cast thorn");
  2038.                     }
  2039.                 }
  2040.                 else {
  2041.                     messageClient(%TrueClientId, 'RPGchatCallBack', "Incorrect usage, syntax: #QuickBind [number 1-6] [#command...] example #quickbind 1 #cast thorn");
  2042.                 }
  2043.                
  2044.             case "#resetplayer":
  2045.                 %race = fetchdata(%TrueClientID, "RACE");
  2046.                
  2047.                 %race = "MaleHuman";//until femalehuman is put in
  2048.                 %apm = "Armor";
  2049.                 %dbname = %race @ %apm @ %TrueClientID.cweight;
  2050.                 %e = %TrueClientID.player.getEnergyLevel();
  2051.                 %d = %TrueClientID.player.getDamageLevel();
  2052.                 %TrueClientID.player.setDataBlock(MaleHuman);
  2053.                 %TrueClientID.player.setdatablock(%dbname);
  2054.                 %TrueClientID.player.setEnergyLevel(%e);
  2055.                 %TrueClientID.player.setDamageLevel(%d);
  2056.                 MessageClient(%TrueClientId, 'RPGchatCallBack', "Player Reset");
  2057.                
  2058.             case "#mount":
  2059.                 //getlosinfo
  2060.                 %obj = getword(getlosinfo(%TrueClientId, 10), 0);
  2061.                 %dataBlock = %obj.getDataBlock();
  2062.                 %className = %dataBlock.className;
  2063.                 %player = %TrueClientID.player;
  2064.                
  2065.                 if(%forceVehicleNode !$= "" || (%className $= WheeledVehicleData || %className $= FlyingVehicleData || %className $= HoverVehicleData) &&
  2066.                                          %player.mountVehicle && %player.getState() $= "Move" && %obj.getDamageState() !$= "Destroyed")
  2067.                 {
  2068.                     if(%TrueClientID.isAIControlled())
  2069.                     {
  2070.                         %transform = %col.getTransform();
  2071.                        
  2072.                         //either the AI is *required* to pilot, or they'll pick the first available passenger seat
  2073.                         if(%client.pilotVehicle)
  2074.                         {
  2075.                             //make sure the bot is in light armor
  2076.                             if(%player.getArmorSize() $= "Light")
  2077.                             {
  2078.                                 //make sure the pilot seat is empty
  2079.                                 if(!%obj.getMountNodeObject(0)) {
  2080.                                     %node = 0;
  2081.                                 }
  2082.                             }
  2083.                         }
  2084.                         else {
  2085.                             %node = findAIEmptySeat(%obj, %player);
  2086.                         }
  2087.                     }
  2088.                     else {
  2089.                         %node = findEmptySeat(%obj, %player);
  2090.                     }
  2091.                    
  2092.                     //now mount the player in the vehicle
  2093.                     if(%node >= 0)
  2094.                     {
  2095.                    
  2096.                         %obj.mountObject(%player,%node);
  2097.                         %obj.playAudio(0, MountVehicleSound);
  2098.                         %player.mVehicle = %obj;
  2099.                        
  2100.                         //%player.mountnode = %node;
  2101.                         // if player is repairing something, stop it
  2102.                         if(%player.repairing) {
  2103.                             stopRepairing(%player);
  2104.                         }
  2105.                        
  2106.                         //this will setup the huds as well...
  2107.                         // %dataBlock.playerMounted(%obj,%player, %node);
  2108.                     }
  2109.                 }
  2110.                 else {
  2111.                     messageClient(%TrueClientId, 'RPGchatCallback', "You cannot mount this object");
  2112.                 }
  2113.         }
  2114.        
  2115.         //another break...
  2116. //============================
  2117. //Guild commands==============
  2118. //============================
  2119.         switch$(%w1)
  2120.         {
  2121.             case "#claim":
  2122.                 %guildid = IsInWhatGuild(%TrueClientId);
  2123.                 %guild = GuildGroup.getObject(%guildid);
  2124.                
  2125.                 if(%guildid == -1 || %guild.getGUIDRank(%TrueClientId.guid) < 1)
  2126.                 {
  2127.                     MessageClient(%TrueClientId, 'MessageClaimFail', "You have to be in a guild to claim land.");
  2128.                     return;
  2129.                 }
  2130.                
  2131.                 %zone = fetchdata(%TrueClientId, "zone");
  2132.                
  2133.                 if(%zone.type $= "GuildZone")
  2134.                 {
  2135.                     if(%zone.owned)
  2136.                     {
  2137.                         if(%zone.owner == %guild)
  2138.                         {
  2139.                             MessageClient(%TrueClientId, 'MessageClaimFail', "Your guild already owns this zone.");
  2140.                         }
  2141.                         else
  2142.                         {
  2143.                             MessageClient(%TrueClientId, 'MessageClaimFail', "You cannot claim this zone because it is owned by a guild, in order to obtain it you must #challenge the current owner.");
  2144.                         }
  2145.                     }
  2146.                     else
  2147.                     {
  2148.                         %list = Zone::getPlayerList(fetchData(%TrueClientId, "zone"), 2);
  2149.                         %flag = true;
  2150.                        
  2151.                         for(%i = 0; GetWord(%list, %i); %i++)
  2152.                         {
  2153.                             %id = GetWord(%list, %i);
  2154.                            
  2155.                             if(%id != %TrueClientId)
  2156.                             {
  2157.                                 %gid = IsInWhatGuild(%id);
  2158.                                
  2159.                                 if(%gid != -1 && %gid != %guildid)
  2160.                                 {
  2161.                                
  2162.                                     %flag = false;
  2163.                                     break;
  2164.                                 }
  2165.                             }
  2166.                         }
  2167.                        
  2168.                         if(%flag)
  2169.                         {
  2170.                             if(GetWordCount(%guild.getzonelist()) < $guildownerzonelimit)
  2171.                             {
  2172.                                 //check to see if there are any other guild members in this zone.
  2173.                                 MessageClient(%TrueClientId, 'MessageClaim', "You claim this zone in the name of" SPC %guild.getName() @ "!");
  2174.                                 %guild.addZone(%zone);
  2175.                                 %zone.owned = true;
  2176.                                 %zone.owner = %guild;
  2177.                                 SaveServerGuilds();
  2178.                             }
  2179.                             else {
  2180.                                 MessageClient(%TrueClientId, 'MessageClaim', "Your guild already owns too many zones");
  2181.                             }
  2182.                         }
  2183.                         else {
  2184.                             MessageClient(%TrueClientId, 'MessageClaimFail', "You cannot claim this zone until you are the only guild in this zone.");
  2185.                         }
  2186.                     }
  2187.                 }
  2188.                 else {
  2189.                     MessageClient(%TrueClientId, 'MessageClaimFail', "You must be in a guild zone to claim it.");
  2190.                 }
  2191.                
  2192.             case "#challenge":
  2193.                 %guildid = IsInWhatGuild(%Trueclientid);
  2194.                 %guild = GuildGroup.getObject(%guildid);
  2195.                 %zone = fetchdata(%TrueClientId, "Zone");
  2196.                
  2197.                 if(%guildid == -1 || %guild.getGUIDRank(%TrueClientId.guid) <= 1)
  2198.                 {
  2199.                     if(%guildid == -1) {
  2200.                         MessageClient(%TrueClientId, 'RPGchatcallback', "Error, you must be in a guild to use this command");
  2201.                     }
  2202.                     else {
  2203.                         MessageClient(%TrueClientId, 'RPGchatCallback', "You are not of sufficent rank to start a challenge with another guild");
  2204.                     }
  2205.                    
  2206.                     return;
  2207.                 }
  2208.                
  2209.                 if(%zone.type $= "GuildZone")
  2210.                 {
  2211.                     if(%zone.owned)
  2212.                     {
  2213.                         if(%zone.owner == %guild)
  2214.                         {
  2215.                             MessageClient(%TrueClientId, 'RPGchatcallback', "Error, your guild already owns this zone!");
  2216.                         }
  2217.                         else
  2218.                         {
  2219.                             if(%zone.challenged)
  2220.                             {
  2221.                                 MessageClient(%TrueClientId, 'RPGchatCallback', "Error, someone has already challenged this zone");
  2222.                             }
  2223.                             else
  2224.                             {
  2225.                                 if(GetWordCount(%guild.getzonelist()) < $guildownerzonelimit)
  2226.                                 {
  2227.                                     //success
  2228.                                     MessageClient(%TrueClientId, 'RPGchatcallback', "Success, registering challenge...");
  2229.                                     %zone.owner.startChallenge(%zone, %guild);
  2230.                                    
  2231.                                 }
  2232.                                 else {
  2233.                                     MessageClient(%TrueClientId, 'RPGchatcallback', "Your guild already has too many zones");
  2234.                                 }
  2235.                             }
  2236.                         }
  2237.                        
  2238.                     }
  2239.                     else {
  2240.                         MessageClient(%TrueClientId, 'RPGchatCallback', "Zone is unclaimed, #claim to gain possession of it");
  2241.                     }
  2242.                    
  2243.                 }
  2244.                 else {
  2245.                     MessageClient(%TrueClientId, 'RPGchatCallback', "You must be in an enemy guild's zone to challenge it.");
  2246.                 }
  2247.                
  2248.             case "#accept":
  2249.                 %guildid = IsInWhatGuild(%Trueclientid);
  2250.                 %guild = GuildGroup.getObject(%guildid);
  2251.                 %zone = %guild.challengedzone;
  2252.                
  2253.                 if(%guildid == -1 || %guild.getGUIDRank(%TrueClientId.guid) <= 1)
  2254.                 {
  2255.                     if(%guildid == -1) {
  2256.                         MessageClient(%TrueClientId, 'RPGchatcallback', "Error, you must be in a guild to use this command");
  2257.                     }
  2258.                     else {
  2259.                         MessageClient(%TrueClientId, 'RPGchatCallback', "You are not of sufficent rank to accept a challenge with another guild");
  2260.                     }
  2261.                    
  2262.                     return;
  2263.                 }
  2264.                
  2265.                 //find state...
  2266.                 if(%zone.owner == %guild && %zone.canacceptchallenge)
  2267.                 {
  2268.                     %count = ClientGroup.getCount();
  2269.                    
  2270.                     for(%icl = 0; %icl < %count; %icl++)
  2271.                     {
  2272.                         %cl = ClientGroup.getObject(%icl);
  2273.                        
  2274.                         if(%cl.isAiControlled()) {
  2275.                             continue;    //skip bots
  2276.                         }
  2277.                        
  2278.                         if(%guild.GUIDinGuild(%cl.guid) && %guild.GetGUIDRank(%cl.guid) > 0) {
  2279.                             %home++;
  2280.                         }
  2281.                         else if(%zone.challenger.GUIDinGuild(%cl.guid)  && %zone.challenger.getGUIDRank(%cl.guid) > 0) {
  2282.                             %away++;
  2283.                         }
  2284.                     }
  2285.                    
  2286.                     if(IsEventPending(%zone.challengeEvent) && %away >= %zone.minchallenger)
  2287.                     {
  2288.                         cancel(%zone.challengeEvent);
  2289.                         %guild.PrepareChallenge(%zone, %zone.challenger, 0);
  2290.                     }
  2291.                 }
  2292.                 else {
  2293.                     MessageClient(%TrueClientId, 'RPGchatcallback', "There is no challenge to accept");
  2294.                 }
  2295.         }
  2296.        
  2297.         switch$(%w1)
  2298.         {
  2299. //============================
  2300. //ADMIN COMMANDS =============
  2301. //============================
  2302.  
  2303.             case "#anon":
  2304.                 if(%clientToServerAdminLevel >= 3)
  2305.                 {
  2306.                     %aname = GetWord(%cropped, 0);
  2307.                     %cn = mfloor(GetWord(%cropped, 1));
  2308.                    
  2309.                     if(%cn !$= -1 && %aname !$= -1)
  2310.                     {
  2311.                         %anonmsg = getsubstr(%cropped, strstr(%cropped, %cn)+strlen(%cn)+1, 99999);
  2312.                        
  2313.                         if(%aname $= "all")
  2314.                         {
  2315.                             %count = ClientGroup.getCount();
  2316.                            
  2317.                             for(%icl = 0; %icl < %count; %icl++)
  2318.                             {
  2319.                                 %cl = ClientGroup.getObject(%icl);
  2320.                                
  2321.                                 if(mfloor(%cl.adminLevel) >= mfloor(%clientToServerAdminLevel)) {
  2322.                                     messageClient(%cl, %cn, "[ANON] " @ %TCsenderName @ ": " @ %anonmsg);
  2323.                                 }
  2324.                                 else {
  2325.                                     messageClient(%cl, %cn, %anonmsg);
  2326.                                 }
  2327.                             }
  2328.                         }
  2329.                         else
  2330.                         {
  2331.                             %id = getClientByName(%aname);
  2332.                            
  2333.                             if(%id !$= -1)
  2334.                             {
  2335.                                 if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel)) {
  2336.                                     messageClient(%id, %cn, "[ANON] " @ %TCsenderName @ ": " @ %anonmsg);
  2337.                                 }
  2338.                                 else {
  2339.                                     messageClient(%id, %cn, %anonmsg);
  2340.                                 }
  2341.                             }
  2342.                             else {
  2343.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2344.                             }
  2345.                         }
  2346.                     }
  2347.                     else {
  2348.                         messageClient(%TrueClientId, 'RPGchatCallback', "Syntax: #anon name/all colorNumber message");
  2349.                     }
  2350.                 }
  2351.                
  2352.                 return;
  2353.                
  2354.             case "#fw":
  2355.                 %c1 = GetWord(%cropped, 0);
  2356.                
  2357.                 if(%c1 !$= -1)
  2358.                 {
  2359.                     %id = getClientByName(%c1);
  2360.                    
  2361.                     if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id !$= %TrueClientId && mfloor(%id.adminLevel) !$= 0) {
  2362.                         messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2363.                     }
  2364.                     else if(%id !$= -1)
  2365.                     {
  2366.                         if(%clientToServerAdminLevel >= 3)
  2367.                         {
  2368.                             %rest = getsubstr(%cropped, (strlen(%c1)+1), strlen(%cropped)-(strlen(%c1)+1));
  2369.                             RPGchat(%id, 0, %rest); //, %senderName);
  2370.                            
  2371.                             if(!%echoOff) {
  2372.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Sent a forwarded message to " @ %id @ ".");
  2373.                             }
  2374.                         }
  2375.                     }
  2376.                     else if(!%echoOff) {
  2377.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name, or name is of a superAdmin.");
  2378.                     }
  2379.                 }
  2380.                 else {
  2381.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify name, command and text.");
  2382.                 }
  2383.                
  2384.                 return;
  2385.                
  2386.             case "#forcespawn":
  2387.                 if(%clientToServerAdminLevel >= 1)
  2388.                 {
  2389.                     if(%cropped $= "") {
  2390.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2391.                     }
  2392.                     else
  2393.                     {
  2394.                         %id = getClientByName(%cropped);
  2395.                        
  2396.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2397.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2398.                         }
  2399.                         else if(%id !$= -1)
  2400.                         {
  2401.                             if(IsDead(%id))
  2402.                             {
  2403.                                 Game.playerSpawn(%id, true);
  2404.                                
  2405.                                 if(!%echoOff) {
  2406.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Forced " @ %cropped @ " to spawn.");
  2407.                                 }
  2408.                             }
  2409.                             else if(!%echoOff) {
  2410.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " isn't dead.");
  2411.                             }
  2412.                         }
  2413.                         else {
  2414.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2415.                         }
  2416.                     }
  2417.                 }
  2418.                
  2419.                 return;
  2420.                
  2421.             case "#attacklos":
  2422.                 if(%cropped $= "") {
  2423.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a bot name.");
  2424.                 }
  2425.                 else
  2426.                 {
  2427.                     %event = strstr(%cropped, ">");
  2428.                    
  2429.                     if(%event !$= -1)
  2430.                     {
  2431.                         %info = getsubstr(%cropped, 0, %event);
  2432.                         %cmd = getsubstr(%cropped, %event, 99999);
  2433.                     }
  2434.                     else {
  2435.                         %info = %cropped;
  2436.                     }
  2437.                    
  2438.                     %c1 = getWord(%info, 0);
  2439.                     %ox = GetWord(%info, 1);
  2440.                     %oy = GetWord(%info, 2);
  2441.                     %oz = GetWord(%info, 3);
  2442.                     %id = getClientByName(%c1);
  2443.                    
  2444.                     if(%id !$= -1)
  2445.                     {
  2446.                         if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  2447.                         {
  2448.                             if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id !$= %TrueClientId && mfloor(%id.adminLevel) !$= 0) {
  2449.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2450.                             }
  2451.                             else if(%id.isAiControlled())
  2452.                             {
  2453.                                 %player = %TrueClientId.player;
  2454.                                
  2455.                                 if(%ox $= -1 && %oy $= -1 && %oz $= -1)
  2456.                                 {
  2457.                                     getLOSinfo(%TrueClientId, 50000);
  2458.                                     %pos = $los::position;
  2459.                                 }
  2460.                                 else {
  2461.                                     %pos = %ox @ " " @ %oy @ " " @ %oz;
  2462.                                 }
  2463.                                
  2464.                                 if(%event !$= -1) {
  2465.                                     AddEventCommand(%id, %senderName, "onPosCloseEnough " @ %pos, %cmd);
  2466.                                 }
  2467.                                
  2468.                                 if(!%echoOff) {
  2469.                                     messageClient(%TrueClientId, 'RPGchatCallback', %c1 @ " (" @ %id @ ") is attacking position " @ %pos @ ".");
  2470.                                 }
  2471.                                
  2472.                                 storeData(%id, "botAttackMode", 3);
  2473.                                 storeData(%id, "tmpbotdata", %pos);
  2474.                             }
  2475.                             else {
  2476.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Player must be a bot.");
  2477.                             }
  2478.                         }
  2479.                     }
  2480.                     else {
  2481.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2482.                     }
  2483.                 }
  2484.                
  2485.                 return;
  2486.                
  2487.             case "#botnormal":
  2488.                 if(%cropped $= "") {
  2489.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a bot name.");
  2490.                 }
  2491.                 else
  2492.                 {
  2493.                     %id = getClientByName(%cropped);
  2494.                    
  2495.                     if(%id !$= -1)
  2496.                     {
  2497.                         if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  2498.                         {
  2499.                             if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id !$= %TrueClientId && mfloor(%id.adminLevel) !$= 0) {
  2500.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2501.                             }
  2502.                             else if(%id.isAiControlled())
  2503.                             {
  2504.                                 if(!%echoOff) {
  2505.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Bot is now in normal attack mode.");
  2506.                                 }
  2507.                                
  2508.                                 storeData(%id, "botAttackMode", 1);
  2509.                                 AI::newDirectiveRemove(fetchData(%id, "BotInfoAiName"), 99);
  2510.                                 storeData(%id, "tmpbotdata", "");
  2511.                                
  2512.                                 if(fetchData(%id, "petowner") !$= "")
  2513.                                 {
  2514.                                     storeData(%id, "botAttackMode", 2);
  2515.                                     storeData(%id, "tmpbotdata", fetchData(%id, "petowner"));
  2516.                                 }
  2517.                             }
  2518.                             else {
  2519.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Player must be a bot.");
  2520.                             }
  2521.                         }
  2522.                     }
  2523.                     else {
  2524.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2525.                     }
  2526.                 }
  2527.                
  2528.                 return;
  2529.                
  2530.             case "#createbotgroup":
  2531.                 if(%clientToServerAdminLevel >= 1)
  2532.                 {
  2533.                     if(%cropped $= "") {
  2534.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a one-word BotGroup name.");
  2535.                     }
  2536.                     else
  2537.                     {
  2538.                         if(GetWord(%cropped, 1) $= "")
  2539.                         {
  2540.                             %g = GetWord(%cropped, 0);
  2541.                             %n = AI::CountBotGroupMembers(%g);
  2542.                            
  2543.                             if(!AI::BotGroupExists(%g))
  2544.                             {
  2545.                                 if(!%echoOff) {
  2546.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Created BotGroup '" @ %g @ "'.");
  2547.                                 }
  2548.                                
  2549.                                 AI::CreateBotGroup(%g);
  2550.                             }
  2551.                             else {
  2552.                                 messageClient(%TrueClientId, 'RPGchatCallback', "BotGroup already exists and contains " @ %n @ " members.  Use #discardbotgroup to delete a BotGroup.");
  2553.                             }
  2554.                         }
  2555.                         else {
  2556.                             messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a ONE-WORD BotGroup name.");
  2557.                         }
  2558.                     }
  2559.                 }
  2560.                
  2561.                 return;
  2562.                
  2563.             case "#discardbotgroup":
  2564.                 if(%clientToServerAdminLevel >= 1)
  2565.                 {
  2566.                     if(%cropped $= "") {
  2567.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a one-word BotGroup name.");
  2568.                     }
  2569.                     else
  2570.                     {
  2571.                         if(GetWord(%cropped, 1) $= "")
  2572.                         {
  2573.                             %g = GetWord(%cropped, 0);
  2574.                            
  2575.                             if(AI::BotGroupExists(%g))
  2576.                             {
  2577.                                 if(!%echoOff) {
  2578.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Discarded BotGroup '" @ %g @ "'.");
  2579.                                 }
  2580.                                
  2581.                                 AI::DiscardBotGroup(%g);
  2582.                             }
  2583.                             else {
  2584.                                 messageClient(%TrueClientId, 'RPGchatCallback', "BotGroup does not exist.");
  2585.                             }
  2586.                         }
  2587.                         else {
  2588.                             messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a ONE-WORD BotGroup name.");
  2589.                         }
  2590.                     }
  2591.                 }
  2592.                
  2593.                 return;
  2594.                
  2595.             case "#getbotgroupleader":
  2596.                 if(%clientToServerAdminLevel >= 1)
  2597.                 {
  2598.                     if(%cropped $= "") {
  2599.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a one-word BotGroup name.");
  2600.                     }
  2601.                     else
  2602.                     {
  2603.                         if(GetWord(%cropped, 1) $= "")
  2604.                         {
  2605.                             %g = GetWord(%cropped, 0);
  2606.                            
  2607.                             if(AI::BotGroupExists(%g))
  2608.                             {
  2609.                                 %tl = GetWord($tmpBotGroup[%g], 0);
  2610.                                 %tln = %tl.nameBase;
  2611.                                 messageClient(%TrueClientId, 'RPGchatCallback', "BotGroup leader is " @ %tln @ " (" @ %tl @ ").");
  2612.                             }
  2613.                             else {
  2614.                                 messageClient(%TrueClientId, 'RPGchatCallback', "BotGroup does not exist.");
  2615.                             }
  2616.                         }
  2617.                         else {
  2618.                             messageClient(%TrueClientId, 'RPGchatCallback', "Please specify a ONE-WORD BotGroup name.");
  2619.                         }
  2620.                     }
  2621.                 }
  2622.                
  2623.                 return;
  2624.                
  2625.             case "#botgroup":
  2626.                 if(%clientToServerAdminLevel >= 1)
  2627.                 {
  2628.                     %c1 = GetWord(%cropped, 0);
  2629.                     %c2 = GetWord(%cropped, 1);
  2630.                    
  2631.                     if(%c1 !$= -1 && %c2 !$= -1)
  2632.                     {
  2633.                         %id = getClientByName(%c1);
  2634.                        
  2635.                         if(%id !$= -1)
  2636.                         {
  2637.                             if(%id.isAiControlled())
  2638.                             {
  2639.                                 if(AI::BotGroupExists(%c2))
  2640.                                 {
  2641.                                     %b = AI::IsInWhichBotGroup(%id);
  2642.                                    
  2643.                                     if(%b $= -1)
  2644.                                     {
  2645.                                         if(!%echoOff) {
  2646.                                             messageClient(%TrueClientId, 'RPGchatCallback', "Adding minion " @ %c1 @ " (" @ %id @ ") to BotGroup '" @ %c2 @ "'.");
  2647.                                         }
  2648.                                        
  2649.                                         AI::AddBotToBotGroup(%id, %c2);
  2650.                                     }
  2651.                                     else {
  2652.                                         messageClient(%TrueClientId, 'RPGchatCallback', "This bot already belongs to the BotGroup '" @ %b @ "'.  Use #rbotgroup to remove a bot from a BotGroup.");
  2653.                                     }
  2654.                                 }
  2655.                                 else {
  2656.                                     messageClient(%TrueClientId, 'RPGchatCallback', "BotGroup '" @ %c2 @ "' does not exist.  Use #createbotgroup to create a BotGroup.");
  2657.                                 }
  2658.                             }
  2659.                             else {
  2660.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Name must be a bot.");
  2661.                             }
  2662.                         }
  2663.                         else {
  2664.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2665.                         }
  2666.                     }
  2667.                     else {
  2668.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  2669.                     }
  2670.                 }
  2671.                
  2672.                 return;
  2673.                
  2674.             case "#rbotgroup":
  2675.                 if(%clientToServerAdminLevel >= 1)
  2676.                 {
  2677.                     %c1 = GetWord(%cropped, 0);
  2678.                    
  2679.                     if(%c1 !$= -1)
  2680.                     {
  2681.                         %id = getClientByName(%c1);
  2682.                        
  2683.                         if(%id !$= -1)
  2684.                         {
  2685.                             if(%id.isAiControlled())
  2686.                             {
  2687.                                 %b = AI::IsInWhichBotGroup(%id);
  2688.                                
  2689.                                 if(%b !$= -1)
  2690.                                 {
  2691.                                     if(!%echoOff) {
  2692.                                         messageClient(%TrueClientId, 'RPGchatCallback', "Removing minion " @ %c1 @ " (" @ %id @ ") from BotGroup '" @ %b @ "'.");
  2693.                                     }
  2694.                                    
  2695.                                     AI::RemoveBotFromBotGroup(%id, %b);
  2696.                                 }
  2697.                                 else {
  2698.                                     messageClient(%TrueClientId, 'RPGchatCallback', "This bot does not belong to a BotGroup.");
  2699.                                 }
  2700.                             }
  2701.                             else {
  2702.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Name must be a bot.");
  2703.                             }
  2704.                         }
  2705.                         else {
  2706.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2707.                         }
  2708.                     }
  2709.                     else {
  2710.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  2711.                     }
  2712.                 }
  2713.                
  2714.                 return;
  2715.                
  2716.             case "#listbotgroups":
  2717.                 if(%clientToServerAdminLevel >= 1)
  2718.                 {
  2719.                     messageClient(%TrueClientId, 'RPGchatCallback', $BotGroups);
  2720.                 }
  2721.                
  2722.                 return;
  2723.                
  2724.             case "#setupai":
  2725.                 if(%clientToServerAdminLevel >= 5)
  2726.                 {
  2727.                     for(%i = 0; (%id = GetWord($TownBotList, %i)) !$= ""; %i++) {
  2728.                         deleteObject(%id);
  2729.                     }
  2730.                    
  2731.                     InitTownBots();
  2732.                 }
  2733.                
  2734.                 return;
  2735.                
  2736.             case "#getadmin":
  2737.                 if(%clientToServerAdminLevel >= 1)
  2738.                 {
  2739.                     if(%cropped $= "") {
  2740.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2741.                     }
  2742.                     else
  2743.                     {
  2744.                         %id = getClientByName(%cropped);
  2745.                        
  2746.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2747.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2748.                         }
  2749.                         else if(%id !$= -1)
  2750.                         {
  2751.                             %a = mfloor(%id.adminLevel);
  2752.                             messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ "'s Admin Clearance Level: " @ %a);
  2753.                         }
  2754.                         else {
  2755.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2756.                         }
  2757.                     }
  2758.                 }
  2759.                
  2760.                 return;
  2761.                
  2762.             case "#setadmin":
  2763.                 if(%clientToServerAdminLevel >= 1)
  2764.                 {
  2765.                     %c1 = GetWord(%cropped, 0);
  2766.                     %c2 = GetWord(%cropped, 1);
  2767.                    
  2768.                     if(%c1 !$= -1 && %c2 !$= -1)
  2769.                     {
  2770.                         %id = getClientByName(%c1);
  2771.                        
  2772.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2773.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2774.                         }
  2775.                         else if(%id !$= -1)
  2776.                         {
  2777.                             %a = mfloor(%c2);
  2778.                            
  2779.                             if(%a < 0) {
  2780.                                 %a = 0;
  2781.                             }
  2782.                            
  2783.                             if(%a > %clientToServerAdminLevel) {
  2784.                                 %a = %clientToServerAdminLevel;
  2785.                             }
  2786.                            
  2787.                             %id.adminLevel = %a;
  2788.                            
  2789.                             if(!%echoOff) {
  2790.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Changed " @ %c1 @ " (" @ %id @ ") Admin Clearance Level to " @ %id.adminLevel @ ".");
  2791.                             }
  2792.                         }
  2793.                         else {
  2794.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2795.                         }
  2796.                     }
  2797.                     else {
  2798.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  2799.                     }
  2800.                 }
  2801.                
  2802.                 return;
  2803.                
  2804.             case "#eyes":
  2805.                 if(%cropped $= "") {
  2806.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2807.                 }
  2808.                 else
  2809.                 {
  2810.                     %id = getClientByName(%cropped);
  2811.                    
  2812.                     if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  2813.                     {
  2814.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id !$= %TrueClientId && mfloor(%id.adminLevel) !$= 0) {
  2815.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2816.                         }
  2817.                         else if(%id !$= -1)
  2818.                         {
  2819.                             if(!IsDead(%id))
  2820.                             {
  2821.                                 if(%clientToServerAdminLevel >= 1)
  2822.                                 {
  2823.                                     Revert(%TrueClientId);
  2824.                                    
  2825.                                     //eyes
  2826.                                     //note, AI's don't have a camera...
  2827.                                     if(isObject(%TrueClientId.camera))
  2828.                                     {
  2829.                                         %transform = %id.player.getTransform();
  2830.                                         %TrueClientId.camera.setTransform(%transform);
  2831.                                         %TrueClientId.camera.setOrbitMode(%id.player, %transform, 0.5, 4.5, 4.5);
  2832.                                         %TrueClientId.setControlObject(%TrueClientId.camera);
  2833.                                     }
  2834.                                 }
  2835.                             }
  2836.                             else {
  2837.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Target client is dead.");
  2838.                             }
  2839.                         }
  2840.                         else {
  2841.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2842.                         }
  2843.                     }
  2844.                 }
  2845.                
  2846.                 return;
  2847.                
  2848.             case "#possess":
  2849.                 if(%cropped $= "") {
  2850.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2851.                 }
  2852.                 else
  2853.                 {
  2854.                     %id = getClientByName(%cropped);
  2855.                    
  2856.                     if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  2857.                     {
  2858.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id !$= %TrueClientId && mfloor(%id.adminLevel) !$= 0) {
  2859.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2860.                         }
  2861.                         else if(%id !$= -1)
  2862.                         {
  2863.                             if(!IsDead(%id))
  2864.                             {
  2865.                                 if(%clientToServerAdminLevel >= 4)
  2866.                                 {
  2867.                                     Revert(%TrueClientId);
  2868.                                    
  2869.                                     //possess
  2870.                                     %TrueClientId.possessId = %id;
  2871.                                     %id.possessedBy = %TrueClientId;
  2872.                                     %TrueClientId.setControlObject(%id.player);
  2873.                                 }
  2874.                             }
  2875.                             else {
  2876.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Target client is dead.");
  2877.                             }
  2878.                         }
  2879.                         else {
  2880.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2881.                         }
  2882.                     }
  2883.                 }
  2884.                
  2885.                 return;
  2886.                
  2887.             case "#revert":
  2888.                 if(%TrueClientId.sleepMode $= "")
  2889.                 {
  2890.                     Revert(%TrueClientId);
  2891.                 }
  2892.                
  2893.                 return;
  2894.                
  2895.             case "#fixspellflag":
  2896.                 if(%clientToServerAdminLevel >= 4)
  2897.                 {
  2898.                     if(%cropped $= "") {
  2899.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2900.                     }
  2901.                     else
  2902.                     {
  2903.                         %id = getClientByName(%cropped);
  2904.                        
  2905.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2906.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2907.                         }
  2908.                         else if(%id !$= -1)
  2909.                         {
  2910.                             storeData(%id, "SpellCastStep", "");
  2911.                            
  2912.                             if(!%echoOff) {
  2913.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Spell flag reset.");
  2914.                             }
  2915.                         }
  2916.                         else {
  2917.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2918.                         }
  2919.                     }
  2920.                 }
  2921.                
  2922.                 return;
  2923.                
  2924.             case "#fixbashflag":
  2925.                 if(%clientToServerAdminLevel >= 4)
  2926.                 {
  2927.                     if(%cropped $= "") {
  2928.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  2929.                     }
  2930.                     else
  2931.                     {
  2932.                         %id = getClientByName(%cropped);
  2933.                        
  2934.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2935.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2936.                         }
  2937.                         else if(%id !$= -1)
  2938.                         {
  2939.                             storeData(%id, "blockBash", "");
  2940.                            
  2941.                             if(!%echoOff) {
  2942.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Bash flag reset.");
  2943.                             }
  2944.                         }
  2945.                         else {
  2946.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2947.                         }
  2948.                     }
  2949.                 }
  2950.                
  2951.                 return;
  2952.                
  2953.             case "#kick":
  2954.                 if(%clientToServerAdminLevel >= 2)
  2955.                 {
  2956.                     %c1 = GetWord(%cropped, 0);
  2957.                     %c2 = GetWord(%cropped, 1);
  2958.                    
  2959.                     if(%c2 $= -1) {
  2960.                         %c2 = false;
  2961.                     }
  2962.                    
  2963.                     if(%c1 !$= -1)
  2964.                     {
  2965.                         %id = getClientByName(%c1);
  2966.                        
  2967.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2968.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2969.                         }
  2970.                         else if(%id !$= -1)
  2971.                         {
  2972.                             %id.setDisconnectReason("You have been kicked out of the game.");
  2973.                             savecharacter(%id);
  2974.                             %id.schedule(700, "delete");
  2975.                         }
  2976.                         else {
  2977.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  2978.                         }
  2979.                     }
  2980.                     else {
  2981.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  2982.                     }
  2983.                 }
  2984.                
  2985.                 return;
  2986.                
  2987.             case "#kickid":
  2988.                 if(%clientToServerAdminLevel >= 2)
  2989.                 {
  2990.                     %id = GetWord(%cropped, 0);
  2991.                     %c2 = GetWord(%cropped, 1);
  2992.                    
  2993.                     if(%c2 $= -1) {
  2994.                         %c2 = false;
  2995.                     }
  2996.                    
  2997.                     if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  2998.                         messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  2999.                     }
  3000.                     else if(%id !$= -1) {
  3001.                         Admin::Kick(%TrueClientId, %id, %c2);
  3002.                     }
  3003.                     else {
  3004.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify clientId & data.");
  3005.                     }
  3006.                 }
  3007.                
  3008.                 return;
  3009.                
  3010.             case "#ban":
  3011.                 if(%clienttoserverAdminLevel >= 3)
  3012.                 {
  3013.                     %absolute = false;
  3014.                     %c1 = GetWord(%cropped, 0);
  3015.                     %c2 = GetWord(%cropped, 1);
  3016.                    
  3017.                     if(%c2 $= "absolute" && %clientToServerAdminLevel >= 5) {
  3018.                         %absolute = true;
  3019.                     }
  3020.                    
  3021.                     if(%c2 <= 0) {
  3022.                         %c2 = $host::bantime;
  3023.                     }
  3024.                    
  3025.                     if(%c2 > $Host::MaxBanTime) {
  3026.                         %c2 = $Host::MaxBanTime;
  3027.                     }
  3028.                    
  3029.                     %bantime = %c2;
  3030.                     echo("absolute:" SPC %absolute);
  3031.                    
  3032.                     if(%c1 !$= -1)
  3033.                     {
  3034.                         %id = getClientByName(%c1);
  3035.                        
  3036.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3037.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3038.                         }
  3039.                         else if(%id !$= -1)
  3040.                         {
  3041.                             %id.setDisconnectReason("You have been banned.");
  3042.                             savecharacter(%id);
  3043.                             %id.schedule(700, "delete");
  3044.                            
  3045.                             if(%absolute)
  3046.                             {
  3047.                                 BanList::Addabsolute(%id.guid, %id.getAddress(), mpow(2,32)-1);
  3048.                                 BanList::Add(%id.guid, %id.getAddress(), 60*60*24*7);
  3049.                                 echo("ABSOLUTE BAN");
  3050.                             }
  3051.                             else {
  3052.                                 BanList::add(%id.guid, %id.getAddress(),%bantime);
  3053.                             }
  3054.                         }
  3055.                         else {
  3056.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3057.                         }
  3058.                     }
  3059.                     else {
  3060.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3061.                     }
  3062.                    
  3063.                 }
  3064.                
  3065.             case "#admin":
  3066.                 if($Host::UseSanctionedAdmin)
  3067.                 {
  3068.                     for(%ii = 0; (%cguid = GetWord($SanctionedAdminList,%ii)) !$= ""; %ii = %ii+2)
  3069.                     {
  3070.                         if(%cguid == %TrueClientId.guid)
  3071.                         {
  3072.                             %TrueClientId.adminLevel = GetWord($SanctionedAdminList,%ii+1);
  3073.                            
  3074.                             if(%TrueClientId.adminLevel >= 4) {
  3075.                                 ChangeRace(%TrueClientId, "DeathKnight");
  3076.                             }
  3077.                            
  3078.                             if(!%echoOff) {
  3079.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Admin Clearance Level " @ %TrueClientId.adminLevel @ " Granted.");
  3080.                             }
  3081.                            
  3082.                         }
  3083.                     }
  3084.                 }
  3085.                 else
  3086.                 {
  3087.                     for(%i = 1; %i <= 8; %i++)
  3088.                     {
  3089.                         if(%cropped $= $AdminPassword[%i] && $AdminPassword[%i] !$= "")
  3090.                         {
  3091.                             %TrueClientId.adminLevel = %i;
  3092.                            
  3093.                             if(%TrueClientId.adminLevel >= 4) {
  3094.                                 ChangeRace(%TrueClientId, "DeathKnight");
  3095.                             }
  3096.                            
  3097.                             if(!%echoOff) {
  3098.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Password accepted for Admin Clearance Level " @ %TrueClientId.adminLevel @ ".");
  3099.                             }
  3100.                            
  3101.                             break;
  3102.                         }
  3103.                     }
  3104.                 }
  3105.                
  3106.                 return;
  3107.                
  3108.             case "#human":
  3109.                 if(%clientToServerAdminLevel >= 4) {
  3110.                     ChangeRace(%TrueClientId, "Human");
  3111.                 }
  3112.                
  3113.                 return;
  3114.                
  3115.             case "#loadworld":
  3116.                 if(%clientToServerAdminLevel >= 5)
  3117.                 {
  3118.                     if(%cropped $= "") {
  3119.                         LoadWorld();
  3120.                     }
  3121.                     else {
  3122.                         messageClient(%TrueClientId, 'RPGchatCallback', "Do not use parameters for this function call.");
  3123.                     }
  3124.                 }
  3125.                
  3126.                 return;
  3127.                
  3128.             case "#saveworld":
  3129.                 if(%clientToServerAdminLevel >= 4)
  3130.                 {
  3131.                     if(%cropped $= "") {
  3132.                         SaveWorld();
  3133.                     }
  3134.                     else {
  3135.                         messageClient(%TrueClientId, 'RPGchatCallback', "Do not use parameters for this function call.");
  3136.                     }
  3137.                 }
  3138.                
  3139.                 return;
  3140.                
  3141.             case "#loadcharacter":
  3142.                 if(%clientToServerAdminLevel >= 4)
  3143.                 {
  3144.                     if(%cropped $= "") {
  3145.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify clientId.");
  3146.                     }
  3147.                     else {
  3148.                         LoadCharacter(%cropped);
  3149.                     }
  3150.                 }
  3151.                
  3152.                 return;
  3153.                
  3154.             case "#item":
  3155.                 return;
  3156.                
  3157.                 if(%clientToServerAdminLevel >= 2)
  3158.                 {
  3159.                     %name = GetWord(%cropped, 0);
  3160.                    
  3161.                     %id = getClientByName(%name);
  3162.                    
  3163.                     if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3164.                         messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3165.                     }
  3166.                     else if(%id !$= -1)
  3167.                     {
  3168.                         Player::setItemCount(%id, GetWord(%cropped, 1), GetWord(%cropped, 2));
  3169.                         RefreshAll(%id);
  3170.                        
  3171.                         if(!%echoOff) {
  3172.                             messageClient(%TrueClientId, 'RPGchatCallback', "Set " @ %name @ " (" @ %id @ ") " @ GetWord(%cropped, 1) @ " count to " @ GetWord(%cropped, 2));
  3173.                         }
  3174.                     }
  3175.                     else {
  3176.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3177.                     }
  3178.                 }
  3179.                
  3180.                 return;
  3181.                
  3182.             case "#getitemcount":
  3183.                 if(%clientToServerAdminLevel >= 1)
  3184.                 {
  3185.                     %id = getClientByName(GetWord(%cropped, 0));
  3186.                    
  3187.                     if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3188.                         messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3189.                     }
  3190.                     else if(%id !$= -1)
  3191.                     {
  3192.                         %c = Player::getItemCount(%id, GetWord(%cropped, 1));
  3193.                         messageClient(%TrueClientId, 'RPGchatCallback', "Item count for (" @ %id @ ") " @ GetWord(%cropped, 1) @ " is " @ %c);
  3194.                     }
  3195.                     else {
  3196.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3197.                     }
  3198.                 }
  3199.                
  3200.                 return;
  3201.                
  3202.             case "#myitem":
  3203.                 if(%clientToServerAdminLevel >= 2)
  3204.                 {
  3205.                     if(GetWord(%cropped, 0) !$= "")
  3206.                     {
  3207.                         %item = GetWord(%cropped, 0);
  3208.                         %amt = GetWord(%cropped, 1);
  3209.                         %prefix = GetWord(%cropped, 2);
  3210.                         %suffix = GetWord(%cropped, 3);
  3211.                        
  3212.                         if(%prefix == 0) {
  3213.                             %prefix = 3;
  3214.                         }
  3215.                        
  3216.                         if(%suffix == 0) {
  3217.                             %suffix = 1;
  3218.                         }
  3219.                        
  3220.                         if(%amt == 0) {
  3221.                             %amt = 1;
  3222.                         }
  3223.                        
  3224.                         //Player::setItemCount(%TrueClientId, GetWord(%cropped, 0), GetWord(%cropped, 1));
  3225.                         //AddToInventory(%TrueClientID, CreateItem( GetWord(%cropped, 0), (GetWord(%cropped, 1) $= "" ? 3 : GetWord(%cropped, 1) ), ( GetWord(%cropped, 2) $= "" ? 1 : GetWord(%cropped, 2) )));
  3226.                         Game.AddToInventory(%TrueClientID, %amt, %item, %prefix, %suffix);
  3227.                         RefreshAll(%TrueClientId);
  3228.                        
  3229.                         if(!%echoOff) {
  3230.                             messageClient(%TrueClientId, 'RPGchatCallback', "Gave " @ %TCsenderName @ " (" @ %TrueClientId @ ") " @ %amt SPC %item SPC "Prefix:" SPC %prefix SPC "Suffix:" SPC %suffix @ ".");
  3231.                         }
  3232.                     }
  3233.                     else {
  3234.                         messageClient(%TrueCientId, 'RPGchatCallback', "Useage: #myitem itemname [amt] [prefix] [suffix]. Prefix and suffix are a number 1-6. (3 is normal for prefix 1 is normal for suffix)");
  3235.                     }
  3236.                 }
  3237.                
  3238.                 return;
  3239.                
  3240.             case "#arenacutshort":
  3241.                 if(%clientToServerAdminLevel >= 1)
  3242.                 {
  3243.                     $IsABotMatch = true;
  3244.                     $ArenaBotMatchTicker = $ArenaBotMatchLengthInTicks;
  3245.                 }
  3246.                
  3247.                 return;
  3248.                
  3249.             case "#teleport":
  3250.                 if(%clientToServerAdminLevel >= 2)
  3251.                 {
  3252.                     if(%cropped $= "") {
  3253.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3254.                     }
  3255.                     else
  3256.                     {
  3257.                         %id = getClientByName(%cropped);
  3258.                        
  3259.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3260.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3261.                         }
  3262.                         else if(%id !$= -1)
  3263.                         {
  3264.                             getLOSinfo(%TrueClientId, 50000);
  3265.                            
  3266.                             if(%id.player.ismounted())
  3267.                             {
  3268.                                 //unmount the player
  3269.                                 %id.player.getobjectMount().unmountobject(%id.player);
  3270.                                 %id.player.setcontrolobject(0);
  3271.                             }
  3272.                            
  3273.                             %id.player.setPosition($los::position);
  3274.                            
  3275.                             CheckAndBootFromArena(%id);
  3276.                            
  3277.                             if(!%echoOff) {
  3278.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Teleporting " @ %cropped @ " (" @ %id @ ") to " @ $los::position @ ".");
  3279.                             }
  3280.                         }
  3281.                         else {
  3282.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3283.                         }
  3284.                     }
  3285.                 }
  3286.                
  3287.                 return;
  3288.                
  3289.             case "#teleport2":
  3290.                 if(%clientToServerAdminLevel >= 2)
  3291.                 {
  3292.                     %c1 = GetWord(%cropped, 0);
  3293.                     %c2 = GetWord(%cropped, 1);
  3294.                    
  3295.                     if(%c1 !$= -1 && %c2 !$= -1)
  3296.                     {
  3297.                         %id1 = getClientByName(%c1);
  3298.                         %id2 = getClientByName(%c2);
  3299.                        
  3300.                         if(mfloor(%id1.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id1 !$= %TrueClientId) {
  3301.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3302.                         }
  3303.                         else if(%id1 !$= -1 && %id2 !$= -1)
  3304.                         {
  3305.                             if(!%echoOff) {
  3306.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Teleporting " @ %c1 @ " (" @ %id1 @ ") to " @ %c2 @ " (" @ %id2 @ ").");
  3307.                             }
  3308.                            
  3309.                             %id1.player.setPosition(%id2.player.getPosition());
  3310.                            
  3311.                             CheckAndBootFromArena(%id1);
  3312.                         }
  3313.                         else {
  3314.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name(s).");
  3315.                         }
  3316.                     }
  3317.                     else {
  3318.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3319.                     }
  3320.                 }
  3321.                
  3322.                 return;
  3323.                
  3324.             case "#follow":
  3325.                 if(%clientToServerAdminLevel >= 1)
  3326.                 {
  3327.                     %c1 = GetWord(%cropped, 0);
  3328.                     %c2 = GetWord(%cropped, 1);
  3329.                    
  3330.                     if(%c1 !$= -1 && %c2 !$= -1)
  3331.                     {
  3332.                         %id1 = getClientByName(%c1);
  3333.                         %id2 = getClientByName(%c2);
  3334.                        
  3335.                         if(%id1 !$= -1 && %id2 !$= -1)
  3336.                         {
  3337.                             if(%id1.isAiControlled())
  3338.                             {
  3339.                                 if(!%echoOff) {
  3340.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Making " @ %c1 @ " (" @ %id1 @ ") follow " @ %c2 @ " (" @ %id2 @ ").");
  3341.                                 }
  3342.                                
  3343.                                 %event = strstr(%cropped, ">");
  3344.                                
  3345.                                 if(%event !$= -1)
  3346.                                 {
  3347.                                     %cmd = getsubstr(%cropped, %event, 99999);
  3348.                                     AddEventCommand(%id1, %senderName, "onIdCloseEnough " @ %id2, %cmd);
  3349.                                 }
  3350.                                
  3351.                                 storeData(%id1, "tmpbotdata", %id2);
  3352.                                 storeData(%id1, "botAttackMode", 2);
  3353.                             }
  3354.                             else {
  3355.                                 messageClient(%TrueClientId, 'RPGchatCallback', "First name must be a bot.");
  3356.                             }
  3357.                         }
  3358.                         else {
  3359.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name(s).");
  3360.                         }
  3361.                     }
  3362.                     else {
  3363.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3364.                     }
  3365.                 }
  3366.                
  3367.                 return;
  3368.                
  3369.             case "#cancelfollow":
  3370.                 if(%clientToServerAdminLevel >= 1)
  3371.                 {
  3372.                     if(%cropped !$= -1)
  3373.                     {
  3374.                         %id = getClientByName(%cropped);
  3375.                        
  3376.                         if(%id !$= -1)
  3377.                         {
  3378.                             if(%id.isAiControlled())
  3379.                             {
  3380.                                 AI::newDirectiveRemove(fetchData(%id, "BotInfoAiName"), 99);
  3381.                                
  3382.                                 if(!%echoOff) {
  3383.                                     messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " (" @ %id @ ") has stopped following its target.");
  3384.                                 }
  3385.                             }
  3386.                             else {
  3387.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Player must be a bot.");
  3388.                             }
  3389.                         }
  3390.                         else {
  3391.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3392.                         }
  3393.                     }
  3394.                     else {
  3395.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3396.                     }
  3397.                 }
  3398.                
  3399.                 return;
  3400.                
  3401.             case "#freeze":
  3402.                 if(%cropped !$= -1)
  3403.                 {
  3404.                     %id = getClientByName(%cropped);
  3405.                    
  3406.                     if(%id !$= -1)
  3407.                     {
  3408.                         if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  3409.                         {
  3410.                             if(!%echoOff) {
  3411.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Freezing " @ %cropped @ " (" @ %id @ ").");
  3412.                             }
  3413.                            
  3414.                             %id.setControlObject(%id.camera);
  3415.                             storeData(%id, "frozen", true);
  3416.                            
  3417.                             if(%id.isAiControlled())
  3418.                             {
  3419.                                 //bot hack
  3420.                                 %tmp = %id.player;
  3421.                                 %client.setControlObject(%id.player);
  3422.                                 %client.setControlObject(%client.player);
  3423.                                 %id.player = %tmp;
  3424.                             }
  3425.                         }
  3426.                     }
  3427.                     else {
  3428.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3429.                     }
  3430.                 }
  3431.                 else {
  3432.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3433.                 }
  3434.                
  3435.                 return;
  3436.                
  3437.             case "#cancelfreeze":
  3438.                 if(%cropped !$= -1)
  3439.                 {
  3440.                     %id = getClientByName(%cropped);
  3441.                    
  3442.                     if(%id !$= -1)
  3443.                     {
  3444.                         if(IsInCommaList(fetchData(%TrueClientId, "PersonalPetList"), %id) || %clientToServerAdminLevel >= 1)
  3445.                         {
  3446.                             if(!%echoOff) {
  3447.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " (" @ %id @ ") is no longer frozen.");
  3448.                             }
  3449.                            
  3450.                             %id.setControlObject(%id.player);
  3451.                             storeData(%id, "frozen", "");
  3452.                         }
  3453.                     }
  3454.                     else {
  3455.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3456.                     }
  3457.                 }
  3458.                 else {
  3459.                     messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3460.                 }
  3461.                
  3462.                 return;
  3463.                
  3464.             case "#kill":
  3465.                 if(%clientToServerAdminLevel >= 2)
  3466.                 {
  3467.                     if(%cropped !$= -1)
  3468.                     {
  3469.                         %id = getClientByName(%cropped);
  3470.                        
  3471.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3472.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3473.                         }
  3474.                         else if(%id !$= -1)
  3475.                         {
  3476.                             %id.player.scriptKill(0);
  3477.                            
  3478.                             if(!%echoOff) {
  3479.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " (" @ %id @ ") was executed.");
  3480.                             }
  3481.                         }
  3482.                         else if(!%echoOff) {
  3483.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3484.                         }
  3485.                     }
  3486.                     else {
  3487.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3488.                     }
  3489.                 }
  3490.                
  3491.                 return;
  3492.                
  3493.             case "#clearchar":
  3494.                 if(%clientToServerAdminLevel >= 5)
  3495.                 {
  3496.                     if(%cropped !$= -1)
  3497.                     {
  3498.                         %id = getClientByName(%cropped);
  3499.                        
  3500.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3501.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3502.                         }
  3503.                         else if(%id !$= -1)
  3504.                         {
  3505.                             %id.player.scriptKill(0);
  3506.                             ResetPlayer(%id);
  3507.                            
  3508.                             if(!%echoOff) {
  3509.                                 messageClient(%TrueClientId, 'RPGchatCallback', %cropped @ " (" @ %id @ ") profile was RESET.");
  3510.                             }
  3511.                         }
  3512.                         else {
  3513.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3514.                         }
  3515.                     }
  3516.                     else {
  3517.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3518.                     }
  3519.                 }
  3520.                
  3521.                 return;
  3522.         }
  3523.        
  3524.         //another break...
  3525.         switch$(%w1)
  3526.         {
  3527.             case "#spawn":
  3528.                 if(%clientToServerAdminLevel >= 3)
  3529.                 {
  3530.                     if(%cropped $= "") {
  3531.                         messageClient(%TrueClientId, 'RPGchatCallback', "syntax: #spawn botType displayName loadout [team] [x] [y] [z]");
  3532.                     }
  3533.                     else
  3534.                     {
  3535.                         %event = strstr(%cropped, ">");
  3536.                        
  3537.                         if(%event !$= -1)
  3538.                         {
  3539.                             %info = getsubstr(%cropped, 0, %event);
  3540.                             %cmd = getsubstr(%cropped, %event, 99999);
  3541.                         }
  3542.                         else {
  3543.                             %info = %cropped;
  3544.                         }
  3545.                        
  3546.                         %c1 = GetWord(%info, 0);
  3547.                         %c2 = GetWord(%info, 1);
  3548.                         %loadout = GetWord(%info, 2);
  3549.                         %team = GetWord(%info, 3);
  3550.                         %ox = GetWord(%info, 4);
  3551.                         %oy = GetWord(%info, 5);
  3552.                         %oz = GetWord(%info, 6);
  3553.                        
  3554.                         if(%c1 !$= -1 && %c2 !$= -1 && %loadout !$= -1)
  3555.                         {
  3556.                             if(getClientByName(%c2) $= -1)
  3557.                             {
  3558.                                 if(%ox $= -1 && %oy $= -1 && %oz $= -1)
  3559.                                 {
  3560.                                     %player = %TrueClientId.player;
  3561.                                     getLOSinfo(%TrueClientId, 50000);
  3562.                                     %lospos = $los::position;
  3563.                                 }
  3564.                                 else {
  3565.                                     %lospos = %ox @ " " @ %oy @ " " @ %oz;
  3566.                                 }
  3567.                                
  3568.                                 if(%team $= -1) {
  3569.                                     %team = 1;
  3570.                                 }
  3571.                                
  3572.                                 //%n = AI::helper(%c1, %c2, "TempSpawn " @ %lospos @ " " @ %team, %loadout);
  3573.                                 //%id = AI::getId(%n);
  3574.                                 %id = aiconnect(%c2, %team);
  3575.                                
  3576.                                 if(%event !$= -1) {
  3577.                                     AddEventCommand(%id, %senderName, "onkill", %cmd);
  3578.                                 }
  3579.                                
  3580.                                 if(!%echoOff) {
  3581.                                     messageClient(%TrueClientId, 'RPGchatCallback', "Spawned " @ %c2 @ " (" @ %id @ ") at " @ %id.player.getPosition() @ ".");
  3582.                                 }
  3583.                             }
  3584.                             else if(!%echoOff) {
  3585.                                 messageClient(%TrueClientId, 'RPGchatCallback', %c2 @ " already exists.");
  3586.                             }
  3587.                         }
  3588.                         else {
  3589.                             messageClient(%TrueClientId, 'RPGchatCallback', "syntax: #spawn botType displayName loadout [team] [x] [y] [z]");
  3590.                         }
  3591.                     }
  3592.                 }
  3593.                
  3594.                 return;
  3595.                
  3596.             case "#playanim":
  3597.                 if(%clientToServerAdminLevel >= 5)
  3598.                 {
  3599.                     if(%cropped $= "") {
  3600.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify animation.");
  3601.                     }
  3602.                     else
  3603.                     {
  3604.                         %anim = GetWord(%cropped, 0);
  3605.                         %sound = GetWord(%cropped, 1);
  3606.                        
  3607.                         if(%sound != -1 && %sound !$= "")
  3608.                         {
  3609.                        
  3610.                        
  3611.                         }
  3612.                        
  3613.                     }
  3614.                 }
  3615.                
  3616.                 return;
  3617.                
  3618.             case "#spawntestplayer":
  3619.                 if(%clientToServerAdminLevel >= 5)
  3620.                 {
  3621.                     if(%cropped $= "") {
  3622.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify animation.");
  3623.                     }
  3624.                     else
  3625.                     {
  3626.                         %tplayer = %cropped;
  3627.                        
  3628.                        
  3629.                     }
  3630.                 }
  3631.                
  3632.                 return;
  3633.                
  3634.             case "#gettransform":
  3635.                 if(%clienttoserverAdminLevel >=1)
  3636.                 {
  3637.                     if(%cropped $= "") {
  3638.                         messageClient(%TrueClientId, 'RPGchatCallback', "Transform" SPC %TrueClientID.player.getTransform());
  3639.                     }
  3640.                    
  3641.                 }
  3642.                
  3643.                 return;
  3644.                
  3645.         }
  3646.        
  3647.         //there appears to be a limit of ~74 cases per switch
  3648.         switch$(%w1)
  3649.         {
  3650.             case "#fell":
  3651.                 if(%clientToServerAdminLevel >= 2)
  3652.                 {
  3653.                     if(%cropped $= "") {
  3654.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3655.                     }
  3656.                     else
  3657.                     {
  3658.                         %id = getClientByName(%cropped);
  3659.                        
  3660.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3661.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3662.                         }
  3663.                         else if(%id !$= -1)
  3664.                         {
  3665.                             if(!%echoOff) {
  3666.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Processing fell-off-map for " @ %cropped @ " (" @ %id @ ")");
  3667.                             }
  3668.                            
  3669.                             //Zone::handleTeleport(fetchdata(%id, "zone"), %id);
  3670.                             FellOffMap(%id);
  3671.                         }
  3672.                         else {
  3673.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3674.                         }
  3675.                     }
  3676.                 }
  3677.                
  3678.                 return;
  3679.                
  3680.             case "#getstorage":
  3681.                 if(%clientToServerAdminLevel >= 1)
  3682.                 {
  3683.                     if(%cropped $= "") {
  3684.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3685.                     }
  3686.                     else
  3687.                     {
  3688.                         %id = getClientByName(%cropped);
  3689.                        
  3690.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3691.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3692.                         }
  3693.                         else if(%id !$= -1)
  3694.                         {
  3695.                             messageClient(%TrueClientId, 'RPGchatCallback', %id @ ": " @ fetchData(%id, "BankStorage"));
  3696.                         }
  3697.                         else {
  3698.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3699.                         }
  3700.                     }
  3701.                 }
  3702.                
  3703.                 return;
  3704.                
  3705.             case "#clearstorage":
  3706.                 if(%clientToServerAdminLevel >= 4)
  3707.                 {
  3708.                     if(%cropped $= "") {
  3709.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name.");
  3710.                     }
  3711.                     else
  3712.                     {
  3713.                         %id = getClientByName(%cropped);
  3714.                        
  3715.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3716.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3717.                         }
  3718.                         else if(%id !$= -1)
  3719.                         {
  3720.                             storeData(%id, "BankStorage", "");
  3721.                            
  3722.                             if(!%echoOff) {
  3723.                                 messageClient(%TrueClientId, 'RPGchatCallback', %id @ " bank storage cleared.");
  3724.                             }
  3725.                         }
  3726.                         else {
  3727.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3728.                         }
  3729.                     }
  3730.                 }
  3731.                
  3732.                 return;
  3733.                
  3734.             case "#setstorage":
  3735.                 if(%clientToServerAdminLevel >= 4)
  3736.                 {
  3737.                     %name = GetWord(%cropped, 0);
  3738.                    
  3739.                     %id = getClientByName(%name);
  3740.                    
  3741.                     if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3742.                         messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3743.                     }
  3744.                     else if(%id !$= -1)
  3745.                     {
  3746.                         storeData(%id, "BankStorage", SetStuffString(fetchData(%id, "BankStorage"), GetWord(%cropped, 1), GetWord(%cropped, 2)));
  3747.                        
  3748.                         if(!%echoOff) {
  3749.                             messageClient(%TrueClientId, 'RPGchatCallback', %id @ " bank storage modified. Use #getstorage [name] to view.");
  3750.                         }
  3751.                     }
  3752.                     else {
  3753.                         messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3754.                     }
  3755.                 }
  3756.                
  3757.                 return;
  3758.                
  3759.             case "#addsp":
  3760.                 if(%clientToServerAdminLevel >= 3)
  3761.                 {
  3762.                     %c1 = GetWord(%cropped, 0);
  3763.                     %c2 = GetWord(%cropped, 1);
  3764.                    
  3765.                     if(%c1 !$= -1 && %c2 !$= -1)
  3766.                     {
  3767.                         %id = getClientByName(%c1);
  3768.                        
  3769.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3770.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3771.                         }
  3772.                         else if(%id !$= -1)
  3773.                         {
  3774.                             storeData(%id, "SP", %c2, "inc");
  3775.                             RefreshAll(%id);
  3776.                            
  3777.                             if(!%echoOff) {
  3778.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") SP credits to " @ fetchData(%id, "SP") @ ".");
  3779.                             }
  3780.                         }
  3781.                         else {
  3782.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3783.                         }
  3784.                     }
  3785.                     else {
  3786.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3787.                     }
  3788.                 }
  3789.                
  3790.                 return;
  3791.                
  3792.             case "#setsp":
  3793.                 if(%clientToServerAdminLevel >= 3)
  3794.                 {
  3795.                     %c1 = GetWord(%cropped, 0);
  3796.                     %c2 = GetWord(%cropped, 1);
  3797.                    
  3798.                     if(%c1 !$= -1 && %c2 !$= -1)
  3799.                     {
  3800.                         %id = getClientByName(%c1);
  3801.                        
  3802.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3803.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3804.                         }
  3805.                         else if(%id !$= -1)
  3806.                         {
  3807.                             storeData(%id, "SP", %c2);
  3808.                             RefreshAll(%id);
  3809.                            
  3810.                             if(!%echoOff) {
  3811.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") SP credits to " @ fetchData(%id, "SP") @ ".");
  3812.                             }
  3813.                         }
  3814.                         else {
  3815.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3816.                         }
  3817.                     }
  3818.                     else {
  3819.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3820.                     }
  3821.                 }
  3822.                
  3823.                 return;
  3824.                
  3825.             case "#addlck":
  3826.                 if(%clientToServerAdminLevel >= 3)
  3827.                 {
  3828.                     %c1 = GetWord(%cropped, 0);
  3829.                     %c2 = GetWord(%cropped, 1);
  3830.                    
  3831.                     if(%c1 !$= "" && %c2 !$= "")
  3832.                     {
  3833.                         %id = getClientByName(%c1);
  3834.                        
  3835.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3836.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3837.                         }
  3838.                         else if(%id !$= -1)
  3839.                         {
  3840.                             storeData(%id, "LCK", %c2, "inc");
  3841.                             RefreshAll(%id);
  3842.                            
  3843.                             if(!%echoOff) {
  3844.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") base LCK to " @ fetchData(%id, "LCK") @ ".");
  3845.                             }
  3846.                         }
  3847.                         else {
  3848.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3849.                         }
  3850.                     }
  3851.                     else {
  3852.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3853.                     }
  3854.                 }
  3855.                
  3856.                 return;
  3857.                
  3858.             case "#sethp":
  3859.                 if(%clientToServerAdminLevel >= 2)
  3860.                 {
  3861.                     %c1 = GetWord(%cropped, 0);
  3862.                     %c2 = GetWord(%cropped, 1);
  3863.                    
  3864.                     if(%c1 !$= -1 && %c2 !$= -1)
  3865.                     {
  3866.                         %id = getClientByName(%c1);
  3867.                        
  3868.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3869.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3870.                         }
  3871.                         else if(%id !$= -1)
  3872.                         {
  3873.                             %max = fetchData(%id, "MaxHP");
  3874.                            
  3875.                             if(%c2 < 1) {
  3876.                                 %c2 = 1;
  3877.                             }
  3878.                             else if(%c2 > %max) {
  3879.                                 %c2 = %max;
  3880.                             }
  3881.                            
  3882.                             setHP(%id, %c2);
  3883.                            
  3884.                             if(!%echoOff) {
  3885.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") HP to " @ fetchData(%id, "HP") @ ".");
  3886.                             }
  3887.                         }
  3888.                         else {
  3889.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3890.                         }
  3891.                     }
  3892.                     else {
  3893.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3894.                     }
  3895.                 }
  3896.                
  3897.                 return;
  3898.                
  3899.             case "#setmana":
  3900.                 if(%clientToServerAdminLevel >= 2)
  3901.                 {
  3902.                     %c1 = GetWord(%cropped, 0);
  3903.                     %c2 = GetWord(%cropped, 1);
  3904.                    
  3905.                     if(%c1 !$= -1 && %c2 !$= -1)
  3906.                     {
  3907.                         %id = getClientByName(%c1);
  3908.                        
  3909.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3910.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3911.                         }
  3912.                         else if(%id !$= -1)
  3913.                         {
  3914.                             %max = fetchData(%id, "MaxMANA");
  3915.                            
  3916.                             if(%c2 < 0) {
  3917.                                 %c2 = 0;
  3918.                             }
  3919.                             else if(%c2 > %max) {
  3920.                                 %c2 = %max;
  3921.                             }
  3922.                            
  3923.                             setMANA(%id, %c2);
  3924.                            
  3925.                             if(!%echoOff) {
  3926.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") MANA to " @ fetchData(%id, "MANA") @ ".");
  3927.                             }
  3928.                         }
  3929.                         else {
  3930.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3931.                         }
  3932.                     }
  3933.                     else {
  3934.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3935.                     }
  3936.                 }
  3937.                
  3938.                 return;
  3939.                
  3940.             case "#addexp":
  3941.                 if(%clientToServerAdminLevel >= 3)
  3942.                 {
  3943.                     %c1 = GetWord(%cropped, 0);
  3944.                     %c2 = GetWord(%cropped, 1);
  3945.                    
  3946.                     if(%c1 !$= -1 && %c2 !$= -1)
  3947.                     {
  3948.                         %id = getClientByName(%c1);
  3949.                        
  3950.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3951.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3952.                         }
  3953.                         else if(%id !$= -1)
  3954.                         {
  3955.                             storeData(%id, "EXP", %c2, "inc");
  3956.                            
  3957.                             if(%id.isAiControlled()) {
  3958.                                 HardcodeAIskills(%id);
  3959.                             }
  3960.                            
  3961.                             RefreshExp(%id);
  3962.                            
  3963.                             if(!%echoOff) {
  3964.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") EXP to " @ fetchData(%id, "EXP") @ ".");
  3965.                             }
  3966.                         }
  3967.                         else {
  3968.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  3969.                         }
  3970.                     }
  3971.                     else {
  3972.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  3973.                     }
  3974.                 }
  3975.                
  3976.                 return;
  3977.                
  3978.             case "#setexp":
  3979.                 if(%clientToServerAdminLevel >= 3)
  3980.                 {
  3981.                     %c1 = GetWord(%cropped, 0);
  3982.                     %c2 = GetWord(%cropped, 1);
  3983.                    
  3984.                     if(%c1 !$= -1 && %c2 !$= -1)
  3985.                     {
  3986.                         %id = getClientByName(%c1);
  3987.                        
  3988.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  3989.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  3990.                         }
  3991.                         else if(%id !$= -1)
  3992.                         {
  3993.                             storeData(%id, "EXP", %c2);
  3994.                             RefreshExp(%id);
  3995.                            
  3996.                             if(!%echoOff) {
  3997.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") EXP to " @ fetchData(%id, "EXP") @ ".");
  3998.                             }
  3999.                         }
  4000.                         else {
  4001.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  4002.                         }
  4003.                     }
  4004.                     else {
  4005.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  4006.                     }
  4007.                 }
  4008.                
  4009.                 return;
  4010.                
  4011.             case "#addcoins":
  4012.                 if(%clientToServerAdminLevel >= 2)
  4013.                 {
  4014.                     %c1 = GetWord(%cropped, 0);
  4015.                     %c2 = GetWord(%cropped, 1);
  4016.                    
  4017.                     if(%c1 !$= -1 && %c2 !$= -1)
  4018.                     {
  4019.                         %id = getClientByName(%c1);
  4020.                        
  4021.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  4022.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  4023.                         }
  4024.                         else if(%id !$= -1)
  4025.                         {
  4026.                             storeData(%id, "COINS", %c2, "inc");
  4027.                             RefreshAll(%id);
  4028.                            
  4029.                             if(!%echoOff) {
  4030.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") COINS to " @ fetchData(%id, "COINS") @ ".");
  4031.                             }
  4032.                         }
  4033.                         else {
  4034.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  4035.                         }
  4036.                     }
  4037.                     else {
  4038.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  4039.                     }
  4040.                 }
  4041.                
  4042.                 return;
  4043.                
  4044.             case "#addbank":
  4045.                 if(%clientToServerAdminLevel >= 2)
  4046.                 {
  4047.                     %c1 = GetWord(%cropped, 0);
  4048.                     %c2 = GetWord(%cropped, 1);
  4049.                    
  4050.                     if(%c1 !$= -1 && %c2 !$= -1)
  4051.                     {
  4052.                         %id = getClientByName(%c1);
  4053.                        
  4054.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  4055.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  4056.                         }
  4057.                         else if(%id !$= -1)
  4058.                         {
  4059.                             storeData(%id, "BANK", %c2, "inc");
  4060.                             RefreshAll(%id);
  4061.                            
  4062.                             if(!%echoOff) {
  4063.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") BANK to " @ fetchData(%id, "BANK") @ ".");
  4064.                             }
  4065.                         }
  4066.                         else {
  4067.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  4068.                         }
  4069.                     }
  4070.                     else {
  4071.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  4072.                     }
  4073.                 }
  4074.                
  4075.                 return;
  4076.                
  4077.             case "#setteam":
  4078.                 if(%clientToServerAdminLevel >= 2)
  4079.                 {
  4080.                     %c1 = GetWord(%cropped, 0);
  4081.                     %c2 = GetWord(%cropped, 1);
  4082.                    
  4083.                     if(%c1 !$= -1 && %c2 !$= -1)
  4084.                     {
  4085.                         %id = getClientByName(%c1);
  4086.                        
  4087.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  4088.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  4089.                         }
  4090.                         else if(%id !$= -1)
  4091.                         {
  4092.                        
  4093.                             %id.team = %c2;
  4094.                            
  4095.                             //RefreshAll(%id);
  4096.                             if(!%echoOff) {
  4097.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Setting " @ %c1 @ " (" @ %id @ ") team to " @ %id.team @ ".");
  4098.                             }
  4099.                         }
  4100.                         else {
  4101.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  4102.                         }
  4103.                     }
  4104.                     else {
  4105.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  4106.                     }
  4107.                 }
  4108.                
  4109.                 return;
  4110.                
  4111.             case "#setrace":
  4112.                 if(%clientToServerAdminLevel >= 3)
  4113.                 {
  4114.                     %c1 = GetWord(%cropped, 0);
  4115.                     %c2 = GetWord(%cropped, 1);
  4116.                    
  4117.                     if(%c1 !$= -1 && %c2 !$= -1)
  4118.                     {
  4119.                         %id = getClientByName(%c1);
  4120.                        
  4121.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  4122.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  4123.                         }
  4124.                         else if(%id !$= -1)
  4125.                         {
  4126.                             if(%c2 $= "DeathKnight" && %clientToServerAdminLevel >= 4 || %c2 !$= "DeathKnight") {
  4127.                                 ChangeRace(%id, %c2, %clientToServerAdminLevel);
  4128.                             }
  4129.                            
  4130.                             if(!%echoOff) {
  4131.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Changed " @ %c1 @ " (" @ %id @ ") race to " @ fetchData(%id, "RACE") @ ".");
  4132.                             }
  4133.                         }
  4134.                         else {
  4135.                             messageClient(%TrueClientId, 'RPGchatCallback', "Invalid player name.");
  4136.                         }
  4137.                     }
  4138.                     else {
  4139.                         messageClient(%TrueClientId, 'RPGchatCallback', "Please specify player name & data.");
  4140.                     }
  4141.                 }
  4142.                
  4143.                 return;
  4144.                
  4145.             case "#setinvis":
  4146.                 if(%clientToServerAdminLevel >= 2)
  4147.                 {
  4148.                     %c1 = GetWord(%cropped, 0);
  4149.                     %c2 = GetWord(%cropped, 1);
  4150.                    
  4151.                     if(%c1 !$= -1 && %c2 !$= -1)
  4152.                     {
  4153.                         %id = getClientByName(%c1);
  4154.                        
  4155.                         if(mfloor(%id.adminLevel) >= mfloor(%clientToServerAdminLevel) && %id.nameBase !$= %senderName) {
  4156.                             messageClient(%TrueClientId, 'RPGchatCallback', "Could not process command: Target admin clearance level too high.");
  4157.                         }
  4158.                         else if(%id !$= -1)
  4159.                         {
  4160.                             if(%c2 $= 0)
  4161.                             {
  4162.                                 if(fetchData(%id, "invisible")) {
  4163.                                     UnHide(%id);
  4164.                                 }
  4165.                             }
  4166.                             else if(%c2 $= 1)
  4167.                             {
  4168.                                 if(!fetchData(%id, "invisible")) {
  4169.                                     GameBase::startFadeOut(%id);
  4170.                                 }
  4171.                                
  4172.                                 storeData(%id, "invisible", true);
  4173.                             }
  4174.                            
  4175.                             if(!%echoOff) {
  4176.                                 messageClient(%TrueClientId, 'RPGchatCallback', "Changed " @ %c1 @ " (" @ %id @ ") invisible state to " @ %c2 @ ".");
  4177.                             }
  4178.                         }