求助！传奇找怪！

feichuan

能先做一个找怪打怪的脚本就行。传奇的怪的显示方式在用抓抓工具抓取时，图片呈高亮显示。而正常窗口里的怪都不是高亮显示的，这样抓的图与屏幕中正常显示的图不一样，怎么能选中怪呢？求解。

wutao2361

找了一个按键精灵的“传奇源码”
说是前几行有错误，（应该是找窗口有错误吧，这个用TC很简单，不多说上码，自已改）
Hwnd = Plugin.Window.Find(0, "传奇")
sRect = Plugin.Window.GetClientRect(Hwnd)
Dim MyArray
MyArray=Split(Rect,"|")
Ux=CLng(MyArray(0))
Uy=CLng(MyArray(1))

Rem 战斗开始
FindCenterColor 64+Ux,87+Uy,666+Ux,363+Uy,"00009C",intX,intY
If intX > 0
MoveTo intX+15,intY+25
Delay 500
KeyPress "M", 1
Rem 战斗中
Delay 100
    LeftClick 1
    Delay 1000
    MoveTo intX + 15, intY + 25
    Delay 5000
    LeftClick 1
    Delay 1000
KeyPress "H", 1
Delay 8000
    IfColor intX,intY,"0",1 Then
Call 寻怪()
End If
Else
    Goto 战斗中
End If
Delay 5000
Goto 战斗开始
Sub 寻怪()
    Randomize
n = Int(rnd * 4)
If n = 0
MoveTo 261, 108
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
        
        If n = 1 Then
MoveTo 231, 295
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
If n = 2 Then
MoveTo 557, 97
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
If n = 3 Then
MoveTo 525, 322
RightDown 1
Delay 5000
RightUp 1
Delay 50
End If
End Sub

751983200

我顶顶顶。顶你个肺

bucks1964

菜鸟学脚本 怎么找能发个教材我么?qq:740623040

huayr

新手围观中......

feichuan

几天了，没见人回复。无助啊

feichuan

请高手现身！新手恭候。

feichuan

怎么没人用TC做过自动打怪的脚本吗？给点建议也行。先谢谢了。

wangfq19841019

在游戏中找图却是不好找，正在寻找解决方法，有能给点建议的么？

feichuan

内存找不到啊，不是都有GPK保护吗？最好就用TC解决啊。