이런... 분석하다보니.. 딱 미치겠다.
성격상.. 하여간..
생각외로 까탈스럽네.. 쩝..

타입도표        단땅        서클
무기        1        5
방어구        2        9
음식        3        19
가방        4        15
조명        5        1
패전        6        20
종이        7        2(스크롤로 처리)
시체        8        13(쓰레기로 처리)
부적        9        2(스크롤)
열쇠        10        18
보물        11        8
활        12        12(미처리)
화살        13        12(미처리)
변신물건        14        12(미처리)
                


단땅

타입/무게/모름/수명
모름/최대용량(조명은 사용시간)/최대무게/아머의 입는부위/모름
모름/평가제한/모름/모름/모름
아머의 입는부위        단땅        서클
머리        1        16 e
목        2        4 c
어깨        4        512 j(방패처리)
몸        8        8 d
몸둘레        16        1024 k
팔        32        256 i
손        64        128 h
무기가능        128        8192 n
잡기        256        16384 o
허리        512        4096 m
다리        1024        32 f
무릎        2048        2048 l(허리 두번째 처리)
발        4096        64 g
귀        8192        32768 p(현재 없음 프로그램 처리)
손가락        16384        2


하여간.. 대충 시작만 하자...
분석할게 생각외로 까탈 스럽다.
왜냐면.. 단땅 머드에 대해서도 잘 알아야 하고
서클에 대해서도 잘 알아야 서로에 대한 변환이 가능하니까 말이다.
즉.. 우리가 영어번역을 해도 그 영미문화권을 알아야되는것 처럼 말이다.
프로그램은 여전히 다듬지 않은상태로 거칠게 변환을 한다.

이번 변환기는.. 여러가지 문제가 있다.
1. 서클과 단땅의 머드 전체구조가 상이하다
2. 복잡한형태의 자료구조다.
3. 정확한 수치분석이 이루어지지 않았다.


즉 이런형태 때문에 나중에 수치를 변경해야될 가능성을 염두에 두어야지만 한다.
고로.. 프로그램을 무식하게 짜면.. 안된다는 결론을 얻는다.

어쩔수 없이.. 귀찮은 구조체를 좀 사용해야 한다.
(어떻게 사용하는지 기억도 안난다.. 허거거..)

Type 단군의땅
    번호 As Long
    줄임말 As String
    짧은설명 As String
    긴설명 As String
    
    타입 As Long
    무게 As Long
    수명 As Long
    입는위치 As Long
    최대용량 As Long
    최대무게 As Long
    입는부위 As Long
    평가제한 As Long
    '모르는 부분이 많으니 여기까지만..
    '나중에 추가한다.
End Type

Type 서클머드
    번호 As Long
    줄임말 As String
    짧은설명 As String
    긴설명 As String
    액션설명 As String
    
    타입 As Long
    특수효과 As String
    입는위치 As String
    
    수치0 As Long
    수치1 As Long
    수치2 As Long
    수치3 As Long
    
    무게 As Long
    가격 As Long
    대여일 As Long
    
    확장수치 As Long
    
End Type

일단 귀찮더라도 이렇게 구조체를 대충설정하고.. 좀 전에 말했듯이.. 수정이 될 가능서이 높으니까 말이다.

두번째로 읽어들이는 코드도.. 한줄씩 처리해주는게 여러모로 용이하다
수정에 대비해서 말이다.

Private Sub 읽어들이기()
    줄 = Split(Text1.Text, vbCrLf)
    줄끝번호 = UBound(줄)
End Sub