光通版沙行会发工资脚本

分类：Mir3    ‌‍ 阅读：1332

2025-06-28 07:28

放置发工资脚本到\Envir\QuestDiary\feifan文件夹里，名字 沙行会发工资.txt

修改\Envir\Convert_Def\QuestDiary\CastleWar\Manager.txt


你不是沙巴克城主人行会的首领啊。。\ \
<沙行会成员领工资/@Topkkk>\ ;;增加这行
<看攻城战的日程。/@view_warschedule>\
<申请攻城战。/@Propse_CastleWar>\
<了解有关于攻城战的事。/@requestcastlewar> \
<结束/@exit>\

[@Topkkk] ;;增加这行
#CALL [feifan\沙行会发工资.txt] @linggz ;;增加这行




=============下面为内容=============

;;中国怪客联盟-沙城发工资
[@linggz]
{
#IF
IsCastleGuild Sabuk
#SAY
<$USERNAME> 你好，我沙巴克财务大臣，根据沙巴克领袖的命令\
我负责发放{FCOLOR/10}<$CS_SABUK_OWNER>{FCOLOR/12}行会的成员每天的薪水\
星期六和星期天每天可以领{FCOLOR/10}四万{FCOLOR/10}金币，星期一到星期五每天只能领取{FCOLOR/10}两万{FCOLOR/10}.\
\\
<领取工资./@main-1>\
<离 开./@exit> \

#ELSESAY
对不起，你不是沙巴克行会 {FCOLOR/10}<$CS_SABUK_OWNER>{FCOLOR/12} 的成员，所以我不能给你发工资。\
<离 开/@exit>

[@main-1]
#if
#act
mov A1 %USERNAME

#if
IsCastleGuild Sabuk
dayofweek sun
#act
mov s1 1
goto @sun
break

#if
IsCastleGuild Sabuk
dayofweek mon
#act
mov s1 2
goto @mon
break

#if
IsCastleGuild Sabuk
dayofweek tue
#act
mov s1 3
goto @tue
break

#if
IsCastleGuild Sabuk
dayofweek wed
#act
mov s1 4
goto @wed
break

#if
IsCastleGuild Sabuk
dayofweek thu
#act
mov s1 5
goto @thu
break

#if
IsCastleGuild Sabuk
dayofweek fri
#act
mov s1 6
goto @fri
break

#if
IsCastleGuild Sabuk
dayofweek sat
#act
mov s1 7
goto @sat
break

[@sun]
#IF
equal s1 1
IsCastleGuild Sabuk
check [871] 0
#act
mov s1 0
set [871] 1
set [872] 0
set [873] 0
set [874] 0
set [875] 0
set [876] 0
set [877] 0
give 金币 20000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了二万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@mon]
#IF
equal s1 2
IsCastleGuild Sabuk
check [872] 0
#act
mov s1 0
set [871] 0
set [872] 1
set [873] 0
set [874] 0
set [875] 0
set [876] 0
set [877] 0
give 金币 20000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了二万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@tue]
#IF
equal s1 3
IsCastleGuild Sabuk
check [873] 0
#act
mov s1 0
set [871] 0
set [872] 0
set [873] 1
set [874] 0
set [875] 0
set [876] 0
set [877] 0
give 金币 20000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了二万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@wed]
#IF
equal s1 4
IsCastleGuild Sabuk
check [874] 0
#act
mov s1 0
set [871] 0
set [872] 0
set [873] 0
set [874] 1
set [875] 0
set [876] 0
set [877] 0
give 金币 20000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了二万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@thu]
#IF
equal s1 5
IsCastleGuild Sabuk
check [875] 0
#act
mov s1 0
set [871] 0
set [872] 0
set [873] 0
set [874] 0
set [875] 1
set [876] 0
set [877] 0
give 金币 20000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了二万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@fri]
#IF
equal s1 6
IsCastleGuild Sabuk
check [876] 0
#act
mov s1 0
set [871] 0
set [872] 0
set [873] 0
set [874] 0
set [875] 0
set [876] 1
set [877] 0
give 金币 40000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了工资，请还没领工资的沙城成员到沙皇宫来领工资。"
#SAY
你得到了四万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@sat]
#IF
equal s1 7
IsCastleGuild Sabuk
check [877] 0
#act
mov s1 0
set [871] 0
set [872] 0
set [873] 0
set [874] 0
set [875] 0
set [876] 0
set [877] 1
give 金币 40000
lineMsg [Grobal] "沙巴克行会'<$CS_SABUK_OWNER>' 的成员'<$OUTPUT(A1)>'领取了今天的工资，请还没领工资的沙城成员到沙巴克皇宫来领工资。"
#SAY
你得到了四万元的工资，希望你努力保卫沙巴克.\
#ELSEACT
goto @noqian

[@noqian]
#SAY
对不起，你今天已经领过工资了，所以不能再领。\ \
<退 出/@exit>