Call moveMouseAndClick(x + 640, y + 292) Delay 100 Call collectMetries(x, y, "small") Delay 100 /***********************小号交给大号金钱**************************/ Call centerExchange() End Function /******************************确定交易***********************************/ Function centerExchange() //交易 Delay 2500 MoveTo 955, 423 Delay 300 LeftClick 1 Delay 100 MoveTo 155, 423 Delay 500 LeftClick 1 // 是 Delay 2000 MoveTo 240, 370 Delay 300 LeftClick 1 Delay 100 MoveTo 1040, 370 Delay 500 LeftClick 1 //确定 Delay 2500 MoveTo 1200, 382 Delay 300 LeftClick 1 Delay 200 MoveTo 400,382 Delay 500 LeftClick 1 //取消窗口 Delay 200 KeyPress "Esc", 1 Delay 100 MoveTo 1060, 70 Delay 400 LeftClick 1 Delay 100 KeyPress "Esc", 1 Delay 200 End Function /******************************收回小号材料***********************************/ Function moveSmallMetris(x, y) Delay 100 MoveTo x, y Delay 200 LeftDown 1 Delay 100 MoveTo 1030, 325 Delay 200 LeftUp 1 Delay 200 LeftClick 1 End Function /******************************开始交易***********************************/ Function startExChange() Delay 500 Call arrangeSmallStore(800, 0) If roleNum = 0 Then Delay 20000 Else Delay 1000 End If //490,315 Call pressQKey() Delay 800 If wsjk <> 0 Then FindPic 465, 300, 713, 366, "Attachment:\无色小金块.bmp", 0.8, intX, intY If intX > 0 and intY > 0 Then Call getOutBigMetris(wsjk, intX, intY) End If End If Delay 300 If hsjk <> 0 Then FindPic 465, 300, 713, 366, "Attachment:\黑色小金块.bmp", 0.8, intX1, intY1 If intX1 > 0 and intY1 > 0 Then Call getOutBigMetris(hsjk, intX1, intY1) End If End If Delay 300