Old T1/T2 Files, can you host?

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)

Comments

  • holy crap!

    somebody host this, or at least let me send you a blank cd so you can mebbe burn em for me?
  • 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, we can use these. Thank you for offering them.

    Ravin
  • I know of a good place you could put them:

    picture1ph.png
  • 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.
  • 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
  • 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.
    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;
    
    
    
  • Good god... is that Pascal?
  • Basically. TriCon2 is written in Delphi, which is essentially object-oriented pascal. Easy to use, super-fast to iterate.
  • 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
  • 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!!
Sign In or Register to comment.