|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
按键被封的太利害了。。。我玩大唐无双被封了三个号。彻底的晕倒了。
请教一下这个按键代码如何改成TC代码啊?
hwnd = Plugin.Window.MousePoint()
Call Plugin.Window.Max(Hwnd)
Delay 1000
s = Plugin.Window.GetClientRect( hwnd)
myarry = Split(s, "|", -1, 1)
ux=myarry(0)
uy = myarry(1)
//------------------------------------
UserVar hong1=40 "立即加红比例"
UserVar hong2=60 "攻击结束加红比例"
UserVar lan=60 "加蓝比例"
UserVar bbhp=60 "加宝宝红比例"
//-----------------------------
UserVar nom2=DropList{"不抢怪":"0"|"抢怪":"1"}=0 "是否抢怪,默认不抢"
UserVar q1=1 "第1技能秒数"
UserVar q2=3 "第2技能秒数"
UserVar q3=6 "第3技能秒数"
UserVar q4=10 "第4技能秒数"
UserVar q5=20 "第5技能秒数"
UserVar q6=0 "标志攻击技能,设置无效"
Dim nom1
//--------------------------------
t1=now:t2=now:t3=now:t4=now:t5=now:t6=now
Rem 自动杀怪
Call 立即加红
Call 加蓝
Call 加武将红
call 怪红 //检测怪物红多少
Call 防检测
Goto 自动杀怪
//-------下面是重点,杀怪判断-------------------
Sub 怪红
IfColor ux + 299, uy + 58, "1814C6", 0 Then //怪物条最左边的,判断怪是否杀死了
Call 技能
Else
Call 攻结加红
Call 捡取
Call 随机算法
Call 搜怪
End If
End Sub
Sub 搜怪
Rem 怪
Call Plugin.Bkgnd.KeyPress(Hwnd, 9)
If nom2=0 Then //判断是否抢怪
IfColor ux + 453, uy + 58, "0000A5", 0 Then //怪物条最右边的,判断是否有人打了怪
Call Plugin.Bkgnd.KeyPress(Hwnd, 54) //标志攻击技能
Call 技能
Else
goto 怪
End If
End If
End Sub
//-------上面是重点,杀怪判断-------------------
Sub 随机算法 //用来随机延迟时间,不会每次时间都一样。
nom1 = Lib.算法.随机数字串(1)
nom1=int(nom1)
If nom1=3 Then
Delay 500
ElseIf nom1 = 5 Then
Delay 700
ElseIf nom1 = 9 Then
Delay 600
Else
Delay 400
End If
End Sub
Sub 捡取
Call Plugin.Bkgnd.KeyPress(Hwnd, 192)
End Sub
Sub 立即加红
IfColor hong1/100*149+ux+105, uy+61, "0000BD", 2 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 55) //7键
End If
End Sub
Sub 攻结加红
IfColor hong2/100*149+ux+105, uy+61, "0000BD", 2 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 56) //8键
End If
End Sub
Sub 加蓝
IfColor lan/100*149+ux+105, uy+77, "BD4900", 2 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 57) //9键
End If
End Sub
Sub 加武将红
IfColor bbhp/100*92+ux+105, uy+130, "4A4DEF", 2 Then
Else
Call Plugin.Bkgnd.KeyPress(Hwnd, 48) //0键
End If
End Sub
Sub 技能
If datediff("s",t1,now)>=q1
Call Plugin.Bkgnd.KeyPress(Hwnd, 49) //1键
Delay 10
t1=now
End If
If datediff("s",t2,now)>=q2
Call Plugin.Bkgnd.KeyPress(Hwnd, 50) //2键
Delay 10
t2=now
End If
If datediff("s",t3,now)>=q3
Call Plugin.Bkgnd.KeyPress(Hwnd, 51) //3键
Delay 10
t3=now
End If
If datediff("s",t4,now)>=q4
Call Plugin.Bkgnd.KeyPress(Hwnd, 52) //4键
Delay 10
t4=now
End If
If datediff("s",t5,now)>=q5
Call Plugin.Bkgnd.KeyPress(Hwnd, 53) //5键
Delay 10
t5=now
End If
End Sub
Sub 防检测
FindPic 214,249,807,587,"Attachment:\jing.bmp",0.9,intX1,intY2
//以下是条件判断;如果返回的坐标大于0,那么就说明找到了。
If intX1 > 0 And intY2 > 0 Then
//在这里可以添加找到坐标后,需要做的处理。
moveto intx1,intx2
//播放路径("C:\WINDOWS\Media\提醒铃声.mp3")音乐文件
Call Plugin.Media.Play("C:\WINDOWS\Media\提醒铃声.mp3")
End If
End Sub
|
|