Legacy:DefaultPropertiesAligner

About

DefaultPropertiesAligner is a WOTgreal macro that will align selected DefaultProperties.

• Selected DefaultProperties variables will be prefixed with the same number of spaces/tabs.
• Selected DefaultProperties values will start at the same position.

Older engine builds may not like this.

Before

defaultproperties
{
    InventoryType=class'ShieldGun'
 
    PickupMessage="You got the Shield Gun."
    PickupSound=Sound'PickupSounds.ShieldGunPickup'
    PickupForce="ShieldGunPickup"  // jdf
 
    MaxDesireability=+0.39
 
    StaticMesh=StaticMesh'WeaponStaticMesh.ShieldGunPickup'
    DrawType=DT_StaticMesh
    DrawScale=0.5
}

After

defaultproperties
{
	InventoryType			= class'ShieldGun'
 
	PickupMessage			= "You got the Shield Gun."
	PickupSound				= Sound'PickupSounds.ShieldGunPickup'
	PickupForce				= "ShieldGunPickup"  // jdf
 
	MaxDesireability		= +0.39
 
	StaticMesh				= StaticMesh'WeaponStaticMesh.ShieldGunPickup'
	DrawType				= DT_StaticMesh
	DrawScale				= 0.5
}

Code

program DefaultPropertiesAligner
begin
    // ========================================================================
    //  UnrealScript DefaultProperties Aligner
    //
    //  Copyright 2005 Roman Switch` Dzieciol, neai o2.pl
    //  http://wiki.beyondunreal.com/wiki/Switch
    // ========================================================================
 
    UseTabs := 1;
    TabSize := 4;
    PrependTabs := 1;
    ExtraTabs := 1;
 
    // ========================================================================
 
 
    BlockBeginX, BlockBeginY := BlockBegin();
    BlockEndX, BlockEndY := BlockEnd();
    AlignPos := 0;
 
    // Find align line
    for line:=BlockBeginY to BlockEndY step 1 do
    begin
        SetCursorXY(0,line);
        sline := CurrentLine();
 
        spos := Pos('=',sline);
        if (spos <> 0) then
        begin
            sleft := Copy(sline,0,spos-1);
            sleft := Trim(sleft);
            slen := Length(sleft);
            if( slen > AlignPos ) then
                AlignPos := slen;
        end;
    end;
 
    // Align selection
    if (AlignPos <> 0) then
    begin
        AlignPos := AlignPos + PrependTabs*TabSize;
 
        for line:=BlockBeginY to BlockEndY step 1 do
        begin
            SetCursorXY(0,line);
            sline := CurrentLine();
            spos := Pos('=',sline);
            if (spos <> 0) then
            begin
                sleft := Copy(sline,0,spos-1);
                sleft := Trim(sleft);
                sright := Copy(sline,spos+1,Length(sline)-spos);
                sright := Trim(sright);
                sres := sleft;
 
                if (UseTabs = 1) then
                begin
                    for tabpre:=1 to PrependTabs step 1 do
                    begin
                        sres :=Chr(9) + sres;
                    end;     
 
                    tend := Trunc(AlignPos / TabSize)+1+ExtraTabs;
                    tbeg := Trunc(Length(sleft) / TabSize)+PrependTabs;
                    tnum := tend-tbeg;
 
                    for tabpost:=1 to tnum step 1 do
                    begin
                        sres := sres + Chr(9);
                    end;
 
                    sres := sres + '=' + ' ' + sright;
                end;
 
                if (UseTabs = 0) then
                begin
 
                    for numtabs:=1 to PrependTabs*TabSize step 1 do
                    begin
                        sres := ' ' + sres;
                    end;              
 
                    tbeg := PrependTabs*TabSize + Length(sleft) + 1;
                    tend := (Trunc(AlignPos / TabSize)+1) * TabSize + ExtraTabs*TabSize;
 
                    for numspaces:=tbeg to tend step 1 do
                    begin
                        sres := sres + ' ';
                    end;
 
                    sres := sres + '=' + ' ' + sright;
                end;
 
                SetCurrentLine(sres);
            end;
        end;    
    end;  
end;