equal
deleted
inserted
replaced
135 //HHGear^.dX:= HHGear^.dX / 16; |
135 //HHGear^.dX:= HHGear^.dX / 16; |
136 HHGear^.dX.QWordValue:= 0; |
136 HHGear^.dX.QWordValue:= 0; |
137 HHGear^.dY:= HHGear^.dY * 2 |
137 HHGear^.dY:= HHGear^.dY * 2 |
138 end; |
138 end; |
139 if Gear^.Message and gmRight <> 0 then |
139 if Gear^.Message and gmRight <> 0 then |
140 HHGear^.dX.isNegative:= true |
140 HHGear^.dY.isNegative:= true |
141 else if Gear^.Message and gmLeft <> 0 then |
141 else if Gear^.Message and gmLeft <> 0 then |
142 HHGear^.dX.isNegative:= false |
142 HHGear^.dY.isNegative:= false |
143 end |
143 end |
144 else if TestCollisionXwithGear(HHGear, -1) and not TestCollisionXwithGear(HHGear, 1) then |
144 else if TestCollisionXwithGear(HHGear, -1) and not TestCollisionXwithGear(HHGear, 1) then |
145 begin |
145 begin |
146 i:= 1; |
146 i:= 1; |
147 repeat |
147 repeat |
156 //HHGear^.dX:= HHGear^.dX / 16; |
156 //HHGear^.dX:= HHGear^.dX / 16; |
157 HHGear^.dX.QWordValue:= 0; |
157 HHGear^.dX.QWordValue:= 0; |
158 HHGear^.dY:= HHGear^.dY * 2 |
158 HHGear^.dY:= HHGear^.dY * 2 |
159 end; |
159 end; |
160 if Gear^.Message and gmRight <> 0 then |
160 if Gear^.Message and gmRight <> 0 then |
161 HHGear^.dX.isNegative:= false |
161 HHGear^.dY.isNegative:= false |
162 else if Gear^.Message and gmLeft <> 0 then |
162 else if Gear^.Message and gmLeft <> 0 then |
163 HHGear^.dX.isNegative:= true |
163 HHGear^.dY.isNegative:= true |
164 end |
164 end |
165 end; |
165 end; |
166 |
166 |
167 procedure RopeDeleteMe(Gear, HHGear: PGear); |
167 procedure RopeDeleteMe(Gear, HHGear: PGear); |
168 begin |
168 begin |