paoshang=0 "跑商开关"
UserVar shangA=DropList{"晋阳":"1"|"灵寿":"2"|"新郑":"3"|"商丘":"4"|"会稽":"5"|"曲阜":"6"|"洛邑":"7"}=1 "跑商点A"
UserVar shangB=DropList{"晋阳":"1"|"灵寿":"2"|"新郑":"3"|"商丘":"4"|"会稽":"5"|"曲阜":"6"|"洛邑":"7"}=3 "跑商点B"
UserVar Buy_a=DropList{"可卖可买":"0"|"只卖不买":"1"}=0 "跑商点A买卖"
UserVar Buy_b=DropList{"可卖可买":"0"|"只卖不买":"1"}=1 "跑商点B买卖"
UserVar keji=0 "科技开关"
UserVar kj11=0 "蒸蒸日上"
UserVar kj12=0 "开源节流"
UserVar kj21=0 "白虎攻击"
UserVar kj22=0 "白虎防御"
UserVar kj23=0 "白虎统帅"
UserVar kj31=0 "玄武攻击"
UserVar kj32=0 "玄武防御"
UserVar kj33=0 "玄武统帅"
UserVar kj41=0 "青龙攻击"
UserVar kj42=0 "青龙防御"
UserVar kj43=0 "青龙统帅"
UserVar kj51=0 "朱雀攻击"
UserVar kj52=0 "朱雀防御"
UserVar kj53=0 "朱雀统帅"
UserVar kj61=0 "暴击加成"
UserVar kj62=0 "破击加成"
UserVar kj63=0 "墨守"
UserVar xunlian=0 "训练开关"
UserVar xlms=DropList{"普通训练":"1"|"加强训练":"2"|"元宝训练":"3"}=2 "训练模式"
UserVar xl11=0 "李"
UserVar xl12=0 "庞"
UserVar xl13=0 "琴"
UserVar xl21=0 "吕"
UserVar xl22=0 "信"
UserVar xl23=0 "赵"
UserVar xl31=0 "孙"
UserVar xl32=0 "乐"
UserVar xl33=0 "廉"
UserVar xl41=0 "扁"
UserVar xl42=0 "纪"
UserVar xl43=0 "王"
UserVar tufei=0 "武将突飞开关"
UserVar tfwj=DropList{"李":"1"|"庞":"2"|"琴":"3"|"吕":"4"|"信":"5"|"赵":"6"|"孙":"7"|"乐":"8"|"廉":"9"|"扁":"10"|"纪":"11"|"王":"12"}=7 "突飞武将选择"
UserVar peiyang=0 "培养开关"
UserVar pywj=DropList{"李":"1"|"庞":"2"|"琴":"3"|"吕":"4"|"信":"5"|"赵":"6"|"孙":"7"|"乐":"8"|"廉":"9"|"扁":"10"|"纪":"11"|"王":"12"}=7 "培养武将选择"
UserVar pycount=10 "培养武将次数"
UserVar jiangli=0 "领取奖励开关"
UserVar mengzhan=0 "参加盟战开关"
UserVar sishi=0 "是否雇佣死士"
UserVar sishiL=DropList{"初级死士":"1"|"中级死士":"2"|"高级死士":"3"}=0 "雇佣死士等级"
//UserVar FB20=0 "创建20FB"
UserVar shangjin=0 "刷赏金开关"
UserVar jingji=0 "竞技开关"
UserVar juan=0 "联盟捐献开关"

//商队起始和终止坐标
Dim shanga_x, shanga_y, shangb_y, shangb_x
//跑商最后一次所需参数，TimaA TimeB delaytime
dim TimeA,TimeB,delaytime
//培养武将坐标
Dim pywj_x, pywj_y
//系统时间参数
Dim d,h,m,d_temp
//竞技次数
Dim jccount

Hwnd = Plugin.Window.MousePoint()
If shangA=shangB Then
    MessageBox "商队起止点不能设为相同，请重设"
    Delay 1000
    EndScript
Else 
    Call 商队A()
    Delay 500
    Call 商队B()
    Delay 500
End If
//运行一次领取奖励程序，把竞技、傣禄和武道会奖励领取一次
If jiangli = 1 Then 
    Call 领取奖励()	
End If


Delay 3000
If juan=1 Then
Call 联盟捐献()
End If
Delay 3000
If mengzhan=1 Then
    Call 参加盟战()
End If
Delay 200
d_temp = Day(Date)

TimeA = 0
TimeB = 0
delaytime = 0
jccount = 30


Rem 挂机开始
//取得系统日期，时间
d = Day(Date)
h = Hour(Time)