ClMain单元文件解析

admin

GetBagItems--------------------------------显示背包内物品图片
GetHumEx……………………………………..显示人物背景上的图象
GetHairEx………………………………………显示人物的头发
GetStateitemEx………………………………人物装备拦显示装备图片
GetStateitem
GetWeaponEx ………………………………..武器显示
GetNpcEx………………………………………..NPC显示
GetMMap………………………………………显示小地图
GetTiles………………………………………….显示砖瓦
GetSmTiles……………………………………..显示小块砖瓦
GetDnItems…………………………………….掉落到地上的物品
GetObjs…………………………………………..物体显示
GetObjsEx
ProcOnIdle？？？？？？？？？？？？？？？？
AppOnIdle………………………………………显示鼠标、键盘事件，人物时间等
AppLogout………………………………………退出游戏（小退）
AppExit…………………………………………..关闭应用程序
PrintScreenNow……………………………..屏幕截图
ProcessKeyMessages……………………..键盘消息（魔法快捷键）
ProcessActionMessages…………………攻击时的人物方向等..走，跑等
FormKeyDown……………………………….键盘消息
FormKeyPress
GetMagicByKey………………………………点快捷键释放魔法
UseMagic………………………………………用户魔法
GetItem…………………………………………
FormKeyPress………………………………..键盘输入（主要是聊天内容）
GetMagicByKey……………………………..快捷键释放魔法
UseMagic………………………………………使用魔法（魔法、毒符的一些限定）
UseMagicSpell………………………………毒符魔法
UseMagicFire………………………………..火魔法
UseMagicFireFail…………………………..烈火失败
GetItem………………………………………..吃药等
AutoEatItem………………………………….自动治疗
EatItem………………………………………….吃药
TargetInSwordLongAttackRange……………………. 在魔法欲攻击目标范围
ClientGetMapDescription--------------------------显示小地图

GetBagItems
1.程序代码如下
function TaFrmMain.GetBagItems(idx: Integer): TDirectDrawSurface;   //绘制背包内物品图片
begin
  if UseBagItem and (Mirorsf = 0) then
  Begin
    Result := WBagItem1.Images[idx];      //调用  Data\Items.wil  文件
    if Result=nil then
       Result := WBagItem.Images[idx];
  End
  else
    Result := WBagItem.Images[idx];

end;
2.调用该函数的  过程或函数如下：
TaFrmMain.AppOnIdle

{//六格快捷物品栏}
procedure TFrmDlg.DBelt1DirectPaint
procedure TFrmDlg.DItemGridGridPaint
procedure TFrmDlg.DSellDlgSpotDirectPaint
procedure TFrmDlg.DDGridGridPaint
procedure TFrmDlg.DDRGridGridPaint