j=0 while j=0 FindPic L+20,T+320,L+200,T+430,"Attachment:\剩余次数.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Get_RemainTime j=1 Else Go_BH_gettime End If Wend End If Wend End Function //是否已经弹出价格界面 Function Price() FindPic L+20,T+125,L+220,T+200,"Attachment:\价格.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then Price = True Else Price = False End If End Function Function checkC() //判断物品价格是否大于3333 Dim a(9) a(0)="0111010001100011000110001100011000101110=0" a(1)="0010001100001000010000100001000010001110=1" a(2)="0111010001100010001000100010001000011111=2" a(3)="0111010001000010011000001000011000101110=3" a(4)="0001000110010100101010010011110001000011=4" a(5)="1111110000100001111000001000011000101110=5" a(6)="0111010010100001011011001100011000101110=6" a(7)="1111110010000100010000100001000010000100=7" a(8)="0111010001100010111010001100011000101110=8" a(9)="0111010001100011000101111000010100101110=9" c = Plugin.RFNO.GetNumberEx(x,y,"000101",5,a,5,8,1) If CLng(c)>3333 Then checkC=True Else checkC=False End If End Function //判断是否在王城 Function In_WC() FindPic L,T,L+800,T+600,"Attachment:\王城.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then In_WC=True Else In_WC=False End If End Function //判断是否已经打开NPC鲁布 对话界面 Function OpenNPC_LB() i=0 While i=0 FindPic L,T,L+300,T+300,"Attachment:\NPC鲁布.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then OpenNPC_LB=True i=1 Else OpenNPC_LB=False End If Wend End Function //判断是否已经打开NPC马柯 对话界面 Function OpenNPC_MK() i=0 While i=0 FindPic L,T,L+300,T+300,"Attachment:\NPC马柯.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then OpenNPC_MK=True i=1 Else OpenNPC_MK=False End If Wend End Function //判断是否已经开打NPC珐琅对话界面 Function OpenNPC_FL() i=0 While i=0 FindPic L,T,L+300,T+300,"Attachment:\NPC珐琅.bmp",0.9,intX,intY If intX > 0 And intY > 0 Then OpenNPC_FL=True i=1 Else OpenNPC_FL=False End If Wend End Function //去NPC鲁布交任务 Function Go_LB() M=T+225 For j=0 to 2 MoveTo L+586,T+209 Delay 300 LeftClick 1 Delay 300 If OpenNPC_LB = True Then Delay 300