魔兽世界-按键精灵脚本(1)-自动小宠物战斗

这个脚本主要是为了练低级宝宝

// 4,3 --> 换出宝宝
changePet 3
wait_round 
// 4,1 --> 换出满级猫
changePet 1
wait_round 
// MsgBox "ok"
//ExitScript
Rem _fighting
ai
wait_round 
If isEnd <> true Then 
    Goto _fighting
End If
MsgBox "结束"
Sub ai
    c= GetPixelColor (1022,86)
    TracePrint c
    IfColor 1022, 86, "000000", 2 Then
        KeyPress 51, 1
    Else 
        KeyPress 49, 1
    End If	
End Sub
Sub changePet(n)
    Dim xarr
    xarr=Array(480, 690, 900)
    y = 590
    //    TracePrint xarr(n - 1)
    KeyPress 52, 1
    Delay 200
    MoveTo xarr(n - 1), y
    Delay 500
    LeftClick 1
    Delay 500
End Sub
Sub wait_round
    Rem _wait
    flag = isWaiting()
    If flag = true Then 
        Delay 400
        Goto _wait
    End If
    Delay 400
End Sub
Function getS(x, y)
    c=GetPixelColor ( x,y)
    Plugin.Color.ColorToHSL c, h, s, l
    getS=s
End Function
Function isWaiting
    s1 = getS(415, 686)
    s2 = getS(480, 686)
    s3 = getS(540, 686)
    //    TracePrint cstr(s1)+"|"+cstr(s2)+"|"+cstr(s3)
    If s1 = 0 and s2 = 0 and s3 = 0 Then 
        isWaiting = True
    Else 
        isWaiting= False
    End If
End Function
Function isEnd
    IfColor 674, 52, "00D1FF", 1 Then
        isEnd = True
    Else 
        isEnd = False
    End If
End Function

简单说明如下:

前提:
专杀"小动物",因为"野兽"克制他们
格子分配:
1 满级"野兽",猫科
2 满级"野兽",猫科
3 等待升级的"宝宝"


步骤:
1 "4"键,"3"键,换出"宝宝"
2 "4"键,"1"键,换出满级"野兽"
3 根据对手的血条,如果对手的血条过低,则使用"吞噬",否则使用"突袭"

写得比较粗略,有兴趣的朋友发我QQ邮件,dinopresent#qq.com

接下来,我再来完善其自动寻怪的功能,否则还是蛮费人工的