UserVar Var1=DropList{作者QQ:939130693:2|作者QQ:939130693:3}=0 ★第1步请先打开你要使用的窗口★
UserVar Var2=DropList{WINDOWS经典模式:2|作者QQ:939130693:3}=0 ★然后在桌面空白地方点一下鼠标左键★
UserVar Var3=DropList{32色:2|作者QQ:939130693:3}=0 ★现在您可以按启动热键开始工作了★
dim tp(10)
dim i
dim wpx,wpy
tp(0)="Attachment:\卡.bmp"
tp(1)="Attachment:\合成炉寒铁.bmp"
tp(2)="Attachment:\合成炉火铜.bmp"
tp(3)="Attachment:\合成炉密银.bmp"
tp(4)="Attachment:\合成炉金髓.bmp"
tp(5)="Attachment:\合成炉水晶.bmp"
tp(6)="Attachment:\合成炉白金.bmp"
tp(7)="Attachment:\合成炉星沙.bmp"
tp(8)="Attachment:\合成炉太阴.bmp"
tp(9)="Attachment:\合成炉太阳.bmp"
tp(10)="Attachment:\合成炉天魂.bmp"
Delay 2000
KeyDown 18,1
KeyPress 27,1
KeyUp 18,1
Delay 200
KeyPress 13,1
Delay 1000
Plugin hwnd=Window.MousePoint()
Plugin biaoti=Window.GetText(hwnd)
Plugin hwnd=Window.Find(0,"biaoti")
Plugin Window.Active(hwnd)
Plugin hwnd = Window.GetKeyFocusWnd()
Plugin Window.Move(hwnd,0,0)
Rem 查龙城
VBSCall FindPic(650,0,799,50,"Attachment:\龙城.bmp",0.8,zx,zy)
If X>0 and y>0
    KeyPress 122,4
Else 
    i=0
    If i<2
        VBSCall FindPic(0,0,799,599,"Attachment:\回城卷bmp",0.7,x,y)
        If x>0
            MoveTo x+5,y+5
            Gosub 点鼠标
            Goto 查到回城卷
        EndIf 
        VBSCall FindPic(0,0,799,599,"Attachment:\物品栏bmp",0.9,x,y)
        If x=-1
            MoveTo 468,590
            Gosub 点鼠标
        EndIf 
        VBSCall FindPic(0,0,799,599,"Attachment:\回城卷bmp",0.9,x,y)
        If x>0
            MoveTo x+5,y+5
            Gosub 点鼠标
            Goto 查龙城
        EndIf 
        i=i+1
    EndIf 
    VBSCall FindPic(0,0,799,599,"Attachment:\长乐.bmp",0.8,clx,cly)
    VBSCall FindPic(0,0,799,599,"Attachment:\源东.bmp",0.8,ydx,ydy)
    VBSCall FindPic(0,0,799,599,"Attachment:\源西.bmp",0.8,yxx,yxy)
    If clx>0
        hdx=530:hdy=403:FKTXZy=340
        Gosub 自动跑NPC
    ElseIf yxx>0
        hdx=392:hdy=177:FKTXZy=320
        Gosub 自动跑NPC
    ElseIf ydx>0
        hdx=333:hdy=195:FKTXZy=320
        Gosub 自动跑NPC
    Else 
        MoveTo 706,195
        Gosub 点鼠标
        MoveTo 645,238
        Gosub 点鼠标
        MoveTo 464,260
        Gosub 点鼠标
        Goto 查龙城
    EndIf 
    Rem 传送1
    MoveTo 711,114
    Gosub 点鼠标
    MoveTo 404,280
    Gosub 点鼠标
    KeyPress 13,1
    Rem 找传送
    VBSCall FindPic(0,0,700,599,"Attachment:\传送.bmp",0.8,x,y)
    If x>0
        MoveTo 273,447
        Delay 200
        LeftClick 2
        Delay 32
    Else 
        Delay 200
        Goto 找传送
    EndIf 
EndIf 
EndIf 
MoveTo 711,114
Gosub 点鼠标
Rem 到了炉子旁
VBSCall FindPic(401,367,413,379,"Attachment:\红点.bmp",0.8,x,y)