Tribes2/ironsphererpg
1
0
Fork 0
mirror of https://github.com/Jusctsch5/ironsphererpg.git synced 2026-01-19 19:44:45 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
ironsphererpg/scripts/webbrowser.cs

2641 lines
97 KiB
C#
Raw Normal View History

T2RPG: Initial commit of ironsphererpg directory Taking everything obtained from http://ironsphererpg2.webs.com/ and dumping it in a git repo
2015-01-19 03:06:06 +00:00
//==-- 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);
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;
if (getField(%status,3) == getField(getRecord(WonGetAuthInfo(),0),3))
messageBoxOK("COMPLETE","Member Profile has been updated","WonUpdateCertificate();TL_Profile.setValue(1);");
else
messageBoxOK("COMPLETE",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
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::onAdd( %this )
{
%this.addSet( 1, "gui/shll_horztabbuttonB", "5 5 5", "50 50 0", "5 5 5" );
}
//-----------------------------------------------------------------------------
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)
{
}
//-----------------------------------------------------------------------------
Reference in a new issue Copy permalink