equal
deleted
inserted
replaced
245 //gear^.Tint:= $fa00efff or ((random(80)+128) shl 16) |
245 //gear^.Tint:= $fa00efff or ((random(80)+128) shl 16) |
246 //gear^.Tint:= $faa4efff |
246 //gear^.Tint:= $faa4efff |
247 //gear^.Tint:= (($e0+random(32)) shl 24) or |
247 //gear^.Tint:= (($e0+random(32)) shl 24) or |
248 // ((random(80)+128) shl 16) or |
248 // ((random(80)+128) shl 16) or |
249 // (($d5+random(32)) shl 8) or $ff |
249 // (($d5+random(32)) shl 8) or $ff |
250 c:= GetRandom(32); |
250 {c:= GetRandom(32); |
251 gear^.Tint:= (($e0+c) shl 24) or |
251 gear^.Tint:= (($e0+c) shl 24) or |
252 ((GetRandom(90)+128) shl 16) or |
252 ((GetRandom(90)+128) shl 16) or |
253 (($d5+c) shl 8) or $ff |
253 (($d5+c) shl 8) or $ff} |
254 end; |
254 end; |
255 gtShell: begin |
255 gtShell: begin |
256 gear^.Elasticity:= _0_8; |
256 gear^.Elasticity:= _0_8; |
257 gear^.Friction:= _0_8; |
257 gear^.Friction:= _0_8; |
258 gear^.Radius:= 4; |
258 gear^.Radius:= 4; |