Q&A

  • Online Bingo Game Troubles
델파이의 초보입니다..델파이 배운지 3주 밖에 않됐는데 빙고겜을 짜구 있습니다.-정말 대단한 모험정신이라 생각됩니다.^^;

빙고겜이 어떻게 하는지는 다들 아시리라 생각하면서 저의 문제는

클라이언트에서 선택한 숫자값을 게임시작후 찍을 때 이 숫자값을 서버에 넘겨줘야 하는데 쉽게 되질 않는군요..배열을 이용해서 해 보았지만 이상하게 순서대루(1,2,3,..etc)넘어가기만 합니다..

고수님들의 단촐한 훈수 부탁드립니다..

오늘 오후 5시까지 결과물이 나오지 않으면 전..........ㅜ_ㅜ...



<이하는 제가 애먹구 있는 부분입니다.. 정신없으면 그냥 아이디어만 부탁드립니다>





begin

seqNum := seqNum + 1;

SavedClickValue[(Sender as TImage).tag + 1] := seqNum;

if ((seqNum = 25) and (play = 0)) then //숫자 선택이 끝나고 아직 게임이 시작되지 않았으면 start버튼을 눌러라..

StartBtn.Enabled := True

else if (play = 1) then //게임이 시작됐으면 시작버튼을 죽여라..

StartBtn.Enabled := False;



if (play = 0) then //게임이 아직 시작되지 않았으면 숫자를 리턴하라..

(Sender as Timage).Picture.LoadFromFile('c:WINNTbingo_' + inttostr(seqNum) + '.jpg')

else if //게임이 시작되었으면 동그라미를 리턴하구

(play=1) then

begin

(Sender as Timage).Picture.LoadFromFIle('c:winntcircle.jpg');

bingoChk[(Sender as Timage).Tag + 1] := True; //한번 누른곳은 다시 눌리지 않게 하라..

ClientSocket1.Socket.SendText(inttostr(SavedClickValue[seqNum]));

end;

0  COMMENTS