传奇VIP尊贵服务脚本

[@main]
#IF
check [226] 1
#ACT
#SAY
<╔═══════════════════════════╗/AUTOCOLOR=224>\
<║/AUTOCOLOR=224><尊贵的ＶＩＰ会员：您好！在这里你可以享受到以下尊贵服务/AUTOCOLOR=254><║/AUTOCOLOR=224>\
<╚═══════════════════════════╝/AUTOCOLOR=224>\
<╔═══════╗　╔═══════╗　╔═══════╗/AUTOCOLOR=253>\
<║/AUTOCOLOR=253><每　日　元　宝/@每日工资><║　║/AUTOCOLOR=253><在　线　购　物/@在线购物><║  ║/AUTOCOLOR=253><免　费　清　红/@免费洗红><║/AUTOCOLOR=253>\
<╚═══════╝　╚═══════╝　╚═══════╝/AUTOCOLOR=253>\
<╔═══════╗　╔═══════╗　╔═══════╗/AUTOCOLOR=253>\
<║/AUTOCOLOR=253><每　日　神　力/@每日神力><║　║/AUTOCOLOR=253><每　日　苹　果/@每日苹果><║  ║/AUTOCOLOR=253><会　员　寻　宝/@会员寻宝><║/AUTOCOLOR=253>\
<╚═══════╝　╚═══════╝　╚═══════╝/AUTOCOLOR=253>\
#ELSESAY
<╔═══════════════════════════╗/AUTOCOLOR=224>\
<║/AUTOCOLOR=224><你还没有加入ＶＩＰ会员，不能享受以下服务，请到商铺购买/AUTOCOLOR=254><║/AUTOCOLOR=224>\
<╚═══════════════════════════╝/AUTOCOLOR=224>\
<╔═══════╗　╔═══════╗　╔═══════╗/AUTOCOLOR=253>\
<║/AUTOCOLOR=253><每　日　元　宝><║　║/AUTOCOLOR=253><在　线　购　物><║  ║/AUTOCOLOR=253><免　费　清　红><║/AUTOCOLOR=253>\
<╚═══════╝　╚═══════╝　╚═══════╝/AUTOCOLOR=253>\
<╔═══════╗　╔═══════╗　╔═══════╗/AUTOCOLOR=253>\
<║/AUTOCOLOR=253><每　日　神　力><║　║/AUTOCOLOR=253><每　日　苹　果><║  ║/AUTOCOLOR=253><会　员　寻　宝><║/AUTOCOLOR=253>\
<╚═══════╝　╚═══════╝　╚═══════╝/AUTOCOLOR=253>\
[@在线购物]
#CALL [\\会员系统\会员购物.txt] @买东西了
[@会员寻宝]
#IF
CHECK [226] 1
#ACT
MAPMOVE hl001
GIVE 回城卷 1
SendCenterMsg 249 151 超级ＶＩＰ玩家“%S”进入了“会员寻宝”！ 1
BREAK
[@每日苹果]
#IF
    dayofweek sun
    check [41] 0
#ACT
    set [41] 1
    set [42] 0
    set [43] 0
    set [44] 0
    set [45] 0
    set [46] 0
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek mon
    check [42] 0
#ACT
    set [41] 0
    set [42] 1
    set [43] 0
    set [44] 0
    set [45] 0
    set [46] 0
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek tue
    check [43] 0
#ACT
    set [41] 0
    set [42] 0
    set [43] 1
    set [44] 0
    set [45] 0
    set [46] 0
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek wed
    check [44] 0
#ACT
    set [41] 0
    set [42] 0
    set [43] 0
    set [44] 1
    set [45] 0
    set [46] 0
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek thu
    check [45] 0
#ACT
    set [41] 0
    set [42] 0
    set [43] 0
    set [44] 0
    set [45] 1
    set [46] 0
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek fri
    check [46] 0
#ACT
    set [41] 0
    set [42] 0
    set [43] 0
    set [44] 0
    set [45] 0
    set [46] 1
    set [47] 0
    goto @GiveOK3
    break
#IF
    dayofweek sat
    check [47] 0
#ACT
    set [41] 0
    set [42] 0
    set [43] 0
    set [44] 0
    set [45] 0
    set [46] 0
    set [47] 1
    goto @GiveOK3
    break
#IF
#ACT
  messagebox 对不起，每天只能领取10个苹果！
[@GiveOK3]
#ACT
  give 苹果 10
  messagebox 恭喜你成功领取10个苹果。
  break
[@每日神力]
#IF
    dayofweek sun
    check [31] 0
#ACT
    set [31] 1
    set [32] 0
    set [33] 0
    set [34] 0
    set [35] 0
    set [36] 0
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek mon
    check [32] 0
#ACT
    set [31] 0
    set [32] 1
    set [33] 0
    set [34] 0
    set [35] 0
    set [36] 0
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek tue
    check [33] 0
#ACT
    set [31] 0
    set [32] 0
    set [33] 1
    set [34] 0
    set [35] 0
    set [36] 0
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek wed
    check [34] 0
#ACT
    set [31] 0
    set [32] 0
    set [33] 0
    set [34] 1
    set [35] 0
    set [36] 0
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek thu
    check [35] 0
#ACT
    set [31] 0
    set [32] 0
    set [33] 0
    set [34] 0
    set [35] 1
    set [36] 0
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek fri
    check [36] 0
#ACT
    set [31] 0
    set [32] 0
    set [33] 0
    set [34] 0
    set [35] 0
    set [36] 1
    set [37] 0
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
    dayofweek sat
    check [37] 0
#ACT
    set [31] 0
    set [32] 0
    set [33] 0
    set [34] 0
    set [35] 0
    set [36] 0
    set [37] 1
    SETRANKLEVELNAME %s\[半个小时1.5倍攻击]
    POWERRATE 150 1800
    goto @GiveOK2
    break
#IF
#ACT
  messagebox 对不起，每天只能领取一次1.5倍攻击！
[@GiveOK2]
#IF
#ACT
  messagebox 半个小时的1.5倍攻击，好好把握哦。^_*

[@每日工资]
#IF
    dayofweek sun
    check [11] 0
#ACT
    set [11] 1
    set [12] 0
    set [13] 0
    set [14] 0
    set [15] 0
    set [16] 0
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek mon
    check [12] 0
#ACT
    set [11] 0
    set [12] 1
    set [13] 0
    set [14] 0
    set [15] 0
    set [16] 0
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek tue
    check [13] 0
#ACT
    set [11] 0
    set [12] 0
    set [13] 1
    set [14] 0
    set [15] 0
    set [16] 0
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek wed
    check [14] 0
#ACT
    set [11] 0
    set [12] 0
    set [13] 0
    set [14] 1
    set [15] 0
    set [16] 0
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek thu
    check [15] 0
#ACT
    set [11] 0
    set [12] 0
    set [13] 0
    set [14] 0
    set [15] 1
    set [16] 0
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek fri
    check [16] 0
#ACT
    set [11] 0
    set [12] 0
    set [13] 0
    set [14] 0
    set [15] 0
    set [16] 1
    set [17] 0
    goto @GiveOK
    break
#IF
    dayofweek sat
    check [17] 0
#ACT
    set [11] 0
    set [12] 0
    set [13] 0
    set [14] 0
    set [15] 0
    set [16] 0
    set [17] 1
    goto @GiveOK
    break
#IF
#ACT
  messagebox 对不起，每天只能领取一次元宝！
[@GiveOK]
#ACT
  gamegold + 20000
  messagebox 恭喜你成功领取今日的工资20000元宝！
  break
[@免费洗红]
#IF
    dayofweek sun
    check [21] 0
#ACT
    set [21] 1
    set [22] 0
    set [23] 0
    set [24] 0
    set [25] 0
    set [26] 0
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek mon
    check [22] 0
#ACT
    set [21] 0
    set [22] 1
    set [23] 0
    set [24] 0
    set [25] 0
    set [26] 0
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek tue
    check [23] 0
#ACT
    set [21] 0
    set [22] 0
    set [23] 1
    set [24] 0
    set [25] 0
    set [26] 0
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek wed
    check [24] 0
#ACT
    set [21] 0
    set [22] 0
    set [23] 0
    set [24] 1
    set [25] 0
    set [26] 0
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek thu
    check [25] 0
#ACT
    set [21] 0
    set [22] 0
    set [23] 0
    set [24] 0
    set [25] 1
    set [26] 0
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek fri
    check [26] 0
#ACT
    set [21] 0
    set [22] 0
    set [23] 0
    set [24] 0
    set [25] 0
    set [26] 1
    set [27] 0
    goto @mrqh001
    break
#IF
    dayofweek sat
    check [27] 0
#ACT
    set [21] 0
    set [22] 0
    set [23] 0
    set [24] 0
    set [25] 0
    set [26] 0
    set [27] 1
    goto @mrqh001
    break
#IF
#ACT
  messagebox 对不起，每天只能免费洗红一次！
[@mrqh001]
#ACT
CHANGEPKPOINT = 0
  messagebox 罪过罪过，老衲已经帮施主洗清了全部罪孽！
  break