SRL Archive - SRL Site Discussion

Scar Code tags have been implemented courtesy of Drunkenoldma 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 :)

Very nice addition to the forums Dankness.
There really quite cool. :)

Big thanks goes to DrunkenOldma.

Sweet. I didn't really like code tags. :p

Very sweet. :)

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

From: phantombmx
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?