General Discussion

[{NQP!}Qing]

I still have a bunch of the scripts written by myself (and others) from the T1/T2 days, plus Version2 mod for T2 and all of the source/executables/scripts for about 100 iterations of Tricon2.

Would this be a good place to host those files, if there is still use for them?

(might take me some time to respond to posts be patient plz)

[Blakhart]

holy crap!

somebody host this, or at least let me send you a blank cd so you can mebbe burn em for me?

[OldeWolfe]

Awesome Qing!  I still run Tricon2 on my server.  I hope your stuff can be hosted here, it would be the most common ground for current players.

[Ravin2112]

YES, we can use these. Thank you for offering them.

Ravin

[Kryand]

I know of a good place you could put them:

[Red Shifter]

Qing did most of the backend for Ascension.  One of the first things they asked me to do when I joined was completely rewrite it, which I didn't feel like doing.

[teratos]

I host most of Qing's Tricon stuff, although I think I don't have the newest stuff? Not sure.

Anyway, this might be an impostor, as anyone that has had the pleasure of interacting with the real Qing knows, he's not much of a P.R. guy.

EDIT: You're welcome to send them my way, I'll put them on my website:
http://tribes.m-parsons.com

[{NQP!}Qing]

I host most of Qing's Tricon stuff, although I think I don't have the newest stuff? Not sure.

Anyway, this might be an impostor, as anyone that has had the pleasure of interacting with the real Qing knows, he's not much of a P.R. guy.

EDIT: You're welcome to send them my way, I'll put them on my website:
http://tribes.m-parsons.com

Imposter ?

set me up with a login where I can upload; or email where we can discuss.

Code:

procedure tform1.lockconsole;
begin
raw.Lines.add('Locking raw console, server has switched to Tournament Mode');
console.addnl('Locking raw console, server has switched to Tournament Mode', 8, 0);
screenrefresh;
form2.visible:=false;
showconsole;
raw.visible:=false;
rawpause.enabled:=false;
rawpause.visible:=false;
sendtxtraw.enabled:=false;
TourneyModeLock:= true;
end;

procedure tform1.unlockconsole;
begin
raw.enabled:=true;
raw.visible:=true;
rawpause.enabled:=true;
rawpause.visible:=true;
sendtxtraw.enabled:=true;
raw.lines.add('Unlocking raw console, server has been switched to FFA Mode');
console.addnl('Unlocking raw console, server has been switched to FFA Mode', 8, 0);
screenrefresh;
TourneyModeLock:= false;
end;

procedure tform1.updatename;
var
  lName:string;
  lMod:string;
  lPass:string;
begin;
  lname:= 'TriCon2 - Build ' + floatToStr(tricon2version);
  lpass:= '  Pass: None';
  if gamename <> '' then
    lname:=gamename;
  if modname <> '' then
    lmod:= '  (' + modname + ')';
  if gamepass <> '' then
    lpass:= '  Pass: ' + gamepass;
  titlelabel.caption:= lname + lmod + lpass;
end;

procedure tform1.showconsole;
begin
coolpagecontrol1.activePage:=CoolTabSheet7;
coolpagecontrol3.activepage:=CoolTabSheet_GUI_Console;
end;

procedure tform1.showraw;
begin
if(TourneyModeLock) then
  begin
  showconsole;
  exit;
  end;
form1.msgPlayers.visible:=false;
end;

procedure tform1.clearpanels;
begin
//Panel_Monitor.visible:=false;
//Panel_TelnetGuiSettings.visible:=false;
//Panel_Advanced.visible:=false;
//Panel_MissionList.visible:=false;
//connectpanel.visible:=false;
//panel_optionsbase.visible:=false;
//panel_optionsTricon.visible:=false;
end;

procedure TForm1.wsckDataAvailable(Sender: TObject; Error: Word);
var
  ico: TIcon;
  yy:integer;
  zz:integer;
  count:integer;
  count2:integer;
  debugIndex:integer;
  debugString, debugTxt:string;
  tempdata5: string;
  newitem: Tmenuitem;
  newcool: TCoolItem;
  climg:string;
  trimmed:string;
  Inifile:Tinifile;
  toggle:array[0..1] of string;
  label skip;
label skiptime;
label skiptime1;

begin
toggle[0]:='Off';
toggle[1]:='On';
sdata := wsck.ReceiveStr;
debugString:='';
if length(sdata) < 1 then exit;
if 1=1 then
  begin;
   for debugIndex:= 1 to length(sdata) do
  begin;
debugString:=debugString + intToHex(ord(sdata[debugIndex]),2) + ' ';
debugTxt:=debugTxt + sdata[debugIndex] + '  ';
   end;
 memo_debug.lines.add('[');
memo_debug.lines.add(debugString);
    memo_debug.lines.add(debugTxt);
 memo_debug.lines.add(sdata);
  end;

  if memo_connect.tag = 0 then    //echo to connect console
if((sdata<>'tc2listplayers();'#$D#$A) and (sdata<>#$D#$A)) then //filters out blank lines from connect console
     memo_connect.Lines.add(sdata);

  // strip crlf
  if pos(#13,sdata) > 1 then
      sdata := copy(sdata,1,length(sdata)-2);

  // Replace tabs and newlines with \t \n
  sdata:= stringReplace(sdata,#9,'\t',[rfReplaceAll]);
  sdata:= stringReplace(sdata,#10,'\n',[rfReplaceAll]);

   // Check for Silly Ass % as 1st Character and strip it
   if pos('%', sdata) = 1 then
      sdata := copy(sdata, 3, length(sdata)-3);

// Respond to queries from the game checking for telnet
  if pos('testtelnet', sdata) = 1 then
    begin
    if TourneyModeLock = true then
      wsck.SendStr('messageall(' + #39 + 'Msg' + #39 + ', "\c2ONLINE TriCon connection (LOCKED CONSOLE)");' + #13#10)
    else
      wsck.SendStr('messageall(' + #39 + 'Msg' + #39 + ', "\c2ONLINE TriCon connection (' + localIp.currentIP + ') as ' + triadmin + '.");' + #13#10);
    exit;
    end;

// Filter out things we don't want echoed to the guis
  if pos('function servercmdtesttelnet', sdata) = 1 then exit;  //we dont want to echo this so admins can figure out how to spoof it
  if pos('messageall', sdata) = 1 then exit;                    //same here...
  if pos('echo("T:"', sdata) = 1 then exit;                     //ditto
  if pos('echo(', sdata) = 1 then exit;

// Handle Tournament Mode on/off state
  if pos('T:', sdata) = 1 then
    begin
    TourneyMode:= copy(sdata, 3,1);
    if (TourneyModeLock = true) and (TourneyMode = '0')then
      unlockConsole;
    if (TourneyModeLock = false) and (TourneyMode = '1') then
      lockConsole;
    exit;
    end;

  //echo to the raw consoles
  raw.lines.add(sdata);
  if devmode.caption = '1' then
    form2.Raw.Lines.Add(sdata);

//  Check for Invalid Password
if pos('Nope...',sdata) > 1 then
   if pos('Enter Password',sdata) < 5 then
     exit;

// We're locked out
  if pos('Too many tries... cya.', sdata) > 0 then
   begin
    memo_connect.lines.add('Unable to connect - invalid password.');
    memo_connect.lines.add('');
    memo_connect.tag:=0;
    disconnectflag:=true;
    form1.timer2.enabled:=false;
    tricon2true.enabled:=false;
    connecttimer.enabled:=false;
    pingtimer.enabled:=false;
    ConnectGauge.Position :=0;
    connectcounterlbl.caption := ('0');
    serverIsSelected:=false;
    exit;
   end;

// Lets see if this is a connect
pos1 := pos('Enter Password:', sdata);
if pos1 > 0 then
begin
    password('yes');
    exit;
   end;

// Match has started
if pos('START MATCH', sdata) > 0 then
begin
adminmsg('Match Started!   Mod: ' + modName + '    ' + cmissionlbl.caption + '   Time Limit: ' + opt_timelimit.text + ':00');
    if(strToInt(opt_timelimit.text) > 0) then
begin
      missiontimelbl.caption:=opt_timelimit.text + ':00';
      timer_mission.enabled:=true;
      end;
    end;

if( (pos(';', sdata) > 0) or (pos(':', sdata) > 0) = true) then
begin;
if(memo_connect.tag = 0) then
begin
      memo_connect.lines.add('Connection successful ! !');
      conpopup.QuickConnect.visible:=false;
      timer_SuccessConnect.enabled:=true;
      if(serverIsSelected) then
       begin
        IniFileName:= ExtractFilePath(Application.ExeName)+'tricon2history.ini';
        IniFile:= TIniFile.Create(IniFileName);
        with IniFile do
         begin
          WriteString('LASTSERVER', 'name',         list_serverlist.selected.caption);
          WriteString('LASTSERVER', 'serveraddress',list_serverlist.Selected.SubItems[0]);
          WriteString('LASTSERVER', 'port',         list_serverlist.selected.subitems[1]);
          WriteString('LASTSERVER', 'pass',         list_serverlist.selected.subitems[2]);
          WriteString('LASTSERVER', 'admin',        list_serverlist.selected.subitems[3]);
          end;
        IniFile.Free;
        end;
      end;
    memo_connect.tag:=1;
    end;

   // See if there is an imminent shutdown
   if comparetext(sdata,'exporting pref::* to ClientPrefs.cs') =0 then
      disconnectserver;

   //Begin Parse of : to See what Command
   pos1 := pos(':', sdata);

   // Got Command Lets assign it
   TribesCommand := copy(sdata, 1, pos1);

   // Lets Decide where to go on Command
if pos('T2PING:',TribesCommand) > 0 then
   begin
   // See if it's me
    if pos(localip.CurrentIP+'T2PING:',TribesCommand) > 0 then
      exit;
    // Someone else is here, disable my updates by default
    if not TriconAdminPresent then
     begin
      cooltrackbar1.position:=10;
      cooltrackbar2.position:=10;
      cooltrackbar3.position:=10;
      TriconAdminPresent:=true;
      pingtimer.interval:=25000; // Slow Down pingtimer to allow it to catch that noone is updating
      exit;
      end;
    // Reset pingtimer
    pingtimer.enabled:=false;
    pingtimer.enabled:=true;
exit;
end;

// Map has ended
if TribesCommand = ('LOADING MISSION:') then
begin
   tempdata:='Loading Mission '+ copy(sdata,18, length(sdata)-18);
   cmissionlbl.caption:= copy(sdata,18, length(sdata)-18);
   console.AddBreakEx(1, rvbsLine, $00BC7B7B);
   console.addnl(TempData,8,1);
   form1.memo1.lines.add(tempdata);
   console.AddBreakEx(1, rvbsLine, $00BC7B7B);
   screenrefresh;
   label_baseoptsStatus.caption:='Requesting prefs...';
   label_triconoptsStatus.caption:='Requesting prefs...';
   wsck.SendStr('tc2serverinfo();' + #13#10);
missiontimelbl.caption:='Not Started';
   exit;
   end;

// Game server version
if tribescommand = 'triservvers:' then
label_triconserverversion.caption:='TriCon2 Server Version: ' + copy(sdata, 13, maxint);

  // Parse 'base' log echoes i.e. kills, flag change, teamchange, OOB
if TribesCommand = ('LOG:') then
begin
{Console sample:
Kidney BOT (pl 8324/cl 4109) killed by DiamondBOT (pl 8779/cl 4108) using chaingun
Qing (pl 6013/cl 4116) was killed by turret (automated)-1}
    data := copy(sdata, 6, length(sdata)-6);
    TempPos := pos('(', data);
    TempLen := TempPos - 2;
    clientID := copy(data, 1, TempLen);

// Death messages
    if pos('killed', data) > 0 then
     begin
      TempPos := pos(')', data);
      ClientMSG:=copy(data,TempPos + 2,length(data)-6);
      TempPos := pos('(', ClientMSG);
      TempData := copy(ClientMSG,1,TempPos-2);
      TempPos1 := pos(')', ClientMSG);
      TempData1 := copy(ClientMSG,TempPos1 + 1,length(ClientMSG));
      ClientMSG := TempData + TempData1;
      form1.memo1.lines.add(clientid + ' died');
      screenrefresh;
      if pos('disc', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 16, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('missile', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 34, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('default', ClientMSG) > 0 then
       exit;
if pos('bomber', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 35, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('bomb', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 35, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('plasma', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 20, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('chaingun', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 24, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('mortar', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 18, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('vehicle controlled', ClientMSG) > 0 then
       begin
        tempPos:=pos('controlled by',Clientmsg);
        tempdata:= copy(Clientmsg,TempPos+14,length(clientmsg)-temppos-13);
        Tempdata1:=getnick(tempdata);
        console.AddBulletEx('', 14, ImageList1, 0);
        CLientmsg:=copy(Clientmsg,1,Temppos+13);
        console.AddNL(clientID +': ' + ClientMSG+Tempdata1,14,-1);
        screenrefresh;
        exit;
        end;
if pos('vehicle', ClientMSG) > 0 then
       begin
        console.AddBulletEx('', 14, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG,14,-1);
        screenrefresh;
        exit;
        end;
if pos('turret controlled', ClientMSG) > 0 then
       begin
        tempPos:=pos('controlled by',Clientmsg);
        tempdata:= copy(Clientmsg,TempPos+14,length(clientmsg)-temppos-13);
        Tempdata1:=getnick(tempdata);
        CLientmsg:=copy(Clientmsg,1,Temppos+13);
        console.AddBulletEx('', 22, ImageList1, 0);
        console.AddNL(clientID +': ' + ClientMSG+TempData1,14,-1);
        screenrefresh;
        exit;
        end;

[Thyth]

Good god... is that Pascal?

[{NQP!}Qing]

Basically.  TriCon2 is written in Delphi, which is essentially object-oriented pascal.  Easy to use, super-fast to iterate.

[greeneagle1]

Awesome Qing!  I still run Tricon2 on my server.  I hope your stuff can be hosted here, it would be the most common ground for current players.

Yes, you have a home on http://www.tribes2cygnus.com just get in touch with OldeWolfe and we get those hosted for you.  This would be a good stable site to put your files on.

Absolutely, thanks for everything.
Green Eagle

[Tribes2VET]

I still have a bunch of the scripts written by myself (and others) from the T1/T2 days, plus Version2 mod for T2 and all of the source/executables/scripts for about 100 iterations of Tricon2.

Would this be a good place to host those files, if there is still use for them?

(might take me some time to respond to posts be patient plz)

PM ME Dude I may be able To Help!!