[@经验]
#if
EQUAL T11
#ACT
close
MESSAGEBOX 对不起，请先办理赞助大使再领取每日经验！
break
#if
checknamelist ..\QUESTDIARY\数据文件\赞助经验名单.txt
#ACT
close
MESSAGEBOX 对不起，每天只能领取一次！
break
#if
equal t11 青铜赞助大使
#act
MOV N$经验上限 <$MAXEXP>
DIV N$经验上限 1000
MUL N$最终经验 N$经验上限 500
CHANGEEXP + <$STR(N$最终经验)>
addnamelist ..\QUESTDIARY\数据文件\赞助经验名单.txt
SENDMSG 0 <$STR(T11)>[<$USERNAME>]成功领取了每日赞助经验(<$STR(N$最终经验)>)
break
#if
equal t11 白银赞助大使
#act
MOV N$经验上限 <$MAXEXP>
DIV N$经验上限 1000
MUL N$最终经验 N$经验上限 1000
CHANGEEXP + <$STR(N$最终经验)>
addnamelist ..\QUESTDIARY\数据文件\赞助经验名单.txt
SENDMSG 0 <$STR(T11)>[<$USERNAME>]成功领取了每日赞助经验(<$STR(N$最终经验)>)
break
#if
equal t11 黄金赞助大使
#act
MOV N$经验上限 <$MAXEXP>
DIV N$经验上限 1000
MUL N$最终经验 N$经验上限 1500
CHANGEEXP + <$STR(N$最终经验)>
addnamelist ..\QUESTDIARY\数据文件\赞助经验名单.txt
SENDMSG 0 <$STR(T11)>[<$USERNAME>]成功领取了每日赞助经验(<$STR(N$最终经验)>)
break
#if
equal t11 至尊赞助大使
#act
MOV N$经验上限 <$MAXEXP>
DIV N$经验上限 1000
MUL N$最终经验 N$经验上限 2000
CHANGEEXP + <$STR(N$最终经验)>
addnamelist ..\QUESTDIARY\数据文件\赞助经验名单.txt
SENDMSG 0 <$STR(T11)>[<$USERNAME>]成功领取了每日赞助经验(<$STR(N$最终经验)>)
break
|
