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