equal
deleted
inserted
replaced
409 i:= Pos(',', s); |
409 i:= Pos(',', s); |
410 c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
410 c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
411 Delete(s, 1, i); |
411 Delete(s, 1, i); |
412 c1.b:= StrToInt(Trim(s)); |
412 c1.b:= StrToInt(Trim(s)); |
413 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); |
413 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); |
|
414 SDSkyColor.r:= byte(c1.r * SDTint div 255); |
|
415 SDSkyColor.g:= byte(c1.g * SDTint div 255); |
|
416 SDSkyColor.b:= byte(c1.b * SDTint div 255); |
414 end |
417 end |
415 else if key = 'border' then |
418 else if key = 'border' then |
416 begin |
419 begin |
417 i:= Pos(',', s); |
420 i:= Pos(',', s); |
418 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
421 c2.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
591 Delete(s, 1, i); |
594 Delete(s, 1, i); |
592 vobSDFallSpeed:= StrToInt(Trim(s)); |
595 vobSDFallSpeed:= StrToInt(Trim(s)); |
593 vobSDCount:= vobSDCount * cScreenSpace div LAND_WIDTH; |
596 vobSDCount:= vobSDCount * cScreenSpace div LAND_WIDTH; |
594 end; |
597 end; |
595 end |
598 end |
|
599 else if key = 'rq-sky' then |
|
600 begin |
|
601 if ((cReducedQuality and rqNoBackground) <> 0) then |
|
602 begin |
|
603 i:= Pos(',', s); |
|
604 c1.r:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
|
605 Delete(s, 1, i); |
|
606 i:= Pos(',', s); |
|
607 c1.g:= StrToInt(Trim(Copy(s, 1, Pred(i)))); |
|
608 Delete(s, 1, i); |
|
609 c1.b:= StrToInt(Trim(s)); |
|
610 glClearColor(c1.r / 255, c1.g / 255, c1.b / 255, 0.99); |
|
611 SDSkyColor.r:= byte(c1.r * SDTint div 255); |
|
612 SDSkyColor.g:= byte(c1.g * SDTint div 255); |
|
613 SDSkyColor.b:= byte(c1.b * SDTint div 255); |
|
614 end |
|
615 end |
596 end; |
616 end; |
597 |
617 |
598 Close(f); |
618 Close(f); |
599 {$I+} |
619 {$I+} |
600 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true); |
620 TryDo(IOResult = 0, 'Bad data or cannot access file ' + cThemeCFGFilename, true); |