上一页 1 2 3 4 5 6 7 ··· 10 下一页
摘要: IntroScn.pas 嗟夫DELPHI 输入法相关知识凡是窗口类 都有TImeMode 这是个集合 其中包含有: TImeMode = (imDisable, imClose, imOpen, imDontCare,imSAlpha, imAlpha, imHira, imSKata, imKa 阅读全文
posted @ 2024-05-07 22:34 D7mir 阅读(57) 评论(0) 推荐(0)
摘要: 绘图关键的数据地图客户区,以主角的地图坐标为中心左右各9格,上下9,8格一切以主角为中心进行计算,换算。Map.m_ClientRectLeft := g_MySelf.m_nRx - 9; Top := g_MySelf.m_nRy - 9;Right := g_MySelf.m_nRx + 9; 阅读全文
posted @ 2024-05-07 22:32 D7mir 阅读(31) 评论(0) 推荐(0)
摘要: 本单元提供系统中的所有对话框显示 MAINIMAGEFILE = 'Data\Prguse.wil';MAINIMAGEFILE2 = 'Data\Prguse2.wil';MAINIMAGEFILE3 = 'Data\Prguse3.wil';CHRSELIMAGEFILE = 'Data\Chr 阅读全文
posted @ 2024-05-07 22:31 D7mir 阅读(26) 评论(0) 推荐(0)
摘要: 定义类型 这里的魔法效果,是扔出去的魔法效果,魔法释放后的效果在施咒的动作的,如火球术的施咒效果图样是在自身的,却不在这里,由Actor单元里面实现有个m_nCurEffFrame, 但是奇怪的是空间移动,是图样是在于自身这些效果,又是由本单元里面实现的。 TMagicType 枚举开头mt mtR 阅读全文
posted @ 2024-05-07 22:29 D7mir 阅读(25) 评论(0) 推荐(0)
摘要: 这个里面是绘图,有汇编, 那个绘画效果的汇编看明白了,实际是先建立了一个颜色的转换索引表,颜色对应下标,数据是转换后的颜色在绘画效果中用函数功能找到混合表面的的指针,锁定它用汇编语言,将混合表面的每一个像素查找转换索引表,转换过去。因为用了MM0寄存器,这是个MMX的指令里面的,它是64位的,所以有 阅读全文
posted @ 2024-05-07 22:27 D7mir 阅读(37) 评论(0) 推荐(0)
摘要: procedure TfrmMain.ClientGetMyMagics(body: string);var i: integer; data: string; pcm: PTClientMagic;begin for i := 0 to g_MagicList.Count - 1 do Dispo 阅读全文
posted @ 2023-11-30 14:56 D7mir 阅读(40) 评论(0) 推荐(0)
摘要: frmMain中的网络消息的处理流程接受消息处理 TfrmMain.CSocketRead 接收服务器传来的消息,字符串格式, 如果字符串中有*号,去掉* 号 ,并 回传 * 号给服务器没有 * 号的 字符串加入到SocStr字符串变量中 Timer1Timer,定时器 10毫秒设置 开关,锁定,避 阅读全文
posted @ 2023-11-28 22:37 D7mir 阅读(109) 评论(0) 推荐(0)
摘要: 原始翎风CLIENT8位 DWinCtl单元DWinCtl单元它注册了组件,可以显示在D7的组件栏上RegisterComponents('MirGame', [TDWinManager, TDControl, TDButton, TDGrid, TDWindow]);组件名MirGame,里面有5 阅读全文
posted @ 2023-10-31 10:14 D7mir 阅读(100) 评论(0) 推荐(0)
摘要: 原始翎风CLIENT8位frmMain 下的 OnIdle 事件 在frmMain的Create 中Application.OnIdle := AppOnIdle; //程序空闲事件 的方法 procedure AppOnIdle (Sender: TObject; var Done: Boolea 阅读全文
posted @ 2023-10-22 09:04 D7mir 阅读(55) 评论(0) 推荐(0)
摘要: 原始翎风CLIENT8位frmMain 下的 CSocket控件 属性:在frmMain的FormCreate中g_ConnectionStep := cnsLogin 设置为登陆方式g_boSendLogin:=Falseg_boServerConnected := FALSE 根据读取的mir. 阅读全文
posted @ 2023-10-21 16:46 D7mir 阅读(47) 评论(0) 推荐(0)
上一页 1 2 3 4 5 6 7 ··· 10 下一页