最近放假了,在学校玩的无聊,把以前的传奇号找回来玩,才知道那个该死的陈天桥同志把外挂封干净了,像我这种一没装备二没钱的实在混不下去,网友发给我个按键精灵的自动挖矿脚本,但那个我用起太不方便了,先是不能自动丢矿,解决后还是觉得不好用,希望找个懂的朋友一起研究下,纯粹是娱乐为主哈

[此贴子已经被作者于2007-1-19 16:09:18编辑过]

(※来源：中国Photoshop资源网 http://www.86ps.com※)

没人来帮我啊,我研究了一天,终于对了点点,不敢独想，把脚本发给大家，论坛里要玩传奇的来看看

For 4
    Rem ==========向右移动并挖（共8次）==========
    For 5
        IfColor 60 475 ff 1
            KeyDown 18 1
            KeyPress 88 1
            KeyUp 18 1
            MoveTo 420 350
            Delay 200
            LeftClick 1
            MoveTo 420 350
            Delay 200
            LeftClick 1
            Delay 500
            KeyPress 109 1
        EndIf
        VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
        If intX=-1 and intY=-1
            KeyPress 119 1
        EndIf
        MoveTo 271 48
        Delay 2000
        RightDown 1
        Delay 1000
        RightClick 1
        MoveTo 521 93
        Delay 1000
        RightDown 1
        Delay 500
        RightClick 0.5
        Delay 1000
        LeftClick 1
        Delay 4000
        LeftClick 1
        Delay 30000
        VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"jin.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
    EndFor
    Rem ==========向左移并挖（共8次）==========
    For 9
        IfColor 60 475 ff 1
            KeyDown 18 1
            KeyPress 88 1
            KeyUp 18 1
            MoveTo 420 350
            Delay 200
            LeftClick 1
        EndIf
        VBSCall Call FindPic(1,1,799,400,"84.bmp",0.9,intX,intY)
        If intX=-1 and intY=-1
            KeyPress 119 1
        EndIf
        MoveTo 481 257
        Delay 2000
        RightDown 1
        Delay 500
        RightClick 0.5
        MoveTo 521 93
        Delay 1000
        RightDown 1
        Delay 1000
        RightClick 1
        Delay 1000
        LeftClick 1
        Delay 4000
        LeftClick 1
        Delay 30000
        VBSCall Call FindPic(2,200,330,380,"ton.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"tie.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"yin.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
        VBSCall Call FindPic(2,200,330,380,"jin.bmp",1,intX,intY)
        If intX>=0 and intY>=0
            VBSCall Call SetCursorPos(intX,intY)
            LeftClick 1
            Delay 500
            MoveTo 100 100
            LeftClick 1
            Delay 1000
        EndIf
    EndFor
EndFor
KeyPress 49 1
Rem ==========这是结尾，无限循环到人工中止==========

调用了下别人的丢矿语句和一些相关文件，此脚本还无法丢矿

(※来源：中国Photoshop资源网 http://www.86ps.com※)

呵呵~

偶从不玩网游的

(※来源：中国Photoshop资源网 http://www.86ps.com※)