挂机捡石头本

wangyp2

里面有运行说明.
回原位有点点误差,每次捡东西都会修正,不会出现挂一晚上从南跑到北的情况.\



另因没有无敌图片,所以捡不了无敌.

mu369652727

光检石头不行啊。掉无敌咋办

传说大魔头

厉害啊  不过会乱捡垃圾吗？    石头在垃圾下面这种情况

wangyp2

传说大魔头 发表于 2016-4-25 23:09
厉害啊  不过会乱捡垃圾吗？    石头在垃圾下面这种情况

肯定也是有点的,不过如果在古的话,大部分都捡的石头

665616

这么厉害？？？？不行你把金币退我吗？

繁华丶

大哥加个捡无敌吧

VIP

大家用了吗？能用吗？

尐少爺淲孑

楼主好厉害 你写了多久才写好

shihuihui9

好像用不了啊  要什么要求么？

脚底泥

不相信这玩意

wangyp2

尐少爺淲孑 发表于 2016-4-26 17:20
楼主好厉害 你写了多久才写好

大约8个小时左右吧.

风麒麟

我来试试看能用不

尐少爺淲孑

wangyp2 发表于 2016-4-26 20:05
大约8个小时左右吧.

好吧帅哥你辛苦了。帮我写个牛逼的pk本把。

尐少爺淲孑

脚底泥 发表于 2016-4-26 19:40
不相信这玩意

又不花钱为啥不信

水中仙

楼主..你这个行不行啊...我下载去试试

MoonSorrow

感谢楼主....需要提供任何的无敌图片你吆喝一声！

MoonSorrow

刚才试了一下，貌似不行啊楼主

wangyp2

算了,我把代码发了,你们自己截图自己写.

wangyp2

FindPic 0, 0, 1439, 899,"Attachment:\w1.bmp",1,intX,intY
Dim RX,RY,d,e,f,g,i, j, m, n, s, l,p,q,r,t,w,v,zb(255)
  d = Cint(Form1.InPutBox1.text)
  e = Cint(Form1.InPutBox2.text)
  f = Cint(Form1.InPutBox3.text)
  g = Cint(Form1.InPutBox4.text)
  p = Cint(Form1.InPutBox5.text)
  //挂机X轴坐标
  q = Cint(Form1.InPutBox6.text)
  //挂机Y轴坐标
  i = intX + 352
  //挂机中心点X坐标
  j = intY - 290
  //挂机中心点Y坐标
Function zbx()
  For RX = d To e Step 1
    zb(RX) = "Attachment:\" & RX & ".bmp"
    FindPic intX-34, intY-542, intX-9, intY-515, zb(RX), 1,intM, intN
      If intM > 0 And intN > 0 Then
       zbx=RX
     Exit For
      End If
  Next       
End Function
//获取当前X坐标
Function zby()
  For RY = f To g Step 1
    zb(RY) = "Attachment:\" & RY & ".bmp"
    FindPic intX-11, intY-542, intX+15, intY-515, zb(RY), 1,intH, intI
     If intH > 0 And intI > 0 Then
      zby=RY
    Exit For
     End If
  Next               
End Function
//获取当前Y坐标
sub finpic(a, b)
  m = a + 30
  //找到物品点X坐标
  n = b + 25
  //找到物品点Y坐标
  s = 2*i - m
  l = 2*j -n
  KeyPress "F10", 1
    Delay 100
  MoveTo m, n
  //移到物品处
    Delay 200
  LeftDown 1
    Delay 200
  LeftUp 1
    Delay 2000
  MoveTo s, l
  //移回原位
    Delay 100
  LeftDown 1
    Delay 200
  LeftUp 1
    Delay 2000
  MoveTo i,j
  t = zby()
  //回位后Y坐标
  v = j + 38 * t - 38 * q
  MoveTo i, v
    LeftDown 1
     Delay 300
    LeftUp 1
     Delay 300
  r = zbx()
  w = i - 23 * r + 23 * p
  v = j - 23 * r + 23 * p
  MoveTo w,v
    LeftDown 1
     Delay 300
    LeftUp 1
     Delay 300
  KeyPress "F10", 1
End Sub
If intX > 0 And intY > 0 Then        
While true
  MoveTo i, j
  If Form1.CheckBox6.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\zs.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
   
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox4.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\cz.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox1.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\zf.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox2.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\lh.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox3.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\sm.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox7.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\sh.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End If
   If Form1.CheckBox8.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\my.bmp",1,logox,logoy
    If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
    End If
   End if
   If Form1.CheckBox9.Value = 1 Then
    FindPic 0,0,1439,899,"Attachment:\wd.bmp",1,logox,logoy
     If logox > 0 And logoy > 0 Then
            Call finpic(logox,logoy)
     End If
    End if
Wend
End If

herowr

只能捡石头对吧,要什么样的图片,我看看我能帮提供不?也可以联系精灵提供,,,

干煸四季豆

wangyp2 发表于 2016-4-26 00:23
肯定也是有点的,不过如果在古的话,大部分都捡的石头

把无敌套,加进去啊,有使用说明么?我等会去下来试试,