1. 用户定义变量 t=DropList{"音乐播放":1|"关机":2|"点快速加入":3}=0 "被踢时"
  2. 用户定义变量 yq=DropList{"拒绝":1|"接受":2}=0 "设置内容"
  3. 用户定义变量 ys1=10 "我是房主多少秒后没准备开始喊话"
  4. 用户定义变量 hua="开始了..大家准备啊.." "喊话内容"
  5. 展开附件 *.* 到 d:\将军令 文件夹
  6. 注释:释放音乐文件[因为文件太大所以删除了.自己修改吧]
  7. 注释:这里改后在脚本第115行也要修改
  8. 标记 从头开始
  9. 令 XY = Color.FindMutiColor(0,0,1024,768,"B4EEFF","1|0|B5EFFF,2|0|B6EFFF,3|0|B7F0FF,4|0|B8F1FF,16|2|BEF0FF,17|2|BEF0FF,16|3|BBF0FF,15|4|B7F0FF,16|4|B8EFFF,14|5|B4EFFF,6|6|A9EBFF,14|6|B1EEFF,-3|7|9EE2FF,5|7|A6EAFF,13|7|ADEDFF,14|7|AEECFF,-3|8|9BDAFF,5|8|A3E8FF,13|8|AAEAFF,-3|9|98D4FF,5|9|A0E5FF,-4|10|94DDFF,-3|10|95D0FF,4|10|9CE3FF,-5|11|7ED6FE,-4|11|90D4FF,4|11|99E2FF,11|11|A0E5FF,12|11|A1E6FF,13|11|A2E6FF,4|12|96E0FF,14|12|A0E4FF,15|12|A1E4FF,16|12|A2E4FF,17|12|A3E4FF,4|13|3BB9FE,18|13|A1E1FF,19|13|A2E0FF,20|13|A3E0FF,21|13|A4DFFF,3|14|B1FE,22|14|A2DBFE,23|14|A3DAFE,3|15|1A9FE,3|16|19DFE,9|20|19EFE,10|20|19DFE,-7|21|199FE,9|21|199FE,-6|22|197FE,9|22|191FE,-6|23|193FE,9|23|18EFE,-6|24|190FE,8|24|191FE,9|24|18DFE,-5|25|18EFE,8|25|18EFE,-5|26|8AFD,8|26|18CFE,-5|27|86FD,8|27|18CFE,23|27|0,-4|28|84FD,7|28|188FE,23|28|0,-4|29|81FD,-3|29|82FD,7|29|89FE,10|29|0,11|29|0,12|29|0,23|29|0,-3|30|7FFD,7|30|18AFE,12|30|0,13|30|0,23|30|0,6|31|80FD,7|33|17CFD,8|33|882FD,8|34|7BFD,9|34|7BFD,10|34|7BFD,10|35|7AFD,11|35|7AFD,12|35|7AFD,12|36|79FD,13|36|79FD",1)
  10. 令 MyArray = Split(XY,"|")
  11. 令 X = Clng(MyArray(0))
  12. 令 Y = Clng(MyArray(1))
  13. 如果 x > 0 则
  14.     注释:我是房主
  15.     (键盘)按 F5 键, 1次
  16.     注释:F5
  17.     延时 900 毫秒
  18.     令 XY = Color.FindMutiColor(0,0,1024,768,"0","1|0|0,3|0|0,4|0|0,5|0|0,6|0|0,7|0|0,8|0|0,18|0|0,19|0|0,24|0|0,25|0|0,29|0|0,30|0|0,38|0|0,39|0|0,0|1|0,1|1|0,3|1|0,4|1|0,7|1|0,8|1|0,11|1|0,12|1|0,13|1|0,14|1|0,15|1|0,16|1|0,17|1|0,18|1|0,19|1|0,20|1|0,24|1|0,25|1|0,26|1|0,27|1|0,28|1|0,29|1|0,30|1|0,31|1|0,32|1|0,33|1|0,36|1|0,37|1|0,38|1|0,39|1|0,40|1|0,41|1|0,42|1|0,43|1|0,-2|2|0,-1|2|0,0|2|0,1|2|0,2|2|0,3|2|0,4|2|0,5|2|0,6|2|0,7|2|0,8|2|0,24|2|0,25|2|0,36|2|0,37|2|0,42|2|0,43|2|0,0|3|0,1|3|0,3|3|0,4|3|0,7|3|0,8|3|0,23|3|0,24|3|0,26|3|0,27|3|0,28|3|0,29|3|0,30|3|0,31|3|0,32|3|0,36|3|0,37|3|0,38|3|0,39|3|0,40|3|0,41|3|0,42|3|0,43|3|0,0|4|0,1|4|0,2|4|0,3|4|0,4|4|0,5|4|0,6|4|0,7|4|0,8|4|0,10|4|0,11|4|0,12|4|0,13|4|0,14|4|0,15|4|0,16|4|0,17|4|0,18|4|0,19|4|0,20|4|0,21|4|0,23|4|0,24|4|0,36|4|0,37|4|0,42|4|0,43|4|0,-1|5|0,0|5|0,1|5|0,15|5|0,16|5|0,22|5|0,23|5|0,24|5|0,26|5|0,27|5|0,28|5|0,29|5|0,30|5|0,31|5|0,32|5|0,36|5|0,37|5|0,38|5|0,39|5|0,40|5|0,41|5|0,42|5|0,43|5|0,-2|6|0,-1|6|0,0|6|0,1|6|0,2|6|0,3|6|0,4|6|0,5|6|0,6|6|0,7|6|0,8|6|0,9|6|0,13|6|0,14|6|0,15|6|0,16|6|0,18|6|0,19|6|0,23|6|0,24|6|0,36|6|0,37|6|0,42|6|0,43|6|0,0|7|0,1|7|0,3|7|0,4|7|0,5|7|0,6|7|0,12|7|0,13|7|0,15|7|0,16|7|0,19|7|0,20|7|0,23|7|0,24|7|0,26|7|0,27|7|0,28|7|0,29|7|0,30|7|0,31|7|0,32|7|0,36|7|0,37|7|0,38|7|0,39|7|0,40|7|0,41|7|0,42|7|0,43|7|0,0|8|0,1|8|0,3|8|0,4|8|0,5|8|0,6|8|0,7|8|0,8|8|0,11|8|0,12|8|0,15|8|0,16|8|0,20|8|0,21|8|0,23|8|0,24|8|0,26|8|0,27|8|0,31|8|0,32|8|0,35|8|0,36|8|0,37|8|0,38|8|0,39|8|0,40|8|0,43|8|0,44|8|0,0|9|0,1|9|0,2|9|0,3|9|0,4|9|0,5|9|0,6|9|0,10|9|0,11|9|0,15|9|0,16|9|0,20|9|0,21|9|0,23|9|0,24|9|0,26|9|0,27|9|0,28|9|0,29|9|0,30|9|0,31|9|0,32|9|0,35|9|0,36|9|0,37|9|0,38|9|0,40|9|0,41|9|0,42|9|0,43|9|0,44|9|0,45|9|0,-2|10|0,-1|10|0,0|10|0,1|10|0,2|10|0,5|10|0,6|10|0,7|10|0,8|10|0,9|10|0,13|10|0,14|10|0,15|10|0,16|10|0,23|10|0,24|10|0,26|10|0,27|10|0,31|10|0,32|10|0,34|10|0,35|10|0,37|10|0,38|10|0,39|10|0,40|10|0,41|10|0,42|10|0,43|10|0",1)
  19.     令 MyArray = Split(XY,"|")
  20.     令 X = Clng(MyArray(0))
  21.     令 Y = Clng(MyArray(1))
  22.     如果 x > 0 则
  23.         (鼠标)移动到 (x + 120, y + 140)
  24.         延时 200 毫秒
  25.         (鼠标)左键单击, 1次
  26.         延时 200 毫秒
  27.         注释:按确定键
  28.         注释:有人没准备
  29.         循环 ys1 次
  30.             延时 450 毫秒
  31.             (键盘)按 F5 键, 1次
  32.             注释:F5
  33.             延时 400 毫秒
  34.             令 XY = Color.FindMutiColor(0,0,1024,768,"0","1|0|0,3|0|0,4|0|0,5|0|0,6|0|0,7|0|0,8|0|0,18|0|0,19|0|0,24|0|0,25|0|0,29|0|0,30|0|0,38|0|0,39|0|0,0|1|0,1|1|0,3|1|0,4|1|0,7|1|0,8|1|0,11|1|0,12|1|0,13|1|0,14|1|0,15|1|0,16|1|0,17|1|0,18|1|0,19|1|0,20|1|0,24|1|0,25|1|0,26|1|0,27|1|0,28|1|0,29|1|0,30|1|0,31|1|0,32|1|0,33|1|0,36|1|0,37|1|0,38|1|0,39|1|0,40|1|0,41|1|0,42|1|0,43|1|0,-2|2|0,-1|2|0,0|2|0,1|2|0,2|2|0,3|2|0,4|2|0,5|2|0,6|2|0,7|2|0,8|2|0,24|2|0,25|2|0,36|2|0,37|2|0,42|2|0,43|2|0,0|3|0,1|3|0,3|3|0,4|3|0,7|3|0,8|3|0,23|3|0,24|3|0,26|3|0,27|3|0,28|3|0,29|3|0,30|3|0,31|3|0,32|3|0,36|3|0,37|3|0,38|3|0,39|3|0,40|3|0,41|3|0,42|3|0,43|3|0,0|4|0,1|4|0,2|4|0,3|4|0,4|4|0,5|4|0,6|4|0,7|4|0,8|4|0,10|4|0,11|4|0,12|4|0,13|4|0,14|4|0,15|4|0,16|4|0,17|4|0,18|4|0,19|4|0,20|4|0,21|4|0,23|4|0,24|4|0,36|4|0,37|4|0,42|4|0,43|4|0,-1|5|0,0|5|0,1|5|0,15|5|0,16|5|0,22|5|0,23|5|0,24|5|0,26|5|0,27|5|0,28|5|0,29|5|0,30|5|0,31|5|0,32|5|0,36|5|0,37|5|0,38|5|0,39|5|0,40|5|0,41|5|0,42|5|0,43|5|0,-2|6|0,-1|6|0,0|6|0,1|6|0,2|6|0,3|6|0,4|6|0,5|6|0,6|6|0,7|6|0,8|6|0,9|6|0,13|6|0,14|6|0,15|6|0,16|6|0,18|6|0,19|6|0,23|6|0,24|6|0,36|6|0,37|6|0,42|6|0,43|6|0,0|7|0,1|7|0,3|7|0,4|7|0,5|7|0,6|7|0,12|7|0,13|7|0,15|7|0,16|7|0,19|7|0,20|7|0,23|7|0,24|7|0,26|7|0,27|7|0,28|7|0,29|7|0,30|7|0,31|7|0,32|7|0,36|7|0,37|7|0,38|7|0,39|7|0,40|7|0,41|7|0,42|7|0,43|7|0,0|8|0,1|8|0,3|8|0,4|8|0,5|8|0,6|8|0,7|8|0,8|8|0,11|8|0,12|8|0,15|8|0,16|8|0,20|8|0,21|8|0,23|8|0,24|8|0,26|8|0,27|8|0,31|8|0,32|8|0,35|8|0,36|8|0,37|8|0,38|8|0,39|8|0,40|8|0,43|8|0,44|8|0,0|9|0,1|9|0,2|9|0,3|9|0,4|9|0,5|9|0,6|9|0,10|9|0,11|9|0,15|9|0,16|9|0,20|9|0,21|9|0,23|9|0,24|9|0,26|9|0,27|9|0,28|9|0,29|9|0,30|9|0,31|9|0,32|9|0,35|9|0,36|9|0,37|9|0,38|9|0,40|9|0,41|9|0,42|9|0,43|9|0,44|9|0,45|9|0,-2|10|0,-1|10|0,0|10|0,1|10|0,2|10|0,5|10|0,6|10|0,7|10|0,8|10|0,9|10|0,13|10|0,14|10|0,15|10|0,16|10|0,23|10|0,24|10|0,26|10|0,27|10|0,31|10|0,32|10|0,34|10|0,35|10|0,37|10|0,38|10|0,39|10|0,40|10|0,41|10|0,42|10|0,43|10|0",1)
  35.             令 MyArray = Split(XY,"|")
  36.             令 X = Clng(MyArray(0))
  37.             令 Y = Clng(MyArray(1))
  38.             如果 x > 0 则
  39.                 (鼠标)移动到 (x + 120, y + 140)
  40.                 延时 140 毫秒
  41.                 (鼠标)左键单击, 1次
  42.                 延时 200 毫秒
  43.             否则
  44.                 跳转到标记 开始游戏
  45.             条件结束
  46.             注释:回车
  47.         循环结束
  48.         (超级模拟键盘)按 Enter 键, 1次
  49.         延时 100 毫秒
  50.         输入文本 hua
  51.         延时 200 毫秒
  52.         (超级模拟键盘)按 Enter 键, 1次
  53.         注释:回车
  54.         延时 1000 毫秒
  55.         跳转到标记 从头开始
  56.     否则
  57.         注释:开始游戏....
  58.     条件结束
  59. 否则
  60.     注释:我是房员 准备
  61.     (超级模拟键盘)按 F5 键, 1次
  62. 条件结束
  63. 标记 开始游戏
  64. 令 XY = Color.FindMutiColor(0,0,1024,768,"FEE183","1|1|FEDE76,2|1|FEEBAA,2|2|FEDC6A,3|2|FFE696,3|3|FED75D,4|3|FEDE75,4|4|FED658,23|7|25EBFE,24|7|11E8FE,25|7|8EAFF,26|8|ECFF,27|8|ECFF,28|8|ECFF,29|8|ECFF,14|14|C9F5FC,14|15|B7F3FC,14|16|A5F2FC,14|17|8BF0FD,14|18|66ECFE,14|19|43E8FE,14|20|23E2FE,14|21|7DBFF,14|22|D6FF,-10|34|FCD652,-9|34|FBD13C,-8|34|FBD23D,-7|34|FBD548,-6|34|FCD854,-5|34|FCDB5F,-4|34|FCDE6A,-3|34|FDE175,-2|34|FDE37F,-1|34|FDE483,0|34|FDE37E,-10|35|FDDA62,1|35|FCDF6F,2|35|FCDC66,-11|36|FDE9A4,-10|36|FCD242,2|36|FCDB60,3|36|FCD856,-11|37|FCDC6D,3|37|FCD74E,4|37|FBD445,-29|38|D99EEC,-11|38|FBCB25,4|38|FBD23E,-28|39|C76CE2,-27|39|C865E0,-26|39|C861E0,-25|39|C760E0,-24|39|C860E1,-23|39|CA64E3,-11|39|FAC50A,4|39|FBD036,5|39|FBCE2F,-10|40|FAC50C,5|40|FBCC26,-10|41|FAC305,5|41|FBC91C,-10|42|F7BF01,5|42|FAC713,6|42|FAC50C,-12|43|F9F0D0,6|43|FAC303,-11|44|E4AE02,-10|44|EBB504,6|44|F4BD01,-10|45|E4B006,-9|45|EAB404,6|45|EEB703,-9|46|E2AE05,-8|46|E6B105,5|46|EAB503,6|46|E6B205,-7|47|E2AE05,-6|47|E4AF0A,4|47|E5B005,5|47|E1AD05,-6|48|C38178,-5|48|C184BD,1|48|D6A30C,2|48|E3AE05,3|48|E0AC07,4|48|DDAA07,-4|49|BE82D7,-3|49|AC5ACB,-2|49|A446C8,-1|49|9F4596,0|49|BF8B1D,1|49|C99811,-21|53|932DDE,-21|54|9D41E1,-20|54|9533E0,-20|55|9839E0,2|55|FFF476,-20|56|9A3DE1,1|56|FEDA47,2|56|F4CF47,-27|57|DDBEE7,-20|57|8B20DD,-18|57|902CE0,-27|58|E0C4EB,-20|58|8517DB,-18|58|912FE1,-7|58|FEDB49,-27|59|E4CAEF,-20|59|871ADB,-18|59|9434E2,-7|59|FCE056,-6|59|FFDA42,-5|59|FFDD40,1|59|FBD435,2|59|FBD938,3|59|FFDE3B,-27|60|E6D0F3,-18|60|9739E3,-6|60|FFDB40,3|60|F2CC3D,4|60|FCD42F,-27|61|E9D5F6,-18|61|9A3FE4,-7|61|FFEB67,-6|61|FFD938,3|61|EBD15B,4|61|F9D12D,-27|62|EDDCFA,-26|62|E3C8F6,-18|62|9E46E6,-6|62|F3C831,-5|62|FED939,3|62|F8DB45,-18|63|A24DE8,-5|63|EAC749,-19|64|A04AE8,-18|64|A655EA,-4|64|FCE047,-19|65|A554EB,-19|66|AB5EED",1)
  65. 令 MyArray = Split(XY,"|")
  66. 令 X = Clng(MyArray(0))
  67. 令 Y = Clng(MyArray(1))
  68. 如果 x > 0 则
  69.     注释:开始了
  70.     跳转到标记 开始了
  71. 否则
  72.     延时 1000 毫秒
  73.     跳转到标记 开始游戏
  74. 条件结束
  75. 标记 开始了
  76. 令 XY = Color.FindMutiColor(0,0,1024,768,"FEE183","1|1|FEDE76,2|1|FEEBAA,2|2|FEDC6A,3|2|FFE696,3|3|FED75D,4|3|FEDE75,4|4|FED658,23|7|25EBFE,24|7|11E8FE,25|7|8EAFF,26|8|ECFF,27|8|ECFF,28|8|ECFF,29|8|ECFF,14|14|C9F5FC,14|15|B7F3FC,14|16|A5F2FC,14|17|8BF0FD,14|18|66ECFE,14|19|43E8FE,14|20|23E2FE,14|21|7DBFF,14|22|D6FF,-10|34|FCD652,-9|34|FBD13C,-8|34|FBD23D,-7|34|FBD548,-6|34|FCD854,-5|34|FCDB5F,-4|34|FCDE6A,-3|34|FDE175,-2|34|FDE37F,-1|34|FDE483,0|34|FDE37E,-10|35|FDDA62,1|35|FCDF6F,2|35|FCDC66,-11|36|FDE9A4,-10|36|FCD242,2|36|FCDB60,3|36|FCD856,-11|37|FCDC6D,3|37|FCD74E,4|37|FBD445,-29|38|D99EEC,-11|38|FBCB25,4|38|FBD23E,-28|39|C76CE2,-27|39|C865E0,-26|39|C861E0,-25|39|C760E0,-24|39|C860E1,-23|39|CA64E3,-11|39|FAC50A,4|39|FBD036,5|39|FBCE2F,-10|40|FAC50C,5|40|FBCC26,-10|41|FAC305,5|41|FBC91C,-10|42|F7BF01,5|42|FAC713,6|42|FAC50C,-12|43|F9F0D0,6|43|FAC303,-11|44|E4AE02,-10|44|EBB504,6|44|F4BD01,-10|45|E4B006,-9|45|EAB404,6|45|EEB703,-9|46|E2AE05,-8|46|E6B105,5|46|EAB503,6|46|E6B205,-7|47|E2AE05,-6|47|E4AF0A,4|47|E5B005,5|47|E1AD05,-6|48|C38178,-5|48|C184BD,1|48|D6A30C,2|48|E3AE05,3|48|E0AC07,4|48|DDAA07,-4|49|BE82D7,-3|49|AC5ACB,-2|49|A446C8,-1|49|9F4596,0|49|BF8B1D,1|49|C99811,-21|53|932DDE,-21|54|9D41E1,-20|54|9533E0,-20|55|9839E0,2|55|FFF476,-20|56|9A3DE1,1|56|FEDA47,2|56|F4CF47,-27|57|DDBEE7,-20|57|8B20DD,-18|57|902CE0,-27|58|E0C4EB,-20|58|8517DB,-18|58|912FE1,-7|58|FEDB49,-27|59|E4CAEF,-20|59|871ADB,-18|59|9434E2,-7|59|FCE056,-6|59|FFDA42,-5|59|FFDD40,1|59|FBD435,2|59|FBD938,3|59|FFDE3B,-27|60|E6D0F3,-18|60|9739E3,-6|60|FFDB40,3|60|F2CC3D,4|60|FCD42F,-27|61|E9D5F6,-18|61|9A3FE4,-7|61|FFEB67,-6|61|FFD938,3|61|EBD15B,4|61|F9D12D,-27|62|EDDCFA,-26|62|E3C8F6,-18|62|9E46E6,-6|62|F3C831,-5|62|FED939,3|62|F8DB45,-18|63|A24DE8,-5|63|EAC749,-19|64|A04AE8,-18|64|A655EA,-4|64|FCE047,-19|65|A554EB,-19|66|AB5EED",1)
  77. 令 MyArray = Split(XY,"|")
  78. 令 X = Clng(MyArray(0))
  79. 令 Y = Clng(MyArray(1))
  80. 如果 x > 0 则
  81.     延时 1000 毫秒
  82.     跳转到标记 开始了
  83. 否则
  84.     延时 3000 毫秒
  85. 条件结束
  86. 令 SHI = "1"
  87. 令 sj = "游戏开始记时" & SHI
  88. 注释:/判断游戏有没跳完
  89. 标记 判断游戏有没跳完
  90. 注释:下面这句是在屏幕上范围位置(0, 0, 1024, 768)进行输出内容(sj)
  91. 调用 Msg.ShowScrTXT(0,0,1024,768,sj,"0000FF")
  92. 令 XY = Color.FindMutiColor(0,0,1024,768,"FFFF","0|1|FFFF,0|2|FCFF,6|7|0,6|8|0,19|12|50FB,20|12|50FB,18|13|4EF7,19|13|4EF9,20|13|4EF9,9|14|4BF4,10|14|4BF4,11|14|4BF4,12|14|4BF4,17|14|4BF2,18|14|4BF5,19|14|4BF5,20|14|4BF5,21|14|4BF5,22|14|4BF4,7|15|47EF,8|15|47F1,9|15|47F1,10|15|47F1,11|15|47F1,12|15|47F1,13|15|47F1,17|15|47EF,18|15|47F1,19|15|47F1,20|15|47F1,21|15|47F1,22|15|47F1,7|16|44EC,8|16|44EC,12|16|44EC,13|16|44EC,14|16|44EC,17|16|44EA,18|16|44EC,19|16|44EC,20|16|44EC,21|16|44EC,22|16|44EC,-2|17|90FF,7|17|40E7,8|17|40E7,18|17|40E5,19|17|40E7,20|17|40E7,-2|18|8EFF,7|18|3CE1,8|18|3CE1,9|18|3CE1,10|18|3CE1,11|18|3CE1,12|18|3CE0,13|18|3CE0,18|18|3CDF,19|18|3CE1,20|18|3CE1,-2|19|8DFF,9|19|38DC,10|19|38DC,11|19|38DC,12|19|38DC,13|19|38DC,14|19|38DC,19|19|38DC,20|19|38DC,-2|20|8CFF,12|20|2CB9,13|20|33D6,14|20|33D6,19|20|33D6,20|20|33D6,6|21|2FCE,7|21|2FD0,8|21|2FD0,12|21|29B3,13|21|2FD1,14|21|2FD1,19|21|2FD1,20|21|2FD1,7|22|2BCB,8|22|2BCB,9|22|2BCB,10|22|2BCA,11|22|2BCA,12|22|2BCB,13|22|2BCB,14|22|25B0,19|22|2BCB,20|22|2BCB,21|22|2BCB,22|22|2BCA,9|23|27C6,10|23|27C6,11|23|27C6,12|23|27C6,20|23|27C6,21|23|27C6,22|23|27C6",1)
  93. 令 MyArray = Split(XY,"|")
  94. 令 X = Clng(MyArray(0))
  95. 令 Y = Clng(MyArray(1))
  96. 如果 x > 0 则
  97.     注释:跳完
  98.     令 sj = "游戏结束.用时" & SHI & "秒"
  99.     调用 Msg.ShowScrTXT(0,0,1024,768,sj,"0000FF")
  100.     延时 2000 毫秒