真正的无限刷女皇蜂，考验电脑的时候到了！！！！！！！！！！！！！！！！！！！！！！！！！！

lly000lly

上次发帖忘记了标明是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、键盘左方向键为复活小虫，键盘上方向键为增加复活数量，键盘下方向键为减少复活数量；

无限女皇蜂.CT (2.76 KB, 下载次数: 1694)

2012-10-8 22:26 上传

点击文件名下载附件