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 RShift) or (c2.g shl GShift) or (c2.b shl BShift) or AMask; |
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)))); |
552 end |
552 end |
553 else if key = 'music' then |
553 else if key = 'music' then |
554 SetMusicName(Trim(s)) |
554 SetMusicName(Trim(s)) |
555 else if key = 'clouds' then |
555 else if key = 'clouds' then |
556 begin |
556 begin |
557 cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH; |
557 cCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096; |
558 cSDCloudsNumber:= cCloudsNumber |
558 cSDCloudsNumber:= cCloudsNumber |
559 end |
559 end |
560 else if key = 'object' then |
560 else if key = 'object' then |
561 begin |
561 begin |
562 inc(ThemeObjects.Count); |
562 inc(ThemeObjects.Count); |
698 SDWaterColorArray[3]:= SDWaterColorArray[2]; |
698 SDWaterColorArray[3]:= SDWaterColorArray[2]; |
699 end |
699 end |
700 else if key = 'sd-water-opacity' then |
700 else if key = 'sd-water-opacity' then |
701 SDWaterOpacity:= StrToInt(Trim(s)) |
701 SDWaterOpacity:= StrToInt(Trim(s)) |
702 else if key = 'sd-clouds' then |
702 else if key = 'sd-clouds' then |
703 cSDCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div LAND_WIDTH |
703 cSDCloudsNumber:= Word(StrToInt(Trim(s))) * cScreenSpace div 4096 |
704 else if key = 'sd-flakes' then |
704 else if key = 'sd-flakes' then |
705 begin |
705 begin |
706 i:= Pos(',', s); |
706 i:= Pos(',', s); |
707 vobSDCount:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
707 vobSDCount:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
708 Delete(s, 1, i); |
708 Delete(s, 1, i); |