equal
deleted
inserted
replaced
3003 end; |
3003 end; |
3004 |
3004 |
3005 if (Gear^.Pos = 14) and (RealTicks and $3 = 0) then |
3005 if (Gear^.Pos = 14) and (RealTicks and $3 = 0) then |
3006 begin |
3006 begin |
3007 heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot); |
3007 heart:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtStraightShot); |
3008 if heart <> nil then heart^.State:= ord(sprSeduction); |
3008 if heart <> nil then |
|
3009 with heart^ do |
|
3010 begin |
|
3011 dx:= 0.001 * (random(200)); |
|
3012 dy:= 0.001 * (random(200)); |
|
3013 if random(2) = 0 then dx := -dx; |
|
3014 if random(2) = 0 then dy := -dy; |
|
3015 FrameTicks:= random(750) + 1000; |
|
3016 heart^.State:= ord(sprSeduction) |
|
3017 end; |
3009 end; |
3018 end; |
3010 |
3019 |
3011 if Gear^.Pos = 15 then |
3020 if Gear^.Pos = 15 then |
3012 Gear^.doStep := @doStepSeductionWork |
3021 Gear^.doStep := @doStepSeductionWork |
3013 end; |
3022 end; |