TribesReplay/base/scripts/GameGui.cs
Robert MacGregor 7f1fccfdff v23669 (06/25/01):
- (bug fix) Vehicles and deployables now properly explode if they are destroyed while someone is repairing them.

- (bug fix) Sniper laser shots no longer create water splash effects if hitting ground near the water.

- (bug fix) Immersion iForce force feedback mouse is now working properly again.

- (bug fix) The "flag jumping" bug is now fixed. When a flag lands after being dropped, it will stay put when it slides to rest.

- (bug fix) Fixed a situation where closing tribe or player tags on the Browser out of order would cause a disconnect with the database server.

- (bug fix) Players can no longer fire, place mines, place grenades, or place beacons when inside a force field.

- (bug fix) Fixed bug where modifier keys (specifically SHIFT) bound to actions in the game would still cause those actions when typing in a text edit control in-game (such as the chat entry)

- (bug fix) Fixed a bug that could cause a player to drop to desktop when attempting to join a game which was in the process of cycling missions.

- (bug fix) Fixed a Radeon video card issue which could occur if the desktop color bit-depth was different than the color bit-depth that the player was using in the game.

- (bug fix) You won't try to fade into a vehicle that was destroyed after you purchased it, but before you had actually tported to the seat.

- (bug fix) Minor change in the MPB explosion so that the turret part of the MPB doesn't seem to hover in place for a split-second during the explosion.

- (bug fix) Bomber bombs now tumble properly and won't seem to disappear when falling.

- (bug fix) Fixed a rare problem that could cause a client crash while the server is resetting.

- (bug fix) Fixed a problem with the ELF gun effect that was causing hangs.

- (bug fix) Telnet can now be used to set passwords for PURE servers so that they can be used for match games. (command line option...see the post in T2FAQs called "How do I TELNET INTO A PURE SERVER?" for more information on how to use this ability.)

- (bug fix) The "cloning" issue (where players could clone themselves by dying, going to the CC with the CC camera showing themselves, spawn, and flicker back and forth to the CC) is now fixed and no longer occurs.

- (bug fix) Another "cloning" issue which occurred when the Tourney Admin would switch teams for players is fixed and no longer occurs.

- (bug fix) Fixed a bug where, when a client joins a server where the client does not have the map being run on the server, the client hangs while loading. This now elegantly exits instead of hanging.

- (bug fix) Fixed an issue where the last few characters of the Server Info dialog would be cut off.

- (bug fix) Fixed a situation where a blank error box could occur if CD key not entered properly when creating an account.

- (bug fix) Sensor rings will no longer show up on the Command Circuit if the generators are not powered.

- (bug fix) There was a rare bug where, if a player was standing in a force field's position when that force field went from a depowered to powered state (in otherwords, if the gens were repaired while he stood in the FF position), then the player would be stuck forever. If this case occurs, that player will now be destroyed.

- (improvement) The "redjack" icon has been removed and new network throughput graphs have been implemented to better help players troubleshoot their net settings. Additionally, a more accurate and complete set of network presets is available. (See details below under "NETWORK SETTINGS" for more information.)

- (improvement) The pure server concept is now implemented. Pure servers only allow regulation scripts and maps to be run on the server (no restrictions yet on the client), thus ensuring that anyone that joins a "base" server is playing the game as it was designed by Dynamix. MODs are still easily joined, but players can be assured that a "Base" game is really a "Base" game now. (Any game with server or rules mods that is not actually named as a new MOD will be described as "variant" instead of "base" on the master server list.) NOTE: See "PURE SERVER" below for more information on this.

- (improvement) Old Password is now required in order to enter a New Password when editing your account.

- (improvement) Password handling is different now in order to make it more difficult for people to casually find a password on a hard drive.

- (improvement) Made more room for player names to display on the Server Info box.

- (improvement) Bomber and Tank now have separate energy capacitors for their turret weapons. This energy pool is completely separate from the energy pool that the thrusters and force shields use. (Gunner energy is displayed as a second bar below the regular vehicle energy and is orangish in color.)

- (improvement) Vertical thrusters on air vehicles are now more efficient to enable better takeoffs from ground level.

- (improvement) Changed team damage OFF to include friendly turret fire and vehicle fire. (In otherwords, if Team Damage is OFF, then turrets fire and vehicle fire will not affect friendly units.)

- (improvement) Splash damage no longer falls off so dramatically with distance. You will find that area effect (explosion) weapons now are more effective within their damage area.

- (improvement) While in Tournament mode, and while in observer mode at the beginning of a match (before teams have been selected), players will now be able to chat with one another.

- (improvement) Added observer points to Tombstone (it previously had none).

- (improvement) Grenades tossing is slightly improved. The grenades will throw farther with less time spent pressing the grenade key. (They still have the exact same minimum and maximum throwing distances, it's just easier to throw it out to max range now.)

- (community) Player histories are now accurate.

- (community) Preferences in the FORUMs should be fixed now so that they stay in existence. The sort is the only exception. That will reformat each time you enter the FORUM and you will need to select whichever sort your prefer at that time.
2017-07-17 23:22:55 -04:00

1758 lines
55 KiB
C#

//------------------------------------------------------------------------------
//
// GameGui.cs
//
//------------------------------------------------------------------------------
//------------------------------------------------------------------------------
function LaunchGame( %pane )
{
if ( %pane !$= "" )
GameGui.pane = %pane;
LaunchTabView.viewTab( "GAME", GameGui, 0 );
}
//------------------------------------------------------------------------------
function GameGui::onWake( %this )
{
Canvas.pushDialog( LaunchToolbarDlg );
if ( isDemo() || isDemoServer() || $PlayingOnline )
GM_Frame.setTitle( "GAME" );
else
GM_Frame.setTitle( "LAN GAME" );
// This is essentially an "isInitialized" flag...
if ( GM_TabView.tabCount() == 0 )
{
if ( isDemo() )
{
GM_TabView.addTab( 1, "JOIN" );
%this.pane = "Join";
}
else if ( isDemoServer() )
{
GM_TabView.addTab( 2, "HOST" );
%this.pane = "Host";
}
else
{
GM_TabView.addTab( 1, "JOIN" );
GM_TabView.addTab( 2, "HOST" );
GM_TabView.addTab( 3, "WARRIOR SETUP", 1 );
queryMasterGameTypes();
}
}
switch$ ( %this.pane )
{
case "Join":
GM_TabView.setSelected( 1 );
case "Host":
GM_TabView.setSelected( 2 );
default: // "Warrior"
GM_TabView.setSelected( 3 );
}
}
//------------------------------------------------------------------------------
function GameGui::onSleep( %this )
{
%ctrl = "GM_" @ %this.pane @ "Pane";
if ( isObject( %ctrl ) )
%ctrl.onDeactivate();
// if( isObject( $dummySeq ) )
// {
// $dummySeq.delete();
// }
Canvas.popDialog(LaunchToolbarDlg);
}
//------------------------------------------------------------------------------
function GameGui::setKey( %this, %key )
{
// To avoid console error
}
//------------------------------------------------------------------------------
function GameGui::onClose( %this, %key )
{
// To avoid console error
}
//------------------------------------------------------------------------------
function GM_TabView::onAdd( %this )
{
%this.addSet( 1, "gui/shll_horztabbuttonB", "5 5 5", "50 50 0", "5 5 5" );
}
//------------------------------------------------------------------------------
function GM_TabView::onSelect( %this, %id, %text )
{
GM_JoinPane.setVisible( %id == 1 );
GM_HostPane.setVisible( %id == 2 );
GM_WarriorPane.setVisible( %id == 3 );
GM_TabFrame.setAltColor( %this.getTabSet( %id ) != 0 );
%ctrl = "GM_" @ GameGui.pane @ "Pane";
if ( isObject( %ctrl ) )
%ctrl.onDeactivate();
switch ( %id )
{
case 1: // Join
GM_JoinPane.onActivate();
case 2: // Host
GM_HostPane.onActivate();
case 3: // Warrior Setup
GM_WarriorPane.onActivate();
}
}
//------------------------------------------------------------------------------
// Join Game pane:
//------------------------------------------------------------------------------
function GM_JoinPane::onActivate( %this )
{
GameGui.pane = "Join";
if ( %this.onceOnly $= "" )
{
GM_VersionText.setText( "Version" SPC getT2VersionNumber() );
GMJ_StopBtn.setActive( false );
%this.onceOnly = 1;
if ( isDemo() || isDemoServer() )
GMJ_Browser.lastQuery = "Demo";
else
GMJ_Browser.lastQuery = $PlayingOnline ? "Master" : "LanServers";
GMJ_Browser.runQuery();
}
if ( isObject( BrowserMap ) )
{
BrowserMap.pop();
BrowserMap.delete();
}
new ActionMap( BrowserMap );
if ( !isDemo() )
BrowserMap.bindCmd( keyboard, insert, "GMJ_Browser.insertIPAddress();", "" );
BrowserMap.bindCmd( keyboard, "ctrl f", "Canvas.pushDialog( FindServerDlg );", "" );
BrowserMap.bindCmd( keyboard, F3, "GMJ_Browser.findNextServer();", "" );
BrowserMap.push();
GM_VersionText.setVisible( !isDemo() );
if ( $pref::ServerBrowser::InfoWindowOpen )
Canvas.pushDialog( ServerInfoDlg );
}
//------------------------------------------------------------------------------
function GM_JoinPane::onDeactivate( %this )
{
if ( isObject( BrowserMap ) )
{
BrowserMap.pop();
BrowserMap.delete();
}
GM_VersionText.setVisible( false );
$pref::ServerBrowser::InfoWindowOpen = GMJ_Browser.infoWindowOpen;
if ( GMJ_Browser.infoWindowOpen )
Canvas.popDialog( ServerInfoDlg );
}
//------------------------------------------------------------------------------
$BrowserColumnCount = 0;
$BrowserColumnName[0] = "Server Name";
$BrowserColumnRange[0] = "25 300";
$BrowserColumnCount++;
$BrowserColumnName[1] = "Status";
$BrowserColumnRange[1] = "25 75";
$BrowserColumnCount++;
$BrowserColumnName[2] = "Favorite";
$BrowserColumnRange[2] = "25 75";
$BrowserColumnCount++;
$BrowserColumnName[3] = "Ping";
$BrowserColumnRange[3] = "25 120";
$BrowserColumnCount++;
$BrowserColumnName[4] = "Game Type";
$BrowserColumnRange[4] = "25 200";
$BrowserColumnCount++;
$BrowserColumnName[5] = "Mission Name";
$BrowserColumnRange[5] = "25 300";
$BrowserColumnCount++;
if ( !isDemo() )
{
$BrowserColumnName[6] = "Rules Set";
$BrowserColumnRange[6] = "25 300";
$BrowserColumnCount++;
}
$BrowserColumnName[7] = "# Players (Bots)";
$BrowserColumnRange[7] = "25 150";
$BrowserColumnCount++;
$BrowserColumnName[8] = "CPU";
$BrowserColumnRange[8] = "25 120";
$BrowserColumnCount++;
$BrowserColumnName[9] = "IP Address";
$BrowserColumnRange[9] = "25 200";
$BrowserColumnCount++;
if ( !isDemo() )
{
$BrowserColumnName[10] = "Version";
$BrowserColumnRange[10] = "25 200";
$BrowserColumnCount++;
}
//------------------------------------------------------------------------------
function GMJ_Browser::onAdd( %this )
{
// Add the Server Browser columns based on the prefs:
for ( %i = 0; %i < $BrowserColumnCount; %i++ )
{
%key = firstWord( $pref::ServerBrowser::Column[%i] );
if ( $BrowserColumnName[%key] !$= "" && $BrowserColumnRange[%key] !$= "" )
{
%width = getWord( $pref::ServerBrowser::Column[%i], 1 );
%this.addColumn( %key, $BrowserColumnName[%key], %width, firstWord( $BrowserColumnRange[%key] ), getWord( $BrowserColumnRange[%key], 1 ) );
}
}
%this.setSortColumn( $pref::ServerBrowser::SortColumnKey );
%this.setSortIncreasing( $pref::ServerBrowser::SortInc );
}
//------------------------------------------------------------------------------
function updateServerBrowser()
{
GMJ_Browser.sort();
if ( GMJ_Browser.infoWindowOpen )
ServerInfoDlg.update();
}
//------------------------------------------------------------------------------
function updateServerBrowserStatus( %text, %percentage )
{
GMJ_StatusText.setValue( %text );
if ( %percentage >= 0 && %percentage <= 1 )
{
GMJ_ProgressBar.setValue( %percentage );
if ( %percentage == 0 ) // Query is over.
GMJ_StopBtn.setActive( false );
}
}
//------------------------------------------------------------------------------
function GMJ_Browser::runQuery( %this )
{
GMJ_ProgressBar.setValue( 0 );
$JoinGameAddress = "";
GMJ_JoinBtn.setActive( false );
GMJ_RefreshServerBtn.setActive( false );
%this.clearList();
// Clear the Server Info dialog:
SI_InfoWindow.setText( "No server selected." );
SI_ContentWindow.setText( "" );
if ( %this.lastQuery $= "LanServers" )
{
GMJ_StatusText.setValue( "Querying LAN servers..." );
GMJ_FilterBtn.setActive( false );
GMJ_FilterBtn.setVisible( false );
GMJ_FilterText.setText( "LAN Servers" );
queryLanServers( $JoinGamePort );
GMJ_StopBtn.setActive( true );
}
else if ( %this.lastQuery $= "Demo" )
{
GMJ_StatusText.setValue( "Querying the master server..." );
GMJ_FilterBtn.setActive( false );
GMJ_FilterBtn.setVisible( false );
GMJ_FilterText.setText( "Demo Servers" );
queryMasterServer( $JoinGamePort );
GMJ_StopBtn.setActive( true );
}
else
{
GMJ_FilterBtn.setActive( true );
GMJ_FilterBtn.setVisible( true );
if ( $pref::ServerBrowser::activeFilter == 0 )
{
GMJ_StatusText.setValue( "Querying the master server..." );
GMJ_FilterText.setText( "All servers" );
queryMasterServer( $JoinGamePort );
GMJ_StopBtn.setActive( true );
}
else if ( $pref::ServerBrowser::activeFilter == 1 )
{
// Buddy list query:
GMJ_StatusText.setValue( "Fetching buddy list..." );
GMJ_FilterText.setText( "Buddies" );
%this.key = LaunchGui.key++;
DatabaseQueryArray( 5, 0, "", %this, %this.key );
}
else if ( $pref::ServerBrowser::activeFilter == 2 )
{
// Favorites only:
GMJ_FilterText.setText( "Favorites" );
if ( $pref::ServerBrowser::FavoriteCount <= 0 || $pref::ServerBrowser::Favorite[0] $= "" )
{
GMJ_StatusText.setValue( "No favorites found." );
MessageBoxOK( "INVALID FILTER", "You haven't marked any servers as favorites. Click the Favorites column to mark a server as a favorite." );
}
else
{
GMJ_StatusText.setValue( "Querying favorites..." );
queryFavoriteServers();
GMJ_StopBtn.setActive( true );
}
}
else
{
GMJ_StatusText.setValue( "Querying the master server..." );
%filterIndex = $pref::ServerBrowser::activeFilter - 3;
if ( $pref::ServerBrowser::Filter[%filterIndex] !$= "" )
{
%filter = $pref::ServerBrowser::Filter[%filterIndex];
GMJ_FilterText.setText( getField( %filter, 0 ) );
%rulesSet = getField( %filter, 1 );
if ( %rulesSet $= "" )
%rulesSet = "any";
%missionType = getField( %filter, 2 );
if ( %missionType $= "" )
%missionType = "any";
%maxPlayers = getField( %filter, 4 );
if ( %maxPlayers $= "" )
%maxPlayers = 255;
%maxBots = getField( %filter, 7 );
if ( %maxBots $= "" )
%maxBots = 16;
%regionMask = getField( %filter, 5 );
if ( %regionMask $= "" )
%regionMask = 4294967295;
queryMasterServer(
$JoinGamePort,
0, // Flags
%rulesSet, // Rules Set
%missionType, // Mission Type
getField( %filter, 3 ), // Min Players
%maxPlayers, // Max Players
%maxBots, // Max Bots
%regionMask, // Region Mask
getField( %filter, 6 ), // Max Ping
getField( %filter, 8 ), // Min CPU Speed
getField( %filter, 9 ) ); // Filter flags
GMJ_StopBtn.setActive( true );
}
else
{
// Filter is invalid, so fall back to the default:
$pref::ServerBrowser::activeFilter = 0;
GMJ_FilterText.setText( "All servers" );
queryMasterServer( $JoinGamePort );
GMJ_StopBtn.setActive( true );
}
}
}
}
//------------------------------------------------------------------------------
function GMJ_Browser::onDatabaseQueryResult( %this, %status, %resultString, %key )
{
if ( %this.key != %key )
return;
if ( getField( %resultString, 0 ) <= 0 )
{
GMJ_StatusText.setValue( "No buddies found." );
MessageBoxOK( "INVALID FILTER", "You have no buddies in your buddy list!" );
}
else // Prepare for the incoming buddy list:
%this.buddyList = "";
}
//------------------------------------------------------------------------------
function GMJ_Browser::onDatabaseRow( %this, %row, %isLastRow, %key )
{
if ( %this.key != %key )
return;
%buddyName = getField( %row, 0 );
%buddyGuid = getField( %row, 3 );
echo( "Got buddy: \c9\"" @ %buddyName @ "\": " @ %buddyGuid );
%this.buddyList = %this.buddyList $= "" ? %buddyGuid : %this.buddyList TAB %buddyGuid;
if ( %isLastRow )
{
GMJ_StatusText.setValue( "Querying the master server..." );
queryMasterServer(
$JoinGamePort, // Port
0, // Flags
"Any", // Rules Set
"Any", // Mission Type
0, // Min Players
255, // Max Players
16, // Max Bots
0xFFFFFFFF, // Region Mask
0, // Max Ping
0, // Min CPU Speed
0, // Filter flags
%this.buddyList );
GMJ_StopBtn.setActive( true );
%this.buddyList = "";
}
}
//------------------------------------------------------------------------------
function GMJ_Browser::onSelect( %this, %address )
{
GMJ_JoinBtn.setActive( true );
if ( !isServerQueryActive() )
GMJ_RefreshServerBtn.setActive( true );
$JoinGamePassword = "";
$JoinGameAddress = %address;
if ( %this.infoWindowOpen )
ServerInfoDlg.update();
}
//------------------------------------------------------------------------------
function GMJ_Browser::refreshSelectedServer( %this )
{
querySingleServer( $JoinGameAddress );
if ( %this.infoWindowOpen )
ServerInfoDlg.update();
}
//------------------------------------------------------------------------------
function GMJ_Browser::onSetSortKey( %this, %sortKey, %isIncreasing )
{
$pref::ServerBrowser::SortColumnKey = %sortKey;
$pref::ServerBrowser::SortInc = %isIncreasing;
}
//------------------------------------------------------------------------------
function GMJ_Browser::onColumnResize( %this, %column, %newSize, %key )
{
$pref::ServerBrowser::Column[%column] = %key SPC %newSize;
}
//------------------------------------------------------------------------------
function GMJ_Browser::onColumnRepositioned( %this, %oldColumn, %newColumn )
{
// Puke em all...
%count = %this.getNumColumns();
for ( %col = 0; %col < %count; %col++ )
$pref::ServerBrowser::Column[%col] = %this.getColumnKey( %col ) SPC %this.getColumnWidth( %col );
}
//------------------------------------------------------------------------------
function GMJ_Browser::addFavorite( %this, %name, %address )
{
//error( "** addFavorite( \"" @ %name @ "\", " @ %address @ " ) **" );
$pref::ServerBrowser::Favorite[$pref::ServerBrowser::FavoriteCount] = %name TAB %address;
$pref::ServerBrowser::FavoriteCount++;
}
//------------------------------------------------------------------------------
function GMJ_Browser::removeFavorite( %this, %address )
{
//error( "** removeFavorite( " @ %address @ " ) **" );
%foundIt = false;
for ( %i = 0; %i < $pref::ServerBrowser::FavoriteCount; %i++ )
{
if ( !%foundIt )
{
if ( getField( $pref::ServerBrowser::Favorite[%i], 1 ) $= %address )
%foundIt = true;
}
if ( %foundIt )
$pref::ServerBrowser::Favorite[%i] = $pref::ServerBrowser::Favorite[%i + 1];
}
if ( %foundIt )
$pref::ServerBrowser::FavoriteCount--;
}
//------------------------------------------------------------------------------
function GMJ_Browser::insertIPAddress( %this )
{
if ( isServerQueryActive() )
{
BrowserMap.pop();
MessageBoxOK( "ERROR", "Can't insert addresses while a query is running!", "BrowserMap.push();" );
alxPlay( InputDeniedSound, 0, 0, 0 );
return;
}
IPEntry.setText( "IP:" );
Canvas.pushDialog( EnterIPDlg );
}
//------------------------------------------------------------------------------
function EnterIPDlg::onDone( %this )
{
Canvas.popDialog( EnterIPDlg );
%address = IPEntry.getValue();
if ( getSubStr( %address, 0, 3 ) !$= "IP:" )
%address = "IP:" @ %address;
if ( strpos( %address, ":", 3 ) == -1 )
%address = %address @ ":28000";
echo( "Starting ping to server " @ %address @ "..." );
pushServerAddress( %address );
GMJ_Browser.selectRowByAddress( %address, true );
}
//------------------------------------------------------------------------------
function FindServerDlg::onWake( %this )
{
FS_SearchPattern.validate();
FS_SearchPattern.selectAll();
}
//------------------------------------------------------------------------------
function FindServerDlg::onGo( %this )
{
%pattern = FS_SearchPattern.getValue();
if ( %pattern !$= "" )
{
Canvas.popDialog( FindServerDlg );
if ( !GMJ_Browser.findServer( %pattern ) )
MessageBoxOK( "NOT FOUND", "No servers with \"" @ %pattern @ "\" in their name were found." );
}
else
alxPlay( InputDeniedSound, 0, 0, 0 );
}
//------------------------------------------------------------------------------
function FS_SearchPattern::validate( %this )
{
FS_GoBtn.setActive( %this.getValue() !$= "" );
}
//------------------------------------------------------------------------------
function ServerInfoDlg::onAdd( %this )
{
%this.headerStyle = "<font:" @ $ShellLabelFont @ ":" @ $ShellFontSize @ "><color:00DC00>";
}
//------------------------------------------------------------------------------
function ServerInfoDlg::onWake( %this )
{
GMJ_Browser.infoWindowOpen = true;
// Get the position and size from the prefs:
%res = getResolution();
%resW = firstWord( %res );
%resH = getWord( %res, 1 );
%w = firstWord( $pref::ServerBrowser::InfoWindowExtent );
if ( %w > %resW )
%w = %resW;
%h = getWord( $pref::ServerBrowser::InfoWindowExtent, 1 );
if ( %h > %resH )
%h = %resH;
%x = firstWord( $pref::ServerBrowser::InfoWindowPos );
if ( %x > %resW - %w )
%x = %resW - %w;
%y = getWord( $pref::ServerBrowser::InfoWindowPos, 1 );
if ( %y > %resH - %h )
%y = %resH - %h;
SI_Window.resize( %x, %y, %w, %h );
GMJ_InfoBtn.setActive( false );
SI_RefreshBtn.setActive( false );
%this.update();
}
//------------------------------------------------------------------------------
function ServerInfoDlg::update( %this )
{
%status = GMJ_Browser.getServerStatus();
if ( %status $= "invalid" )
{
SI_InfoWindow.setText( "No server selected." );
return;
}
%info = GMJ_Browser.getServerInfoString();
%infoText = "<tab:70><spush>" @ %this.headerStyle @ "NAME:<spop><lmargin:70>" TAB getRecord( %info, 0 )
NL "<lmargin:0><spush>" @ %this.headerStyle @ "ADDRESS:<spop><lmargin:70>" TAB getRecord( %info, 1 ) @ "<lmargin:0>";
%refreshable = false;
if ( %status $= "responded" )
{
%temp = getRecord( %info, 2 );
if ( %temp !$= "" )
%infoText = %infoText NL "<spush>" @ %this.headerStyle @ "RULES SET:<spop><lmargin:70>" TAB %temp @ "<lmargin:0>";
%temp = getRecord( %info, 3 );
if ( %temp $= "" )
%temp = "None";
%infoText = %infoText NL "<spush>" @ %this.headerStyle @ "FLAGS:<spop><lmargin:70>" TAB %temp @ "<lmargin:0>";
%temp = getRecord( %info, 4 );
if ( %temp !$= "" )
%infoText = %infoText NL "<spush>" @ %this.headerStyle @ "GAME TYPE:<spop><lmargin:70>" TAB %temp @ "<lmargin:0>";
%temp = getRecord( %info, 5 );
if ( %temp !$= "" )
%infoText = %infoText NL "<spush>" @ %this.headerStyle @ "MAP NAME:<spop><lmargin:70>" TAB %temp @ "<lmargin:0>";
%temp = getRecords( %info, 6, 10 );
if ( %temp !$= "" )
%infoText = %infoText NL "<spush>" @ %this.headerStyle @ "SERVER INFO:<spop><lmargin:10>" TAB %temp @ "<lmargin:0>";
// Fill in the content window:
%content = GMJ_Browser.getServerContentString();
SI_ContentWindow.fill( %content );
%refreshable = !isServerQueryActive();
}
else
{
switch$ ( %status )
{
case "new":
%temp = "<spush><color:DCDC00>Not queried yet.<spop>";
SI_ContentWindow.setText( "Not available." );
case "querying":
%temp = "<spush><color:00DC00>Querying...<spop>";
SI_ContentWindow.setText( "Not available." );
case "updating":
%temp = "<spush><color:00DC00>Updating...<spop>";
case "timedOut":
%temp = "<spush><color:DC1A1A>Timed out.<spop>";
SI_ContentWindow.setText( "Not available." );
%refreshable = !isServerQueryActive();
}
%infoText = %infoText NL "<lmargin:0><spush>" @ %this.headerStyle @ "STATUS: <spop><lmargin:70>" TAB %temp;
}
SI_InfoWindow.setText( %infoText );
SI_InfoScroll.scrollToTop();
SI_ContentScroll.scrollToTop();
SI_RefreshBtn.setActive( %refreshable );
}
//------------------------------------------------------------------------------
function SI_ContentWindow::fill( %this, %content )
{
if ( getRecordCount( %content ) == 1 )
{
%this.setText( "" );
return;
}
%record = 0;
%teamCount = getRecord( %content, %record );
%record++;
if ( %teamCount > 1 )
{
%string = "<spush>" @ ServerInfoDlg.headerStyle @ "TEAMS<lmargin%:50>SCORE<spop>";
for ( %i = 0; %i < %teamCount; %i++ )
{
%teamEntry = getRecord( %content, %record );
%string = %string NL "<lmargin:0><clip%:50>" SPC getField( %teamEntry, 0 ) @ "</clip><lmargin%:50>" SPC getField( %teamEntry, 1 );
%record++;
}
%playerCount = getRecord( %content, %record );
%record++;
%string = %string NL "\n<lmargin:0><spush>" @ ServerInfoDlg.headerStyle @ "PLAYERS<lmargin%:40>TEAM<lmargin%:75>SCORE<spop>";
for ( %i = 0; %i < %playerCount; %i++ )
{
%playerEntry = getRecord( %content, %record );
%string = %string NL "<lmargin:0><clip%:40>" SPC getField( %playerEntry, 0 ) @ "</clip><lmargin%:40><clip%:35>"
SPC getField( %playerEntry, 1 ) @ "</clip><lmargin%:75><clip%:25>" SPC getField( %playerEntry, 2 ) @ "</clip>";
%record++;
}
}
else
{
%record++;
%playerCount = getRecord( %content, %record );
%record++;
%string = "<spush>" @ ServerInfoDlg.headerStyle @ "PLAYERS<lmargin%:60>SCORE<spop>";
for ( %i = 0; %i < %playerCount; %i++ )
{
%playerEntry = getRecord( %content, %record );
%string = %string NL "<lmargin:0><clip%:60>" SPC getField( %playerEntry, 0 ) @ "</clip><lmargin%:60>" SPC getField( %playerEntry, 2 );
%record++;
}
}
%this.setText( %string );
}
//------------------------------------------------------------------------------
function ServerInfoDlg::onSleep( %this )
{
GMJ_Browser.infoWindowOpen = false;
// Save off the Server Info Window prefs:
$pref::ServerBrowser::InfoWindowPos = SI_Window.getPosition();
$pref::ServerBrowser::InfoWindowExtent = SI_Window.getExtent();
$pref::ServerBrowser::InfoWindowBarPos = getWord( SI_InfoScroll.getExtent(), 1 );
GMJ_InfoBtn.setActive( true );
}
//------------------------------------------------------------------------------
function PasswordDlg::onWake( %this )
{
$JoinGamePassword = "";
}
//------------------------------------------------------------------------------
function PasswordDlg::accept( %this )
{
Canvas.popDialog( PasswordDlg );
JoinSelectedGame();
}
//------------------------------------------------------------------------------
function JoinSelectedGame()
{
$ServerInfo = GMJ_Browser.getServerInfoString();
JoinGame($JoinGameAddress);
}
//------------------------------------------------------------------------------
function JoinGame(%address)
{
MessagePopup( "JOINING SERVER", "CONNECTING" );
cancelServerQuery();
echo("Joining Server " @ %address);
%playerPref = $pref::Player[$pref::Player::Current];
%playerName = getField( %playerPref, 0 );
%playerRaceGender = getField( %playerPref, 1 );
%playerSkin = getField( %playerPref, 2 );
%playerVoice = getField( %playerPref, 3 );
%playerVoicePitch = getField( %playerPref, 4 );
LoadingGui.gotLoadInfo = "";
connect( %address, $JoinGamePassword, %playerName, %playerRaceGender, %playerSkin, %playerVoice, %playerVoicePitch );
}
//------------------------------------------------------------------------------
// Host Game pane:
//------------------------------------------------------------------------------
function GM_HostPane::onActivate( %this )
{
GameGui.pane = "Host";
$HostGameType = $PlayingOnline ? "Online" : "LAN";
buildMissionTypePopup( GMH_MissionType );
GMH_BotMinSlider.setValue( $Host::MinBotDifficulty );
GMH_BotMaxSlider.setValue( $Host::MaxBotDifficulty );
GMH_BotsEnabledTgl.setValue( $Host::BotsEnabled );
GMH_BotsEnabledTgl.onAction();
//clamp and set the bot count slider
setBotCountSlider();
// Select the saved-off prefs:
if ( $Host::MissionType !$= "" )
{
// Find the last selected type:
for ( %type = 0; %type < $HostTypeCount; %type++ )
{
if ( $HostTypeName[%type] $= $Host::MissionType )
break;
}
if ( %type != $HostTypeCount )
{
GMH_MissionType.setSelected( %type );
GMH_MissionType.onSelect( %type, "" );
if ( $Host::Map !$= "" )
{
// Find the last selected mission:
for ( %index = 0; %index < $HostMissionCount[%type]; %index++ )
{
if ( $HostMissionFile[$HostMission[%type, %index]] $= $Host::Map )
break;
}
if ( %index != $HostMissionCount[%type] )
GMH_MissionList.setSelectedById( $HostMission[%type, %index] );
}
}
}
else
{
GMH_MissionType.setSelected( 0 );
GMH_MissionType.onSelect( 0, "" );
}
GMH_StartGameBtn.makeFirstResponder( 1 );
}
//------------------------------------------------------------------------------
function GM_HostPane::onDeactivate( %this )
{
}
//------------------------------------------------------------------------------
function buildMissionTypePopup( %popup )
{
%popup.clear();
for( %type = 0; %type < $HostTypeCount; %type++ )
%popup.add( $HostTypeDisplayName[%type], %type );
%popup.sort( true );
}
//------------------------------------------------------------------------------
function getMissionTypeDisplayNames()
{
%file = new FileObject();
for ( %type = 0; %type < $HostTypeCount; %type++ )
{
$HostTypeDisplayName[%type] = $HostTypeName[%type];
if ( %file.openForRead( "scripts/" @ $HostTypeName[%type] @ "Game.cs" ) )
{
while ( !%file.isEOF() )
{
%line = %file.readLine();
if ( getSubStr( %line, 0, 17 ) $= "// DisplayName = " )
{
$HostTypeDisplayName[%type] = getSubStr( %line, 17, 1000 );
break;
}
}
}
}
%file.delete();
}
//------------------------------------------------------------------------------
function buildMissionList()
{
%search = "missions/*.mis";
%ct = 0;
$HostTypeCount = 0;
$HostMissionCount = 0;
%fobject = new FileObject();
for( %file = findFirstFile( %search ); %file !$= ""; %file = findNextFile( %search ) )
{
%name = fileBase( %file ); // get the name
%idx = $HostMissionCount;
$HostMissionCount++;
$HostMissionFile[%idx] = %name;
$HostMissionName[%idx] = %name;
if ( !%fobject.openForRead( %file ) )
continue;
%typeList = "None";
while ( !%fobject.isEOF() )
{
%line = %fobject.readLine();
if ( getSubStr( %line, 0, 17 ) $= "// DisplayName = " )
{
// Override the mission name:
$HostMissionName[%idx] = getSubStr( %line, 17, 1000 );
}
else if ( getSubStr( %line, 0, 18 ) $= "// MissionTypes = " )
{
%typeList = getSubStr( %line, 18, 1000 );
break;
}
}
%fobject.close();
// Don't include single player missions:
if ( strstr( %typeList, "SinglePlayer" ) != -1 )
continue;
// Test to see if the mission is bot-enabled:
%navFile = "terrains/" @ %name @ ".nav";
$BotEnabled[%idx] = isFile( %navFile );
for( %word = 0; ( %misType = getWord( %typeList, %word ) ) !$= ""; %word++ )
{
for ( %i = 0; %i < $HostTypeCount; %i++ )
if ( $HostTypeName[%i] $= %misType )
break;
if ( %i == $HostTypeCount )
{
$HostTypeCount++;
$HostTypeName[%i] = %misType;
$HostMissionCount[%i] = 0;
}
// add the mission to the type
%ct = $HostMissionCount[%i];
$HostMission[%i, $HostMissionCount[%i]] = %idx;
$HostMissionCount[%i]++;
}
}
getMissionTypeDisplayNames();
%fobject.delete();
}
// One time only function call:
buildMissionList();
//------------------------------------------------------------------------------
function validateMissionAndType(%misName, %misType)
{
for ( %mis = 0; %mis < $HostMissionCount; %mis++ )
if( $HostMissionFile[%mis] $= %misName )
break;
if ( %mis == $HostMissionCount )
return false;
for ( %type = 0; %type < $HostTypeCount; %type++ )
if ( $HostTypeName[%type] $= %misType )
break;
if(%type == $hostTypeCount)
return false;
$Host::Map = $HostMissionFile[%mis];
$Host::MissionType = $HostTypeName[%type];
return true;
}
//------------------------------------------------------------------------------
// This function returns the index of the next mission in the mission list.
//------------------------------------------------------------------------------
function getNextMission( %misName, %misType )
{
// First find the index of the mission in the master list:
for ( %mis = 0; %mis < $HostMissionCount; %mis++ )
if( $HostMissionFile[%mis] $= %misName )
break;
if ( %mis == $HostMissionCount )
return "";
// Now find the index of the mission type:
for ( %type = 0; %type < $HostTypeCount; %type++ )
if ( $HostTypeName[%type] $= %misType )
break;
if ( %type == $hostTypeCount )
return "";
// Now find the mission's index in the mission-type specific sub-list:
for ( %i = 0; %i < $HostMissionCount[%type]; %i++ )
if ( $HostMission[%type, %i] == %mis )
break;
// Go BACKWARDS, because the missions are in reverse alphabetical order:
if ( %i == 0 )
%i = $HostMissionCount[%type] - 1;
else
%i--;
// If there are bots in the game, don't switch to any maps without
// a NAV file:
if ( $HostGameBotCount > 0 )
{
for ( %j = 0; %j < $HostMissionCount[%type] - 1; %j++ )
{
if ( $BotEnabled[$HostMission[%type, %i]] )
break;
if ( %i == 0 )
%i = $HostMissionCount[%type] - 1;
else
%i--;
}
}
return $HostMission[%type, %i];
}
//------------------------------------------------------------------------------
function GMH_MissionType::onSelect( %this, %id, %text )
{
// Fill the mission list:
GMH_MissionList.clear();
%lastAdded = 0;
for ( %i = 0; %i < $HostMissionCount[%id];%i++ )
{
%misId = $HostMission[%id,%i];
GMH_MissionList.addRow( %misId, $HostMissionName[%misId] );
%lastAdded = %misId;
}
GMH_MissionList.sort( 0 );
// Select the last mission added:
GMH_MissionList.setSelectedById( %lastAdded );
$Host::MissionType = $HostTypeName[%id];
// Disable all non bot-enabled maps if bots are enabled:
if ( GMH_BotsEnabledTgl.getValue() )
GMH_BotsEnabledTgl.onAction();
}
//------------------------------------------------------------------------------
function GMH_MissionList::onSelect( %this, %id, %text )
{
if ( GMH_BotsEnabledTgl.getValue() )
GMH_StartGameBtn.setActive( $BotEnabled[%id] );
}
//------------------------------------------------------------------------------
function tryToStartHostedGame()
{
if ( GMH_BotsEnabledTgl.getValue() )
{
%selId = GMH_MissionList.getSelectedId();
if ( !$BotEnabled[%selId] )
return;
}
StartHostedGame();
}
//------------------------------------------------------------------------------
function StartHostedGame()
{
%selId = GMH_MissionList.getSelectedId();
%misFile = $HostMissionFile[%selId];
if ( $Host::BotsEnabled )
{
validateMaxPlayers();
$HostGameBotCount = $Host::BotCount;
}
else
$HostGameBotCount = 0;
$ServerName = $Host::GameName;
$Host::Map = %misFile;
echo( "exporting server prefs..." );
export( "$Host::*", "prefs/ServerPrefs.cs", false );
if ( $Host::Dedicated )
{
MessageBoxYesNo( "WARNING",
"You are about to launch a dedicated server and quit Tribes 2. Do you want to continue?",
"tryToLaunchDedicatedServer(" @ $Host::PureServer @ ");" );
return;
}
//IRCClient::onJoinGame("", "");
MessagePopup( "STARTING SERVER", "Initializing..." );
Canvas.repaint();
cancelServerQuery();
setNetPort( $Host::Port );
CreateServer( $Host::Map, $Host::MissionType );
%playerPref = $pref::Player[$pref::Player::Current];
%playerName = getField( %playerPref, 0 );
%playerRaceGender = getField( %playerPref, 1 );
%playerSkin = getField( %playerPref, 2 );
%playerVoice = getField( %playerPref, 3 );
%playerVoicePitch = getField( %playerPref, 4 );
localConnect( %playerName, %playerRaceGender, %playerSkin, %playerVoice, %playerVoicePitch );
if(!$RecordDemo)
{
// demos are incompatible with local simulated net params
ServerConnection.setSimulatedNetParams($pref::Net::simPacketLoss, $pref::net::simPing * 0.5);
LocalClientConnection.setSimulatedNetParams($pref::Net::simPacketLoss, $pref::net::simPing * 0.5);
}
}
//------------------------------------------------------------------------------
function tryToLaunchDedicatedServer( %pure )
{
%numBots = $Host::BotsEnabled ? $Host::BotCount : 0;
if ( launchDedicatedServer( $Host::MissionType, $Host::Map, %numBots, %pure ) )
quit();
else
{
error( "Failed to launch the dedicated server." );
schedule( 0, 0, MessageBoxOK, "FAILED", "Tribes 2 failed to launch the dedicated server." );
}
}
//------------------------------------------------------------------------------
function GMH_BotsEnabledTgl::onAction( %this )
{
%count = GMH_MissionList.rowCount();
if ( %this.getValue() )
{
for ( %i = 0; %i < %count; %i++ )
{
%id = GMH_MissionList.getRowId( %i );
GMH_MissionList.setRowActive( %id, $BotEnabled[%id] );
}
GMH_EnableBotsGroup.setVisible(true);
%misId = GMH_MissionList.getSelectedId();
GMH_StartGameBtn.setActive( $BotEnabled[%misId] );
}
else
{
for ( %i = 0; %i < %count; %i++ )
{
%id = GMH_MissionList.getRowId( %i );
GMH_MissionList.setRowActive( %id, true );
}
GMH_EnableBotsGroup.setVisible( false );
GMH_StartGameBtn.setActive( true );
}
}
//------------------------------------------------------------------------------
function updateMinBotDifficulty()
{
%min = GMH_BotMinSlider.getValue();
$Host::MinBotDifficulty = %min;
if ( GMH_BotMaxSlider.getValue() < %min )
GMH_BotMaxSlider.setValue( %min );
}
//------------------------------------------------------------------------------
function updateMaxBotDifficulty()
{
%max = GMH_BotMaxSlider.getValue();
$Host::MaxBotDifficulty = %max;
if ( GMH_BotMinSlider.getValue() > %max )
GMH_BotMinSlider.setValue( %max );
}
//------------------------------------------------------------------------------
function GMH_BotsEnabledTgl::onAction( %this )
{
%count = GMH_MissionList.rowCount();
if ( %this.getValue() )
{
for ( %i = 0; %i < %count; %i++ )
{
%id = GMH_MissionList.getRowId( %i );
GMH_MissionList.setRowActive( %id, $BotEnabled[%id] );
}
GMH_EnableBotsGroup.setVisible(true);
%misId = GMH_MissionList.getSelectedId();
GMH_StartGameBtn.setActive( $BotEnabled[%misId] );
}
else
{
for ( %i = 0; %i < %count; %i++ )
{
%id = GMH_MissionList.getRowId( %i );
GMH_MissionList.setRowActive( %id, true );
}
GMH_EnableBotsGroup.setVisible(false);
GMH_StartGameBtn.setActive( true );
}
}
//------------------------------------------------------------------------------
function validateMaxPlayers()
{
%maxPlayers = GMH_MaxPlayersTE.getValue();
if (%maxPlayers < 1)
%maxPlayers = 1;
if (%maxPlayers > 64)
%maxPlayers = 64;
//reset the value back into the TE
GMH_MaxPlayersTE.setValue(%maxPlayers);
//and make sure the bot sliders reflect the changes..
setBotCountSlider();
}
function setBotCountSlider()
{
%maxBots = 15;
if (%maxBots > $Host::MaxPlayers - 2)
%maxBots = $Host::MaxPlayers - 2;
if ($Host::BotCount > %maxBots + 1)
$Host::BotCount = %maxBots + 1;
if (%maxBots <= 1)
%sliderValue = 0.0;
else
%sliderValue = ($Host::BotCount - 0.95) / %maxBots;
GMH_MinCombatantSlider.setValue(%sliderValue);
}
function setMinCombatants()
{
%maxBots = 16;
if (%maxBots > $Host::MaxPlayers - 1)
%maxBots = $Host::MaxPlayers - 1;
if (%maxBots <= 0)
$Host::BotCount = 0;
else
$Host::BotCount = mFloor( GMH_MinCombatantSlider.getValue() * (%maxBots - 1)) + 1;
GMH_BotCountText.setValue( "(" @ $Host::BotCount @ ")" );
}
//------------------------------------------------------------------------------
function AdvancedHostDlg::onWake( %this )
{
// Set all of the controls to the current pref states:
AH_HostPort.setText( $Host::Port );
AH_DedicatedTgl.setValue( $Host::Dedicated );
AH_DedicatedTgl.onAction();
AH_TournamentTgl.setValue( $Host::TournamentMode );
AH_AdminVoteTgl.setValue( $Host::allowAdminPlayerVotes );
AH_AllowSmurfTgl.setValue( !$Host::NoSmurfs );
AH_TimeLimit.setText( $Host::TimeLimit );
AH_AdminPassword.setText( $Host::AdminPassword );
AH_ServerInfo.setText( $Host::Info );
AH_VotePassSlider.setValue( $Host::VotePassPercent );
AH_VoteTimeSlider.setValue( $Host::VoteTime );
AH_RespawnSlider.setValue( $Host::PlayerRespawnTimeout );
AH_WarmupSlider.setValue( $Host::WarmupTime );
}
//------------------------------------------------------------------------------
function AdvancedHostDlg::accept( %this )
{
// Apply all of the changes:
$Host::Port = AH_HostPort.getValue();
$Host::Dedicated = AH_DedicatedTgl.getValue();
if ( $Host::Dedicated )
$Host::PureServer = AH_PureServerTgl.getValue();
$Host::TournamentMode = AH_TournamentTgl.getValue();
$Host::allowAdminPlayerVotes = AH_AdminVoteTgl.getValue();
$Host::NoSmurfs = !AH_AllowSmurfTgl.getValue();
$Host::TimeLimit = AH_TimeLimit.getValue();
$Host::AdminPassword = AH_AdminPassword.getValue();
$Host::Info = AH_ServerInfo.getText();
$Host::VotePassPercent = mFloor( AH_VotePassSlider.getValue() );
$Host::VoteTime = mFloor( AH_VoteTimeSlider.getValue() );
$Host::PlayerRespawnTimeout = mFloor( AH_RespawnSlider.getValue() );
$Host::WarmupTime = mFloor( AH_WarmupSlider.getValue() );
// Save off the new prefs:
export( "$Host::*", "prefs/ServerPrefs.cs", false );
Canvas.popDialog( AdvancedHostDlg );
}
//------------------------------------------------------------------------------
function AH_DedicatedTgl::onAction( %this )
{
if ( %this.getValue() )
{
AH_PureServerTgl.setValue( $Host::PureServer );
AH_PureServerTgl.setActive( true );
}
else
{
AH_PureServerTgl.setValue( false );
AH_PureServerTgl.setActive( false );
}
}
//------------------------------------------------------------------------------
function AH_VotePassText::update( %this )
{
%this.setText( mFloor( AH_VotePassSlider.getValue() ) @ "%" );
}
//------------------------------------------------------------------------------
function AH_VoteTimeText::update( %this )
{
%this.setText( mFloor( AH_VoteTimeSlider.getValue() ) SPC "seconds" );
}
//------------------------------------------------------------------------------
function AH_RespawnText::update( %this )
{
%this.setText( mFloor( AH_RespawnSlider.getValue() ) SPC "seconds" );
}
//------------------------------------------------------------------------------
function AH_WarmupText::update( %this )
{
%this.setText( mFloor( AH_WarmupSlider.getValue() ) SPC "seconds" );
}
//------------------------------------------------------------------------------
// Warrior Setup pane:
//------------------------------------------------------------------------------
function GM_WarriorPane::onActivate( %this )
{
GameGui.pane = "Warrior";
if ( $pref::Player::Count == 0 )
%this.createNewAlias();
else
{
// Fill the warrior list:
GMW_WarriorPopup.clear();
GMW_LightRdo.setValue( true );
// First add the warrior corresponding to the player nickname:
%this.warriorIndex = -1;
if ( $PlayingOnline )
{
%warrior = getField( WONGetAuthInfo(), 0 );
for ( %i = 0; %i < $pref::Player::Count; %i++ )
{
%name = getField( $pref::Player[%i], 0 );
if ( %name $= %warrior )
{
%this.warriorIndex = %i;
GMW_WarriorPopup.add( %name, %i, 1 );
break;
}
}
}
// Add the rest of the aliases:
for ( %count = 0; %count < $pref::Player::Count; %count++ )
{
if ( $pref::Player[%count] !$= "" && %count != %this.warriorIndex )
{
%name = stripTrailingSpaces( strToPlayerName( getField( $pref::Player[%count], 0 ) ) );
GMW_WarriorPopup.add( %name, %count );
}
}
// Fill the race/gender list:
GMW_RaceGenderPopup.fillList();
// Select the current player:
GMW_WarriorPopup.setSelected( $pref::Player::Current );
GMW_WarriorPopup.onSelect( $pref::Player::Current, "" );
if ( $pref::Player::Count > 1 && $pref::Player::Current != %this.warriorIndex )
GMW_DeleteWarriorBtn.setActive( true );
else
GMW_DeleteWarriorBtn.setActive( false );
GMW_PlayerPageBtn.setVisible( $PlayingOnline );
}
}
//------------------------------------------------------------------------------
function GM_WarriorPane::onDeactivate( %this )
{
}
//------------------------------------------------------------------------------
function GM_WarriorPane::createNewAlias( %this )
{
NW_NameEdit.setValue( "" );
NW_DoneBtn.setActive( false );
NW_CancelBtn.setVisible( $pref::Player::Count > 0 );
Canvas.pushDialog( NewWarriorDlg );
}
//------------------------------------------------------------------------------
function GM_WarriorPane::deleteWarrior( %this )
{
MessageBoxYesNo( "CONFIRM", "Are you sure you want to delete this alias?", "doDeleteWarrior();", "" );
}
//------------------------------------------------------------------------------
function doDeleteWarrior()
{
// Make sure we aren't trying to delete the default warrior (should never get this):
if ( $pref::Player::Current == GM_WarriorPane.warriorIndex )
return;
for ( %i = $pref::Player::Current; %i < $pref::Player::Count - 1; %i++ )
$pref::Player[%i] = $pref::Player[%i + 1];
$pref::Player[%i] = "";
if ( GM_WarriorPane.warriorIndex > $pref::Player::Current )
GM_WarriorPane.warriorIndex--;
$pref::Player::Count--;
if ( GM_WarriorPane.warriorIndex != -1 )
$pref::Player::Current = GM_WarriorPane.warriorIndex;
else
$pref::Player::Current = 0;
// Update the interface:
GM_WarriorPane::onActivate();
}
//------------------------------------------------------------------------------
function GM_WarriorPane::gotoPlayerPage( %this )
{
%warrior = getField( WONGetAuthInfo(), 0 );
LaunchBrowser( %warrior, "Warrior" );
}
//------------------------------------------------------------------------------
function GMW_PlayerModel::update( %this )
{
// Get the shape names:
if ( GMW_HeavyRdo.getValue() )
%armor = "heavy";
else if ( GMW_MediumRdo.getValue() )
%armor = "medium";
else
%armor = "light";
switch ( GMW_RaceGenderPopup.getSelected() )
{
case 1:
if ( %armor $= "heavy" )
%shape = %armor @ "_male";
else
%shape = %armor @ "_female";
case 2: %shape = "bioderm_" @ %armor;
default: %shape = %armor @ "_male";
}
%skin = getField( $pref::Player[$pref::Player::Current], 2 );
// if( isObject( $dummySeq ) )
// {
// $dummySeq.delete();
// }
//
// $dummySeq = new TSShapeConstructor()
// {
// baseShape = %shape @ ".dts";
// sequence0 = %shape @ "_forward.dsq dummyRun";
// };
%this.setModel( %shape, %skin );
}
//------------------------------------------------------------------------------
function GMW_WarriorPopup::onAdd( %this )
{
%this.addScheme( 1, "255 255 0", "255 255 128", "128 128 0" );
}
//------------------------------------------------------------------------------
function GMW_WarriorPopup::onSelect( %this, %id, %text )
{
// Set this as the currently selected player:
$pref::Player::Current = %id;
// Select the race/gender:
%raceGender = getField( $pref::Player[%id], 1 );
%selId = GMW_RaceGenderPopup.findText( %raceGender );
if ( %selId == -1 )
%selId = 0;
GMW_RaceGenderPopup.setSelected( %selId );
GMW_SkinPopup.fillList( %selId );
GMW_VoicePopup.fillList( %selId );
// Select the skin:
%skin = getField( $pref::Player[%id], 2 );
%selId = -1;
for ( %i = 0; %i < GMW_SkinPopup.size(); %i++ )
{
if ( GMW_SkinPopup.realSkin[%i] !$= "" )
{
if ( %skin $= GMW_SkinPopup.realSkin[%i] )
{
%selId = %i;
break;
}
}
else if ( %skin $= GMW_SkinPopup.getTextById( %i ) )
{
%selId = %i;
break;
}
}
if ( %selId == -1 )
%selId = 0;
GMW_SkinPopup.setSelected( %selId );
GMW_SkinPopup.onSelect( %selId, GMW_SkinPopup.getTextById( %selId ) );
// Select the voice:
%voice = getField( $pref::Player[%id], 3 );
%voiceId = getSubStr( %voice, strlen( %voice ) -1, 1000 ) - 1;
GMW_VoicePopup.setSelected( %voiceId );
GMW_VoicePopup.voiceIndex = 0;
GMW_DeleteWarriorBtn.setActive( $pref::Player::Count > 1 && %id != GM_WarriorPane.warriorIndex );
}
//------------------------------------------------------------------------------
function GMW_RaceGenderPopup::fillList( %this )
{
%this.clear();
%this.add( "Human Male", 0 );
%this.add( "Human Female", 1 );
%this.add( "Bioderm", 2 );
}
//------------------------------------------------------------------------------
function GMW_RaceGenderPopup::onSelect( %this, %id, %text )
{
// Update the player pref:
$pref::Player[$pref::Player::Current] = setField( $pref::Player[$pref::Player::Current], 1, %this.getText() );
// Fill the skin list:
%prevSkin = GMW_SkinPopup.getText();
GMW_SkinPopup.fillList( %id );
%selId = GMW_SkinPopup.findText( %prevSkin );
if ( %selId == -1 )
%selId = 0;
GMW_SkinPopup.setSelected( %selId );
GMW_SkinPopup.onSelect( %selId, GMW_SkinPopup.getTextById( %selId ) );
// Fill the voice list:
%prevVoice = GMW_VoicePopup.getText();
GMW_VoicePopup.fillList( %id );
%selId = GMW_VoicePopup.findText( %prevVoice );
if ( %selId == -1 )
%selId = 0;
GMW_VoicePopup.setSelected( %selId );
GMW_VoicePopup.onSelect( %selId, "" );
}
//------------------------------------------------------------------------------
$SkinCount = 0;
$Skin[$SkinCount, name] = "Blood Eagle";
$Skin[$SkinCount, code] = "beagle";
$SkinCount++;
$Skin[$SkinCount, name] = "Diamond Sword";
$Skin[$SkinCount, code] = "dsword";
$SkinCount++;
$Skin[$SkinCount, name] = "Starwolf";
$Skin[$SkinCount, code] = "swolf";
$SkinCount++;
$Skin[$SkinCount, name] = "Phoenix";
$Skin[$SkinCount, code] = "cotp";
$SkinCount++;
$Skin[$SkinCount, name] = "Storm";
$Skin[$SkinCount, code] = "base";
$SkinCount++;
$Skin[$SkinCount, name] = "Inferno";
$Skin[$SkinCount, code] = "baseb";
$SkinCount++;
$Skin[$SkinCount, name] = "Horde";
$Skin[$SkinCount, code] = "horde";
$SkinCount++;
//------------------------------------------------------------------------------
function GMW_SkinPopup::fillList( %this, %raceGender )
{
for ( %i = 0; %i < %this.size(); %i++ )
%this.realSkin[%i] = "";
%this.clear();
%path = "textures/skins/";
switch ( %raceGender )
{
case 0: // Human Male
%pattern = ".lmale.png";
case 1: // Human Female
%pattern = ".lfemale.png";
case 2: // Bioderm
%pattern = ".lbioderm.png";
}
%count = 0;
for ( %file = findFirstFile( %path @ "*" @ %pattern ); %file !$= ""; %file = findNextFile( %path @ "*" @ %pattern ) )
{
%skin = getSubStr( %file, strlen( %path ), strlen( %file ) - strlen( %path ) - strlen( %pattern ) ); // strip off the path and postfix
// Make sure this is not a bot skin:
if ( %skin !$= "basebot" && %skin !$= "basebbot" )
{
// See if this skin has an alias:
for ( %i = 0; %i < $SkinCount; %i++ )
{
if ( %skin $= $Skin[%i, code] )
{
%skin = $Skin[%i, name];
%this.realSkin[%count] = $Skin[%i, code];
break;
}
}
%this.add( %skin, %count );
%count++;
}
}
%this.sort( true );
}
//------------------------------------------------------------------------------
function GMW_SkinPopup::onSelect( %this, %id, %text )
{
// Update the player pref:
if ( %this.realSkin[%id] !$= "" )
$pref::Player[$pref::Player::Current] = setField( $pref::Player[$pref::Player::Current], 2, %this.realSkin[%id] );
else
$pref::Player[$pref::Player::Current] = setField( $pref::Player[$pref::Player::Current], 2, %text );
// Update the player model:
GMW_PlayerModel.update();
}
//------------------------------------------------------------------------------
// TRANSLATE these voice set display names:
$MaleVoiceCount = 0;
$MaleVoiceName[$MaleVoiceCount] = "Hero";
$MaleVoiceCount++;
$MaleVoiceName[$MaleVoiceCount] = "Iceman";
$MaleVoiceCount++;
$MaleVoiceName[$MaleVoiceCount] = "Rogue";
$MaleVoiceCount++;
$MaleVoiceName[$MaleVoiceCount] = "Hardcase";
$MaleVoiceCount++;
$MaleVoiceName[$MaleVoiceCount] = "Psycho";
$MaleVoiceCount++;
$FemaleVoiceCount = 0;
$FemaleVoiceName[$FemaleVoiceCount] = "Heroine";
$FemaleVoiceCount++;
$FemaleVoiceName[$FemaleVoiceCount] = "Professional";
$FemaleVoiceCount++;
$FemaleVoiceName[$FemaleVoiceCount] = "Cadet";
$FemaleVoiceCount++;
$FemaleVoiceName[$FemaleVoiceCount] = "Veteran";
$FemaleVoiceCount++;
$FemaleVoiceName[$FemaleVoiceCount] = "Amazon";
$FemaleVoiceCount++;
$DermVoiceCount = 0;
$DermVoiceName[$DermVoiceCount] = "Warrior";
$DermVoiceCount++;
$DermVoiceName[$DermVoiceCount] = "Monster";
$DermVoiceCount++;
$DermVoiceName[$DermVoiceCount] = "Predator";
$DermVoiceCount++;
//------------------------------------------------------------------------------
function GMW_VoicePopup::fillList( %this, %raceGender )
{
%this.clear();
switch ( %raceGender )
{
case 0: // Human Male
for ( %i = 0; %i < $MaleVoiceCount; %i++ )
%this.add( $MaleVoiceName[%i], %i );
case 1: // Human Female
for ( %i = 0; %i < $FemaleVoiceCount; %i++ )
%this.add( $FemaleVoiceName[%i], %i );
case 2: // Bioderm
for ( %i = 0; %i < $DermVoiceCount; %i++ )
%this.add( $DermVoiceName[%i], %i );
}
}
//------------------------------------------------------------------------------
function GMW_VoicePopup::onSelect( %this, %id, %text )
{
// Update the player pref:
switch ( GMW_RaceGenderPopup.getSelected() )
{
case 0: %base = "Male";
case 1: %base = "Fem";
case 2: %base = "Derm";
}
$pref::Player[$pref::Player::Current] = setField( $pref::Player[$pref::Player::Current], 3, %base @ ( %id + 1 ) );
%this.voiceIndex = 0;
}
//------------------------------------------------------------------------------
function GMW_VoicePitchSlider::setPitch(%this)
{
}
function GMW_VoicePopup::test( %this )
{
switch ( %this.voiceIndex )
{
case 0: %file = "gbl.hi";
case 1: %file = "gbl.brag";
case 2: %file = "gbl.woohoo";
case 3: %file = "gbl.rock";
case 4: %file = "gbl.obnoxious";
case 5: %file = "gbl.shazbot";
}
switch ( GMW_RaceGenderPopup.getSelected() )
{
case 0: %base = "Male";
case 1: %base = "Fem";
case 2: %base = "Derm";
}
GMW_VoiceTestBtn.setActive( false );
%voiceId = %this.getSelected() + 1;
%wav = "voice/" @ %base @ %voiceId @ "/" @ %file @ ".wav";
%handle = alxCreateSource( AudioGui, %wav );
//pitch the voice
//%pitchSliderVal = GMW_VoicePitchSlider.getValue();
//%pitch = getValidVoicePitch(%voiceId, %pitchSliderVal);
//if (%pitch != 1.0)
// alxSourcef(%handle, "AL_PITCH", %pitch);
alxPlay( %handle );
%delay = alxGetWaveLen( %wav );
schedule( %delay, 0, "restoreVoiceTestButton" );
if ( %this.voiceIndex == 5 )
%this.voiceIndex = 0;
else
%this.voiceIndex++;
}
//------------------------------------------------------------------------------
function restoreVoiceTestButton()
{
GMW_VoiceTestBtn.setActive( true );
}
//------------------------------------------------------------------------------
function NewWarriorDlg::createPlayer( %this )
{
%name = stripTrailingSpaces( NW_NameEdit.getValue() );
$pref::Player[$pref::Player::Count] = %name @ "\tHuman Male\tbeagle\tMale1";
$pref::Player::Current = $pref::Player::Count;
$pref::Player::Count++;
Canvas.popDialog( NewWarriorDlg );
GM_WarriorPane.onActivate(); // Refresh the warrior gui
}
//------------------------------------------------------------------------------
function NW_NameEdit::checkValidPlayerName( %this )
{
%name = %this.getValue();
%test = strToPlayerName( %name );
if ( %name !$= %test )
%this.setValue( %test );
NW_DoneBtn.setActive( strlen( stripTrailingSpaces( %test ) ) > 2 );
}
//------------------------------------------------------------------------------
function NW_NameEdit::processEnter( %this )
{
%this.checkValidPlayerName();
if ( NW_DoneBtn.isActive() )
NewWarriorDlg.createPlayer();
}