光通版沙行会发工资脚本
- 分类:传奇Ⅲ
- 阅读:2559
- 更新:2024-06-27
放置发工资脚本到\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>