home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 48 / PC Gamer IT CD 48 2-2.iso / Starsiege / tribesdemo.exe / Disk1 / data1.cab / Tribes_Demo / base / scripts.vol / IRCClient.cs < prev    next >
Encoding:
Text File  |  1999-09-14  |  10.8 KB  |  445 lines
  1. //------------------------------------
  2. //
  3. // GUI screen functions
  4. //
  5. //------------------------------------
  6.  
  7. //
  8. // Create the default IRC channels
  9. //
  10. $IRC::ChannelName [0] = "#Tribes";
  11. $IRC::ChannelTopic[0] = "General TRIBES discussion";
  12.  
  13. $IRC::ChannelName [1] = "#Tribes_Forum";
  14. $IRC::ChannelTopic[1] = "";
  15.  
  16. $IRC::ChannelName [2] = "#Tribes_Beginner";
  17. $IRC::ChannelTopic[2] = "";
  18.  
  19. $IRC::ChannelName [3] = "#Tribes_Expert";
  20. $IRC::ChannelTopic[3] = "";
  21.  
  22. $IRC::ChannelName [4] = "#Tribes_Strategy";
  23. $IRC::ChannelTopic[4] = "";
  24.  
  25. $IRC::ChannelName [5] = "#Tribes_Stories";
  26. $IRC::ChannelTopic[5] = "";
  27.  
  28. $IRC::ChannelName [6] = "#Tribes_Opponents";
  29. $IRC::ChannelTopic[6] = "";
  30.  
  31. $IRC::ChannelName [7] = "#Tribes";
  32. $IRC::ChannelTopic[7] = "";
  33.  
  34.  
  35. //------------------------------------
  36. // LOGIN GUI
  37. function IRCLoginGui::onOpen()
  38. {
  39.     //initialize the vars
  40.     $IRCConnected = FALSE;
  41.     $IRCJoinedRoom = FALSE;
  42.     if ($IRC::ListenInSim == "")
  43.     {
  44.         $IRC::ListenInSim = "FALSE";
  45.     }
  46.     if ($IRC::lastServer == "")
  47.     {
  48.         $IRC::lastServer = -1;
  49.     }
  50.     if ($IRC::currentServer == "" || $IRC::currentServer > $IRC::lastServer)
  51.     {
  52.         if ($IRC::lastServer < 0)
  53.         {
  54.             $IRC::currentServer = -1;
  55.         }
  56.         else
  57.         {
  58.             $IRC::currentServer = 0;
  59.         }
  60.     }
  61.  
  62.     //clear the combo
  63.     FGCombo::clear(IDCTG_IRC_SERVER_COMBO);
  64.  
  65.     //first add all the servers to the server list combo box
  66.    for(%i = 0; $IRC::description[%i] != ""; %i++)
  67.     {
  68.         FGCombo::addEntry(IDCTG_IRC_SERVER_COMBO, $IRC::description[%i], %i);
  69.     }
  70.  
  71.     //now set the console vars
  72.     if ($IRC::currentServer >= 0)
  73.     {
  74.         FGCombo::setSelected(IDCTG_IRC_SERVER_COMBO, $IRC::currentServer);
  75.  
  76.         $IRC::server        = $IRC::server[$IRC::currentServer];
  77.         $IRC::serverPort    = $IRC::serverPort[$IRC::currentServer];
  78.         $IRC::room            = $IRC::room[$IRC::currentServer];
  79.     }
  80.  
  81.     //verify the IRC connect button state
  82.     IRCLoginGui::verifyConnect();
  83. }
  84.  
  85. function IRCLoginGui::onClose()
  86. {
  87.    export("IRC::*", "config\\IRCServers.cs", False);
  88. }
  89.  
  90. function IRCLoginGui::verifyConnect()
  91. {
  92.     if ($IRC::server != "" && $IRC::nickname != "")
  93.     {
  94.         Control::setActive(IDCTG_IRC_CONNECT, TRUE);
  95.     }
  96.     else
  97.     {
  98.         Control::setActive(IDCTG_IRC_CONNECT, FALSE);
  99.     }
  100. }
  101.  
  102. function IRCLoginGui::Select()
  103. {
  104.     IRCLoginGui::Read(FGCombo::getSelected(IDCTG_IRC_SERVER_COMBO));
  105. }
  106.  
  107. function IRCLoginGui::read(%cfgNum)
  108. {
  109.     if (%cfgNum >= 0 && %cfgNum <= $IRC::lastServer)
  110.     {
  111.         $IRC::currentServer = %cfgNum;
  112.  
  113.         //copy the values into the current set used by IRCClient.cpp
  114.         $IRC::server        = $IRC::server[%cfgNum];
  115.         $IRC::serverPort    = $IRC::serverPort[%cfgNum];
  116.         $IRC::room            = $IRC::room[%cfgNum];
  117.     }
  118.  
  119.     //set the connect button
  120.     if ($IRC::server != "" && $IRC::serverPort != "" && $IRC::nickname != "")
  121.     {
  122.         Control::setActive(IDCTG_IRC_CONNECT, TRUE);
  123.     }
  124.     else
  125.     {
  126.         Control::setActive(IDCTG_IRC_CONNECT, FALSE);
  127.     }
  128. }
  129.  
  130. function IRCLogin::AutoConnect()
  131. {
  132.     if ((! $IRCConnected) && $IRC::ConnectOnStartup && $IRC::nickname != "" && $IRC::server != "")
  133.     {
  134.         //set the real name
  135.         if ($PCFG::RealName)
  136.         {
  137.             $IRC::realName = $PCFG::RealName;
  138.         }
  139.         if ($IRC::realName == "")
  140.         {
  141.             $IRC::realName = $IRC::nickname;
  142.         }
  143.  
  144.         //connect to the IRC server
  145.         ircConnect($IRC::server, $IRC::serverPort);
  146.  
  147.         //set the var
  148.         $IRCConnected = TRUE;
  149.     }
  150. }
  151.  
  152. function ConnectToIRCServer()
  153. {
  154.     if ($IRC::nickname != "" && $IRC::server != "")
  155.     {
  156.         //validate the port
  157.         if ($IRC::serverPort <= 0) $IRC::serverPort = 6667;
  158.  
  159.         //set the real name
  160.         if ($PCFG::RealName)
  161.         {
  162.             $IRC::realName = $PCFG::RealName;
  163.         }
  164.         if ($IRC::realName == "")
  165.         {
  166.             $IRC::realName = $IRC::nickname;
  167.         }
  168.  
  169.         //connect to the IRC server
  170.         ircConnect($IRC::server, $IRC::serverPort);
  171.  
  172.         //set the var
  173.         $IRCConnected = TRUE;
  174.  
  175.         //load the content ctrl
  176.         GuiLoadContentCtrl(MainWindow, "gui\\IRCChat.gui");
  177.     }
  178. }
  179.  
  180. function DisconnectFromIRCServer()
  181. {
  182.     //disconnect
  183.     ircDisconnect();
  184.  
  185.     //set the var
  186.     $IRCConnected = FALSE;
  187.     $IRCJoinedRoom = FALSE;
  188.  
  189.     //load the content ctrl
  190.     GuiLoadContentCtrl(MainWindow, "gui\\IRCLogin.gui");
  191. }
  192.  
  193. //--------------------------------------------------------------------------------------------------
  194. // OPTIONS GUI
  195.  
  196. function IRCOptions::Clear()
  197. {
  198.     Control::setValue(IDCTG_IRC_SERVER_TEXT, "");
  199.     Control::setValue(IDCTG_IRC_PORT_TEXT, "");
  200.     Control::setValue(IDCTG_IRC_ROOM_TEXT, "");
  201.  
  202.     $IRC::server        = "";
  203.     $IRC::serverPort    = "";
  204.     $IRC::room            = ""; 
  205. }
  206.  
  207. function IRCOptions::init()
  208. {
  209.     //init some vars
  210.     if ($IRC::lastServer == "")
  211.     {
  212.         $IRC::lastServer = -1;
  213.     }
  214.     if ($IRC::currentServer == "" || $IRC::currentServer > $IRC::lastServer)
  215.     {
  216.         if ($IRC::lastServer < 0)
  217.         {
  218.             $IRC::currentServer = -1;
  219.         }
  220.         else
  221.         {
  222.             $IRC::currentServer = 0;
  223.         }
  224.     }
  225.     if ($IRC::DisconnectInSim == "")
  226.     {
  227.         $IRC::DisconnectInSim = true;
  228.     }
  229.  
  230.     if ($IRC::BroadcastIP == "")
  231.     {
  232.         $IRC::BroadcastIP = true;
  233.     }
  234.  
  235.     if ($IRC::MsgHistory == "")
  236.     {
  237.         $IRC::MsgHistory = 500;
  238.     }
  239.     Control::setValue(OptionsIRCHistory, $IRC::MsgHistory);
  240.  
  241.     if ($IRC::UseLogFile == "") $IRC::UseLogFile = FALSE;
  242.     Control::setValue(OptionsIRCCaptureToLogfile, $IRC::UseLogFile);
  243.  
  244.     if ($IRC::LogFile == "") $IRC::LogFile = "IRCLog.txt";
  245.     Control::setValue(OptionsIRCLogfile, $IRC::LogFile);
  246.  
  247.     //set the other options
  248.     Control::setValue("OptionsIRCDisconnectInSim", $IRC::DisconnectInSim);
  249.     Control::setValue("OptionsIRCBroadcast", $IRC::BroadcastIP);
  250.  
  251.     //clear all the config controls to start
  252.     IRCOptions::Clear();
  253.  
  254.     //clear the combo
  255.     FGCombo::clear(IDCTG_IRC_OPTIONS_COMBO);
  256.  
  257.     //first add all the players to the player list combo box
  258.    for(%i = 0; $IRC::description[%i] != ""; %i++)
  259.     {
  260.         FGCombo::addEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::description[%i], %i);
  261.     }
  262.  
  263.     if ($IRC::currentServer >= 0)
  264.     {
  265.         IRCOptions::Read($IRC::currentServer);
  266.         Control::setActive(IDCTG_IRC_REMOVE_SERVER, TRUE);
  267.  
  268.         //also activate the entry fields
  269.         Control::setActive(IDCTG_IRC_SERVER_TEXT, true);
  270.         Control::setActive(IDCTG_IRC_PORT_TEXT, true);
  271.         Control::setActive(IDCTG_IRC_ROOM_TEXT, true);
  272.     }
  273.     else
  274.     {
  275.         //set the button
  276.         Control::setActive(IDCTG_IRC_REMOVE_SERVER, FALSE);
  277.  
  278.         //also grey out the entry fields
  279.         Control::setActive(IDCTG_IRC_SERVER_TEXT, false);
  280.         Control::setActive(IDCTG_IRC_PORT_TEXT, false);
  281.         Control::setActive(IDCTG_IRC_ROOM_TEXT, false);
  282.     }
  283. }
  284.  
  285. function IRCOptionsMsgHistory::validate()
  286. {
  287.     if ($IRC::MsgHistory < 50)
  288.     {
  289.         $IRC::MsgHistory = 50;
  290.     }
  291.     else if ($IRC::MsgHistory > 500)
  292.     {
  293.         $IRC::MsgHistory = 500;
  294.     }
  295.     Control::setValue(OptionsIRCHistory, $IRC::MsgHistory);
  296. }
  297.  
  298. function IRCOptions::Shutdown()
  299. {
  300.     IRCOptions::Write();
  301.    export("IRC::*", "config\\IRCServers.cs", False);
  302. }
  303.  
  304. function IRCOptions::Select()
  305. {
  306.     IRCOptions::Write();
  307.     IRCOptions::Read(FGCombo::getSelected(IDCTG_IRC_OPTIONS_COMBO));
  308. }
  309.  
  310. function IRCOptions::New()
  311. {
  312.     //push the dialog
  313.    GuiPushDialog(MainWindow, "gui\\NewIRCServer.gui");
  314. }
  315.  
  316. function IRCOptions::Read(%cfgNum)
  317. {
  318.     if (%cfgNum >= 0 && %cfgNum <= $IRC::lastServer)
  319.     {
  320.         //load the values into the gui controls        
  321.         Control::setValue(IDCTG_IRC_SERVER_TEXT,        $IRC::server[%cfgNum]);
  322.         Control::setValue(IDCTG_IRC_PORT_TEXT,            $IRC::serverPort[%cfgNum]);
  323.         Control::setValue(IDCTG_IRC_ROOM_TEXT,            $IRC::room[%cfgNum]);
  324.  
  325.         //copy the values into the current set used by IRCClient.cpp
  326.         $IRC::server        = $IRC::server[%cfgNum];
  327.         $IRC::serverPort    = $IRC::serverPort[%cfgNum];
  328.         $IRC::room            = $IRC::room[%cfgNum];
  329.         
  330.         //set the selected server in the combo box
  331.         $IRC::currentServer = %cfgNum;
  332.         FGCombo::setSelected(IDCTG_IRC_OPTIONS_COMBO, $IRC::currentServer);
  333.  
  334.         //set the buttons
  335.         Control::setActive(IDCTG_IRC_REMOVE_SERVER, TRUE);
  336.     }
  337. }
  338.     
  339. function IRCOptions::Write()
  340. {
  341.     if ($IRC::CurrentPlayer >= 0 && $IRC::CurrentPlayer <= $IRC::lastServer)
  342.     {
  343.         //get the values from the gui controls
  344.         $IRC::server[$IRC::currentServer]        = Control::getValue(IDCTG_IRC_SERVER_TEXT);
  345.         $IRC::serverPort[$IRC::currentServer]    = Control::getValue(IDCTG_IRC_PORT_TEXT);
  346.         $IRC::room[$IRC::currentServer]            = Control::getValue(IDCTG_IRC_ROOM_TEXT);
  347.  
  348.         //update the set of vars used by IRCClient.cpp
  349.         $IRC::server        = $IRC::server[$IRC::currentServer];
  350.         $IRC::serverPort    = $IRC::serverPort[$IRC::currentServer];
  351.         $IRC::room            = $IRC::room[$IRC::currentServer];
  352.     }
  353. }
  354.     
  355. function IRCOptions::Add(%newServerDescription)
  356. {
  357.     IRCOptions::Write();
  358.     if (%newServerDescription != "")
  359.     {
  360.         //add it to the end
  361.         $IRC::lastServer = $IRC::lastServer + 1;
  362.  
  363.         //create the vars
  364.         $IRC::description[$IRC::lastServer]    = %newServerDescription;
  365.         $IRC::server[$IRC::lastServer]        = "";
  366.         $IRC::serverPort[$IRC::lastServer]    = "";
  367.         $IRC::room[$IRC::lastServer]            = "";
  368.         
  369.         //add it to the list
  370.         FGCombo::addEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::description[$IRC::lastServer], $IRC::lastServer);
  371.  
  372.         //set the button
  373.         Control::setActive(IDCTG_IRC_REMOVE_SERVER, true);
  374.  
  375.         //activate the entry fields
  376.         Control::setActive(IDCTG_IRC_SERVER_TEXT, true);
  377.         Control::setActive(IDCTG_IRC_PORT_TEXT, true);
  378.         Control::setActive(IDCTG_IRC_ROOM_TEXT, true);
  379.  
  380.         //set the added player as the current
  381.         IRCOptions::Read($IRC::lastServer);
  382.         IRCOptions::Write();
  383.  
  384.  
  385.     }
  386. }
  387.  
  388. function IRCOptions::Remove()
  389. {
  390.     if ($IRC::currentServer >= 0 && $IRC::currentServer <= $IRC::lastServer)
  391.     {
  392.         //copy the last player entries over top of the one being deleted
  393.         if ($IRC::currentServer < $IRC::lastServer)
  394.         {
  395.             $IRC::description[$IRC::currentServer]    = $IRC::description[$IRC::lastServer];
  396.             $IRC::server[$IRC::currentServer]        = $IRC::server[$IRC::lastServer];
  397.             $IRC::serverPort[$IRC::currentServer]    = $IRC::serverPort[$IRC::lastServer];
  398.             $IRC::room[$IRC::currentServer]            = $IRC::room[$IRC::lastServer];
  399.  
  400.             //delete it from the combo box
  401.             FGCombo::deleteEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::currentServer);
  402.  
  403.             //delete the last entry, and re-add it with the new ID number
  404.             FGCombo::deleteEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::lastServer);
  405.             FGCombo::addEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::description[$IRC::currentServer], $IRC::currentServer);
  406.         }
  407.         else
  408.         {
  409.             //delete it from the combo box
  410.             FGCombo::deleteEntry(IDCTG_IRC_OPTIONS_COMBO, $IRC::currentServer);
  411.         }
  412.         
  413.         //erase the last player config
  414.         $IRC::description[$IRC::lastServer]    = "";
  415.         $IRC::server[$IRC::lastServer]        = "";
  416.         $IRC::serverPort[$IRC::lastServer]    = "";
  417.         $IRC::room[$IRC::lastServer]            = "";
  418.         
  419.         //decriment the last player index
  420.         $IRC::lastServer = $IRC::lastServer - 1;
  421.  
  422.         //now set the current server to be the first
  423.         if ($IRC::lastServer >= 0)
  424.         {
  425.             IRCOptions::Read(0);
  426.         }
  427.         else
  428.         {
  429.             IRCOptions::Clear();
  430.  
  431.             //set the button
  432.             Control::setActive(IDCTG_IRC_REMOVE_SERVER, FALSE);
  433.  
  434.             //also grey out the entry fields
  435.             Control::setActive(IDCTG_IRC_SERVER_TEXT, false);
  436.             Control::setActive(IDCTG_IRC_PORT_TEXT, false);
  437.             Control::setActive(IDCTG_IRC_ROOM_TEXT, false);
  438.         }
  439.     }
  440. }
  441.  
  442.  
  443.  
  444.  
  445.