equal
deleted
inserted
replaced
54 tmpsurf:= LoadDataImage(ptCurrTheme, 'Border', ifCritical or ifIgnoreCaps or ifTransparent); |
54 tmpsurf:= LoadDataImage(ptCurrTheme, 'Border', ifCritical or ifIgnoreCaps or ifTransparent); |
55 for x:= 0 to LAND_WIDTH - 1 do |
55 for x:= 0 to LAND_WIDTH - 1 do |
56 begin |
56 begin |
57 yd:= LAND_HEIGHT - 1; |
57 yd:= LAND_HEIGHT - 1; |
58 repeat |
58 repeat |
59 while (yd > 0) and (Land[yd, x] = 0) do dec(yd); |
59 while (yd > 0) and (Land[yd, x] <> lfBasic) do dec(yd); |
60 |
60 |
61 if (yd < 0) then |
61 if (yd < 0) then |
62 yd:= 0; |
62 yd:= 0; |
63 |
63 |
64 while (yd < LAND_HEIGHT) and (Land[yd, x] <> 0) do |
64 while (yd < LAND_HEIGHT) and (Land[yd, x] = lfBasic) do |
65 inc(yd); |
65 inc(yd); |
66 dec(yd); |
66 dec(yd); |
67 yu:= yd; |
67 yu:= yd; |
68 |
68 |
69 while (yu > 0 ) and (Land[yu, x] <> 0) do dec(yu); |
69 while (yu > 0 ) and (Land[yu, x] = lfBasic) do dec(yu); |
70 while (yu < yd ) and (Land[yu, x] = 0) do inc(yu); |
70 while (yu < yd ) and (Land[yu, x] <> lfBasic) do inc(yu); |
71 |
71 |
72 if (yd < LAND_HEIGHT - 1) and ((yd - yu) >= 16) then |
72 if (yd < LAND_HEIGHT - 1) and ((yd - yu) >= 16) then |
73 begin |
73 begin |
74 rr.x:= x; |
74 rr.x:= x; |
75 rr.y:= yd - 15; |
75 rr.y:= yd - 15; |