挂海论坛 › 开源交流 › 火柴人绘制写法

2199939052 发表于 2018-7-12 22:39:42

火柴人绘制写法

今天给你分享火柴人绘制写法。

3502124 发表于 2018-7-12 23:20:28

好像很厉害的样子

jackleoss 发表于 2018-7-12 23:22:42

{:smile:}{:sweat:}{:sweat:}{:sweat:}{:sweat:}{:sweat:}{:sweat:}

訫调丶 发表于 2018-7-12 23:26:39

{:funk:}{:funk:}{:funk:}

zw2697601454 发表于 2018-7-13 01:02:06

赚海币,没别的 !谢谢

东方月初 发表于 2018-7-13 01:13:54

靠不靠谱 能不能用

chichiri 发表于 2018-7-13 08:00:43

什么东西也不给点提示

run108 发表于 2018-7-13 08:38:15

全他妈骗子

3293995749 发表于 2018-7-13 08:41:26

错误(4): 没有找到名为“D3DMATRIX”的数据类型。

a76730704 发表于 2018-7-13 09:43:20

.版本 2

.程序集 骨骼
.程序集变量 ViewPort_1, OPENGL_VIEWPORT

.子程序 取骨骼指针, 整数型
.参数 对象指针, 整数型

返回 (内存.读整数型 (pid, 内存.读整数型 (pid, 对象指针 ＋ 808) ＋ 2416))

.子程序 绘制骨骼
.参数 骨骼指针, 整数型
.参数 m_Position, D3DMATRIX
.参数 Sex, 整数型
.参数 dwColor, 整数型
.局部变量 j, 整数型
.局部变量 size, 整数型
.局部变量 对象坐标, D3D坐标
.局部变量 sc, D3D坐标
.局部变量 f, D3D坐标, , "70"
.局部变量 m, D3D坐标, , "60"
.局部变量 bone, D3DMATRIX
.局部变量 ViewWorld, OPENGL_VIEWWORLD
.局部变量 Read, 整数型
.局部变量 ViewW, 小数型
.局部变量 BoxX0, 小数型
.局部变量 SightX, 小数型
.局部变量 BoxY0, 小数型
.局部变量 SightY, 小数型
.局部变量 BoxX1, 小数型
.局部变量 BoxY1, 小数型
.局部变量 Rect, RECT

.计次循环首 (69, j)
    ReadProcessMemoryMatrix (进程句柄, 骨骼指针 ＋ (j － 1) × 64, bone, 64, size)
    D3DXMatrixMultiply (bone, bone, m_Position)
    对象坐标.X ＝ bone._41
    对象坐标.Y ＝ bone._42
    对象坐标.Z ＝ bone._43
    ReadProcessMemoryWorld (进程句柄, 内存.读整数型 (pid, 内存.读整数型 (pid, 内存.读整数型 (pid, 内存.读整数型 (pid, 矩阵基址) ＋ 1640) ＋ 12) ＋ 68) ＋ 196, ViewWorld, 64, Read)
    ViewW ＝ ViewWorld.Data30 × 对象坐标.X ＋ ViewWorld.Data31 × 对象坐标.Y ＋ ViewWorld.Data32 × 对象坐标.Z ＋ ViewWorld.Data33
    SightX ＝ ViewPort_1.TopLeftX ÷ 2
    SightY ＝ ViewPort_1.TopLeftY ÷ 2

    .如果真 (ViewW ＜ 0.01)
      到循环尾 ()
    .如果真结束
    ViewW ＝ 1 ÷ ViewW
    BoxX0 ＝ SightX ＋ (ViewWorld.Data00 × 对象坐标.X ＋ ViewWorld.Data01 × (对象坐标.Y ＋ 12.5) ＋ ViewWorld.Data02 × 对象坐标.Z ＋ ViewWorld.Data03) × ViewW × SightX ＋ ViewPort_1.Width ＋ 0.5
    BoxY0 ＝ SightY － (ViewWorld.Data10 × 对象坐标.X ＋ ViewWorld.Data11 × (对象坐标.Y ＋ 12.5) ＋ ViewWorld.Data12 × 对象坐标.Z ＋ ViewWorld.Data13) × ViewW × SightY ＋ ViewPort_1.Height － 0.5
    BoxX1 ＝ SightX ＋ (ViewWorld.Data00 × 对象坐标.X ＋ ViewWorld.Data01 × (对象坐标.Y － 12.5) ＋ ViewWorld.Data02 × 对象坐标.Z ＋ ViewWorld.Data03) × ViewW × SightX ＋ ViewPort_1.Width ＋ 0.5
    BoxY1 ＝ SightY － (ViewWorld.Data10 × 对象坐标.X ＋ ViewWorld.Data11 × (对象坐标.Y － 12.5) ＋ ViewWorld.Data12 × 对象坐标.Z ＋ ViewWorld.Data13) × ViewW × SightY ＋ ViewPort_1.Height － 0.5
    Rect.left ＝ 到整数 (BoxX0 － (BoxY1 － BoxY0) ÷ 4)
    Rect.top ＝ 到整数 (BoxY0)
    Rect.right ＝ 到整数 (BoxX1 ＋ (BoxY1 － BoxY0) ÷ 4)
    Rect.bottom ＝ 到整数 (BoxY1)
    绘制矩形2 (Rect.left, Rect.top, Rect.right － Rect.left, Rect.bottom － Rect.top, 1, 转换颜色 (#红色, 40))









    .' 如果真 (WorldToScreen (对象坐标, sc))
      .如果真 (Sex ＝ 1)
            .判断开始 (j ＝ 15)
                m ＝ sc
            .判断 (j ＝ 16)
                m ＝ sc
            .判断 (j ＝ 27)
                m ＝ sc
            .判断 (j ＝ 28)
                m ＝ sc
            .判断 (j ＝ 29)
                m ＝ sc
            .判断 (j ＝ 30)
                m ＝ sc
            .判断 (j ＝ 31)
                m ＝ sc
            .判断 (j ＝ 32)
                m ＝ sc
            .判断 (j ＝ 34)
                m ＝ sc
            .判断 (j ＝ 36)
                m ＝ sc
            .判断 (j ＝ 37)
                m ＝ sc
            .判断 (j ＝ 47)
                m ＝ sc
            .判断 (j ＝ 48)
                m ＝ sc
            .判断 (j ＝ 49)
                m ＝ sc
            .判断 (j ＝ 43)
                m ＝ sc
            .判断 (j ＝ 26)
                m ＝ sc
            .判断 (j ＝ 50)
                m ＝ sc
            .判断 (j ＝ 51)
                m ＝ sc
            .判断 (j ＝ 52)
                m ＝ sc
            .判断 (j ＝ 55)
                m ＝ sc
            .判断 (j ＝ 56)
                m ＝ sc
            .判断 (j ＝ 57)
                m ＝ sc
            .判断 (j ＝ 58)
                m ＝ sc
            .判断 (j ＝ 59)
                m ＝ sc
            .判断 (j ＝ 35)
                m ＝ sc
            .判断 (j ＝ 46)
                m ＝ sc
            .判断 (j ＝ 47)
                m ＝ sc
            .判断 (j ＝ 48)
                m ＝ sc
            .判断 (j ＝ 54)
                m ＝ sc
            .默认

            .判断结束

      .如果真结束

      .如果真 (Sex ＝ 2)
            .判断开始 (j ＝ 36)
                f ＝ sc
            .判断 (j ＝ 42)
                f ＝ sc
            .判断 (j ＝ 34)
                f ＝ sc
            .判断 (j ＝ 17)
                f ＝ sc
            .判断 (j ＝ 30)
                f ＝ sc
            .判断 (j ＝ 31)
                f ＝ sc
            .判断 (j ＝ 61)
                f ＝ sc
            .判断 (j ＝ 57)
                f ＝ sc
            .判断 (j ＝ 47)
                f ＝ sc
            .判断 (j ＝ 66)
                f ＝ sc
            .判断 (j ＝ 67)
                f ＝ sc
            .判断 (j ＝ 59)
                f ＝ sc
            .判断 (j ＝ 32)
                f ＝ sc
            .判断 (j ＝ 45)
                f ＝ sc
            .判断 (j ＝ 64)
                f ＝ sc
            .判断 (j ＝ 18)
                f ＝ sc
            .判断 (j ＝ 56)
                f ＝ sc
            .判断 (j ＝ 29)
                f ＝ sc
            .判断 (j ＝ 60)
                f ＝ sc
            .判断 (j ＝ 33)
                f ＝ sc
            .判断 (j ＝ 46)
                f ＝ sc
            .判断 (j ＝ 19)
                f ＝ sc
            .默认

            .判断结束
            ' 调试输出 (sc.X, sc.Y, sc.Z)
      .如果真结束

    .如果真结束

.计次循环尾 ()

.如果真 (Sex ＝ 2)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)
    绘制直线 (f .X, f .Y, f .X, f .Y, 1, dwColor)

.如果真结束

.如果真 (Sex ＝ 1)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
    绘制直线 (m .X, m .Y, m .X, m .Y, 1, dwColor)
.如果真结束

查看完整版本: 火柴人绘制写法