[Gm版本库]传奇私服礼部尚书系列脚本

GM版本库

(@@offlinemsg @@sendmsg @makedrug @@useitemname @getsellgold @selloff @buyoff @@dealgold @storage @@RecallPneuma @getback @getnextpage @getPreviouspage @repair @s_repair @@InPutString )
[@main]
#IF
checknamelist ..\QuestDiary\官职系统\王.txt
#say
本服唯一的<《王》>，您可以享受免费发红字，及1天可以T5个人下线\
还可领取裨将(宝宝)，偏将(宝宝)，谋事(宝宝)其中一个！！\
和一天3个小时的2.5倍经验和20分钟2.5倍攻击\ \
<领取裨将/@领取裨将>         <领取谋事/@领取谋事>         <领取偏将/@领取偏将>\
<免费广播/@@SendMsg>         <踢人下线/@踢人下线>         <王的奖励/@王的奖励>\
<领取2.5倍经验（3小时）/@领25经验>\
<领取2.5倍攻击（20分钟）/@领25攻击>\
#act
break
#IF
checknamelist ..\QuestDiary\官职系统\大将军.txt
#say
您现在的官职是：<《大将军》>！！\
您可以享受领取裨将(宝宝)，偏将(宝宝)其中一个！！\
和一天2个小时的2倍经验和20分钟2倍攻击\ \
<领取裨将/@领取裨将>         <领取谋事/@领取谋事>\ \
<领取2.0倍经验（2小时）/@领20经验>\
<领取2.0倍攻击（20分钟）/@领20攻击>\
<晋升〈王〉/@晋升王>          <了解官职系统/@了解>\
#act
break
#IF
checknamelist ..\QuestDiary\官职系统\将军.txt
#say
您现在的官职是：<《将军》>！！\
您可以享受领取一个裨将(宝宝)\
和一天90分钟的1.8倍经验和20分钟1.8倍攻击\ \
<领取裨将/@领取裨将> \ \
<领取1.8倍经验（90分钟）/@领18经验>\
<领取1.8倍攻击（20分钟）/@领18攻击>\
<晋升〈大将军〉/@晋升大将军>          <了解官职系统/@了解>\
#act
break
#IF
checknamelist ..\QuestDiary\官职系统\国尉.txt
#say
您现在的官职是：<《国尉》>！！\
您可以享受领取兵，卒，勇(宝宝)其中一个！\
和一天60分钟的1.5倍经验和30分钟1.5倍攻击\ \
<领取兵/@领取兵>         <领取卒/@领取卒>         <领取勇/@领取勇>\
<领取1.5倍经验（60分钟）/@领15经验>\
<领取1.5倍攻击（30分钟）/@领15攻击>\
<晋升〈将军〉/@晋升将军>          <了解官职系统/@了解>\
#act
break

#IF
checknamelist ..\QuestDiary\官职系统\廷尉.txt
#say
您现在的官职是：<《廷尉》>！！\
您可以享受领取兵，卒(宝宝)其中一个！\
和一天40分钟的1.3倍经验和30分钟1.3倍攻击\ \
<领取兵/@领取兵>         <领取卒/@领取卒>\
<领取1.3倍经验（40分钟）/@领13经验>\
<领取1.3倍攻击（30分钟）/@领13攻击>\
<晋升〈国尉〉/@晋升国尉>          <了解官职系统/@了解>\
#act
break

#IF
checknamelist ..\QuestDiary\官职系统\少府.txt
#say
您现在的官职是：<《少府》>！！\
您可以享受领取兵(宝宝)一个！\
和一天20分钟的1.2倍经验和30分钟1.2倍攻击\ \
<领取兵/@领取兵> \
<领取1.2倍经验（40分钟）/@领12经验>\
<领取1.2倍攻击（30分钟）/@领12攻击>\
<晋升〈廷尉〉/@晋升廷尉>          <了解官职系统/@了解>\
#act
break

#IF
#say
本服新增<官职系统>，40级后声望点5点和镇魔点达到20点就可以\
申请官职，然后完成相应的任务就可获得相应的官职\
官职越高享受的待遇越高哦！！\ \
<申请官职/@jiarubingyuan>        <了解官职系统/@了解>\ \

[@晋升王]
#IF
IsCastleMaster
CHECKLEVELEX > 84
CHECKCREDITPOINT > 200
CHECKVAR HUMAN ZMSJ > 999
#ACT
CREDITPOINT - 200
CALCVAR HUMAN ZMSJ - 1000
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
ClearNameList ..\QuestDiary\官职系统\王.txt
addnamelist ..\QuestDiary\官职系统\王.txt
#CALL [\官职系统\上线封号.txt]  @封号
messagebox 恭喜！您申请《王》成功！！
close
break
#elsesay
晋升《王》需要85级声望200点和镇魔点需要1000点！并且为沙城城主\ \
<返回/@main>\


<关闭/@exit>\


[@晋升大将军]
#IF
check [638] 1
#say
您申请的官职任务正在进行中……\ \
目前杀怪数为：<$HUMAN(杀怪数)>\ \
在打工营地杀满1000个敌人即可完成任务\ \
<返回/@main>
#act
break
#IF
CHECKLEVELEX > 79
CHECKCREDITPOINT > 99
CHECKVAR HUMAN ZMSJ > 799
#ACT
CREDITPOINT - 1000
CALCVAR HUMAN ZMSJ - 800
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
messagebox 去打工营地打死1000个[敌人]就可成为：国尉
set [638] 1
close
break
#elsesay
晋升大将军需要80级声望100点和镇魔点需要800点！\ \
<返回/@main>\


<关闭/@exit>\


[@晋升将军]
#IF
check [637] 1
#say
您申请的官职任务正在进行中……\ \
目前杀怪数为：<$HUMAN(杀怪数)>\ \
在打工营地杀满500个敌人即可完成任务\ \
<返回/@main>
#act
break

#IF
CHECKLEVELEX > 69
CHECKCREDITPOINT > 49
CHECKVAR HUMAN ZMSJ > 499
#ACT
CREDITPOINT - 50
CALCVAR HUMAN ZMSJ - 500
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
messagebox 去打工营地打死500个[敌人]就可成为：国尉
set [637] 1
close
break
#elsesay
晋升将军需要70级.声望50点和镇魔点需要500点！\ \
<返回/@main>\


<关闭/@exit>\

[@晋升国尉]
#IF
check [636] 1
#say
您申请的官职任务正在进行中……\ \
目前杀怪数为：<$HUMAN(杀怪数)>\ \
在打工营地杀满200个敌人即可完成任务\ \
<返回/@main>
#act
break

#IF
CHECKLEVELEX > 59
CHECKCREDITPOINT > 19
CHECKVAR HUMAN ZMSJ > 99
#ACT
CREDITPOINT - 20
CALCVAR HUMAN ZMSJ - 100
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
messagebox 去打工营地打死200个[敌人]就可成为：国尉
set [636] 1
close
break
#elsesay
晋升国尉需要60级声望和镇魔点需要200点！\ \
<返回/@main>\


<关闭/@exit>\

[@晋升廷尉]
#IF
check [635] 1
#say
您申请的官职任务正在进行中……\ \
目前杀怪数为：<$HUMAN(杀怪数)>\ \
在打工营地杀满100个敌人即可完成任务\ \
<返回/@main>
#act
break

#IF
CHECKLEVELEX > 49
CHECKCREDITPOINT > 9
CHECKVAR HUMAN ZMSJ > 49
#ACT
CREDITPOINT - 10
CALCVAR HUMAN ZMSJ - 50
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
messagebox 去打工营地打死100个[敌人]就可成为：廷尉
set [635] 1
close
break
#elsesay
晋升廷尉需要50级声望10点和镇魔点需要50点！\ \
<返回/@main>\


<关闭/@exit>\
[@jiarubingyuan]
#IF
check [634] 1
#say
您申请的官职任务正在进行中……\ \
目前杀怪数为：<$HUMAN(杀怪数)>\ \
在打工营地杀满10个敌人即可完成任务\ \
<返回/@main>
#act
break
#IF
checknamelist ..\QuestDiary\官职系统\少府.txt
#SAY
你已经是官职系统中的一员了！！\ \
<返回/@main>
#ACT
break
#IF
CHECKLEVELEX > 39
CHECKCREDITPOINT > 4
CHECKVAR HUMAN ZMSJ > 19
#ACT
CREDITPOINT - 5
CALCVAR HUMAN ZMSJ - 20
SAVEVAR HUMAN ZMSJ ..\QuestDiary\数据文件\ZMSJSave.txt
messagebox 去打工营地打死10个[敌人]就可成为：少府
set [634] 1
close
break
#elsesay
你没有达到申请官职所需要的条件！\申请官职需要40级5点声望和20点镇魔点.\各个BOSS都会爆出镇魔神石和镇魔卷.双击使用！
<返回/@main>

[@踢人下线]
您的专用权限，看谁不爽就<踢>谁！！但是每天只能<踢5次>哦！！\
您今天还可踢人下线：<$STR(G93)>次！！\ \
<点这里输入要踢下线玩家的名字/@@InPutString5>\ \
<返回/@Main>

[@@InPutString5]
#if
SMALL G93 1
#act
messagebox 您今天的踢人数已经达到上限！！明天再踢吧！
#elseACT
DELAYGOTO 1 @InPutString5
[@InPutString5]
#IF
#ACT
GMEXECUTE T <$STR(S5)>
SENDMSG 0 [%S]使用王的特权将<$STR(S5)>踢下线了！！
dec G93 1
[@IsInFilterList]
#ACT
MESSAGEBOX 输入数据中包含了非法字符，请重新编辑！

[@@SendMsg]
#if
#act
SETSENDMSGFLAG

[@领25经验]
#If
check [622] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [622] 1
KillMonExpRate 250 10800
MESSAGEBOX 您当前杀怪经验倍数为2.5倍.有效时间 3小时.

[@领25攻击]
#If
check [623] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [623] 1
PowerRate 250 1200
MESSAGEBOX 您当前攻击倍数为2.5倍.有效时间 20分钟.

[@领20经验]
#If
check [624] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [624] 1
KillMonExpRate 200 7200
MESSAGEBOX 您当前杀怪经验倍数为2倍.有效时间 2小时.

[@领20攻击]
#If
check [625] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [625] 1
PowerRate 200 1200
MESSAGEBOX 您当前攻击倍数为2倍.有效时间 20分钟.

[@领18经验]
#If
check [626] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [626] 1
KillMonExpRate 180 5400
MESSAGEBOX 您当前杀怪经验倍数为1.8倍.有效时间 90分钟.

[@领18攻击]
#If
check [627] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [627] 1
PowerRate 180 1200
MESSAGEBOX 您当前攻击倍数为1.8倍.有效时间 20分钟.

[@领15经验]
#If
check [628] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [628] 1
KillMonExpRate 150 3600
MESSAGEBOX 您当前杀怪经验倍数为1.5倍.有效时间 60分钟.

[@领15攻击]
#If
check [629] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [629] 1
PowerRate 150 1800
MESSAGEBOX 您当前攻击倍数为1.5倍.有效时间 30分钟.

[@领13经验]
#If
check [630] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [630] 1
KillMonExpRate 130 2400
MESSAGEBOX 您当前杀怪经验倍数为1.3倍.有效时间 40分钟.

[@领13攻击]
#If
check [631] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [631] 1
PowerRate 130 1800
MESSAGEBOX 您当前攻击倍数为1.3倍.有效时间 30分钟.

[@领12经验]
#If
check [632] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [632] 1
KillMonExpRate 120 1200
MESSAGEBOX 您当前杀怪经验倍数为1.2倍.有效时间 20分钟.

[@领12攻击]
#If
check [633] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
set [633] 1
PowerRate 120 1800
MESSAGEBOX 您当前攻击倍数为1.2倍.有效时间 30分钟.

[@领取裨将]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 裨将 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！


[@领取偏将]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 偏将 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！


[@领取谋事]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 谋事 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！


[@领取勇]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 勇 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！


[@领取卒]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 卒 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！



[@领取兵]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 兵 3 12000  1  2  0
#SAY
好好看着自己的宝宝，不要乱咬人。
#ELSESAY
每次只能领取一个宝宝，并且需要一根金条！！



[@了解]
<40级>声望点5点和镇魔点达到<20点>可申请官职，然后完成任务\ \
（任务为打工营地打死10个怪物[敌人]）成为少府！\ \
一天20分钟的1.2倍经验和30分钟的1。2倍攻击\ \
领取 一个兵（宝宝 武士） \ \
<返回/@main>    <下一页/@了解1>

[@了解1]
<50级>声望点10点和镇魔点达到<50点>可申请官职，然后完成任务\ \
（任务为打工营地打死100个怪物[敌人]）成为少府！\ \
一天40分钟的1.3倍经验和30分钟1.3倍攻击\ \
领取 一个卒（宝宝 道士） \ \
<返回/@main>    <下一页/@了解2>    <上一页/@了解>

[@了解2]
<60级>声望点20点和镇魔点达到<100点>可申请官职，然后完成任务\ \
（任务为打工营地打死200个怪物[敌人]）成为国尉！\ \
一天60分钟的1.5倍经验和30分钟1.5倍攻击\ \
领取一个兵（宝宝）一个卒（道士） 一个勇(法师)\ \
<返回/@main>    <下一页/@了解3>    <上一页/@了解1>

[@了解3]
<70级>声望点50和镇魔点达到<500点>可申请官职，然后完成任务\ \
（任务为打工营地打死500个怪物[敌人]）成为将军！\ \
一天90分钟的1.8倍经验和20分钟1.8倍攻击\ \
领取一个裨将（宝宝武士）\ \
<返回/@main>    <下一页/@了解4>    <上一页/@了解2>

[@了解4]
<80级>声望点100点和镇魔点<800点>可申请官职，然后完成任务\ \
（任务为打工营地打死1000个怪物[敌人]）成为大将军！\ \
一天2个小时的2.0倍经验和20分钟2.0倍攻击\ \
一个偏将 (道士宝宝) \ \
<返回/@main>    <下一页/@了解5>    <上一页/@了解3>


[@了解5]
<85级>声望点200点和镇魔点<1000点>可申请官职，然后完成任务\
（任务为拿下沙以后）成为《王》全区唯一！\ \
一天3个小时的2.5倍经验和20分钟2.5倍攻击\
可以发红字沙城，1天可以T5个人下线！！\
一个裨将（宝宝）一个偏将 (道士) 一个谋事(法师)\ \
<返回/@main>    <上一页/@了解4>

[@王的奖励]
#If
check [639] 1
#act
messagebox 对不起，今天您已经领取过了！！
break
#elseAct
GAMEGOLD + 1000
SENDMSG 0 %s成功晋升为本区唯一的王，获得奖励1000元宝。
set [639] 1
break