传奇一条龙,GM论坛,GM部落,传奇版本库,传奇服务端,传奇单机版 - dtbbk.Com

 找回密码
 立即注册

Gom引擎脚本-行会管理 - 传奇私服脚本

查看: 1307|回复: 0

Gom引擎脚本-行会管理

[复制链接]
发表于 2017-9-17 13:34:39 | 显示全部楼层 |阅读模式
(@@InPutInteger)
[@main]
#IF
#ACT
mov N30 <$STR(G34)>
INC N30 500
mov N31 <$GUILDBUILDPOINT>


#IF
CHECKGUILDBUILDPOINT = 0
#ACT
mov N31 0
mov N32 10
mov S30 攻击:+0,魔法+0,道术+0,生命+0,物防+0,魔防+0。
mov N40 1000

#IF
CHECKGUILDBUILDPOINT = 1
#ACT
mov N31 1
mov N32 15
mov S30 攻击:+20,魔法+13,道术+16,生命+200,物防+10,魔防+10。
mov N40 20000

#IF
CHECKGUILDBUILDPOINT = 2
#ACT
mov N31 2
mov N32 25
mov S30 攻击:+35,魔法+21,道术+28,生命+400,物防+16,魔防+16。
mov N40 50000


#IF
CHECKGUILDBUILDPOINT = 3
#ACT
mov N31 3
mov N32 35
mov S30 攻击:+61,魔法+36,道术+48,生命+700,物防+30,魔防+30。
mov N40 120000

#IF
CHECKGUILDBUILDPOINT = 4
#ACT
mov N31 4
mov N32 50
mov S30 攻击:+100,魔法+65,道术+80,生命+1100,物防+50,魔防+50。
mov N40 300000

#IF
CHECKGUILDBUILDPOINT = 5
#ACT
mov N31 5
mov N32 80
mov S30 攻击:+150,魔法+110,道术+130,生命+2000,物防+80,魔防+80。
mov N40 800000

#IF
CHECKGUILDBUILDPOINT = 6
#ACT
mov N31 6
mov N32 130
mov S30 攻击:+210,魔法+155,道术+180,生命+4000,物防+110,魔防+110。
mov N40 2500000

#IF
CHECKGUILDBUILDPOINT = 7
#ACT
mov N31 7
mov N32 200
mov S30 攻击:+300,魔法+220,道术+265,生命+7000,物防+180,魔防+180。
mov N40 9999999


#IF
HAVEGUILD
#ACT
mov S22
goto @YJjrhh1
#ELSEACT
goto @Hhujr1
mov S22
break

[@YJjrhh1]
#IF
#ACT
OPENMERCHANTBIGDLG 31 372 1 0 -0 10 0 0 0
#SAY
<ImgEx:39:40:41:42:435:-15/@Exit>\  
<-----------------------------------------------------------------------------/SCOLOR=83>\
< [您当前行会信息]:>  <我要为行会冲神榜/@jrhhpz1>   <查行会成员贡献值/@@InPutString90(请输入您需要查询的本行会成员名字(需该行会成员在线))>   <查行个人贡献值/@cxgergxz-1>\\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 行会名称:<$GUILDNAME>/AUTOCOLOR=140}\
{ 行会等级:<$GUILDBUILDPOINT>级/AUTOCOLOR=140}<(贡献值达到要求可升级)/AUTOCOLOR=141>\
{ 行会贡献:<$GUILDAURAEPOINT>点/AUTOCOLOR=140}<(可通过下列捐献增加)/AUTOCOLOR=141>\
{ 人数上限:<$STR(N32)>人/AUTOCOLOR=140}<(可招募行会成员数)/AUTOCOLOR=141>\
{ 属性加成:<$STR(S30)>/SCOLOR=140}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 行会等级  容纳人数  攻击加成  魔法加成   道术加成   生命加成   双防加成 /AUTOCOLOR=247>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
<   0        10        0         0        0         0          0 /AUTOCOLOR=247>  \
<   1        15        20         13        16         200         10 /AUTOCOLOR=247>  \
<   2        25        35         21        28         400         16 /AUTOCOLOR=247>  \
<   3        35        61         36        48         700         30 /AUTOCOLOR=247>  \
<   4        50        100        65        80         1100        50 /AUTOCOLOR=247>  \
<   5        80        150        110       130        2000        80 /AUTOCOLOR=247>  \
<   6        130       210        155       180        4000        110 /AUTOCOLOR=247>  \
<   7        200       300        220       260        7000        180/AUTOCOLOR=247>  \
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 1:/AUTOCOLOR=140><升级行会/@HHsjlB>   <当前行会升级需要“贡献值达到<$STR(N40)>点”(掌门人可操作)/AUTOCOLOR=140>\
< 2:/AUTOCOLOR=140><元宝捐献/@@InPutInteger88>   <为行会投入2元宝建设资金将增加1点贡献度 (所有人可操作) /AUTOCOLOR=140>\
< 3:/AUTOCOLOR=140><金币捐献/@@InPutInteger89>   <为行会投入1000金币建设资金将增加1点贡献度 (所有人可操作)/AUTOCOLOR=140> \



[@InPutString90]
#IF
NOT HAVEGUILD
#ACT  
Messagebox [失败]:您还没加入任何的行会!
break

#IF
NOT ISGUILDMASTER
#ACT
Messagebox [失败]:行会老大才可以操作!
break

#IF
NOT CheckGold 50000
#ACT
messagebox 查询需花费5万!
break

#IF
#ACT
mov A310 <$GUILDNAME>

#IF
S90.checkonline
#ACT
GOTO @查询贡献值
#ELSEACT
Messagebox [失败]:您输入的信息错误,或者该玩家不在线!
break

[@查询贡献值]
#IF
S90.equal A310 <$GUILDNAME>
#ACT
take 金币 50000
S90.SendCenterMsg 254 0 [贡献值查询]:「<$USERNAME>」为本行会捐献的贡献值为:<$STR(U10)>.点 2 60
break
#ELSEACT
Messagebox [失败]:您输入的勇士名称“不是您行会成员”!
break

[@cxgergxz-1]
#IF
#ACT
Messagebox [提示]:您是否花3万金币查询本人在行会贡献值(全行会成员均可看到)? @cxgergxz-5 @取消
break


[@cxgergxz-5]
#IF
CheckGold 30000
#ACT
take 金币 30000
SendCenterMsg 254 0 [贡献值查询]:「<$USERNAME>」为本行会捐献的贡献值为:<$STR(U10)>.点 2 60
Messagebox [系统]:您个人在行会的总贡献值为:<$STR(U10)>.点!
break
#ELSEACT
Messagebox [失败]:金币不足30000!
break

[@HHsjlB]
#IF
#ACT
mov N30 <$STR(G34)>
INC N30 500
mov N31 <$GUILDBUILDPOINT>


#IF
CHECKGUILDBUILDPOINT = 0
#ACT
mov N31 0
mov N32 10
mov S30 攻击:+0,魔法+0,道术+0,生命+0,物防+0,魔防+0。
mov N40 1000

#IF
CHECKGUILDBUILDPOINT = 1
#ACT
mov N31 1
mov N32 15
mov S30 攻击:+20,魔法+13,道术+16,生命+200,物防+10,魔防+10。
mov N40 20000

#IF
CHECKGUILDBUILDPOINT = 2
#ACT
mov N31 2
mov N32 25
mov S30 攻击:+35,魔法+21,道术+28,生命+400,物防+16,魔防+16。
mov N40 50000


#IF
CHECKGUILDBUILDPOINT = 3
#ACT
mov N31 3
mov N32 35
mov S30 攻击:+61,魔法+36,道术+48,生命+700,物防+30,魔防+30。
mov N40 120000

#IF
CHECKGUILDBUILDPOINT = 4
#ACT
mov N31 4
mov N32 50
mov S30 攻击:+100,魔法+65,道术+80,生命+1100,物防+50,魔防+50。
mov N40 300000

#IF
CHECKGUILDBUILDPOINT = 5
#ACT
mov N31 5
mov N32 80
mov S30 攻击:+150,魔法+110,道术+130,生命+2000,物防+80,魔防+80。
mov N40 800000

#IF
CHECKGUILDBUILDPOINT = 6
#ACT
mov N31 6
mov N32 130
mov S30 攻击:+210,魔法+155,道术+180,生命+4000,物防+110,魔防+110。
mov N40 2500000

#IF
CHECKGUILDBUILDPOINT = 7
#ACT
mov N31 7
mov N32 200
mov S30 攻击:+300,魔法+220,道术+265,生命+7000,物防+180,魔防+180。
mov N40 9999999


#IF
NOT HAVEGUILD
#ACT  
Messagebox [失败]:您还没加入任何的行会!
break

#IF
NOT ISGUILDMASTER
#ACT
Messagebox [失败]:行会老大才可以操作!
break

#IF
#ACT
mov N44 <$GUILDBUILDPOINT>
inc N44 1

#IF
CHECKGUILDAURAEPOINT < <$STR(N40)>
#ACT
Messagebox [失败]:您的<$STR(N31)>级行会,升级到<$STR(N44)>级行会,需要贡献值达到<$STR(N40)>点!\\\\目前您行会贡献度:<$GUILDAURAEPOINT>/<$STR(N40)>\\行会贡献度靠全行会成员共同捐献行会基金来增加!
break

#IF
CHECKGUILDBUILDPOINT = 0
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 15
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为15人,全体行会成员属性加成:攻击:+20,魔法+13,道术+16,生命+200,物防+10,魔防+10。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break


#IF
CHECKGUILDBUILDPOINT = 1
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 20
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为25人,全体行会成员属性加成:攻击:+35,魔法+21,道术+28,生命+400,物防+16,魔防+16。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break

#IF
CHECKGUILDBUILDPOINT = 2
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 35
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为35人,全体行会成员属性加成:攻击:+61,魔法+36,道术+48,生命+700,物防+30,魔防+30。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break


#IF
CHECKGUILDBUILDPOINT = 3
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 50
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为50人,全体行会成员属性加成:攻击:+100,魔法+65,道术+80,生命+1100,物防+50,魔防+50。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break


#IF
CHECKGUILDBUILDPOINT = 4
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 80
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为80人,全体行会成员属性加成:攻击:+150,魔法+110,道术+130,生命+2000,物防+80,魔防+80。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break


#IF
CHECKGUILDBUILDPOINT = 5
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 130
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为130人,全体行会成员属性加成:攻击:+210,魔法+155,道术+180,生命+4000,物防+110,魔防+110。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break


#IF
CHECKGUILDBUILDPOINT = 6
#ACT
GUILDBUILDPOINT + 1
AddGuildMemberCount = 200
GUILDAURAEPOINT - <$STR(N40)>
goto @main
SENDMOVEMSG 0 7 49 350 1 【行会管理】:恭喜[<$GUILDNAME>]行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会,人数上限为200人,全体行会成员属性加成:攻击:+300,魔法+220,道术+260,生命+7000,物防+180,魔防+180。
SENDMSG 6 恭喜您的行会升级为<$STR(N44)>级行会!
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
SendCenterMsg 222 0 恭喜您的行会由<$STR(N31)>级行会,荣升为<$STR(N44)>级行会 2 30
PLAYSOUND Wav\newysound2.wav 2 4
break

#IF
#ACT
Messagebox [提示]:您的行会已经最高级无法提升了,\\\\每10万点贡献值都会为所有行会成员增加1点攻魔道,不封顶!\\(例如):您行会拥有剩下1000万点贡献值那么所有行会成员\\上线将获得:攻+300点,魔+360点魔,道+375点等等



[@InPutInteger89]
#IF
NOT HAVEGUILD
#ACT  
Messagebox [失败]:您还没加入任何的行会!
break


#IF
small N89 1000
#ACT
Messagebox [失败]:输入的数值必须大于1000以上
break


#IF
NOT CheckGold <$STR(N89)>
#ACT
messagebox 金币不足<$STR(N89)>!
break

#IF
#ACT
take 金币 <$STR(N89)>

mov N42 0
DIV N42 N89 1000
GUILDAURAEPOINT + <$STR(N42)>
SENDMSG 6 您为本行会捐献了<$STR(N89)> 金币,行会增加<$STR(N42)>点贡献值。
SendCenterMsg 242 0 行会[<$USERNAME>]为本行会捐献了<$STR(N89)>金币,行会增加<$STR(N42)>点贡献值,目前贡献值为<$GUILDAURAEPOINT>点. 2 30
inc U10 <$STR(N42)>
goto @main






[@InPutInteger88]
#IF
NOT HAVEGUILD
#ACT  
Messagebox [失败]:您还没加入任何的行会!
break


#IF
small N88 2
#ACT
Messagebox [失败]:输入的数值必须大于2以上
break

#IF
CHECKGAMEGOLD < <$STR(N88)>
#ACT
Messagebox [失败]:元宝不足<$STR(N88)>个!
break


#IF
#ACT
GAMEGOLD - <$STR(N88)>
mov N42 0
DIV N42 N88 2
GUILDAURAEPOINT + <$STR(N42)>
inc U10 <$STR(N42)>
SENDMSG 6 您为本行会捐献了<$STR(N88)> 元宝,行会增加<$STR(N42)>点贡献值。
SendCenterMsg 242 0 行会[<$USERNAME>]为本行会捐献了<$STR(N88)>元宝,行会增加<$STR(N42)>点贡献值,目前贡献值为<$GUILDAURAEPOINT>点. 2 30
goto @main









[@Hhujr1]
#IF
#ACT
OPENMERCHANTBIGDLG 31 372 1 0 -0 10 0 0 0
#SAY
<ImgEx:39:40:41:42:435:-15/@Exit>\  
<-----------------------------------------------------------------------------/SCOLOR=83>\
< [请仔细阅读下列规则]:>\
< 1:创建行会需要100级,100万金币,沃玛号角一个。/AUTOCOLOR=140>\
< 2:曙光之城的行会按等级划分为0-7级,初建行会为0级。/AUTOCOLOR=140>\
< 3:根据您加入的行会,上线会根据您行会等级给于一定属性加成。/AUTOCOLOR=140>\
< 4:行会的等级提升需要全体行会成员的共同努力才可达到条件进行升级。/AUTOCOLOR=140>\
< 5:行会根据等级均会给与一个靓丽的等级称号。/AUTOCOLOR=140>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 行会等级   容纳人数   攻击加成   魔法加成  道术加成   生命加成   双防加成/AUTOCOLOR=247>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
<   0        10        0         0        0         0          0 /AUTOCOLOR=247>  \
<   1        15        20         13        16         200         10 /AUTOCOLOR=247>  \
<   2        25        35         21        28         400         16 /AUTOCOLOR=247>  \
<   3        35        61         36        48         700         30 /AUTOCOLOR=247>  \
<   4        50        100        65        80         1100        50 /AUTOCOLOR=247>  \
<   5        80        150        110       130        2000        80 /AUTOCOLOR=247>  \
<   6        130       210        155       180        4000        110 /AUTOCOLOR=247>  \
<   7        200       300        220       260        7000        180/AUTOCOLOR=247>  \
<-----------------------------------------------------------------------------/SCOLOR=83>\
<     提示!以上属性根据您所在行会等级上线自动加成,整个同行会成员均有加成>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
<1:创建行会,传送您到“曙光城王”处创建行会/AUTOCOLOR=140> <传送过去/@CsgucjhH> \
<2:加入神榜天下第一行会/AUTOCOLOR=140> <加入行会/@jrhhpz1>\

[@CsgucjhH]
#IF
#ACT
Mapmove 3 308 324



[@jrhhpz1]
#IF
#ACT
OPENMERCHANTBIGDLG 31 372 1 0 -0 10 0 0 0
#SAY
<ImgEx:39:40:41:42:435:-15/@Exit>\
< 请选择您需要加入以下行会或者为您的行会竞得行会神榜?>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 1:行会等级越高,上线加成属性越多。/AUTOCOLOR=140>\
< 2:竞争天下第一行会,行会任意玩家均可参加。/AUTOCOLOR=140>\
< 3:行会的等级提升需要全体行会成员的共同努力才可达到条件进行升级。/AUTOCOLOR=140>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 行会排名:天下第一行会/SCOLOR=87>\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 行会名称:<$STR(A30)>/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 行会等级:<$STR(G31)>级/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 行会贡献:<$STR(G32)>点/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 人数上限:<$STR(G33)>个/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 竞争金额:<$STR(G34)>元宝/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
{ 属性加成:<$STR(A32)>/SCOLOR=87}\
<-----------------------------------------------------------------------------/SCOLOR=83>\
< 1:点击加入此行会/AUTOCOLOR=140>   <加入该行会/@jrxh1>\
< 2:支付比目前竞价多500元宝/AUTOCOLOR=140>   <参加竞拍价/@cyjj1>         <返回上一页/@main>\

[@cyjj1]
#IF
#ACT
mov N30 <$STR(G34)>
INC N30 500
mov N31 <$GUILDBUILDPOINT>


#IF
CHECKGUILDBUILDPOINT = 0
#ACT
mov N31 0
mov N32 10
mov S30 攻击:+0,魔法+0,道术+0,生命+0,物防+0,魔防+0。
mov N40 1000

#IF
CHECKGUILDBUILDPOINT = 1
#ACT
mov N31 1
mov N32 15
mov S30 攻击:+20,魔法+13,道术+16,生命+200,物防+10,魔防+10。
mov N40 20000

#IF
CHECKGUILDBUILDPOINT = 2
#ACT
mov N31 2
mov N32 25
mov S30 攻击:+35,魔法+21,道术+28,生命+400,物防+16,魔防+16。
mov N40 50000


#IF
CHECKGUILDBUILDPOINT = 3
#ACT
mov N31 3
mov N32 35
mov S30 攻击:+61,魔法+36,道术+48,生命+700,物防+30,魔防+30。
mov N40 120000

#IF
CHECKGUILDBUILDPOINT = 4
#ACT
mov N31 4
mov N32 50
mov S30 攻击:+100,魔法+65,道术+80,生命+1100,物防+50,魔防+50。
mov N40 300000

#IF
CHECKGUILDBUILDPOINT = 5
#ACT
mov N31 5
mov N32 80
mov S30 攻击:+150,魔法+110,道术+130,生命+2000,物防+80,魔防+80。
mov N40 800000

#IF
CHECKGUILDBUILDPOINT = 6
#ACT
mov N31 6
mov N32 130
mov S30 攻击:+210,魔法+155,道术+180,生命+4000,物防+110,魔防+110。
mov N40 2500000

#IF
CHECKGUILDBUILDPOINT = 7
#ACT
mov N31 7
mov N32 200
mov S30 攻击:+300,魔法+220,道术+265,生命+7000,物防+180,魔防+180。
mov N40 9999999



#IF
NOT HAVEGUILD
#ACT  
Messagebox [失败]:您已经没加入任何的行会!
break


#IF
CHECKGAMEGOLD < <$STR(N30)>
#ACT
Messagebox [失败]:竞争此行会神榜需元宝<$STR(N30)>个,您元宝不足!
break

#IF
#ACT
Messagebox [提示]:您确定花费<$STR(N30)>个元宝为您的行会竞得神榜? @Jdeshenbaa1 @取消

[@Jdeshenbaa1]
#IF
#ACT
GAMEGOLD - <$STR(N30)>
mov A30 <$GUILDNAME>
mov G31 <$STR(N31)>
mov G32 <$GUILDAURAEPOINT>
mov G33 <$STR(N32)>
mov G34 <$STR(N30)>
mov A32 <$STR(S30)>
Messagebox [成功]:您在行会神榜上花了【<$STR(N30)>】个元宝竞得。
GOTO @jrhhpz1

#IF
ISGUILDMASTER
#ACT
GuildNoticeMsg 249 158 【行会管理】:实力“【<$STR(A30)>】的行会掌门人”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 249 158 【行会管理】:实力“【<$STR(A30)>】的行会掌门人”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 249 158 【行会管理】:实力“【<$STR(A30)>】的行会掌门人”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 249 158 【行会管理】:实力“【<$STR(A30)>】的行会掌门人”《%s》竞得行会神榜,大家赶快来加入吧!
break

#IF
#ACT
GuildNoticeMsg 220 158 【行会管理】:实力“【<$STR(A30)>】的行会成员”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 220 158 【行会管理】:实力“【<$STR(A30)>】的行会成员”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 220 158 【行会管理】:实力“【<$STR(A30)>】的行会成员”《%s》竞得行会神榜,大家赶快来加入吧!
GuildNoticeMsg 220 158 【行会管理】:实力“【<$STR(A30)>】的行会成员”《%s》竞得行会神榜,大家赶快来加入吧!
break

[@jrxh1]
#IF
equal A30
#ACT
Messagebox [失败]:现在神榜上还没有行会!
break


#IF
HAVEGUILD
#ACT  
Messagebox [失败]:您已经有了自己的行会!
break

#IF
CHECKLEVELEX < 70
#ACT  
Messagebox [失败]:您未满70级不允许加入行会!
break


#IF  
#ACT
AddGuildMember <$STR(A30)>



#IF
equal A30 <$GUILDNAME>
#ACT
PLAYSOUND Wav\newysound2.wav 2 4
GuildNoticeMsg 154 158 【行会管理】:恭喜勇士【<$USERNAME>】在此处成功加入【<$STR(A30)>】行会。
GuildNoticeMsg 154 158 【行会管理】:恭喜勇士【<$USERNAME>】在此处成功加入【<$STR(A30)>】行会。
GuildNoticeMsg 154 158 【行会管理】:恭喜勇士【<$USERNAME>】在此处成功加入【<$STR(A30)>】行会。
GuildNoticeMsg 154 158 【行会管理】:恭喜勇士【<$USERNAME>】在此处成功加入【<$STR(A30)>】行会。
mov U10 0
Messagebox [成功]:您已经加入该行会!!
break


#IF  
#ACT
Messagebox [失败]:该行会行会成员人数已满!!
break




回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver/手机版/Gm版本库 ( 蜀ICP备20007044号-4 )|网站地图

GMT+8, 2024-12-25 02:30 , Processed in 0.135699 second(s), 17 queries .

Powered by GM版本库 X3.4

© 2001-2011 传奇版本库>  template by 版本库