UserVar shimen=DropList{固定:0|麻绳:1|无根:2|荒原:3|西郊:4|断魂:5|心死:6}=0 石门地府
UserVar jingc=DropList{不延:0|小丘:1|紫岚:2|玉华:3|安平:4}=0 小丘安平
UserVar yanchi=DropList{不延:0|1秒:1|2秒:2|3秒:3}=0 延迟捡物
UserVar xcheng=DropList{不延:0|京城:1|石塘:2|宁海:3}=0 宁海石塘京城
UserVar stang=DropList{不延:0|小江:1|钱宁:2}=0 小江钱宁
Plugin hwnd=Window.Find(0,"寻仙")
Plugin Window.Active(hwnd)
//需要先得到可以发送按键消息的窗口
Plugin hwnd = Window.GetKeyFocusWnd()
//取得屏幕分辨率
Plugin w = Sys.GetScRX()
Plugin h = Sys.GetScRY()
MessageBox 提醒：如果您现在的热键模式是“普通模式”，将有可能导致键盘失去响应，按下ctrl+alt+del即可解决这个问题。建议您在设置里使用“软件模式”的热键启动方式。
//等待两秒钟
VBS zhuo=shoux-82
VBS you=shoux+531
VBS shang=shouy+111
VBS xia=shouy+496
Delay 2000
Rem kaishi
If shimen=0
Goto guding
EndIf
If xcheng=1
Goto jingcheng
EndIf
If xcheng=2
Goto shitang
EndIf
//固定点
// 在地图上去的位置点一下，出现寻路图标，关上地图启动脚本
Rem guding
Gosub qwjb
Plugin Bkgnd.KeyPress(Hwnd,9)
Delay 200
IfColor 318,127,fd,1
Plugin Bkgnd.KeyPress(Hwnd, 187)
Plugin Bkgnd.Keydown(Hwnd, 100)
Delay 400
Plugin Bkgnd.KeyPress(Hwnd, 100)
EndIf
IfColor 318,127,fd,0
Plugin Bkgnd.KeyPress(Hwnd, 90)
Delay 300
Else
Goto guding
EndIf
IfColor 318,127,fd,0
Gosub daguai
EndIf
Goto guding
//石塘
Rem shitang
If stang=1
Goto xiaojiang
EndIf
//小江屯
Rem xiaojiang
Plugin Bkgnd.KeyPress(Hwnd, 90)
Delay 1000
Plugin Bkgnd.KeyPress(Hwnd, 77)
Delay 1000