TribesReplay/base/scripts/webbrowser.cs

//==-- FUNCTIONS -------------------------------------------------------------
//$strcheck = "14 :  <  >  *  ^  |  ~  @  %  &  /  \\ `  \"";
//$strcheck = "13 :  <  >  *  ^  ~  @  %  &  /  \\ `  \"";
$strcheck = "7\t<\t>\t:\t%\t\\\t/\t\"";
$strcheck2 = "5\t<\t>\t:\t%\t\\";

$playerGfx = "texticons/twb/twb_default.jpg";
$tribeGfx = "texticons/twb/twb_default.jpg";

//-----------------------------------------------------------------------------
if(!isObject(TProfileHdr))
{
   new GuiControl(TProfileHdr);
}
//-----------------------------------------------------------------------------
function BrowserSearchDone()
{
   Canvas.popDialog(BrowserSearchDlg);
   %id = BrowserSearchMatchList.getSelectedId();
   if(%id != -1)
   {
      if(BrowserSearchPane.query $= 4)
         TWBTabView.view(getField(BrowserSearchMatchList.getRowTextById(%id), 1), "Tribe");
      else
         TWBTabView.view(getField(BrowserSearchMatchList.getRowTextById(%id), 0), "Warrior");
   }
}
//-----------------------------------------------------------------------------
function TextCheck2(%text,%handler)
{
   %handler.textCheck = 0;
   for(%i=1;%i<getField($strcheck2,0);%i++)
   {
      %pos=strStr(%text,getField($strcheck2,%i));
      if(%pos > -1)
      {
         %handler.textCheck=1;
         break;
      }
   }
}
//-----------------------------------------------------------------------------
function TextCheck(%text,%handler)
{
   %handler.textCheck = 0;
   for(%i=1;%i<getField($strcheck,0);%i++)
   {
      %pos=strStr(%text,getField($strcheck,%i));
      if(%pos > -1)
      {
         %handler.textCheck=1;
         break;
      }
   }
}
//-----------------------------------------------------------------------------
function BrowserStartSearch()
{
   if(trim($BrowserSearchField) $="" || trim($BrowserSearchField) $="_")
   {
      MessageBoxOK("NOTICE","Blank/Underline searches are not allowed, enter one or more characters of text and try again.","Search_EditField.makeFirstResponder(1);");
   }
   else
    {
      TextCheck($BrowserSearchField,BrowserSearchPane);
      if(!BrowserSearchPane.textCheck)
      {
            BrowserSearchPane.key = LaunchGui.key++;
         if(BrowserSearchPane.query==3)
            BrowserSearchPane.state = "warriorSearch";
         else
               BrowserSearchPane.state = "tribeSearch";

         BrowserSearchMatchList.clear();
            canvas.SetCursor(ArrowWaitCursor);
         if(isEventPending(TribeAndWarriorBrowserGui.eid))
            cancel(TribeAndWarriorBrowserGui.eid);

         TribeAndWarriorBrowserGui.eid = schedule(250,0,ExecuteSearch,0,BrowserSearchPane);
      }
      else
      {
         for(%x=0;%x<getField($strcheck,0);%x++)
         {
            %msgStr = %msgStr @ getField($strcheck,1+%x) @ " ";
         }
         MessageBoxOK("NOTICE","The Following Characters may not be used as search criteria:\n" NL 
                          %msgStr,"Search_EditField.makeFirstResponder(1);");
      }
   }
}
//-----------------------------------------------------------------------------
function ExecuteSearch(%id)
{
   DatabaseQueryArray(BrowserSearchPane.query,0,trim($BrowserSearchField) TAB 0 TAB 100 TAB 0, BrowserSearchPane, BrowserSearchPane.key, true);
}
//-----------------------------------------------------------------------------
function getTribeMember(%tribeName)
{
   %bResult = false;
   %CRec = wonGetAuthInfo();
   for(%tribeNo = 0;%tribeNo < getField(getRecord(%CRec,1),0); %tribeNo++)
   {
      if(strupr(%tribeName) $= strupr(getField(getRecord(%CRec,2+%tribeNo),0)))
         %bResult = true;
   }  
   return %bResult;
}
//-----------------------------------------------------------------------------
function CreateTribe()
{
   $CreateTribeName = "";
   $CreateTribeTag = "";
   $CreateTribeAppend = true;
   $CreateTribeRecruiting = true;

   if ( isObject( CreateTribeDlg ) )
      CreateTribeDlg.delete();

   LoadGui( CreateTribeDlg );
   Canvas.pushDialog( CreateTribeDlg );
}
//-----------------------------------------------------------------------------
function CreateTribeProcess()
{
   %text = CreateTribeDescription.getValue();
   if ( trim( $CreateTribeName ) !$= "" )
   {
      TextCheck( trim( $CreateTribeName ), CreateTribeDlg );
      if( CreateTribeDlg.textCheck == 1 )
      {
         %ErrVar="CTN";
         %proceed = 0;
      }
      else
         %proceed = 1;
         
      if( trim( $CreateTribeTag ) !$= "" && %proceed == 1 )
      {
         TextCheck( trim( $CreateTribeTag ), CreateTribeDlg );
         if ( CreateTribeDlg.textCheck == 1 )
         {
            %ErrVar="CTT";
            %proceed=0;
         }
         else
            %proceed = 1;
      }
      else
      {
         %proceed = 0;
         MessageBoxOK( "WARNING", "Tribe Tag cannot be blank." );
      }
   }
   else
   {
      %proceed = 0;
      MessageBoxOK( "WARNING", "Tribe Name cannot be blank." );
   }

   if ( %proceed == 1 )
   {
      CreateTribeDlg.key = LaunchGui.key++;
      CreateTribeDlg.state = "createTribe";
      canvas.SetCursor(ArrowWaitCursor);
      DatabaseQuery( 16, $CreateTribeName TAB
            $CreateTribeTag TAB
            $CreateTribeAppend TAB
            $CreateTribeRecruiting TAB
            getRecordCount(%text) TAB
            %text,
            CreateTribeDlg,
            CreateTribeDlg.key );

//       Canvas.popDialog(CreateTribeDlg);
   }
   else
   {
      switch$( %ErrVar )
      {
         case "CTN":
            %msg = "Tribe Name contains illegal characters, please correct it.";
         case "CTT":
            %msg = "Tribe Tag contains illegal characters, please correct it.";
         default: %msg = "Please Double Check Your Entries.";
      }
      MessageBoxOK("WARNING",%msg);
   }
}
//-----------------------------------------------------------------------------
function LaunchBrowser( %pane, %type )
{
   LaunchTabView.viewTab( "BROWSER", TribeAndWarriorBrowserGui, 0 );

   if ( %pane !$= "" && ( %type $= "Warrior" || %type $= "Tribe" ) )
      TWBTabView.view( %pane, %type );
}
//-----------------------------------------------------------------------------
function EditDescriptionApply()
{
   %desc = EditDescriptionText.getValue();
   TProfileHdr.Desc = %desc;
   if(TWBText.editType $= "tribe")
   {
      TribePane.key = LaunchGui.key++;
      TribePane.state = "editTribeDesc";
        canvas.SetCursor(ArrowWaitCursor);
      DatabaseQuery(15,TProfileHdr.tribename TAB getRecordCount(%desc) TAB %desc,TribePane,TribePane.key);
   }
   else
   {
     TWBText.key = LaunchGui.key++;
      TWBText.state = "editWarriorDesc";
      canvas.SetCursor(ArrowWaitCursor);
     DatabaseQuery(17,TProfileHdr.Desc, TWBText, TWBText.key);
   }
}
//-----------------------------------------------------------------------------
function GetProfileHdr(%type, %line)
{
   $GuidTribes = getRecords(wonGetAuthInfo(),1);
   if(%type==0)
   {     
      TProfileHdr.tribeID = getField(%line,0);
      TProfileHdr.tribeName = getField(%line,1);
      TProfileHdr.tribeTag = getField(%line,2);
      TProfileHdr.appending = getField(%line,3);
      TProfileHdr.recruiting = getField(%line,4);
      TProfileHdr.tribegfx = getField(%line,5);
      TProfileHdr.twa = 0;
      TProfileHdr.Desc = "";

      TL_Profile.setVisible(1);
      TL_Roster.setVisible(1);
      TL_News.setVisible(1);
       for(%checkID=0;%checkID<getField(getRecord($GuidTribes,0),0);%checkID++)
       {
           if(getField(getRecord($GuidTribes,1+%checkID),3) == 1401)
               TProfileHdr.twa = 4;
           else 
            if(TProfileHdr.tribeid == getField(getRecord($GuidTribes,1+%checkID),3))
            if(TProfileHdr.twa == 0)
                  TProfileHdr.twa =  getField(getRecord($GuidTribes,1+%checkID),4);
       }
   

      if(TProfileHdr.twa > 1)
      {
         TW_Admin.setVisible(1);
         TL_Invites.setVisible(1);
      }
      else
      {
         TW_Admin.setVisible(0);
         TL_Invites.setVisible(0);
      }
   }
   else
   {
      TProfileHdr.playerName = getField(%line,0);
      TProfileHdr.playerTag = getField(%line,1);
      TProfileHdr.appending = getField(%line,2);
      TProfileHdr.playerID = getField(%line,3);
      TProfileHdr.registered = getField(%line,4);
      TProfileHdr.onLine = getField(%line,5);
      TprofileHdr.playerURL = getField(%line,6);
      TProfileHdr.playerGFX = getField(%line,7);
      TProfileHdr.twa = 0;
      TProfileHdr.Desc = "";

      if(getField(getRecord(WonGetAuthInfo(),0),3)==getField(%line,3))
         TProfileHdr.twa = 1;

       for(%checkID=0;%checkID<getField(getRecord($GuidTribes,0),0);%checkID++)
       {
           if(getField(getRecord($GuidTribes,1+%checkID),3) == 1401 && getField(getRecord($GuidTribes,1+%checkID),4) >= 2)
               TProfileHdr.twa = 1;
       }

      W_Profile.setVisible(1);
      W_History.setVisible(1);
      W_Tribes.setVisible(1);

      %isMe = getField(getRecord(wonGetAuthInfo(),0),0)$=twbTitle.name;
      TProfileHdr.isMe = %isMe;

//    if(!TProfileHdr.twa)
      TProfileHdr.twa = TProfileHdr.isMe;

      if(TProfileHdr.twa)
      {
         W_BuddyList.setText("BUDDYLIST");
         W_BuddyList.setVisible(1);
         W_BuddyList.command = "PlayerPane.ButtonClick(3);";
         W_BuddyList.groupNum = 5;
         W_Admin.setVisible(1);
      }
      else
      {
         W_BuddyList.setText("OPTIONS");
         W_BuddyList.setVisible(1);
         W_BuddyList.command = "PlayerPane.ButtonClick(4);";
         W_BuddyList.groupNum = 4;
         W_Admin.setVisible(0);
      }
   }
}
//-----------------------------------------------------------------------------
function getTribeLinkName(%text, %offset)
{
   %name = getField(%text, %offset);
   %tag = getField(%text, %offset+1);
   return "<a:tribe" TAB %name @ ">" @ %name @ " - " @ %tag @ "</a>";
}
//-----------------------------------------------------------------------------
function getTribeName(%text, %offset)
{
   return getField(%text, %offset) @ " - " @ getField(%text, %offset + 1) TAB getField(%text, %offset);
}
//-----------------------------------------------------------------------------
function SearchTribes()
{
   if(BrowserSearchPane.query !$= 4)
   {
      // clear out the fields...
      $BrowserSearchField = "";
      BrowserSearchMatchList.clear();
   }

   Canvas.pushDialog(BrowserSearchDlg);
   Search_EditField.makeFirstResponder(1);
   BrowserSearchPane.setTitle("TRIBE SEARCH");
   BrowserSearchPane.query = 4;
}
//-----------------------------------------------------------------------------
function KillTribe(%tribe)
{
   TWBTabView.closeCurrentPane();
   Canvas.popDialog(TribePropertiesDlg);
   TribePane.key = LaunchGui.key++;
   TribePane.state = "killTribe";
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(18,%tribe,TribePane,TribePane.key);
}
//-----------------------------------------------------------------------------
function LinkClearBuddylist(%owner,%handler)
{
   %owner.key = LaunchGui.key++;
   %owner.state = %handler;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(26,"clearBuddy", %owner, %owner.key);   
}
//-----------------------------------------------------------------------------
function LinkRemoveBuddy(%player, %owner, %handler)
{
   %owner.key = LaunchGui.key++;
   %owner.state = %handler;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(11, %player, %owner, %owner.key);
}
//-----------------------------------------------------------------------------
function LinkAddBuddy(%player, %owner, %handler)
{
   %owner.key = LaunchGui.key++;
   %owner.state = %handler;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(10, %player, %owner, %owner.key);
}
//-----------------------------------------------------------------------------
function LinkBlockPlayer(%blockAddress,%owner,%state)
{
    EMailBlockDlg.state = "setBlock";
   EMailBlockDlg.key = LaunchGui.key++;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(9,%blockAddress,EmailBlockDlg,EMailBlockDlg.key);
}
//-----------------------------------------------------------------------------
function LinkEditWarrior()
{
   MessageBoxOK( "NOT YET", "This feature has not yet been implemented." );
}
//-----------------------------------------------------------------------------
function LinkEditWarriorDesc(%player, %handler)
{
      Canvas.pushDialog(BrowserEditInfoDlg);
      EditDescriptionText.setValue(TProfileHdr.Desc);
}
//-----------------------------------------------------------------------------
function LinkEditMember(%player, %tribe, %pv, %title,%owner)
{
//      initialize buttons
        tb_onProbation.setVisible(true);
         tb_tribeMember.setVisible(false);          
         tb_tribeAdmin.setVisible(false);
         tb_tribeController.setVisible(false);
         tb_sysAdmin.setVisible(false);

         tb_onProbation.setValue(false);
         tb_tribeMember.setValue(false);
         tb_tribeAdmin.setValue(false);
         tb_tribeController.setValue(false);
         tb_sysAdmin.setValue(false);

        %owner.vTribe = %tribe;
        %owner.vPlayer = %player;
        t_whois.setValue(%player);
         E_Title.setValue(%title);

        %ai = wonGetAuthInfo();

        // Get callers rank in members tribe
        for(%i=0;%i<getfield(getRecord(%ai,1),0);%i++)
        {
         if( getField(getRecord(%ai,2+%i),0) $= %tribe || (getField(getRecord(%ai,2+%i),3)==1401 && getField(getRecord(%ai,2+%i),4)>1))
         {
            %callerPv = getField(getRecord(%ai,2+%i),4);
            break;
         }
        }

        if(%callerPv > %pv)
            %rnk = %callerPv;
        else
            %rnk = %pv;

        %owner.vPerm = %rnk;

        if(getField(getRecord(%ai,0),0) $= getField(twbTitle.getValue(),0)) //if the caller is the member to be edited
        {
            switch( %pv )
            {
               case 0:
                 tb_onProbation.setValue(true);
               case 1:
                  tb_tribeMember.setValue(true);
                   tb_tribeMember.setVisible(true);          
               case 2:
                   tb_tribeMember.setVisible(true);          
                      tb_tribeAdmin.setVisible(true);
                 tb_tribeAdmin.setValue(true);
               case 3:
                   tb_tribeMember.setVisible(true);          
                   tb_tribeAdmin.setVisible(true);
                   tb_tribeController.setVisible(true);
                  tb_tribeController.setValue(true);
               case 4:
                   tb_tribeMember.setVisible(true);          
                   tb_tribeAdmin.setVisible(true);
                   tb_tribeController.setVisible(true);
                tb_sysAdmin.setVisible(true);
                 tb_sysAdmin.setValue(true);
           }
        }
        else
        {
           switch( %rnk )
           {
            case 1:
                  tb_tribeMember.setVisible(true);
            case 2:
                  tb_tribeMember.setVisible(true);
                  tb_tribeAdmin.setVisible(true);
            case 3:
                  tb_tribeMember.setVisible(true);
                  tb_tribeAdmin.setVisible(true);
                  tb_tribeController.setVisible(true);
            case 4:
                  tb_tribeMember.setVisible(true);
                  tb_tribeAdmin.setVisible(true);
                  tb_tribeController.setVisible(true);
               tb_sysAdmin.setVisible(true);
           }

            switch( %pv )
            {
               case 0:
                 tb_onProbation.setValue(true);
               case 1:
                  tb_tribeMember.setValue(true);
               case 2:
                  tb_tribeAdmin.setValue(true);
               case 3:
                  tb_tribeController.setValue(true);
               case 4:
                  tb_sysAdmin.setValue(true);
           }
         }
         Canvas.pushDialog(%owner);
}
//-----------------------------------------------------------------------------
function LinkLeaveTribe(%player,%handler)
{
   %handler.key = LaunchGui.key++;
   %handler.state = "leaveTribe";
    canvas.SetCursor(ArrowWaitCursor);
   %handler.leavingTribe = %player;
   DatabaseQuery(24,%player,%handler,%handler.key);
}
//-----------------------------------------------------------------------------
function LinkKickMember(%player, %tribe, %owner)
{
   %owner.warrior = %player;
   %owner.tribe = %tribe;
   TribePane.key = LaunchGui.key++;
   TribePane.state = "kickPlayer";
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(19,%player TAB %tribe TAB 0,TribePane,TribePane.key);
}
//-----------------------------------------------------------------------------
function LinkMakePrimary(%action, %field, %owner)
{
   %owner.key = LaunchGui.key++;
   %owner.state = %action;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(25,%field,%owner,%owner.key);
}
//-----------------------------------------------------------------------------
function LinkTribeToggle(%action, %field, %owner, %handler)
{
   TribePane.key = LaunchGui.key++;
   TribePane.state = "toggleTribe" @ %action;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(20,%action TAB %field,TribePane,TribePane.key);
}
//-----------------------------------------------------------------------------
function LinkInvitePlayer(%tribe, %player, %owner, %handler)
{
   %owner.key = LaunchGui.key++;
   %owner.state = %handler;
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(27,%tribe TAB %player,%owner,%owner.key);
}
//-----------------------------------------------------------------------------
function LinkTribeTag(%owner)
{
   Canvas.pushDialog(%owner);
}
//-----------------------------------------------------------------------------
function LinkBrowser(%player , %tabtype)
{
   LaunchBrowser(%player , %tabtype);
}
//-----------------------------------------------------------------------------
function LinkForum(%forum, %topic)
{
   ForumsTopicsList.refreshFlag = true;
   LaunchForums( %forum, %topic );
}
//-----------------------------------------------------------------------------
function LinkWeb(%url)
{
   gotoWebPage( %url );
}
//-----------------------------------------------------------------------------
function LinkInvitation(%action, %tribe, %player, %owner)
{
   %owner.key = LaunchGui.key++;
   switch$(%action)
   {
      case "cancel":
         %owner.state = "cancelInvite";
      case "accept":
         %owner.state = "acceptInvite";
      case "reject":
         %owner.state = "rejectInvite";
   }
    canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(28,%action TAB %tribe TAB %player,%owner,%owner.key);
}
//-----------------------------------------------------------------------------
function LinkEMail(%MailTo)
{
    Email_ToEdit.setText(%MailTo);
    Email_CCEdit.setText("");
    $EmailSubject = "";
    Canvas.pushDialog(EmailComposeDlg);
    EmailBodyText.setValue("");
   Email_Subject.makeFirstResponder(1);
}
//-----------------------------------------------------------------------------
function LinkEMailTribe(%MailTo)
{
//	error("LEMT: " @ %MailTo);
	%toList = "";
	%ccList = "";
	%curLen = 0;	
	%toggle = 0;
	for(%x = 0; %x < MemberList.rowCount(); %x++)
	{
//		%curLen = StrLen(%toList);
		%cWord = getField(MemberList.getRowText(%x),0);
//		if( (%curLen + StrLen(%cWord) + 1) <= 2000 )
		if (%toggle == 0)
		{
//			error("ToList Adding: " @ %cWord TAB %curLen TAB %x);
			%toList = %toList @ %cWord @ ",";
			%toggle++;
//			Email_ToEdit.setText(Email_ToEdit.getValue() @ %cWord @ ",");
		}
		else
		{
//			error("CCList Adding: " @ %cWord TAB %curLen TAB %x);
//			Email_CCEdit.setText(Email_CCEdit.getValue() @ %cWord @ ",");
			%ccList = %ccList @ %cWord @ ",";
			%toggle = 0;
		}
	}
//	error("TOLIST: " @ strLen(%toList) NL %toList);
  //rror("CCList: " @ strLen(%ccList) NL %ccList);
	Email_ToEdit.setValue(getSubStr(%toList,0,Email_ToEdit.maxLength));
	Email_CCEdit.setValue(getSubStr(%ccList,0,Email_CCEdit.maxLength));
	$EmailSubject = "";
	EmailBodyText.setValue("");
	Canvas.pushDialog(EmailComposeDlg);
	Email_Subject.makeFirstResponder(1);
}
//-----------------------------------------------------------------------------
function SearchWarriors()
{
   if(BrowserSearchPane.query !$= 3)
   {
      // clear out the fields...
      $BrowserSearchField = "";
      BrowserSearchMatchList.clear();
   }
   Canvas.pushDialog(BrowserSearchDlg);
   BrowserSearchPane.setTitle("WARRIOR SEARCH");
   BrowserSearchPane.query = 3;
   Search_EditField.makeFirstResponder(1);
}
//-----------------------------------------------------------------------------
function SetMemberProfile()
{
  if(strLen(trim(E_Title.getValue)) <= 0)
  {
   TextCheck(E_Title.getValue(),TribeAdminMemberDlg);
   if(TribeAdminMemberDlg.textCheck==0)
   {
         TribeAdminMemberDlg.key = LaunchGui.key++;
         TribeAdminMemberDlg.state = "setMemberProfile";
       canvas.SetCursor(ArrowWaitCursor);
      %title = E_Title.getValue();
      DatabaseQuery(21,TribeAdminMemberDlg.vTribe TAB
                  TribeAdminMemberDlg.vPlayer TAB
                  %title TAB
                  TribeAdminMemberDlg.vPerm,
                  TribeAdminMemberDlg,
                  TribeAdminMemberDlg.key);

      Canvas.popDialog(TribeAdminMemberDlg);
   }
   else
   {
      MessageBoxOK("WARNING","Member Title contains illegal characters.  Please correct and try again.");
   }
  }
  else
   MessageBoxOK("WARNING","Member Title cannot be blank...really.");
}
//-----------------------------------------------------------------------------
function TAM_OnAction(%caller)
{
  TribeAdminMemberDlg.vPerm = %caller;
}
//-----------------------------------------------------------------------------
function updateTribeTagPreview()
{
   %warrior = getField( WONGetAuthInfo(), 0 );

   // Validate the tribe tag:
   %tag = CT_TagText.getValue();
   %realTag = StripMLControlChars( %tag );
   if ( %tag !$= %realTag )
      CT_TagText.setValue( %realTag );

   if ( $CreateTribeAppend )
      CT_PreviewText.setValue( %warrior @ %realTag );
   else
      CT_PreviewText.setValue( %realTag @ %warrior );
}

//-- TribeAndWarriorBrowserGui -----------------------------------------------
function TribeAndWarriorBrowserGui::onWake(%this)
{   
   MemberList.ClearColumns();
   W_MemberList.ClearColumns();
   MemberList.Clear();
   W_MemberList.clear();
   Canvas.pushDialog(LaunchToolbarDlg);
   TWBTabView.addSet( 1, "gui/shll_horztabbuttonB", "5 5 5", "50 50 0", "5 5 5" );

   if ( TWBTabView.tabCount() == 0 )
   {
      %info = WONGetAuthInfo();

      // Open the player's page:
      %warrior = getField( %info, 0 );
      TWBTabView.view( %warrior, "Warrior" );
     w_profile.setValue(1);

      // Add tabs for the player's tribal pages:
      %tribeCount = getField( getRecord( %info, 1 ), 0 ); //%cert
      for ( %i = 0; %i < %tribeCount; %i++ )      
      {
         %tribe = getField( getRecord( %info, %i + 2 ), 0 ); //%cert
         TWBTabView.addTab( %i + 1, %tribe, 1 );
      }
   }
   else if(PlayerPane.visible)
      PlayerPane.onWake();
   else
      TribePane.onWake();
}
//-----------------------------------------------------------------------------
function TribeAndWarriorBrowserGui::setKey( %this, %key )
{
}
//-----------------------------------------------------------------------------
function TribeAndWarriorBrowserGui::onClose( %this, %key )
{
}
//-----------------------------------------------------------------------------
function TribeAndWarriorBrowserGui::connectionTerminated( %this, %key )
{
   if ( %key != %this.key )
      return;
}
//-----------------------------------------------------------------------------
function TribeAndWarriorBrowserGui::onSleep(%this)
{
   if (TribeAndWarriorBrowserGui.WDialogOpen)
      WarriorPopupDlg.forceClose();

   if (TribeAndWarriorBrowserGui.TDialogOpen)
      TribeMemberPopupDlg.forceClose();

   Canvas.popDialog(LaunchToolbarDlg);
}
//==--  CreateTribeDlg -------------------------------------------------------
function CreateTribeDlg::onWake( %this )
{
   //rbAppendTab.setValue(1);
   updateTribeTagPreview();
}
//-----------------------------------------------------------------------------
function CreateTribeDlg::CreateTribe(%this)
{
   CreateTribeProcess();
}
//-----------------------------------------------------------------------------
function CreateTribeDlg::Cancel(%this)
{
   Canvas.PopDialog(CreateTribeDlg);
    $CreateTribeName = "";
    $CreateTribeTag = "";
   CreateTribeDlg.delete();

   if(isObject(CreateTribeDlg))
      CreateTribeDlg.delete();
}
//-----------------------------------------------------------------------------
function CreateTribeDlg::onDatabaseQueryResult(%this,%status,%resultString,%key)
{
   if ( %this.key != %key )
      return;
// echo("RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "createTribe":
            TWBTabView.view( $CreateTribeName, "Tribe" );
               Canvas.popDialog(CreateTribeDlg);
             $CreateTribeName = "";
            $CreateTribeTag = "";
            if(isObject(CreateTribeDlg))
               CreateTribeDlg.delete();
            WonUpdateCertificate();
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
   {
      %this.state = "error";
      MessageBoxOK("WARNING",getField(%status,1));
   }
   Canvas.setCursor(defaultCursor);
}
//-----------------------------------------------------------------------------
function CreateTribeDlg::onDatabaseRow(%this,%row,%isLastRow,%key)
{
   if( %this.key != %key )
      return;
// echo("RECV: " @ %row);
}
//==--  TribeAdminMemberDlg ---------------------------------------------------
function TribeAdminMemberDlg::onWake(%this)
{
   
}
//-----------------------------------------------------------------------------
function TribeAdminMemberDlg::onDatabaseQueryResult( %this, %status, %resultString, %key)
{
    if ( %this.key != %key )
      return;
// echo("RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "setMemberProfile":
            %this.state = "done";
            ForumsTopicsList.refreshFlag = true;
            messageBoxOK("COMPLETE","Member Profile has been updated","WonUpdateCertificate();TL_Profile.setValue(1);");
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
      messageBoxOK("WARNING",getField(%status,1));
   Canvas.setCursor(defaultCursor);
}
//-----------------------------------------------------------------------------
function TribeAdminMemberDlg::onDatabaseRow(%this,%row,%isLastRow,%key)
{
    if ( %this.key != %key )
      return;
// echo("RECV: " @ %row);
}
//-----------------------------------------------------------------------------
function TribeAdminMemberDlg::connectionTerminated( %this, %key )
{
   if ( %this.key != %key )
      return;

   if ( %this.errorState $= "OK" )
      TWBTabView.refresh(); 
}
//==--  BrowserSearchDlg -----------------------------------------------------
function BrowserSearchDlg::onWake( %this )
{
   if ( BrowserSearchMatchList.getSelectedId() == -1 )
      BSearchOKBtn.setActive( false );
}
//-----------------------------------------------------------------------------
function BrowserSearchPane::GetOnlineStatus(%this)
{
    %this.key = LaunchGui.key++;
    %this.status = "getOnline";
    for(%oStat=0;%oStat<BrowserSearchMatchList.RowCount();%oStat++)
    {
      if(%oStat == 0)
        %roster = getField(BrowserSearchMatchList.getRowText(%oStat),3);
      else
        %roster = %roster TAB getField(BrowserSearchMatchList.getRowText(%oStat),3);
    }
    databaseQuery(69,%roster,%this,%this.key);
}
//-----------------------------------------------------------------------------
function BrowserSearchMatchList::onSelect( %this, %id, %text )
{
   BSearchOKBtn.setActive( true );
}
//-----------------------------------------------------------------------------
function BrowserSearchMatchList::onAdd(%this)
{
// BrowserSearchMatchList.addStyle( 1, "Univers", 12 , "150 150 150", "200 200 200", "60 60 60" );
}
//==--  BrowserSearchPane ----------------------------------------------------
function BrowserSearchPane::onDatabaseQueryResult(%this, %status, %resultStatus, %key)
{
   if(%key != %this.key)
      return;
   echo("RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "warriorSearch":
            if(getField(%resultStatus,0)<=0)
            {
               %this.state = "done";
               MessageBoxOK("NOTICE","No Players found");
            }
            else
            {
               %this.rowNum = -1;
               %this.state = "warrior";
            }
         case "tribeSearch":
            if(getField(%resultStatus,0)<=0)
            {
               %this.state = "done";
               MessageBoxOK("NOTICE","No Tribes found");
            }
            else
            {
               %this.rowNum = -1;
               %this.state = "tribe";
            }
         case "getOnline":
           //error("GONLINE:" @ %status TAB %resultString);
            if(getField(%status,0) == 0)
                   for(%str=0;%str<strLen(%resultString);%str++)
                   {
                     BrowserSearchMatchList.setRowStyle( %str, !getSubStr(%resultString,%str,1) );
                   }          
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
   {
      %this.state = "error";
      MessageBoxOK("WARNING",getField(%status,1));
   }
   canvas.setCursor(defaultCursor);
}
//-----------------------------------------------------------------------------
function BrowserSearchPane::onDatabaseRow(%this, %row, %isLastRow, %key)
{
   if(%key != %this.key)
      return;
// echo("RECV: " @ %row);
   switch$(%this.state)
   {
      case "tribe":
         %line = getTribeName(getFields(%row, 1),0) TAB getField(%row, 2);
         BrowserSearchMatchList.addRow(%this.rowNum++, %line);
         if(%isLastRow)
            %this.state = "done";
      case "warrior":
         %line = getFields(%row,1);
         BrowserSearchMatchList.addRow(%this.rowNum++, %line);
         if(%isLastRow)
         {
                %this.GetOnlineStatus();
            %this.state = "done";
         }
   }
}
//==--  TWBTabView -----------------------------------------------------------
function TWBTabView::view(%this, %name, %type)
{
   if ( %type $= "Tribe" )
      %tabSet = 1;  
   else
      %tabSet = 0;  

   // If the tab is already in the group, select it:
   for(%i = 0; %i < %this.tabCount(); %i++)
   {
      if ( ( %this.getTabText( %i ) $= %name ) && ( %tabSet == %this.getTabSet( %i ) ) )
      {
         %this.setSelectedByIndex( %i );
         return;
      }
   }

   // Or else add the new tab:
   %this.addTab( %i, %name, %tabSet );
   %this.setSelectedByIndex(%i);
   TWBClosePaneBtn.setVisible(TWBTitle.name !$= getField(getRecord(wongetAuthInfo(),0),0));
}
//-----------------------------------------------------------------------------
function TWBTabView::refresh( %this )
{
   // Just re-select the selected tab:
   %this.setSelectedByIndex( %this.getSelectedTab() );
}
//-----------------------------------------------------------------------------
function TWBTabView::closeCurrentPane( %this )
{
   %id = %this.getSelectedId();
   %this.removeTab( %id );
}
//-----------------------------------------------------------------------------
function TWBTabView::onSelect(%this, %id, %text)
{
   MemberList.clear();
   W_MemberList.clear();
   TWBScroll.scrollToTop();
   TWBTitle.OldText = TWBTitle.name;
   TWBTitle.setValue( %text );   // This will get overwritten...
   TWBTitle.name = %text;
   TWBClosePaneBtn.setVisible(TWBTitle.name !$= getField(getRecord(wongetAuthInfo(),0),0));
   switch(%this.getTabSet( %id ))
   {
     case 0: // Warrior
      if(isObject(TProfileHdr))
      {
         TProfileHdr.delete();
            new GuiControl(TProfileHdr);
      }
      PlayerPane.setvisible(1);
      TribePane.setvisible(0);

      if(W_memberList.rowCount()<=0)
         PlayerPane.needRefresh = 1;
      else
         PlayerPane.needRefresh = 0;

       TWBTabFrame.setAltColor( false );
         TWBClosePaneBtn.setVisible(TWBTitle.name !$= getField(getRecord(wongetAuthInfo(),0),0));
      if(TWBTitle.OldText !$= TWBTitle.name)
        W_Profile.setValue(1);
      
      PlayerPix.setBitmap($playerGfx);
      W_Profile.setVisible(1);
      W_History.setVisible(1);
      W_Tribes.setVisible(1);
      %isMe = getField(getRecord(wonGetAuthInfo(),0),0)$=twbTitle.name;
      if(%isMe)
      {
         W_BuddyList.setText("BUDDYLIST");
         W_BuddyList.setVisible(1);
         W_BuddyList.command = "PlayerPane.ButtonClick(3);";
         W_BuddyList.groupNum = 5;
      }
      else
      {
         W_BuddyList.setText("OPTIONS");
         W_BuddyList.setVisible(1);
         W_BuddyList.command = "PlayerPane.ButtonClick(4);";
         W_BuddyList.groupNum = 4;
      }
      W_Admin.setVisible(getField(getRecord(wonGetAuthInfo(),0),0)$=twbTitle.name);

    case 1: // Tribe
      PlayerPane.setvisible(0);
      TribePane.setvisible(1);
      if(memberList.rowCount()<=0)
         TribePane.needRefresh = 1;
      else
         TribePane.needRefresh = 0;

       TWBTabFrame.setAltColor( true );
      if(TWBTitle.OldText !$= TWBTitle.name)
        TL_Profile.setValue(1);

//    %this.display();

   }
}
//==--  GUIMLTextCtrl --------------------------------------------------------
function GuiMLTextCtrl::onURL(%this, %url)
{
   %i = 0;
   while((%fld[%i] = getField(%url, %i)) !$= "")
      %i++;

   %tribe = %fld[1];
   %warrior = %fld[2];
   switch$(%fld[0])
   {
      case "player":
         LinkBrowser( %fld[1] , "Warrior");
      case "tribe":
         LinkBrowser( %fld[1], "Tribe" );
      case "forumlink":
         LinkForum(%fld[1], %fld[3]);
      case "wwwlink":
         LinkWeb( %fld[1] );
      case "cancelinvite":
         %tribe = %fld[1];
         %warrior = %fld[2];
         MessageBoxYesNo("CONFIRM", "Are you sure you wish to cancel the invitation for " @ %fld[1] @ " to join Tribe " @ %fld[2] @ "?",
         "LinkInvitation(\"cancel\"," @ %tribe @ "," @ %player @ ",\" TribePane \");","");
      case "acceptinvite":
         LinkInvitation("accept",%tribe,%warrior,PlayerPane);
      case "rejectinvite":
         LinkInvitation("reject",%tribe,%warrior,PlayerPane);
      case "email":
         LinkEMail(%fld[1]);
      case "massmail":
         LinkEMailTribe(%tribe);

      case "editwarrior":
         LinkEditWarrior();    
      case "editdescription":
         if(%fld[1])
            TWBText.editType = "warrior";
         LinkEditWarriorDesc(%fld[1],PlayerPane,"editWarriorDescription");
      case "editmember":
         LinkEditMember(%fld[1],%fld[2],%fld[3],%fld[4],TribeAdminMemberDlg);
      case "kickwarrior":
         MessageBoxYesNo("CONFIRM", "Are you sure you wish to kick " @ %fld[1] @ " from Tribe " @ %fld[2] @ "?",
                                       "LinkKickMember(" @ %fld[1] @ "," @ %fld[2] @ "," @ TribePane @ ");", "");
      case "makeprimarytribe":
         %this.tribe = %fld[1];
         MessageBoxYesNo("CONFIRM", "Are you sure you wish to make Tribe " @ %this.tribe @ " your primary tribe?",
                           "LinkMakePrimary(\"setPrimaryTribe\",\"" @ %this.tribe @ "\"," @ PlayerPane @ ",);","");
      case "noprimarytribe":
         %this.tribe = %fld[1];
         MessageBoxYesNo("CONFIRM", "Are you sure you wish to have no primary tribe?",
                           "LinkMakePrimary(\"setNoPrimaryTribe\",\"NONE\"," @ PlayerPane @ ",);","");
      case "leavetribe":
         %this.tribe = %fld[1];
         MessageBoxYesNo("CONFIRM", "Are you sure you wish to leave Tribe " @ %this.tribe @ "?",
                                          "LinkLeaveTribe(" @ %this.tribe @ ",\"playerPane \");","");

      case "changerecruiting":
         LinkTribeToggle("Recruiting", %fld[2] TAB %fld[1], %this, "togglerecruiting");
      case "changeappending":
         LinkTribeToggle("Appending", %fld[2] TAB %fld[1], %this, "toggleappending");
      case "invite":
         %this.tribe = %fld[2];
         %this.warrior = %fld[1];
         MessageBoxYesNo("CONFIRM", "Invite " @ %this.warrior @ " to join " @ %this.tribe @ "?",
                           "LinkInvitePlayer(\"" @ %this.tribe @ "\",\"" @ %this.warrior @ "\"," @ PlayerPane @ ",\"inviteWarrior\");","");

      case "changetribename":
         MessageBoxOK("INFORMATION","You are not allowed to change tribe names, you must instead disband your tribe and create another.");

      case "changetribetag":       
         LinkTribeTag(%this);  

      case "addBuddy":
         LinkAddBuddy(%fld[1],TWBText,"addBuddy");
      case "requestlink":
         TribePane.key = LaunchGui.key++;
         TribePane.state = "requestInvite";
         DatabaseQuery(34,TProfileHdr.tribename,TribePane,TribePane.key);

      case "gamelink":
         commandToServer('ProcessGameLink', %fld[1], %fld[2], %fld[3], %fld[4], %fld[5]);
// THESE ARE EMAIL RELATED MODERATOR LINKS
     case "moderatorTopicKill":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopic";
            databaseQuery(62, 0 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicWarn":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            //error("MTW: " @ %url);        
            databaseQuery(62, 1 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBan24":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            //error("MTB24: " @ %url);         
            databaseQuery(62, 2 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBan48":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            databaseQuery(62, 3 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBan72":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            databaseQuery(62, 4 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBan7Days":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            databaseQuery(62, 5 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBan30Days":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            databaseQuery(62, 6 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);
     case "moderatorTopicBanForever":
            TopicsPopupDlg.key = LaunchGui.key++;
            TopicsPopupDlg.state = "adminRemoveTopicPlus";
            databaseQuery(62, 7 TAB getField(%url,1) TAB getField(%url,2), TopicsPopupDlg, TopicsPopupDlg.key);

     case "moderatorPostKill":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePost";
            databaseQuery(63, 0 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostWarn":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 1 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBan24":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 2 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBan48":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 3 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBan72":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 4 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBan7Days":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 5 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBan30Days":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 6 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "moderatorPostBanForever":
            PostsPopupDlg.key = LaunchGui.key++;
            PostsPopupDlg.state = "adminRemovePostPlus";
            databaseQuery(63, 7 TAB getFields(%url,1), PostsPopupDlg, PostsPopupDlg.key);
     case "joinPublicChat":
         joinPublicTribeChannel(getField(%url,1));
     case "joinPrivateChat":
         joinPrivateTribeChannel(getField(%url,1));

      //if there is an unknown URL type, treat it as a weblink..
      default:
      LinkWeb( %fld[0] );
   }
}
//==-- TWBTEXT ---------------------------------------------------------------
function TWBText::onDatabaseQueryResult(%this,%status,%resultString,%key)
{
   if(%this.key != %key)
      return;
// echo("TWB RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "editWarriorDesc":
            %this.state = "done";
            WP_WarriorDescription.setText(EditDescriptionText.getValue());
            Canvas.popDialog(BrowserEditInfoDlg);
            messageBoxOK("COMPLETE","Warrior Description Changed","W_profile.setValue(1);");
            WarriorPropertiesDlg.pendingChanges="";
         case "addBuddy":
            %this.state = "done";
            MessageBoxOK("COMPLETE",getField(%resultString,2) @ " was added to your buddylist");
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
   {
      messageBoxOK("WARNING",getField(%status,1));
   }
   canvas.setCursor(defaultCursor);
}
//-----------------------------------------------------------------------------
function TWBText::onDatabaseRow(%this,%row,%isLastRow, %key)
{
   if(!%this.key == %key)
      return;
// echo("RECV: " @ %row);
}
//-----------------------------------------------------------------------------
function TWBText::connectionTerminated( %this, %key )
{
   TWBTabView.refresh();
}
//-----------------------------------------------------------------------------
//==-- TribePane --------------------------------------------------------------
//-----------------------------------------------------------------------------
function TribePane::onAdd(%this)
{
   // Add the popup menu:
   new GuiControl(TribeMemberPopupDlg) {
      profile = "GuiModelessDialogProfile";
      horizSizing = "width";
      vertSizing = "height";
      position = "0 0";
      extent = "640 480";
      minExtent = "8 8";
      visible = "1";
      setFirstResponder = "0";
      modal = "1";

      new ShellPopupMenu( TribeMemberPopup ) {
         profile = "ShellPopupProfile";
         position = "0 0";
         extent = "0 0";
         minExtent = "0 0";
         visible = "1";
         maxPopupHeight = "200";
         noButtonStyle = "1";
      };
   };
}
//-----------------------------------------------------------------------------
function TribePane::onWake(%this)
{  
   if(trim(TProfileHdr.tribegfx) !$= "")
      TeamPix.setBitmap(TProfileHdr.tribegfx);
   else
      TeamPix.setBitmap($TribeGfx);

   if(memberList.rowCount() <= 0)
   {
      %this.needRefresh = 1;
      tl_profile.setValue(1);
   }     
}
function TribePane::JoinChat(%this, %tribe, %chanType)
{
   if(%chanType == 0)
      joinPublicTribeChannel(%tribe);
   else
      joinPrivateTribeChannel(%tribe);
}
//-----------------------------------------------------------------------------
function TribePane::onDatabaseQueryResult(%this, %status, %resultString , %key)
{
  if ( %this.key != %key )
      return;
// echo("RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "killTribe":
            %this.state = "done";            
            WonUpdateCertificate();
            TWBTabView.closeCurrentPane();
         case "editTribeDesc":
            %this.state = "done";
            TP_TribeDescription.setText(EditDescriptionText.getValue());
            TProfileHdr.desc = TP_TribeDescription;
            Canvas.popDialog(BrowserEditInfoDlg);
            TribePropertiesDlg.pendingChanges = "";
         case "kickPlayer":
            %this.state = "done";
            messageBoxOK("COMPLETE",getField(%status,1));
            WonUpdateCertificate();
         case "toggleTribeRecruiting":
            %this.state = "done";
         case "toggleTribeAppending":
            %this.state = "done";
            WonUpdateCertificate();
            %ntag = TP_NewTag.getValue();   
            %playerName = GetField(GetRecord(WonGetAuthInfo(),0),0);
            if ( TP_PrePendFlagBtn.getValue()==0 )
               TP_PreviewTag.setValue( %playerName @ %ntag);
            else
               TP_PreviewTag.setValue(%ntag @ %playerName);

            TProfileHdr.appending = TP_AppendFlagBtn.getValue;

         case "getTribeProfile":
            %this.state = "done";
            GetProfileHdr(0,getFields(%status,2));
            TWBText.Clear();
            %isMember = getTribeMember(TProfileHdr.TribeName);
              %Tdesc = "<lmargin:10><just:left><Font:Univers Condensed:18><color:ADFFFA>Recruiting: <font:Univers Condensed:18>" @ 
                       (TProfileHdr.recruiting ? (%isMember ? "YES" : "YES     <a:requestlink\t" @ TProfileHdr.tribename @ ">Request Invite</a>") : "NO");
               %Tdesc = %Tdesc @ "<Font:Univers Condensed:18>" NL "<color:82BEB9><lmargin:30><Font:Univers:18>";
            TWBText.setText(%TDesc);
            TProfileHdr.Desc = %resultString;
            if(trim(TProfileHdr.tribegfx) !$= "")
               TeamPix.setBitmap(TProfileHdr.tribegfx);
            else
               TeamPix.setBitmap($TribeGfx);
            TWBTitle.name = TPRofileHdr.tribeName;
            TWBTitle.setValue(TProfileHdr.tribeName TAB TProfileHdr.tribeTag);
            TWBText.SetText(TWBText.getText() NL TProfileHdr.Desc);
            if(memberlist.rowCount()==0)
            {
               %this.needRefresh = 0;
               TL_ROSTER.setValue(1);
            }

         case "getTribeRoster":
			//error("GTRoster Rows: " @ getField(%resultString,0));
            %this.linecount--;
            %this.MList = "";
            %this.trid = 0;
            if(isObject(memberListGroup))
               memberListGroup.delete();
            if(getField(%resultString,0)>0)
                {
               %this.state = "tribeRoster";
                    %this.rosterRowcount = getField(%resultString,0);
                }
            else
            {
               %this.state="done";
               messageBoxOK("NOTICE","No Tribe Members Found.");
            }

         case "getTribeNews":
               TWBText.Clear();
               %this.articleLines = 0;
            if(GetTribeMember(TProfileHdr.tribeName))
            {
                  TWBText.SetText("<just:left><color:ADFFFA><lmargin:10><Font:Univers Condensed:18>" @ TProfileHdr.tribeName @ " Options:" @
                                    "<color:82BEB9>\n\n<lmargin:20><spush><color:ADFFCC><a:forumlink" TAB TProfileHdr.tribeName @ ">Tribal Forum</a><spop>\n" @
                                    "<spush><color:ADFFCC><a:joinPublicChat" TAB TProfileHdr.tribeName @ ">Tribal Chat: Public</a><spop>\n" @
                                 "<spush><color:ADFFCC><a:joinPrivateChat" TAB TProfileHdr.tribeName @ ">Tribal Chat: Private</a><spop>");
            }
            else
            {
                  TWBText.SetText("<just:left><color:ADFFFA><lmargin:10><Font:Univers Condensed:18>" @ TProfileHdr.tribeName @ " Options:\n\n" @
                                    "<spush><color:ADFFCC><a:joinPublicChat" TAB TProfileHdr.tribeName @ ">Enter " @ TProfileHdr.tribeName @ " Public Chat</a><spop>\n" );
            }

            %this.state = "done";

//          if(getField(%resultString,0)>0)
//          {
//             %this.state = "tribeNews";
//          }
//          else
//          {
//             %this.state="done";
//             messageBoxOK("NOTICE","No Tribe News.");
//          }

         case "getTribeInvites":
               if(getField(%resultString,0) > 0)
               {
                  %this.state = "tribeInvites";
                  %this.tiid = 0;
                  if(isObject(memberListGroup))
                     memberListGroup.delete();
               }
               else
               {
                  %this.NeedRefresh = 0;  
                  %this.state = "done";
               }
         case "cancelInvite":
            %this.state = "done";
            tl_invites.setValue(1);
         case "setTribeGfx":
            %this.state = "done";
            messageBoxOK("NOTICE",getField(%status,1));
            tl_profile.setValue(1);
         case "changeTribeTag":
            %this.state = "done";
            messageBoxOK("NOTICE","Tribe Tag has been updated.","WonUpdateCertificate();");
         case "requestInvite":
            %this.state = "done";
            messageBoxOK("NOTICE",getField(%status,1));
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
   {
      %this.state = "done";
      messageBoxOK("WARNING",getField(%status,1));
   }
   canvas.setCursor(DefaultCursor);
}
//-----------------------------------------------------------------------------
function TribePane::onDatabaseRow(%this, %row, %isLastRow, %key)
{
  if ( %this.key != %key )
      return;
// echo("RECV: " @ %row);
   switch$(%this.state)
   {
      case "tribeRoster":
			%name = getField(%row, 0);
			%wid = getField(%row,3);
			%linkName = getLinkName(%row, 0);
			%adminLevel = getField(%row, 5);
			%title = getField(%row, 4);
			%date = getField(%row, 6);
			%editkick = getField(%row, 8);
			%onLine = getField(%row,9);

            if(%this.Admin $= "007")
               %this.Admin = %name;

            if(%name !$="")
            {
				MemberList.AddMember(%this.trid, %wid,%name,%adminLevel,%editkick,%row);
				MemberList.AddRow(%wid,%name TAB %title TAB %adminLevel TAB %this.trid);
				%this.trid++;
				//MemberList.setRowStylebyID( %wid, !%onLine );
            }
    
			if(%isLastRow)
			{
				%this.MList = %this.MList @ %name;
				MemberList.GetOnlineStatus();
				if(%this.needRefresh)
				{
					%this.needRefresh = 0;
					TL_ROSTER.setValue(1);
				}
			}
			else
				%this.MList = %this.MList @ %name @ ",";

			%this.linecount++;

      case "tribeNews":
            %this.articleID = getField(%row,0);
            %this.forumName = getField(%row,1);
            %authorQuad = getFields(%row,5,8);
            %this.articleAuthor = getLinkName(%authorQuad);
            %this.articleUpdate = getField(%row,9);
            %this.articleTitle = getField(%row,10);
              %text = "<lmargin:30><Font:Univers Condensed:18>" @ "<a:forumlink\t" @ %this.forumName @ "\t" @ %this.articleID @ "\t" @ %this.articleTitle @ "><spush><color:FFAA00>"
                      @ %this.articleTitle @ "</a><spop>"NL "<Font:Univers:12> submitted by " @ %this.articleAuthor SPC "on" SPC %this.articleUpdate @ "\n<Font:Univers:16>";
            %text = %text @ getFields(%row,11);
            TWBText.SetText(TWBText.GetText() @ %text @ "\n------------------------------------\n\n");

      case "tribeInvites":
            %inviteId = getField(%row,0);
            %inviteDate = getField(%row,1);
            %invitorQuad = getField(getfields(%row,2,5),0);
            %invitedQuad = getField(getFields(%row,6,9),0);
            %isOwned = getField(%row,10);
            %onLine = getField(%row,11);
            MemberList.AddInvite(%this.tiID, %inviteID,%invitedQuad,%invitorQuad,%isOwned,%row);
                MemberList.AddRow(%inviteID, getField(%invitedQuad,0) TAB %inviteDate TAB %this.tiID);
            %this.tiID++;
            MemberList.setRowStylebyID( %inviteId, !%onLine );
               if(%isLastRow)
                  MemberList.GetOnlineStatus();
   }
}
//-----------------------------------------------------------------------------
function TribePane::connectionTerminated(%this,%key)
{
   canvas.setCursor(DefaultCursor);
  if (%this.NeedRefresh==1)
  {
    %this.NeedRefresh = 0;
   TWBTitle.OldText = TWBTitle.name;
    TL_Roster.setValue(1);
  }
}
//-----------------------------------------------------------------------------
function TribePane::RosterDblClick(%this)
{
   LaunchBrowser( GetField(MemberList.getRowText(MemberList.getSelectedRow()),0), "Warrior" );
}
//-----------------------------------------------------------------------------
function TribePane::ButtonClick( %this, %senderid )
{
   canvas.SetCursor(ArrowWaitCursor);
   %this.tabstate = "TRIBE";
   %this.state = "status";
   %tribeName = TWBTabView.getSelectedText();

   if(isEventPending(TribeAndWarriorBrowserGui.eid))
      cancel(TribeAndWarriorBrowserGui.eid);

   switch(%senderid)
   {
      case 0: //PROFILE
         if(TWBTitle.OldText $= TWBTitle.name || MemberList.rowCount()==0)
            %this.NeedRefresh=0;  
         else
            %this.NeedRefresh=1;  

         %this.key = LaunchGui.key++;
         %this.state = "getTribeProfile";
         TWBTitle.OldText = TWBTitle.name;
         TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQuery,22,%tribeName,%this,%this.key);
      case 1: //ROSTER
         MemberList.Clear();
         MemberList.ClearColumns();
         MemberList.clearList();
         MemberList.CID = 0;
         %this.key = LaunchGui.key++;
         %this.state = "getTribeRoster";
         %this.tstate = "ROSTER";
         MemberList.addColumn( 0, "MEMBER", 92, 0, 100,"left");
         MemberList.addColumn( 1, "TITLE", 90, 0, 100,"left");
         MemberList.addColumn( 2, "RNK", 30, 0, 40, "numeric center" );
         TribeAndWarriorBrowserGui.eid = schedule(500, 0, DatabaseQueryArray,6,0,%tribeName,%this,%this.key, true);
      case 2: //NEWS BUTTON
         %this.key = LaunchGui.key++;
         %this.state = "getTribeNews";
         %this.tstate = "NEWS";
         TribeAndWarriorBrowserGui.eid = schedule(500, 0, DatabaseQueryArray,10,20,%tribeName,%this,%this.key,true);
      case 3: //INVITE BUTTON
         MemberList.Clear();
         MemberList.ClearColumns();
         MemberList.clearList();
         MemberList.CID = 1;
         %this.key = LaunchGui.key++;
         %this.state = "getTribeInvites";
         %this.tstate = "INVITES";
         MemberList.addColumn( 0, "PLAYER", 100, 0, 350,"left" );
         MemberList.addColumn( 1, "INVITED", 112, 0, 300, "left" );
         TribeAndWarriorBrowserGui.eid = schedule(500, 0, DatabaseQueryArray,11,0,%tribeName,%this,%this.key,true);
      case 4: //Admin Tribe
         if(trim(TWBText.getText()) !$= "")
         {
               TribePropertiesDlg.pendingChanges = "";
               Canvas.PushDialog(TribePropertiesDlg);
         }
         else
         {
            tl_profile.setvalue(1);
            MessageBoxOk("ERROR","The Tribe Profile was not properly loaded, please wait a moment and try again");
         }
   }
}
//-----------------------------------------------------------------------------
//==-- PlayerPane ------------------------------------------------------------
//-----------------------------------------------------------------------------
function PlayerPane::onAdd(%this)
{
   // Add the popup menu:
   new GuiControl(WarriorPopupDlg) {
      profile = "GuiModelessDialogProfile";
      horizSizing = "width";
      vertSizing = "height";
      position = "0 0";
      extent = "640 480";
      minExtent = "8 8";
      visible = "1";
      setFirstResponder = "0";
      modal = "1";

      new ShellPopupMenu( WarriorPopup ) {
         profile = "ShellPopupProfile";
         position = "0 0";
         extent = "0 0";
         minExtent = "0 0";
         visible = "1";
         maxPopupHeight = "200";
         noButtonStyle = "1";
      };
   };
}
//-----------------------------------------------------------------------------
function PlayerPane::onWake(%this)
{
   w_admin.setVisible(getField(getRecord(wonGetAuthInfo(),0),0) $= TProfileHdr.PlayerName);
   if(trim(TProfileHdr.playerGfx)$="")
      PlayerPix.setBitmap($PlayerGfx);
   else
      PlayerPix.setBitmap(TProfileHdr.playergfx);

   w_profile.setValue(1);

}
//-----------------------------------------------------------------------------
function PlayerPane::onDatabaseQueryResult(%this,%status,%resultString,%key)
{
   if(%this.key != %key)
      return;
// echo("RECV: " @ %status);
   if(getField(%status,0)==0)
   {
      switch$(%this.state)
      {
         case "getWarriorProfile":
               %isCaller = getField(getRecord(wonGetAuthInfo(),0),0) $= TWBTitle.name;
               TWBTitle.name = getField(%status,2);
               TWBTitle.SetValue(( getField(%status,4) ? getField(%status,2) @ getField(%status,3) : getField(%status,3) @ getField(%status,2)));
               GetProfileHdr(1,getFields(%status,2));
               if(trim(TProfileHdr.playerGfx) !$= "")
                  PlayerPix.setBitmap(TProfileHdr.playerGfx);
               else
                  PlayerPix.setBitmap($PlayerGfx);
               %profileText = "<just:left><lmargin:10><color:ADFFFA><Font:Univers Condensed:10> \n<Font:Univers Condensed:18>";
               %profileText = %profileText @ "Registered:<color:FFAA00>" SPC TProfileHdr.registered @ "<color:ADFFFA>\n";
//             %profileText = %profileText @ "Online:        " SPC (TProfileHdr.onLine ? "<color:33FF33>YES":"<color:FF3333>NO") @ "<color:ADFFFA>\n";

               if(trim(TProfileHdr.playerURL) !$= "")
                  %profileText = %profileText @ "WebSite:     " SPC "<spush><color:CCAA33><a:wwwlink\t" @ TProfileHdr.playerURL @ ">"@TProfileHdr.playerURL@"</a><spop>\n\n";
               else
                  %profileText = %profileText @ "WebSite:     " SPC "<spush><color:CCAA33><a:wwwlink\twww.tribes2.com>www.tribes2.com</a><spop>\n\n";

               %profileText = %profileText @  "<color:82BEB9><Font:Univers:18><just:left><lmargin:20>";
               W_Text.setText(%profileText @ %resultString);
               TProfileHdr.Desc = %resultString;
               if( w_memberlist.rowCount() ==0 )
               {
                  %this.needRefresh = 0;
                  W_tribes.setValue(1);
               }
         case "getWarriorHistory":
               W_Text.setText("\n<lmargin:10><just:left><Font:Univers Condensed:18><color:ADFFFA>PLAYER HISTORY:\n\n<lmargin:20><Font:Univers:18>");
               W_Text.setText(W_Text.getText() @ "<color:82BEB9><lmargin:30><Font:Univers:18>");
               if(getField(%resultString,0)>0)
                  %this.state = "warriorHistory";
               else
                  %this.state = "done";
         case "getWarriorTribeList":
               %this.wtid = 0;
               if(isObject(w_memberListGroup))
                  w_memberListGroup.delete();

               if(getField(%resultString,0)>0)
                  %this.state = "warriorTribeList";
               else
                  %this.state = "done";
         case "getWarriorBuddyList":
               %this.blid = 0;
               if(isObject(w_memberListGroup))
                  w_memberListGroup.delete();

					if(getField(%resultString,0)>0)
						%this.state = "warriorBuddyList";
					else
						%this.state = "done";
			case "setNoPrimaryTribe":
						%this.state = "done";
						messageBoxOK("NOTICE","You are now a free agent, primary tribe settings have been cleared");
			case "setPrimaryTribe":
						%this.state = "done";
						messageBoxOK("NOTICE",getField(%resultString,0) SPC "has been flagged as your primary tribe.","WonUpdateCertificate();");
			case "removeBuddy":
						%this.state = "done";
						w_buddylist.setvalue(1);
			case "inviteWarrior":
						%this.state = "done";
						MessageBoxOK("NOTICE",getField(%status,1));
			case "acceptInvite":
						%this.state = "done";
						EMailMessageDelete();
						MessageBoxOK("NOTICE","Your Invite Acceptance has been sent","WonUpdateCertificate();");
			case "rejectInvite":
						%this.state = "done";
						EMailMessagedelete();
						MessageBoxOK("NOTICE","Your Invite Rejection has been sent","CheckEmail();");
			case "leaveTribe":
						%this.state = "done";
						WonUpdateCertificate();
						for(%x=0;%x<TWBTabView.tabCount();%x++)
						{
							if(TWBTabView.getTabText(%x) $= %this.leavingTribe)
								twbTabView.removeTabByIndex(%x);
						}
						w_tribes.setValue(1);
			case "getVisitorOptions":
					%isCaller = getField(getRecord(wonGetAuthInfo(),0),0) $= TWBTitle.name;
					%callerTribes = getField(%status,9);
					%callerTribeList = getFields(%status,10);
					if(!%isCaller)
					{
						%newText = "<Font:Univers Condensed:18><color:ADFFFA>OPTIONS:<lmargin:20><Font:Univers:18>\n\n";
						%newText = %newText @ "<a:email" TAB TWBTitle.name @ ">Contact " @ TWBTitle.name @ "</a>\n";
						%newText = %newText @ "<a:addBuddy" TAB TWBTitle.name @ ">Add to Buddylist</a>\n";
						if(%callerTribes > 0)
						{
							for(%z=0;%z<%callerTribes;%z++)
							{
								%jtribe = getField(%callerTribeList,4*%z);
								%newText = %newText @ "<a:invite" TAB TWBTitle.name TAB %jtribe @ ">Invite " @ TWBTitle.name @ " to join " @ %jtribe @ "</a>\n";
							}
						}
						else
						{
							if(getField(getRecord(wonGetAuthInfo(),1),0)>0)
							{
								for(%z=0;%z<getField(getRecord(wonGetAuthInfo(),1),0);%z++)
								{
									%jtribe = getField(getRecord(wonGetAuthInfo(),2+%z),0);
									%newText = %newText @ "<a:invite" TAB TWBTitle.name TAB %jtribe @ ">Invite " @ TWBTitle.name @ " to join " @ %jtribe @ "</a>\n";
								}
							}
						}
					}
					else
					{
						%newText = "<Font:Univers Condensed:18><color:ADFFFA>OPTIONS:<lmargin:20><Font:Univers:18>\n\n";
						%newText = %newText @ "<a:editwarrior" TAB TWBTitle.name @ ">Edit Warrior Name</a>\n";
						%newText = %newText @ "<a:editdescription" TAB TWBTitle.name TAB "" @ ">Edit Description</a>\n";
					}
					W_Text.setText("<lmargin:10><just:left>" @ %newText @ "\n");
			case "setPlayerGfx":
				%this.state = "done";
				MessageBoxOK("CONFIRMED",getField(%status,1));
			case "setPlayerUrl":
				%this.state = "done";
				MessageBoxOK("CONFIRMED",getField(%status,1));
			case "changePlayerName":
				%this.state = "done";
            	IRCClient::quit();
            	if(WonUpdateCertificate())
				{
	               TProfileHdr.playername = NewNameEdit.getValue();
	               wp_currentname.setText(NewNameEdit.getValue());
	               twbTabView.setTabText(twbTabView.getSelectedId(),NewNameEdit.getValue());
	               MessageBoxOK("CONFIRMED","Warrior name has been changed." NL "This will require you to close and restart the game to ensure proper function","WarriorPropertiesDlg.onWake();");
	            }
         case "clearWarriorDescription":
            %this.state = "done";
            MessageBoxOK("CONFIRMED","Warrior Description Cleared");
      }
   }
   else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
   {
      %this.state = "error";
      MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
   }
   else
   {
      %this.state = "error";
      MessageBoxOK("WARNING",getField(%status,1));
   }
   canvas.setCursor(DefaultCursor);
}
//-----------------------------------------------------------------------------
function PlayerPane::onDatabaseRow(%this,%row,%isLastRow,%key)
{
   if(%this.key != %key)
      return;
// echo("RECV: " @ %row);
   switch$(%this.state)
   {
      case "warriorHistory":
            W_Text.setText(W_Text.getText() @ %row @ "\n");
            if(%isLastRow)
            {
               %this.state = "done";
               if( %this.needRefresh )
               {
                  %this.needRefresh = 0;
                  W_tribes.setValue(1);
               }
            }
      case "warriorTribeList":
            %wid = getField(%row,2);
            %name = getField(%row,0);
            %title = getField(%row,5);
            %adminLevel = getField(%row,3);
            %editkick = getField(%row,4);
            W_MemberList.AddMember(%this.wtid, %wid,%name,%adminLevel,%editkick,%row);
               W_MemberList.AddRow(%wid,%name TAB %title TAB %adminLevel TAB %this.wtid);
            %this.wtid++;

      case "warriorBuddyList":
            W_MemberList.AddInvite(%this.blid, getField(%row,3),getFields(%row,0,3),getFields(%row,0,3),4,%row);
                W_MemberList.AddRow(getField(%row,3),getField(%row,0) TAB getField(%row,4) TAB %this.blid);
            %this.blid++;
            if(%isLastRow)
              W_MemberList.getOnlineStatus();
//          W_MemberList.setRowStyleByID(getField(%row,3),!getField(%row,5));
   }
}
//-----------------------------------------------------------------------------
function PlayerPane::DblClick(%this)
{
   
   if(w_buddylist.getValue()==1 && getField(GetRecord(wonGetAuthInfo(),0),0) $= TWBTabView.getTabText(TWBTabView.GetSelectedID()))
      %caller = "Warrior";
   else if (w_tribes.getValue()==1)
      %caller = "Tribe";
   else
      %caller = "";
   if(trim(%caller) !$="")
      LaunchBrowser( GetField(W_MemberList.getRowText(W_MemberList.getSelectedRow()),0), %caller);
}
//-----------------------------------------------------------------------------
function PlayerPane::ButtonClick( %this, %senderid )
{  
   canvas.SetCursor(ArrowWaitCursor);
   %this.key = LaunchGui.key++;
   %this.tabstate = "WARRIOR";
   if(isEventPending(TribeAndWarriorBrowserGui.eid))
      cancel(TribeAndWarriorBrowserGui.eid);
   switch(%senderid)
    {
      case 0:  //Player Profile w/ Description
         W_Text.setValue("");
           %this.state = "getWarriorProfile";
          %this.qrystatus = 0;
         %owner = getField(getRecord(WonGetAuthInfo(),0),0);
           %playerName = TWBTabView.getTabText(TWBTabView.GetSelectedID());
          if(TWBTitle.OldText $= TWBTitle.name || w_memberlist.rowCount()==0)
            %this.NeedRefresh=0;  
           else
             %this.NeedRefresh=1;  

         TWBTitle.OldText = TWBTitle.name;
           if (%owner $= %PlayerName)
              %callId = 2;
         else
            %callId = 1;

         TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQuery,23,%playerName,%this,%this.key);
        case 1:   //Player History
          W_Text.setValue("");
         %this.state = "getWarriorHistory";
           %this.qrystatus = 1;
          %playerName = TWBTabView.getTabText(TWBTabView.GetSelectedID());
         %callId = 3;
           TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQueryArray,12,0,%playerName,%this,%this.key,true);
    	 case 2:	//TribeList
	        W_MemberList.Clear();
    	    W_MemberList.ClearColumns();
        	W_MemberList.clearList();
	        W_MemberList.CID = 0;
			%this.wtid = 0;
    	    %this.state = "getWarriorTribeList";
        	W_MemberList.addColumn( 0, "TRIBE", 94, 0, 330 );
	        W_MemberList.addColumn( 1, "TITLE", 80, 0, 300 );
    	    W_MemberList.addColumn( 2, "RNK", 38, 0, 50, "numeric center" );
        	%playerName = TWBTabView.getTabText(TWBTabView.GetSelectedID());
			if(%playerName $= getField(getRecord(wonGetAuthInfo(),0),0))
			{
				%ai = wonGetAuthInfo();
				for(%ix=0;%ix<getField(getRecord(%ai,1),0);%ix++)
				{
					%row = getRecord(%ai,2+%ix);
					//error("AIROW :" @ %row);
					%wid = getField(%row,3);
					%name = getField(%row,0);
					%title = getField(%row,5);
					if(%title $= "")
						%title = "Not Shown";
					%adminLevel = getField(%row,4);
					%editkick = %adminLevel >= 2;
					W_MemberList.AddMember(%this.wtid, %wid,%name,%adminLevel,%editkick,%row);
		   			W_MemberList.AddRow(%wid,%name TAB %title TAB %adminLevel TAB %this.wtid);
					%this.wtid++;
				}
			}
			else
		        TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQueryArray,13,0,%playerName,%this,%this.key,true);
	     case 3:	//Player Buddylist
    	    W_MemberList.Clear();
        	W_MemberList.ClearColumns();
	        W_MemberList.clearList();
    	    W_MemberList.CID = 1;
        	W_MemberList.addColumn( 0, "BUDDY", 100, 0, 250 );
	        W_MemberList.addColumn( 1, "SINCE", 112, 0, 250 );
    	    %this.key = LaunchGui.key++;
        	%this.state = "getWarriorBuddyList";
	        %playerName = TWBTabView.getTabText(TWBTabView.GetSelectedID());
    	    TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQueryArray,5,0,%playerName,%this,%this.key,true);
		case 4:	//Visitor Options
        	W_Text.setValue("");
	        %this.state = "getVisitorOptions";
    	    %owner = getField(getRecord(WonGetAuthInfo(),0),0);
        	%playerName = TWBTabView.getTabText(TWBTabView.GetSelectedID());
	        TWBTitle.OldText = TWBTitle.name;
    	    TribeAndWarriorBrowserGui.eid = schedule(500,0,DatabaseQuery,23,%playerName,%this,%this.key,true);
		case 5: //Admin Options
			if(trim(w_text.getText()) !$= "")
			{
        	 	WarriorPropertiesDlg.pendingChanges = "";
		         Canvas.PushDialog(WarriorPropertiesDlg);
			}
			else
			{
				w_profile.setValue(1);
				messageBoxOK("ERROR","Your Profile was not loaded properly, Please wait a moment and try again");
			}
  }
}
//-----------------------------------------------------------------------------
function W_MemberList::ClearList()
{
   if(isObject(W_MemberListGroup))
      W_MemberListGroup.Delete();
}
//-----------------------------------------------------------------------------
function W_MemberList::AddMember(%this,%mid, %id, %name, %access, %plevel, %vline)
{
   if(!isObject(W_MemberListGroup))
      new SimGroup(W_MemberListGroup);
   %player = new scriptObject()
   {
      className = "TMember";
     rowID = %mid;
      name = %name;
      classId = %id;
      privLevel = %access;
      canAdmin = %plevel;   
     rcvrec = %vline;
   };
   W_MemberListGroup.Add(%player);
}
//-----------------------------------------------------------------------------
function W_MemberList::AddInvite(%this, %rid, %id, %invited, %invitor, %plevel, %vline)
{
   if(!isObject(W_MemberListGroup))
      new SimGroup(W_MemberListGroup);
   %player = new ScriptObject() 
   {
      className = "TBuddy";
     rowID = %rid;
     classId = %id;
     name = %invited;
     privLevel = %plevel;
     iName = %invitor;
     rcvrec = %vline;
   };
   W_MemberListGroup.add(%player);
}
//-----------------------------------------------------------------------------
function W_MemberList::onRightMouseDown( %this, %column, %row, %mousePos )
{  
   // Open the action menu:
    W_MemberList.setSelectedRow(%row);
   if(getField(GetRecord(WonGetAuthInfo(),0),0) $= TWBTabView.getTabText(TWBTabView.GetSelectedID())) //is it me?
   {
      if(w_tribes.getValue())
         %ka = 3;
      else
         %ka = 2;
      warriorPopup.player = w_memberlistgroup.getObject(getField(W_MemberList.getRowText(W_MemberList.getSelectedRow()),%ka));
      if ( WarriorPopup.player.name !$= "" )
      {
         WarriorPopup.position = %mousePos;
         Canvas.pushDialog(WarriorPopupDlg);
        WarriorPopUpDlg.onWake();
        WarriorPopup.forceOnAction();
      }
      else
         error( "Member/Invite Locate Error!" );
   }
}
//-----------------------------------------------------------------------------
function w_MemberList::onAdd(%this)
{
   W_MemberList.addStyle( 1, "Univers", 12 , "150 150 150", "200 200 200", "60 60 60" );
}
//-----------------------------------------------------------------------------
function W_MemberList::GetOnlineStatus(%this)
{
    %this.key = LaunchGui.key++;
    %this.status = "getOnline";
    for(%oStat=0;%oStat<%this.RowCount();%oStat++)
    {
      if(%oStat == 0)
        %roster = %this.getRowID(%oStat);
      else
        %roster = %roster TAB %this.getRowID(%oStat);
    }
    databaseQuery(69,%roster, %this,%this.key);
}
//-----------------------------------------------------------------------------
function W_MemberList::onDatabaseQueryResult(%this,%status,%resultString,%key)
{
  if(%key != %this.key)
    return;
  switch$(%this.status)
  {
    case "getOnline": if(getField(%status,0) == 0)
                        for(%str=0;%str<strLen(%resultString);%str++)
                        {
                          %this.setRowStyle( %str, !getSubStr(%resultString,%str,1) );
                        }
  }
}
//==--------------------------------------------------------------------------
function WarriorPopupDlg::onWake( %this )
{
      TribeAndWarriorBrowserGui.WDialogOpen = true;
      warriorPopUP.clear();
    switch(W_MemberList.CID)
    {
      case 0:  if(getField(GetRecord(WonGetAuthInfo(),0),0) $= TWBTabView.getTabText(TWBTabView.GetSelectedID()))
            { // visitor is owner
               WarriorPopUp.add( strupr(WarriorPopup.Player.name), -1);
               WarriorPopUp.add( "---------------------------------------------", -1);
//                WarriorPopup.add( "Clear Primary Tribe setting", 0);              
               WarriorPopUp.add( "Make Primary Tribe", 1 );
               WarriorPopup.add( "Leave Tribe", 2 );
               WarriorPopup.add( "Go To Forum", 3 );
            }

      case 1: if(getField(GetRecord(WonGetAuthInfo(),0),0) $= TWBTabView.getTabText(TWBTabView.GetSelectedID()))
            { // visitor is owner
               WarriorPopUp.add( strupr(getField(WarriorPopup.player.name,0)), -1);
               WarriorPopUp.add( "---------------------------------------------", -1);
               WarriorPopup.add( "Contact By EMail", 4 );
               WarriorPopup.add( "Remove from Buddylist", 5 );
               WarriorPopup.add( ".............................................", -1);
               WarriorPopup.add( "Clear BuddyList", 6 );
               WarriorPopup.add( "EMail BuddyList", 7 );
            }

      case 2: WarriorPopup.Add("HMMM...",8);   
      case 3: WarriorPopup.Add("HMMM...",8);   
      default: WarriorPopup.Add("HMMM...",8);   
    }
  Canvas.rePaint();
}
//-----------------------------------------------------------------------------
function WarriorPopup::onSelect( %this, %id, %text )
{
   switch( %id )
   {
      case 0: //  0 Make No Primary Tribe
            %player = "NONE";
            LinkMakePrimary("setNoPrimaryTribe",%player,PlayerPane);
      case 1: //  1 Make Primary Tribe
            %player = getField(WarriorPopup.player.name,0);
            LinkMakePrimary("setPrimaryTribe",%player,PlayerPane);
      case 2: //  2 Leave Tribe
            %tribe = getField(WarriorPopup.player.name,0);
                  MessageBoxYesNo("CONFIRM", "Are you sure you wish to leave <spush><color:FFBB33>\n" @ %player @ "<spop>" @ %tribe @ "?",
                             "LinkLeaveTribe(\"" @ %tribe @ "\",\"" @ PlayerPane @ "\");","");
         case 3: //  3 Go To TribeForum
            %tribe = getField(WarriorPopup.player.name,0);
            switch$(%tribe)
            {
               case "T2 ADMINISTRATION":
                     %tribe = "Game Feedback";
            }
             ForumsThreadPane.setVisible(false);
             ForumsTopicsPane.setVisible(true);
            linkForum(%tribe,"");
      case 4: //  4 EMail Buddy
            %player = getField(WarriorPopup.player.name,0);
            LinkEMail(%player);
      case 5: //  5 Remove Buddy
            %player = getField(WarriorPopup.player.name,0);
            LinkRemoveBuddy(%player, PlayerPane, "removeBuddy");
      case 6: // clear Buddylist;
            LinkClearBuddylist(PlayerPane,"removeBuddy");
     case 7: //   7 EMail Buddylist
            for(%x=0;%x<w_memberlist.rowCount();%x++)
            {
               if(%x+1==w_memberlist.rowCount())                  
                  %mailList = %mailList @ getfield(w_memberList.getRowText(%x),0);
               else
                  %mailList = %mailList @ getfield(w_memberList.getRowText(%x),0) @ ",";
            }
           LinkEMail(%mailList);
     case 8:
     case 9:
     case 10:
     case 11:
     case 12:
   }
   canvas.PopDialog(WarriorPopupDlg);
}
//-----------------------------------------------------------------------------
function WarriorPopupDlg::onSleep(%this)
{
      TribeAndWarriorBrowserGui.WDialogOpen = false;
}
//-----------------------------------------------------------------------------
function MemberList::ClearList(%this)
{
   if(isObject(MemberListGroup))
      MemberListGroup.Delete();
}
//-----------------------------------------------------------------------------
function MemberList::AddMember(%this,%rid, %id, %name, %access, %plevel, %vline)
{
   if(!isObject(MemberListGroup))
       new SimGroup(MemberListGroup);
   %player = new scriptObject()
   {
      className = "TMember";
     rowID = %rid;
      name = %name;
      classId = %id;
      privLevel = %access;
      canAdmin = %plevel;   
     rcvrec = %vline;
   };
   MemberListGroup.Add(%player);
}
//-----------------------------------------------------------------------------
function MemberList::AddInvite(%this, %rid, %id, %invited, %invitor, %plevel, %vline)
{
   if(!isObject(MemberListGroup))
       new SimGroup(MemberListGroup);
   %player = new ScriptObject() 
   {
      className = "TInvited";
     rowID = %rid;
     classId = %id;
     name = %invited;
     iName = %invitor;
     privLevel = %plevel;
     rcvrec = %vline;
   };
   MemberListGroup.add(%player);
}
//-----------------------------------------------------------------------------
function MemberList::onRightMouseDown( %this, %column, %row, %mousePos )
{  
    MemberList.setSelectedRow(%row);
   if(tl_roster.getValue())
      %ka = 3;
   else
      %ka = 2;

   TribeMemberPopup.player = MemberListGroup.getObject(getField(MemberList.getRowText(MemberList.getSelectedRow()),%ka));
   if ( TribeMemberPopup.player.name !$= "")
   {
      TribeMemberPopup.position = %mousePos;
      Canvas.pushDialog(TribeMemberPopupDlg);
     TribeMemberPopupDlg.onWake();
     TribeMemberPopup.forceOnAction();
   }
   else
      error( "Member/Invite Locate Error!" );
}
//-----------------------------------------------------------------------------
function Memberlist::onAdd(%this)
{
    MemberList.addStyle( 1, "Univers", 12 , "150 150 150", "200 200 200", "60 60 60" );
}
//-----------------------------------------------------------------------------
function MemberList::GetOnlineStatus(%this)
{
    MemberList.key = LaunchGui.key++;
    MemberList.status = "getOnline";
    for(%oStat=0;%oStat<%this.RowCount();%oStat++)
    {
      if(%oStat == 0)
        %roster = MemberList.getRowID(%oStat);
      else
        %roster = %roster TAB MemberList.getRowID(%oStat);
    }
    databaseQuery(69,%roster, MemberList,MemberList.key);
}
//-----------------------------------------------------------------------------
function MemberList::onDatabaseQueryResult(%this,%status,%resultString,%key)
{
  if(%key != %this.key)
    return;
  switch$(%this.status)
  {
    case "getOnline": if(getField(%status,0) == 0)
                        for(%str=0;%str<strLen(%resultString);%str++)
                        {
                          MemberList.setRowStyle( %str, !getSubStr(%resultString,%str,1) );
                        }
  }
}
//-----------------------------------------------------------------------------
function TribeMemberPopupDlg::onWake( %this )
{
   TribeWarriorBrowserGui.TDialogOpen = true;
    TribeMemberPopup.clear();
   %isMember = 0;
   %ai = wongetauthinfo();
   for(%i=0;%i<getField(getRecord(%ai,1),0);%i++)
   {
      if(TProfileHdr.tribeName $= getField(getRecord(%ai,2+%i),0) || getField(getRecord(%ai,2+%i),3) == 1401 )
      {
         %isMember = 1;
         break;
      }
   }
   TribeMemberPopup.add( strUpr(TribeMemberPopup.player.name), -1);
   TribeMemberPopup.add( "--------------------------------------------",-1);
    switch(MemberList.CID)
    {
      case 0:  
             TribeMemberPopup.add( "Contact by EMail", 2 );
             TribeMemberPopup.add( "Add To Buddylist", 4 );
             TribeMemberPopup.add( "Add To Blocklist", 5 );
//          TribeMemberPopup.add( "Invite To Chat", 8);
            if(%isMember)
            {
               TribeMemberPopup.add( "............................................", -1);
               TribeMemberPopup.add( "Kick from Tribe", 0 );
               TribeMemberPopup.add( "Edit Profile", 1 );
               TribeMemberPopup.add( "EMail Tribe", 3 );
            }

      case 1: TribeMemberPopup.add( "Contact by EMail", 7 );
            TribeMemberPopup.add( "Add To Buddylist",4);
            TribeMemberPopup.add( "............................................", -1);
            TribeMemberPopup.add( "Cancel Invite", 6 );
      case 2: TribeMemberPopup.Add("HMMM...",8);   
      case 3: TribeMemberPopup.Add("HMMM...",8);   
      default: TribeMemberPopup.Add("HMMM...",8);   
    }
  Canvas.rePaint();      
}
//-----------------------------------------------------------------------------
function TribeMemberPopup::onSelect( %this, %id, %text )
{
   switch( %id )
   {
     //  -- 0-ROSTER ----
      case 0: //  0 Kick
           %player = TribeMemberPopup.player.name;
           %tribe = TWBTabView.GetTabText(TWBTabView.GetSelectedID());
            if(MemberList.rowCount()==1)
               TribePropertiesDlg.DisbandTribe(TribePropertiesDlg);
            else    
                  MessageBoxYesNo("CONFIRM", "Are you sure you wish to kick <spush><color:FFBB33>\n" @ %player @ "<spop> from <spush><color:FFBB33>" @ %tribe @ "<spop>?",
                                   "LinkKickMember(\"" @ %player @ "\",\"" @ %tribe @ "\"," @ %this @ ");", "");
      case 1: //  1 Admin Member
              LinkEditMember(GetField(TribememberPopup.player.rcvrec,0)
                        ,TWBTabView.GetTabText(TWBTabView.GetSelectedID())
                        ,GetField(TribeMemberPopup.player.rcvrec,5)
                        ,GetField(TribeMemberPopup.player.rcvrec,4)
                        ,TribeAdminMemberDlg);
      case 2: //  2 EMail Member
           LinkEMail(TribeMemberPopup.player.name);
      case 3: //  3 EMail Tribe
           LinkEMailTribe(MemberList.getSelectedID());
      case 4: //  4 Add To Buddylist
              MessageBoxYesNo("CONFIRM","Add " @ TribeMemberPopup.player.name @ " to Buddy List?",
                       "LinkAddBuddy(\"" @ TribeMemberPopup.player.name @ "\",TWBText,\"addBuddy\");","");
      case 5: //  5 Add To Blocklist
           MessageBoxYesNo("CONFIRM","Block Email from " @ TribeMemberPopup.player.name @ "?",
                       "LinkBlockPlayer(\"" @ TribeMemberPopup.player.name @ "\",EmailGui,\"setBlock\");","");
     //  -- 1-INVITE ----
     case 6: //   6 Cancel Invite
           %player = TribeMemberPopup.player.name;
           %tribe = TWBTabView.GetTabText(TWBTabView.GetSelectedID());
              MessageBoxYesNo("CONFIRM", "Are you sure you wish to cancel the invitation for " @ %player @ " to join " @ %tribe @ "?",
                             "TribeMemberPopup.onSelect(12,\"call12\");","");
     case 7: //   7 EMail Invited Player
           LinkEMail(TribeMemberPopup.player.name);
     case 8: //   8 INVITE TO CHAT
         MessageboxOK("NOTICE","This is a preview of coming functionality and is not yet available for use.");         
     case 9:
     case 10:
     case 11:
     case 12:  %player = TribeMemberPopup.player.name;
            %tribe = TWBTabView.GetTabText(TWBTabView.GetSelectedID());
            LinkInvitation("cancel",%tribe,%player,TribePane);
   }
   canvas.popDialog(TribeMemberPopupDlg);
}
//-----------------------------------------------------------------------------
function TribeMemberPopupDlg::onSleep(%this)
{
   TribeWarriorBrowserGui.TDialogOpen = false;
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::onWake(%this)
{
   if(TProfileHdr.recruiting)
      TP_RecruitFlagBtn.setValue(1);
   else
      TP_RecruitFlagNoBtn.setValue(1);

   if(TProfileHdr.appending)
      TP_AppendFlagBtn.setValue(1);
   else
      TP_PrePendFlagBtn.setValue(1);

   TP_CurrentTag.setText(TProfileHdr.TribeTag);
   TP_NewTag.setText(TProfileHdr.TribeTag);
   TP_TribeDescription.setText(TProfileHdr.Desc);

   %this.RefreshTag();
   %this.pendingChanges = "";
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::Close(%this)
{
   if(%this.pendingChanges $="")
   {
      Canvas.popDialog(%this);
      GraphicsControl.setVisible(0);
      SecurityControl.setVisible(0);
      ProfileControl.setVisible(1);
      TL_Profile.setValue(1);
   }
   else
      MessageBoxYesNo("CONFIRM","Close without saving changes?",
                  "Canvas.popDialog("@%this@");TL_Profile.setValue(1);","");
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::DisbandTribe(%this)
{
   MessageBoxYesNo("CONFIRM","NOTE: Only the Tribe Owner will be able to disband the Tribe." NL " " NL
               "DISBAND " @ TProfileHdr.tribename @ "?",
               "KillTribe(\"" @ TProfileHdr.tribename @ "\");","");
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::ChangeRecruiting(%this)
{
   if(TP_RecruitFlagBtn.getValue())
      %recruiting = 1;
   else
      %recruiting = 0;
   if(TProfileHdr.recruiting != %recruiting)
   {
      LinkTribeToggle("Recruiting",TProfileHdr.TribeName TAB TP_RecruitFlagBtn.getValue(),TWBText,"togglerecruiting");
      %this.pendingChanges="";
   }
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::ToggleAppending(%this)
{
   if(TProfileHdr.appending != TP_AppendFlagBtn.getValue())
   {
      LinkTribeToggle("Appending",TProfileHdr.TribeName TAB TP_AppendFlagBtn.getValue(),TWBText,"toggleappending");
      %this.pendingChanges="";
   }
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::ChangeTag(%this)
{
   if(TP_NewTag.getValue() !$= "")
   {
      TextCheck(TP_NewTag.getValue(),%this);
      if(%this.textCheck==1)
      {
         MessageBoxOK("WARNING","The requested Tribe Tag contains invalid characters, please change your tag and try again.");
      }
      else
      {
         TribePane.key = LaunchGui.key++;
         TribePane.state = "changeTribeTag";
         DatabaseQuery(30,TProfileHdr.tribeID TAB TP_NewTag.getValue(),TribePane,TribePane.key);
         %this.pendingChanges="";
      }
   }
   else
   {
      MessageBoxOK("WARNING","Tribe Tag cannot be blank","TP_NewTag.makeFirstResponder(1);");
   }
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::EditDescription(%this)
{
   %this.pendingChanges = "EDITDESC";
   %this.UpdateDescription();
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::ClearDescription(%this)
{
   TribePane.key = LaunchGui.key++;
   TP_TribeDescription.setText("");
   TProfileHdr.Desc = "";
   TWBText.editType = "tribe";
   canvas.SetCursor(ArrowWaitCursor);
   DatabaseQuery(15,TProfileHdr.tribename TAB getRecordCount(%desc) TAB %desc,TribePane,TribePane.key);
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::UpdateDescription(%this)
{
   TWBText.editType = "tribe";
   LinkEditWarriorDesc(TProfileHdr.tribename,TWBText);
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::RefreshTag(%this)
{
   %this.pendingChanges = "YES";
   %playerName = GetField( WonGetAuthInfo(), 0 );

   // Validate the tribe tag:
   %ntag = TP_NewTag.getValue();   
   %realTag = StripMLControlChars( %ntag );
   if ( %ntag !$= %realTag )
      TP_NewTag.setValue( %realTag );

   if ( TP_PrePendFlagBtn.getValue()==0 )
      TP_PreviewTag.setValue( %playerName @ %realTag );
   else
      TP_PreviewTag.setValue( %realTag @ %playerName );
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::LoadGfxPane(%this)
{
   TribeGraphic.setBitmap(TProfileHdr.tribeGfx);
   %ctrl = TribeGraphicsList;
   %fileSpec = "*.jpg";
   %ctrl.clearColumns();
   %ctrl.clear();
   %ctrl.addColumn( 0, "FILENAME", 100, 0, 200 );
   %id = -1;
   %rowId = "";
   for ( %file = findFirstFile( %fileSpec ); %file !$= ""; %file = findNextFile( %fileSpec ) )
   {
      %currBmp = TeamPix.Bitmap;
      %match = "texticons/twb/" @ fileBase( %file ) @ ".jpg" $= %currBmp;
      if(getSubStr(fileBase(%file) @ ".jpg",0,3)$= "twb")
            %ctrl.addRow( %id++, fileBase( %file ) );

      if(%match)
         %rowId = %id;
   }
   if(%rowID!$="")
      %ctrl.setSelectedRow(%rowID);
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::setTribeGraphic(%this)
{
   if(isEventPending(TribeAndWarriorBrowserGui.eid))
      cancel(TribeAndWarriorBrowserGui.eid);
   TribePane.key = LaunchGui.key++;
   TribePane.state = "setTribeGfx";
   TeamPix.setBitmap(TribeGraphic.bitmap);
    canvas.SetCursor(ArrowWaitCursor);
   TribeAndWarriorBrowserGui.eid = schedule(250,0,DatabaseQuery,29,TProfileHdr.tribename TAB TribeGraphic.bitmap,TribePane,TribePane.key);
}
//-----------------------------------------------------------------------------
function TribeGraphicsList::onSelect(%this)
{
   %jpg = "texticons/twb/" @ %this.getRowText(%this.getSelectedRow()) @ ".jpg";
   TribeGraphic.setBitmap(%jpg);
}
//-----------------------------------------------------------------------------
function TribePropertiesDlg::ConnectionTerminated(%this)
{
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::onWake(%this)
{
   %this.pendingChanges = "";
   UrlEdit.setValue(TProfileHdr.playerURL);
   WP_CurrentName.setValue(TProfileHdr.playername);
   NewNameEdit.setValue("");
   WP_WarriorDescription.setText(TProfileHdr.Desc);
   %this.LoadGfxPane();
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::Close(%this)
{
   if(%this.pendingChanges !$="")
      MessageBoxYesNo("CONFIRM","Close without saving changes?",
                  "Canvas.popDialog("@%this@");W_Profile.setValue(1);","");
   else
   {
      Canvas.popDialog(%this);
      w_GraphicsControl.setVisible(0);
      W_ProfilePane.setVisible(1);
      W_Profile.setValue(1);
   }
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::EditDescription(%this)
{
   %this.pendingChanges = "EDITDESC";
   TWBText.editType = "warrior";
   LinkEditWarriorDesc(getField(TWBTitle.getValue(),0),TWBText);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::ClearDescription(%this)
{
   MessageBoxYesNo("CONFIRM","Clear your Players Description?","WarriorPropertiesDlg.doClearDescription();","");
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::doClearDescription(%this)
{
   PlayerPane.key = LaunchGui.key++;
   PlayerPane.state = "clearWarriorDescription";
   TProfileHdr.Desc = "NONE";
   TWBText.editType = "warrior";
    canvas.SetCursor(ArrowWaitCursor);
   %this.pendingChanges = "";
   EditDescriptionText.setText("No Description On File");
   WP_WarriorDescription.setText(EditDescriptionText.getText());
   DatabaseQuery(17,TProfileHdr.Desc,PlayerPane,PlayerPane.key);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::LoadGfxPane(%this)
{
   PlayerGraphic.setBitmap(PlayerPix.bitmap);
   %ctrl = WarriorGraphicsList;
   %width = getSubStr(%ctrl.getExtent(),0,3)-4;
   %fileSpec = "*.jpg";
   %ctrl.clearColumns();
   %ctrl.clear();
   %ctrl.addColumn( 0, "FILENAME",%width, 0, 200 );
   %id = -1;
   %rowId = "";
   for ( %file = findFirstFile( %fileSpec ); %file !$= ""; %file = findNextFile( %fileSpec ) )
   {
      %currBmp = PlayerPix.Bitmap;
      %match = "texticons/twb/" @ fileBase( %file ) @ ".jpg" $= %currBmp;

      if(getSubStr(fileBase(%file) @ ".jpg",0,3)$= "twb")
            %ctrl.addRow( %id++, fileBase( %file ) );

      if(%match)
         %rowId = %id;
   }
   if(%rowID!$="")
      %ctrl.setSelectedRow(%rowID);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::setPlayerGraphic(%this)
{
   if(isEventPending(TribeAndWarriorBrowserGui.eid))
      cancel(TribeAndWarriorBrowserGui.eid);
   PlayerPane.key = LaunchGui.key++;
   PlayerPane.state = "setPlayerGfx";
   PlayerPix.setBitmap(PlayerGraphic.bitmap);
    canvas.SetCursor(ArrowWaitCursor);
   %this.pendingChanges = "";
   TribeAndWarriorBrowserGui.eid = schedule(250,0,DatabaseQuery,31,PlayerGraphic.bitmap,PlayerPane,PlayerPane.key);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::UpdateUrl(%this)
{
   if(trim(UrlEdit.getValue()) $= "")
   {
      UrlEdit.setValue("www.tribes2.com");
      MessageBoxYesNo("CONFIRM","Your URL is blank, by default www.tribes2.com will become your URL.  Continue?","WarriorPropertiesDlg.setURL();","UrlEdit.setValue(\"\");");
   }
   else
      WarriorPropertiesDlg.setURL();
   
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::setURL(%this)
{
      if(isEventPending(TribeAndWarriorBrowserGui.eid))
         cancel(TribeAndWarriorBrowserGui.eid);
      PlayerPane.key = LaunchGui.key++;
      PlayerPane.state = "setPlayerUrl";
       canvas.SetCursor(ArrowWaitCursor);
      %this.pendingChanges = "";
      DatabaseQuery(32,UrlEdit.getValue(),PlayerPane,PlayerPane.key);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::ChangePlayerName(%this)
{  
   MessageBoxYesNo("CONFIRM","Changing your name will require you to close the game and restart.  Proceed?","WarriorPropertiesDlg.ProcessNameChange();","NewNameEdit.setValue(\"\");");
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::ProcessNameChange(%this)
{
   PlayerPane.key = LaunchGui.key++;
   PlayerPane.state = "changePlayerName";
    canvas.SetCursor(ArrowWaitCursor);
   %this.pendingChanges = "";
   DatabaseQuery(33,NewNameEdit.getValue(),PlayerPane,PlayerPane.key);
}
//-----------------------------------------------------------------------------
function WarriorGraphicsList::onSelect(%this)
{
   %jpg = "texticons/twb/" @ %this.getRowText(%this.getSelectedRow()) @ ".jpg";
   PlayerGraphic.setBitmap(%jpg);
}
//-----------------------------------------------------------------------------
function WarriorPropertiesDlg::ConnectionTerminated(%this)
{
}
//-----------------------------------------------------------------------------