1107 

  1107 

  1108     ap.ExplR:= 0;

  1108     ap.ExplR:= 0;

  1109     ap.Time:= 0;

  1109     ap.Time:= 0;

  1110     ap.Power:= BadTurn; // use it as max score value in checkCakeWalk

  1110     ap.Power:= BadTurn; // use it as max score value in checkCakeWalk

  1111 

  1111 

  1113     cake.Radius:= 7;

  1113     cake.Radius:= 7;

  1114     cake.CollisionMask:= $FF7F;

  1114     cake.CollisionMask:= $FF7F;

  1115 

  1115 

  1116     // check left direction

  1116     // check left direction

  1117     cake.Angle:= 3;

  1117     cake.Angle:= 3;