Changeset 26
- Timestamp:
- Sep 29, 2011, 8:54:28 PM (13 years ago)
- Location:
- trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/UApplicationInfo.pas
r24 r26 52 52 Name := 'Tunneler'; 53 53 Identification := 1; 54 ReleaseDate := '2011-09-2 8';54 ReleaseDate := '2011-09-29'; 55 55 MajorVersion := 0; 56 56 MinorVersion := 2; -
trunk/UCore.pas
r25 r26 13 13 MaxBulletCount = 10; 14 14 EnergySteps = 4000; 15 EnergyDecreaseDig = 0.001; 15 16 ShieldSteps = 40; 16 17 ExplosionBulletCount = 100; … … 20 21 BulletExplosionRange = 3; 21 22 ShootDelay = 0.2; // seconds 23 DigDelay = 0.2; // seconds 24 ShootDigDelay = 0.005; // seconds 22 25 ShootEnergyDecrease = 0.01; 26 PlayerFrameWidth = 80; 27 PlayerFrameHeight = 80; 28 PlayerHouseSize = 30; 29 PlayerHouseDoorSize = 8; 23 30 24 31 type … … 59 66 end; 60 67 61 TMatterIndex = (miSpace, miDirt1, miDirt2, miRock, miBullet1, miBullet2, 68 TMatterIndex = (miSpace, miDirt1, miDirt2, miRock, miBullet1, miBullet2, miBorder, 62 69 miPlayer1Cannon, miPlayer1Home, miPlayer1TankBody, miPlayer1TankBody2, 63 70 miPlayer2Cannon, miPlayer2Home, miPlayer2TankBody, miPlayer2TankBody2, … … 70 77 71 78 TMatterKind = (mkSpace, mkDirt, mkRock, mkBullet, mkTankBody, 72 mkHome );79 mkHome, mkBorder); 73 80 74 81 { TPlayer } … … 84 91 function ShowTankProc(Item1, Item2: Byte): Byte; 85 92 function HideTankProc(Item1, Item2: Byte): Byte; 93 function DigProc(Item1, Item2: Byte): Byte; 86 94 public 87 95 Id: Integer; … … 96 104 Bullets: TListObject; // TListObject<TBullet> 97 105 LastShootTime: TDateTime; 106 LastDigTime: TDateTime; 98 107 Energy: Real; 99 108 LastEnergy: Real; … … 176 185 IntfImage: TLazIntfImage; 177 186 ClearBackground: Boolean; 187 procedure InitDigMasks; 178 188 procedure SetActive(const AValue: Boolean); 179 189 procedure SetBitmap(const AValue: TBitmap); … … 187 197 PlayerPool: TListObject; // TListObject<TPlayer> 188 198 Players: TListObject; // TListObject<TPlayer> 199 DigMasks: TListObject; // TListObject<TMatrixByte> 189 200 Lock: TCriticalSection; 190 201 constructor Create; … … 207 218 (X: 0; Y: 1), (X: -1; Y: 1), (X: -1; Y: 0), (X: -1; Y: -1)); 208 219 209 function SwapBRComponent(Value: Integer): Integer; inline;220 function SwapBRComponent(Value: Cardinal): Cardinal; inline; 210 221 211 222 … … 216 227 217 228 218 function SwapBRComponent(Value: Integer): Integer;229 function SwapBRComponent(Value: Cardinal): Cardinal; inline; 219 230 begin 220 231 // Result := (Value and $00ff00) or ((Value shr 16) and $ff) or ((Value and $ff) shl 16); … … 326 337 Kind := mkBullet; 327 338 Color := clRed; 339 Player := -1; 340 end; 341 // Border 342 with TMatter(Matter.AddNew(TMatter.Create)) do begin 343 Kind := mkBorder; 344 Color := clNavy; 328 345 Player := -1; 329 346 end; … … 667 684 HideTank; 668 685 Matter := CheckColision; 669 if (Matter = miDirt1) then Dig := not Dig; 670 if (Matter = miSpace) or ((Matter = miDirt1) and (not Dig)) then begin 686 if (Matter = miDirt1) and ( 687 (Engine.KeyBoard.KeyState[Ord(Keys.Shoot)] and 688 ((Now - LastDigTime) > ShootDigDelay * OneSecond)) or 689 (not Engine.KeyBoard.KeyState[Ord(Keys.Shoot)] and 690 ((Now - LastDigTime) > DigDelay * OneSecond))) then begin 691 Dig := not Dig; 692 with Engine, World do 693 Surface.Merge(Surface.CreateIndex( 694 Position.X - TMatrixByte(DigMasks[Direction]).Count.X div 2, 695 Position.Y - TMatrixByte(DigMasks[Direction]).Count.Y div 2), 696 TMatrixByte(DigMasks[Direction]), DigProc); 697 Energy := Energy - EnergyDecreaseDig; 698 if Energy < 0 then Energy := 0; 699 Engine.Redraw; 700 LastDigTime := Now; 701 Direction := NewDirection; 702 end; 703 if (Matter = miSpace) then begin 671 704 Position := NewPosition; 672 705 Direction := NewDirection; … … 681 714 NewBullet := TBullet.Create; 682 715 NewBullet.Player := Self; 683 NewBullet.Position.X := Position.X + DirectionToDelta[Direction].X * 4;684 NewBullet.Position.Y := Position.Y + DirectionToDelta[Direction].Y * 4;716 NewBullet.Position.X := Position.X + DirectionToDelta[Direction].X * 3; 717 NewBullet.Position.Y := Position.Y + DirectionToDelta[Direction].Y * 3; 685 718 NewBullet.Direction.X := DirectionToDelta[Direction].X; 686 719 NewBullet.Direction.Y := DirectionToDelta[Direction].Y; … … 807 840 // FillRect(ScreenFrame); 808 841 Fill(CreateIndex(ScreenFrame.Left, ScreenFrame.Top), 809 CreateIndex(ScreenFrame.Right - 1, ScreenFrame.Bottom - 1),842 CreateIndex(ScreenFrame.Right, ScreenFrame.Bottom), 810 843 TMatter(Engine.World.Matter[Integer(miRock)]).Color); 811 844 … … 834 867 835 868 procedure TPlayer.PlaceHouse; 836 const837 HouseSize = 30;838 DoorSize = 8;839 869 var 840 870 X, Y: Integer; 841 871 Matter: Byte; 842 872 begin 843 House.AsTRect := Rect(Position.X - HouseSize div 2, Position.Y -HouseSize div 2,844 Position.X + HouseSize div 2, Position.Y +HouseSize div 2);845 for Y := 0 to HouseSize - 1 do846 for X := 0 to HouseSize - 1 do begin847 if ((Y = 0) or (Y = ( HouseSize - 1)) or (X = 0) or (X = (HouseSize - 1))) and848 not (((Y = 0) or (Y = ( HouseSize - 1))) and (X > ((HouseSize -DoorSize) div 2)) and849 (X < (( HouseSize - 1 +DoorSize) div 2)))873 House.AsTRect := Rect(Position.X - PlayerHouseSize div 2, Position.Y - PlayerHouseSize div 2, 874 Position.X + PlayerHouseSize div 2, Position.Y + PlayerHouseSize div 2); 875 for Y := 0 to PlayerHouseSize - 1 do 876 for X := 0 to PlayerHouseSize - 1 do begin 877 if ((Y = 0) or (Y = (PlayerHouseSize - 1)) or (X = 0) or (X = (PlayerHouseSize - 1))) and 878 not (((Y = 0) or (Y = (PlayerHouseSize - 1))) and (X > ((PlayerHouseSize - PlayerHouseDoorSize) div 2)) and 879 (X < ((PlayerHouseSize - 1 + PlayerHouseDoorSize) div 2))) 850 880 then Matter := Byte(miPlayer1Home) + Id * 4 851 881 else Matter := Byte(miSpace); … … 907 937 begin 908 938 if Item2 > 0 then Result := 0 else Result := Item1; 939 end; 940 941 function TPlayer.DigProc(Item1, Item2: Byte): Byte; 942 begin 943 if ((Item1 = Integer(miDirt1)) or (Item1 = Integer(miDirt2))) and (Item2 = 1) then 944 Result := Integer(miSpace) else Result := Item1; 909 945 end; 910 946 … … 1126 1162 TargetHeight: Integer; 1127 1163 TargetWidth: Integer; 1164 BgColor: Cardinal; 1128 1165 begin 1129 1166 if Assigned(FBitmap) then … … 1134 1171 BytePerRow := RawImage.Description.BytesPerLine; 1135 1172 if ClearBackground then begin 1136 FillChar(RawImage.Data^, Bitmap.Height * BytePerRow, 0); 1173 BgColor := TMatter(World.Matter[Integer(miBorder)]).Color; 1174 BgColor := SwapBRComponent(BgColor); 1175 FillDWord(RawImage.Data^, Bitmap.Height * BytePerRow div 4, BgColor); 1137 1176 ClearBackground := False; 1138 1177 end; … … 1195 1234 end; 1196 1235 1236 procedure TEngine.InitDigMasks; 1237 var 1238 NewMask: TMatrixByte; 1239 I: Integer; 1240 X, Y: Integer; 1241 begin 1242 DigMasks.Clear; 1243 1244 // 001111100 1245 // 0111A1110 1246 // 00z1A1z00 1247 // 00zxAxz00 1248 // 00zxAxz00 1249 // 00zxxxz00 1250 // 00z000z00 1251 // 000000000 1252 // 000000000 1253 1254 NewMask := TMatrixByte.Create; 1255 with NewMask do begin 1256 Count := CreateIndex(9, 9); 1257 for I := 0 to 4 do ItemsXY[2 + I, 0] := 1; 1258 for I := 0 to 2 do begin 1259 ItemsXY[1 + I, 1] := 1; 1260 ItemsXY[5 + I, 1] := 1; 1261 end; 1262 ItemsXY[3, 2] := 1; 1263 ItemsXY[5, 2] := 1; 1264 end; 1265 DigMasks.Add(NewMask); 1266 1267 // 000011110 1268 // 0000z1111 1269 // 000zx1A11 1270 // 00zxxA111 1271 // 0zxxAxxz1 1272 // 000xxxz00 1273 // 0000xz000 1274 // 0000z0000 1275 // 000000000 1276 1277 NewMask := TMatrixByte.Create; 1278 with NewMask do begin 1279 Count := CreateIndex(9, 9); 1280 for I := 0 to 3 do begin 1281 ItemsXY[4 + I, 0] := 1; 1282 ItemsXY[5 + I, 1] := 1; 1283 end; 1284 ItemsXY[5, 2] := 1; 1285 ItemsXY[7, 2] := 1; 1286 ItemsXY[8, 2] := 1; 1287 for I := 0 to 2 do 1288 ItemsXY[6 + I, 3] := 1; 1289 ItemsXY[8, 4] := 1; 1290 end; 1291 DigMasks.Add(NewMask); 1292 1293 NewMask := TMatrixByte.Create; 1294 NewMask.Assign(TMatrixByte(DigMasks[0])); 1295 NewMask.Reverse; 1296 NewMask.ReverseHorizontal; 1297 DigMasks.Add(NewMask); 1298 1299 NewMask := TMatrixByte.Create; 1300 NewMask.Assign(TMatrixByte(DigMasks[1])); 1301 NewMask.ReverseVertical; 1302 DigMasks.Add(NewMask); 1303 1304 NewMask := TMatrixByte.Create; 1305 NewMask.Assign(TMatrixByte(DigMasks[0])); 1306 NewMask.ReverseVertical; 1307 DigMasks.Add(NewMask); 1308 1309 NewMask := TMatrixByte.Create; 1310 NewMask.Assign(TMatrixByte(DigMasks[1])); 1311 NewMask.ReverseVertical; 1312 NewMask.ReverseHorizontal; 1313 DigMasks.Add(NewMask); 1314 1315 NewMask := TMatrixByte.Create; 1316 NewMask.Assign(TMatrixByte(DigMasks[0])); 1317 NewMask.Reverse; 1318 DigMasks.Add(NewMask); 1319 1320 NewMask := TMatrixByte.Create; 1321 NewMask.Assign(TMatrixByte(DigMasks[1])); 1322 NewMask.ReverseHorizontal; 1323 DigMasks.Add(NewMask); 1324 end; 1325 1197 1326 procedure TEngine.InitPlayerPool; 1198 1327 var … … 1283 1412 HorizFrameCount := 1; 1284 1413 end; 1285 FBitmapLower.Count := FBitmapLower.CreateIndex(80 * HorizFrameCount, 60 * VertFrameCount); 1414 FBitmapLower.Count := FBitmapLower.CreateIndex(PlayerFrameWidth * HorizFrameCount, 1415 PlayerFrameHeight * VertFrameCount); 1286 1416 for I := 0 to Players.Count - 1 do begin 1287 1417 TPlayer(Players[I]).ScreenFrame.AsTRect := Rect( 1288 (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount) ,1289 (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount) ,1418 (I mod HorizFrameCount) * (FBitmapLower.Count.X div HorizFrameCount) + 1, 1419 (I div HorizFrameCount) * (FBitmapLower.Count.Y div VertFrameCount) + 1, 1290 1420 ((I mod HorizFrameCount) + 1) * (FBitmapLower.Width div HorizFrameCount), 1291 1421 ((I div HorizFrameCount) + 1) * (FBitmapLower.Height div VertFrameCount)); … … 1309 1439 World.Engine := Self; 1310 1440 InitPlayerPool; 1441 DigMasks := TListObject.Create; 1442 InitDigMasks; 1311 1443 Redraw; 1312 1444 end; … … 1315 1447 begin 1316 1448 Active := False; 1449 DigMasks.Free; 1317 1450 FBitmapLower.Free; 1318 1451 FBitmapLock.Free; … … 1350 1483 try 1351 1484 Lock.Acquire; 1352 //FBitmapLower.FillAll(0);1485 if ClearBackground then FBitmapLower.FillAll(clNavy); 1353 1486 for I := 0 to Players.Count - 1 do begin 1354 1487 TPlayer(Players[I]).Paint; -
trunk/tunneler.lpi
r25 r26 42 42 </Item3> 43 43 </RequiredPackages> 44 <Units Count="7 1">44 <Units Count="73"> 45 45 <Unit0> 46 46 <Filename Value="tunneler.lpr"/> … … 50 50 <TopLine Value="1"/> 51 51 <CursorPos X="61" Y="10"/> 52 <UsageCount Value="1 17"/>52 <UsageCount Value="123"/> 53 53 </Unit0> 54 54 <Unit1> … … 60 60 <TopLine Value="203"/> 61 61 <CursorPos X="68" Y="209"/> 62 <UsageCount Value="9 1"/>62 <UsageCount Value="90"/> 63 63 </Unit1> 64 64 <Unit2> … … 69 69 <EditorIndex Value="0"/> 70 70 <WindowIndex Value="0"/> 71 <TopLine Value=" 756"/>72 <CursorPos X=" 22" Y="773"/>73 <UsageCount Value="1 17"/>71 <TopLine Value="1399"/> 72 <CursorPos X="3" Y="1405"/> 73 <UsageCount Value="123"/> 74 74 <Loaded Value="True"/> 75 75 </Unit2> … … 80 80 <TopLine Value="35"/> 81 81 <CursorPos X="20" Y="51"/> 82 <UsageCount Value=" 5"/>82 <UsageCount Value="4"/> 83 83 </Unit3> 84 84 <Unit4> … … 88 88 <TopLine Value="52"/> 89 89 <CursorPos X="18" Y="57"/> 90 <UsageCount Value=" 4"/>90 <UsageCount Value="3"/> 91 91 </Unit4> 92 92 <Unit5> … … 96 96 <TopLine Value="1"/> 97 97 <CursorPos X="61" Y="11"/> 98 <UsageCount Value="1 9"/>98 <UsageCount Value="18"/> 99 99 </Unit5> 100 100 <Unit6> … … 103 103 <TopLine Value="19"/> 104 104 <CursorPos X="4" Y="36"/> 105 <UsageCount Value="1 1"/>105 <UsageCount Value="10"/> 106 106 </Unit6> 107 107 <Unit7> … … 111 111 <TopLine Value="2417"/> 112 112 <CursorPos X="3" Y="2459"/> 113 <UsageCount Value=" 7"/>113 <UsageCount Value="6"/> 114 114 </Unit7> 115 115 <Unit8> … … 118 118 <TopLine Value="453"/> 119 119 <CursorPos X="1" Y="470"/> 120 <UsageCount Value="1 1"/>120 <UsageCount Value="10"/> 121 121 </Unit8> 122 122 <Unit9> … … 125 125 <TopLine Value="34"/> 126 126 <CursorPos X="1" Y="54"/> 127 <UsageCount Value=" 3"/>127 <UsageCount Value="2"/> 128 128 </Unit9> 129 129 <Unit10> … … 133 133 <TopLine Value="1314"/> 134 134 <CursorPos X="42" Y="1327"/> 135 <UsageCount Value=" 7"/>135 <UsageCount Value="6"/> 136 136 </Unit10> 137 137 <Unit11> 138 138 <Filename Value="../../PascalClassLibrary/Generics/TemplateGenerics/Generic/GenericMatrix.inc"/> 139 <EditorIndex Value="1"/> 139 140 <WindowIndex Value="0"/> 140 141 <TopLine Value="152"/> 141 <CursorPos X="1" Y="174"/> 142 <UsageCount Value="49"/> 142 <CursorPos X="28" Y="159"/> 143 <UsageCount Value="50"/> 144 <Loaded Value="True"/> 143 145 </Unit11> 144 146 <Unit12> … … 148 150 <TopLine Value="16"/> 149 151 <CursorPos X="22" Y="33"/> 150 <UsageCount Value="1 7"/>152 <UsageCount Value="16"/> 151 153 </Unit12> 152 154 <Unit13> … … 155 157 <TopLine Value="16"/> 156 158 <CursorPos X="19" Y="32"/> 157 <UsageCount Value=" 5"/>159 <UsageCount Value="4"/> 158 160 </Unit13> 159 161 <Unit14> … … 163 165 <TopLine Value="54"/> 164 166 <CursorPos X="3" Y="70"/> 165 <UsageCount Value=" 8"/>167 <UsageCount Value="7"/> 166 168 </Unit14> 167 169 <Unit15> … … 170 172 <TopLine Value="115"/> 171 173 <CursorPos X="1" Y="132"/> 172 <UsageCount Value="2 7"/>174 <UsageCount Value="26"/> 173 175 </Unit15> 174 176 <Unit16> … … 177 179 <TopLine Value="783"/> 178 180 <CursorPos X="3" Y="785"/> 179 <UsageCount Value=" 2"/>181 <UsageCount Value="1"/> 180 182 </Unit16> 181 183 <Unit17> … … 184 186 <TopLine Value="498"/> 185 187 <CursorPos X="11" Y="515"/> 186 <UsageCount Value=" 6"/>188 <UsageCount Value="5"/> 187 189 </Unit17> 188 190 <Unit18> … … 192 194 <TopLine Value="665"/> 193 195 <CursorPos X="27" Y="682"/> 194 <UsageCount Value=" 4"/>196 <UsageCount Value="3"/> 195 197 </Unit18> 196 198 <Unit19> … … 199 201 <TopLine Value="112"/> 200 202 <CursorPos X="10" Y="114"/> 201 <UsageCount Value=" 4"/>203 <UsageCount Value="3"/> 202 204 </Unit19> 203 205 <Unit20> … … 207 209 <TopLine Value="1035"/> 208 210 <CursorPos X="15" Y="1052"/> 209 <UsageCount Value=" 3"/>211 <UsageCount Value="2"/> 210 212 </Unit20> 211 213 <Unit21> … … 214 216 <TopLine Value="3003"/> 215 217 <CursorPos X="3" Y="3010"/> 216 <UsageCount Value=" 3"/>218 <UsageCount Value="2"/> 217 219 </Unit21> 218 220 <Unit22> … … 221 223 <TopLine Value="392"/> 222 224 <CursorPos X="1" Y="411"/> 223 <UsageCount Value=" 3"/>225 <UsageCount Value="2"/> 224 226 </Unit22> 225 227 <Unit23> … … 228 230 <TopLine Value="85"/> 229 231 <CursorPos X="10" Y="102"/> 230 <UsageCount Value=" 5"/>232 <UsageCount Value="4"/> 231 233 </Unit23> 232 234 <Unit24> … … 235 237 <TopLine Value="157"/> 236 238 <CursorPos X="3" Y="159"/> 237 <UsageCount Value=" 5"/>239 <UsageCount Value="4"/> 238 240 </Unit24> 239 241 <Unit25> … … 242 244 <TopLine Value="4360"/> 243 245 <CursorPos X="19" Y="4365"/> 244 <UsageCount Value="1 1"/>246 <UsageCount Value="10"/> 245 247 </Unit25> 246 248 <Unit26> … … 249 251 <TopLine Value="4226"/> 250 252 <CursorPos X="1" Y="4254"/> 251 <UsageCount Value=" 3"/>253 <UsageCount Value="2"/> 252 254 </Unit26> 253 255 <Unit27> … … 259 261 <TopLine Value="15"/> 260 262 <CursorPos X="39" Y="45"/> 261 <UsageCount Value=" 70"/>263 <UsageCount Value="69"/> 262 264 </Unit27> 263 265 <Unit28> … … 266 268 <TopLine Value="858"/> 267 269 <CursorPos X="1" Y="875"/> 268 <UsageCount Value=" 4"/>270 <UsageCount Value="3"/> 269 271 </Unit28> 270 272 <Unit29> … … 273 275 <TopLine Value="2102"/> 274 276 <CursorPos X="1" Y="2119"/> 275 <UsageCount Value=" 4"/>277 <UsageCount Value="3"/> 276 278 </Unit29> 277 279 <Unit30> … … 280 282 <TopLine Value="58"/> 281 283 <CursorPos X="14" Y="75"/> 282 <UsageCount Value="1 3"/>284 <UsageCount Value="12"/> 283 285 </Unit30> 284 286 <Unit31> … … 287 289 <TopLine Value="1"/> 288 290 <CursorPos X="34" Y="12"/> 289 <UsageCount Value=" 9"/>291 <UsageCount Value="8"/> 290 292 </Unit31> 291 293 <Unit32> … … 295 297 <TopLine Value="3131"/> 296 298 <CursorPos X="42" Y="3148"/> 297 <UsageCount Value="1 4"/>299 <UsageCount Value="13"/> 298 300 </Unit32> 299 301 <Unit33> … … 303 305 <TopLine Value="104"/> 304 306 <CursorPos X="3" Y="91"/> 305 <UsageCount Value=" 5"/>307 <UsageCount Value="4"/> 306 308 </Unit33> 307 309 <Unit34> … … 310 312 <TopLine Value="325"/> 311 313 <CursorPos X="3" Y="327"/> 312 <UsageCount Value=" 5"/>314 <UsageCount Value="4"/> 313 315 </Unit34> 314 316 <Unit35> … … 318 320 <TopLine Value="173"/> 319 321 <CursorPos X="5" Y="190"/> 320 <UsageCount Value=" 6"/>322 <UsageCount Value="5"/> 321 323 </Unit35> 322 324 <Unit36> … … 325 327 <TopLine Value="1"/> 326 328 <CursorPos X="20" Y="26"/> 327 <UsageCount Value="3 6"/>329 <UsageCount Value="35"/> 328 330 </Unit36> 329 331 <Unit37> … … 333 335 <TopLine Value="47"/> 334 336 <CursorPos X="22" Y="21"/> 335 <UsageCount Value="2 5"/>337 <UsageCount Value="24"/> 336 338 </Unit37> 337 339 <Unit38> … … 341 343 <TopLine Value="91"/> 342 344 <CursorPos X="19" Y="107"/> 343 <UsageCount Value=" 7"/>345 <UsageCount Value="6"/> 344 346 </Unit38> 345 347 <Unit39> … … 348 350 <TopLine Value="1"/> 349 351 <CursorPos X="1" Y="1"/> 350 <UsageCount Value=" 6"/>352 <UsageCount Value="5"/> 351 353 </Unit39> 352 354 <Unit40> … … 355 357 <TopLine Value="158"/> 356 358 <CursorPos X="23" Y="175"/> 357 <UsageCount Value=" 5"/>359 <UsageCount Value="4"/> 358 360 </Unit40> 359 361 <Unit41> … … 363 365 <TopLine Value="1"/> 364 366 <CursorPos X="9" Y="69"/> 365 <UsageCount Value=" 5"/>367 <UsageCount Value="4"/> 366 368 </Unit41> 367 369 <Unit42> … … 371 373 <TopLine Value="1"/> 372 374 <CursorPos X="1" Y="1"/> 373 <UsageCount Value=" 5"/>375 <UsageCount Value="4"/> 374 376 </Unit42> 375 377 <Unit43> … … 379 381 <TopLine Value="1"/> 380 382 <CursorPos X="14" Y="20"/> 381 <UsageCount Value=" 5"/>383 <UsageCount Value="4"/> 382 384 </Unit43> 383 385 <Unit44> … … 385 387 <IsPartOfProject Value="True"/> 386 388 <UnitName Value="UPlatform"/> 387 <UsageCount Value=" 76"/>389 <UsageCount Value="82"/> 388 390 </Unit44> 389 391 <Unit45> … … 393 395 <TopLine Value="929"/> 394 396 <CursorPos X="5" Y="932"/> 395 <UsageCount Value=" 10"/>397 <UsageCount Value="9"/> 396 398 </Unit45> 397 399 <Unit46> … … 401 403 <TopLine Value="1"/> 402 404 <CursorPos X="50" Y="5"/> 403 <UsageCount Value=" 9"/>405 <UsageCount Value="8"/> 404 406 </Unit46> 405 407 <Unit47> … … 409 411 <TopLine Value="1"/> 410 412 <CursorPos X="36" Y="15"/> 411 <UsageCount Value=" 5"/>413 <UsageCount Value="4"/> 412 414 </Unit47> 413 415 <Unit48> … … 416 418 <TopLine Value="330"/> 417 419 <CursorPos X="35" Y="338"/> 418 <UsageCount Value="1 4"/>420 <UsageCount Value="13"/> 419 421 </Unit48> 420 422 <Unit49> … … 424 426 <TopLine Value="58"/> 425 427 <CursorPos X="5" Y="75"/> 426 <UsageCount Value=" 6"/>428 <UsageCount Value="5"/> 427 429 </Unit49> 428 430 <Unit50> … … 433 435 <TopLine Value="120"/> 434 436 <CursorPos X="44" Y="150"/> 435 <UsageCount Value="6 1"/>437 <UsageCount Value="67"/> 436 438 </Unit50> 437 439 <Unit51> … … 440 442 <TopLine Value="147"/> 441 443 <CursorPos X="10" Y="84"/> 442 <UsageCount Value=" 9"/>444 <UsageCount Value="8"/> 443 445 </Unit51> 444 446 <Unit52> … … 448 450 <TopLine Value="520"/> 449 451 <CursorPos X="35" Y="531"/> 450 <UsageCount Value=" 8"/>452 <UsageCount Value="7"/> 451 453 </Unit52> 452 454 <Unit53> … … 457 459 <TopLine Value="69"/> 458 460 <CursorPos X="3" Y="90"/> 459 <UsageCount Value=" 54"/>461 <UsageCount Value="60"/> 460 462 </Unit53> 461 463 <Unit54> … … 466 468 <TopLine Value="29"/> 467 469 <CursorPos X="20" Y="56"/> 468 <UsageCount Value=" 54"/>470 <UsageCount Value="60"/> 469 471 </Unit54> 470 472 <Unit55> … … 472 474 <IsPartOfProject Value="True"/> 473 475 <UnitName Value="URegistry"/> 474 <UsageCount Value="5 3"/>476 <UsageCount Value="59"/> 475 477 </Unit55> 476 478 <Unit56> … … 479 481 <TopLine Value="71"/> 480 482 <CursorPos X="10" Y="84"/> 481 <UsageCount Value=" 7"/>483 <UsageCount Value="6"/> 482 484 </Unit56> 483 485 <Unit57> … … 486 488 <TopLine Value="167"/> 487 489 <CursorPos X="3" Y="169"/> 488 <UsageCount Value=" 7"/>490 <UsageCount Value="6"/> 489 491 </Unit57> 490 492 <Unit58> … … 493 495 <TopLine Value="466"/> 494 496 <CursorPos X="17" Y="470"/> 495 <UsageCount Value=" 7"/>497 <UsageCount Value="6"/> 496 498 </Unit58> 497 499 <Unit59> … … 502 504 <TopLine Value="34"/> 503 505 <CursorPos X="35" Y="51"/> 504 <UsageCount Value=" 45"/>506 <UsageCount Value="51"/> 505 507 </Unit59> 506 508 <Unit60> … … 510 512 <TopLine Value="55"/> 511 513 <CursorPos X="3" Y="72"/> 512 <UsageCount Value="2 1"/>514 <UsageCount Value="20"/> 513 515 </Unit60> 514 516 <Unit61> … … 518 520 <ResourceBaseClass Value="Form"/> 519 521 <UnitName Value="UNewGameForm"/> 520 <EditorIndex Value=" 1"/>522 <EditorIndex Value="5"/> 521 523 <WindowIndex Value="0"/> 522 524 <TopLine Value="44"/> 523 525 <CursorPos X="23" Y="65"/> 524 <UsageCount Value=" 45"/>526 <UsageCount Value="51"/> 525 527 <Loaded Value="True"/> 526 528 <LoadedDesigner Value="True"/> … … 533 535 <ResourceBaseClass Value="Form"/> 534 536 <UnitName Value="UMainForm"/> 535 <WindowIndex Value="0"/> 536 <TopLine Value="184"/> 537 <CursorPos X="76" Y="195"/> 538 <UsageCount Value="45"/> 537 <EditorIndex Value="4"/> 538 <WindowIndex Value="0"/> 539 <TopLine Value="35"/> 540 <CursorPos X="15" Y="49"/> 541 <UsageCount Value="51"/> 539 542 <Loaded Value="True"/> 540 <LoadedDesigner Value="True"/>541 543 </Unit62> 542 544 <Unit63> … … 550 552 <TopLine Value="14"/> 551 553 <CursorPos X="19" Y="32"/> 552 <UsageCount Value=" 45"/>554 <UsageCount Value="51"/> 553 555 </Unit63> 554 556 <Unit64> … … 558 560 <TopLine Value="3"/> 559 561 <CursorPos X="14" Y="20"/> 560 <UsageCount Value="2 1"/>562 <UsageCount Value="20"/> 561 563 </Unit64> 562 564 <Unit65> … … 566 568 <TopLine Value="31"/> 567 569 <CursorPos X="39" Y="33"/> 568 <UsageCount Value="2 1"/>570 <UsageCount Value="20"/> 569 571 </Unit65> 570 572 <Unit66> … … 574 576 <TopLine Value="1206"/> 575 577 <CursorPos X="3" Y="1223"/> 576 <UsageCount Value=" 8"/>578 <UsageCount Value="7"/> 577 579 </Unit66> 578 580 <Unit67> … … 581 583 <TopLine Value="1508"/> 582 584 <CursorPos X="17" Y="1512"/> 583 <UsageCount Value="1 1"/>585 <UsageCount Value="10"/> 584 586 </Unit67> 585 587 <Unit68> … … 588 590 <TopLine Value="1"/> 589 591 <CursorPos X="33" Y="15"/> 590 <UsageCount Value="1 1"/>592 <UsageCount Value="10"/> 591 593 </Unit68> 592 594 <Unit69> … … 595 597 <TopLine Value="50"/> 596 598 <CursorPos X="5" Y="67"/> 597 <UsageCount Value="1 1"/>599 <UsageCount Value="10"/> 598 600 </Unit69> 599 601 <Unit70> … … 602 604 <TopLine Value="164"/> 603 605 <CursorPos X="27" Y="167"/> 604 <UsageCount Value="1 1"/>606 <UsageCount Value="10"/> 605 607 </Unit70> 608 <Unit71> 609 <Filename Value="/usr/lib64/lazarus/lcl/graphics.pp"/> 610 <UnitName Value="Graphics"/> 611 <EditorIndex Value="2"/> 612 <WindowIndex Value="0"/> 613 <TopLine Value="230"/> 614 <CursorPos X="18" Y="244"/> 615 <UsageCount Value="13"/> 616 <Loaded Value="True"/> 617 </Unit71> 618 <Unit72> 619 <Filename Value="/usr/lib64/lazarus/lcl/graphtype.pp"/> 620 <UnitName Value="GraphType"/> 621 <EditorIndex Value="3"/> 622 <WindowIndex Value="0"/> 623 <TopLine Value="25"/> 624 <CursorPos X="3" Y="39"/> 625 <UsageCount Value="13"/> 626 <Loaded Value="True"/> 627 </Unit72> 606 628 </Units> 607 <JumpHistory Count="30" HistoryIndex="2 8">629 <JumpHistory Count="30" HistoryIndex="29"> 608 630 <Position1> 609 631 <Filename Value="UCore.pas"/> 610 <Caret Line="1 268" Column="1" TopLine="1240"/>632 <Caret Line="1142" Column="79" TopLine="1128"/> 611 633 </Position1> 612 634 <Position2> 613 635 <Filename Value="UCore.pas"/> 614 <Caret Line=" 803" Column="1" TopLine="786"/>636 <Caret Line="218" Column="39" TopLine="204"/> 615 637 </Position2> 616 638 <Position3> 617 639 <Filename Value="UCore.pas"/> 618 <Caret Line=" 805" Column="1" TopLine="786"/>640 <Caret Line="209" Column="52" TopLine="209"/> 619 641 </Position3> 620 642 <Position4> 621 643 <Filename Value="UCore.pas"/> 622 <Caret Line=" 806" Column="1" TopLine="786"/>644 <Caret Line="1134" Column="21" TopLine="1128"/> 623 645 </Position4> 624 646 <Position5> 625 647 <Filename Value="UCore.pas"/> 626 <Caret Line=" 807" Column="1" TopLine="786"/>648 <Caret Line="1143" Column="36" TopLine="57"/> 627 649 </Position5> 628 650 <Position6> 629 651 <Filename Value="UCore.pas"/> 630 <Caret Line=" 808" Column="1" TopLine="786"/>652 <Caret Line="1363" Column="31" TopLine="1352"/> 631 653 </Position6> 632 654 <Position7> 633 655 <Filename Value="UCore.pas"/> 634 <Caret Line=" 809" Column="1" TopLine="786"/>656 <Caret Line="1411" Column="14" TopLine="1399"/> 635 657 </Position7> 636 658 <Position8> 637 659 <Filename Value="UCore.pas"/> 638 <Caret Line=" 810" Column="1" TopLine="786"/>660 <Caret Line="1260" Column="5" TopLine="1238"/> 639 661 </Position8> 640 662 <Position9> 641 663 <Filename Value="UCore.pas"/> 642 <Caret Line=" 811" Column="1" TopLine="786"/>664 <Caret Line="190" Column="13" TopLine="164"/> 643 665 </Position9> 644 666 <Position10> 645 667 <Filename Value="UCore.pas"/> 646 <Caret Line=" 789" Column="1" TopLine="783"/>668 <Caret Line="1274" Column="24" TopLine="1267"/> 647 669 </Position10> 648 670 <Position11> 649 671 <Filename Value="UCore.pas"/> 650 <Caret Line=" 790" Column="1" TopLine="783"/>672 <Caret Line="1298" Column="42" TopLine="1270"/> 651 673 </Position11> 652 674 <Position12> 653 675 <Filename Value="UCore.pas"/> 654 <Caret Line=" 792" Column="1" TopLine="783"/>676 <Caret Line="1273" Column="11" TopLine="1259"/> 655 677 </Position12> 656 678 <Position13> 657 679 <Filename Value="UCore.pas"/> 658 <Caret Line=" 791" Column="1" TopLine="783"/>680 <Caret Line="676" Column="18" TopLine="658"/> 659 681 </Position13> 660 682 <Position14> 661 683 <Filename Value="UCore.pas"/> 662 <Caret Line=" 794" Column="1" TopLine="783"/>684 <Caret Line="675" Column="12" TopLine="658"/> 663 685 </Position14> 664 686 <Position15> 665 687 <Filename Value="UCore.pas"/> 666 <Caret Line=" 812" Column="1" TopLine="784"/>688 <Caret Line="682" Column="41" TopLine="669"/> 667 689 </Position15> 668 690 <Position16> 669 691 <Filename Value="UCore.pas"/> 670 <Caret Line=" 1267" Column="1" TopLine="1240"/>692 <Caret Line="681" Column="28" TopLine="667"/> 671 693 </Position16> 672 694 <Position17> 673 695 <Filename Value="UCore.pas"/> 674 <Caret Line=" 1268" Column="1" TopLine="1240"/>696 <Caret Line="675" Column="11" TopLine="667"/> 675 697 </Position17> 676 698 <Position18> 677 699 <Filename Value="UCore.pas"/> 678 <Caret Line=" 1269" Column="1" TopLine="1240"/>700 <Caret Line="682" Column="21" TopLine="681"/> 679 701 </Position18> 680 702 <Position19> 681 703 <Filename Value="UCore.pas"/> 682 <Caret Line="126 2" Column="1" TopLine="1240"/>704 <Caret Line="1268" Column="23" TopLine="1244"/> 683 705 </Position19> 684 706 <Position20> 685 707 <Filename Value="UCore.pas"/> 686 <Caret Line=" 1264" Column="1" TopLine="1240"/>708 <Caret Line="682" Column="21" TopLine="668"/> 687 709 </Position20> 688 710 <Position21> 689 711 <Filename Value="UCore.pas"/> 690 <Caret Line=" 1261" Column="42" TopLine="1241"/>712 <Caret Line="678" Column="11" TopLine="674"/> 691 713 </Position21> 692 714 <Position22> 693 715 <Filename Value="UCore.pas"/> 694 <Caret Line=" 698" Column="30" TopLine="682"/>716 <Caret Line="926" Column="42" TopLine="921"/> 695 717 </Position22> 696 718 <Position23> 697 719 <Filename Value="UCore.pas"/> 698 <Caret Line=" 1172" Column="49" TopLine="1159"/>720 <Caret Line="88" Column="17" TopLine="73"/> 699 721 </Position23> 700 722 <Position24> 701 723 <Filename Value="UCore.pas"/> 702 <Caret Line=" 1326" Column="29" TopLine="1318"/>724 <Caret Line="939" Column="53" TopLine="936"/> 703 725 </Position24> 704 726 <Position25> 705 727 <Filename Value="UCore.pas"/> 706 <Caret Line="6 9" Column="43" TopLine="51"/>728 <Caret Line="687" Column="46" TopLine="674"/> 707 729 </Position25> 708 730 <Position26> 709 731 <Filename Value="UCore.pas"/> 710 <Caret Line=" 676" Column="14" TopLine="660"/>732 <Caret Line="88" Column="17" TopLine="81"/> 711 733 </Position26> 712 734 <Position27> 713 735 <Filename Value="UCore.pas"/> 714 <Caret Line="6 79" Column="52" TopLine="664"/>736 <Caret Line="683" Column="102" TopLine="670"/> 715 737 </Position27> 716 738 <Position28> 717 739 <Filename Value="UCore.pas"/> 718 <Caret Line=" 21" Column="31" TopLine="1"/>740 <Caret Line="684" Column="37" TopLine="670"/> 719 741 </Position28> 720 742 <Position29> 721 743 <Filename Value="UCore.pas"/> 722 <Caret Line=" 679" Column="35" TopLine="663"/>744 <Caret Line="868" Column="10" TopLine="866"/> 723 745 </Position29> 724 746 <Position30> 725 747 <Filename Value="UCore.pas"/> 726 <Caret Line=" 21" Column="19" TopLine="86"/>748 <Caret Line="869" Column="9" TopLine="854"/> 727 749 </Position30> 728 750 </JumpHistory>
Note:
See TracChangeset
for help on using the changeset viewer.