[原創] 喝水~輔助~撿物

31層

0423 2009-3-20 01:15:11

//定義變量
VBS dim f5,f6,f7,f8,jia,jian,t51,t61,t71,t81,t52,t62,t72,t82
//自定義設置
UserVar f5=180 第一個技能(F5)的間隔時間(秒)，設為0表示不用該技能
UserVar f6=180 第一個技能(F6)的間隔時間(秒)，設為0表示不用該技能
UserVar f7=0 第一個技能(F7)的間隔時間(秒)，設為0表示不用該技能
UserVar f8=0 第一個技能(F8)的間隔時間(秒)，設為0表示不用該技能
UserVar jia=1 是否加紅加藍，1加，0不加
UserVar jian=1 是否撿物，1撿，0不撿
EndIf
//主程序開始
If jia=1
Gosub 加紅加藍
EndIf
KeyPress 116 1
Plugin t51=GetSysInfo.GetTime()
Delay 2000
KeyPress 117 1
Plugin t61=GetSysInfo.GetTime()
Delay 2000
KeyPress 118 1
Plugin t71=GetSysInfo.GetTime()
Delay 2000
KeyPress 119 1
Plugin t81=GetSysInfo.GetTime()
a=1
//下面是個死循環，要F12才能結束腳本
While a=1
If jian=1
      KeyPress 192 1
EndIf
If jia=1
      Gosub 加紅加藍
EndIf
Gosub 加技能
Delay 100
EndWhile
Sub 加紅加藍
IfColor 71 59 0 0
      KeyPress 50 1
Else
      IfColor 72 50 0 0
         KeyPress 50 1
      Else
         IfColor 73 50 0 0
            KeyPress 50 1
         EndIf
      EndIf
EndIf
IfColor 4 36 0 0
      KeyPress 49 1
Else
      IfColor 5 36 0 0
         KeyPress 49 1
      Else
         IfColor 6 36 0 0
            KeyPress 49 1
         EndIf
      EndIf
EndIf
Return 加紅加藍
Sub 加技能
Plugin t52=GetSysInfo.GetTime()
Plugin t62=GetSysInfo.GetTime()
Plugin t72=GetSysInfo.GetTime()
Plugin t82=GetSysInfo.GetTime()
If f5<>0
      If t52-t51>=f5*1000
         KeyPress 116 1
         Plugin t51=GetSysInfo.GetTime()
      EndIf
EndIf
If f6<>0
      If t62-t61>=f6*1000
         KeyPress 117 1
         Plugin t61=GetSysInfo.GetTime()
      EndIf
EndIf
If f7<>0
      If t72-t71>=f7*1000
         KeyPress 118 1
         Plugin t71=GetSysInfo.GetTime()
      EndIf
EndIf
If f8
      If t82-t81>=f8*1000
         KeyPress 119 1
         Plugin t81=GetSysInfo.GetTime()
      EndIf
EndIf
Return 加技能
Rem 腳本結束
EndScript