mirror of
https://github.com/Ragora/T2-BoL.git
synced 2026-01-22 20:44:52 +00:00
268 lines
14 KiB
PHP
268 lines
14 KiB
PHP
|
//------------------------------------------------------------------------------
|
||
|
|
// PDA.cs
|
||
|
|
// PDA code for T2BoL
|
||
|
|
// Copyright (c) 2012 Robert MacGregor
|
||
|
|
//==============================================================================
|
||
|
|
|
||
|
|
// 0-100
|
||
|
|
$BOL::PDA::Page::Main = 0;
|
||
|
|
|
||
|
|
$BOL::PDA::Page::Applications = 1;
|
||
|
|
$BOL::PDA::Page::Close = 2; // Not even necessarily a page but it's used to signal the client wants to close
|
||
|
|
$BOL::PDA::Page::Stats = 3;
|
||
|
|
$BOL::PDA::Page::Save = 4;
|
||
|
|
$BOL::PDA::Page::FactionManagement = 5;
|
||
|
|
|
||
|
|
$BOL::PDA::Page::Radio = 6;
|
||
|
|
$BOL::PDA::Page::Voice = 7;
|
||
|
|
|
||
|
|
$BOL::PDA::Function::Increment = 1;
|
||
|
|
$BOL::PDA::Function::Decrement = 2;
|
||
|
|
|
||
|
|
$BOL::PDA::Page::EMail = 8;
|
||
|
|
$BOL::PDA::Page::Inbox = 9;
|
||
|
|
$BOL::PDA::Page::Outbox = 10;
|
||
|
|
$BOL::PDA::Page::Compose = 11;
|
||
|
|
|
||
|
|
$BOL::PDA::Page::Wiki = 12;
|
||
|
|
|
||
|
|
// 101-201
|
||
|
|
$BOL::PDA::Page::Interact = 101;
|
||
|
|
$BOL::PDA::Page::Interacted = 102;
|
||
|
|
$BOL::PDA::Page::Hack = 103;
|
||
|
|
$BOL::PDA::Page::Information = 104;
|
||
|
|
|
||
|
|
function RPGGame::updateScoreHud(%game, %client, %tag)
|
||
|
|
{
|
||
|
|
if (%client.PDAPage == $BOL::PDA::Page::Main || %client.PDAPage == $BOL::PDA::Page::Interact)
|
||
|
|
Game.processGameLink(%client, %client.PDAPage);
|
||
|
|
}
|
||
|
|
|
||
|
|
function RPGGame::processGameLink(%game, %client, %arg1, %arg2, %arg3, %arg4, %arg5)
|
||
|
|
{
|
||
|
|
%index = 0;
|
||
|
|
if (%arg1 != $BOL::PDA::Page::Close)
|
||
|
|
%client.PDAPage = %arg1;
|
||
|
|
messageClient( %client, 'ClearHud', "", 'scoreScreen', 0 );
|
||
|
|
|
||
|
|
switch(%arg1)
|
||
|
|
{
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// PDA Applications
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
case $BOL::PDA::Page::Applications:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Applications | Main');
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>| <a:gamelink\t" @ $BOL::PDA::Page::Wiki @ "\t1>Wiki</a> | <color:FF0000>Applications<color:66EEEE> | <a:gamelink\t" @ $BOL::PDA::Page::EMail @ "\t0>E-Mail</a> | <just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Command List:");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Stats @ "\t1>- Self Diagnosis</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Interact @ "\t0>- Interact with Object</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Radio @ "\t0>- Radio</a>");
|
||
|
|
%index++;
|
||
|
|
if (!$Host::GlobalChat)
|
||
|
|
{
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Voice @ "\t0>- Voice Settings</a>");
|
||
|
|
%index++;
|
||
|
|
}
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::FactionManagement @ "\t1>- Faction Management</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Save @ "\t1>- Save State</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Stats:
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>Automated Self Diagnosis Systems v1.2<just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Copyright (c) 3030 S.G.S. Corporation');
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Subject Name: " @ %client.namebase);
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Subject Species: " @ %client.race);
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Subject Condition: " @ 100 - mfloor(100*%client.player.getDamageLevel()) @ "%");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Stats @ "\t1>REFRESH</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Radio:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Applications | Radio');
|
||
|
|
|
||
|
|
if (!%client.hasRadio)
|
||
|
|
{
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>-- You do not have a radio to manage --");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|
||
|
|
switch (%arg2)
|
||
|
|
{
|
||
|
|
case $BOL::PDA::Function::Increment:
|
||
|
|
ServerCmdIncreaseRadioFrequency(%client, true);
|
||
|
|
case $BOL::PDA::Function::Decrement:
|
||
|
|
ServerCmdDecreaseRadioFrequency(%client, true);
|
||
|
|
}
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Radio Status: Normal");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Current Frequency: " @ %client.radioFrequency @ "MHz");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Radio @ "\t" @ $BOL::PDA::Function::Increment @ ">[Increment Frequency</a> - <a:gamelink\t" @ $BOL::PDA::Page::Radio @ "\t" @ $BOL::PDA::Function::Decrement @ ">Decrement Frequency]</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Voice:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Applications | Voice Settings');
|
||
|
|
|
||
|
|
switch (%arg2)
|
||
|
|
{
|
||
|
|
case $BOL::PDA::Function::Increment:
|
||
|
|
serverCmdIncreaseVoiceRange(%client, true);
|
||
|
|
case $BOL::PDA::Function::Decrement:
|
||
|
|
serverCmdDecreaseVoiceRange(%client, true);
|
||
|
|
}
|
||
|
|
|
||
|
|
%voice = %client.voiceMode;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Voice Status: Normal");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Current Voice: \x22" @ $BOL::Voice::Display[%voice] @ "\x22 (" @ $BOL::Voice::Range[%voice] @ " meters)");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Voice @ "\t" @ $BOL::PDA::Function::Increment @ ">[Increment Range</a> - <a:gamelink\t" @ $BOL::PDA::Page::Voice @ "\t" @ $BOL::PDA::Function::Decrement @ ">Decrement Range]</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Interact:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Applications | Interact with Object');
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>-- Objects within Range --");
|
||
|
|
%index++;
|
||
|
|
|
||
|
|
%client_team = getTargetSensorGroup(%client.target);
|
||
|
|
%object_count = %client.player.interactList.count();
|
||
|
|
if (%object_count > 0)
|
||
|
|
for (%i = 0; %i < %object_count; %i++)
|
||
|
|
{
|
||
|
|
%object = %client.player.interactList.element(%i);
|
||
|
|
if (isObject(%object))
|
||
|
|
{
|
||
|
|
%object_target = %object.target;
|
||
|
|
if (%object_target != -1)
|
||
|
|
{
|
||
|
|
%object_team = getTargetSensorGroup(%object_target);
|
||
|
|
%object_friendly = %client_team == %object_team;
|
||
|
|
%object_friend_text = %object_friendly ? "Friendly" : "Enemy";
|
||
|
|
%display = %object_friend_text SPC %object.getClassName() SPC "\x22" @ getTaggedString(getTargetName(%object_target)) @ "\x22";
|
||
|
|
}
|
||
|
|
else
|
||
|
|
%display = "Unknown" SPC %object.getClassName() SPC "(" @ %object @ ")";
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>" @ %display);
|
||
|
|
%index++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
else
|
||
|
|
{
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>There are no objects in range.");
|
||
|
|
%index++;
|
||
|
|
}
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::FactionManagement:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Applications | Faction Management');
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications@ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Save:
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", '<just:center>Save State<just:right><a:gamelink\tCLOSE\t1>Close</a>');
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Save function is not supported as of now!");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Applications @ "\t1>RETURN TO MAIN</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// PDA E-Mail System
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
case $BOL::PDA::Page::Inbox:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>E-Mail | Your Inbox');
|
||
|
|
return;
|
||
|
|
case $BOL::PDA::Page::Outbox:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>E-Mail | Your Outbox');
|
||
|
|
return;
|
||
|
|
case $BOL::PDA::Page::Compose:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>E-Mail | Compose a New Mail');
|
||
|
|
return;
|
||
|
|
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Interaction Commands
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
case $BOL::PDA::Page::Interact:
|
||
|
|
return;
|
||
|
|
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
// Handle for Normal PDA functions
|
||
|
|
//------------------------------------------------------------------------------
|
||
|
|
case $BOL::PDA::Page::Main:
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>| <a:gamelink\t" @ $BOL::PDA::Page::Wiki @ "\t1>Wiki</a> | <a:gamelink\t" @ $BOL::PDA::Page::Applications @ "\t1>Applications</a> | <a:gamelink\t" @ $BOL::PDA::Page::EMail @ "\t1>E-Mail</a> | <just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Welcome to the PDA');
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Welcome to the PDA, this is where you will accomplish some daily tasks.");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Click any of the text in the subheader to begin exploring your PDA.");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::EMail:
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>E-Mail | Main');
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>| <a:gamelink\t" @ $BOL::PDA::Page::Wiki @ "\t1>Wiki</a> | <a:gamelink\t" @ $BOL::PDA::Page::Applications @ "\t1>Applications</a> | <color:FF0000>E-Mail<color:66EEEE> | <just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>E-Mail Functions:");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center> - <a:gamelink\t" @ $BOL::PDA::Page::Inbox @ "\t1>Your Inbox (?)</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center> - <a:gamelink\t" @ $BOL::PDA::Page::Outbox @ "\t1>Your Outbox (?)</a>");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center> - <a:gamelink\t" @ $BOL::PDA::Page::Compose @ "\t1>Compose a New Mail</a>");
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Close:
|
||
|
|
serverCmdHideHud(%client, 'scoreScreen');
|
||
|
|
commandToClient(%client, 'DisplayHuds');
|
||
|
|
return;
|
||
|
|
|
||
|
|
case $BOL::PDA::Page::Wiki:
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>| <color:FF0000>Wiki<color:66EEEE> | <a:gamelink\t" @ $BOL::PDA::Page::Applications @ "\t1>Applications</a> | <a:gamelink\t" @ $BOL::PDA::Page::EMail @ "\t1>E-Mail</a> | <just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Wiki | Main');
|
||
|
|
return;
|
||
|
|
|
||
|
|
default: // In case something stupid happens
|
||
|
|
messageClient( %client, 'SetScoreHudHeader', "", "<just:center>| Information | <a:gamelink\t" @ $BOL::PDA::Page::Applications @ "\t1>Applications</a> | <a:gamelink\t" @ $BOL::PDA::Page::EMail @ "\t1>E-Mail</a> | <a:gamelink\t" @ $BOL::PDA::Page::Wiki @ "\t1>Wiki</a> | <just:right><a:gamelink\t" @ $BOL::PDA::Page::Close @ "\t1>Close</a>");
|
||
|
|
messageClient( %client, 'SetScoreHudSubheader', "", '<just:center>Error | Main');
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>-- An ERROR has occurred in the PDA Subsystem code --");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>-- Please report this error to DarkDragonDX --");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center>Unknown PDA page: " @ %arg1);
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, " ");
|
||
|
|
%index++;
|
||
|
|
messageClient( %client, 'SetLineHud', "", 'scoreScreen', %index, "<just:center><a:gamelink\t" @ $BOL::PDA::Page::Main @ "\t1>-- RETURN TO MAIN --</a>");
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
}
|