- (超级模拟鼠标)移动到 (x + 500, y + 480)
- 延时 200 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 2000 毫秒
- 跳转到标记 从头开始
- 否则
- 延时 1000 毫秒
- 令 SHI = SHI + 1
- 跳转到标记 判断游戏有没跳完
- 条件结束
- 注释:=================================
- 脚本停止运行
- 子程序 判断T()
- 调用 判断邀请()
- 令 XY = Color.FindMutiColor(0,0,1024,768,"F3FFF4","-1|1|F3FFF5,0|1|F5FFF7,-2|2|F5FFF7,-1|2|F1FFF4,-3|3|F4FFF8,-4|4|F4FFF7,-3|4|F2FFF6,-4|5|F3FFF6,-5|6|F5FFF6,-5|7|F4FFF6,-6|8|F4FFF5,-6|9|F2FFF4,-6|10|EFFEF4,-6|11|EFFEF2,-6|12|ECFEF0,-6|13|EAFEEF,-16|14|FFFFFF,-15|14|FFFFFF,-14|14|FBFFFC,-6|14|E8FDED,-13|15|F8FFFA,-12|15|F7FFF9,-6|15|E5FDEB,-12|16|F4FFF6,-11|16|F1FEF5,-6|16|E4FDEA,-10|17|EDFEF1,-6|17|E3FDE9,-9|18|E8FEED,-8|18|E5FDEB,-6|18|E0FDE7,-7|19|E1FCE7,-6|19|DEFCE5,-6|20|DBFBE3,-5|20|D8FAE1,-5|21|D5FADF,-5|22|D3FADD,-4|22|CFF9DA,-5|23|D1F9DC,-5|24|CEF8DA,-10|25|DDFBE4,-9|25|DBFAE2,-5|25|CBF8D8,-11|26|DDFBE6,-10|26|DAFAE3,-5|26|C9F7D6,-13|27|E1FCE8,-12|27|DFFBE5,-11|27|DBFAE3,-4|27|C3F6D1,-14|28|E1FCE8,-4|28|C1F6CF,-19|29|FAFEFC,-18|29|F3FDF6,-17|29|E8FCEE,-16|29|E3FCEA,-15|29|E4FCEB,-4|29|BDF5CE,-4|30|BBF3CD,-4|31|BAF3CA,-3|32|B2F0C4,-2|32|AFEFC1,-3|33|AFEFC3,-4|34|B1F0C5,-3|34|ADEEC2,-5|35|B1EEC5,-3|35|A9EDC0,-6|36|B4EEC6,-8|37|BAF0CB,-7|37|B6EFC8,-9|38|B9F1CB,-8|38|B6EFC8,-11|39|BDF2CF,-10|39|BAF0CC,-12|40|BFF1CF,-11|40|BCF1CD,-13|41|C0F3D0,-12|41|BCF1CD",1)
- 令 MyArray = Split(XY,"|")
- 令 X = Clng(MyArray(0))
- 令 Y = Clng(MyArray(1))
- 如果 X > 0 则
- 注释:被T了
- 如果 t = "1" 则
- 调用 判断邀请()
- 调用 Media.Play("D:\将军令\将军令.mp3")
- 调用 判断邀请()
- 标记 xhjcha(子程序 判断T)
- 令 key = (键盘)等待按任意键
- 如果 key = "81" 则
- 调用 判断邀请()
- 注释:下面这句是关闭声音播放
- 调用 Media.Stop()
- 否则
- 跳转到标记 xhjcha(子程序 判断T)
- 条件结束
- 调用 判断邀请()
- 否则如果 t = "2" 则
- 注释:下面这句是关机计算机(关机)
- 调用 Sys.ExitOS(1)
- 延时 1000 毫秒
- (键盘)按 N 键, 1次
- 延时 500 毫秒
- (键盘)按 N 键, 1次
- 脚本停止运行
- 否则如果 t = "3" 则
- 令 XY = Color.FindMutiColor(0,0,1024,768,"F2FFF4","0|1|EFFEF4,0|2|EFFEF2,0|3|ECFEF0,0|4|EAFEEF,0|5|E8FDED,-7|6|F8FFFA,0|6|E5FDEB,-6|7|F4FFF6,-5|7|F1FEF5,0|7|E4FDEA,-4|8|EDFEF1,-3|8|EAFEEE,0|8|E3FDE9,-3|9|E8FEED,-2|9|E5FDEB,0|9|E0FDE7,0|11|DBFBE3,0|12|D8FBE0,0|13|D6FADF,0|15|D1F8DC,0|16|CFF9DA,0|17|CCF8D8,0|18|CBF7D7,-8|19|E1FCE8,-7|19|DFFCE7,-5|19|DDFBE4,-4|19|D6FADE,-3|19|D2F9DC,-2|19|D0F8DA,-1|19|CCF7D8,0|19|C9F7D6,-11|20|E8FCEE,-10|20|E3FCEA,-9|20|E4FCEB,0|20|C6F7D4,0|21|C3F5D2,1|21|C0F4D0,0|22|C0F4CF,2|22|BAF3CA,0|23|BEF3CD,2|23|B7F2C9,0|24|BBF2CC,2|24|B4F1C7,0|25|B9F2CA,2|25|B1F0C5,2|26|ADEEC2,0|27|B4EEC6,1|27|AFEDC4,3|27|A6ECBE,4|27|A2EABA,-1|28|B6EFC8,0|28|B2EEC4,1|28|ACECC2,2|28|A9EBC0,-2|29|B6EFC8,-1|29|B3EDC5,0|29|AEEDC2,-3|30|B7EFC9,-2|30|B2EEC5,-1|30|AFECC2,-5|31|BCF1CD,-4|31|B9F0CA,-7|32|C0F3D0,-6|32|BCF1CD,-11|33|CDF5DA,-10|33|C8F3D7,-9|33|C4F3D4,-8|33|C3F2D1,-15|34|E7FAEE,-14|34|D5F8DF,-13|34|CFF5DA,-12|34|CDF4D9,-11|34|CBF4D8,-15|35|DDF8E5",1)
- 令 MyArray = Split(XY,"|")
- 令 X = Clng(MyArray(0))
- 令 Y = Clng(MyArray(1))
- 注释:快速加入
- 如果 x > 0 则
- (鼠标)移动到 (x, y)
- 延时 100 毫秒
- (鼠标)左键单击, 1次
- 延时 3000 毫秒
- 跳转到标记 从头开始(子程序 判断T)
- 否则
- 条件结束
- 条件结束
- 否则
- 条件结束
- 子程序结束
- 子程序 判断邀请()
- 令 XY = Color.FindMutiColor(0,0,1024,768,"0","1|0|0,4|0|0,5|0|0,8|0|0,9|0|0,13|0|0,14|0|0,19|0|0,20|0|0,1|1|0,2|1|0,3|1|0,4|1|0,5|1|0,6|1|0,7|1|0,8|1|0,9|1|0,14|1|0,15|1|0,16|1|0,17|1|0,18|1|0,19|1|0,20|1|0,21|1|0,22|1|0,23|1|0,3|2|0,4|2|0,6|2|0,7|2|0,8|2|0,9|2|0,10|2|0,11|2|0,19|2|0,20|2|0,3|3|0,4|3|0,5|3|0,6|3|0,7|3|0,8|3|0,9|3|0,10|3|0,11|3|0,16|3|0,17|3|0,18|3|0,19|3|0,20|3|0,21|3|0,22|3|0,23|3|0,0|4|0,1|4|0,2|4|0,3|4|0,4|4|0,6|4|0,7|4|0,8|4|0,9|4|0,10|4|0,11|4|0,12|4|0,13|4|0,14|4|0,19|4|0,20|4|0,1|5|0,2|5|0,3|5|0,4|5|0,5|5|0,6|5|0,7|5|0,8|5|0,9|5|0,10|5|0,11|5|0,13|5|0,14|5|0,16|5|0,17|5|0,18|5|0,19|5|0,20|5|0,21|5|0,22|5|0,23|5|0,1|6|0,2|6|0,4|6|0,5|6|0,6|6|0,7|6|0,9|6|0,10|6|0,13|6|0,14|6|0,17|6|0,18|6|0,21|6|0,22|6|0,1|7|0,2|7|0,4|7|0,5|7|0,6|7|0,7|7|0,9|7|0,10|7|0,13|7|0,14|7|0,17|7|0,18|7|0,19|7|0,20|7|0,21|7|0,22|7|0,1|8|0,2|8|0,3|8|0,4|8|0,5|8|0,6|8|0,7|8|0,8|8|0,9|8|0,10|8|0,11|8|0,13|8|0,14|8|0,15|8|0,16|8|0,17|8|0,18|8|0,21|8|0,22|8|0,0|9|0,1|9|0,2|9|0,3|9|0,7|9|0,8|9|0,13|9|0,14|9|0,15|9|0,17|9|0,18|9|0,19|9|0,20|9|0,21|9|0,22|9|0,0|10|0,1|10|0,3|10|0,4|10|0,5|10|0,6|10|0,7|10|0,8|10|0,9|10|0,10|10|0,11|10|0,13|10|0,14|10|0,17|10|0,18|10|0,21|10|0,22|10|0",1)
- 令 MyArray = Split(XY,"|")
- 令 X = Clng(MyArray(0))
- 令 Y = Clng(MyArray(1))
- 如果 X > 0 则
- 注释:判断邀请
- 如果 yq = "1" 则
- (超级模拟鼠标)移动到 (x + 200, y + 160)
- 注释:拒绝
- 延时 100 毫秒
- (超级模拟鼠标)左键单击, 1次
- 否则
- 注释:接受
- (超级模拟鼠标)移动到 (x + 110, y + 160)
- 延时 100 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 3000 毫秒
- 跳转到标记 从头开始(子程序 判断邀请)
- 条件结束
- 否则
- 条件结束
- 子程序结束
- 子程序 OnScriptExit()
- 注释:下面这句是关闭声音播放
- 调用 Media.Stop()
- 子程序结束