EndFor
Return main
Sub丢弃交易品
Plugin Window.Active（hwn）
Delay 300
Plugin Window.Restore（hwn）
Delay 1000
Plugin Window.SendKeyPress（hwn，118）
Delay mainDalay＊100
MoveTo 437-5+DX，393-24+DY
Delay 50
LeftClick 1
Delay 200
If nDisMode = 0
Gosub全丢
ElseIf nDisMode = 3
Gosub指定丢弃
Else
EndIf
Return丢弃交易品
Sub全丢
MoveTo 120-5+DX，164-24+DY
Delay 50
KeyDown 17，1
LeftClick 30
Delay 100
KeyUp 17，1 MoveTo 636-5+DX，420-24+DY
Delay 100
LeftClick 1
Delay 50
Plugin Window.SendKeyPress（hwn，27）
Delay 50
Plugin Window.SendKeyPress（hwn，27）
Return全丢
Sub指定丢弃
For 8
VBSCall FindPic（disleft，distop，disright，disbottom，“1.bmp”，0.9，x，y）
If x>=0 and y>=0
MoveTo x，y-30
Delay 50
KeyDown 17，1
LeftClick 1
KeyUp 17，1 MoveTo x-20，y
Delay 50
KeyDown 17，1
LeftClick 1
KeyUp 17，1 MoveTo x+60，y
Delay 50
KeyDown 17，1
LeftClick 1
KeyUp 17，1
Else
EndIf
EndFor
IfColor DX+366，DY+360，7c7cf7，0 MoveTo 636-5+DX，420-24+DY
Delay 100
LeftClick 1
Gosub LogOut
Delay 30000
KeyDown 17，1 KeyPress 116，1 KeyUp 17，1
Else
MoveTo 636-5+DX，420-24+DY
Delay 100
LeftClick 1
Delay 200
EndIf
Return指定丢弃
Sub吃料理
For 4
If swBackGround=0
Gosub取色防GM
EndIf
Plugin Window.SendKeyPress（hwn，119）
Delay mainDalay＊100
Plugin Window.SendKeyPress（hwn，113）
Delay 50
Plugin Window.SendKeyPress（hwn，114）
Delay 50
Plugin Window.SendKeyPress（hwn，115）
Delay 50
Plugin Window.SendKeyPress（hwn，116）
Delay 50
Plugin Window.SendKeyPress（hwn，117）
Delay 1000
EndFor
Return吃料理
Sub取色防GM
//聊天框内取色防GM
VBSCall FindColor（gmleft， gmtop， gmright， gmbottom， “79f2f2”， x， y）
If x>0 and y>0
Delay 5000
Gosub LogOut
Delay 900000
Gosub LogIn
Delay mainDalay＊280
Delay 500
KeyDown 17，1 KeyDown 37，1
Delay 1550
KeyUp 37，1 KeyUp 17，1
Goto start
EndIf
Return取色防GM
//登入游戏
Sub LogIn
MoveTo DX+50， DY+50
Delay 50
LeftClick 1
MoveTo DX+400， DY+439
Delay 50
LeftClick 1
Delay 3000
//颜色比较判断是否进入到登录画面
Rem check1
IfColor DX+439， DY+486， b19f83， 2 MoveTo DX+50， DY+50
For 10
RightClick 1
Delay 20
EndFor
Else
Delay 2000
Goto check1
EndIf
Delay 1000
MoveTo DX+293， DY+240
Delay 100
LeftClick 1
Delay 100
KeyPress 8，20
Delay 100
Gosub ProcessUsername
Delay 1000
KeyPress 13，1
Delay 500
Gosub ProcessPassword
Delay 1000
KeyPress 13，1
Delay 1000
//颜色比较判断是否进入到选择帐号画面
Rem check2
IfColor DX+320，DY+192，e1e2e4，2 KeyPress 13，1
Else
Delay 2000
Goto check2
EndIf
Delay 1000
//颜色比较判断是否进入到选择游戏世界画面
Rem check3
IfColor DX+451，DY+455，dad5cc，2 KeyPress 13，1
Else
Delay 2000
Goto check3
EndIf
Delay 1000
//颜色比较判断是否进入到选择角色画面
Rem check4
IfColor DX+284，DY+402，e0d9cd，2 KeyPress 13，1
Else
Delay 2000
Goto check4
EndIf
Return LogIn
//登出游戏
Sub LogOut
Plugin Window.Active（hwn）
Delay 100
Plugin Window.Restore（hwn）
Delay 1000
KeyDown 17，1 KeyPress 76，1 KeyUp 17，1
Delay 1000
KeyPress 13，1
Return LogOut
// ASCII码转换为精灵按键码
Sub ASCtoVK
//数字0-9
If nAscCode>=48 And nAscCode<=57
VKCode = nAscCode
shiftDown = 0
//小写字母
ElseIf nAscCode>=97 And nAscCode<=122
VKCode = nAscCode - 32
shiftDown = 0
//大写字母
ElseIf nAscCode>=65 And nAscCode<=90
VKCode = nAscCode
shiftDown = 1
// ！
ElseIf nAscCode=33
VKCode = 49
shiftDown = 1
// @
ElseIf nAscCode=64
VKCode = 50
shiftDown = 1
// #$%
ElseIf nAscCode>=35 And nAscCode<=37
VKCode = nAscCode + 16
shiftDown = 1
