UserVar tool=DropList{"8":"8"|"9":"9"|"0":"0"}=8 "采集工具键"
UserVar skill=DropList{"8":"8"|"9":"9"|"0":"0"}=9 "采集技能键"
UserVar drug=DropList{"8":"8"|"9":"9"|"0":"0"}=0 "跌打药键"
UserVar furm=DropList{"1":"1"|"2":"2"|"3":"3"}=1 "采集窗口个数"
UserVar sum=0 "采集工具个数"
UserVar waittime=1860000 "采集一把工具完成时间（毫秒）"
UserVar cure=2 "采集几个工具后吃跌打药"

Dim i
i = 0
Dim t
t = 1

For sum

  For furm
  
    If i = cure And t <= furm Then 
      If drug = 8 Then 
        KeyPress 56,1
      ElseIf drug = 9 Then
        KeyPress 57,1
      ElseIf drug = 0 Then
        KeyPress 48, 1
      End If
      If furm = 1 Then 
      	i = 0
      ElseIf  t = 2 And furm = 2 Then
        i = 0
      ElseIf t = 3 And furm = 3 Then
        i = 0
      End If
    End If
    
    Delay 1200
    
    If tool = 8 Then 
      KeyPress 56,1
    ElseIf tool = 9 Then
      KeyPress 57,1
    ElseIf tool = 0 Then
      KeyPress 48,1
    End If 

    Delay 1200

    If skill = 8 Then 
      KeyPress 56,1
    ElseIf skill = 9 Then
      KeyPress 57,1
    ElseIf skill = 0 Then
      KeyPress 48,1
    End If
    
    Delay 1200
    
    If t = 1 And furm > 1 Then 
  	    KeyDown 18, 1
  		Delay 1000
  		KeyPress 9, 1
  		Delay 1000
  		KeyUp 18, 1
  		Delay 20000
  	ElseIf t = 2 And furm = 2 Then
  	    KeyDown 18, 1
  	    Delay 1000
  		KeyPress 9, 1
  		Delay 1000
  		KeyUp 18, 1
  		Delay 20000
  	ElseIf t = 2 And furm = 3 Then
  	    KeyDown 18, 1
  	    Delay 1000
  		KeyPress 9, 1
  		Delay 1000
  		KeyPress 9, 1
  		Delay 1000
  		KeyUp 18, 1
  		Delay 20000
  	ElseIf t = 3 Then
  	    KeyDown 18, 1
  	    Delay 1000
  		KeyPress 9, 1
  		Delay 1000
  		KeyUp 18, 1
  		Delay 20000
  	End If
    t = t + 1
    
    Delay 1200

  Next
  
i = i + 1

t = 1
Delay waittime

Next