Legendm2引擎星级行会繁荣度脚本

admin · 发表于 2016-11-10 01:40:19

这个脚本比较适合人气较好的传奇，星级行会区分等级和繁荣度得到奖励，这里只是随便写个例子。大家可以天马行空去设置其他趣味的小奖励！有能力的朋友可以转换其他引擎。
[@行会星级倍攻]
{
;=======行会星级倍攻=======↓↓===============
#DEFINE $(一星倍攻) 100
#DEFINE $(二星倍攻) 200
#DEFINE $(三星倍攻) 300
#DEFINE $(四星倍攻) 400
#DEFINE $(五星倍攻) 500
;=======行会星级倍攻=======↓↓===============
#DEFINE $(一星显示) 1.0
#DEFINE $(二星显示) 2.0
#DEFINE $(三星显示) 3.0
#DEFINE $(四星显示) 4.0
#DEFINE $(五星显示) 5.0
}
[@行会星级NPC]
{
#IF
CHECKLEVELEX > 0
#ACT
MOV S11 <$GLOBAL(行会星级5)><$GLOBAL(星级空格)>
MOV S12 <$GLOBAL(行会星级4)><$GLOBAL(星级空格)>
MOV S13 <$GLOBAL(行会星级3)><$GLOBAL(星级空格)>
MOV S14 <$GLOBAL(行会星级2)><$GLOBAL(星级空格)>
MOV S15 <$GLOBAL(行会星级1)><$GLOBAL(星级空格)>
MOV S16 <$GLOBAL(行会繁荣5)><$GLOBAL(星级空格)>
MOV S17 <$GLOBAL(行会繁荣4)><$GLOBAL(星级空格)>
MOV S18 <$GLOBAL(行会繁荣3)><$GLOBAL(星级空格)>
MOV S19 <$GLOBAL(行会繁荣2)><$GLOBAL(星级空格)>
MOV S20 <$GLOBAL(行会繁荣1)><$GLOBAL(星级空格)>
DEC S11 13 500
DEC S12 13 500
DEC S13 13 500
DEC S14 13 500
DEC S15 13 500
DEC S16 13 500
DEC S17 13 500
DEC S18 13 500
DEC S19 13 500
DEC S20 13 500
#IF
CHECKLEVELEX > 0
#SAY
<$绿1 【星级行会】><$橙0 当前星级><$紫0 【><$HUMAN(当前星级)><$紫0 】><$橙0 当前繁荣度><$紫0 【><$GUILDFLOURISHPOINT><$紫0 】>\
<$青1 --------------------------------------------------------->\
<$青1 五星行会> <$紫0 【><$STR(S11)><$紫0 】><$青5 繁荣度> <$紫0 【><$STR(S16)><$紫0 】><$绿1 成员上线><$红0 $(五星显示)倍攻>\
<$青1 四星行会> <$紫0 【><$STR(S12)><$紫0 】><$青5 繁荣度> <$紫0 【><$STR(S17)><$紫0 】><$绿1 成员上线><$红0 $(四星显示)倍攻>\
<$青1 三星行会> <$紫0 【><$STR(S13)><$紫0 】><$青5 繁荣度> <$紫0 【><$STR(S18)><$紫0 】><$绿1 成员上线><$红0 $(三星显示)倍攻>\
<$青1 二星行会> <$紫0 【><$STR(S14)><$紫0 】><$青5 繁荣度> <$紫0 【><$STR(S19)><$紫0 】><$绿1 成员上线><$红0 $(二星显示)倍攻>\
<$青1 一星行会> <$紫0 【><$STR(S15)><$紫0 】><$青5 繁荣度> <$紫0 【><$STR(S20)><$紫0 】><$绿1 成员上线><$红0 $(一星显示)倍攻>\
<$青1 --------------------------------------------------------->\
<我要捐献/@我要捐献> <我要捐献/@我要捐献>\
[@我要捐献]
#IF
CHECKGAMEGOLD > 0
#ACT
QUERYVALUE 88 1 10000 @捐献繁荣请在以下输入框内填写您要捐献的点数：\　\　\　\　\您当前行会的繁荣度：<$GUILDFLOURISHPOINT>点\　\每颗元宝增加一点行会繁荣度 NPC
#ELSEACT
MESSAGEBOX [提示]：对不起，你的元宝不足，请先充值。
[@捐献繁荣]
#IF
EQUAL M88 0
#ACT
MESSAGEBOX [提示]：对不起，你没有输入任何数字。
BREAK
#IF
CHECKGAMEGOLD < <$STR(M88)>
#ACT
MESSAGEBOX [提示]：对不起，你的元宝不足，请先充值。
BREAK
#IF
CHECKGAMEGOLD > <$STR(M88)>
#ACT
GAMEGOLD - <$STR(M88)>
GUILDFLOURISHPOINT + <$STR(M88)>
SendMSG 0 [星级行会]：恭喜玩家[%s]为行会捐献了[<$STR(M88)>]点繁荣度。
GOTO @行会星级NPC
BREAK
[@行会星级倍攻加载]
#CALL [\改天制作行会星级\行会星级脚本.TXT] @行会星级倍攻
#INCLUDE GMQD.ini
}

完整脚本回复下载：

游客，如果您要查看本帖隐藏内容请回复

4ekj30 · 发表于 2016-11-13 04:48:03

引擎星级行会繁荣度脚本

3036 · 发表于 2016-12-6 15:13:43

[@main]
<color=clFuchsia 极品属性转移：><color=clRed 可以把任何极品装备属性转移到身上的首饰中。>\
<color=clFuchsia 属性转移条件：><color=clRed 首饰1.5W元宝+火云石*5 物品衣服2.5W元宝+火云石*10>\
<武  器极品属性转移/@武器>  |  <color=clFuchsia 当前佩戴武  器：>[ <$WEAPON> ]\
<衣  服极品属性转移/@衣服>  |  <color=clFuchsia 当前佩戴衣  服：>[ <$DRESS> ]\
<头  盔极品属性转移/@头盔>  |  <color=clFuchsia 当前佩戴头  盔：>[ <$HELMET> ]\
<项  链极品属性转移/@项链>  |  <color=clFuchsia 当前佩戴项  链：>[ <$NECKLACE> ]\
<右手镯极品属性转移/@右手镯>  |  <color=clFuchsia 当前佩戴右手镯：>[ <$ARMRING_R> ]\
<左手镯极品属性转移/@左手镯>  |  <color=clFuchsia 当前佩戴左手镯：>[ <$ARMRING_L> ]\
<右戒指极品属性转移/@右戒指>  |  <color=clFuchsia 当前佩戴右戒指：>[ <$RING_R> ]\
<左戒指极品属性转移/@左戒指>  |  <color=clFuchsia 当前佩戴左戒指：>[ <$RING_L> ]\
[@项链]
#IF
CHECKUSEITEM 3
#ACT
MOV S60 <$NECKLACE>
MOV S61 项链
MOV S62 NECKLACE
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 3
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[项链]，不能属性转移。

[@左戒指]
#IF
CHECKUSEITEM 7
#ACT
MOV S60 <$RING_L>
MOV S61 左戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 7
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左戒指]，不能属性转移。
[@右戒指]
#IF
CHECKUSEITEM 8
#ACT
MOV S60 <$RING_R>
MOV S61 右戒指
MOV S62 RING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 8
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右戒指]，不能属性转移。
[@左手镯]
#IF
CHECKUSEITEM 5
#ACT
MOV S60 <$ARMRING_L>
MOV S61 左手镯
MOV S62 ARMRING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 5
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[左手镯]，不能属性转移。
[@右手镯]
#IF
CHECKUSEITEM 6
#ACT
MOV S60 <$ARMRING_R>
MOV S61 右手镯
MOV S62 ARMRING
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 6
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[右手镯]，不能属性转移。
[@头盔]
#IF
CHECKUSEITEM 4
#ACT
MOV S60 <$HELMET>
MOV S61 头盔
MOV S62 HELMET
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 4
MOV M67 5
MOV M68 15000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[头盔]，不能属性转移。

[@衣服]
#IF
CHECKUSEITEM 0
#ACT
MOV S60 <$DRESS>
MOV S61 衣服
MOV S62 DRESS
MOV M63 2
MOV M64 3
MOV M65 4
MOV M66 0
MOV M67 10
MOV M68 25000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[衣服]，不能属性转移。
[@武器]
#IF
CHECKUSEITEM 1
#ACT
MOV S60 <$WEAPON>
MOV S61 武器
MOV S62 WEAPON
MOV M63 0
MOV M64 1
MOV M65 2
MOV M66 1
MOV M67 10
MOV M68 25000
DELAYCALL 5 @选择区域
#elseact
MessageBox [错误提示]：你没有穿戴任何[武器]，不能属性转移。
[@选择区域]
<color=clFuchsia 属性转移条件：>已经选择[<$STR(S60)>]需要<$STR(M68)>元宝,火云石*<$STR(M67)>个\ \
<color=clAqua 你选择是将极品属性转移到当前佩戴><$STR(S61)>：[<$STR(S60)>]\ \
　          <确认开始极品属性转移/@转移>\ \
<color=clFuchsia 注意：><color=clRed 此操作将覆盖><$STR(S60)><color=clRed 已拥有的所有极品属性，幸运保留。>\
<color=clFuchsia 说明：><color=clRed 将OK框内的极品属性转移到>[<$STR(S60)>]。\
<color=clFuchsia 说明：><color=clRed OK框内的装备将被系统收回。><color=clYellow 请勿放入没有极品属性的装备>\
[@转移]
#IF
#ACT
QUERYITEMDLG 放入极品属性<$STR(S61)> @转移属性 0
break
[@转移属性]
#IF
CHECKDLGITEMTYPE <$STR(S62)>
CHECKGAMEGOLD > <$STR(M68)>
checkitem 火云石 <$STR(M67)>
#ACT
GAMEGOLD - <$STR(M68)>
take 火云石 <$STR(M67)>
MOV M60 0
MOV M61 0
MOV M62 0
GETDLGITEMVALUE M60 <$STR(M63)>
GETDLGITEMVALUE M61 <$STR(M64)>
GETDLGITEMVALUE M62 <$STR(M65)>
TAKEDLGITEM
GMEXECUTE 改属性 <$STR(M66)> <$STR(M63)> <$STR(M60)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M64)> <$STR(M61)>
GMEXECUTE 改属性 <$STR(M66)> <$STR(M65)> <$STR(M62)>
SendMSG 0 [属性转移]：恭喜[<$USERNAME>]，成功转移属性到装备[<$STR(S60)>]上。 18 249
SendMSG 0 [属性转移]：恭喜[<$USERNAME>]，成功转移属性到装备[<$STR(S60)>]上。 18 249
#elseact
MessageBox [错误提示]：你放入的不是<$STR(S61)>，或者材料不齐全。
break

117561470 · 发表于 2016-12-20 21:26:55

sdafffffffff

anran · 发表于 2017-3-27 02:22:52

引擎星级行会繁荣度脚

zl6803586 · 发表于 2017-4-1 21:37:56

Legendm2引擎装备回收排行榜奖励脚本

xiang123 · 发表于 2017-4-12 12:28:50

1111111111111

zq5550905 · 发表于 2017-5-4 17:50:04

111111111111111111111

404339329 · 发表于 2017-7-12 00:31:22

Legendm2引擎星级行会繁荣度脚本Legendm2引擎星级行会繁荣度脚本Legendm2引擎星级行会繁荣度脚本Legendm2引擎星级行会繁荣度脚本Legendm2引擎星级行会繁荣度脚本

haoren123 · 发表于 2017-7-18 11:36:37

谢谢谢谢谢谢谢谢

GM起点

[传奇脚本] Legendm2引擎星级行会繁荣度脚本