단땅의 존 분석 가이드를 작성하신

카페의 레이님 감사합니다.

좀 더 빨리 알았다면 작업이 더 수월했을텐데 모르고

제가 헛 삽질을 많이 했군요...

몹과 존분석에 참고 많이 했습니다.



서클 9월 30일자를.. 한글화 시켜 주신 미르님 감사합니다.

미르님이 아니였다면 누가 그 일을 했겠습니까 ^^

감사합니다.



자.. 이제 지겹던 변환작업이 막바지에 이르렸다.
결국 다 변환을 시키고야 말았다.

문제가 생겼는데
너무 오래동안 서클이 변해오다 보니 원형인 디쿠와 아주 많이 바뀐것들이다.
물론 단땅프로그래머들도 자체적으로 많이 변형을 하였고 말이다.

결국 몇몇가지는 수작업으로 예를 들어서 숍파일이라든지(가게 같은거)
또는 세부적인것의 옵션은 도저히 찾을수 없도록 되어 있다.

물론 이 변환기를 작성하는 프로그래머인 칼의노래(본인) 무척 문제가 있음을 시인하지만.
하여간 서로 매칭이 되지 않는부분이 꽤 많음을 이야기 하고 싶다.

약 70% 정도만 유사하고 나머지 옵션은 상당히 다르다.

하여간 존의 기초적인 4가지 파일을 치환하여 존 변환이 끝났으니 이제부터는

기본적인 것들 명령어

북, 동, 서, 남 같은 것부터 시작해서 하나씩 변경해야 한다.

그런다음 할것은 클래스 즉...

새로운 직업군을 만들어야 하고

다음으로 기술에 대한 프로그래밍이 따라줘야 될듯 싶다.

이제부터는 프로그램에 대한 이야기를 좀 풀어나가야 겠다.

너무나도 볼것 없는 강의가 20강 까지 와서 참 부끄럽고...

하여간.. 옆에서 도와주신분에게 다시한번 감사함을 전하고 싶다.

-------------------------------------------------------------------------------
마지막 존 변환 소스
Private Sub 변환처리()

    Dim 서클 As 서클머드
    Dim 서클초기 As 서클머드
    
    Dim 내용 As String
    Dim 존번호 As Long
    Dim 룸번호 As Long
    
    Dim 상태1 As Long
    Dim 상태2 As Long
    

    For aa = 0 To 줄끝번호
        
    상태1 = 0
    If InStr(1, 줄(aa), "+") Then 상태1 = 1
    If InStr(1, 줄(aa), "@") Then 상태1 = 2
        
        Select Case 상태1
            Case 1
                    서클.virtual_number = Replace(줄(aa), "+", "#")
                    서클.lifespan = 줄(aa + 1)
                    aa = aa + 1
                    존번호 = Val(Right(2, Len(Trim(서클.virtual_number)) - 1))
                    
                    Text2.Text = 서클.virtual_number & vbCrLf
                    Text2 = Text2 & "변환기로 작성된존" & vbCrLf
                    Text2 = Text2 & 존번호 * 100 & " " & 존번호 * 100 + 99 & " " & 서클.lifespan & " " & "2" & vbCrLf
                    
            Case 2
                    Text2.Text = Text2.Text & "S" & vbCrLf & "$"
                    Exit Sub
                    
            Case Else      '메인 상태에 따른 디폴트 케이스.. 즉 아무것도 못찾을 경우
                    내용 = Trim(줄(aa))   '스페이스를 제거
                    임시줄 = Split(내용, " ")
                    
                    상태2 = 0
                    If InStr(1, 내용, "N") Then 상태2 = 1
                    If InStr(1, 내용, "X") Then 상태2 = 2
                    If InStr(1, 내용, "I") Then 상태2 = 3
                    If InStr(1, 내용, "D") Then 상태2 = 4
                    If InStr(1, 내용, "H") Then 상태2 = 5
                    If InStr(1, 내용, "W") Then 상태2 = 6
                    If InStr(1, 내용, "G") Then 상태2 = 7
                    
                    Select Case 상태2
                        Case 1
                            Text2 = Text2 & "M 0 " & 임시줄(1) & " " & 임시줄(2) & " " & 룸번호 & vbCrLf
                        Case 2
                            Text2 = Text2 & "D 0 " & 룸번호 & " " & 동서남북(임시줄(2)) & " " & "0" & vbCrLf  '문을 무조건 열어두었다.(나중에 수정할까?)
                        Case 3
                            Text2 = Text2 & "O 0 " & 임시줄(1) & " " & 임시줄(2) & " " & 룸번호 & vbCrLf
                        Case 4
                            Text2 = Text2 & "E 1 " & 임시줄(1) & " " & 임시줄(2) & " " & "16" & vbCrLf      '나중에 임시줄(2)는 사실상 서클과 달라서 그렇다.
                        Case 5
                            Text2 = Text2 & "E 1 " & 임시줄(1) & " " & 임시줄(2) & " " & "17" & vbCrLf
                        Case 6, 7
                            Text2 = Text2 & "G 1 " & 임시줄(1) & " " & 임시줄(2) & vbCrLf
                        
                        Case Else '없다면 그냥 방번호다
                        룸번호 = Val(내용)
                            
                    End Select
                    
        End Select '메인 셀렉트
        
        
    Next aa
    
    
End Sub


각각의 소스들은 본인인 내가 봐도 너무 지저분하므로..
차후에 다듬거나

아님 서클을 위한 존 생성기를 제작하게 되면.. 전체적으로 공개하겠다.
그 이전에 필요하신분은 쪽지를 보내면.. 압축해서 자료실로 올려보겠다.
기초적인 소스는.. 강좌 중간중간에 포함되어 있다.