home *** CD-ROM | disk | FTP | other *** search
/ PC PowerPlay 58 / pcpp58b_TRIBES.iso / Tribes / base / scripts.vol / client.cs < prev    next >
Encoding:
Text File  |  1998-12-16  |  13.2 KB  |  622 lines
  1. //----------------------------------------------------------------------------
  2. // Client side convience scripts
  3. //
  4. function buy(%desc)
  5. {
  6.     %type = getItemType(%desc);
  7.     if (%type != -1) {
  8.         remoteEval(2048,buyItem,%type);
  9.     }
  10.     else {
  11.         echo("Unknown item \"" @ %desc @ "\"");
  12.     }
  13. }
  14.  
  15. function markFavorites()
  16. {
  17.     // Currently done by the shell
  18. }
  19.  
  20. function remoteSetInfoLine(%mgr, %lineNum, %text)
  21. {
  22.    if(%mgr != 2048)
  23.       return;
  24.  
  25.     if (%lineNum == 1)
  26.     {
  27.         if (%text == "") Control::setVisible(InfoCtrlBox, FALSE);
  28.         else Control::setVisible(InfoCtrlBox, TRUE);
  29.     }
  30.  
  31.    Control::setText("InfoCtrlLine" @ %lineNum, %text);
  32. }
  33.  
  34.  
  35. function buyFavorites()
  36. {
  37.     // This function is invoked by the shell.
  38.     for (%i = 0; %i < 20; %i = %i + 1) {
  39.         if ($pref::itemFavorite[%i] != "") {
  40.             %type = getItemType($pref::itemFavorite[%i]);
  41.             if (%type != -1) {
  42.                 %list = %list @ "," @ %type;
  43.             }
  44.         }
  45.     }
  46.     if (%list != "") {
  47.         eval("remoteEval(2048,buyFavorites" @ %list @ ");");
  48.     }
  49. }    
  50.  
  51. function sell(%desc)
  52. {
  53.     %type = getItemType(%desc);
  54.     if (%type != -1) {
  55.         remoteEval(2048,sellItem,%type);
  56.     }
  57.     else {
  58.         echo("Unknown item \"" @ %desc @ "\"");
  59.     }
  60. }
  61.  
  62. function use(%desc)
  63. {
  64.     %type = getItemType(%desc);
  65.     if (%type != -1) {
  66.         // The client useItem function will make sure the use is
  67.         // sequenced correctly with trigger events.  The remoteEval
  68.         // works fine but may be delivered out of order.
  69.         // remoteEval(2048,useItem,%type);
  70.         useItem(%type);
  71.     }
  72.     else {
  73.         echo("Unknown item \"" @ %desc @ "\"");
  74.     }
  75. }
  76.  
  77. function drop(%desc)
  78. {
  79.     %type = getItemType(%desc);
  80.     if (%type != -1) {
  81.         remoteEval(2048,dropItem,%type);
  82.     }
  83.     else {
  84.         echo("Unknown item \"" @ %desc @ "\"");
  85.     }
  86. }
  87.  
  88. function throwStart()
  89. {
  90.     $throwStartTime = getSimTime();
  91. }
  92.  
  93. function throwRelease(%desc)
  94. {
  95.     %type = getItemType(%desc);
  96.     if (%type != -1) {
  97.         %delta = getSimTime() - $throwStartTime;
  98.         if (%delta > 1)
  99.             %delta = 100;
  100.         else
  101.             %delta = floor(%delta * 100);
  102.         remoteEval(2048,throwItem,%type,%delta);
  103.     }
  104.     else {
  105.         echo("Unknown item \"" @ %desc @ "\"");
  106.     }
  107. }
  108.  
  109. function deploy(%desc)
  110. {
  111.     %type = getItemType(%desc);
  112.     if (%type != -1) {
  113.         remoteEval(2048,deployItem,%type);
  114.     }
  115.     else {
  116.         echo("Unknown item \"" @ %desc @ "\"");
  117.     }
  118. }
  119.  
  120. function nextWeapon()
  121. {
  122.     // Up to the server right now
  123.     remoteEval(2048,nextWeapon);
  124. }    
  125.  
  126. function prevWeapon()
  127. {
  128.     // Up to the server right now
  129.     remoteEval(2048,prevWeapon);
  130. }
  131.  
  132. function commandAck()
  133. {
  134.     // Placed here to avoid binding problems with gui.
  135.     remoteEval(2048,CStatus,1,"Command Acknowledged~wacknow");
  136. }
  137.  
  138. function commandDeclined()
  139. {
  140.     // Placed here to avoid binding problems with gui.
  141.     remoteEval(2048,CStatus,0,"Unable to complete objective~wobjxcmp");
  142. }
  143.  
  144. function CommandCompleted()
  145. {
  146.     // Placed here to avoid binding problems with gui.
  147.     remoteEval(2048,CStatus,0,"Objective Completed~wobjcomp");
  148. }
  149.  
  150. function Client::filterMessage(%client, %msg)
  151. {
  152.    // filter messages here
  153.    return true;
  154. }
  155.  
  156. function clearCenterPrint(%id)
  157. {
  158.    if(%id == $centerPrintId)
  159.       Client::centerPrint("", 0);
  160. }
  161.  
  162. function remoteITXT(%manager, %msg)
  163. {
  164.    if(%manager == 2048)
  165.       Control::setValue(EnergyDisplayText, %msg);
  166. }
  167.  
  168. function remoteCP(%manager, %msg, %timeout)
  169. {
  170.    if(%manager == 2048)
  171.    {
  172.       $centerPrintId++;
  173.       if(%timeout)
  174.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  175.       Client::centerPrint(%msg, 0);
  176.    }
  177. }
  178.  
  179. function remoteBP(%manager, %msg, %timeout)
  180. {
  181.    if(%manager == 2048)
  182.    {
  183.       $centerPrintId++;
  184.       if(%timeout)
  185.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  186.       Client::centerPrint(%msg, 1);
  187.    }
  188. }
  189.  
  190. function remoteTP(%manager, %msg, %timeout)
  191. {
  192.    if(%manager == 2048)
  193.    {
  194.       $centerPrintId++;
  195.       if(%timeout)
  196.          schedule("clearCenterPrint(" @ $centerPrintId @ ");", %timeout);
  197.       Client::centerPrint(%msg, 2);
  198.    }
  199. }
  200.  
  201. function kill()
  202. {
  203.     remoteEval(2048,kill);
  204. }    
  205.  
  206. function giveall()
  207. {
  208.     remoteEval(2048,giveall);
  209. }
  210.  
  211. // Fear aliases
  212. function setTeam(%team)
  213. {
  214.    remoteEval(2048, setTeam, %team);
  215. }
  216.  
  217. function say(%channel, %message)
  218. {
  219.    remoteEval(2048, say, %channel, %message);
  220. }
  221.  
  222. function mute(%playerName)
  223. {
  224.    remoteEval(2048, mute, 1, getClientByName(%playerName));
  225. }
  226.  
  227. function unmute(%playerName)
  228. {
  229.    remoteEval(2048, mute, 0, getClientByName(%playerName));
  230. }
  231.  
  232. function show()
  233. {
  234.    // redefine end frame script
  235.    function Game::EndFrame()
  236.    {
  237.    }
  238.    $Console::LastLineTimeout = 0;
  239.    $Console::updateMetrics = false;
  240. }
  241. show();
  242.  
  243. function showTime()
  244. {
  245.    function Game::EndFrame()
  246.    {
  247.       echo("C: " @ getIntegerTime(false) @ "   S: " @ getIntegerTime(true));
  248.    }
  249.    $Console::LastLineTimeout = 1000;
  250.    $Console::updateMetrics = false;
  251. }
  252.  
  253. function showFPS()
  254. {
  255.    function Game::EndFrame()
  256.    {
  257.        echo($ConsoleWorld::FrameRate);
  258.    }
  259.    $Console::LastLineTimeout = 1000;
  260.    $Console::updateMetrics = false;
  261. }
  262.  
  263. function showGfxSW()
  264. {
  265.    function Game::EndFrame()
  266.    {
  267.       echo($ConsoleWorld::FrameRate 
  268.        @ " P:" @ $GFXMetrics::EmittedPolys
  269.        @ ", " @ $GFXMetrics::RenderedPolys
  270.        @ " TSU:", $GFXMetrics::textureSpaceUsed);
  271.    }
  272.    $Console::LastLineTimeout = 1000;
  273.    $Console::updateMetrics = true;
  274. }
  275.  
  276. function messageAndAnimate(%animSeq,%wav)
  277. { 
  278.     remoteEval(2048,playAnimWav,%animSeq,%wav);
  279. }
  280.  
  281. function remotePlayAnimWav(%cl, %anim, %wav)
  282. {
  283.    remotePlayAnim(%cl, %anim);
  284.    playVoice(%cl, %wav);
  285. }
  286.  
  287. function remoteLMSG(%cl, %wav)
  288. {
  289.    playVoice(%cl, %wav);
  290. }
  291.  
  292. function localMessage(%wav)
  293. {
  294.    remoteEval(2048, LMSG, %wav);
  295. }
  296.  
  297. function changeLevel(%newLevel)
  298. {
  299.    remoteEval(2048, changeLevel, %newLevel);
  300. }
  301.  
  302. function setArmor(%armorType)
  303. {
  304.    remoteEval(2048, setArmor, %armorType);
  305. }
  306.  
  307. //editing functions
  308.  
  309. function winMouse()
  310. {
  311.    inputDeactivate(mouse0);
  312.    windowsMouseEnable(MainWindow);
  313. }
  314.  
  315. function dirMouse()
  316. {
  317.    inputActivate(mouse0);
  318.    windowsMouseDisable(MainWindow);
  319. }
  320.  
  321. function editGui()
  322. {
  323.    winMouse();
  324.    GuiInspect(MainWindow);
  325.    GuiToolbar(MainWindow);
  326. }
  327.  
  328. function tree()
  329. {
  330.     simTreeCreate(tree, MainWindow);
  331.     simTreeAddSet(tree, manager);
  332. }
  333.  
  334. function toggleMouse()
  335. {
  336.    if($flagMouseDirect = !$flagMouseDirect)
  337.    {
  338.       dirMouse();
  339.    }
  340.    else
  341.    {
  342.       winMouse();
  343.    }
  344. }
  345.  
  346. function remoteSetTime(%server, %time)
  347. {
  348.    if(%server == 2048)
  349.       setHudTimer(%time);
  350. }
  351.  
  352. function SAD(%password)
  353. {
  354.    remoteEval(2048, AdminPassword, %password);
  355. }
  356.  
  357. function SADSetPassword(%password)
  358. {
  359.    remoteEval(2048, SetPassword, %password);
  360. }
  361.  
  362. function ADSetTimeLimit(%time)
  363. {
  364.    remoteEval(2048, SetTimeLimit, %time);
  365. }
  366.  
  367. function ADSetTeamInfo(%team, %teamName, %skinBase)
  368. {
  369.    remoteEval(2048, SetTeamInfo, %team, %teamName, %skinBase);
  370. }
  371.  
  372. function remoteSVInfo(%server, %version, %hostname, %mod, %info)
  373. {
  374.    if(%server == 2048)
  375.    {
  376.       $ServerVersion = %version;
  377.       $ServerName = %hostname;
  378.       $modList = %mod;
  379.       $ServerMod = $modList;
  380.       $ServerInfo = %info;
  381.       EvalSearchPath();
  382.    }
  383. }
  384.  
  385. function remoteMInfo(%server, %missionName)
  386. {
  387.    if(%server == 2048)
  388.    {
  389.       %file = "missions\\" @ %missionName @ ".dsc";
  390.       $MDESC::Type = "";
  391.       $MDESC::Text = "";
  392.       if(File::findFirst(%file) != "")
  393.          exec(%file);
  394.       $ServerMission = %missionName;
  395.       $ServerText = $MDESC::Text;
  396.       $ServerMissionType = $MDESC::Type;
  397.         if(isObject(LobbyGui))
  398.             LobbyGui::onOpen();  // update lobby screen text.
  399.    }
  400. }
  401.  
  402. function remoteMissionChangeNotify(%serverManagerId, %nextMission)
  403. {
  404.    if(%serverManagerId == 2048)
  405.    {
  406.       echo("Server mission complete - changing to mission: ", %nextMission);
  407.       echo("Flushing Texture Cache");
  408.       flushTextureCache();
  409.    }
  410. }
  411.  
  412. function dataGotBlock(%blockName, %pctDone)
  413. {
  414.    if(%pctDone < 0.1)
  415.       %text = "Initializing Personal Digital Assistant...";
  416.    else if(%pctDone < 0.2)
  417.       %text = "Establishing uplink with satellite network...";
  418.    else if(%pctDone < 0.3)
  419.       %text = "Downloading navigational and topographical data...";
  420.    else if(%pctDone < 0.4)
  421.       %text = "Charging armor energy cell...";
  422.    else if(%pctDone < 0.5)
  423.       %text = "Pingback satellite uplink check...";
  424.    else if(%pctDone < 0.6)
  425.       %text = "Beginning primary weapons system check...";
  426.    else if(%pctDone < 0.7)
  427.       %text = "Beginning secondary weapons system check...";
  428.    else if(%pctDone < 0.8)
  429.       %text = "Downloading tactical information from tribal database...";
  430.    else
  431.       %text = "Starting armor power-up sequence...";
  432.  
  433.    //Control::setText(ProgressText, "Loading " @ %blockName @ " data...");
  434.    Control::setValue(ProgressText, "<jc><f1>" @ %text);
  435.    Control::setValue(ProgressSlider, %pctDone * 0.75);
  436. }
  437.  
  438. function dataFinished()
  439. {
  440.    // called on client when all the dynamic data has
  441.    // finished transfer.
  442.  
  443.     if ($cdMusic && !$pref::userCDOverride)
  444.     {
  445.         rbSetPlayMode (CD, 0);
  446.         rbStop (CD);
  447.     }
  448.    Control::setValue(ProgressText, "<jc><f0>Get ready to rock n' roll!");
  449.    Control::setValue(ProgressSlider, 0.9);
  450.  
  451.    $dataFinished = true;
  452.    remoteEval(2048, dataFinished);
  453.  
  454.    echo("Flushing Texture Cache");
  455.    flushTextureCache();
  456. }
  457.  
  458. function onClientGhostAlwaysDone()
  459. {
  460.    // preload the commander gui if it's not already loaded
  461.    if(!isObject("commandGui"))
  462.       loadObject("commandGui", "gui\\command.gui");
  463.  
  464.    %temp = $pref::terrainTextureDetail;
  465.    $pref::terrainTextureDetail = 1;
  466.    rebuildCommandMap();
  467.    $pref::terrainTextureDetail = %temp;
  468.    flushTextureCache();
  469.    purgeResources(true);
  470.    remoteEval(2048, "CGADone");
  471. }
  472.  
  473. function remoteSetMusic (%player, %track, %mode)
  474. {
  475.     if(%player == 2048)
  476.    {
  477.        $cdPlayMode = %mode;
  478.        $cdTrack = %track;
  479.        if (!$pref::userCDOverride)
  480.        {
  481.            if ($cdTrack == 0)
  482.             {
  483.                 rbSetPlayMode (CD, 0);
  484.                 rbStop (CD);
  485.             }
  486.            else
  487.                if ($cdTrack != "")
  488.                 {
  489.                     rbSetPlayMode (CD, 0);
  490.                     rbStop (CD);
  491.                     rbSetPlayMode (CD, $cdPlayMode);
  492.                     if ($pref::cdMusic)
  493.                         rbPlay (CD, $cdTrack);
  494.                 }
  495.        }
  496.    }
  497. }
  498.  
  499. function onConnectionError(%client, %manager, %errorString)
  500. {
  501.    if(%manager == 2048)
  502.    {
  503.    }
  504.    else
  505.    {
  506.       Quickstart();
  507.       GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  508.       $errorString = "Connection to server error:\n" @ %errorString;
  509.         schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  510.    }
  511. }
  512.  
  513. function onConnection(%message)
  514. {
  515.    echo("Connection ", %message);
  516.    $dataFinished = false;
  517.    if(%message == "Accepted")
  518.    {
  519.         //execute the custom script
  520.         if ($PCFG::Script != "")
  521.         {
  522.             exec($PCFG::Script);
  523.         }
  524.  
  525.       resetPlayDelegate();
  526.       remoteEval(2048, "SetCLInfo", $PCFG::SkinBase, $PCFG::RealName, $PCFG::EMail, $PCFG::Tribe, $PCFG::URL, $PCFG::Info, $pref::autoWaypoint);
  527.  
  528.         if ($Pref::PlayGameMode == "JOIN")
  529.         {
  530.             cursorOn(MainWindow);
  531.           GuiLoadContentCtrl(MainWindow, "gui\\Loading.gui");
  532.             renderCanvas(MainWindow);
  533.         }
  534.  
  535.    }
  536.    else if(%message == "Rejected")
  537.    {
  538.         Quickstart();
  539.       $errorString = "Connection to server rejected:\n" @ $errorString;
  540.       GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  541.         schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  542.    }
  543.    else
  544.    {
  545.       //startMainMenuScreen();
  546.         Quickstart();
  547.  
  548.       if(%message == "Dropped")
  549.       {
  550.          if($errorString == "")
  551.             $errorString = "Connection to server lost:\nServer went down.";
  552.          else
  553.             $errorString = "Connection to server lost:\n" @ $errorString;
  554.  
  555.          GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  556.            schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  557.       }
  558.       else if(%message == "TimedOut")
  559.       {
  560.          $errorString = "Connection to server timed out.";
  561.          GuiPushDialog(MainWindow, "gui\\MessageDialog.gui");
  562.            schedule("Control::setValue(MessageDialogTextFormat, $errorString);", 0);
  563.       }
  564.    }
  565. }
  566.  
  567. function onPlaybackFinished()
  568. {
  569.    // called when a recording is done with playback.
  570.     cursorOn(MainWindow);
  571.    GuiLoadContentCtrl(MainWindow, "gui\\Recordings.gui");
  572. }
  573.  
  574. function setupRecorderFile(%fileName)
  575. {
  576.     if(%fileName != "" && %fileName != "False") {
  577.         if(isFile("recordings\\" @ %fileName)) 
  578.             echo("Warning- " @ %fileName @ " File Already Exists");
  579.         $recorderFileName = "recordings\\" @ %fileName;
  580.         if($recorderFileName != "False") {
  581.             echo("File is named: ",%fileName);
  582.             return "True";
  583.         }    
  584.      }
  585.     else {
  586.         for(%i = 0; %i < 500; %i++) {
  587.             if(!isFile("recordings\\recording" @ %i @ ".rec")) {
  588.               $recorderFileName = "recordings\\recording" @ %i @ ".rec";
  589.                 if($recorderFileName != "False") {
  590.                     echo("File is named: recording",%i,".rec");
  591.                     return "True";
  592.                 }    
  593.             }        
  594.         }
  595.     }
  596.     echo("Couldn't setup File");
  597.     return "False";    
  598. }
  599.  
  600. function EnterLobbyMode()
  601. {
  602.    schedule("ELM();", 0);
  603. }
  604.  
  605. function ELM()
  606. {
  607.    if($playingDemo)
  608.    {
  609.       setCursor(MainWindow, "Cur_Arrow.bmp");
  610.       disconnect();
  611.       startMainMenuScreen();
  612.       GuiLoadContentCtrl(MainWindow, "gui\\Recordings.gui");
  613.    }
  614.    else
  615.    {
  616.        $InLobbyMode = true;
  617.       GuiLoadContentCtrl(MainWindow, "gui\\Lobby.gui");
  618.       CursorOn(MainWindow);
  619.    }
  620. }
  621.  
  622.