﻿[@main]
#IF
#ACT
#SAY
　　　　　          <玛法大陆赞助中心/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
;<PlayImg:67:1815:1:100:5:5:0/@微信赞助>    <★传奇币比例：1:1，只支持最下方额赞助★/FCOLOR=250>\
■  每日一次，赞助金额。\
■  \
■  1、赞助无优惠，无任何奖励。\
■  2、点击领取传奇币。\
■  您目前的赞助值：{<$GameGird>/FCOLOR=254}\
■  <赞助/@赞助> \





[@微信赞助]
　　　　　          <微信快速赞助通道/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
;<PlayImg:67:1815:1:100:5:5:0/@main>        <★请使用微信扫一扫★/FCOLOR=250>\
<                        >完成后请备注<人物名字>和<游戏帐号> \
<                        >例子: 太子丹   123456789\ \
<                        >复古公益，无优惠，无多送，比例1:1\  \ 
<                                            ><返回首页/@main>


[@赞助]
#act
mov S$充值路径 ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt
mov S$记录1 无记录
mov S$记录2 无记录
mov S$记录3 无记录
mov S$记录4 无记录
mov S$记录5 无记录
mov S$记录6 无记录
#say
　　　　　          <玛法大陆赞助中心/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<领取 领取相应的传奇币/SCOLOR=146>\
<面值：50枚 100枚 200枚 /SCOLOR=22> <(传奇币比例: 1:1)/SCOLOR=250> \
<-----------------------------------------------------------/SCOLOR=13>\
;<卡密获得：微信赞助/SCOLOR=245>\
<友情提示：如需帮助或有疑问请联系客服/SCOLOR=250>\\
<-----------------------------------------------------------/SCOLOR=13>\
<点击领取：/SCOLOR=250> <输入领取/@~InPutInteger50>         <查询记录/@查询>\

[@~InPutInteger50]
#IF
    dayofweek sun
    check [911] 0
#ACT
    set [911] 1
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @通道一
    break
#IF
    dayofweek mon
    check [912] 0
#ACT
    set [911] 0
    set [912] 1
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @通道一
    break
#IF
    dayofweek tue
    check [913] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 1
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @通道一
    break
#IF
    dayofweek wed
    check [914] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 1
    set [915] 0
    set [916] 0
    set [917] 0
    GOTO @通道一
    break
#IF
    dayofweek thu
    check [915] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 1
    set [916] 0
    set [917] 0
    GOTO @通道一
    break
#IF
    dayofweek fri
    check [916] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 1
    set [917] 0
    mapmove CQTT
    break
#IF
    dayofweek sat
    check [917] 0
#ACT
    set [911] 0
    set [912] 0
    set [913] 0
    set [914] 0
    set [915] 0
    set [916] 0
    set [917] 1
    GOTO @通道一
    break
#IF
#ACT
  messagebox 今天你已经充值一次了.

[@通道一]
#IF
#ACT
CREATEFILE <$str(S$充值路径)>
AddTextListEx <$str(S$充值路径)> <$USERNAME>于<$DATETIME>使用200元卡密<$STR(S14)>
AddTextListEx ..\QuestDiary\卡密充值\GM充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用200元卡密<$STR(S14)>充值
GAMEGOLD + 200
inc U21 200
GameGird + 200
MESSAGEBOX 恭喜：赞助完成，已成功赞助了200枚传奇币\\您的当前传奇币数量为:<$GAMEGOLD>
SENDMSG 5 提示：你成功赞助了200枚传奇币，当前的传奇币数量为：<$GAMEGOLD>
CLOSE
GOTO @main
Break

#ELSEACT
inc N4 1
goto @断线处理
MESSAGEBOX 充值卡密错误，请重新输入！错误将会记录！\\如果连续10次您的账户信息继续错误将会<断线处理>
BREAK

;#IF
;CHECKTEXTLIST ..\QuestDiary\卡密充值\500元.txt <$STR(s14)>
;#act
;DelTextList ..\QuestDiary\卡密充值\500元.txt <$STR(s14)>
;CREATEFILE <$str(S$充值路径)>
;AddTextListEx <$str(S$充值路径)> 玩家<$USERNAME>于<$DATETIME>使用500元卡密<$STR(S14)>
;AddTextListEx ..\QuestDiary\卡密充值\GM充值记录.txt <$USERNAME>于<$DATETIME>在:<$IPLOCAL>为IP:<$IPADDR>电脑上使用500元卡密<$STR(S14)>充值
;GAMEGOLD + 500
;inc U21 500
;GameGird + 500
;MESSAGEBOX 恭喜：充值完成，已成功充值了500传奇币\\您的当前传奇币数量为:<$GAMEGOLD>
;SENDMSG 5 提示：你成功充值了面值500元传奇币，当前的传奇币数量为：<$GAMEGOLD>
;CLOSE
;GOTO @main
;Break
#ELSEACT
inc N4 1
goto @断线处理
MESSAGEBOX 充值卡密错误，请重新输入！错误将会记录！\\如果连续10次您的账户信息继续错误将会<断线处理>
CLOSE
BREAK

[@断线处理]
#if
LARGE N4 9
#act
kick
SENDMSG 5 %s，非法登录游戏
SENDMSG 5 %s，非法登录游戏
SENDMSG 5 %s，非法登录游戏
SENDMSG 5 %s，非法登录游戏

[@查询]
#act
CREATEFILE <$str(S$充值路径)>
Goto @chek311

[@chek311]
#act
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录1 1
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录2 2
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录3 3
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录4 4
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录5 5
GetCacheRandomText ..\QuestDiary\卡密充值\充值记录\<$USERNAME>.txt S$记录6 6
#say
　　　　　          <玛法大陆赞助中心/FCOLOR=250>\
<-------------------------------------------------------------/AUTOCOLOR=91>\
<$STR(S$记录1)>\
<$STR(S$记录2)>\
<$STR(S$记录3)>\
<$STR(S$记录4)>\
<$STR(S$记录5)>\
<$STR(S$记录6)>\
<>                                                   <返回首页/@main>
