procedure TFrmDlg.DFishingDlgDirectPaint(Sender: TObject; dsurface: TDirectDrawSurface);
var
d, e, f: TDirectDrawSurface;
fchance, ftime: TRect;
r: Real;
begin
with DFishingDlg do begin
d := WLib.Images[FaceIndex];
if d <> nil then
dsurface.Draw (SurfaceX(Left), SurfaceY(Top), d.ClientRect, d, TRUE);
e := g_WMainImages.Images[1342];
if e <> nil then begin
fchance := e.ClientRect;
if FishingEnviroment > 0 then r := 100 / FishingEnviroment
else r := 0;
if r > 0 then fchance.Right := Round (fchance.Right / r)
else fchance.Right := 0;
dsurface.Draw (SurfaceX(Left+33), SurfaceY(Top+61), fchance, e, TRUE);
end;
BoldTextOut (dsurface, SurfaceX(Left+140), SurfaceY(Top + 61), clWhite, clBlack, IntToStr(FishingEnviroment) + '%');
end;
end;