你的位置：
做了一个魔域自动合宝宝的
大家给点意见。。。
20:02:04 |
来源: 按键精灵资源站
//新手&&做了一个魔域自动合宝宝的&&大家给点意见。。。
//老头的位置
GetCursorPos x,y
MoveTo 645, 741
LeftClick 1
IfColor 654,510,&0D0D0D&,0 Then
KeyPress &Esc&, 1
Call 合宝宝合10次()
MoveTo 579, 676
LeftClick 1
Call 自动查找25X的位置()
Call 自动查找阳光经验球的位置()
Call 自动查找幸运草位置()
Rem 自动循环
//魔石商店位置
MoveTo 579, 676
LeftClick 1
Call 要翻几页25X()
MoveTo a2+15, b2+15
RightClick 1
//用送的魔石买
MoveTo 524, 585
LeftClick 1
MoveTo 522, 648
LeftClick 1
//阳光经验球
Call 要翻几页经验球()
MoveTo a3+15, b3+15
RightClick 1
//用送的魔石买
KeyPress &Enter&, 1
MoveTo 522, 648
LeftClick 1
Call 要翻几页幸运草()
MoveTo a1+15, b1+15
RightClick 1
//用送的魔石买
MoveTo 527, 585
LeftClick 1
MoveTo 522, 648
LeftClick 1
Call 把宝宝和球点开()
MoveTo 516, 426
LeftClick 1
KeyPress &Esc&, 1
Call 合宝宝合10次
Goto 自动循环
Sub 合宝宝合10次()
For i=1 To 10
Rem 自动合宝宝合10次
MoveTo x, y
LeftClick 1
FindColorEx 691,150,697,154,&080C10&,0,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo 333, 339
LeftClick 1
Goto 自动合宝宝合10次
FindColorEx 653,51,660,60,&FFFFEF&,0,0.9,intX,intY
If intX & 0 And intY & 0 Then
MoveTo 706, 101
LeftClick 1
KeyPress &Esc&, 1
Goto 自动合宝宝合10次
MoveTo 474, 441
LeftClick 1
Rem 放主宝宝
MoveTo 757, 74
LeftClick 1
GetCursorPos x1,y1
IfColor x1,y1,&F7F7F7&,0 Then
MoveTo 187, 376
RightClick 1
Goto 放主宝宝
LeftClick 1
shape2 = GetCursorShape(1)
If shape2=&& Then
RightClick 1
Goto 放主宝宝
Rem 放副宝宝
MoveTo 752, 147
LeftClick 1
GetCursorPos x1,y1
IfColor x1,y1,&FFF3F7&,0 Then
MoveTo 350, 384
RightClick 1
Goto 放副宝宝
LeftClick 1
shape2 = GetCursorShape(1)
If shape2=&& Then
RightClick 1
Goto 放副宝宝
MoveTo 195, 551
LeftClick 1
MoveTo 480, 426
LeftClick 1
IfColor 664,500,&0B0B0B&,0 Then
KeyPress &Esc&, 1
Sub 自动查找幸运草位置()
FindPic 295,194,520,488,&Attachment:\幸运草.bmp&,0.6,a1,b1
If a1 & 0 And b1 & 0 Then
MoveTo a1+15, b1+15
MoveTo 642, 117
MoveTo 450, 500
LeftClick 1
FindPic 295,194,520,488,&Attachment:\幸运草.bmp&,0.6,a1,b1
If a1 & 0 And b1 & 0 Then
MoveTo 642, 117
Sub 自动查找25X的位置()
FindPic 295,194,520,488,&Attachment:\25X位置.bmp&,0.6,a2,b2
If a2 & 0 And b2 & 0 Then
MoveTo a2+15, b2+15
MoveTo 642, 117
MoveTo 450, 505
LeftClick 1
FindPic 295,194,520,488,&Attachment:\25X位置.bmp&,0.6,a2,b2
If a2 & 0 And b2 & 0 Then
MoveTo 642, 117
Sub 自动查找阳光经验球的位置()
FindPic 295,194,520,488,&Attachment:\阳光经验球位置.bmp&,0.6,a3,b3
If a3 & 0 And b3 & 0 Then
MoveTo a3+15, b3+15
MoveTo 642, 117
MoveTo 450, 505
LeftClick 1
FindPic 295,194,520,488,&Attachment:\25X位置.bmp&,0.6,a3,b3
If a3 & 0 And b3 & 0 Then
MoveTo 642, 117
Sub 要翻几页25X()
If i1&0 Then
MoveTo 450, 505
LeftClick i1
Sub 要翻几页经验球()
If i2&0 Then
MoveTo 450, 505
LeftClick i2
Sub 要翻几页幸运草()
If i0&0 Then
MoveTo 450, 505
LeftClick i0
Sub 把宝宝和球点开()
For i=1 To 10
MoveTo 664, 519
RightClick 1
GetColor=GetPixelColor(654,497)
If GetColor&&&019557& Then
MoveTo 664, 519
RightClick 1
MoveTo 735, 285
新手&&做了一个魔域自动合宝宝的&&大家给点意见。。。
( 19:58:41, Size: 4.64 KB, Downloads: 185)