无聊研究了2天 终于完成了 希望大家喜欢 不喜欢修改游戏的人别拿鸡蛋扔我哦 我的主页是: http://hi.baidu.com/ciw%5Fblue
里面有完整的代码.O(∩_∩)O哈哈~
功能:
1.无限物品
2.无限金钱
3.不遇敌人
4.无敌状态
5.物品列表(好像没有什么用,因为有点研究价值,就随便写了)
6.角色属性修改:
A.等级
B.攻击力
C.是否出场(\(^o^)/~,开始玩的时候马上就可以有4个人了)
D.等等.....
主要代码:
type
stGoodsInfo = record//物品结构
dwGoodsID:DWORD;//ID
dwGoodsAmount:DWORD;//数量
szName:PChar;//名称
szComment:PChar;//说明
szFunc:PChar;//作用
end;
type
stPlayerInfo = record//人物的角色对象
dwLevel:DWORD;
dwCurHP:DWORD;
dwCurMP:DWORD;
dwCurQi:DWORD;
dwMaxHP:DWORD;
dwMaxMP:DWORD;
dwGJ:DWORD;
dwFY:DWORD;
dwMJ:DWORD;
dwIsRun:DWORD;
dwIsExist:DWORD;
end;
var
Form1: TForm1;
szGameName:array[0..255] of char;
procedure GetGoods(nBagIndex, nGoodsIndex:integer; var stInfo:stGoodsInfo);
var
dwGoodsID:DWORD;//ID
dwGoodsAmount:DWORD;//数量
szName:PChar;//名称
szComment:PChar;//说明
szFunc:PChar;//作用
begin
asm
pushad
push nGoodsIndex//物品的索引
push nBagIndex//那个物品栏
mov edi, $004C56E0
call edi
mov ecx, eax
mov edi, $004C6C00
call edi//获取物品的指针
mov edi, [eax + 8]
mov dwGoodsAmount, edi
mov edi, [eax]//物品属性的指针
mov ecx, [edi]//物品的ID
mov dwGoodsID, ecx
mov ecx, [edi + $14]//物品名称的指针
mov szName, ecx
mov ecx, [edi + $24]//物品说明
mov szComment, ecx
mov ecx, [edi + $34]//物品作用
mov szFunc, ecx
popad
end;
stInfo.dwGoodsID:= dwGoodsID;
stInfo.dwGoodsAmount:= dwGoodsAmount;
stInfo.szName:= szName;
stInfo.szComment:= szComment;
stInfo.szFunc:= szFunc;
end;
function GetGoodsBagAmount(nBagIndex:integer):integer;
var
dwAmount:DWORD;
begin
asm
pushad
push nBagIndex //获取第n个物品栏的物品数量
mov edi, $004C56E0
