1. 子程序结束,回到调用处
  2. 子程序 自动攻防
  3.     调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
  4.     调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
  5.     如果表达式 (GFx1<0 and GFy1<0 and GFx2<0 and GFy2<0) 为真,则
  6.         循环 3 遍
  7.             按键#kjjF1
  8.             延时64毫秒
  9.         循环结束
  10.         延时3200毫秒
  11.     条件结束
  12. 子程序结束,回到调用处
  13. 子程序 无药回城
  14.     如果表达式 (kjF3>0 and kjF3<5) 为真,则
  15.         kjF_hx=596
  16.         循环 kjF3 遍
  17.             kjF_hx=kjF_hx+37
  18.         循环结束
  19.     否则如果(kjF3>4 and kjF3<9)为真,则
  20.         kjF_hx=753
  21.         循环 kjF3 遍
  22.             kjF_hx=kjF_hx+37
  23.         循环结束
  24.     条件结束
  25.     如果表达式 (kjF4>0 and kjF4<5) 为真,则
  26.         kjF_lx=596
  27.         循环 kjF4 遍
  28.             kjF_lx=kjF_lx+37
  29.         循环结束
  30.     否则如果(kjF4>4 and kjF4<9)为真,则
  31.         kjF_lx=753
  32.         循环 kjF4 遍
  33.             kjF_lx=kjF_lx+37
  34.         循环结束
  35.     条件结束
  36.     如果 (kjF_hx,746) 的颜色大约等于 #b5ffe7 则
  37.         输入文本 "1111111111,买红。。。"
  38.         延时128毫秒
  39.         按键<Enter>
  40.         延时512毫秒
  41.         按键#kjjF6
  42.         延时6000毫秒
  43.         savestring="无红回城。。。"
  44.         调用子程序 写入日志
  45.         延时6000毫秒
  46.         调用子程序 回城补充
  47.     条件结束
  48.     如果 (kjF_lx,746) 的颜色大约等于 #b5ffe7 则
  49.         输入文本 "1111111111,买蓝。。。"
  50.         延时128毫秒
  51.         按键<Enter>
  52.         延时512毫秒
  53.         输入文本 "1111111111,买蓝。。。"
  54.         延时128毫秒
  55.         按键<Enter>
  56.         延时512毫秒
  57.         按键#kjjF6
  58.         延时6000毫秒
  59.         savestring="无蓝回城。。。"
  60.         调用子程序 写入日志
  61.         延时6000毫秒
  62.         调用子程序 回城补充
  63.     条件结束
  64. 子程序结束,回到调用处
  65. 子程序 包满回城
  66.     如果表达式 ((timer-t2)>bmT) 为真,则
  67.         按键<Tab>
  68.         延时256毫秒
  69.         调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
  70.         如果表达式 (kgX>0 and kgY>0) 为真,则
  71.             按键<Tab>
  72.             延时64毫秒
  73.             t2=timer
  74.         否则
  75.             输入文本 "1111111。。。"
  76.             延时32毫秒
  77.             按键<Enter>
  78.             延时256毫秒
  79.             按键#kjjF6
  80.             延时6000毫秒
  81.             savestring="包满回城。。。"
  82.             调用子程序 写入日志
  83.             延时6000毫秒
  84.             按键<Tab>
  85.             延时128毫秒
  86.             调用子程序 回城补充
  87.         条件结束
  88.     条件结束
  89. 子程序结束,回到调用处
  90. 子程序 Gosub 是否退组
  91.     duiyuan=-2
  92.     循环 tuizuN 遍
  93.         duiyuan=duiyuan+1
  94.     循环结束
  95.     调用外部VBScript子程序 Call 运行一个外部程序("Shutdown.exe -s -t 30")
  96.     如果表达式 (ZDx<0 and ZDy<0) 为真,则
  97.         输入文本 "人太少，我先退了。。。"
  98.         延时256毫秒
  99.         按键<Enter>
  100.         延时128毫秒