equal
deleted
inserted
replaced
188 newGear:= AddGear(hwRound(X + xx * cHHRadius), hwRound(Y + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, 0); |
188 newGear:= AddGear(hwRound(X + xx * cHHRadius), hwRound(Y + yy * cHHRadius), gtPortal, 0, xx * _0_6, yy * _0_6, 0); |
189 if portal <> nil then |
189 if portal <> nil then |
190 begin |
190 begin |
191 newGear^.IntersectGear:= portal; |
191 newGear^.IntersectGear:= portal; |
192 if portal^.Tag < 2 then newGear^.Tag:= 2 |
192 if portal^.Tag < 2 then newGear^.Tag:= 2 |
193 end; |
193 end |
|
194 else newGear^.IntersectGear:= nil; |
194 newGear^.Angle:= Angle; |
195 newGear^.Angle:= Angle; |
195 newGear^.DirAngle:= Angle * 180 / cMaxAngle - 90; |
196 newGear^.DirAngle:= Angle * 180 / cMaxAngle - 90; |
196 if Gear^.DirAngle < 0 then Gear^.DirAngle:= Gear^.DirAngle + 360 |
197 if Gear^.DirAngle < 0 then Gear^.DirAngle:= Gear^.DirAngle + 360 |
197 else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360; |
198 else if 360 < Gear^.DirAngle then Gear^.DirAngle:= Gear^.DirAngle - 360; |
198 Ammo^[CurSlot, CurAmmo].Timer:= 0 |
199 Ammo^[CurSlot, CurAmmo].Timer:= 0 |