請用1024*768視窗化.要不然吃紅吃藍惠出問題. 1放紅. 2放藍水
//定義變量
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 |