小第下了一份文件是叫
[General]
Description=天龍2
BeginHotkey=122
BeginHotkeyMod=2
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=2
RunOnce=1
EnableWindow=
Enable=1
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=
[Script]
UserVar s=1594686126 刀子鼠標特徵碼可自行更正
UserVar bg=954439560 包包鼠標特徵碼可自行更正
// 註:所有涉及到顏色,鼠標形狀的值請自行使用抓點抓色功能得到後修改
VBS dim hong,lan,hongT,lanT,cwhong
// 定義變量名稱
UserVar hong=40 人物血量<hong%時,自動吃紅。可自行調整
// 自定義變量值
UserVar lan=30 人物藍量<lan%時,自動吃藍。可自行調整
// 自定義變量值
UserVar cwhong=50 寵物血量<cwhong%時,自動吃紅。可自行調整
// 自定義變量值
UserVar hongT=256 補血延時時間(毫秒)
// 自定義變量值
UserVar lanT=256 補藍延時時間(毫秒)
// 自定義變量值
UserVar xxx=310 掃描區域左上角X座標可自行調整
UserVar yyy=146 掃描區域左上角Y座標可自行調整
UserVar nnn=21 掃描寬度可自行調整
UserVar zzz=36 掃描高度可自行調整
Delay 30
// 延時30毫秒
///////
VBS Dim phplx,phprx,phpnx,phpy,chplx,chprx,chpnx,chpy,mhplx,mhprx,mhpnx,mhpy,cmplx,cmprx,cmpnx,cmpy
VBS Dim chpColor,cNohpColor,cmpColor,cNompColor,mhpColor,mNompColor,phpColor,pNohpColor
//=
//角色血條顏色
VBS chpColor="0112FF":cNohpColor="111111":cmpColor="FFBBBB":cNompColor="111111"
//怪物血條顏色
VBS mhpColor="0019FF":mNompColor="080911"
//寵物血條
VBS phpCLOLor="0112FF":pNohpColor="111111"
////////////////
//寵物血條最左邊X座標值
VBS phplx=273:phprx=370:phpnx=113:phpy=119
////////////////
//角色血條最左邊X座標值
VBS chplx=273:chprx=392:chpnx=125:chpy=80
///////////////
//怪物血條最左邊X座標值
VBS mhplx=455:mhprx=577:mhpnx=308:mhpy=80
///////////////
//角色藍條最左邊X座標值
VBS cmplx=273:cmprx=392:cmpnx=125:cmpy=85
/////////////////
//條件結束
Rem sss
VBSCall FindPic(211,50,1197,779,"003.bmp",0.9,x,y)
If x>=0 and y>=0
MoveTo x y
Delay 5
For 10
Beep
Beep
Delay 1000
EndFor
Else
EndIf
VBS n = nnn
// 定義變量n,用於後面的循環
VBS x=xxx
// 定義鼠標移動到怪物身上後變成刀形鼠標的值,請使用抓點抓色功能得到
While n >= 0
// 如果n大於等於0,則執行循環
// 定義找怪區域左上角的Y坐標
VBS y=yyy
VBSCall setCursorPos(x,y)
//MoveTo x,y
// 鼠標移動到坐標x,y
Delay 2
// 延時10毫秒
VBSCall k=GetCursorShape(0)
// 調用外部VBS子各程序得到當前鼠標形狀並賦值到變量K
If k = s
// Delay 4
// 如果表達式k=s成立,則執行下面的語句
VBS a=0
// 該變量用於時間判斷
Delay 10
// RightClick 1
KeyDown 17,1
KeyPressH 9,1
KeyUp 17,1 // RightClick 1
// 鼠標右鍵單擊
Delay 32
// 延時10毫秒
Rem 有怪
// 標記 有怪
IfColor mhprx,mhpy,mhpColor,2
//IfColor 223,33,0010ff,0
// 如果坐標223,33的顏色等於「0010ff"則執行下面的語句。坐標223,33為鼠標右鍵點中怪物後,怪物血條最左邊的的坐標
// 按鍵F1攻擊
// Delay 10
// 延時10毫秒
Gosub 用力攻擊
//Goto 有怪
// 跳轉到標記有怪執行判斷,看怪物死沒有
Else
y=y+30
EndIf
// 條件結束
ElseIf k=bg
Delay 32
//檢物
Gosub pick
Else
VBS a=a+1
EndIf
// 條件結束
VBS z = zzz
While z >= 0
VBS y = y + 15
// y坐標增加30
VBS z = z - 1
VBSCall setCursorPos(x,y)
//MoveTo x,y
Delay 2
VBSCall k=GetCursorShape(0)
If k = s
VBS b=0
// 該變量用於時間判斷
RightDown 1
Delay 32
RightUp 1
Delay 10
// RightClick 1
KeyDown 17,1
KeyPressH 9,1
KeyUp 17,1
Delay 10
Rem 怪物
IfColor mhprx,mhpy,mhpColor,2
// IfColor 223,33,0010ff,0
// Delay 10
Gosub 用力攻擊
//Goto 怪物
Else
y=y+30
EndIf
ElseIf k=bg
Delay 32
//檢物
Gosub pick
Else
VBS b=b+1
EndIf
EndWhile
VBS x = x + 30
// x坐標增加50
VBS n = n - 1
EndWhile
Goto sss
Sub pick
RightDown 1
Delay 32
RightUp 1
Delay 400
Return
//If a>=1830 and b>=27450
// 如果大約5分鐘左右沒有找到怪,則執行下面的語句
// MoveTo 512,150
// LeftClick 1
// Delay 2000
// MoveTo 512,150
// LeftClick 1
// Delay 2000
//EndIf
Sub 紅藍卜卜
IfColor hong/100*(chprx-chplx)+chplx chpy cNohpColor 2
//IfColor hong/100*121+65 31 212021 2
// 如果坐標300,80的顏色大約等於「111111」則,其中121為人物血條最右邊的X坐標減去人物血條最左邊的X坐標,65為人物血條最左邊的X坐標,31為人物血條的Y坐標
KeyPress 119 1
//按下補血快捷鍵F8
Delay hongT
//補血延時
EndIf
// 條件結束
IfColor hong/100*(cmprx-cmplx)+cmplx cmpy cNompColor 2
//IfColor lan/100*121+65 37 212021 2
// 如果坐標hong/100*121+65,37的顏色大約等於「212021」則,其中121為人物藍條最右邊的X坐標減去人物藍條最左邊的X坐標,65為人物藍條最左邊的X坐標,37為人物藍條的Y坐標
KeyPress 120 1
//按下補藍快捷鍵F9
Delay lanT
//補藍延時
EndIf
//條件結束
IfColor hong/100*(phprx-phplx)+phplx phpy pNohpColor 2
// 如果坐標285,119的顏色大約等於111111則,其中97為寵物務條最右邊的X坐標減去寵物血條最左邊的X坐標,64為寵物血條最左邊的X坐標,70為寵物血條的Y坐標
KeyPress 121 1
//按下補血快捷鍵F10
Delay hongT
//補血延時
EndIf
Return
Sub 用力攻擊
Rem 攻擊
KeyPress 112,1
Delay 1000
KeyPress 113,1
Delay 1000
KeyPress 114,1
Delay 1000
KeyPress 115,1
Delay 1000
//Gosub 技能處理
Gosub 紅藍卜卜
Gosub 檢測攻擊目標是否死亡
IfColor mhplx,mhpy,mhpColor,2
Delay 450
Goto 攻擊
Else
Delay 600
//Gosub scanPP
//Goto 3
//3 揀物
EndIf
Return
Sub 檢測攻擊目標是否死亡
IfColor mhplx,mhpy,mNohpColor,2
Goto start
EndIf
Return
小第不太明白... 是否這天龍.txt 放在面便可以求解答 |