equal
deleted
inserted
replaced
290 y:= 5000; |
290 y:= 5000; |
291 x:= 5000; |
291 x:= 5000; |
292 end |
292 end |
293 end; |
293 end; |
294 inc(y, 3); |
294 inc(y, 3); |
295 until y > LAND_HEIGHT - 1 - Height; |
295 until y > int64(LAND_HEIGHT) - 1 - Height; |
296 inc(x, getrandom(6) + 3) |
296 inc(x, getrandom(6) + 3) |
297 until x > LAND_WIDTH - 1 - Width; |
297 until x > int64(LAND_WIDTH) - 1 - Width; |
298 bRes:= cnt <> 0; |
298 bRes:= cnt <> 0; |
299 if bRes then |
299 if bRes then |
300 begin |
300 begin |
301 i:= getrandom(cnt); |
301 i:= getrandom(cnt); |
302 BlitImageAndGenerateCollisionInfo(ar[i].x, ar[i].y, 0, Obj.Surf); |
302 BlitImageAndGenerateCollisionInfo(ar[i].x, ar[i].y, 0, Obj.Surf); |
339 y:= 5000; |
339 y:= 5000; |
340 x:= 5000; |
340 x:= 5000; |
341 end |
341 end |
342 end; |
342 end; |
343 inc(y, 12); |
343 inc(y, 12); |
344 until y > LAND_HEIGHT - 1 - Height - 8; |
344 until y > int64(LAND_HEIGHT) - 1 - Height - 8; |
345 inc(x, getrandom(12) + 12) |
345 inc(x, getrandom(12) + 12) |
346 until x > LAND_WIDTH - 1 - Width; |
346 until x > int64(LAND_WIDTH) - 1 - Width; |
347 bRes:= cnt <> 0; |
347 bRes:= cnt <> 0; |
348 if bRes then |
348 if bRes then |
349 begin |
349 begin |
350 i:= getrandom(cnt); |
350 i:= getrandom(cnt); |
351 r.x:= ar[i].X; |
351 r.x:= ar[i].X; |
453 Readln(f, vobCount); |
453 Readln(f, vobCount); |
454 if vobCount > 0 then |
454 if vobCount > 0 then |
455 Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed); |
455 Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed); |
456 |
456 |
457 // adjust amount of flakes scaled by screen space |
457 // adjust amount of flakes scaled by screen space |
458 vobCount:= vobCount * cScreenSpace div LAND_WIDTH; |
458 vobCount:= longint(vobCount) * cScreenSpace div LAND_WIDTH; |
459 |
459 |
460 if (cReducedQuality and rqKillFlakes) <> 0 then |
460 if (cReducedQuality and rqKillFlakes) <> 0 then |
461 vobCount:= 0; |
461 vobCount:= 0; |
462 |
462 |
463 |
463 |