Delay 43
   
End sub
//买剑魂
Sub mai4()
    MoveTo 480, 475
    MoveTo 451, 495
    Delay 41
    MoveTo 450, 495
    Delay 511

    LeftDown 1
    Delay 2
    LeftClick 1
    Delay 2
    LeftUp 1
    Delay 100
    MoveTo 451, 495
    Delay 84
    
End sub
//关
Sub guan()
    MoveTo 850, 263
    Delay 39
    MoveTo 850, 262
    Delay 41
    MoveTo 850, 261
    Delay 93

    LeftDown 1
    LeftClick 1
    LeftUp 1
    Delay 117
    MoveTo 848, 261
   
End Sub
//回
Sub song()
    MoveTo 784, 261
    Delay 29
    MoveTo 783, 261
    Delay 110
    KeyDown "W", 1
    Delay 128
    KeyUp "W", 1
    Delay 2
    Delay 139
End Sub
//判断是否结束
Sub panduan()
	//已经做任务
    


If j>4 and j<13 then
KeyDown "Ctrl", 1
 Delay 130
 KeyPress "V", 1
 Delay 30
KeyUp "Ctrl", 1
Delay 80
End if
   FindPic 700,0,1024, 100, "C:\Program Files\房主.bmp", 0.3, intX, intY
    If intX > 0 And intY > 0 Then 

        Goto kaishi
    End If
    //做任务打狮王
    If j>22 and r<1 then
       FindPic 650,0,1024, 140,"C:\Program Files\13波.bmp",0.4,intX,intY
           If intX > 0 And intY > 0  Then
        	renwu1 
        	r=1
        End If 
    End if
    
End Sub
   

//捡漏
Sub jianlou()

FindColorEx 73, 626,108,732,"000097",2,0.95,intX,intY
If intX > 0 And intY > 0 Then 
	
    MoveTo intX, intY
    Delay 40
	LeftClick 1
    Delay 200
MoveTo 511, 361
   RightClick 1
   Delay 200
    MoveTo 520, 365
	RightClick 1
Delay 3000
wo
End If