Changeset 291 for trunk/UCore.pas


Ignore:
Timestamp:
Mar 26, 2019, 1:16:27 PM (6 years ago)
Author:
chronos
Message:
  • Modified: UnitKind list and items converted to general item list.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/UCore.pas

    r287 r291  
    557557      Color := clFuchsia;
    558558    end;
    559     with UnitKinds.AddNew('Unit') do begin
     559    with TUnitKind(UnitKinds.AddItem('Unit')) do begin
    560560      Moves := 1;
    561561      Power := 99;
    … …  
    591591      Color := clFuchsia;
    592592    end;
    593     with UnitKinds.AddNew('Unit') do begin
     593    with TUnitKind(UnitKinds.AddItem('Unit')) do begin
    594594      Moves := 1;
    595595      Power := 99;
    … …  
    604604      Color := clFuchsia;
    605605    end;
    606     with UnitKinds.AddNew('Scout') do begin
    607       Moves := 1;
    608       Power := 1;
    609     end;
    610     with UnitKinds.AddNew('Settler') do begin
     606    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     607      Moves := 1;
     608      Power := 1;
     609    end;
     610    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    611611      Moves := 1;
    612612      Power := 1;
    … …  
    618618    UnitsMoveImmediately := True;
    619619    MaxPlayerCount := 3;
    620     with UnitKinds.AddNew('Scout') do begin
    621       Moves := 1;
    622       Power := 1;
    623     end;
    624     with UnitKinds.AddNew('Settler') do begin
     620    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     621      Moves := 1;
     622      Power := 1;
     623    end;
     624    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    625625      Moves := 1;
    626626      Power := 1;
    … …  
    632632    UnitsMoveImmediately := True;
    633633    MaxPlayerCount := 3;
    634     with UnitKinds.AddNew('Scout') do begin
    635       Moves := 1;
    636       Power := 1;
    637     end;
    638     with UnitKinds.AddNew('Settler') do begin
     634    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     635      Moves := 1;
     636      Power := 1;
     637    end;
     638    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    639639      Moves := 1;
    640640      Power := 1;
    … …  
    646646    UnitsMoveImmediately := True;
    647647    MaxPlayerCount := 3;
    648     with UnitKinds.AddNew('Scout') do begin
    649       Moves := 1;
    650       Power := 1;
    651     end;
    652     with UnitKinds.AddNew('Settler') do begin
     648    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     649      Moves := 1;
     650      Power := 1;
     651    end;
     652    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    653653      Moves := 1;
    654654      Power := 1;
    … …  
    660660    UnitsMoveImmediately := True;
    661661    MaxPlayerCount := 3;
    662     with UnitKinds.AddNew('Scout') do begin
    663       Moves := 1;
    664       Power := 1;
    665     end;
    666     with UnitKinds.AddNew('Settler') do begin
     662    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     663      Moves := 1;
     664      Power := 1;
     665    end;
     666    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    667667      Moves := 1;
    668668      Power := 1;
    … …  
    674674    UnitsMoveImmediately := True;
    675675    MaxPlayerCount := 3;
    676     with UnitKinds.AddNew('Scout') do begin
    677       Moves := 1;
    678       Power := 1;
    679     end;
    680     with UnitKinds.AddNew('Settler') do begin
     676    with TUnitKind(UnitKinds.AddItem('Scout')) do begin
     677      Moves := 1;
     678      Power := 1;
     679    end;
     680    with TUnitKind(UnitKinds.AddItem('Settler')) do begin
    681681      Moves := 1;
    682682      Power := 1;
    … …  
    706706      Color := clOrange;
    707707    end;
    708     with UnitKinds.AddNew('Light Infantry') do begin
    709       Moves := 1;
    710     end;
    711     with UnitKinds.AddNew('Heavy Troopers') do begin
    712       Moves := 1;
    713     end;
    714     with UnitKinds.AddNew('Trike') do begin
    715       Moves := 1;
    716     end;
    717     with UnitKinds.AddNew('Quad') do begin
     708    with TUnitKind(UnitKinds.AddItem('Light Infantry')) do begin
     709      Moves := 1;
     710    end;
     711    with TUnitKind(UnitKinds.AddItem('Heavy Troopers')) do begin
     712      Moves := 1;
     713    end;
     714    with TUnitKind(UnitKinds.AddItem('Trike')) do begin
     715      Moves := 1;
     716    end;
     717    with TUnitKind(UnitKinds.AddItem('Quad')) do begin
    718718      Moves := 1;
    719719    end;
    … …  
    724724    UnitsMoveImmediately := True;
    725725    MaxPlayerCount := 8;
    726     with UnitKinds.AddNew('Demon 132') do begin
     726    with TUnitKind(UnitKinds.AddItem('Demon 132')) do begin
    727727      Moves := 4;
    728728      Power := 10;
    729729    end;
    730     with UnitKinds.AddNew('Troll 142') do begin
     730    with TUnitKind(UnitKinds.AddItem('Troll 142')) do begin
    731731      Moves := 3;
    732732      Power := 10;
    733733    end;
    734     with UnitKinds.AddNew('Ranger 132') do begin
     734    with TUnitKind(UnitKinds.AddItem('Ranger 132')) do begin
    735735      Moves := 10;
    736736      Power := 10;
    737737    end;
    738     with UnitKinds.AddNew('Buggy') do begin
     738    with TUnitKind(UnitKinds.AddItem('Buggy')) do begin
    739739      Moves := 10;
    740740      Power := 10;
    … …  
    755755      Color := clGreen;
    756756    end;
    757     with UnitKinds.AddNew('Rifle Team') do begin
    758       Moves := 1;
    759     end;
    760     with UnitKinds.AddNew('Machine Gun') do begin
    761       Moves := 1;
    762     end;
    763     with UnitKinds.AddNew('Heavy Infantry') do begin
    764       Moves := 1;
    765     end;
    766     with UnitKinds.AddNew('Granadiers') do begin
     757    with TUnitKind(UnitKinds.AddItem('Rifle Team')) do begin
     758      Moves := 1;
     759    end;
     760    with TUnitKind(UnitKinds.AddItem('Machine Gun')) do begin
     761      Moves := 1;
     762    end;
     763    with TUnitKind(UnitKinds.AddItem('Heavy Infantry')) do begin
     764      Moves := 1;
     765    end;
     766    with TUnitKind(UnitKinds.AddItem('Granadiers')) do begin
    767767      Moves := 1;
    768768    end;
Note: See TracChangeset for help on using the changeset viewer.