equal
deleted
inserted
replaced
423 Readln(f, vobCount); |
423 Readln(f, vobCount); |
424 if vobCount > 0 then |
424 if vobCount > 0 then |
425 Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed); |
425 Readln(f, vobFramesCount, vobFrameTicks, vobVelocity, vobFallSpeed); |
426 |
426 |
427 for i:= 0 to Pred(vobCount) do |
427 for i:= 0 to Pred(vobCount) do |
428 AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(LAND_HEIGHT+200) - 100, vgtFlake); |
428 AddVisualGear( -cScreenWidth + random(cScreenWidth * 2 + LAND_WIDTH), random(1024+200) - 100 + LAND_HEIGHT, vgtFlake); |
429 |
429 |
430 Close(f); |
430 Close(f); |
431 {$I+} |
431 {$I+} |
432 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true) |
432 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true) |
433 end; |
433 end; |