PDA

View Full Version : SCAR Code tags added



Dankness
08-14-2006, 11:57 PM
Scar Code tags have been implemented courtesy of Drunkenoldma (http://www.moparisthebest.com/smf/index.php?action=profile;u=4917) here's a example




//----------------------------------------------------------------------------//
//---> Progress Reports
//----------------------------------------------------------------------------//

procedure PlayerStats;
var Active: string;
var I : Integer;
begin

WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
WriteLn (' Name : '+ Players[CurrentPlayer].Name);
WriteLn (' Number : '+ IntToStr (CurrentPlayer));
Writeln (' Trips To Do : '+ IntToStr ( trips ));
if (Players[CurrentPlayer].Worked > 0 ) then
WriteLn (' Worked for : '+ IntToStr (Players[CurrentPlayer].Worked)+' minutes.');
WriteLn (' Banked : '+ IntToStr (Players[CurrentPlayer].Banked) + ' times.');
WriteLn (' Location : '+ Players[CurrentPlayer].loc);
if (Players[CurrentPlayer].Integer1 < Players[CurrentPlayer].Level[20] ) then
Writeln(' Levels Gained : '+ IntToStr ( Players[CurrentPlayer].Level[20] - Players[CurrentPlayer].Integer1 ));
WriteLn (' Aprox XP Gained : '+ IntToStr ( Players[CurrentPlayer].Integer2 ));
if ( Players[CurrentPlayer].Killed > 0 ) then
Writeln (' Goblins Killed : '+ IntToStr ( Players[CurrentPlayer].Killed ) );

WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
for i := 0 to HowManyPlayers-1 do
begin
if Players[I].Active=True then Active := 'True' else Active := 'False';

WriteLn ( ( IntToStr ( I )) + ' : '+ Players[I].Name + ' = ' + Active + '. - Lvl : ' + IntToStr ( Players[I].Level[20])+
'. - B :'+IntToStr (Players[i].Banked)+' Times.'+
' - : '+IntToStr (Players[i].Worked)+' mins.'+' - Loc: '+Players[i].loc +' - Gained : '+ IntToStr ( Players[I].Level[20] - Players[i].Integer1 ));
end;
WriteLn ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
end;

procedure ProgressReport;
begin
WriteLn ('/~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~\');
WriteLn ('| Draynor Oak Banker -> v' + VerNumber + ' <- Progress Report --> by Dankness |');
Writeln ('<~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~>');
WriteLn (' Worked for '+ TimeRunning);
WriteLn (' Banked '+IntToStr ( Banks ) + ' Total Loads[s].');
if ( NewAxes > 0 ) then
WriteLn (' Withdrawn '+InttoStr ( NewAxes ) + ' New Axe[s].');
if ( LogCount > 0 ) then
WriteLn (' Cut Aprox. '+IntToStr ( LogCount ) + ' Normal Log[s].');
if ( OakCount > 0 ) then
WriteLn (' Cut Aprox. '+IntToStr ( OakCount ) + ' Oak Log[s].');
if ( WillowCount > 0 ) then
WriteLn (' Cut Aprox. '+IntToStr ( WillowCount ) + ' Willow Log[s].');
if ( YewCount > 0 ) then
WriteLn (' Cut Aprox. '+IntToStr ( YewCount ) + ' Yew Log[s].');
if ( Goblins > 0 ) then
WriteLn (' Killed Aprox. '+IntToStr ( Goblins ) + ' Goblin[s].');
SRLRandomsReport;
PlayerStats;
end;


You may use them just like normal code tags just typing SCAR instead of CODE :)

Keen
08-15-2006, 12:16 AM
Very nice addition to the forums Dankness.
There really quite cool. :)

Big thanks goes to DrunkenOldma.

WhiteShadow
08-15-2006, 01:04 AM
Sweet. I didn't really like code tags. :p

Janilabo
08-18-2006, 10:22 PM
Very sweet. :)

phantombmx
08-26-2006, 02:54 PM
the scar tags dont work for me.. it appeared in html on one of my previews (all html formating and coding)

i prefer using php tags.. it gives perfect formatting for me

Dankness
08-26-2006, 03:02 PM
the scar tags dont work for me.. it appeared in html on one of my previews (all html formating and coding)

i prefer using php tags.. it gives perfect formatting for me

very intersting what browser are you using?