小白脚本，大佬们帮看看！

心安云乡

某个古早游戏的手游版

                               
登录/注册后可看大图

分辨率：1280*720
屏幕密度：320PPI
图中，数字1.2.3.4是技能，数字5处是普攻键，数字6是拾取键。

1，3.4位置技能，需要能设定间隔时间释放。
2  操作流程就是：普攻，拾取，技能1，拾取，而后就是普攻，拾取，技能2，拾取，依次点击。在中间穿插辅助技能，就是技能3.4，但是有cd,需能设定时间放。
3. 自己尝试写了，现实用找图识别技能状态图，决定是否释放辅助技能，识别率很低，不够通用。看了几天B站，尝试用多线程，也不理想，放了这个技能不放那个技能。


4.自己委实编程小白，短时间难以提高。希望哪位大佬，能帮忙修改下，万分感谢。


脚本如下：


Thread.Start(多线程1) //技能3
    Delay 100
Thread.Start(多线程2) //技能4
   Delay 100



//自动打怪流程


Do
tap 135,1135   //普攻
Delay 200
tap 36,1236  //拾取键
Delay 200
tap 50,1020   //技能1
Delay 300
tap 36,1236  //拾取键
Delay 200
tap 135,1135   //普攻
Delay 200
tap 36,1236  //拾取键
Delay 200
tap 165,1000   //技能2
Delay 300
tap 36,1236  //拾取键
Delay 200


//回红

Dim 血条
血条 = CmpColorEx("655|230|000010,663|230|212029,650|230|102039|abcdef", 0.9)
If 血条 = 1 Then
   TracePrint "需要回血了" & 血条
   tap 150,888   //红瓶位置
Else
   TracePrint "没到设定回血线"
End If


//回蓝

Dim 蓝条
蓝条 = CmpColorEx("636|120|000000,639|120|181818,633|120|101010|abcdef", 0.9)
If 蓝条 = 1 Then
   TracePrint "需要回蓝了" & 蓝条
   tap 58,888   //蓝瓶位置
Else
   TracePrint "没到设定回蓝线"
End If

Loop


Sub 多线程1
Do
  tap 260,1070  //技能3位置
  TracePrint "我是技能3"
  Delay 30000
Loop
End Sub


Sub 多线程2
Do
  tap 270,1188   //技能4位置
  TracePrint "我是技能4"
  Delay 60000
Loop
End Sub

紫猫

新手不建议去用多线程，因为解决不了冲突问题。如果在CD中也点一次技能没影响的话，那就不需要考虑识别CD了。这里提供一个简易模板，需要你自己写具体代码，中间延时自己加，普攻可以多写几个。

[按键精灵] 纯文本查看 复制代码

do
    普攻
    拾取
    技能1
    拾取
    技能2
    拾取
    技能3
    拾取
    技能4
    拾取
loop

心安云乡

紫猫 发表于 2024-8-13 21:27
新手不建议去用多线程，因为解决不了冲突问题。如果在CD中也点一次技能没影响的话，那就不需要考虑识别CD了 ...

感谢老师回复，主要是极度缺蓝，辅助技能CD短，持续时间远长于CD时间，如果等技能好直接点，蓝不够用。

这2天重新摸索写了个用时间判断的，但是也个问题不知道怎么处理。

技能3每30秒放一次，技能4每600秒放一次（CD才10秒）

[按键精灵] 纯文本查看 复制代码

Dim  开始时间=TickCount()
Dim  技能3间隔时间=30000

Do

Dim  运行时间技能3=TickCount()-开始时间
Dim  运行时间技能4=TickCount()-开始时间


If 运行时间技能3 >= 30000 Then
        tap 260,1070  //技能3位置
      TracePrint 运行时间技能3
// 第一次可以正常释放，但是技能3时间不能归零，不断累，下面这行代码不知道哪里出问题了。
      运行时间技能3=运行时间技能3-技能3间隔时间
   Else
  TracePrint "技能3CD没结束"
End If


If 运行时间技能4 >= 600000 Then
        tap 270,1188   //技能4位置
    TracePrint 运行时间技能4
    开始时间=TickCount ()    //让运行时间重新开始计算
   Else
    TracePrint "技能4CD没结束"

End If

//下面是打怪流程

Loop

紫猫

心安云乡 发表于 2024-8-13 22:34
感谢老师回复，主要是极度缺蓝，辅助技能CD短，持续时间远长于CD时间，如果等技能好直接点，蓝不够用。

...

[按键精灵] 纯文本查看 复制代码

Dim 技能3上次使用时间 = 0
Dim 技能4上次使用时间 = 0
Dim 技能3间隔时间 = 3000
Dim 技能4间隔时间 = 6000

Do
    if Tickcount() - 技能3上次使用时间 >= 技能3间隔时间 then
             技能3上次使用时间 = Tickcount()
             点击技能3  //自己改点击和延时代码
    End If
    if Tickcount() - 技能4上次使用时间 >= 技能4间隔时间 then
             技能4上次使用时间 = Tickcount()
             点击技能4  //自己改点击和延时代码
    End If
Loop

心安云乡

紫猫 发表于 2024-8-14 12:11

谢谢，我去试试看！