equal
deleted
inserted
replaced
499 t:= 255; |
499 t:= 255; |
500 c2.r:= t; |
500 c2.r:= t; |
501 c2.g:= t; |
501 c2.g:= t; |
502 c2.b:= t |
502 c2.b:= t |
503 end; |
503 end; |
504 ExplosionBorderColor:= c2.value or AMask; |
504 ExplosionBorderColor:= c2.r shl 24 or c2.g shl 16 or c2.b shl 8 or $FF; |
505 end |
505 end |
506 else if key = 'water-top' then |
506 else if key = 'water-top' then |
507 begin |
507 begin |
508 i:= Pos(',', s); |
508 i:= Pos(',', s); |
509 WaterColorArray[0].r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
509 WaterColorArray[0].r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |