Jawbreaker 게임 만들기 1차 종료입니다.
소리와 Undo 기능은 강좌 듣는 분들에게 드리는 숙제 입니다 ^^;;

나중에 네트워크 게임 만들기 프로젝트 강좌가 준비되면
이 게임을 좀더 발전시켜서 네트워크 용으로 만들어 보겠습니다.

첨부파일에는 소스와 실행파일이 들어 있습니다.

감기 조심하세요 ㅡ.ㅡ;;

녹화자료 : http://www.codeway.co.kr/lecture/lectureView.html?CID=Jawbreaker&LID=Part-04


* 소스에 버그가 ㅡ.ㅡ;;

procedure TJawBoard.Select(X, Y: Integer);
var
CrystalType : TCrystalType;
begin
If Crystals[X, Y].CrystalType = ctNone then Exit;
If (SelCount > 0) and (Crystals[X, Y].Selected = False) then UnSelect;
If Crystals[X, Y].Selected = True then Begin
   FPoint:= FPoint + SelCount*(SelCount-1);
   doBreakIt(X, Y);
   doGoDown;
   Draw;
   Exit;
End;

doSelect(X, Y, Crystals[X, Y].CrystalType);

If SelCount < 2 then UnSelect;

Draw;
end;

굵은 부분 참고하세요, 녹화하다가 발견해서 다음에 고친다고 하고는 잊어버리고 녹화를 종료했네요 ^^;;