StoreCount = 0 :ItemCount = 0 MakeItem_PosX = 320 + (MakeItem_Col-1)*38 MakeItem_PosY = 145 + (MakeItem_Row-1)*30 Boss = 0 :Make = 0 :Sale = 0 :Saled = 1:Full = 0 Return [数据预处理] Sub [防交易防震] KeyPress 13 1 Delay 50 Mystring = "/trade off" Gosub [说话] Mystring = "/effectoff" Gosub [说话] Mystring = "/off" Gosub [说话] KeyPress 27 3 Delay 400 KeyDown 160 1 Delay 100 SaveMousePos Return [防交易防震] Sub [拣物] KeyPress 32 3 Delay 300 Gosub [切换状态] I = 0:K = 2.5:X = 0:Y = 0 While X <= 460 and Y <= 360 X = 400+2*(cos(K)+K*sin(K)) Y = 290+2*(sin(K)-K*cos(K)) MoveTo X Y Delay CDelay LeftClick 1 Delay CDelay I = I + 1 K = K*((0.64+0.1*Rnd())/I+1) EndWhile Saled = 0 Return [拣物] Sub [购买取消] IfColor 495 30 6b8ead 0 MoveTo 627 292 Delay 100 LeftClick 1 Delay 100 Gosub [购买取消] EndIf Return [购买取消] Sub [补充体力] IfColor 80 534 c7ef 1 If Ttype = 1 Delay 200 KeyDown 49 1 Delay 400 KeyUp 49 1 Delay 100 ElseIf Ttype = 2 Gosub [切换状态] KeyPress 112 3 Delay 3200 MoveTo 400 250 Delay 200 RightClick 3 Delay 300 EndIf EndIf Return [补充体力] Sub [制作物品] I = 1 stime = now() Rem [制作界面] KeyPress 191 1 Delay 100 IfColor 350 345 94c3ce 1 If DateDiff("s",stime,now()) < 15 Goto [制作界面] Else Gosub [取消国战] stime = now() KeyPress 27 3 Delay 300 KeyPress 32 2 Delay 200 Goto [制作界面] EndIf Else stime = now() PMake = 1 EndIf MoveTo MakeItem_PosX MakeItem_PosY Delay 300 LeftClick 2 Delay 200 If Mtype = 1 or Mtype = 3 //制作10个 MoveTo 400 383 Delay 200 LeftDown 1 Delay 300 LeftUp 1 Delay 500 MoveTo 322 370