equal
deleted
inserted
replaced
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); |