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^.Sprite:= sprSeduction; |
3008 if heart <> nil then heart^.State:= ord(sprSeduction); |
3009 end; |
3009 end; |
3010 |
3010 |
3011 if Gear^.Pos = 15 then |
3011 if Gear^.Pos = 15 then |
3012 Gear^.doStep := @doStepSeductionWork |
3012 Gear^.doStep := @doStepSeductionWork |
3013 end; |
3013 end; |