2-5. Snake 이동하는 코드 만들기
오른쪽으로 이동하는 코드를 먼저 만들어 보겠습니다. 우선 머리의 위치를 알아야 하기 때문에, 변수를 불러오겠습니다. 머리의 좌표를 AA4와 AA5셀에 기록을 해두었기 때문에 변수를 먼저 불러오겠습니다. 머리의 head와 x 좌표의 x 에서 앞 알파벳을 따서 변수를 정의했습니다.
hx = Cells(4, 27)
hy = Cells(5, 27)
이동시 사과를 먹게 되면 점수가 올라가야 하므로 점수도 불러오겠습니다.
score = Cells(2, 26)
오른쪽으로 이동했음을 알려주기 위해 머리의 좌표 부분에 알파벳 R을 적겠습니다.
Cells(hx, hy) = "R"
뱀이 오른쪽으로 이동을 하면 세가지의 경우가 나올 수 있습니다.
1. 사과를 먹을때 - 뱀이 오른쪽으로 이동하고, 길이가 늘어나며, 사과가 다른 위치에 생성 된다.
2. 그냥 이동할때
3. 맵 밖으로 나가거나 자기 자신을 먹을 때 - 죽음
세가지의 경우를 나눠야 하므로 if 문을 사용하겠습니다.
우선 사과를 먹으면, 오른쪽 칸은 진한 녹색으로 바뀌어야 하고, 점수가 1점 올라야하며, 새로운 사과를 생성해야합니다.
If Cells(hx, hy + 1).Interior.Color = RGB(255, 0, 0) Then '사과 먹음
' 오른쪽을 뱀 색으로 바꾸기
Cells(hx, hy + 1).Interior.Color = RGB(84, 130, 53)
' 점수 1점 올리기
score = score + 1
' 점수 기록
Cells(2, 26) = score
' apple 함수 불러오기
apple
마지막줄에 apple이라고 적게되면, 2-3에서 정의한 apple 함수를 불러오게 됩니다. apple 함수는 사과를 맵에 랜덤하게 생성했습니다.
오른쪽으로 이동하게 되면, 오른쪽 칸은 초록색으로 바뀌고, 꼬리 부분은 사라져야합니다.
ElseIf Cells(hx, hy + 1).Interior.Color = RGB(146, 208, 80) Then ' 오른쪽이 게임판 색일때
Cells(hx, hy + 1).Interior.Color = RGB(84, 130, 53)
' 꼬리 이동하는 함수 불러오기
tail
마지막 줄에 tail이라고 적었기 때문에, tail 함수가 호출이 될 것입니다. tail 함수는 나중에 만들도록 하겠습니다.
마지막으로 나머지 경우에는 죽기때문에, gameover 함수를 호출하겠습니다. gameover함수도 나중에 만들겠습니다.
Else
gameover
End If
이제 머리의 좌표가 바뀌었으므로, 엑셀 시트에 기록해주겠습니다.
Cells(5, 27) = hy + 1
여기까지가 오른쪽으로 이동하는 코드입니다. 상하좌우로 이동하는 코드는 오른쪽으로 이동하는 코드에서 살짝 변형만 해주면, 쉽게 만들 수 있습니다.
tail 함수는 꼬리의 위치를 파악하고, 새로운 꼬리 좌표를 기록하는 간단한 함수로 만들겠습니다. 우선 꼬리의 좌표를 불러옵니다.
tx = Cells(6, 27)
ty = Cells(7, 27)
이제 꼬리부분을 배경색으로 바꿔줍니다.
Cells(tx, ty).Interior.Color = RGB(146, 208, 80)
다음으로 글자를 지우고, 새로운 꼬리의 좌표를 기록하겠습니다.
If Cells(tx, ty) = "R" Then
Cells(tx, ty).ClearContents
ty = ty + 1
ElseIf Cells(tx, ty) = "L" Then
Cells(tx, ty).ClearContents
ty = ty - 1
ElseIf Cells(tx, ty) = "U" Then
Cells(tx, ty).ClearContents
tx = tx - 1
ElseIf Cells(tx, ty) = "D" Then
Cells(tx, ty).ClearContents
tx = tx + 1
End If
내부 문자가 "R"이면, 다음 꼬리의 좌표는 오른쪽으로 이동하기 때문에, ty = ty + 1이 됩니다. 나머지도 같은 원리입니다.
마지막으로 엑셀 시트에 변수를 기록하면, tail함수는 완성입니다.
Cells(6, 27) = tx
Cells(7, 27) = ty