equal
deleted
inserted
replaced
328 {c:= GetRandom(32); |
328 {c:= GetRandom(32); |
329 gear^.Tint:= (($e0+c) shl 24) or |
329 gear^.Tint:= (($e0+c) shl 24) or |
330 ((GetRandom(90)+128) shl 16) or |
330 ((GetRandom(90)+128) shl 16) or |
331 (($d5+c) shl 8) or $ff} |
331 (($d5+c) shl 8) or $ff} |
332 end; |
332 end; |
333 gtParachute: gear^.Z:= cCurrHHZ; |
333 gtParachute: begin |
|
334 gear^.Tag:= 1; // hog face dir. 1 = right, -1 = left |
|
335 gear^.Z:= cCurrHHZ; |
|
336 end; |
334 gtShell: begin |
337 gtShell: begin |
335 gear^.Elasticity:= _0_8; |
338 gear^.Elasticity:= _0_8; |
336 gear^.Friction:= _0_8; |
339 gear^.Friction:= _0_8; |
337 gear^.Radius:= 4; |
340 gear^.Radius:= 4; |
338 gear^.Density:= _1; |
341 gear^.Density:= _1; |