中国留学之家，中国最优秀的留学咨询公司，全球顶尖大学申请专家！征服勇士自动挂机升级脚本

djlz2008 - 2008-4-14 13:24:00

[General]
Description=玦驹笆ゴ┣((2)
BeginHotkey=120
BeginHotkeyMod=0
RunOnce=0
Enable=0
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
Delay 1000
Rem -----------笆干﹀砞﹚------------------
Rem X畒夹,箇砞39(ぃ某э)
VBS RedX=39
Rem Y畒夹(﹀籔翴)箇砞710(秸絛瞅753(翴)°688(蔼翴))
VBS RedY=710: GoBackRedY=740
Rem 弄翴肅︹,币笆Script玡﹀璶 **蔼** RedY翴
VBSCall RedColorCode=GetPixelColor(RedX,RedY)
VBSCall GBRedColorCode=GetPixelColor(RedX,GoBackRedY)
Rem ------------------------------------
Rem ┣﹀,﹀蔼,﹀︹,┣禯﹀兵禯瞒 ﹚竡(1024*768)
VBS MonsterBloodWidth=52: MonsterBloodHeight=4
VBS MonsterBloodX=0: MonsterBloodY=0
VBS M
VBS MonsterOffsetX=30: MonsterOffsetY=MonsterBloodWidth/2
Rem ------------------------------------
Rem ┮畒夹 & 棵辊 & 惠璶铬臘禯瞒
VBS PCenterX=512: PCenterY=384
VBS ScrLeftX=0: ScrLeftY=0: ScrRightX=1023: ScrRightY=694
VBS NeedJump=180
Rem ------------------------------------
Rem 禯瞒┑筐把计(ㄌ本┣跋┣单,эFightDelay,炳ぃノ跑)
VBS FightDelay=15
Rem ------------------------------------
Rem тぃ┣﹀兵簿笆抖,翴簿笆,︽糤,耎簿笆絛瞅
VBS TheWay=0
VBS MaxWay=12
VBS Dim MoveToX(16)
VBS Dim MoveToY(16)
VBS MoveToX(1)=PCenterX: MoveToY(1)=30
VBS MoveToX(2)=PCenterX: MoveToY(2)=30
VBS MoveToX(3)=PCenterX: MoveToY(3)=660
VBS MoveToX(4)=PCenterX: MoveToY(4)=660
VBS MoveToX(5)=PCenterX: MoveToY(5)=660
VBS MoveToX(6)=PCenterX: MoveToY(6)=660
VBS MoveToX(7)=PCenterX: MoveToY(7)=30
VBS MoveToX(8)=PCenterX: MoveToY(8)=30
VBS MoveToX(9)=65: MoveToY(9)=PCenterY
VBS MoveToX(10)=65: MoveToY(10)=PCenterY
VBS MoveToX(11)=980: MoveToY(11)=PCenterY
VBS MoveToX(12)=980: MoveToY(12)=PCenterY
VBS MoveToX(13)=980: MoveToY(13)=PCenterY
VBS MoveToX(14)=980: MoveToY(14)=PCenterY
VBS MoveToX(15)=65: MoveToY(15)=PCenterY
VBS MoveToX(16)=65: MoveToY(16)=PCenterY
While 1
Gosub Procedure01
If IsRunPro01=0
Gosub MoveTo
Else
If TempX<>MBLeftPoint Or TempY<>MBTopPoint
VBS TempX=MBLeftPoint: TempY=MBTopPoint
VBS LockPoint=0
Else
VBS LockPoint=LockPoint+1
If LockPoint>3
VBS LockPoint=0
Gosub MoveTo
EndIf
EndIf
EndIf
Rem ---﹀秖浪琩
Gosub ChkBlood
Rem ---浪珇
Rem Gosub FindItem
EndFor
Sub Procedure01
VBS IsRunPro01=0: IsMonster=0
VBSCall Call FindCenterColor(ScrLeftX,ScrLeftY,ScrRightX,ScrRightY,MonsterBloodColor,MonsterBloodX,MonsterBloodY)
If MonsterBloodX>=0 and MonsterBloodY>=0
VBS IsRunPro01=1
Gosub CalMonsterBloodRange
If IsMonster=1
Gosub CalDistance
If Distance>NeedJump
Rem VBS SayMsg="Jump:"+CStr(Distance)+" : "+CStr(NeedJump)
Rem Gosub Say
VBS IsMonster=0: Fight=0
KeyDown 17 1
VBSCall Call SetCursorPos(MBLeftPoint+MonsterOffsetY,MBTopPoint)
LeftClick 1
KeyUp 17 1
Delay 1500
Else
Rem VBS SayMsg="Fight:"+CStr(Distance)
Rem Gosub Say
VBSCall Call SetCursorPos(MBLeftPoint+MonsterOffsetY,MBTopPoint+MonsterOffsetX)
LeftClick 1
Delay Distance*FightDelay
EndIf
EndIf
EndIf
Rem ---﹀秖浪琩
Gosub ChkBlood
Return
Rem ----------璸衡2翴丁禯
Sub CalDistance
VBS DDX=PCenterX - (MBLeftPoint+MonsterOffsetY)
VBS DDY=PCenterY - MBTopPoint
If DDX<0
VBS DDX=DDX* -1
EndIf
If DDY<0
VBS DDY=DDY* -1
EndIf
VBS Distance=(DDX^2+DDY^2)^0.5
Return
Rem ----------﹀秖浪琩
Sub ChkBlood
VBSCall NowColorCode=GetPixelColor(RedX,RedY)
If NowColorCode<>RedColorCode
Rem F1,干﹀(112.F1,113.F2,114.F3....)
KeyPress 112 1
Delay 500
EndIf
Rem VBSCall NowColorCode=GetPixelColor(RedX,GoBackRedY)
Rem If NowColorCode<>GBRedColorCode
Rem Rem F10,(112.F1,113.F2,114.F3....)
Rem KeyPress 121 1
Rem EndScript
Rem EndIf
Return
Rem ----------﹀兵跋遏
Sub CalMonsterBloodRange
Rem ---﹀兵オ娩
VBS MBLeftPoint=MonsterBloodX
VBS Cont=1
While Cont=1
If GetPixelColor(MBLeftPoint-1,MonsterBloodY)=MonsterBloodColor
VBS MBLeftPoint=MBLeftPoint-1
Else
VBS Cont=0
EndIf
EndFor
Rem ---﹀兵娩
VBS MBTopPoint=MonsterBloodY
VBS Cont=1
While Cont=1
If GetPixelColor(MonsterBloodX,MBTopPoint-1)=MonsterBloodColor
VBS MBTopPoint=MBTopPoint-1
Else
VBS Cont=0
EndIf
EndFor
Rem ---﹀兵娩
VBS MBBottomPoint=MonsterBloodY
VBS Cont=1
While Cont=1
If GetPixelColor(MonsterBloodX,MBBottomPoint+1)=MonsterBloodColor
VBS MBBottomPoint=MBBottomPoint+1
Else
VBS Cont=0
EndIf
EndFor
Rem ---﹀蔼ぃ单MonsterBloodHeight,獶┣
If (MBBottomPoint-MBTopPoint+1)<>MonsterBloodHeight
VBS IsMonster=0
Else
VBS IsMonster=1
EndIf
Return
Rem ----------┕ヘ畒夹簿笆
Sub MoveTo
VBS TheWay=TheWay+1
If TheWay>MaxWay
VBS TheWay=1
EndIf
Rem ---┕ヘ玡秈
KeyDown 17 1
VBSCall Call SetCursorPos(MoveToX(TheWay),MoveToY(TheWay))
LeftClick 1
KeyUp 17 1
Delay 2000
Return
Rem ----------浪珇
Sub FindItem
VBS IsLoop=1
While IsLoop=1
VBSCall Call FindPic(ScrLeftX,ScrLeftY,ScrRightX,ScrRightY,".bmp",0.9,ObjX,ObjY)
If ObjX<0 Or ObjY<0
VBSCall Call FindPic(ScrLeftX,ScrLeftY,ScrRightX,ScrRightY,"蝗旷.bmp",0.9,ObjX,ObjY)
EndIf
If ObjX>=0 And ObjY>=0
VBS DDX=PCenterX - ObjX
VBS DDY=PCenterY - ObjY
If DDX<0
VBS DDX=DDX* -1
EndIf
If DDY<0
VBS DDY=DDY* -1
EndIf
VBS Distance=(DDX^2+DDY^2)^0.5
Rem -----
VBSCall Call SetCursorPos(ObjX,ObjY)
LeftClick 1
Delay Distance*10
Rem -----礚猭浪癬珇,斌
If TempX<>ObjX Or TempY<>ObjY
VBS TempX=ObjX: TempY=ObjY
Else
IsLoop=0
EndIf
Else
IsLoop=0
EndIf
EndFor
Return
Rem ----------Say
Sub Say
VBSCall Call SetCursorPos(330,710)
LeftClick 1 1
Delay 10
VBSCall Call SayString(SayMsg)
VBSCall Call SetCursorPos(686,710)
LeftClick 1 1
Delay 10
Return

留学之家留学DIY社区