芝麻论坛 发表于 2017-5-5 16:26:55

礼部尚书传奇脚本




传奇礼部尚书脚本,提取芝麻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 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 1
close
break
#elsesay
晋升大将军需要80级声望100点和镇魔点需要800点!\ \
<返回/@main>\


<封锁/@exit>\


[@晋升将军]
#IF
check 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 1
close
break
#elsesay
晋升将军需要70级.声望50点和镇魔点需要500点!\ \
<返回/@main>\


<封锁/@exit>\

[@晋升国尉]
#IF
check 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 1
close
break
#elsesay
晋升国尉需要60级声望和镇魔点需要200点!\ \
<返回/@main>\


<封锁/@exit>\

[@晋升廷尉]
#IF
check 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 1
close
break
#elsesay
晋升廷尉需要50级声望10点和镇魔点需要50点!\ \
<返回/@main>\


<封锁/@exit>\
[@jiarubingyuan]
#IF
check 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 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 1
#act
messagebox 对不起,今天您已经领取过了!!
break
#elseAct
set 1
KillMonExpRate 250 10800
MESSAGEBOX 您当前杀怪经验倍数为2.5倍.有效时间 3小时.

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

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

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

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

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

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

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

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

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

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

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

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


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


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


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


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

[@领取兵]
#IF
checkitem 金条 1
CHECKSLAVECOUNT < 1
#ACT
take 金条 1
RECALLMOB 兵 3 12000120
#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 1
#act
messagebox 对不起,今天您已经领取过了!!
break
#elseAct
GAMEGOLD + 1000
SENDMSG 0 %s成功晋升为本区唯一的王,获得奖励1000元宝。
set 1
break

页: [1]
查看完整版本: 礼部尚书传奇脚本