Tribes2/TribesReplay
1
0
Fork 0
mirror of https://github.com/Ragora/TribesReplay.git synced 2026-01-21 02:24:43 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity
TribesReplay/base/scripts/webnews.cs
Robert MacGregor 669c607190 v24834 - skipped v24763 and v24822 due to not being available (09/13/01): 
Map Editor
===================================
Several editor crashes have been resolved and this tool should be more stable for the MOD community now.

VCR Mode
===================================
The VCR Mode has been implemented.

F3 starts recording.  F4 stops the current recording.  Multiple recordings can be made from the same mission.

Other controls can be used while playing back a recording. They include:

   -- ESCAPE will stop the playback
   -- TAB will pop up the playback controls window in the upper part of the screen
   -- SPACEBAR will pause/unpause the playback
   -- Numpad + will increase the time step so that the playback accelerates (maximum of 16X speed)
   -- Numpad - will decrease the time step so that the playback slows down (minimum of 1/16X speed)

***If you Alt-Tab to windows to rename a demo file and then return to Tribes instead of using the rename file feature of the demo recorder you will crash after you exit the recorder. It is a windows issue and so we can't fix it.

Satchel Charge Icon Glow
===================================
When the satchel charge is deployed and ready to explode, the icon now glows. The icon disappears completely when the satchel is destroyed (either through activation or destruction). This allows players to more readily keep track of satchel charge status.

"Visibility" option for Server Admins
=====================================
Allows an Advanced Server option to indicate whether the server will use the "Speed" or "Distance" versions of the maps when hosting games. The "Distance" setting will use world versions with much less fog and more visible distance. The "Speed" setting will use the current foggier map settings. These settings will be displayed as a new column on the Master Server List titled "VISIBILITY" and the settings will be "Speed" or "Distance".

NOTE: This visibility change won't be apparent on all maps. A map you can use as a test to show the differences is "Dessicator".

World Skins Default to Main Tribes
==========================================
The missions are now set up so they have default skins other than "Storm" vs. "Inferno". This occurs whenever a player has "Show Individual Skins" toggled OFF. In otherwords, some maps will have "Diamond Skin" vs. "StarWolf", while others will have different combinations. (NOTE: If a player has "Show Individual Skins" toggled ON, then he will see the regular individual skins for players.) New voice samples have been added to allow Victory messages indicate these new team skins. Also note: Bioderms are bioderms, regardless of the team they are on...we're not changing models or voice packages.

Teams now use skins for CTF games relative to the planet - as follows:
Terrain 	Team 1 		Team 2
Ice  		Starwolf 	Blood Eagle
Lush  		Blood Eagle 	Diamond Sword
Badlands 	Starwolf 	Diamond Sword
Desert  	Phoenix 	Blood Eagle
Lava  		Diamond Sword 	Phoenix

If the server admin wishes to specify team skins, set the variable
$host:: useCustomSkins = true;  in serverPrefs.cs

if this variable is set true the skins and names used are
$Host::TeamName1 and $Host::TeamName2  and
$Host::TeamSkin1 and $Host::TeamSkin2  also set in serverPrefs.cs.
These team and skin names are always used for non-CTF games.

NOTE: In "Tournament" mode games, the skins will always default to Storm and Inferno rather than world-specific skins. This is to make it easier for League and Ladder players to assign teams to sides.

Cheat Fixes
===================================
Significant cheat prevention code has been implemented to eliminate known cheats, as well as to make it much more difficult for future cheating of a similar nature to occur.

NOTE: If you have any troubles running a server now, you may have altered or removed something from the build on your server. The code is checking almost everything now (shapes, textures, etc.), so you should ensure that you have all files present from a normal build on your server. (Additional files, like MODs and extra art files won't be a problem...but all original files must be there as well.)

Siege Halftime Improved
===================================
The Siege halftime now gets a screen listing the winning team instead of simply "Switching Sides".

CTF Individual Scoring
===================================
No change was made whatsoever to the team CTF scoring. But the individual scoring now takes into account vehicle kills, more repair/destroy stuff, and makes it nice and robust for statistical tracking later. NOTE: The scores are dramatically inflated compared to previous individual scores so that we had more "granularity" in the system and didn't have to use decimal points. Thus, you will appear to be racking up a huge amount of points, but it's all relative when compared to other players in the game.
Scoring Details
----------------------
Kill: 10 pts
Flag Capture: 30 pts
Flag Grab (if subsequently captured): 20  [A one player grab-and-cap you get both for a total of 50]
Carrier Escort: 3
Sniper Headshot: 1
Turret kill:  manned: 10  automated: 3
Flag Defend: 5
Flag Carrier Kill: 5
Flag Return: 0 - 10 pts [Points are scaled by distance: no points for a short return. 10 pts if the flag carrier gets all the way to the flag. 1 point per 10% (Halfway is 5 pts.)]  15 points if the return breaks a stalemate (both teams have had each others flags for 60 seconds or longer.)
Generator Defend: 5 pts
Object			Destroy				Repair
Generator		10				8
Sensor			4				1
Base Turret		5				4
Inv Station		2				2
Vehicle Station		5				4
Solar Panel		5				4
Sentry Turret		4				2
Deployed sensor		1				0
Deployed inv station	2				0
Deployed turret		3				3
Shrike			5
Bomber			8
Havoc			5
Wildcat			5
Tank			8
MPB			12
*vehicles destroyed by mines are double points, vehicles destroyed by the Shrike are triple points
**vehicles destroyed also score 2 points per passenger (after any multiplier)
***points accumulated in a vehicle are earned by everyone in the vehicle

Heat Lock vs. Target Laser Lock
===================================
Heat Locking now supercedes Targeting Laser Locking so that heat locks can be attained on objects that are being lazed by friends. Keep in mind that when the target is out of range for the ML, it will still lock onto the targeting laser giving the appearance that its locking onto the laser first. If the target is in range the ML will always look for heated targets first.

Objective HUD Visible on Vehicles
===================================
The objective HUD is now visible while flying/driving vehicles.

Client-Side Toggle on Vehicle Tport
===================================
The player now has the ability to toggle Vehicle Tport ability on/off (defaults to ON) as a client-side option in SETTINGS/GAME.

EAX Sound Improvements
===================================
EAX environmental sound reverbs have been included for underwater and interiors. Those sounds will only be heard when using EAX or EAX2 drivers. (We recommend EAX for best results.)

IFeel Force Feedback Mouse
===================================
The IFeel force feedback mouse vibrations should now work correctly again. They have also been enhanced beyond what was previously available.

Vehicles Parking on Flags
===================================
"Anti-Parking" code has been added to flags similar to the "anti-camping" code around a Nexus in Hunters. This results in vehicles taking damage over time when they are parked near a flag, eventually resulting in their destruction if left there too long.

Aiming Up and Down
===================================
The restrictions on aiming up and down have been virtually removed for all armors. NOTE: This will result in situations where your weapon can clip through the leg of your armor when looking straight down. If this bothers you, then change your graphics setting to "Items Only" so that your body is not drawn when in first-person perspective.

Jetpower for Suits
===================================
Scout jetpower (power of thrust) was reduced to previous levels, but their maximum speed velocity was increased somewhat. This removes the "butterfly" effect, but allows slightly faster skiing than previously allowed. Additionally, air resistance was reduced by 33% on all armors to further reduce the "floaty" feel. This also allows slightly faster speeds across the board.

Splash Damage
===================================
Splash damage on shots was reduced slightly. It is still much more powerful than when the game was released, but this change makes mortars and grenades more playable.

Shrike Speed
===================================
The Shrike thrust was returned to normal, making the Shrike very responsive again. A new maximum speed cap has been added to prevent it from going too fast, but the performance improvement on this vehicle is significant.

Mine Damage
===================================
Mine damage was reduced slightly to prevent Lights from being one-shotted by stepping on a mine. They will still be severely harmed, but won't go from 100% health to dead in one shot.

Missile Launcher
===================================
The Missile Launcher range had been inadvertently reduced during the reticule improvements a few patches back. It has now been increased back to its original design. Range is now 400m.

Heat Signature Fall Off
===================================
Heat reduces *very slightly* slower than it did previously. Players can still easily manage their heat signatures, but must be a bit more paranoid of missile launchers now (thus making it a bit easier for high-ping players to use this weapon).

Suit Mortars vs. Tanks
===================================
The strength of hand-held mortars versus Tanks was incorrectly weak. It has now been increased so that it is much more useful.

Shrike Gun Changes
===================================
The Shrike blasters have been moved out to the wing joints to allow easier strafing of objects. Additionally, there is some (very minor...one degree of spread) projectile spread on the blasters now to make strafing easier. (For comparison purposes, the chaingun has eight degrees of spread.)The range of the blasters was incorrectly enormous and has been reduced to a balanced distance (slightly outside the range of hand-held missile launchers).

Water Movement
===================================
Speeds in water have been greatly increased so as to make water a more viable playing environment.

Whiteout Grenades
===================================
A maximum saturation has been defined for the Whiteout grenades to keep your "whiteout" time to no more than two seconds.

OOB Grid
===================================
The mission boundary is now visually defined. As you approach a mission boundary, and "out of bounds grid" will fade into existence. If you go past the boundary, the grid will not fade out until you return inside the mission area. This is done to make it easier to avoid getting a flag stripped or getting damaged due to OOB damage. This visual option can be toggled OFF in your Game Settings area (option button is called "Show Out of Bounds Grid").

Wildcat Grav Bike
===================================
"Suspension" has been added to the Wildcat making it easier to control over rough terrain.

Air Drag
===================================
Air Drag has been reduced making the game feel "faster".

Panther XL Support Added
===================================
Players will now be able to satisfactorily map the roller ball of the Panther XL. The Z axis or throttle is not configurable with T2 because of a Panther XL driver issue.

Flight Ceiling limited for Shrike
===================================
If you fly past the flight ceiling then you will lose your jetting and thrusting ability. Angle your nose down (when you are above the flight ceiling) and thrust will function normally.

"Unassigned" Team
===================================
This bug allowed a person to join as "unassigned" and view all friend/foe triangles as grey. It has been fixed.

<Null> and random string issues
===================================
There is a finite number of network strings available, the single quote strings. This problem occurs when all strings have been allocated. This is particularly common with mod servers, which appear to be allocating too many net strings. Mod and script developers need to be cautious when creating new strings. Don't create dynamic net strings unless you have a firm understanding of the implications. If a string is added using "AddTaggedString" make sure that there is a corresponding "RemoveTaggedSting" call when the string is no longer needed. Also be sure to limit the number of imbedded strings in your scripts.
2017-07-17 23:27:34 -04:00

631 lines
25 KiB
C#
Raw Permalink Blame History

$WebLinkCount = 0;
$currentPage = 0;
$newsCacheVersion = 1;
if (!isObject(NewsVector))
new MessageVector(NewsVector);
function LaunchNews()
{
LaunchTabView.viewTab( "NEWS", NewsGui, 0 );
}
//-----------------------------------------------------------------------------
function updatePageBtn(%prev,%next)
{
NewsPrevBtn.setVisible( 0 );
NewsNextBtn.setVisible( 0 );
// NewsPrevBtn.setActive( %prev );
// NewsNextBtn.setActive( %next );
}
//-----------------------------------------------------------------------------
function NewsGui::onAdd(%this)
{
NewsGui.tabsLoaded = 0;
if(!isDemo())
{
if(!isObject(NCHGroup))
new SimGroup(NCHGroup);
}
}
//-----------------------------------------------------------------------------
function NewsGui::onWake(%this)
{
Canvas.pushDialog(LaunchToolbarDlg);
%this.set = 1; // signifies the first (latest) set
if ( isDemo() )
{
if ( !%this.oneTimeOnly )
{
%this.oneTimeOnly = 1;
NewsPrevBtn.setVisible( false );
NewsNextBtn.setVisible( false );
NewsSubmitBtn.setVisible( false );
NewsMOTDText.setValue( "Welcome to the Tribes 2 Demo!" );
%this.addStaticArticle( "What's In This Demo?", "There are two training missions, and two multiplayer maps in this demo.\n\nIf you're new to the Tribes experience, you should consider trying out the training missions so you can become familiar with the basics of the game. Then, after you learn how to use your jets and weapons, jump into multiplayer on one of our Demo Servers to fight against other players like yourself." );
%this.addStaticArticle( "What Do I Do First?", "As a suggestion, you might consider checking out the on-line manual first. That manual is available at our 'Tribes 2 Central Download' website (www.tribes2centraldownload.com) in the 'T2 Manual' sub-folder. After you take a look at the manual, you should definitely try out the first two Training Missions. They'll give you most of the basics that you need to know in order to play competitively on-line. Of course, then you should go enter the mayhem known as Tribes and have a blast gaming against other players." );
%this.addStaticArticle( "Where are the Options?", "There is a LAUNCH button in the lower left of this screen. Click on it and choose the SETTINGS option. There you will find ways to modify your graphics, textures, network settings, key configurations and more.\n\nMost of these settings will be configured automatically based on your system's hardware, so try the game with the default settings for a while and see how it plays. Then, optimize your settings accordingly thereafter." );
%this.addStaticArticle( "What is Capture the Flag?", "Many of you have played versions of Capture the Flag (CTF) in real-life or in other computer games. Tribes 2's version is quite similar to what you're used to playing.\n\nThe object is to go grab the other team's flag and return it to your own base by taking it to your flag's position. Your team scores points for capturing the flag and some minor (tie-breaking) points for touching it.\n\nThe game has many roles and is definitely the most popular of the T2 games. You can play defense by setting up turret perimeters, deploying sensors and guarding the flag, or load three people into a bomber and make bombing runs over the enemy base, or many other things.\n\nTry them all out. There's certainly a role in there for you somewhere." );
%this.addStaticArticle( "What is Hunters?", "Unlike CTF, Hunters is an individual game rather than a team game. The object of the game is to destroy other players, thus causing them to drop all the flags they are carrying. Each person carries at least one flag at all times, but the players that gather the most flags are the biggest targets.\n\nWhen you have a bunch of flags, take them to the 'Nexus'. The Nexus is waypointed with a marker on your HUD and is a column of glowing light. You can't miss it. Run through that column and you'll score points for the flags you carry.\n\nThe scoring for flags is a curve, so the more flags you carry, the more points you will score. Large amounts of flags can create very high scores if you capture them all at once." );
%this.addStaticArticle( "What is the Full Version Like?", "There are six different game types, five different worlds, six vehicles, a whole slew of voices and tribe skins, all the weapons you saw in the demo, and 53 different maps. There's an on-line community with constantly updated News, Forums, Chat, Email, and a Player/Tribe Browser so that the whole community is at your fingertips. Also the Tribes player community is thriving. Player-created scripts, game mods, and maps are plentiful and high-quality. In short, it's much, much more than what you see in this demo." );
%this.addStaticArticle( "What Video Drivers Do I Use?", "Please check your video card company's website for the latest video driver information.\n\nWe advise against the use of beta drivers. They often cause problems for our current players and should be avoided." );
%this.addStaticArticle( "How to Tweak Framerate", "There are many graphic options in the game. If you are experiencing low framerate for some reason, there are two main areas you should try out.\n\nIf your CPU is relatively slow, then you should try turning down all the options associated with polygon count. These are listed in SETTINGS/GRAPHICS. You might also try a lower screen resolution, or even 16-bit color. 16-bit color has the side effect of using 16-bit z-buffering, which isn't as nice as 32-bit, but it's much faster.\n\nIf your video card doesn't have much VRAM, then you should consider turning down the options that use a lot of texture memory. These are found in SETTINGS/TEXTURES." );
%this.addStaticArticle( "A Small Disclaimer", "This NEWS page is static, unlike the one in the real game. In otherwords, don't expect the constant community updates and news items that you will get after you buy the full version. ;)" );
if ( WebLinksMenu.size() == 0 )
WebLinksMenu.defaultList();
}
}
else
{
Canvas.SetCursor(ArrowWaitCursor);
if (NewsTabGroup.tabCount() == 0)
{
NewsGui.startup = 1;
NewsTabGroup.addTab( 105, "FRONT PAGE", 1);
NewsTabGroup.addTab( 35500, "EVENTS");
NewsTabGroup.addTab( 35501, "SPORTS");
NewsTabGroup.addTab( 35503, "TECH");
NewsTabGroup.addTab( 35504, "EDITORIAL");
NewsTabGroup.lastID = 0;
// Fetch the News
NewsTabGroup.setSelected( 105 ); // Select the tab by ID
NewsTabGroup.onSelect(105,"FRONT PAGE");
// Fetch the message of the day:
NewsMOTDText.key = LaunchGui.key++;
NewsMOTDText.state = "isvalid";
DatabaseQuery(0,"",NewsMOTDText,NewsMOTDText.key);
weblinksmenu.clear();
weblinksmenu.key = launchGui.key++;
weblinksmenu.state = "fetchWeblink";
DatabaseQueryArray(15,0,"WEBLINK",weblinksmenu,weblinksmenu.key);
for(%ch=0; %ch<5; %ch++)
{
// ID.NAME.UPDATEID.ALLREAD.ARTICLECOUNT.LASTUPDATED
AddCatHeader(NewsTabGroup.getTabId(%ch), NewsTabGroup.getTabText(%ch), 0,0,"");
}
}
}
if (!NewsTabGroup.lastID)
NewsTabGroup.lastID = 105;
if (!NewsGui.startup)
NewsGui.startup = 0;
WebLinksMenu.setSelected( 0 );
NewsPrevBtn.setActive( false );
NewsNextBtn.setActive( false );
}
//-----------------------------------------------------------------------------
function NewsGui::onSleep(%this)
{
Canvas.popDialog(LaunchToolbarDlg);
}
//-----------------------------------------------------------------------------
function NewsGui::setKey( %this, %key )
{
}
//-----------------------------------------------------------------------------
function NewsGui::onClose( %this, %key )
{
}
//-----------------------------------------------------------------------------
function NewsGui::rebuildText(%this)
{
NewsHeadlines.clear();
for(%i = 0; %i < %this.articleCount; %i++)
{
%article = %this.article[%i];
if ( isDemo() )
{
%topic = getField( %article, 0 );
%body = getFields( %article, 1 );
%text = %text @ "<lmargin:10><color:adfffa><font:univers:22><tag:" @ %i @ ">"
@ %topic
@ "<lmargin:30><rmargin%:80><color:82beb9><font:univers:16>\n"
NL %body
@ "<sbreak>\n\n<rmargin%:100>";
}
else
{
%ai = wonGetAuthInfo();
%isMem = 0;
for(%east=0;%east<getField(getRecord(%ai,1),0);%east++)
{
%tpv = GetRecord(%ai,2+%east);
if(getField(%tpv,3)==1401 || getField(%tpv,3)==1402)
%isMem = 1;
}
%editable = %isMem;
%topicid = getField(%article,1);
%articleid = getField(%article, 2);
%postcount = getField(%article,3)-1;
%date = getField(%article,4);
%update_id = getField(%article,5);
%author_id = getField(%article,6);
%nameLink = getLinkName(getField(%article,8) TAB getField(%article,9) TAB getField(%article,10) TAB getField(%article,11),0);
%category = getField(%article, 12);
%topic = getField(%article, 13);
%body = getFields(%article,14);
%rc = getRecordCount(%body);
%atxt = "";
if ($newsCacheVersion && $newsCacheVersion == 1)
{
switch(%category)
{
case 105: %nLink = "Front Page";
case 35500: %nLink = "Events";
case 35501: %nLink = "Sports";
case 35503: %nLink = "Tech";
case 35504: %nLink = "Editorial";
}
%forumLinkName = "News-" @ %nLink;
}
else
%forumLinkName = "NEWS";
if ( %editable )
{
%editText = "<a:editnews" TAB %i TAB %topicid TAB %articleid TAB %author_id TAB %update_id @
">[edit]</a> <a:deletenews" TAB %i TAB %articleid TAB %topicid @
">[delete]</a> <a:forumlink" TAB %forumLinkName TAB %articleid TAB %topic @ ">[comments ("@%postcount@")]</a>";
}
else
%editText = "<a:forumlink" TAB "NEWS" TAB %articleid TAB %topic @
">[comments ("@%postcount@"]</a>";
for(%l = 0; %l < %rc; %l++)
%atxt = %atxt @ getRecord(%body,%l) @ "\n";
%text = %text @ "<lmargin:10><color:ADFFFA><font:Univers:22><tag:" @ %i @ ">" @
%topic @ " <font:Univers Condensed:18>" @ %editText @ "\nPosted by: " @ %nameLink @ " on " @ %date NL
"\n<lmargin:30><rmargin%:80><font:Univers:16><color:82BEB9>" @ %atxt @ "<sbreak>\n\n<rmargin%:100>";
}
NewsHeadlines.addRow( %i, %topic );
}
NewsText.setValue(%text);
NewsHeadlines.setSelectedRow(0);
}
//-----------------------------------------------------------------------------
function NewsGui::onDatabaseQueryResult(%this, %status, %RowCount_Result, %key)
{
if(%key != %this.key)
return;
%this.maxDate = " ";
%this.minDate = " ";
if(getField(%status,0)==0)
{
switch$(%this.caller)
{
case "GETNEWS": // record count
NewsText.setValue("");
NewsHeadlines.clear();
%this.articleCount = 0;
%this.acl = getField(%status,3);
%this.ttlRecords = getField( %status,2 );
%this.recordCount = getField( %RowCount_Result,0 );
if(%this.recordCount > 23)
{
if($currentPage == 0)
updatePageBtn(0,1);
else if($currentPage > 0)
updatePageBtn(1,1);
}
else
{
if($currentPage == 0)
updatePageBtn(0,0);
else if($currentPage > 0)
updatePageBtn(1,0);
}
default: // result string
}
}
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 = "halt";
MessageBoxOK("NOTICE",getField(%status,1));
}
Canvas.setCursor(DefaultCursor);
}
//-----------------------------------------------------------------------------
function NewsGui::onDatabaseRow(%this, %row,%isLastRow,%key)
{
if ( %key != %this.key )
return;
if ( %this.articleCount $= "" )
%this.articleCount = 0;
%this.article[%this.articleCount] = %row;
%this.recordSet--;
if ( %this.articleCount == 0 )
{
%this.maxDate = getField( %this.article[%this.articleCount],4);
%this.Max = getField(%this.article[%this.articleCount],5);
}
if ( %this.recordSet == 0 )
{
%this.minDate = getField( %this.article[%this.articleCount],4);
%this.Min = getField(%this.article[%this.articleCount],5);
}
%this.recordCount--;
%this.articleCount++;
%this.rebuildText();
canvas.setCursor(DefaultCursor);
return;
}
//-----------------------------------------------------------------------------
function NewsGui::addStaticArticle( %this, %topic, %body )
{
%tag = %this.articleCount $= "" ? 0 : %this.articleCount;
%this.article[%tag] = %topic TAB %body;
%this.articleCount++;
%this.rebuildText();
}
//-----------------------------------------------------------------------------
function PostNews()
{
messageBoxYesNo("CONFIRM","Please do not submit bug reports without a tested solution, test posts or recruiting posts." NL " " NL "Continue with your submittal?","StartPostNews();");
}
function StartPostNews()
{
$NewsCategory = "";
$NewsTitle = "";
Canvas.pushDialog(NewsPostDlg);
NewsPostDlg.postId = -1;
NewsPostBodyText.setValue("");
}
//-----------------------------------------------------------------------------
function NewsPostDlg::onWake( %this )
{
// Get the window pos and extent from prefs:
%res = getResolution();
%resW = firstWord( %res );
%resH = getWord( %res, 1 );
%w = firstWord( $pref::News::PostWindowExtent );
if ( %w > %resW )
%w = %resW;
%h = getWord( $pref::News::PostWindowExtent, 1 );
if ( %h > %resH )
%h = %resH;
%x = firstWord( $pref::News::PostWindowPos );
if ( %x > %resW - %w )
%x = %resW - %w;
%y = getWord( $pref::News::PostWindowPos, 1 );
if ( %y > %resH - %h )
%y = %resH - %h;
NP_Window.resize( %x, %y, %w, %h );
if (NewsCategoryMenu.getCount() == 0)
{
NewsCategoryMenu.clear();
NewsCategoryMenu.add( NewsTabGroup.getTabText(0), NewsTabGroup.getTabID(0));
NewsCategoryMenu.add( NewsTabGroup.getTabText(1), NewsTabGroup.getTabID(1));
NewsCategoryMenu.add( NewsTabGroup.getTabText(2), NewsTabGroup.getTabID(2));
NewsCategoryMenu.add( NewsTabGroup.getTabText(3), NewsTabGroup.getTabID(3));
NewsCategoryMenu.add( NewsTabGroup.getTabText(4), NewsTabGroup.getTabID(4));
NewsCategoryMenu.hasTabs = 1;
}
%cat = getField(NewsGui.article[NewsPostDlg.selectedIdx],12);
if (!%cat || %cat == -1 || %cat == 35499)
%cat = 105;
error("Category: " @ %cat);
NewsCategoryMenu.setSelected( %cat );
$NewsCategory = NewsCategoryMenu.getText();
}
//-----------------------------------------------------------------------------
function NewsCategoryMenu::onAdd(%this)
{
}
//-----------------------------------------------------------------------------
function NewsPostDlg::onSleep( %this )
{
$pref::News::PostWindowPos = NP_Window.getPosition();
$pref::News::PostWindowExtent = NP_Window.getExtent();
}
//-----------------------------------------------------------------------------
function NewsCategoryMenu::onSelect( %this, %id, %text )
{
$NewsCategory = %text;
}
//-----------------------------------------------------------------------------
function PostNewsProcess()
{
NewsPostDlg.key = LaunchGui.key++;
if ( NewsPostDlg.postId == -1 )
{
NewsPostDlg.state = "post";
canvas.SetCursor(ArrowWaitCursor);
DatabaseQuery(1, NewsCategoryMenu.getSelected() TAB $NewsTitle TAB NewsPostBodyText.getValue(),NewsPostDlg,NewsPostDlg.key);
}
else
{
NewsPostDlg.state = "edit"; //tid.pid.aid.updid.cat.title.body
canvas.SetCursor(ArrowWaitCursor);
DatabaseQuery(2, NewsPostDlg.EditUrl TAB NewsCategoryMenu.getSelected() TAB $NewsTitle TAB NewsPostBodyText.getValue(),NewsPostDlg,NewsPostDlg.key);
}
Canvas.popDialog(NewsPostDlg);
}
//-----------------------------------------------------------------------------
function NewsPostDlg::onDatabaseQueryResult(%this, %status, %RowCount_Result, %key)
{
if(%key != %this.key)
return;
if(getField(%status,0)==0)
{
switch$(%this.state)
{
case "post":
if(%this.FromForums)
{
%this.FromForums = false;
ForumsMessageVector.deleteLine( %this.FIndex );
ForumsTopicsList.refreshFlag = true;
CacheForumTopic();
ForumsGoTopics(0);
}
%this.state = "OK";
MessageBoxOK("NOTICE","Your article has been submitted. You may need to refresh your Browser.");
case "edit":
%this.state = "OK";
MessageBoxOK("NOTICE","Article Updated. You may need to refresh your Browser.");
case "delete":
%this.state = "OK";
MessageBoxOK("NOTICE","Article Deleted. You may need to refresh your Browser.");
}
}
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( "ERROR", getField(%status,1));
}
if(%this.state $= "OK")
NewsGui.onWake();
canvas.setCursor(DefaultCursor);
}
//-----------------------------------------------------------------------------
function NewsText::onURL(%this, %url)
{
NewsPostDlg.selectedIdx = NewsHeadlines.getSelectedID();
canvas.SetCursor(ArrowWaitCursor);
switch$(getField(%url,0))
{
case "editnews":
%txt = NewsGui.article[getField(%url,1)];
$NewsTitle = getField(%txt, 13);
%body = getFields(%txt,14);
%rc = getRecordCount(%body);
for(%i = 0; %i < %rc; %i++)
%rtxt = %rtxt @ getRecord(%body, %i) @ "\n";
NewsPostBodyText.setValue(%rtxt);
NewsPostDlg.postId = getField(%url,3);
NewsPostDlg.EditUrl = getFields(%url,2); //topicid.postid.authorid.updateid
NewsPostDlg.selectedIdx = NewsHeadlines.getSelectedID();
Canvas.pushDialog( NewsPostDlg );
case "deletenews":
MessageBoxYesNo("CONFIRM","Delete this Article?","NewsPostDlg.doNewsDelete(\"" @ getField(%url,3) TAB getField(%url,2) @ "\");","canvas.setCursor(DefaultCursor);"); // postid.topicid
case "topiclink":
%articleId = getField(%url,2);
MessageBoxOK("COMMENTS","To Post comments for any news article, go to the Forums, select the News Forum and then select the Topic you want to comment on. This link will soon be live.");
default:
Parent::onURL(%this, %url);
}
}
//-----------------------------------------------------------------------------
function NewsPostDlg::doNewsDelete(%this,%fields)
{
%this.key = LaunchGui.key++;
%this.state = "delete";
error("News Delete " @ %fields);
DatabaseQuery(3,%fields, %this, %this.key);
}
//-----------------------------------------------------------------------------
function NewsHeadlines::onSelect( %this, %id, %text )
{
NewsText.scrollToTag( %id );
}
//-----------------------------------------------------------------------------
function NewsGui::getPreviousNewsItems( %this )
{
// Fetch the next batch of newer news items:
if($currentPage == 0)
return;
canvas.SetCursor(ArrowWaitCursor);
NewsGui.key = LaunchGui.key++;
%this.state = "status";
%this.articleCount = 0;
$currentPage--;
DatabaseQueryArray(0,$currentPage,"1" TAB getField(%this.setList[%this.set],1), NewsGui, NewsGui.key );
}
//-----------------------------------------------------------------------------
function NewsGui::getNextNewsItems( %this )
{
// Fetch the next batch of older news items:
canvas.SetCursor(ArrowWaitCursor);
NewsGui.key = LaunchGui.key++;
%this.state = "status";
%this.articleCount = 0;
$currentPage++;
DatabaseQueryArray(0,$currentPage,"1" TAB getField(%this.setList[%this.set],0), NewsGui, NewsGui.key );
}
//-----------------------------------------------------------------------------
function NewsMOTDText::onDatabaseQueryResult(%this, %status, %RowCount_Result, %key)
{
if(%key != %this.key)
return;
// echo("RECV: " @ %status);
%ai = wonGetAuthInfo();
%isMem = 0;
if(getField(%status,0)==0)
{
for(%east=0;%east<getField(getRecord(%ai,1),0);%east++)
{
%tpv = GetRecord(%ai,2+%east);
if(getField(%tpv,3)==1401 || getField(%tpv,3)==1402)
%isMem = 1;
}
NewsEditMOTDBtn.setVisible(%isMem);
%this.setText( %RowCount_Result );
}
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 = "halt";
MessageBoxOK("NOTICE",getField(%status,1));
}
canvas.repaint();
Canvas.setCursor(defaultCursor);
}
//-----------------------------------------------------------------------------
function NewsEditMOTD()
{
NewsEditMOTDText.setText( NewsMOTDText.getText() );
Canvas.pushDialog( NewsEditMOTDDlg );
}
//-----------------------------------------------------------------------------
function NewsUpdateMOTD()
{
NewsEditMotdDlg.Key = LaunchGui.key++;
NewsEditMOtdDlg.state = "verify";
canvas.SetCursor(ArrowWaitCursor);
DatabaseQuery( 4, NewsEditMOTDText.getText(), NewsEditMotdDlg,NewsEditMotdDlg.key );
}
//-----------------------------------------------------------------------------
function NewsEditMotdDlg::OnDatabaseQueryResult(%this, %status, %RowCount_Result, %key)
{
if(%key != %this.key)
return;
// echo("RECV: " @ %status);
if(getField(%status,0)==0)
%this.state = "proceed";
else if (getSubStr(getField(%status,1),0,9) $= "ORA-04061")
{
%this.state = "done";
MessageBoxOK("ERROR","There was an error processing your request, please wait a few moments and try again.");
}
else
%this.state = "error";
switch$(%this.state)
{
case "proceed":
%ai = wonGetAuthInfo();
%isMem = 0;
for(%east=0;%east<getField(getRecord(%ai,1),0);%east++)
{
%tpv = GetRecord(%ai,2+%east);
if(getField(%tpv,3)==1401 || getField(%tpv,3)==1402)
%isMem = 1;
}
NewsEditMOTDBtn.setVisible(%isMem);
MessageBoxOK("NOTICE",getField(%status,1));
NewsMOTDText.setText( NewsEditMOTDText.getText() );
canvas.repaint();
Canvas.PopDialog(NewsEditMOTDDlg);
case "error":
MessageBoxOK("NOTICE",getField(%status,1));
Canvas.PopDialog(NewsEditMOTDDlg);
}
}
//-----------------------------------------------------------------------------
function addWebLink( %name, %address )
{
$WebLink[$WebLinkCount, name] = %name;
$WebLink[$WebLinkCount, address] = %address;
$WebLinkCount++;
}
//-----------------------------------------------------------------------------
function WebLinksMenu::onAdd( %this )
{
}
//-----------------------------------------------------------------------------
function WebLinksMenu::launchWebBrowser( %this )
{
%address = $WebLink[WebLinksMenu.getSelected(), address];
error("SELECTED:" SPC WebLinksMenu.getSelected());
if ( %address !$= "" )
{
if ( isFullScreen() )
MessageBoxYesNo( "WARNING", "This will launch your web browser and minimize Tribes 2."
@ " Do you wish to continue?", "gotoWebPage( \"" @ %address @ "\" );" );
else
gotoWebPage( %address );
}
else
MessageBoxOK("ERROR","Invalid Link");
}
//-----------------------------------------------------------------------------
//- news stuff ---------------------------------------------------------------
//-----------------------------------------------------------------------------
function NewsTabGroup::onAdd( %this )
{
// Tab sets should be added in the onAdd function unless you have a really good reason...
%this.addSet( 1, "gui/shll_horztabbuttonB", "5 5 5", "50 50 0", "5 5 5" );
}
//-----------------------------------------------------------------------------
function NewsTabGroup::onSelect(%this, %id, %text)
{
if (%this.getSelectedID() == %this.lastID && NewsGui.startup == 0)
return;
else
{
NewsTabFrame.setAltColor( %id == 105 );
NewsGui.startup = 0;
NewsGui.state = "status";
NewsGui.key = LaunchGui.key++;
NewsGui.caller = "GETNEWS";
// ordinal.page.start.direction.category
DatabaseQueryArray(100,0,"0" TAB "0" TAB %id,NewsGui,NewsGui.key);
%this.lastID = %id;
}
}
//-----------------------------------------------------------------------------
function addCatHeader(%id, %name, %updateID, %allRead, %articleCount, %lastUpdated)
{
%cHeader = new scriptObject()
{
className = "TNewsCategoryHeader";
ID = %id;
Name = %name;
UpdateID = %updateID;
allRead = %allRead;
articleCount = %articleCount;
lastUpdated = %lastUpdated;
};
NCHGroup.Add(%cHeader);
}
Reference in a new issue View git blame Copy permalink