Add invisible background support to KO-pair screen

Author: olafkryus

SJ3.PAS

@@ -4392,7 +4392,19 @@ var temp,temp2,who : integer;
 
 begin
 
- newscreen(1,0);
+ if (InvBack) then
+  begin
+
+   SiirraStandardiPaletti;
+   TallennaAlkuosa(0);
+   SavytaPaletti(0,40);
+   AsetaPaletti;
+
+   DrawHillScreen;
+   DrawAnim(5,2,62); { logo kehiin }
+
+  end
+   else newscreen(1,0);
  fontcolor(240);
   writefont(30,6,lstr(94));
  fontcolor(241);
@@ -4427,6 +4439,12 @@ begin
 
  cupslut:=Waitforkey3(305,6,ch);
 
+ if (InvBack) then
+  begin
+   TakaisinAlkuosa(0);
+   AsetaPaletti;
+  end;
+
 end;
 
 

SJ3LIST.PAS

@@ -118,17 +118,16 @@ begin
    if (InvBack) then { tota pit„„ tsiigata viel„... }
     begin
 
-     DrawHillScreen;
-
-    if (FirstPage) then
-     begin
-      SiirraStandardiPaletti;
-      TallennaAlkuosa(0);
-      SavytaPaletti(0,40);
-      AsetaPaletti;
-      FirstPage:=False;
-     end;
+     if (FirstPage) then
+      begin
+       SiirraStandardiPaletti;
+       TallennaAlkuosa(0);
+       SavytaPaletti(0,40);
+       AsetaPaletti;
+       FirstPage:=False;
+      end;
 
+     DrawHillScreen;
      DrawAnim(5,2,62); { logo kehiin }
 
     end