m = Minute(time)
//每天9点,重置一些数据,可以根据自己喜好改变相关参数
If d <> d_temp and h>8 Then
d_temp = d
Delay 1000
If jiangli =1 Then
Call 领取奖励()
End If
Delay 3000
If mengzhan=1 Then
Call 参加盟战()
End If
Delay 3000
//刷新跑商
Call 商队刷新()
jccount = 30
End If
//每隔五分钟进入一次城池
mm = m mod 5
If mm = 0 Then
Call 进入城池()
End If
//防止长时间没有动作,过段时间就点一下游戏界面^_^
Call Plugin.Bkgnd.LeftClick(Hwnd, 270, 40)
Delay 1000
If paoshang=1 Then
Call 跑商()
End If
Delay 1000
If delaytime > 0 Then
h = Hour(Time)
m = Minute(time)
TimeB = h * 60 + m
If (TimeB - TimeA) > delaytime Then
//进入跑商界面
Call Plugin.Bkgnd.LeftClick(Hwnd, 942, 110)
Delay 2000
//判断在哪交易,然后进行最后一次交易
color_a = Plugin.Bkgnd.GetPixelColor(Hwnd,shanga_x+1,shanga_y+13)
If color_a = "13ADFD" Then
Call 商队交易(shanga_x+1,shanga_y+13,1)
Delay 500
Else
color_b = Plugin.Bkgnd.GetPixelColor(Hwnd, shangb_x + 1, shangb_y + 13)
If color_b = "13ADFD" Then
Call 商队交易(shangb_x + 1, shangb_y + 13,1)
Delay 500
End If
End If
delaytime = 0
Delay 500
End If
End If
Delay 1000
If keji=1 Then
Call 升级科技()
End If
Delay 1000
If xunlian =1 Then
Call 武将训练()
End If
Delay 1000
If tufei = 1 Then
Call 武将突飞()
End If
Delay 1000
If peiyang=1 and pycount>0 Then
Call 武将培养()
End If
Delay 1000
If jingji =1 Then
Call 竞技场()
End If
Delay 1000
If shangjin = 1 Then
Call 刷赏金()
End If
Delay 1000
If FB20 = 1 Then
If h = 20 and m < 3 Then
Call 创建20FB()
End If
End If
Delay 5000
Goto 挂机开始
Sub 升级科技()
//以下判断科技升级是否空闲,空闲则升级,否则跳出
GetColor = Plugin.Bkgnd.GetPixelColor(Hwnd, 27, 159)
If GetColor="00FF00" Then
//打开科技界面