中级玩家
 
- 贡献度
- 12
- 金元
- 1659
- 积分
- 214
- 精华
- 0
- 注册时间
- 2009-11-9
|
本帖最后由 lly000lly 于 2012-10-8 22:27 编辑
上次发帖忘记了标明是POX911兄原创，我这里表示道歉；
这次POX911兄修正了原来刷小虫养蜂的过程，可以一次到位，小虫直接孵化出女皇蜂，无需多次孵化；
原帖：http://forum.cheatengine.org/viewtopic.php?t=557381&postdays=0&postorder=asc&start=840
代码如下（为了不和一些特殊按键冲突，我修正了一下按键，你也可以自己修改）：
ObjScan = createMemScan()
BaseAddress = getAddress('[[[[["Borderlands2.exe"+015B2260]+38]+2BC]+358]+1E4]+0')
Count = 0
ObjResult = {}
CurrentObj = 0
AdultVarkidAddress = 0
function DenFind()
memscan_firstScan(ObjScan,soExactValue,vtDword,"",BaseAddress,"0","0x00000000","0x70000000","",fsmAligned,"4",false,false,true,false)
memscan_waitTillDone(ObjScan)
ObjResult = createFoundList(ObjScan)
foundlist_initialize(ObjResult)
Count = foundlist_getCount(ObjResult) - 1
CurrentObj = 1
showMessage("Found " .. Count .. " Enemy Spawns")
end
createHotkey("DenFind",45)
function KillReset()
for i=1,Count do
local offset = foundlist_getAddress(ObjResult,i)
local address = getAddress(offset .. "+84")
writeInteger(address,0)
end
end
function MaxUp()
for i=1,Count do
local offset = foundlist_getAddress(ObjResult,i)
local address = getAddress(offset .. "+60")
local CurVal = readInteger(address)
writeInteger(address,CurVal + 1)
end
end
function MaxDown()
for i=1,Count do
local offset = foundlist_getAddress(ObjResult,i)
local address = getAddress(offset .. "+60")
local CurVal = readInteger(address)
if CurVal > 1 then
writeInteger(address,CurVal - 1)
end
end
end
createHotkey("KillReset",37)
createHotkey("MaxUp",38)
createHotkey("MaxDown",40)
function VarkidSwap()
for i=3,Count-2 do
local offset = foundlist_getAddress(ObjResult,i)
if readInteger(getAddress("[" .. offset .. "+24]+44")) == 2 then
if readInteger(getAddress("[[" .. offset .. "+24]+40]+2c")) == 990057071 then
AdultVarkidAddress = "[[" .. offset .. "+24]+40]+0"
--showMessage("AdultVarkidFound = " .. AdultVarkidAddress)
end
end
end
local VarScan = createMemScan()
local Varkid = readInteger('[' .. AdultVarkidAddress .. ']+0')
memscan_firstScan(VarScan,soExactValue,vtDword,"",Varkid,"0","0x00000000","0x70000000","",fsmAligned,"4",false,false,true,false)
memscan_waitTillDone(VarScan)
local VarResult = createFoundList(VarScan)
foundlist_initialize(VarResult)
local VarCount = foundlist_getCount(VarResult) - 1
--showMessage("Found " .. VarCount .. " Enemy Spawns")
for i=1,VarCount do
local offset = foundlist_getAddress(VarResult,i)
if readString(getAddress("[[[" .. offset .. "+AC]+44]+4]+0"),10,true) == "Vermi" then
showMessage("Adult Varkids Replaced with Vermi")
writeInteger(getAddress(AdultVarkidAddress),getAddress(offset))
end
end
end
createHotkey("VarkidSwap",39)
解释下用法：
1、前面的和以前一样，我不多说；
2、先按<Insert>搜索怪，然后等小虫出来后，按键盘右方向键就可以让小虫直接孵化成女皇蜂；
3、键盘左方向键为复活小虫，键盘上方向键为增加复活数量，键盘下方向键为减少复活数量；
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看，没有帐号？注册
x
评分
-
8
查看全部评分
-
|
[复制链接]
发表于 2012-10-8 00:07
收藏
楼主![滑稽[永久版]](static/image/common/medal266.gif)
