Changeset 15


Ignore:
Timestamp:
Mar 22, 2011, 7:22:46 PM (14 years ago)
Author:
george
Message:
  • Added: Shield and tank destruction.
Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/UCore.pas

    r14 r15  
    1111const
    1212  MaxBulletCount = 10;
    13   EnergySteps = 400;
    14   ShieldSteps = 400;
     13  EnergySteps = 4000;
     14  ShieldSteps = 40;
    1515  ExplosionBulletCount = 100;
    1616  ExplosionRange = 20;
    1717  ExplosionBulletMaxSpeed = 0.5;
    1818  ExplosionBulletMinSpeed = 0.2;
     19  BulletExplosionRange = 3;
    1920
    2021type
     
    2223  TPlayer = class;
    2324
    24   TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon, smBullet,
     25  TSurfaceMatter = (smNothing, smDirt1, smDirt2, smRock, smCannon,
     26    smBullet1, smBullet2,
    2527    smPlayer1H, smPlayer1L, smPlayer2H, smPlayer2L,
    2628    smPlayer3H, smPlayer3L, smPlayer4H, smPlayer4L);
     
    6365  TPlayer = class
    6466  private
     67    FExploded: Boolean;
    6568    NewDirection: Integer;
    6669    NewPosition: TPoint;
    6770    Dig: Boolean;
     71    LastPos: TPoint;
     72    procedure SetExploded(const AValue: Boolean);
    6873    function ShowTankProc(Item1, Item2: Byte): Byte;
    6974    function HideTankProc(Item1, Item2: Byte): Byte;
     
    7782    Keys: TPlayerKeys;
    7883    Tanks: TListObject;
    79     Bullets: TListObject;
     84    Bullets: TListObject; // TList<TBullet>
    8085    Energy: Real;
    8186    LastEnergy: Real;
    8287    Shield: Real;
     88    LastShield: Real;
    8389    House: TRectangle;
    84     Exploded: Boolean;
    8590    procedure Init;
    86     procedure Explosion;
     91    procedure Explosion(Position: TPoint; Distance: Integer);
    8792    procedure Control;
    8893    procedure Tick;
     
    95100    constructor Create;
    96101    destructor Destroy; override;
     102    property Exploded: Boolean read FExploded write SetExploded;
    97103  end;
    98104
     
    153159const
    154160  SurfaceMatterColors: array[TSurfaceMatter] of TColor = (clBlack, $0756b0,
    155     $2170c3, TColor($9a9a9a), clYellow, clRed,
     161    $2170c3, TColor($9a9a9a), clYellow, clRed, clRed,
    156162    TColor($00ff00), TColor($00a000), TColor($ff2c2c), TColor($b60000),
    157163    TColor($0000ff), TColor($0000a0), TColor($ff2cff), TColor($b600b6));
     
    389395    if Energy <= 0 then begin
    390396      Energy := 0;
    391       Explosion;
     397      Explosion(Position, ExplosionRange);
     398      Exploded := True;
    392399    end;
    393400  end else begin
     
    400407  end;
    401408
     409  // Check shield
     410  if House.IsInside(Position) then begin
     411    Shield := Shield + 1 / ShieldSteps;
     412    if Shield > 1 then Shield := 1;
     413  end;
     414  if LastShield <> Shield then begin
     415    LastShield := Shield;
     416    Engine.Redraw;
     417  end;
     418  if Shield <= 0 then begin
     419    Shield := 0;
     420    Explosion(Position, ExplosionRange);
     421    Exploded := True;
     422  end;
     423
    402424  // Bullet movement
    403425  for I := Bullets.Count - 1 downto 0 do
    404   with TBullet(Bullets[I]) do begin
     426  with TBullet(Bullets[I]), Engine.World.Surface do begin
    405427    Pos := Point(Trunc(Position.X), Trunc(Position.Y));
    406     Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
     428    if (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet1)) or
     429      (ItemsXY[LastPos.X, LastPos.Y] = Byte(smBullet2)) then
     430      ItemsXY[LastPos.X, LastPos.Y] := Byte(smNothing);
     431    LastPos := Pos;
    407432
    408433    Position.X := Position.X + Direction.X;
     
    418443    Pos := Point(Trunc(Position.X), Trunc(Position.Y));
    419444
    420     if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and
    421     (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet)) then begin
    422       if (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or
    423         (Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin
    424           Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
     445    if (ItemsXY[Pos.X, Pos.Y] <> Byte(smNothing)) and
     446    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet1)) and
     447    (ItemsXY[Pos.X, Pos.Y] <> Byte(smBullet2)) then begin
     448      if (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt1)) or
     449        (ItemsXY[Pos.X, Pos.Y] = Byte(smDirt2)) then begin
     450          ItemsXY[Pos.X, Pos.Y] := Byte(smNothing);
    425451          if StopByDirt then begin
     452            Explosion(LastPos, BulletExplosionRange);
    426453            Bullets.Delete(I);
    427454            Engine.Redraw;
     
    429456          end;
    430457        end else begin
     458          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer1H)) then
     459            with TPlayer(Engine.Players[0]) do begin
     460              Shield := Shield - 1 / ShieldSteps;
     461            end;
     462          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer2H)) then
     463            with TPlayer(Engine.Players[1]) do begin
     464              Shield := Shield - 1 / ShieldSteps;
     465            end;
     466          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer3H)) then
     467            with TPlayer(Engine.Players[2]) do begin
     468              Shield := Shield - 1 / ShieldSteps;
     469            end;
     470          if (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4L)) or (ItemsXY[Pos.X, Pos.Y] = Byte(smPlayer4H)) then
     471            with TPlayer(Engine.Players[3]) do begin
     472              Shield := Shield - 1 / ShieldSteps;
     473            end;
     474          if StopByDirt then Explosion(LastPos, BulletExplosionRange);
    431475          Bullets.Delete(I);
    432476          Engine.Redraw;
     
    442486        Continue;
    443487      end;
    444     Engine.World.Surface.ItemsXY[Pos.X, Pos.Y] := Byte(smBullet);
     488    ItemsXY[Pos.X, Pos.Y] := Byte(smBullet1);
     489    //Engine.World.Surface.ItemsXY[LastPos.X, LastPos.Y] := Byte(smBullet2);
    445490    Engine.Redraw;
    446491  end;
     492
     493  if not Exploded then ShowTank;
    447494end;
    448495
     
    468515      end;
    469516
     517    // Energy bar
    470518    for I := 1 to ScreenFrame.Width - 2 do
    471519      if Energy < I / (ScreenFrame.Width - 2) then
     520        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clBlack
     521        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 2] := clYellow;
     522
     523    // Shield bar
     524    for I := 1 to ScreenFrame.Width - 2 do
     525      if Shield < I / (ScreenFrame.Width - 2) then
    472526        ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clBlack
    473         else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clYellow;
     527        else ItemsXY[ScreenFrame.Left + I, ScreenFrame.Bottom - 1] := clAqua;
    474528  end;
    475529end;
     
    527581end;
    528582
     583procedure TPlayer.SetExploded(const AValue: Boolean);
     584begin
     585  if FExploded = AValue then Exit;
     586  FExploded := AValue;
     587  if FExploded then HideTank else ShowTank;
     588end;
     589
    529590procedure TPlayer.ShowTank;
    530591begin
     
    553614end;
    554615
    555 procedure TPlayer.Explosion;
     616procedure TPlayer.Explosion(Position: TPoint; Distance: Integer);
    556617var
    557618  NewBullet: TBullet;
     
    561622begin
    562623  if not Exploded then begin
    563     Exploded := True;
    564     HideTank;
    565     for I := 0 to ExplosionBulletCount - 1 do begin
     624    for I := 0 to Distance - 1 do begin
    566625      NewBullet := TBullet.Create;
    567626      NewBullet.Player := Self;
     
    570629      NewBullet.Direction.X := Sin(Angle) * Speed;
    571630      NewBullet.Direction.Y := Cos(Angle) * Speed;
    572       NewBullet.Position.X := Position.X + NewBullet.Direction.X * 3;
    573       NewBullet.Position.Y := Position.Y + NewBullet.Direction.Y * 3;
    574       NewBullet.MaxDistance := Random(ExplosionRange);
     631      NewBullet.Position.X := Position.X; // + NewBullet.Direction.X * 3;
     632      NewBullet.Position.Y := Position.Y; // + NewBullet.Direction.Y * 3;
     633      NewBullet.MaxDistance := Random(Distance);
    575634      Bullets.Add(NewBullet);
    576635    end;
  • trunk/tunneler.lpi

    r14 r15  
    5050        <TopLine Value="1"/>
    5151        <CursorPos X="15" Y="4"/>
    52         <UsageCount Value="82"/>
     52        <UsageCount Value="83"/>
    5353      </Unit0>
    5454      <Unit1>
     
    5858        <ResourceBaseClass Value="Form"/>
    5959        <UnitName Value="UMainForm"/>
    60         <IsVisibleTab Value="True"/>
    6160        <EditorIndex Value="11"/>
    6261        <WindowIndex Value="0"/>
    6362        <TopLine Value="19"/>
    64         <CursorPos X="1" Y="36"/>
    65         <UsageCount Value="82"/>
     63        <CursorPos X="90" Y="28"/>
     64        <UsageCount Value="83"/>
    6665        <Loaded Value="True"/>
    6766        <LoadedDesigner Value="True"/>
     
    7170        <IsPartOfProject Value="True"/>
    7271        <UnitName Value="UCore"/>
     72        <IsVisibleTab Value="True"/>
    7373        <EditorIndex Value="0"/>
    7474        <WindowIndex Value="0"/>
    75         <TopLine Value="350"/>
    76         <CursorPos X="22" Y="367"/>
    77         <UsageCount Value="82"/>
     75        <TopLine Value="1"/>
     76        <CursorPos X="18" Y="14"/>
     77        <UsageCount Value="83"/>
    7878        <Loaded Value="True"/>
    7979      </Unit2>
     
    8484        <TopLine Value="35"/>
    8585        <CursorPos X="20" Y="51"/>
    86         <UsageCount Value="9"/>
     86        <UsageCount Value="8"/>
    8787      </Unit3>
    8888      <Unit4>
     
    9292        <TopLine Value="52"/>
    9393        <CursorPos X="18" Y="57"/>
    94         <UsageCount Value="8"/>
     94        <UsageCount Value="7"/>
    9595      </Unit4>
    9696      <Unit5>
     
    100100        <TopLine Value="1"/>
    101101        <CursorPos X="61" Y="11"/>
    102         <UsageCount Value="23"/>
     102        <UsageCount Value="22"/>
    103103      </Unit5>
    104104      <Unit6>
     
    108108        <TopLine Value="19"/>
    109109        <CursorPos X="4" Y="36"/>
    110         <UsageCount Value="13"/>
     110        <UsageCount Value="14"/>
    111111        <Loaded Value="True"/>
    112112      </Unit6>
     
    117117        <TopLine Value="2417"/>
    118118        <CursorPos X="3" Y="2459"/>
    119         <UsageCount Value="11"/>
     119        <UsageCount Value="10"/>
    120120      </Unit7>
    121121      <Unit8>
     
    124124        <TopLine Value="548"/>
    125125        <CursorPos X="22" Y="552"/>
    126         <UsageCount Value="9"/>
     126        <UsageCount Value="8"/>
    127127      </Unit8>
    128128      <Unit9>
     
    131131        <TopLine Value="34"/>
    132132        <CursorPos X="1" Y="54"/>
    133         <UsageCount Value="7"/>
     133        <UsageCount Value="6"/>
    134134      </Unit9>
    135135      <Unit10>
     
    139139        <TopLine Value="1433"/>
    140140        <CursorPos X="3" Y="1449"/>
    141         <UsageCount Value="6"/>
     141        <UsageCount Value="5"/>
    142142      </Unit10>
    143143      <Unit11>
     
    147147        <TopLine Value="152"/>
    148148        <CursorPos X="1" Y="158"/>
    149         <UsageCount Value="33"/>
     149        <UsageCount Value="34"/>
    150150        <Loaded Value="True"/>
    151151      </Unit11>
     
    156156        <TopLine Value="16"/>
    157157        <CursorPos X="22" Y="33"/>
    158         <UsageCount Value="21"/>
     158        <UsageCount Value="20"/>
    159159      </Unit12>
    160160      <Unit13>
     
    163163        <TopLine Value="16"/>
    164164        <CursorPos X="19" Y="32"/>
    165         <UsageCount Value="9"/>
     165        <UsageCount Value="8"/>
    166166      </Unit13>
    167167      <Unit14>
     
    171171        <TopLine Value="54"/>
    172172        <CursorPos X="3" Y="70"/>
    173         <UsageCount Value="12"/>
     173        <UsageCount Value="11"/>
    174174      </Unit14>
    175175      <Unit15>
     
    179179        <TopLine Value="10"/>
    180180        <CursorPos X="21" Y="13"/>
    181         <UsageCount Value="22"/>
     181        <UsageCount Value="23"/>
    182182        <Loaded Value="True"/>
    183183      </Unit15>
     
    187187        <TopLine Value="783"/>
    188188        <CursorPos X="3" Y="785"/>
    189         <UsageCount Value="6"/>
     189        <UsageCount Value="5"/>
    190190      </Unit16>
    191191      <Unit17>
     
    194194        <TopLine Value="498"/>
    195195        <CursorPos X="11" Y="515"/>
    196         <UsageCount Value="10"/>
     196        <UsageCount Value="9"/>
    197197      </Unit17>
    198198      <Unit18>
     
    202202        <TopLine Value="665"/>
    203203        <CursorPos X="27" Y="682"/>
    204         <UsageCount Value="8"/>
     204        <UsageCount Value="7"/>
    205205      </Unit18>
    206206      <Unit19>
     
    209209        <TopLine Value="112"/>
    210210        <CursorPos X="10" Y="114"/>
    211         <UsageCount Value="8"/>
     211        <UsageCount Value="7"/>
    212212      </Unit19>
    213213      <Unit20>
     
    217217        <TopLine Value="1035"/>
    218218        <CursorPos X="15" Y="1052"/>
    219         <UsageCount Value="7"/>
     219        <UsageCount Value="6"/>
    220220      </Unit20>
    221221      <Unit21>
     
    224224        <TopLine Value="3003"/>
    225225        <CursorPos X="3" Y="3010"/>
    226         <UsageCount Value="7"/>
     226        <UsageCount Value="6"/>
    227227      </Unit21>
    228228      <Unit22>
     
    231231        <TopLine Value="392"/>
    232232        <CursorPos X="1" Y="411"/>
    233         <UsageCount Value="7"/>
     233        <UsageCount Value="6"/>
    234234      </Unit22>
    235235      <Unit23>
     
    238238        <TopLine Value="85"/>
    239239        <CursorPos X="10" Y="102"/>
    240         <UsageCount Value="9"/>
     240        <UsageCount Value="8"/>
    241241      </Unit23>
    242242      <Unit24>
     
    245245        <TopLine Value="157"/>
    246246        <CursorPos X="3" Y="159"/>
    247         <UsageCount Value="9"/>
     247        <UsageCount Value="8"/>
    248248      </Unit24>
    249249      <Unit25>
     
    252252        <TopLine Value="9107"/>
    253253        <CursorPos X="1" Y="9124"/>
    254         <UsageCount Value="7"/>
     254        <UsageCount Value="6"/>
    255255      </Unit25>
    256256      <Unit26>
     
    259259        <TopLine Value="4226"/>
    260260        <CursorPos X="1" Y="4254"/>
    261         <UsageCount Value="7"/>
     261        <UsageCount Value="6"/>
    262262      </Unit26>
    263263      <Unit27>
     
    271271        <TopLine Value="6"/>
    272272        <CursorPos X="20" Y="39"/>
    273         <UsageCount Value="61"/>
     273        <UsageCount Value="62"/>
    274274        <Loaded Value="True"/>
    275275      </Unit27>
     
    279279        <TopLine Value="858"/>
    280280        <CursorPos X="1" Y="875"/>
    281         <UsageCount Value="8"/>
     281        <UsageCount Value="7"/>
    282282      </Unit28>
    283283      <Unit29>
     
    286286        <TopLine Value="2102"/>
    287287        <CursorPos X="1" Y="2119"/>
    288         <UsageCount Value="8"/>
     288        <UsageCount Value="7"/>
    289289      </Unit29>
    290290      <Unit30>
     
    302302        <TopLine Value="1"/>
    303303        <CursorPos X="34" Y="12"/>
    304         <UsageCount Value="13"/>
     304        <UsageCount Value="12"/>
    305305      </Unit31>
    306306      <Unit32>
     
    311311        <TopLine Value="3131"/>
    312312        <CursorPos X="42" Y="3148"/>
    313         <UsageCount Value="16"/>
     313        <UsageCount Value="17"/>
    314314        <Loaded Value="True"/>
    315315      </Unit32>
     
    320320        <TopLine Value="104"/>
    321321        <CursorPos X="3" Y="91"/>
    322         <UsageCount Value="9"/>
     322        <UsageCount Value="8"/>
    323323      </Unit33>
    324324      <Unit34>
     
    327327        <TopLine Value="325"/>
    328328        <CursorPos X="3" Y="327"/>
    329         <UsageCount Value="9"/>
     329        <UsageCount Value="8"/>
    330330      </Unit34>
    331331      <Unit35>
     
    335335        <TopLine Value="173"/>
    336336        <CursorPos X="5" Y="190"/>
    337         <UsageCount Value="10"/>
     337        <UsageCount Value="9"/>
    338338      </Unit35>
    339339      <Unit36>
     
    343343        <TopLine Value="25"/>
    344344        <CursorPos X="14" Y="25"/>
    345         <UsageCount Value="20"/>
     345        <UsageCount Value="21"/>
    346346        <Loaded Value="True"/>
    347347      </Unit36>
     
    352352        <TopLine Value="3"/>
    353353        <CursorPos X="22" Y="20"/>
    354         <UsageCount Value="11"/>
     354        <UsageCount Value="10"/>
    355355      </Unit37>
    356356      <Unit38>
     
    360360        <TopLine Value="91"/>
    361361        <CursorPos X="19" Y="107"/>
    362         <UsageCount Value="11"/>
     362        <UsageCount Value="10"/>
    363363      </Unit38>
    364364      <Unit39>
     
    367367        <TopLine Value="1"/>
    368368        <CursorPos X="1" Y="1"/>
    369         <UsageCount Value="10"/>
     369        <UsageCount Value="9"/>
    370370      </Unit39>
    371371      <Unit40>
     
    374374        <TopLine Value="158"/>
    375375        <CursorPos X="23" Y="175"/>
    376         <UsageCount Value="9"/>
     376        <UsageCount Value="8"/>
    377377      </Unit40>
    378378      <Unit41>
     
    382382        <TopLine Value="1"/>
    383383        <CursorPos X="9" Y="69"/>
    384         <UsageCount Value="9"/>
     384        <UsageCount Value="8"/>
    385385      </Unit41>
    386386      <Unit42>
     
    390390        <TopLine Value="1"/>
    391391        <CursorPos X="1" Y="1"/>
    392         <UsageCount Value="9"/>
     392        <UsageCount Value="8"/>
    393393      </Unit42>
    394394      <Unit43>
     
    398398        <TopLine Value="1"/>
    399399        <CursorPos X="14" Y="20"/>
    400         <UsageCount Value="9"/>
     400        <UsageCount Value="8"/>
    401401      </Unit43>
    402402      <Unit44>
     
    404404        <IsPartOfProject Value="True"/>
    405405        <UnitName Value="UPlatform"/>
    406         <UsageCount Value="41"/>
     406        <UsageCount Value="42"/>
    407407      </Unit44>
    408408      <Unit45>
     
    412412        <TopLine Value="929"/>
    413413        <CursorPos X="5" Y="932"/>
    414         <UsageCount Value="14"/>
     414        <UsageCount Value="13"/>
    415415      </Unit45>
    416416      <Unit46>
     
    420420        <TopLine Value="1"/>
    421421        <CursorPos X="50" Y="5"/>
    422         <UsageCount Value="13"/>
     422        <UsageCount Value="12"/>
    423423      </Unit46>
    424424      <Unit47>
     
    428428        <TopLine Value="1"/>
    429429        <CursorPos X="36" Y="15"/>
    430         <UsageCount Value="9"/>
     430        <UsageCount Value="8"/>
    431431      </Unit47>
    432432      <Unit48>
     
    436436        <TopLine Value="330"/>
    437437        <CursorPos X="35" Y="338"/>
    438         <UsageCount Value="16"/>
     438        <UsageCount Value="17"/>
    439439        <Loaded Value="True"/>
    440440      </Unit48>
     
    445445        <TopLine Value="58"/>
    446446        <CursorPos X="5" Y="75"/>
    447         <UsageCount Value="10"/>
     447        <UsageCount Value="9"/>
    448448      </Unit49>
    449449      <Unit50>
     
    455455        <TopLine Value="120"/>
    456456        <CursorPos X="44" Y="150"/>
    457         <UsageCount Value="26"/>
     457        <UsageCount Value="27"/>
    458458        <Loaded Value="True"/>
    459459      </Unit50>
     
    464464        <TopLine Value="147"/>
    465465        <CursorPos X="10" Y="84"/>
    466         <UsageCount Value="11"/>
     466        <UsageCount Value="12"/>
    467467        <Loaded Value="True"/>
    468468      </Unit51>
     
    470470    <JumpHistory Count="30" HistoryIndex="29">
    471471      <Position1>
    472         <Filename Value="UCore.pas"/>
    473         <Caret Line="376" Column="1" TopLine="354"/>
     472        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     473        <Caret Line="214" Column="13" TopLine="188"/>
    474474      </Position1>
    475475      <Position2>
    476         <Filename Value="UCore.pas"/>
    477         <Caret Line="377" Column="1" TopLine="354"/>
     476        <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
     477        <Caret Line="51" Column="26" TopLine="34"/>
    478478      </Position2>
    479479      <Position3>
    480480        <Filename Value="UCore.pas"/>
    481         <Caret Line="379" Column="1" TopLine="354"/>
     481        <Caret Line="886" Column="6" TopLine="866"/>
    482482      </Position3>
    483483      <Position4>
    484         <Filename Value="UCore.pas"/>
    485         <Caret Line="385" Column="1" TopLine="357"/>
     484        <Filename Value="UMainForm.pas"/>
     485        <Caret Line="49" Column="56" TopLine="34"/>
    486486      </Position4>
    487487      <Position5>
    488         <Filename Value="UCore.pas"/>
    489         <Caret Line="387" Column="1" TopLine="359"/>
     488        <Filename Value="UMainForm.pas"/>
     489        <Caret Line="146" Column="5" TopLine="132"/>
    490490      </Position5>
    491491      <Position6>
    492         <Filename Value="UCore.pas"/>
    493         <Caret Line="403" Column="1" TopLine="386"/>
     492        <Filename Value="UMainForm.pas"/>
     493        <Caret Line="176" Column="20" TopLine="174"/>
    494494      </Position6>
    495495      <Position7>
    496         <Filename Value="UCore.pas"/>
    497         <Caret Line="404" Column="1" TopLine="386"/>
     496        <Filename Value="UMainForm.pas"/>
     497        <Caret Line="94" Column="37" TopLine="92"/>
    498498      </Position7>
    499499      <Position8>
    500         <Filename Value="UCore.pas"/>
    501         <Caret Line="377" Column="10" TopLine="366"/>
     500        <Filename Value="UMainForm.pas"/>
     501        <Caret Line="135" Column="7" TopLine="133"/>
    502502      </Position8>
    503503      <Position9>
    504504        <Filename Value="UCore.pas"/>
    505         <Caret Line="175" Column="9" TopLine="158"/>
     505        <Caret Line="156" Column="13" TopLine="139"/>
    506506      </Position9>
    507507      <Position10>
    508508        <Filename Value="UCore.pas"/>
    509         <Caret Line="555" Column="3" TopLine="537"/>
     509        <Caret Line="119" Column="24" TopLine="110"/>
    510510      </Position10>
    511511      <Position11>
    512         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/>
    513         <Caret Line="158" Column="1" TopLine="152"/>
     512        <Filename Value="UCore.pas"/>
     513        <Caret Line="788" Column="15" TopLine="771"/>
    514514      </Position11>
    515515      <Position12>
    516516        <Filename Value="UCore.pas"/>
    517         <Caret Line="374" Column="12" TopLine="363"/>
     517        <Caret Line="340" Column="22" TopLine="320"/>
    518518      </Position12>
    519519      <Position13>
    520         <Filename Value="UCore.pas"/>
    521         <Caret Line="545" Column="6" TopLine="536"/>
     520        <Filename Value="UMainForm.pas"/>
     521        <Caret Line="135" Column="27" TopLine="118"/>
    522522      </Position13>
    523523      <Position14>
    524         <Filename Value="UCore.pas"/>
    525         <Caret Line="565" Column="106" TopLine="561"/>
     524        <Filename Value="UMainForm.pas"/>
     525        <Caret Line="95" Column="1" TopLine="92"/>
    526526      </Position14>
    527527      <Position15>
    528         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    529         <Caret Line="56" Column="58" TopLine="34"/>
     528        <Filename Value="UMainForm.pas"/>
     529        <Caret Line="175" Column="1" TopLine="171"/>
    530530      </Position15>
    531531      <Position16>
    532         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    533         <Caret Line="214" Column="13" TopLine="188"/>
     532        <Filename Value="UCore.pas"/>
     533        <Caret Line="411" Column="10" TopLine="384"/>
    534534      </Position16>
    535535      <Position17>
    536         <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericList.inc"/>
    537         <Caret Line="51" Column="26" TopLine="34"/>
     536        <Filename Value="UCore.pas"/>
     537        <Caret Line="83" Column="19" TopLine="65"/>
    538538      </Position17>
    539539      <Position18>
    540540        <Filename Value="UCore.pas"/>
    541         <Caret Line="886" Column="6" TopLine="866"/>
     541        <Caret Line="25" Column="14" TopLine="18"/>
    542542      </Position18>
    543543      <Position19>
    544         <Filename Value="UMainForm.pas"/>
    545         <Caret Line="49" Column="56" TopLine="34"/>
     544        <Filename Value="UCore.pas"/>
     545        <Caret Line="157" Column="59" TopLine="142"/>
    546546      </Position19>
    547547      <Position20>
    548         <Filename Value="UMainForm.pas"/>
    549         <Caret Line="146" Column="5" TopLine="132"/>
     548        <Filename Value="UCore.pas"/>
     549        <Caret Line="438" Column="67" TopLine="420"/>
    550550      </Position20>
    551551      <Position21>
    552         <Filename Value="UMainForm.pas"/>
    553         <Caret Line="176" Column="20" TopLine="174"/>
     552        <Filename Value="UCore.pas"/>
     553        <Caret Line="423" Column="16" TopLine="416"/>
    554554      </Position21>
    555555      <Position22>
    556         <Filename Value="UMainForm.pas"/>
    557         <Caret Line="94" Column="37" TopLine="92"/>
     556        <Filename Value="UCore.pas"/>
     557        <Caret Line="89" Column="24" TopLine="61"/>
    558558      </Position22>
    559559      <Position23>
    560         <Filename Value="UMainForm.pas"/>
    561         <Caret Line="135" Column="7" TopLine="133"/>
     560        <Filename Value="UCore.pas"/>
     561        <Caret Line="585" Column="31" TopLine="575"/>
    562562      </Position23>
    563563      <Position24>
    564564        <Filename Value="UCore.pas"/>
    565         <Caret Line="156" Column="13" TopLine="139"/>
     565        <Caret Line="586" Column="12" TopLine="578"/>
    566566      </Position24>
    567567      <Position25>
    568568        <Filename Value="UCore.pas"/>
    569         <Caret Line="119" Column="24" TopLine="110"/>
     569        <Caret Line="102" Column="1" TopLine="72"/>
    570570      </Position25>
    571571      <Position26>
    572572        <Filename Value="UCore.pas"/>
    573         <Caret Line="788" Column="15" TopLine="771"/>
     573        <Caret Line="420" Column="8" TopLine="391"/>
    574574      </Position26>
    575575      <Position27>
    576576        <Filename Value="UCore.pas"/>
    577         <Caret Line="340" Column="22" TopLine="320"/>
     577        <Caret Line="379" Column="42" TopLine="361"/>
    578578      </Position27>
    579579      <Position28>
    580         <Filename Value="UMainForm.pas"/>
    581         <Caret Line="135" Column="27" TopLine="118"/>
     580        <Filename Value="UCore.pas"/>
     581        <Caret Line="453" Column="17" TopLine="433"/>
    582582      </Position28>
    583583      <Position29>
    584         <Filename Value="UMainForm.pas"/>
    585         <Caret Line="95" Column="1" TopLine="92"/>
     584        <Filename Value="UCore.pas"/>
     585        <Caret Line="480" Column="88" TopLine="447"/>
    586586      </Position29>
    587587      <Position30>
    588         <Filename Value="UMainForm.pas"/>
    589         <Caret Line="175" Column="1" TopLine="171"/>
     588        <Filename Value="UCore.pas"/>
     589        <Caret Line="521" Column="66" TopLine="496"/>
    590590      </Position30>
    591591    </JumpHistory>
Note: See TracChangeset for help on using the changeset viewer.