equal
deleted
inserted
replaced
56 |
56 |
57 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
57 function AddGear(X, Y: LongInt; Kind: TGearType; State: Longword; dX, dY: hwFloat; Timer: LongWord): PGear; |
58 procedure ProcessGears; |
58 procedure ProcessGears; |
59 procedure SetAllToActive; |
59 procedure SetAllToActive; |
60 procedure SetAllHHToActive; |
60 procedure SetAllHHToActive; |
61 procedure DrawGears(Surface: PSDL_Surface); |
61 procedure DrawGears; |
62 procedure FreeGearsList; |
62 procedure FreeGearsList; |
63 procedure AddMiscGears; |
63 procedure AddMiscGears; |
64 procedure AssignHHCoords; |
64 procedure AssignHHCoords; |
65 procedure InsertGearToList(Gear: PGear); |
65 procedure InsertGearToList(Gear: PGear); |
66 procedure RemoveGearFromList(Gear: PGear); |
66 procedure RemoveGearFromList(Gear: PGear); |
692 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0, |
692 Cos(Gear^.Angle*pi/cMaxAngle)*60) + WorldDy, 0, |
693 hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle) |
693 hwSign(Gear^.dX) * (Gear^.Angle * 180.0) / cMaxAngle) |
694 end; |
694 end; |
695 end; |
695 end; |
696 |
696 |
697 procedure DrawGears(Surface: PSDL_Surface); |
697 procedure DrawGears; |
698 var Gear, HHGear: PGear; |
698 var Gear, HHGear: PGear; |
699 i: Longword; |
699 i: Longword; |
700 roplen: LongInt; |
700 roplen: LongInt; |
701 |
701 |
702 procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt); |
702 procedure DrawRopeLine(X1, Y1, X2, Y2: LongInt); |