【天龙八部2】自动种地v1.1版 - 生活职业玩家的福音 [复制链接]

//使用说明： //1、屏幕分辨率1024*768 //2、游戏窗口全屏 //3、“令牌.bmp”和“全部拾取.bmp”图片放在Script文件夹里

//制作说明： //1、首先查找“稻草人”位置并点击它 //2、选择种植“早产”或者“晚产”植物(0、早产；1、晚产) //3、选择你要种的植物(按顺序从上往下0~7) //4、隔一段时间移动鼠标，当鼠标形状为“成熟”时收割 //5、选择“全部拾取” //6、返回4步骤，循环4次收割，然后返回1步骤

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★设★置★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//
//初始设置：

您所在的用户组无法下载或查看附件 //<>------------------------[选“植物成熟”鼠标形状] a1=1869203251

//<>------------------------[选择种植“早产”或者“晚产”植物(0、早产；1、晚产)] b1=0 您所在的用户组无法下载或查看附件 //下面用于计算选择位置(每个行间距26，+10为找到图Y坐标加10点) b2=b1*26+10

//<>------------------------[选择你要种的植物(按顺序从上往下0~7)] c1=0 您所在的用户组无法下载或查看附件 //下面用于计算选择位置(每个行间距26，+10为找到图Y坐标加10点) c2=c1*26+10

//〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓〓★开★始★〓〓〓〓〓〓〓〓〓〓〓〓☆〓〓//

Rem 脚本开始 您所在的用户组无法下载或查看附件 FindColorEx 260,160,760,560,&H00FFFF,0,0.9,x,y If x > 0 MoveToEx x+20,y+40 LeftClick 1 End If

//<>------------------------[] 您所在的用户组无法下载或查看附件 While 1=1 Delay 300 //找“令牌.bmp”当选择种某植物标记使用 FindPic 0,0,1024,768,"令牌.bmp",0.9,x,y If x > 0 MoveToEx x+50,y+b2 LeftClick 1 Goto 选作物结束 End If Wend

Rem 选作物结束 //<>------------------------[] 您所在的用户组无法下载或查看附件 While 1=1 Delay 1000 您所在的用户组无法下载或查看附件 //找“令牌.bmp”当选择种某植物标记使用 FindPic 0,0,1024,768,"令牌.bmp",0.9,x,y If x > 0 MoveToEx x+50,y+c2 LeftClick 1 Goto 选植物结束 End If Wend

Rem 选植物结束 FindColorEx 260,160,760,560,&H00FFFF,0,0.9,x,y If x > 0 //鼠标停留在植物上面 MoveToEx x-50,y End If //<>------------------------[等待成熟] 您所在的用户组无法下载或查看附件 While 1=1 Delay 500 您所在的用户组无法下载或查看附件 a2 = GetCursorShape(0) If a2=a1 Goto 成熟了 End If Wend

Rem 成熟了 您所在的用户组无法下载或查看附件 LeftDown 1 Delay 20 LeftUp 1 Gosub 全部拾取 MoveToEx x+70,y LeftDown 1 Delay 20 LeftUp 1 Gosub 全部拾取 MoveToEx x+70,y+100 LeftDown 1 Delay 20 LeftUp 1 Gosub 全部拾取 MoveToEx x-50,y+100 LeftDown 1 Delay 20 LeftUp 1 Gosub 全部拾取

Goto 脚本开始
EndScript

Sub 全部拾取 您所在的用户组无法下载或查看附件 //<>------------------------[等待收割] While 1=1 Delay 300 您所在的用户组无法下载或查看附件 //找“全部拾取.bmp”当选择种某植物标记使用 FindPic 0,0,1024,768,"全部拾取.bmp",1.0,x1,y1 If x1 > 0 MoveToEx x1+5,y1+5 LeftClick 1 Delay 100 Goto 收割结束 End If Wend Rem 收割结束 End Sub

俩工程师都出天龙的脚本

种1级的作物？

呵呵

我顶

几级都可以 自己设置下即可

我这个不用找图的,不防抢,800*600窗口,鼠标放到稻草人上现出对话特征才可以启动,启动后保持前台状态,大家试试再给点意见

UserVar zaoc=DropList{"早产":0|"晚产":1}=0 "选择种植方式"
UserVar leix=DropList{"第一行":1|"第二行":2|"第三行":3|"第四行":4|"第5行":5|"第六行":6|"第七行":7|"第八行":8|"第九行":9|"第十行":10|"第十一行":11|"第十二行":12}=3 "选择种植类型"
//得到鼠标指向的窗口句柄
Hwnd = Plugin.Window.MousePoint()
//得到窗口句柄的客户区大小
Rect = Plugin.Window.GetClientRect(Hwnd)
s=split(Rect,"|")
qx=s(0)
qy=s(1)
SaveMousePos
Rem 找稻草人
Call 随时检测()
GetCursorPos x, y
dx=x-80
dy=y-80
For 6
dx=x-80
For 6
MoveTo dx,dy
Delay 20
var = GetCursorShape(0)
If var=302826352 Then
Delay 20
LeftClick 1
Delay 700
Goto 选择早晚产
Else
End If
dx=dx+25
Next
dy=dy+25
Next
EndScript
Rem 选择早晚产
If zaoc=0 Then
Delay 30
MoveTo qx+100,qy+215
Else
MoveTo qx+100,qy+240
End If
Delay 100
LeftClick 1
Delay 800
//选择种植类型
n=1
hx=qx+100
hy=qy+165
For 12
If leix=n Then
MoveTo hx,hy
Delay 50
LeftClick 1
Delay 1000
MoveTo x+40,y
Delay 500
Goto 等待收割
Else
End If
hy=hy+26
n=n+1
Next
EndScript
Rem 等待收割
var2 = GetCursorShape(0)
If var2 =1869203251 Then
Call 收割()
Delay 500
RestoreMousePos
Goto 找稻草人
Else
End If
Delay 3000
Goto 等待收割
EndScript
Sub 收割()
For 2
dx=x-80
dy=y-80
For 5
dx=x-80
For 5
MoveTo dx,dy
Delay 20
var3 = GetCursorShape(0)
If var3 =1869203251 Then
Delay 20
LeftClick 1
Delay 7000
MoveTo qx+480,qy+288
Delay 100
LeftClick 1
Delay 500
Else
End If
dx=dx+40
Next
dy=dy+40
Next
Next
Delay 20
RestoreMousePos
Delay 300
Goto 找稻草人
End Sub

能教我怎么用吗???对了,是按键精灵还是按键盒子的

是盒子角本吗。过几天我也可以用呢

如果想要只种不收的话要删除掉那些，求高手指导

11111111111111

帅呆啦…………………………

...................

多谢楼主呀，我终于找到喜欢的了

不错 收下了

111111111111111111111111111111111111111111111111111

游戏找图 我想找游戏前景图 可是背景图是会动的这样应该怎么找图呢