[轉貼] 按精:吃紅吃藍撿物放技能

writ 該用戶已被刪除	11層 writ 2007-10-1 11:18:17 提示: 作者被禁止或刪除內容自動屏蔽
writ 該用戶已被刪除
	回覆使用道具舉報

saia3377 該用戶已被刪除	12層 saia3377 2007-11-7 06:56:44 提示: 作者被禁止或刪除內容自動屏蔽
saia3377 該用戶已被刪除
	回覆使用道具舉報

stu219 該用戶已被刪除	13層 stu219 2007-11-7 22:36:49 提示: 作者被禁止或刪除內容自動屏蔽
stu219 該用戶已被刪除
	回覆使用道具舉報

billy115 該用戶已被刪除	14層 billy115 2007-11-22 20:39:14 提示: 作者被禁止或刪除內容自動屏蔽
billy115 該用戶已被刪除
	回覆使用道具舉報

WRX11 該用戶已被刪除	15層 WRX11 2008-2-4 05:48:16 提示: 作者被禁止或刪除內容自動屏蔽
WRX11 該用戶已被刪除
	回覆使用道具舉報

孤寂破雲該用戶已被刪除	16層孤寂破雲 2008-3-4 21:24:20 提示: 作者被禁止或刪除內容自動屏蔽
孤寂破雲該用戶已被刪除
	回覆使用道具舉報

17層

0423 2008-3-22 23:17:17

[General]
Description=
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
//定義變量
VBS dim a1,a2,a3,a4,a5,f1,f2,f3,f4,jia,jian,a01,a02,a03,a04,a05,t51,t61,t71,t81,a11,a12,a13,a14,a15,t52,t62,t72,t82,1,2,3
//自定義設置
UserVar f1=300 第一個技能(F1)的間隔時間(秒)，設為0表示不用該技能
UserVar f2=300 第一個技能(F2)的間隔時間(秒)，設為0表示不用該技能
UserVar jia=1 是否加紅加藍，1加，0不加
UserVar jian=1 是否撿物，1撿，0不撿
EndIf
//主程序開始
If jia=1
Gosub 加紅加藍
EndIf
KeyPress 112 1
Plugin t51=GetSysInfo.GetTime()
Delay 2000
KeyPress 113 1
Plugin t61=GetSysInfo.GetTime()
Delay 100
a=1
//下面是個死循環，要F12才能結束腳本
While a=1
If jian=1
      KeyPress 192 1
EndIf
If jia=1
      Gosub 加紅加藍
EndIf
Gosub 加技能
Delay 100
EndIf
EndWhile
Sub 加紅加藍
IfColor 502 386 82842 0
      KeyPress 27 1
EndIf
IfColor 433 381 83042 0
      KeyPress 27 1
EndIf
IfColor 356 387 183852 0
      KeyPress 27 1
EndIf
IfColor 238 330 82439 0
      KeyPress 27 1
EndIf
IfColor 398 333 82c42 0
      KeyPress 27 1
EndIf
IfColor 385 386 82c42 0
      KeyPress 27 1
EndIf
EndIf
IfColor 73 180 80000 0
Delay 100
//指標移向略二順位
MoveTo 40 170
Delay 100
//點擊人物圖形
MoveR 1 1
Delay 100
LeftClick 1
Gosub 多點補血
EndIf
IfColor 73 276 80000 0
Delay 100
//指標移向第三順位
MoveTo 40 265
Delay 100
//點擊人物圖形
MoveR 1 1
Delay 100
LeftClick 1
Gosub 多點補血
EndIf
IfColor 68 377 80400 0
Delay 100
//指標移向第四順位
MoveTo 54 355
Delay 100
//點擊人物圖形
MoveR 1 1
Delay 100
LeftClick 1
Gosub 多點補血
EndIf
IfColor 62 475 0 0
Delay 100
//指標移向第五順位
MoveTo 45 452
Delay 100
//點擊人物圖形
MoveR 1 1
Delay 100
LeftClick 1
Gosub 多點補血
EndIf
IfColor 58 572 80400 0
Delay 100
//指標移向第六順位
MoveTo 36 541
Delay 100
//點擊人物圖形
MoveR 1 1
Delay 100
LeftClick 1
Gosub 多點補血
EndIf
// 說明  需要補到第六位  就是  上面的再增加上去  就可以  但是座標需要在抓一下
Return 加紅加藍
Sub 加技能
Plugin t52=GetSysInfo.GetTime()
Plugin t62=GetSysInfo.GetTime()
If f1<>0
      If t52-t51>=f1*1000
      EndIf
      If f2<>0
         If t62-t61>=f2*1000
            Delay 1500
            KeyPress 113 1
            KeyPress 84 1
            Plugin t61=GetSysInfo.GetTime()
         EndIf
      EndIf
Return 加技能
Sub 多點補血
      KeyPress 68 1
      Delay 100
      KeyPress 114 1
      Delay 3000
      KeyPress 115 1
      Delay 3000
      KeyPress 116 1
      Delay 3000
      KeyPress 117 1
      Delay 2500
      KeyPress 54 1
      Delay 1500
      KeyPress 118 1
      Delay 100
      KeyPress 68 1
      Delay 5000
Else
EndIf
Return 多點補血
Rem 腳本結束
EndScript

回覆

使用道具舉報

18層

0423 2008-4-2 22:22:46

[General]
Description=
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=

[Script]
//定義變量
VBS dim f5,f6,f7,f8,jia,jian,t51,t61,t71,t81,t52,t62,t72,t82
//自定義設置
UserVar f5=60 第一個技能(F5)的間隔時間(秒)，設為0表示不用該技能
UserVar f6=60 第一個技能(F6)的間隔時間(秒)，設為0表示不用該技能
UserVar f7=60 第一個技能(F7)的間隔時間(秒)，設為0表示不用該技能
UserVar f8=60 第一個技能(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 75 112 0 0
      KeyPress 50 1
EndIf
EndIf
EndIf
IfColor 169 615 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