Rem Begin
MoveTo 1500, 500
Delay 500
'==判斷開始==
KeyPress "`", 1
Delay 500
Rem Start
FindColorEx 190,560,270,580,"305E86",0,0.8,intX,intY
If intX > 0 And intY > 0 Then
Delay 500
MoveTo 249, 515
Delay 124
Goto Go
Else
End If
Goto Start
Rem Go
MoveTo 249, 515
Delay 375
LeftClick 1
Delay 8000
Delay 8000
Delay 5000
'==看裝備==
Sub look()
Delay 500
KeyPress "C", 1
Delay 500
IfColor 1765, 319, "228B51", 0 Then
KeyPress "C", 1
Delay 500
Goto Door
Else
MoveTo 1265, 1025
Delay 300
LeftClick 1
Delay 800
MoveTo 244, 479
Delay 500
LeftClick 1
Delay 5000
Goto Start
End If
End Sub
'==範圍找門==
Rem Door
FindColorEx 520,50,690,250,"52291D",0,0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo intX, intY
Delay 200
LeftClick 1
Else
MoveTo 1265, 1025
Delay 300
LeftClick 1
Delay 800
MoveTo 244, 479
Delay 500
LeftClick 1
Delay 5000
Goto Begin
FindColor 0,125,1920,975,"0080FF",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
MoveTo intX + 8, intY + 8
Delay 500
LeftClick 2
Delay 3000
End If
FindColor 0,125,1920,975,"1A7ECD",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
MoveTo intX + 8, intY + 8
Delay 500
LeftClick 2
Delay 3000
End If
FindColor 0,125,1920,975,"1471D0",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
MoveTo intX + 8, intY + 8
Delay 500
LeftClick 2
Delay 3000
End If
'===綠色===
'00FF00
FindColor 0,125,1920,1080,"00FF00",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
MoveTo intX + 8, intY + 8
Delay 500
LeftClick 2
Delay 3000
End If
End Sub
'==清空聊天頻道(橘色)==
Sub clean0()
Delay 300
FindColor 50,550,530,900,"1A7ECD",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
KeyPress "Enter", 1
Delay 300
SayString "/2 /?"
Delay 300
KeyPress "Enter", 1
Delay 300
End If
End Sub
'==清空聊天頻道(橘色)==
Sub clean1()
Delay 300
FindColor 50,550,530,900,"1471D0",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
KeyPress "Enter", 1
Delay 300
SayString "/2 /?"
Delay 300
KeyPress "Enter", 1
Delay 300
End If
End Sub
'==清空聊天頻道(綠色)==
Sub clean2()
Delay 300
FindColor 50,550,530,900,"00FF00",intX,intY
If intX > 0 And intY > 0 Then
Delay 200
KeyPress "Enter", 1
Delay 300
SayString "/2 /?"
Delay 300
KeyPress "Enter", 1
Delay 300
End If
End Sub
Sub Hit()
Rem io
Call FindColorEx(105, 95, 1580, 900, "0203C6", 1, 0.8, x, y)
'0203C6
'00038B
//區域模?找色 0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.6為模?值 x,y為找到顏色後的坐標變量
If x>0 and y>0 Then
//如果找到顏色 比如找到顏色就會賦值給坐標變量 通過判斷坐標變量可以知道有沒有找到怪
MoveTo x+30,y+70
//把鼠標移動到該色的坐標 如果找的是怪名字或血條 可能移動不到怪身上 這時就要用鼠標偏移 如:MoveTo x+10 y+10
Delay 50
//延時
RightClick 1
//左鍵單擊進行攻擊
Delay 100
FindPic 105,95,1580,900,"Attachment:\之.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 200
Goto Nt0
End If
If x > 0 and y > 0 Then
Goto io
End If
Rem Nt0
Delay 200
End If
//條件結束
End Sub
'==找血條打怪1==
Sub Hito()
Rem ioi
Call FindColorEx(1580,300,1900,900,"0203C6",1,0.8,x,y)
//區域模?找色 0,0,1024,768為區域範圍 "FFFFFF"為顏色 1為查找方式(中間向外) 0.6為模?值 x,y為找到顏色後的坐標變量
If x>0 and y>0 Then
//如果找到顏色 比如找到顏色就會賦值給坐標變量 通過判斷坐標變量可以知道有沒有找到怪
MoveTo x+30,y+70
//把鼠標移動到該色的坐標 如果找的是怪名字或血條 可能移動不到怪身上 這時就要用鼠標偏移 如:MoveTo x+10 y+10
Delay 50
//延時
RightClick 1
//左鍵單擊進行攻擊
Delay 100
FindPic 1580,300,1900,900,"Attachment:\之.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
Delay 200
Goto Nt1
End If
If x > 0 and y > 0 Then
Goto ioi
End If
Rem Nt1
Delay 200
End If
//條件結束