传说奇迹(csqj.net)- 怀旧公益奇迹私服-今日新开千人火爆在线 musf 一切靠努力

标题: 挂机捡石头本 [打印本页]

作者: wangyp2 时间: 2016-4-25 22:20
标题: 挂机捡石头本
里面有运行说明.
回原位有点点误差,每次捡东西都会修正,不会出现挂一晚上从南跑到北的情况.\
[attach]12033[/attach]

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

作者: mu369652727 时间: 2016-4-25 22:57
光检石头不行啊。掉无敌咋办

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

作者: wangyp2 时间: 2016-4-26 00:23

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

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

作者: 665616 时间: 2016-4-26 00:29
这么厉害？？？？不行你把金币退我吗？

作者: 繁华丶 时间: 2016-4-26 02:22
大哥加个捡无敌吧

作者: VIP 时间: 2016-4-26 08:54
大家用了吗？能用吗？

作者: 尐少爺淲孑 时间: 2016-4-26 17:20
楼主好厉害你写了多久才写好

作者: shihuihui9 时间: 2016-4-26 17:23
好像用不了啊要什么要求么？

作者: 脚底泥 时间: 2016-4-26 19:40
不相信这玩意

作者: wangyp2 时间: 2016-4-26 20:05

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

大约8个小时左右吧.

作者: 风麒麟 时间: 2016-4-26 20:12
我来试试看能用不

作者: 尐少爺淲孑 时间: 2016-4-26 21:54

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

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

作者: 尐少爺淲孑 时间: 2016-4-26 21:55

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

又不花钱为啥不信

作者: 水中仙 时间: 2016-4-26 22:05
楼主..你这个行不行啊...我下载去试试

作者: MoonSorrow 时间: 2016-4-27 00:54
感谢楼主....需要提供任何的无敌图片你吆喝一声！

作者: MoonSorrow 时间: 2016-4-27 01:03
刚才试了一下，貌似不行啊楼主

作者: wangyp2 时间: 2016-4-27 07:36
算了,我把代码发了,你们自己截图自己写.

作者: wangyp2 时间: 2016-4-27 07:37
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 时间: 2016-4-27 09:49
只能捡石头对吧,要什么样的图片,我看看我能帮提供不?也可以联系精灵提供,,,

作者: 干煸四季豆 时间: 2016-4-27 10:07

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

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

欢迎光临传说奇迹(csqj.net)- 怀旧公益奇迹私服-今日新开千人火爆在线 musf 一切靠努力 (http://bbs.csqj.net/)

传说奇迹(csqj.net)- 怀旧公益奇迹私服-今日新开 千人火爆在线 musf 一切靠努力

传说奇迹(csqj.net)- 怀旧公益奇迹私服-今日新开千人火爆在线 musf 一切靠努力