匿名使用者 2013-08-03

［Script］

Plugin hwnd=Window。Foreground（）

Import window。dll

VBSBegin

win=Window。Foreground（）

client=Window。GetClientRect（win）

s=split（client，“|”）

dx=s（0）

dy=s（1）

zx=s（2）

zy=s（3）

VBSEnd

Dim red，blue，bbred，redwait，bluewait，monwait，fqg，jb，a，b，c，k，q，s1，s2，s3，s4，s5，s6，s7，t1，t2，t3，t4，t5，t6，t7，t8，t9，t10

t1=now：t2=now：t3=now：t4=now：t5=now：t6=now：t7=now：a=0：b=0：c=0：q=0

UserVar fqg=DropList{防搶怪：0|不防搶怪：1}=0 防搶怪設定

UserVar jb=DropList{不撿包：0|自動撿包：1}=0 是否撿物

UserVar s1=2 門派普攻F1間隔（秒）

UserVar s2=20 單體攻擊F2間隔（秒）

UserVar s3=20 單體攻擊F3間隔（秒）

UserVar s4=25 怒氣攻擊F4間隔（秒）

UserVar s5=80 自定技能F5間隔（秒）

UserVar s6=60 BB技能F6間隔（秒）

UserVar s7=10 狀態技能F7間隔（分）

UserVar red=DropList{30%：30|50%：50|70%：70}=1 血少於%加血F8

UserVar blue=DropList{30%：30|50%：50|70%：70}=0 藍少於%加藍F9

UserVar bbred=DropList{沒有出戰：0|20%：20|30%：30|50%：50}=2 寵少於%加血F10

UserVar redwait=1 紅藥冷卻時間（秒）

UserVar bluewait=1 藍藥冷卻時間（秒）

UserVar monwait=100 尋怪延時（毫秒）

PutAttachment 。\plugin *。dll

Rem 開始

Delay monwait

Gosub 驗證碼

Gosub 找怪

If fqg=0

IfColor dx+369，dy+31，1E252A，2

Goto 開始

EndIf

EndIf

Rem 繼續殺怪

Gosub 判斷血藍狀態

Gosub BB血狀態

Gosub 殺怪

Rem End

EndScript

Sub 驗證碼

Rem 再次報警

VBSCall FindPic（0，50，600，550，“Attachment：\yz1。bmp”，0。9，x，y）

If x>0 and y>0

Plugin SimPlayer。ring（19）

//使用了聲音外掛，需要自己去官網下載

Delay 2000

EndIf

While x>0

VBSCall FindPic（0，300，600，550，“Attachment：\20S。bmp”，0。9，x，y）

If x>=0 and y>=0

IfColor x+17，y+9-k，FFFFFF，0

KeyPress 27 1

Delay 1000

MoveTo dx+446，dy+315

Delay 1000

LeftClick 1

Goto End

EndIf

Else

Goto 再次報警

EndIf

EndWhile

Return 驗證碼

Sub 判斷血藍狀態

IfColor red/100*120+66+dx，dy+31，222222，2

a=a+1

Else

EndIf

IfColor blue/100*120+66+dx dy+37 222222 2

b=b+1

Else

EndIf

Return 判斷血藍狀態

Sub BB血狀態

If bbred>0

IfColor bbred+91+dx dy+69 111111 2

c=c+1

EndIf

EndIf

Return BB血狀態

Sub 找怪

KeyDown 1，1

Delay 10

KeyPress 9，1

Delay 10

KeyUp 1，1

Delay 10

Return 找怪

Sub 殺怪

IfColor dx+247，dy+31，0019FF，2

IfColor dx+261，dy+31，0011ff，2

Gosub 技能

Else

KeyPress 12 1

Delay 1000

EndIf

Goto 繼續殺怪

Else

If jb=1

Gosub 撿包

Else

Goto 開始

EndIf

EndIf

Return 殺怪

Sub 怒氣判斷

IfColor qx+126，qy+43，00ffff，2

q=1

EndIf

IfColor qx+188，qy+43，00ffff，2

q=2

EndIf

Return 怒氣判斷

Sub 技能

Goto 開始

If DateDiff（“s”，t1，now）>=s1

KeyPress 12 1

t1=now

Delay 100

EndIf

IfColor dx+261，dy+31，0011ff，2

If DateDiff（“s”，t2，now）>=s2

Delay 500

KeyPress 113 1

t2=now

Delay 500

EndIf

Else

EndIf

IfColor dx+261，dy+31，0011ff，2

If DateDiff（“s”，t3，now）>=s3

Delay 500

KeyPress 114 1

t3=now

Delay 500

EndIf

Else

EndIf

Gosub 怒氣判斷

IfColor dx+261，dy+31，0011ff，2

If DateDiff（“s”，t4，now）>=s4 and q>=1

Delay 500

KeyPress 115 1

t4=now：q=q-1

Delay 500

EndIf

Else

EndIf

IfColor dx+261，dy+31，0011ff，2

If DateDiff（“s”，t5，now）>=s5

Delay 500

KeyPress 116 1

t5=now

Delay 500

EndIf

Else

EndIf

IfColor dx+261，dy+31，0011ff，2

If DateDiff（“s”，t6，now）>=s6

KeyPress 117 1

t6=now

Delay 100

EndIf

EndIf

If DateDiff（“n”，t7，now）>=s7

MoveTo dx+36，dy+35

LeftClick 1

Delay 100

KeyPress 118 1

t7=now

Delay 100

KeyDown 17，1

Delay 10

KeyPress 9，1

Delay 10

KeyUp 17，1

Delay 10

EndIf

If DateDiff（“s”，t8，now）>=redwait and a>=1

KeyPress 119 1

t8=now：a=0

Delay 500

EndIf

If DateDiff（“s”，t9，now）>=bluewait and b>=1

KeyPress 120 1

t9=now：b=0

Delay 500

EndIf

If DateDiff（“s”，t10，now）>=1 and c>=1

KeyPress 121 1

t10=now

c=0

Delay 500

EndIf

Return 技能

Sub 撿包

Dim v，i，n，d，l，m，a1，b1，a2，b2，shape，x0，y0，k1，k2，x1，y1

l=20：m=2：a1=dx+286：b1=dy+200：a2=dx+486：b2=dy+400：x0=dx+366：y0=dy+300：d=954439560

If x0-a1>=a2-x0

n=a1

Else

n=x0-（a2-x0）

EndIf

Rem 開始搜尋

v=l

i=m

x1=x0：y1=y0-v

While x1>=n

k1=0：k2=v

For 2

For i

x1=x1+k1：y1=y1+k2

If x1>=a1 and x1<=a2 and y1>=b1 and y1<=b2

MoveTo x1，y1

Delay 2

VBSCall shape=GetCursorShape（0）

If shape=d

Delay 50

RightClick 1

Delay 400

Goto 開始

EndIf

EndIf

EndFor

k1=v：k2=0

EndFor

i=i+1：v=v*（-1）

EndWhile

Goto 開始

Return 撿包