线程 = Plugin.Window.Search("穿越火线")
线程ID = Split(线程, "|")
DimEnv 横坐标
横坐标=0
Call Plugin.Window.Move(线程ID(0), 横坐标, 0)
BeginThread 判断是否进入频道后进入房间
BeginThread 判断房间里准备和加入状态
BeginThread 判断获取奖励和确定和通知和任务奖励
//判断是否进入频道，如果是没找到符合条件的房间，点击并点击快速加入
Sub 判断是否进入频道后进入房间
Rem 判断一
// 小频道里个人仓库绿色，点击快色加入
Dim 个人仓库
Dim 快速加入
Dim 通知
Dim 取消
个人仓库=GetPixelColor(314 + 横坐标 , 47)
快速加入 = GetPixelColor(572 + 横坐标, 456)
通知 = GetPixelColor(285 + 横坐标, 278)
取消 = GetPixelColor(443 + 横坐标, 419)
If 个人仓库 = "CBDAD5" and 快速加入 = "AAE7E1" Then
MoveTo 572 + 横坐标, 456
Delay 100
LeftClick 1
Delay 1000
End If
If 通知 = "F8D24D" and 取消 = "36A8FF" Then
MoveTo 443, 430
Delay 100
LeftClick 1
Delay 1000
End If
Delay 5000
Goto 判断一
End Sub
//判断进入房间里是准备状态还是游戏中，如果是游戏中直接按“加入游戏”，如果是准备状态按返回大厅
Sub 判断房间里准备和加入状态
Rem 判断二
// 房间里绿色的个人仓库
Dim 个人仓库
//房间里游戏没进行时，即准备状态下“邀请”按钮式黄色的
Dim 邀请
//房间里游戏进行中，加入游戏是蓝色的
Dim 加入游戏
个人仓库 = GetPixelColor(314 + 横坐标, 47)
个人仓库=GetPixelColor(314 + 横坐标, 47)
加入游戏 = GetPixelColor(782 + 横坐标, 469)
If 个人仓库 = "CBDAD5" and 加入游戏 = "C9A863" Then
MoveTo 753 + 横坐标, 461
Delay 100
LeftClick 1
End If
邀请 = GetPixelColor(689 + 横坐标, 458)
If 个人仓库 = "CBDAD5" and 邀请 = "ACE8E7" Then
MoveTo 614 + 横坐标, 54
Delay 100
LeftClick 1
End If
Delay 5000
Goto 判断二
End Sub
//从一局结束的获取奖励的界面开始，点“获取奖励”，“确定”，“通知的确定”，“任务奖励得新枪了”，“提升了军衔”结束
Sub 判断获取奖励和确定和通知和任务奖励
Rem 判断三
//获取奖励界面超级佣兵的“超”字点色
Dim 超
//获取奖励界面获取奖励的“得”字点色
Dim 得
//获取奖励界面确定的“确”字点色
Dim 确
// 通知界面点击确定按钮
Dim 通知
Dim 确定
// 任务奖励确定按钮（得枪的）
Dim 任
Dim 任确定
// 提升了军衔通知
Dim 通知二
Dim 确定二
//
超 = GetPixelColor(631 + 横坐标, 50)
得 = GetPixelColor(720 + 横坐标, 582)
确 = GetPixelColor(739 + 横坐标, 579)
通知 = GetPixelColor(285 + 横坐标, 278)
确定 = GetPixelColor(371 + 横坐标, 420)
任 = GetPixelColor(373 + 横坐标, 234)
任确定 = GetPixelColor(348 + 横坐标, 484)
通知二 = GetPixelColor(286 + 横坐标, 218)
确定二 = GetPixelColor(410 + 横坐标, 475)
If 超 = "FFFFFF" and 得 = "94E7EB" Then
MoveTo 739 + 横坐标, 579
Delay 100
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
End If
If 超 = "FFFFFF" and 确 = "ADE9E5" Then
MoveTo 739 + 横坐标, 579
Delay 100
LeftClick 1
Delay 1000
End If
If 通知 = "F8D24D" and 确定 = "55FFFF" Then
MoveTo 403 + 横坐标, 429
Delay 100
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
LeftClick 1
Delay 1000
End If
If 任 = "E5E5E5" and 任确定 = "36FFAE" Then
MoveTo 348, 493
Delay 100
LeftClick 1
Delay 1000
End If
If 通知 = "F8D24D" and 确定 = "36A8FF" Then
MoveTo 408 + 横坐标, 486
Delay 100
LeftClick 1
Delay 1000
End If
Delay 5000
Goto 判断三
End Sub