说明：
天龙八部自动找怪杀怪脚本，适合远程攻击系，只能杀红名怪物。
打坐时，右上角的打坐图标要位于第二个位置。
脚本：
[General]
Description=天龙八部挂机
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
VBS dim a,b,c,d,i,j,k
VBS dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
UserVar a=F2 设置第一技能键（F2）。
UserVar b=F3 固定设置第一使用怒气技能键（F3）。
UserVar c=F4 设置第二技能键（F4）。
UserVar d=F5 设置打坐回血蓝键（F5）。
Delay 200
i=0
j=0
While true
x=0
y=0
Delay 200
VBSCall FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
If x>=10 and y>=10
MoveTo x+8,y+25
LeftClick 1
Delay 200
Gosub 技能
Gosub 杀怪
ElseIf x<10 and y<10
Delay 200
k=1
KeyPress 116,1
Delay 3000
EndIf
EndWhile
Sub 技能
Delay 200
If k=1
MoveTo 767,35
Delay 350
RightClick 1
Delay 350
k=0
EndIf
VBSCall FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
If x3=172 and y3=42
Delay 200
KeyPress 114,1
x3=0
y3=0
EndIf
Delay 200
VBSCall FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
If x4=187 and y4=37
Delay 200
KeyPress 115,1
x4=0
y4=0
EndIf
Delay 200
Return 技能
Sub 杀怪
Delay 200
While true
x1=0
y1=0
Delay 200
VBSCall FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
If x1>=221 and y1>=29
Delay 200
Goto 怪已死
EndIf
Delay 200
VBSCall FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
If x2<=221 and y2<=29
i=(x+5)-510
j=(y+25)-400
MoveTo ABS(i-510),ABS(j-400)
Delay 200
LeftClick 1
Delay 200
Goto 怪已死
EndIf
EndWhile
Rem 怪已死
Delay 200
Return 杀怪 说明：
天龙八部自动找怪杀怪脚本，适合远程攻击系，只能杀红名怪物。
打坐时，右上角的打坐图标要位于第二个位置。
脚本：
[General]
Description=天龙八部挂机
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=1
[Repeat]
Type=0
Number=1
[CallBack]
OnSetup=
[Comment]
Content=
[Script]
VBS dim a,b,c,d,i,j,k
VBS dim x,y,x1,y1,x2,y2,x3,y3,x4,y4
UserVar a=F2 设置第一技能键（F2）。
UserVar b=F3 固定设置第一使用怒气技能键（F3）。
UserVar c=F4 设置第二技能键（F4）。
UserVar d=F5 设置打坐回血蓝键（F5）。
Delay 200
i=0
j=0
While true
x=0
y=0
Delay 200
VBSCall FindColorEx(100,100,870,510,"0000FD",0,0.8,x,y)
If x>=10 and y>=10
MoveTo x+8,y+25
LeftClick 1
Delay 200
Gosub 技能
Gosub 杀怪
ElseIf x<10 and y<10
Delay 200
k=1
KeyPress 116,1
Delay 3000
EndIf
EndWhile
Sub 技能
Delay 200
If k=1
MoveTo 767,35
Delay 350
RightClick 1
Delay 350
k=0
EndIf
VBSCall FindColorEx(172,42,172,42,"D5FFFF",0,0.9,x3,y3)
If x3=172 and y3=42
Delay 200
KeyPress 114,1
x3=0
y3=0
EndIf
Delay 200
VBSCall FindColorEx(187,37,187,37,"FF5C5D",0,0.9,x4,y4)
If x4=187 and y4=37
Delay 200
KeyPress 115,1
x4=0
y4=0
EndIf
Delay 200
Return 技能
Sub 杀怪
Delay 200
While true
x1=0
y1=0
Delay 200
VBSCall FindColorEx(221,29,224,29,"080810",0,0.9,x1,y1)
If x1>=221 and y1>=29
Delay 200
Goto 怪已死
EndIf
Delay 200
VBSCall FindColorEx(221,29,224,29,"3E4DFD",0,0.8,x2,y2)
If x2<=221 and y2<=29
i=(x+5)-510
j=(y+25)-400
MoveTo ABS(i-510),ABS(j-400)
Delay 200
LeftClick 1
Delay 200
Goto 怪已死
EndIf
EndWhile
Rem 怪已死
Delay 200
Return 杀怪
是转其他论坛版主发的帖本人测试 可用！ 其他功能 自己摸索！
