奇迹挂机捡东西脚本 [复制链接]

首先声明:本人属于菜鸟级别,纯手动自己编写,大神可给出简化思路. 玩奇迹多年，一直盯着屏幕看东西太累了，做个简单脚本让角色自己捡东西，定点刷怪(捡东西后回定点坐标),误捡物品自动扔出,脚本比较啰嗦，希望对新人能有帮助。
我是使用的大漠插件，识别奇迹里的坐标及掉物品名称，字库附后，游戏分辨率800*600
有兴趣的可以留言讨论。字库文件要放到E:\damo2\


[hide]
Set dm = createobject("dm.dmsoft")

dm.setpath "E:\damo2"

dm.setdict 0, "mu3.txt"

hwnd = dm.getmousepointwindow()


dm_ret = dm.BindWindow(hwnd, "normal", "normal", "normal", 0)

Delay 200


s = dm.Ocr(19,3,41,17, "ffffff-000000", 1.0)


t = dm.Ocr(41,2,66,19, "ffffff-000000", 1.0)


x1 = s + 1

x2 = s - 1

y1 = t + 1

y2 = t - 1

yidong = 0

anjian = 50


Rem a

If yidong - 40 > 0 Then
    yidong = 0
    Goto w
End If



dm_ret = dm.findstr(0, 0, 2000, 2000, "雅|宝|石|祝|再|生|守|国|创", "ffcc19-000000", 1.0, intx, inty)
If intx > 0 Then
dm.RightUp
Delay 100
dm.moveto intx + yidong, inty + 30
Delay 100
dm_ret = dm.findstr(0, 0, 2000, 2000, "雅|宝|石|祝|再|生|守|国|创", "ffcc19-000000", 1.0, intx2, inty2)
daxiao = inty - inty2
    
    If daxiao = 0 Then
    
    yidong = yidong + 10
    
    dm.leftclick
    Delay 50
        Goto a
        Else
        Delay 150
        
        dm.leftdown
        Delay 80
        dm.leftup
        Delay 1800
        yidong = yidong + 10
        
        Goto a


End If

Else


    Goto b

End If
    
    Rem b

If yidong - 60 > 0 Then
    yidong = 0
    Goto w
End If



dm_ret = dm.findstr(0, 0, 2000, 500, "烂|的|智", "b2b2b2-000000", 1.0, intx, inty)
If intx > 0 Then
dm.RightUp
Delay 100
dm.moveto intx + yidong, inty + 30
Delay 100
dm_ret = dm.findstr(0, 0, 2000, 500, "烂|的|智", "b2b2b2-000000", "ffcc19-000000", 1.0, intx2, inty2)
daxiao = inty - inty2
    
    If daxiao = 0 Then
    
    yidong = yidong + 10
    
    dm.leftclick
    Delay 50
        Goto b
        Else
        Delay 150
        
        dm.leftdown
        Delay 80
        dm.leftup
        Delay 1800
        yidong = yidong + 10
        
        Goto a


End If

Else


    Goto c

End If

//套装




Rem c


If yidong - 100 > 0 Then
    yidong = 0
    Goto w
End If



dm_ret = dm.findstr(0, 0, 2000, 500, "帕|希|露|汉|斯|亚|特|阿|莱|的", "00ff00-000000", 1.0, intx, inty)
If intx > 0 Then
dm.RightUp
Delay 100
dm.moveto intx + yidong, inty + 30
Delay 100
dm_ret = dm.findstr(0, 0, 2000, 500, "帕|希|露|汉|斯|亚|特|阿|莱|的", "00ff00-000000", 1.0, intx2, inty2)
daxiao = inty - inty2
    
    If daxiao = 0 Then
    
    yidong = yidong + 10
    
    dm.leftclick
    Delay 50
        Goto c
        Else
        Delay 150
        
        dm.leftdown
        Delay 80
        dm.leftup
        Delay 1800
        
        yidong = yidong + 10
        Goto c


End If

Else


    Goto d

End If
    















//卓越

Rem d
If yidong - 60 > 0 Then
    yidong = 0
    Goto w
End If



dm_ret = dm.findstr(0, 0, 2000, 500, "手|腿|盔|靴|杖|剑|刀", "19ff7f-000000", 1.0, intx, inty)
If intx > 0 Then
dm.RightUp
Delay 100
dm.moveto intx + yidong, inty + 30
Delay 100
dm_ret = dm.findstr(0, 0, 2000, 500, "手|腿|盔|靴|杖|剑|刀", "19ff7f-000000", 1.0, intx2, inty2)
daxiao = inty - inty2
    
    If daxiao = 0 Then
    
    yidong = yidong + 10
    
    dm.leftclick
    Delay 50
        Goto d
        Else
        Delay 150
        
        dm.leftdown
        Delay 80
        dm.leftup
        Delay 1800
        
        yidong = yidong + 10
        Goto d


End If

Else


    Goto e

End If
    


//冰霜武器

Rem e
If yidong - 60 > 0 Then
    yidong = 0
    Goto w
    
End If



dm_ret = dm.findstr(0, 0, 2000, 500, "致|命|双|子|魔|狱", "b266ff-000000", 1.0, intx, inty)
If intx > 0 Then
dm.RightUp
Delay 100
dm.moveto intx + yidong, inty + 30
Delay 100
dm_ret = dm.findstr(0, 0, 2000, 500, "致|命|双|子|魔|狱", "b266ff-000000", 1.0, intx2, inty2)
daxiao = inty - inty2
    
    If daxiao = 0 Then
    
    yidong = yidong + 10
    
    dm.leftclick
    Delay 50
        Goto e
        Else
        Delay 150
        
        dm.leftdown
        Delay 80
        dm.leftup
        Delay 1800
        yidong = yidong + 10
        Goto e


End If

Else


    Goto y

End If
    
    
Rem w

dm_ret = dm.findstr(2,450,140,473, "装备栏满了", "6496ff-000000", 1.0, intx, inty)
If intx > 0 Then

Delay 100
Call 扔装备
Goto z
Else


Goto a
End If        










Rem y
s = dm.Ocr(19,3,41,17, "ffffff-000000", 1.0)


t = dm.Ocr(41,2,66,19, "ffffff-000000", 1.0)

Delay 100

If s - x1 > 0 Then


    
    dm.MoveTo 285, 209
    Delay 50
     dm.Leftdown
     Delay 200
    
     dm.leftup
     Delay 50
     ElseIf s - x2 < 0 Then
    
    
    
    
     Delay 50
     dm.MoveTo 446, 288
     Delay 80
     dm.Leftdown
     Delay 200
    
     dm.leftup
     Delay 50
     End if
    
    If t - y1 > 0 Then
    
    dm.MoveTo 343,296
    Delay 50
     dm.Leftdown
     Delay 200
    
     dm.leftup
     Delay 50
     ElseIf t - y2 < 0 Then
    
     Delay 50
     dm.MoveTo 452, 208
     Delay 80
     dm.Leftdown
     Delay 200
    
     dm.leftup
     Delay 50
     dm.moveto 400,240
    
     End if
    
    



Rem z

dm.keyup 164
Delay 50



dm.rightdown


dm.keydown 164



    Goto a
    




Sub 扔装备
    

//打开背包
dm.keydown 86
Delay 200
dm.keyup 86
Delay 400
//扔东西
x = 595
y = 310

For 3
dm.moveto x, y
Delay 300


Call reng
x = x + 50
Delay 200
next
x = 595
y = 360
For 3
dm.moveto x, y
Delay 300


Call reng
x = x + 50
Delay 200
Next

x = 595
y = 410



For 3
dm.moveto x, y
Delay 300


Call reng
x = x + 50
Delay 200
next
//关闭背包
dm.keydown 86
Delay 200
dm.keyup 86
Delay 400
dm_ret = dm.findstr(603,20,684,47, "套装属性", "ffcc19-000000", 1.0, intx, inty)
If intx > 0 Then
Delay 300
dm.keydown 86
Delay 200
dm.keyup 86
Delay 400
Else
Goto y
end if

End Sub

Sub reng
    
Delay 100
LeftDown 1
LeftClick 1
LeftUp 1
Delay 300
dm.moveto 315, 359
Delay 200
LeftDown 1
LeftClick 1
LeftUp 1
Delay 100


End Sub
    
Sub 换闪电
Delay 100
    dm.KeyPress anjian
Delay 100
anjian = anjian + 1
If anjian - 52 = 0 Then
    anjian = 50
    
End If
End Sub


Sub 安宁挂机
    If t - 100 > 0 and t - 120 < 0 Then
    
    EndScript
    
    dm.keypress 27
    Delay 100
    dm.keypress 27
    Delay 100
End If

End Sub

Sub 读血加
    

color1 = dm.GetColor(227, 549)

color2 = dm.GetColor(229, 563)

color3 = dm.GetColor(229, 577)

If color3= "141414" Then
    Delay 50
    dm.KeyPress 81
    Delay 50
    dm.KeyPress 87
    Delay 50
    dm.KeyPress 69
    Delay 50
    dm.KeyPress 82
    Delay 50
    End If

    If color2 = "272727" Then
    Delay 50
    dm.KeyPress 81
    Delay 50
    dm.KeyPress 87
    Delay 50
    dm.KeyPress 69
    Delay 50
    
End If
If color1 = "303030" Then
Delay 50
    dm.KeyPress 81
    Delay 50
    End If
End Sub

dm_ret = dm.unbindwindow

[/hide]