equal
deleted
inserted
replaced
551 DeleteGear(Gear); |
551 DeleteGear(Gear); |
552 exit |
552 exit |
553 end; |
553 end; |
554 if ((GameTicks and $1F) = 0) and (Random(3) = 0) then |
554 if ((GameTicks and $1F) = 0) and (Random(3) = 0) then |
555 begin |
555 begin |
556 AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust); |
556 particle:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust); |
557 if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480) |
557 if particle <> nil then particle^.dX := particle^.dX + (Gear^.dX.QWordValue / 21474836480) |
558 end |
558 end |
559 end; |
559 end; |
560 |
560 |
561 //////////////////////////////////////////////////////////////////////////////// |
561 //////////////////////////////////////////////////////////////////////////////// |