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)
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
somebody host this, or at least let me send you a blank cd so you can mebbe burn em for me?
Ravin
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;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
PM ME Dude I may be able To Help!!