#1台版仙魔道按鍵精靈腳本分享陽春版0319再次修訂

ranowu

//********************
//環境 1024*768
//全螢幕
//遊戲預設按鍵1 攻擊
//遊戲預設按鍵2 技能
//F1 補紅
//F2 補藍
//遊戲預設F9 休息
//遊戲預設TAB 尋怪
//********************
//防呆部份有待改進，請大家幫忙改一改
//裡面有相當多不必要的東西，不影響執行，可隨意刪除"//"之後都可刪
//********************
VBS Dim addhp,addnmp,addhpT,addnpT
UserVar addhp=30 血量<addhp%時，自動吃紅。
UserVar addmp=15 藍量<amdhp%時，自動吃藍。
UserVar addhpT=1000 補血延時時間（毫秒）
UserVar addmpT=1000 補藍延時時間（毫秒）
VBS Dim charRed,charBlue,monRed,redLeft.redMiddle,redRight,monLeft.monMiddle,monRight
VBS Dim ztjnt,ztjn,aniSki3,keyF2,bour,rota,monX,sk1,sk2
ztjnt=30
Delay 1000
rota=now
monX=666
//KeyPress 115,1
ztjn=now
//Delay 2200
//****************************************************************
//****************************************************************
Rem 開始掛機
Rem 0
Gosub 打坐
Rem 滿血
Gosub 狀態技能
Rem 1
//Gosub rotate
Gosub 尋怪
Rem 2
Gosub 判斷攻擊方式
Rem 3
//Delay 100
Gosub 確認無他怪
Rem 4
//Gosub 揀物
Goto 開始掛機
Sub 確認無他怪
IfColor 397,41,07008C,0
KeyPress 49,1
Delay 800
KeyPress 50,1
Delay 800
Goto 小護士
Goto 3
Else
Goto 4
EndIf
Return
//****************************************************************
Sub 防呆裝置
If DateDiff("s",bour,Now) >=10
Delay 100
IfColor 625,41,07008C,0
//IfColor 950,26,2929D4,0
KeyDown 83,1
Delay 200
KeyUp 83,1
KeyPress 9,1
Delay 200
// Gosub 打坐
Goto 2
EndIf
EndIf
Return
//****************************************************************
Rem 攻擊
KeyPressH 49,1
Delay 800
KeyPressH 50,1
Delay 1000
//Gosub 攻擊技能sk1
//Gosub 攻擊技能sk1
//Gosub 攻擊技能sk2
Goto 小護士
Rem 檢測攻擊目標是否死亡
Gosub 防呆裝置
IfColor 397,41,07008C,0
//IfColor 839,26,2929D4,0
Delay 450
Goto 攻擊
Else
Delay 600
Goto 3
//3 揀物
EndIf
//****************************************************************
Sub 揀物
KeyPress 50,2
Delay 500
KeyPress 50,2
Delay 500
KeyPress 50,2
Delay 500
Return
//****************************************************************
//數字3 紅，數字4 藍
//在遊戲中利用按鍵抓點抓色工具找到hplx,hprx,hpy,color所對應的值並替換。
Rem 小護士
Delay 250
//循環小延時，防止出現CPU使用率過高，腳本卡
Rem 補紅
IfColor addhp/100*(148-11)+11,34,2610E0,1
//hprx=血條在屏幕最右端x坐標104，hplx=血條在屏幕最左端y坐標393，
//hpy=hplx,hprx在血條中的同一縱坐標。
//addhp/100*(hprx216-hplx104)+hplx104,hpy38,color
KeyPress 112,1
//按下補血快捷?
Delay addhpT
//補血延時
Else
Goto 檢測攻擊目標是否死亡
//Delay 100
//Goto 補藍
EndIf
Rem 補藍
IfColor addmp/100*(148-11)+11,50,EB8400,1
//mprx=藍條在屏幕最右端坐標，mplx=藍條在屏幕最左端坐標，
//mpy=mplx,mprx在藍條中的同一縱坐標。
//addmp/100*(mprx-mplx)+mplx,mpy,color
KeyPress 113,1
//按下補藍快捷鍵4
Delay addmpT
//補藍延時
Else
Goto 檢測攻擊目標是否死亡
EndIf
//////////////////////////////////
Sub 尋怪
//Rem 開始掛機
IfColor 397,41,07008C,0
// monLeft,monY monRed
Delay 32
IfColor 625,41,07008C,1
KeyPress 9,1
EndIf
Goto 2
Else
KeyPress 9,1
Delay 200
EndIf
Return
////////////////////////////////////
Sub 判斷攻擊方式
//0相等1不等
IfColor 625,41,07008C,0
// IfColor monX,19,2020DA,0
// IfColor 900,26,2929D4,0
Delay 450
// IfColor 1040,26,2929D4,0
bour=now
Goto 攻擊
// Else
// Goto 1
// EndIf
Else
Delay 450
//Goto 攻擊
Goto 1
//尋怪
//Goto 開始掛機
EndIf
Return
//===============================================================
Sub 狀態技能
If DateDiff("s",ztjn,Now) >= ztjnt
Delay 500
KeyPress 84,1
Delay 1000
VBS ztjn=now
Else
Delay 32
EndIf
Return
//================
Sub 打坐
Gosub 打坐遇怪反擊
// IfColor 95/100*(175-20)+20,30 1000F7,0
// Goto 滿血
// EndIf
IfColor 76,34,2610E0,1
//黑血
//IfColor 78/100*(175-20)+20,30 1000F7,1
//KeyPress 123,1
Delay 100
KeyPress 120,1
Delay 1000
Rem sitre
Delay 500
// Delay 50
// IfColor 397,41,07008C,0
Gosub 打坐遇怪反擊
IfColor 148,34,2610E0,0
Delay 32
KeyPress 120,1
Delay 1000
Goto 滿血
EndIf
Delay 1000
Goto sitre
Else
Delay 32
EndIf
Return
//=========================================================
//=========================================================
Sub 打坐遇怪反擊
IfColor 397,41,07008C,0
// IfColor monX,19,2020DA,0
// IfColor 839,26,2929D4,0
// IfColor 640,27,1000F7,0
KeyPress 120,1
Delay 350
Goto 攻擊
EndIf
Return
////////////////////////////////////
//
Sub rotate
If DateDiff("s",rota,Now) >= 120
RightDown 1
Delay 500
MoveR -200,0
Delay 500
RightUp 1
rota=now
EndIf
Return
Sub 攻擊技能sk1
//IfColor 76,50,EB8400,0
If DateDiff("s",sk1,Now) >= 4
Delay 200
KeyPress 50,1
Delay 1000
VBS sk1=now
EndIf
// EndIf
Return
Sub 攻擊技能sk2
If DateDiff("s",sk2,Now) >= 7
Delay 200
KeyPress 51,1
Delay 500
VBS sk2=now
Else
Delay 32
EndIf
Return

複製代碼

☆此訊息由版主加入，請發帖會員勿編輯去除☆

回帖是給發帖會員的鼓勵！會員請勿在此回覆惡意灌水、複製他人回覆、注音火星文、簡體字等等。

[ 本帖最後由 ranowu 於 2008-3-19 13:16 編輯 ]

~義氣~ 該用戶已被刪除	119層 ~義氣~ 2008-5-17 08:42:07 提示: 作者被禁止或刪除內容自動屏蔽
~義氣~ 該用戶已被刪除
	回覆使用道具舉報

喧鬧中享受寧靜該用戶已被刪除	115層喧鬧中享受寧靜 2008-4-9 10:28:03 提示: 作者被禁止或刪除內容自動屏蔽
喧鬧中享受寧靜該用戶已被刪除
	回覆使用道具舉報

外掛聯合國

[原創] #1台版仙魔道按鍵精靈腳本分享陽春版0319再次修訂

評分

相關POST

回覆 1# 的文章

瀏覽過的版塊

外掛聯合國

[原創] #1台版仙魔道 按鍵精靈 腳本分享 陽春版0319再次修訂

評分

相關POST

回覆 1# 的文章

瀏覽過的版塊

[原創] #1台版仙魔道按鍵精靈腳本分享陽春版0319再次修訂