哪位知道MDL模型的编辑器用什么好？

zodane

我 最近恢复工作了  有许多问题要问. 呵呵 .
游戏之家会绑定动作了  ?  

游戏之家站长

是呀！用软件导出模型的动作，再绑到其它模型上，将模型人物和贴图重新制作，就是新模型，这次花的时间主要是掌握了模型设计的原理，是游戏开发的最大收获，以后开发的游戏会更好，现在感觉时间不够用，我全心投入我的五星勋章2，3D游戏设计真的有很多东西研究，虽然我使用了TV3D，不过开发工作也不是想象的那么简单，等游戏发布的时候绝对不是现在截图，我想会有很大区别，我游戏里准备采用一张大型的BSP地图，用在游戏第6或第7关。

晚上回家再上MSN，现在外面随便说几句，现在感觉自己随时随地的都在开发和想自己的游戏。

zodane

这种感觉很不错 .呵呵 . 要的就是这感觉
我现在研究文本输出 , 很简单的问题 ,  查阅了大量API的资料 .

游戏之家站长

我今年全面转向3D游戏开发了，最近解决了3D模型和地图问题，其它的问题都不是大问题了，3D游戏和2D游戏其实区别不大，就是多了一个坐标而已。
将来目标是做个国产的荣誉勋章，现在的五星勋章2离目标差的远，做五星1的时候就说有续集，想不到做五星2转眼已经过去一个半月了。
我的开发宗旨：一个人做单机游戏。
（当然希望有深圳本地的义务美工加盟，不敢想）

zodane

你应该可以搞个工作室啊  ,

zodane

不过深圳的房价...实在是太恐怖了...  

游戏之家站长

抱歉！
昨天晚上回家的时候意外受伤。
不小心从楼梯摔下脚骨折，不能走路，休病假中，要打三个星期石膏，郁闷中......
长这么大第一次发生这种事。

Miu.C

zodane: Re:哪位知道MDL模型的编辑器用什么好？

这种感觉很不错 .呵呵 . 要的就是这感觉
我现在研究文本输出 , 很简单的问题 ,  查阅了大量API的资料 .

Const DC_ACTIVE = &H1
Const DC_NOTACTIVE = &H2
Const DC_ICON = &H4
Const DC_TEXT = &H8
Const BDR_SUNKENOUTER = &H2
Const BDR_RAISEDINNER = &H4
Const EDGE_ETCHED = (BDR_SUNKENOUTER Or BDR_RAISEDINNER)
Const BF_BOTTOM = &H8
Const BF_LEFT = &H1
Const BF_RIGHT = &H4
Const BF_TOP = &H2
Const BF_RECT = (BF_LEFT Or BF_TOP Or BF_RIGHT Or BF_BOTTOM)
Const DFC_BUTTON = 4
Const DFC_POPUPMENU = 5            'Only Win98/2000 !!
Const DFCS_BUTTON3STATE = &H10
Const DT_CENTER = &H1
Const DC_GRADIENT = &H20          'Only Win98/2000 !!
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
Private Declare Function DrawCaption Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long, pcRect As RECT, ByVal un As Long) As Long
Private Declare Function DrawEdge Lib "user32" (ByVal hdc As Long, qrc As RECT, ByVal edge As Long, ByVal grfFlags As Long) As Long
Private Declare Function DrawFocusRect Lib "user32" (ByVal hdc As Long, lpRect As RECT) As Long
Private Declare Function DrawFrameControl Lib "user32" (ByVal hdc As Long, lpRect As RECT, ByVal un1 As Long, ByVal un2 As Long) As Long
Private Declare Function DrawText Lib "user32" Alias "DrawTextA" (ByVal hdc As Long, ByVal lpStr As String, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
Private Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long) As Long
Private Sub Form_Paint()
    Dim R As RECT
    'Clear the form
    Me.Cls
    'API uses pixels
    Me.ScaleMode = vbPixels
    'Set the rectangle's values
    SetRect R, 0, 0, Me.ScaleWidth, 20
    'Draw a caption on the form
    DrawCaption Me.hWnd, Me.hdc, R, DC_ACTIVE Or DC_ICON Or DC_TEXT Or DC_GRADIENT
    'Move the recatangle
    OffsetRect R, 0, 22
    'Draw an edge on our window
    DrawEdge Me.hdc, R, EDGE_ETCHED, BF_RECT
    OffsetRect R, 0, 22
    'Draw a focus rectangle on our window
    DrawFocusRect Me.hdc, R
    OffsetRect R, 0, 22
    'Draw a frame control on our window
    DrawFrameControl Me.hdc, R, DFC_BUTTON, DFCS_BUTTON3STATE
    OffsetRect R, 0, 22
    'draw some text on our form
    DrawText Me.hdc, "Hello World !", Len("Hello World !"), R, DT_CENTER
End Sub

Miu.C

Const ETO_OPAQUE = 2
Private Declare Function ExtTextOut Lib "gdi32" Alias "ExtTextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal wOptions As Long, ByVal lpRect As Any, ByVal lpString As String, ByVal nCount As Long, lpDx As Long) As Long
Private Sub Form_Paint()
    Dim Arr(0 To 5) As Long
    Const mStr = "Hello !"
    'API uses pixels
    Me.ScaleMode = vbPixels
    'Set distance between characters
    For x = 0 To 5
        If x Mod 2 = 0 Then
            Arr(x) = 25
        Else
            Arr(x) = 10
        End If
    Next x
    'call ExtTextOut
    ExtTextOut Me.hdc, 0, 0, ETO_OPAQUE, ByVal 0&, mStr, Len(mStr), Arr(0)
End Sub