안녕하세요. 성령의분노입니다.
이번에는 지난번의 강좌를 토대로 진짜 SRPG의 이동경로에 대해 설명하겠습니다.
2. 최단거리를 찾는다.
다시 평원에서의 이동범위를 살펴볼까요?
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 2 1
1 2 1
1
현재 캐릭터는 숫자 4의 위치에 있지요.
최단거리로 걷는법은...
4부터 1까지 숫자를 따라서 가보세요 어떤 경로로 가셔도 됩니다. 4-> 3-> 2-> 1
최단경로...입니다;
Ex)
1
1 2 1
↑ 2 3 2 1
1 ← ← ← 3 2 1
1 2 3 2 1
1 2 1
1
자, 실제로 코딩을 해봅시다.
우선 목적지점까지 이동하는 경로를 새겨주어야 하겠지요.
새겨줄때에는 1에서부터 4까지 거꾸로 오는 것이 편합니다.
RunM(20,30) 이런 배열을 만듭니다 (경로를 표시하는 배열입니다).
Dim M As Long : M = 1 ( 경로를 찾을때 씁니다. M은 1로 초기화했는데 누른칸의 숫자여야 합니다. )
자, 제가 게임화면에서 이동할 칸을 눌렀습니다.
If 마우스가 눌러지고 & 눌러진 부분의 배열값이 0보다 크면 ( 즉, 이동범위내라면 ) then
ObjectX = Val(Format((pnt.curX) / 60, 0))
ObjectY = Val(Format((pnt.curY) / 48, 0))
눌러진 지점을 셀단위로 바꿔준 뒤에 목적지점을 지정합니다. Format은 소수점버림이고요. 60, 48은 한셀의 크기입니다. 이 것은 스크롤을 고려하지 않은것으로 스크롤되었다면 그 만큼 +-되어야겠지요.
MOX = ObjectX
MOY = ObjectY
ObjectX, ObjectY는 그 자리까지 이동할때까지는 보존되어야 하므로 임시로 MOX, MOY를 사용합니다.
For N = 1 To 4 목적지점까지 가려면 4번 돌려야 하지요 ( 유비의 이동력이 4칸이잖아요 ). 3칸만 가는칸이라도 마지막 한번은 제자리에 있기때문에 상관없습니다.
RunM(MOX, MOY) = 7 7은 임의의 숫자입니다. 경로 표시용, 운동장의 석회가루같은...
1에서 2를 찾고 2에서 3을찾고 그렇게 계속 가면서 숫자7을 RunM에 새겨나갑니다.
상하좌우의 순서로 하였는데 꼭 그렇게 하실필요는 없고요. 결론은 같지만 이동의 맵시가 달라지겠지요.
M이라는 변수가 있는데 이 변수를 통해, 눌러진 칸보다 높은 칸 ( 즉, 거슬러 올라가야할 칸 )을 찾아나가는 것입니다.
1 -> 1 -> 1 -> 1
2 2 3 2 3 4
이런식으로요.
If Map(MOX + 1, MOY) = M + 1 Then
오른쪽의 숫자가 자신보다 크면 (그러니까 지금 M이 1이면 옆에 2를 찾아서)
MOX = MOX + 1
M = M + 1
ElseIf Map(MOX - 1, MOY) = M + 1 Then
MOX = MOX - 1
M = M + 1
ElseIf Map(MOX, MOY + 1) = M + 1 Then
MOY = MOY + 1
M = M + 1
ElseIf map(mox, moy - 1) = M + 1 Then
MOY = MOY - 1
M = M + 1
End If
Next
MOX, MOY를 상화좌우의 칸으로 검색해 높은 경로로 가서 RunM의 그 위치에 새겨나가는 겁니다.
M을 제가 1이라고 했는데, 1이 아니라 M은 누른칸의 이동력칸 숫자여야 합니다 ( 1편에서 Map이라는 배열에 새긴 이동력이요 ). 저도 여기서 버그가 났는데, 원본소스가 없어서 수정이 안되요 ㅠ_ㅠ
for문이 다 돌면 경로가 다 찍어지게 됩니다.
이제 위치에서 부터 7까지 찍어진 순서로 나아갑니다.
If RunM(캐릭터의 X좌표 + 1, 캐릭터의 Y좌표) = 7 Then
현재의 위치에서 오른쪽에 7이 있는지 찾습니다.
그 다음에 오른쪽으로 걸어가도록 코딩하세요.
오른쪽으로 걸어간 뒤에는
캐릭터의 X좌표 = 캐릭터의 X좌표 + 1
해줍니다.
좌상하 역시 마찬가지로 처리해 줍니다.
If ObjectX = 캐릭터의 X좌표 And ObjectY = 캐릭터의 Y좌표 Then
결국에 목적지에 도착하면 메뉴창이 뜨던지 공격범위가 뜨던지 하겠지요.
For J = 1 To 20
For K = 1 To 30
If Map(J, K) > 0 Then Map(J, K) = 0
다음번의 이동을 위해 다시 맵을 초기화 시켜줍니다. 장애물은 지우지 않도록 0보다 크면 초기화 시킵니다.
Next
Next
For J = 1 To 20
For K = 1 To 30
If RunM(J, K) = 7 Then RunM(J, K) = 0
Next
Next
End If
정리해서 보여드리면,
우선 경로를 표시할 때는
1 -> 1 -> 1 -> 1
2 2 3 2 3 4
이런식으로 나아가며, 나아가면서 그 칸에 숫자7을 새기면서 갑니다.
걸어 갈때는 반대로 찾으면서 걸어가게 되구요.
이번에도 제대로 이해하셨을지 모르겠네요.
이걸로써 SRPG에서 이동범위를 표시하고 걸어가는 방법에 대해 설명이 모두 끝났습니다.
회원업로드 자료실의 서브젝트닐 역시 이 방식으로 만들었지만 절대로 최적화되지 않은 방법이므로, 갈고 닦아서 도움이 되시면 감사하겠습니다.
읽어주신 여러분들 감사드립니다.
저의 강좌는 여기서 끝입니다.
이번에는 지난번의 강좌를 토대로 진짜 SRPG의 이동경로에 대해 설명하겠습니다.
2. 최단거리를 찾는다.
다시 평원에서의 이동범위를 살펴볼까요?
1
1 2 1
1 2 3 2 1
1 2 3 4 3 2 1
1 2 3 2 1
1 2 1
1
현재 캐릭터는 숫자 4의 위치에 있지요.
최단거리로 걷는법은...
4부터 1까지 숫자를 따라서 가보세요 어떤 경로로 가셔도 됩니다. 4-> 3-> 2-> 1
최단경로...입니다;
Ex)
1
1 2 1
↑ 2 3 2 1
1 ← ← ← 3 2 1
1 2 3 2 1
1 2 1
1
자, 실제로 코딩을 해봅시다.
우선 목적지점까지 이동하는 경로를 새겨주어야 하겠지요.
새겨줄때에는 1에서부터 4까지 거꾸로 오는 것이 편합니다.
RunM(20,30) 이런 배열을 만듭니다 (경로를 표시하는 배열입니다).
Dim M As Long : M = 1 ( 경로를 찾을때 씁니다. M은 1로 초기화했는데 누른칸의 숫자여야 합니다. )
자, 제가 게임화면에서 이동할 칸을 눌렀습니다.
If 마우스가 눌러지고 & 눌러진 부분의 배열값이 0보다 크면 ( 즉, 이동범위내라면 ) then
ObjectX = Val(Format((pnt.curX) / 60, 0))
ObjectY = Val(Format((pnt.curY) / 48, 0))
눌러진 지점을 셀단위로 바꿔준 뒤에 목적지점을 지정합니다. Format은 소수점버림이고요. 60, 48은 한셀의 크기입니다. 이 것은 스크롤을 고려하지 않은것으로 스크롤되었다면 그 만큼 +-되어야겠지요.
MOX = ObjectX
MOY = ObjectY
ObjectX, ObjectY는 그 자리까지 이동할때까지는 보존되어야 하므로 임시로 MOX, MOY를 사용합니다.
For N = 1 To 4 목적지점까지 가려면 4번 돌려야 하지요 ( 유비의 이동력이 4칸이잖아요 ). 3칸만 가는칸이라도 마지막 한번은 제자리에 있기때문에 상관없습니다.
RunM(MOX, MOY) = 7 7은 임의의 숫자입니다. 경로 표시용, 운동장의 석회가루같은...
1에서 2를 찾고 2에서 3을찾고 그렇게 계속 가면서 숫자7을 RunM에 새겨나갑니다.
상하좌우의 순서로 하였는데 꼭 그렇게 하실필요는 없고요. 결론은 같지만 이동의 맵시가 달라지겠지요.
M이라는 변수가 있는데 이 변수를 통해, 눌러진 칸보다 높은 칸 ( 즉, 거슬러 올라가야할 칸 )을 찾아나가는 것입니다.
1 -> 1 -> 1 -> 1
2 2 3 2 3 4
이런식으로요.
If Map(MOX + 1, MOY) = M + 1 Then
오른쪽의 숫자가 자신보다 크면 (그러니까 지금 M이 1이면 옆에 2를 찾아서)
MOX = MOX + 1
M = M + 1
ElseIf Map(MOX - 1, MOY) = M + 1 Then
MOX = MOX - 1
M = M + 1
ElseIf Map(MOX, MOY + 1) = M + 1 Then
MOY = MOY + 1
M = M + 1
ElseIf map(mox, moy - 1) = M + 1 Then
MOY = MOY - 1
M = M + 1
End If
Next
MOX, MOY를 상화좌우의 칸으로 검색해 높은 경로로 가서 RunM의 그 위치에 새겨나가는 겁니다.
M을 제가 1이라고 했는데, 1이 아니라 M은 누른칸의 이동력칸 숫자여야 합니다 ( 1편에서 Map이라는 배열에 새긴 이동력이요 ). 저도 여기서 버그가 났는데, 원본소스가 없어서 수정이 안되요 ㅠ_ㅠ
for문이 다 돌면 경로가 다 찍어지게 됩니다.
이제 위치에서 부터 7까지 찍어진 순서로 나아갑니다.
If RunM(캐릭터의 X좌표 + 1, 캐릭터의 Y좌표) = 7 Then
현재의 위치에서 오른쪽에 7이 있는지 찾습니다.
그 다음에 오른쪽으로 걸어가도록 코딩하세요.
오른쪽으로 걸어간 뒤에는
캐릭터의 X좌표 = 캐릭터의 X좌표 + 1
해줍니다.
좌상하 역시 마찬가지로 처리해 줍니다.
If ObjectX = 캐릭터의 X좌표 And ObjectY = 캐릭터의 Y좌표 Then
결국에 목적지에 도착하면 메뉴창이 뜨던지 공격범위가 뜨던지 하겠지요.
For J = 1 To 20
For K = 1 To 30
If Map(J, K) > 0 Then Map(J, K) = 0
다음번의 이동을 위해 다시 맵을 초기화 시켜줍니다. 장애물은 지우지 않도록 0보다 크면 초기화 시킵니다.
Next
Next
For J = 1 To 20
For K = 1 To 30
If RunM(J, K) = 7 Then RunM(J, K) = 0
Next
Next
End If
정리해서 보여드리면,
우선 경로를 표시할 때는
1 -> 1 -> 1 -> 1
2 2 3 2 3 4
이런식으로 나아가며, 나아가면서 그 칸에 숫자7을 새기면서 갑니다.
걸어 갈때는 반대로 찾으면서 걸어가게 되구요.
이번에도 제대로 이해하셨을지 모르겠네요.
이걸로써 SRPG에서 이동범위를 표시하고 걸어가는 방법에 대해 설명이 모두 끝났습니다.
회원업로드 자료실의 서브젝트닐 역시 이 방식으로 만들었지만 절대로 최적화되지 않은 방법이므로, 갈고 닦아서 도움이 되시면 감사하겠습니다.
읽어주신 여러분들 감사드립니다.
저의 강좌는 여기서 끝입니다.