1958             ap.ExplY:= EY;

  1958             ap.ExplY:= EY;

  1959             valueResult:= value

  1959             valueResult:= value

  1960             end;

  1960             end;

  1961         end

  1961         end

  1962 until rTime > 5050 - Level * 800;

  1962 until rTime > 5050 - Level * 800;

  1963 TestSMine:= valueResult

  1966 TestSMine:= valueResult

  1964 end;

  1967 end;

  1965 

  1968 

  1966 function TestPiano(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams; Flags: LongWord): LongInt;

  1969 function TestPiano(Me: PGear; Targ: TTarget; Level: LongInt; var ap: TAttackParams; Flags: LongWord): LongInt;

  1967 const BOUNCES = 5;

  1970 const BOUNCES = 5;