DNF刷怪的按键精灵脚本,良久前写的,后果欠好

2020-04-07 02:49

  Rem begin

  MoveTo 60, 60

  LeftClick 1

  dim begincolorPos,endcolorPos?

  begincolorPos="DD9900"

  endcolorPos="0022FF"

  Dim speed

  speed=15

  Dim colorMen

  colorMen="9CADFF"

  Dim colorNameBound(5)

  colorNameBound(0)="EDD568"http://蓝色

  colorNameBound(1)="FF6BB3"http://紫色

  colorNameBound(2)="EDD568"http://蓝色

  colorNameBound(3)="FF6BB3"http://紫色

  colorNameBound(4)="FFFFFF"http://白色

  Dim beginPosX, beginPosY,endposx,endposy

  beginPosX=616

  beginPosY=57

  FindColor 0, 0, 640, 480, begincolorPos,beginPosX,beginPosY

  FindColor 0, 0, 640, 480, endcolorPos, endposx, endposy

  Dim i

  i=0

  i=cint((616 - beginPosX + 10)/19)

  If i=4 Then?

  If beginPosY > 57 + 10 Then?

  i=5

  End If

  ElseIf i > 4 Then

  i=i+1

  End If

  For 9 - i

  If i=4 Then?

  beginPosY=beginPosY + 19

  ElseIf i=7 Then

  beginPosY=beginPosY + 19

  ElseIf i<8

  beginPosX=beginPosX - 19

  End If

  Call 刷怪(beginPosX, beginPosY)

  Rem 刷怪完毕

  Call 捡取物品()

  Delay 100

  KeyPressH "Ctrl", 1

  Delay 100

  Call 捡取物品()

  Delay 100

  Rem 进入下关

  If i=4 Then?

  Call 移动到(220, 340)

  Call 移动到(220, 460)

  ElseIf i=3 Then

  Call 移动到(100, 300)

  Call 移动到(0, 300)

  ElseIf i=5 Then

  Call 移动到(100, 320)

  Call 移动到(0, 320)

  ElseIf i=6 Then

  Call 移动到(100, 300)

  Call 移动到(0, 300)

  ElseIf i < 8

  Call 移动到(0, 300)

  Else?

  Delay 2000

  End If

  Dim index

  FindColor 0, 0, 640, 480, begincolorPos,beginPosX,beginPosY

  index=cint((616 - beginPosX + 10)/19)

  If index=4 Then?

  If beginPosY > 57 + 10 Then?

  index=5

  End If

  ElseIf index > 4 Then

  index=index+1

  End If

  If index=i Then?

  Goto 进入下关

  End If

  i=i + 1

  Next

  MoveTo 460, 90

  LeftClick 15

  Delay 2000

  KeyPressH 39, 3//右

  Delay 100

  KeyPressH 38, 3//上

  Delay 1000

  MoveTo 318, 380

分享到:
收藏