From 697ceaf7fedd1acbba6d2af7d1c3258a5b1a8a6e Mon Sep 17 00:00:00 2001 From: Ketmar Dark Date: Thu, 24 Aug 2017 02:52:12 +0300 Subject: [PATCH] particles refucktoring --- src/game/g_gfx.pas | 960 +++++++++++++++++++++++---------------------- 1 file changed, 497 insertions(+), 463 deletions(-) diff --git a/src/game/g_gfx.pas b/src/game/g_gfx.pas index c84ba47..d90fa3b 100644 --- a/src/game/g_gfx.pas +++ b/src/game/g_gfx.pas @@ -73,6 +73,7 @@ uses type PParticle = ^TParticle; + TParticle = record X, Y: Integer; VelX, VelY: Single; @@ -85,6 +86,17 @@ type offsetX, offsetY: ShortInt; // for bubbles liquidTopY: Integer; // don't float higher than this + + //k8: sorry, i have to emulate virtual methods this way, 'cause i haet `Object` + + procedure thinkerBlood (); + procedure thinkerSpark (); + procedure thinkerBubble (); + procedure thinkerWater (); + + function alive (): Boolean; inline; + procedure die (); inline; + procedure think (); inline; end; TOnceAnim = record @@ -109,6 +121,22 @@ var CurrentParticle: Integer; +// ////////////////////////////////////////////////////////////////////////// // +function TParticle.alive (): Boolean; inline; begin result := (State <> STATE_FREE); end; +procedure TParticle.die (); inline; begin State := STATE_FREE; end; + +procedure TParticle.think (); inline; +begin + case ParticleType of + PARTICLE_BLOOD: thinkerBlood(); + PARTICLE_SPARK: thinkerSpark(); + PARTICLE_BUBBLES: thinkerBubble(); + PARTICLE_WATER: thinkerWater(); + end; +end; + + +// ////////////////////////////////////////////////////////////////////////// // function isBlockedAt (x, y: Integer): Boolean; inline; begin if not gpart_dbg_phys_enabled then begin result := false; exit; end; @@ -305,7 +333,7 @@ var begin Particles := nil; SetLength(Particles, MaxParticles); - for a := 0 to High(Particles) do Particles[a].State := STATE_FREE; + for a := 0 to High(Particles) do Particles[a].die(); CurrentParticle := 0; if OnceAnims <> nil then @@ -334,6 +362,466 @@ end; } +// ////////////////////////////////////////////////////////////////////////// // +procedure TParticle.thinkerBlood (); +var + w, h: Integer; + dX, dY: SmallInt; + b: Integer; + s: ShortInt; +begin + w := gMapInfo.Width; + h := gMapInfo.Height; + + if gAdvBlood then + begin + if (State = STATE_STICK) then + { + if (not ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)) and + (not ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)) and + (not ByteBool(gCollideMap[Y, X-1] and MARK_BLOCKED)) and + (not ByteBool(gCollideMap[Y, X+1] and MARK_BLOCKED)) + then + } + if (not isBlockedAt(X, Y-1)) and + (not isBlockedAt(X, Y+1)) and + (not isBlockedAt(X-1, Y)) and + (not isBlockedAt(X+1, Y)) + then + begin // Îòëèïëà - êàïàåò + VelY := 0.5; + AccelY := 0.15; + State := STATE_NORMAL; + end + else + if Random(200) = 100 then + begin // Ïðèëåïëåíà - íî âîçìîæíî ñòåêàåò + VelY := 0.5; + AccelY := 0.15; + exit; + end; + + if not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)} then + begin + if isLiftUpAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTUP)} then + begin // Ëèôò ââåðõ + if VelY > -4-Random(3) then + VelY := VelY - 0.8; + if Abs(VelX) > 0.1 then + VelX := VelX - VelX/10.0; + VelX := VelX + (Random-Random)*0.2; + AccelY := 0.15; + end; + if isLiftLeftAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTLEFT)} then + begin // Ïîòîê âëåâî + if VelX > -8-Random(3) then + VelX := VelX - 0.8; + AccelY := 0.15; + end; + if isLiftRightAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTRIGHT)} then + begin // Ïîòîê âïðàâî + if VelX < 8+Random(3) then + VelX := VelX + 0.8; + AccelY := 0.15; + end; + end; + + dX := Round(VelX); + dY := Round(VelY); + + if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) then + if (State <> STATE_STICK) and + (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then + begin // Âèñèò â âîçäóõå - êàïàåò + VelY := 0.8; + AccelY := 0.5; + State := STATE_NORMAL; + end; + + if dX <> 0 then + begin + if dX > 0 then + s := 1 + else + s := -1; + + dX := Abs(dX); + + for b := 1 to dX do + begin + if (X+s >= w) or (X+s <= 0) then begin die(); break; end; + + //c := gCollideMap[Y, X+s]; + + if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü + VelX := 0; + VelY := 0; + AccelX := 0; + AccelY := 0; + State := STATE_STICK; + Break; + end; + + X := X+s; + end; + end; + + if dY <> 0 then + begin + if dY > 0 then + s := 1 + else + s := -1; + + dY := Abs(dY); + + for b := 1 to dY do + begin + if (Y+s >= h) or (Y+s <= 0) then begin die(); break; end; + + //c := gCollideMap[Y+s, X]; + + if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü + VelX := 0; + VelY := 0; + AccelX := 0; + AccelY := 0; + if (s > 0) and (State <> STATE_STICK) then + State := STATE_NORMAL + else + State := STATE_STICK; + Break; + end; + + Y := Y+s; + end; + end; + end // if gAdvBlood + else + begin + dX := Round(VelX); + dY := Round(VelY); + + if (X+dX >= w) or (Y+dY >= h) or + (X+dX <= 0) or (Y+dY <= 0) or + isBlockedAt(X+dX, Y+dY) {ByteBool(gCollideMap[Y+dY, X+dX] and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü/ãðàíèöà + die(); + VelX := 0; + VelY := 0; + end + else + begin + Y := Y + dY; + X := X + dX; + end; + end; + + VelX := VelX + AccelX; + VelY := VelY + AccelY; + +// Êðîâü ðàñòâîðÿåòñÿ â æèäêîñòè: + if isLiquidAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIQUID)} then + begin + Inc(Time); + + Alpha := 255 - Trunc((255.0 * Time) / LiveTime); + end; +end; + + +// ////////////////////////////////////////////////////////////////////////// // +procedure TParticle.thinkerSpark (); +var + w, h: Integer; + dX, dY: SmallInt; + b: Integer; + s: ShortInt; +begin + w := gMapInfo.Width; + h := gMapInfo.Height; + + dX := Round(VelX); + dY := Round(VelY); + + if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) and + (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then + begin // Âèñèò â âîçäóõå + VelY := 0.8; + AccelY := 0.5; + end; + + if dX <> 0 then + begin + if dX > 0 then + s := 1 + else + s := -1; + + dX := Abs(dX); + + for b := 1 to dX do + begin + if (X+s >= w) or (X+s <= 0) then begin die(); break; end; + + //c := gCollideMap[Y, X+s]; + + if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü - ïàäàåò âåðòèêàëüíî + VelX := 0; + AccelX := 0; + Break; + end + else // Ïóñòî: + if not isAnythingAt(X+s, Y) {c = MARK_FREE} then + X := X + s + else // Îñòàëüíîå: + begin + die(); + break; + end; + end; + end; + + if dY <> 0 then + begin + if dY > 0 then + s := 1 + else + s := -1; + + dY := Abs(dY); + + for b := 1 to dY do + begin + if (Y+s >= h) or (Y+s <= 0) then begin die(); break; end; + + //c := gCollideMap[Y+s, X]; + + if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü - ïàäàåò âåðòèêàëüíî + if s < 0 then + begin + VelY := -VelY; + AccelY := Abs(AccelY); + end + else // Èëè íå ïàäàåò + begin + VelX := 0; + AccelX := 0; + VelY := 0; + AccelY := 0.8; + end; + + Break; + end + else // Ïóñòî: + if not isAnythingAt(X, Y+s) {c = MARK_FREE} then + Y := Y + s + else // Îñàëüíîå: + begin + die(); + break; + end; + end; + end; + + if VelX <> 0.0 then + VelX := VelX + AccelX; + if VelY <> 0.0 then + begin + if AccelY < 10 then + AccelY := AccelY + 0.08; + VelY := VelY + AccelY; + end; + + Time := Time + 1; +end; + + +// ////////////////////////////////////////////////////////////////////////// // +procedure TParticle.thinkerBubble (); +var + h: Integer; + dY: SmallInt; + b: Integer; + s: ShortInt; +begin + h := gMapInfo.Height; + + dY := Round(VelY); + + if dY <> 0 then + begin + if dY > 0 then + s := 1 + else + s := -1; + + for b := 1 to Abs(dY) do + begin + if (Y+s >= h) or (Y+s <= 0) then begin die(); break; end; + + (* + if not isLiquidAt(X, Y+s) {ByteBool(gCollideMap[Y+s, X] and MARK_LIQUID)} then + begin // Óæå íå æèäêîñòü + State := STATE_FREE; + Break; + end; + *) + // we traced liquid before, so don't bother checking + if (Y+s <= liquidTopY) then begin die(); break; end; + + Y := Y+s; + end; + end; + + if VelY > -4 then + VelY := VelY + AccelY; + + Time := Time + 1; +end; + + +// ////////////////////////////////////////////////////////////////////////// // +procedure TParticle.thinkerWater (); +var + w, h: Integer; + dX, dY: SmallInt; + b: Integer; + s: ShortInt; +begin + w := gMapInfo.Width; + h := gMapInfo.Height; + + if (State = STATE_STICK) and (Random(30) = 15) then + begin // Ñòåêàåò/îòëèïàåò + VelY := 0.5; + AccelY := 0.15; + if (not isBlockedAt(X-1, Y) {ByteBool(gCollideMap[Y, X-1] and MARK_BLOCKED)}) and + (not isBlockedAt(X+1, Y) {ByteBool(gCollideMap[Y, X+1] and MARK_BLOCKED)}) then + State := STATE_NORMAL; + exit; + end; + + if not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)} then + begin + if isLiftUpAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTUP)} then + begin // Ëèôò ââåðõ + if VelY > -4-Random(3) then + VelY := VelY - 0.8; + if Abs(VelX) > 0.1 then + VelX := VelX - VelX/10.0; + VelX := VelX + (Random-Random)*0.2; + AccelY := 0.15; + end; + if isLiftLeftAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTLEFT)} then + begin // Ïîòîê âëåâî + if VelX > -8-Random(3) then + VelX := VelX - 0.8; + AccelY := 0.15; + end; + if isLiftRightAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTRIGHT)} then + begin // Ïîòîê âïðàâî + if VelX < 8+Random(3) then + VelX := VelX + 0.8; + AccelY := 0.15; + end; + end; + + dX := Round(VelX); + dY := Round(VelY); + + if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) then + if (State <> STATE_STICK) and + (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and + (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then + begin // Âèñèò â âîçäóõå - êàïàåò + VelY := 0.8; + AccelY := 0.5; + State := STATE_NORMAL; + end; + + if dX <> 0 then + begin + if dX > 0 then + s := 1 + else + s := -1; + + for b := 1 to Abs(dX) do + begin + // Ñáîêó ãðàíèöà? + if (X+s >= w) or (X+s <= 0) then begin die(); break;end; + + //c := gCollideMap[Y, X+s]; + + // Ñáîêó æèäêîñòü, à ÷àñòèöà óæå ïàäàåò? + if isLiquidAt(X+s, Y) {ByteBool(c and MARK_LIQUID)} and (dY > 0) then begin die(); break; end; + + if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü + VelX := 0; + VelY := 0; + AccelX := 0; + AccelY := 0; + State := STATE_STICK; + Break; + end; + + X := X+s; + end; + end; + + if dY <> 0 then + begin + if dY > 0 then + s := 1 + else + s := -1; + + for b := 1 to Abs(dY) do + begin + // Ñíèçó/ñâåðõó ãðàíèöà + if (Y+s >= h) or (Y+s <= 0) then begin die(); break; end; + + //c := gCollideMap[Y+s, X]; + + // Ñíèçó æèäêîñòü, à ÷àñòèöà óæå ïàäàåò + if isLiquidAt(X, Y+s) {ByteBool(c and MARK_LIQUID)} and (dY > 0) then begin die(); break; end; + + if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then + begin // Ñòåíà/äâåðü + VelX := 0; + VelY := 0; + AccelX := 0; + AccelY := 0; + if (s > 0) and (State <> STATE_STICK) then + State := STATE_NORMAL + else + State := STATE_STICK; + Break; + end; + + Y := Y+s; + end; + end; + + VelX := VelX + AccelX; + VelY := VelY + AccelY; + + Time := Time + 1; +end; + + +// ////////////////////////////////////////////////////////////////////////// // procedure g_GFX_SparkVel (fX, fY: Integer; Count: Word; VX, VY: Integer; DevX, DevY: Byte); var a: Integer; @@ -788,7 +1276,7 @@ begin if (Count < 1) then Count := 1; SetLength(Particles, Count); - for a := 0 to High(Particles) do Particles[a].State := STATE_FREE; + for a := 0 to High(Particles) do Particles[a].die(); MaxParticles := Count; //if CurrentParticle >= Count then CurrentParticle := 0; @@ -844,10 +1332,7 @@ procedure g_GFX_Update(); var a: Integer; w, h: Integer; - dX, dY: SmallInt; - b, len: Integer; - s: ShortInt; - //c: Byte; + len: Integer; begin if not gpart_dbg_enabled then exit; if Particles <> nil then @@ -859,465 +1344,15 @@ begin for a := 0 to len do begin - if Particles[a].State <> STATE_FREE then + if Particles[a].alive then begin with Particles[a] do begin - if Time = LiveTime then State := STATE_FREE; - if (X+1 >= w) or (Y+1 >= h) or (X <= 0) or (Y <= 0) then State := STATE_FREE; - if State = STATE_FREE then Continue; + if (Time = LiveTime) then begin die(); continue; end; + if (X+1 >= w) or (Y+1 >= h) or (X <= 0) or (Y <= 0) then begin die(); end; + //if not alive then Continue; //e_WriteLog(Format('particle #%d: %d', [State, ParticleType]), MSG_NOTIFY); - - case ParticleType of - PARTICLE_BLOOD: - begin - if gAdvBlood then - begin - if (State = STATE_STICK) then - { - if (not ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)) and - (not ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)) and - (not ByteBool(gCollideMap[Y, X-1] and MARK_BLOCKED)) and - (not ByteBool(gCollideMap[Y, X+1] and MARK_BLOCKED)) - then - } - if (not isBlockedAt(X, Y-1)) and - (not isBlockedAt(X, Y+1)) and - (not isBlockedAt(X-1, Y)) and - (not isBlockedAt(X+1, Y)) - then - begin // Îòëèïëà - êàïàåò - VelY := 0.5; - AccelY := 0.15; - State := STATE_NORMAL; - end - else - if Random(200) = 100 then - begin // Ïðèëåïëåíà - íî âîçìîæíî ñòåêàåò - VelY := 0.5; - AccelY := 0.15; - Continue; - end; - - if not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)} then - begin - if isLiftUpAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTUP)} then - begin // Ëèôò ââåðõ - if VelY > -4-Random(3) then - VelY := VelY - 0.8; - if Abs(VelX) > 0.1 then - VelX := VelX - VelX/10.0; - VelX := VelX + (Random-Random)*0.2; - AccelY := 0.15; - end; - if isLiftLeftAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTLEFT)} then - begin // Ïîòîê âëåâî - if VelX > -8-Random(3) then - VelX := VelX - 0.8; - AccelY := 0.15; - end; - if isLiftRightAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTRIGHT)} then - begin // Ïîòîê âïðàâî - if VelX < 8+Random(3) then - VelX := VelX + 0.8; - AccelY := 0.15; - end; - end; - - dX := Round(VelX); - dY := Round(VelY); - - if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) then - if (State <> STATE_STICK) and - (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then - begin // Âèñèò â âîçäóõå - êàïàåò - VelY := 0.8; - AccelY := 0.5; - State := STATE_NORMAL; - end; - - if dX <> 0 then - begin - if dX > 0 then - s := 1 - else - s := -1; - - dX := Abs(dX); - - for b := 1 to dX do - begin - if (X+s >= w) or (X+s <= 0) then - begin - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y, X+s]; - - if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - VelX := 0; - VelY := 0; - AccelX := 0; - AccelY := 0; - State := STATE_STICK; - Break; - end; - - X := X+s; - end; - end; - - if dY <> 0 then - begin - if dY > 0 then - s := 1 - else - s := -1; - - dY := Abs(dY); - - for b := 1 to dY do - begin - if (Y+s >= h) or (Y+s <= 0) then - begin - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y+s, X]; - - if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - VelX := 0; - VelY := 0; - AccelX := 0; - AccelY := 0; - if (s > 0) and (State <> STATE_STICK) then - State := STATE_NORMAL - else - State := STATE_STICK; - Break; - end; - - Y := Y+s; - end; - end; - end // if gAdvBlood - else - begin - dX := Round(VelX); - dY := Round(VelY); - - if (X+dX >= w) or (Y+dY >= h) or - (X+dX <= 0) or (Y+dY <= 0) or - isBlockedAt(X+dX, Y+dY) {ByteBool(gCollideMap[Y+dY, X+dX] and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü/ãðàíèöà - State := STATE_FREE; - VelX := 0; - VelY := 0; - end - else - begin - Y := Y + dY; - X := X + dX; - end; - end; - - VelX := VelX + AccelX; - VelY := VelY + AccelY; - - // Êðîâü ðàñòâîðÿåòñÿ â æèäêîñòè: - if isLiquidAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIQUID)} then - begin - Inc(Time); - - Alpha := 255 - Trunc((255.0 * Time) / LiveTime); - end; - end; - - PARTICLE_SPARK: - begin - dX := Round(VelX); - dY := Round(VelY); - - if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) and - (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then - begin // Âèñèò â âîçäóõå - VelY := 0.8; - AccelY := 0.5; - end; - - if dX <> 0 then - begin - if dX > 0 then - s := 1 - else - s := -1; - - dX := Abs(dX); - - for b := 1 to dX do - begin - if (X+s >= w) or (X+s <= 0) then - begin - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y, X+s]; - - if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - ïàäàåò âåðòèêàëüíî - VelX := 0; - AccelX := 0; - Break; - end - else // Ïóñòî: - if not isAnythingAt(X+s, Y) {c = MARK_FREE} then - X := X + s - else // Îñòàëüíîå: - begin - State := STATE_FREE; - Break; - end; - end; - end; - - if dY <> 0 then - begin - if dY > 0 then - s := 1 - else - s := -1; - - dY := Abs(dY); - - for b := 1 to dY do - begin - if (Y+s >= h) or (Y+s <= 0) then - begin - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y+s, X]; - - if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - ïàäàåò âåðòèêàëüíî - if s < 0 then - begin - VelY := -VelY; - AccelY := Abs(AccelY); - end - else // Èëè íå ïàäàåò - begin - VelX := 0; - AccelX := 0; - VelY := 0; - AccelY := 0.8; - end; - - Break; - end - else // Ïóñòî: - if not isAnythingAt(X, Y+s) {c = MARK_FREE} then - Y := Y + s - else // Îñàëüíîå: - begin - State := STATE_FREE; - Break; - end; - end; - end; - - if VelX <> 0.0 then - VelX := VelX + AccelX; - if VelY <> 0.0 then - begin - if AccelY < 10 then - AccelY := AccelY + 0.08; - VelY := VelY + AccelY; - end; - - Time := Time + 1; - end; - - PARTICLE_WATER: - begin - if (State = STATE_STICK) and (Random(30) = 15) then - begin // Ñòåêàåò/îòëèïàåò - VelY := 0.5; - AccelY := 0.15; - if (not isBlockedAt(X-1, Y) {ByteBool(gCollideMap[Y, X-1] and MARK_BLOCKED)}) and - (not isBlockedAt(X+1, Y) {ByteBool(gCollideMap[Y, X+1] and MARK_BLOCKED)}) then - State := STATE_NORMAL; - Continue; - end; - - if not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)} then - begin - if isLiftUpAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTUP)} then - begin // Ëèôò ââåðõ - if VelY > -4-Random(3) then - VelY := VelY - 0.8; - if Abs(VelX) > 0.1 then - VelX := VelX - VelX/10.0; - VelX := VelX + (Random-Random)*0.2; - AccelY := 0.15; - end; - if isLiftLeftAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTLEFT)} then - begin // Ïîòîê âëåâî - if VelX > -8-Random(3) then - VelX := VelX - 0.8; - AccelY := 0.15; - end; - if isLiftRightAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_LIFTRIGHT)} then - begin // Ïîòîê âïðàâî - if VelX < 8+Random(3) then - VelX := VelX + 0.8; - AccelY := 0.15; - end; - end; - - dX := Round(VelX); - dY := Round(VelY); - - if (Abs(VelX) < 0.1) and (Abs(VelY) < 0.1) then - if (State <> STATE_STICK) and - (not isBlockedAt(X, Y-1) {ByteBool(gCollideMap[Y-1, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y) {ByteBool(gCollideMap[Y, X] and MARK_BLOCKED)}) and - (not isBlockedAt(X, Y+1) {ByteBool(gCollideMap[Y+1, X] and MARK_BLOCKED)}) then - begin // Âèñèò â âîçäóõå - êàïàåò - VelY := 0.8; - AccelY := 0.5; - State := STATE_NORMAL; - end; - - if dX <> 0 then - begin - if dX > 0 then - s := 1 - else - s := -1; - - for b := 1 to Abs(dX) do - begin - if (X+s >= w) or (X+s <= 0) then - begin // Ñáîêó ãðàíèöà - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y, X+s]; - - if isLiquidAt(X+s, Y) {ByteBool(c and MARK_LIQUID)} and (dY > 0) then - begin // Ñáîêó æèäêîñòü, à ÷àñòèöà óæå ïàäàåò - State := STATE_FREE; - Break; - end; - - if isBlockedAt(X+s, Y) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - VelX := 0; - VelY := 0; - AccelX := 0; - AccelY := 0; - State := STATE_STICK; - Break; - end; - - X := X+s; - end; - end; - - if dY <> 0 then - begin - if dY > 0 then - s := 1 - else - s := -1; - - for b := 1 to Abs(dY) do - begin - if (Y+s >= h) or (Y+s <= 0) then - begin // Ñíèçó/ñâåðõó ãðàíèöà - State := STATE_FREE; - Break; - end; - - //c := gCollideMap[Y+s, X]; - - if isLiquidAt(X, Y+s) {ByteBool(c and MARK_LIQUID)} and (dY > 0) then - begin // Ñíèçó æèäêîñòü, à ÷àñòèöà óæå ïàäàåò - State := STATE_FREE; - Break; - end; - - if isBlockedAt(X, Y+s) {ByteBool(c and MARK_BLOCKED)} then - begin // Ñòåíà/äâåðü - VelX := 0; - VelY := 0; - AccelX := 0; - AccelY := 0; - if (s > 0) and (State <> STATE_STICK) then - State := STATE_NORMAL - else - State := STATE_STICK; - Break; - end; - - Y := Y+s; - end; - end; - - VelX := VelX + AccelX; - VelY := VelY + AccelY; - - Time := Time + 1; - end; - - PARTICLE_BUBBLES: - begin - dY := Round(VelY); - - if dY <> 0 then - begin - if dY > 0 then - s := 1 - else - s := -1; - - for b := 1 to Abs(dY) do - begin - if (Y+s >= h) or (Y+s <= 0) then - begin - State := STATE_FREE; - Break; - end; - - if not isLiquidAt(X, Y+s) {ByteBool(gCollideMap[Y+s, X] and MARK_LIQUID)} then - begin // Óæå íå æèäêîñòü - State := STATE_FREE; - Break; - end; - - Y := Y+s; - end; - end; - - if VelY > -4 then - VelY := VelY + AccelY; - - Time := Time + 1; - end; - end; // case - + think(); {CorrectOffsets(a);} end; // with end; // if @@ -1368,8 +1403,7 @@ begin for a := 0 to len do with Particles[a] do - if (State <> STATE_FREE) and (X >= sX) and (Y >= sY) and - (X <= sX+sWidth) and (sY <= sY+sHeight) then + if alive and (X >= sX) and (Y >= sY) and (X <= sX+sWidth) and (sY <= sY+sHeight) then begin glColor4ub(Red, Green, Blue, Alpha); glVertex2i(X + offsetX, Y + offsetY); -- 2.29.2