equal
deleted
inserted
replaced
447 WaterColorArray[2].a := 255; |
447 WaterColorArray[2].a := 255; |
448 WaterColorArray[3]:= WaterColorArray[2]; |
448 WaterColorArray[3]:= WaterColorArray[2]; |
449 end |
449 end |
450 else if key = 'water-opacity' then cWaterOpacity:= StrToInt(Trim(s)) |
450 else if key = 'water-opacity' then cWaterOpacity:= StrToInt(Trim(s)) |
451 else if key = 'music' then MusicFN:= Trim(s) |
451 else if key = 'music' then MusicFN:= Trim(s) |
452 else if key = 'clouds' then cCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH |
452 else if key = 'clouds' then |
|
453 begin |
|
454 cCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH; |
|
455 cSDCloudsNumber:= cCloudsNumber |
|
456 end |
453 else if key = 'object' then |
457 else if key = 'object' then |
454 begin |
458 begin |
455 inc(ThemeObjects.Count); |
459 inc(ThemeObjects.Count); |
456 with ThemeObjects.objs[Pred(ThemeObjects.Count)] do |
460 with ThemeObjects.objs[Pred(ThemeObjects.Count)] do |
457 begin |
461 begin |
560 Delete(s, 1, i); |
564 Delete(s, 1, i); |
561 SDWaterColorArray[2].b:= StrToInt(Trim(s)); |
565 SDWaterColorArray[2].b:= StrToInt(Trim(s)); |
562 SDWaterColorArray[2].a := 255; |
566 SDWaterColorArray[2].a := 255; |
563 SDWaterColorArray[3]:= SDWaterColorArray[2]; |
567 SDWaterColorArray[3]:= SDWaterColorArray[2]; |
564 end |
568 end |
565 else if key = 'sd-water-opacity' then continue //cSDWaterOpacity:= StrToInt(Trim(s)) |
569 else if key = 'sd-water-opacity' then cSDWaterOpacity:= StrToInt(Trim(s)) |
566 else if key = 'sd-clouds' then continue //cSDCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH |
570 else if key = 'sd-clouds' then cSDCloudsNumber:= StrToInt(Trim(s)) * cScreenSpace div LAND_WIDTH |
567 else if key = 'sd-flakes' then continue //TODO: make :P |
571 else if key = 'sd-flakes' then continue //TODO: make :P |
568 end; |
572 end; |
569 |
573 |
570 // adjust amount of flakes scaled by screen space |
574 // adjust amount of flakes scaled by screen space |
571 vobCount:= longint(vobCount); |
575 vobCount:= longint(vobCount); |