IfColor 143,437,"6DA2B9",1 then
//接受任务
Delay 1000
MoveTo 143,437
Delay 100
LeftClick 1
Delay 100
KeyPress "Esc", 1
Delay 100
MoveTo 419,405
Delay 600
LeftClick 2
Else
Delay 1000
//放弃任务
MoveTo 419,402
Delay 100
LeftClick 1
Delay 100
MoveTo 336,407 
Delay 100
LeftClick 1
Delay 100 
End If
KeyPress "Esc", 1
Next 
EndScript 
End Sub 

Sub 输出信息
Call Plugin.Bkgnd.SendString(Hwnd2, "内容")
Plugin.Window.Active hwnd2
KeyPress "enter",1
End Sub 

Function xiejiage(geshu,jq,wupin)
Set fso = CreateObject("Scripting.FileSystemObject") 
b=Plugin.File.ExistFile("c:\testfile.txt")
If b=0 Then 
Set c= fso.CreateTextFile("c:\testfile.txt") 
set a=fso.opentextfile("c:\testfile.txt",8)
Else 
set a=fso.opentextfile("c:\testfile.txt",8)
End If 
a.writeline(now&"————"&"第"&geshu&"格单价:"&wupin&"价钱"&jq)
a.close 
End Function 

Function jiage(yanshi)
Delay yanshi
Dim ss(100)
ss(0)="3131CE" //强韧
ss(1)="52423A" //威严
ss(2)="84C6C6" //狂乱
            ss(3)="8F4668" //震撼
        ss(4)="591B91" //扭曲
    ss(5)="BDB5C6" // 蓝冰
ss(6)="6B6B63" //灵魂
    ss(7)="828181" // 气息
    ss(8)="47443F" // 泰拉
ss(9)="528429" //灾难
ss(10)="4A4A5B" //眼睛
ss(11)="D69473" //小篮
ss(12)="848484" //无色
ss(13)="73194A" //小黑
ss(14)="7B7BEF" //小红
ss(15)="B5B5B5" //小白
    ss(16)="57434D" //混沌
uservar sss1= 23000 "威严"
uservar sss2= 23000 "狂乱"
    uservar sss3= 23000 "震撼"
    uservar sss4= 23000 "扭曲"
uservar sss5= 23000 "强韧"
    uservar sss6= 5000 "蓝冰"
uservar sss7= 1000"混沌魔石碎片"
uservar sss8= 100 "小红"
uservar sss9= 100"小白"
    uservar sss10= 100"小蓝"
    uservar sss11= 30"无色"
uservar sss12= 100"小黑"
    uservar sss13= 7000"气息"
    uservar sss14= 1500"泰拉"
    uservar sss15= 22000"大白"
    uservar sss16= 22000"大红"
    uservar sss17= 22000"大黑"
    uservar sss18= 22000"大蓝"
    uservar sss19= 1000"灵魂"
    uservar sss20= 1000"灾难"
    Dim n,m,i,j,qian
qian=0
n=0
geshu=1
Dim kx
kx=85 //第一格物品x取色点
ux=kx
Dim ky
ky=191 //第一个物品y取色点
//扫描第一行物品，共8个物品格
for 8 
// 单格物品扫描