葛宛曼 发表于 4 天前

GOM引擎行会进阶，GM版本库中提升门派级别享受属性加成教程

(@@InPutInteger @@InPutString)


[@main]


#IF
CHECKVAR GUILD 门派级别 = 0
#act
MOV S30

#IF
CHECKVAR GUILD 门派级别 = 1
#act
MOV S30

#IF
CHECKVAR GUILD 门派级别 = 2
#act
MOV S30

#IF
CHECKVAR GUILD 门派级别 = 3
#act
MOV S30

#IF
CHECKVAR GUILD 门派级别 = 4
#act
MOV S30

#IF
CHECKVAR GUILD 门派级别 = 5
#act
MOV S30



#IF
haveguild
#ACT
OPENMERCHANTBIGDLG 90 32 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                                            {/AUTOCOLOR=254,251,168,191,250,70,245,249,253}\\\\
                                                                                                               {/FCOLOR=19}\
                                                                                                               {/FCOLOR=19}\
                                                                                                               {/FCOLOR=19}\
                                                                                                               {/FCOLOR=19}\
                                                                                                               {/FCOLOR=19}\\\\\

                                                                                                                  {/FCOLOR=19}\ \
                                                                                                                  {/FCOLOR=19}\\\\   \

                                                                                                                  {/FCOLOR=19}\
                                                                                                                  {/FCOLOR=19}\
                                                                                                                  {/FCOLOR=19}\
                        \
#ELSEACT
MESSAGEBOX 未加入任何行会，无法用此功能。






[@门派升级001]

#IF
CHECKVAR GUILD 门派级别 = 0
#ACT
goto @H0版本定制
BREAK


#IF
CHECKVAR GUILD 门派级别 = 1
#ACT
goto @H1版本定制
BREAK

#IF
CHECKVAR GUILD 门派级别 = 2
#ACT
goto @H2版本定制
BREAK

#IF
CHECKVAR GUILD 门派级别 = 3
#ACT
goto @H3版本定制
BREAK

#IF
CHECKVAR GUILD 门派级别 = 4
#ACT
goto @H4版本定制
BREAK

#IF
CHECKVAR GUILD 门派级别 = 5
#ACT
goto @H5版本定制
BREAK


[@H0版本定制]
#if
ISGUILDMASTER
CHECKVAR GUILD 门派资金 > 7999
CHECKVAR GUILD 门派灵力 > 399999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 8000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 400000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\

[@H1版本定制]
#if
ISGUILDMASTER
CHECKVAR GUILD 门派资金 > 14999
CHECKVAR GUILD 门派灵力 > 699999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 15000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 700000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\


[@H2版本定制]
#if
ISGUILDMASTER
CHECKVAR GUILD 门派资金 > 17999
CHECKVAR GUILD 门派灵力 > 899999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 18000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 900000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\

[@H3版本定制]
#if
ISGUILDMASTER
CHECKVAR GUILD 门派资金 > 24999
CHECKVAR GUILD 门派灵力 > 1199999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 25000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 1200000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\

[@H4版本定制]
#if
ISGUILDMASTER
CHECKVAR GUILD 门派资金 > 29999
CHECKVAR GUILD 门派灵力 > 1499999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 30000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 1500000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\

[@H5版本定制]
#if
#ACT
MESSAGEBOX 对不起，门派等级暂时5级为满级，你的门派已经达到5级！


[@军衔称号002]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               200             200\\
                                                                                                               200             200\\
                                                                                                               15000      \          \\
                                                                                                                         50000\\
                                                                                                                         1000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\
=============================================================
[@军衔称号003]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               250             250\\
                                                                                                               250             250\\
                                                                                                               20000      \          \\
                                                                                                                         100000\\
                                                                                                                         2500\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\
=====================================================

[@军衔称号004]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               300             300\\
                                                                                                               300             300\\
                                                                                                               30000      \          \\
                                                                                                                         150000\\
                                                                                                                         5000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\
===============================================================

[@军衔称号005]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               400             400\\
                                                                                                               400             400\\
                                                                                                               40000      \          \\
                                                                                                                         200000\\
                                                                                                                         7000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\
================================================
[@军衔称号006]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               600             600\\
                                                                                                               600             600\\
                                                                                                               50000      \          \\
                                                                                                                         250000\\
                                                                                                                         8500\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\
================================================
[@军衔称号007]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               800             800\\
                                                                                                               800             800\\
                                                                                                               65000      \          \\
                                                                                                                         300000\\
                                                                                                                         10000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\

========================================
[@军衔称号008]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               1000             1000\\
                                                                                                               1000             1000\\
                                                                                                               80000      \          \\
                                                                                                                         320000\\
                                                                                                                         15000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\

================================================

[@军衔称号009]
#if
EQUAL U45 0
#act
MOV S30

#if
EQUAL U45 1
#act
MOV S30


#if
EQUAL U45 2
#act
MOV S30


#if
EQUAL U45 3
#act
MOV S30 >


#if
EQUAL U45 4
#act
MOV S30


#if
EQUAL U45 5
#act
MOV S30

#if
EQUAL U45 6
#act
MOV S30
#if
EQUAL U45 7
#act
MOV S30

#if
EQUAL U45 8
#act
MOV S30


#IF
#ACT
OPENMERCHANTBIGDLG 90 29 1 4 0 0 0
#say
\　\　\　\　\\\\\
                                                                                  \\\\\
                                                                                                               1200             1200\\
                                                                                                               1200             1200\\
                                                                                                               100000      \          \\
                                                                                                                         350000\\
                                                                                                                         15000\\\\\


                                                                                                                     \\
                                                                                                                     \
                                                                                                                     \

\
\
\
\
\
\
\
\
\
\
\


[@InPutInteger3]
#IF
LARGE N3 0
CHECKGAMEGOLD >
#ACT
GAMEGOLD -
CALCVAR GUILD 门派资金 +
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt
CALCVAR HUMAN 私人资金 +
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt
GOTO @MAIN
SendCenterMsg 0 58 行会成员 699999
#ACT
CALCVAR GUILD 门派级别 + 1
SAVEVAR GUILD 门派级别 ..\QuestDiary\门派相关\门派级别.txt

CALCVAR GUILD 门派资金 - 15000
SAVEVAR GUILD 门派资金 ..\QuestDiary\门派相关\门派资金.txt

CALCVAR GUILD 门派灵力 - 700000
SAVEVAR GUILD 门派灵力 ..\QuestDiary\门派相关\门派灵力.txt

SendCenterMsg 0 58 恭喜强大的【】行会成功晋升行会等级.全员获得属性加成，更有神秘地图等待探索，踊跃加入他们吧！ 1 30
#ELSEACT
MESSAGEBOX 1.你不是行会掌门\\2.晋升条件不足\\

[@HH晋升兵]
#if
EQUAL U45 0
CHECKVAR HUMAN 私人灵力 > 49999
CHECKVAR HUMAN 私人资金 > 999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 50000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 1000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆士兵☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得士兵级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\


[@HH晋护卫]
#if
EQUAL U45 1
CHECKVAR HUMAN 私人灵力 > 99999
CHECKVAR HUMAN 私人资金 > 2499
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 100000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 2500
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆护卫☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得护卫级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\


[@HH晋御林军]
#if
EQUAL U45 2
CHECKVAR HUMAN 私人灵力 > 149999
CHECKVAR HUMAN 私人资金 > 4999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 150000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 5000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆御林军☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得御林军级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\

[@HH晋督统]
#if
EQUAL U45 3
CHECKVAR HUMAN 私人灵力 > 199999
CHECKVAR HUMAN 私人资金 > 6999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 200000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 7000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆督统☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得督统级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\


[@HH晋太师]
#if
EQUAL U45 4
CHECKVAR HUMAN 私人灵力 > 249999
CHECKVAR HUMAN 私人资金 > 8499
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 250000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 8500
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆太师☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得太师级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\

[@HH晋大将]
#if
EQUAL U45 5
CHECKVAR HUMAN 私人灵力 > 299999
CHECKVAR HUMAN 私人资金 > 9999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 300000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 10000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆大将☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得大将级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\


[@HH晋元帅]
#if
EQUAL U45 6
CHECKVAR HUMAN 私人灵力 > 319999
CHECKVAR HUMAN 私人资金 > 14999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 320000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 15000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆元帅☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得元帅级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\



[@HH晋总统]
#if
EQUAL U45 7
CHECKVAR HUMAN 私人灵力 > 349999
CHECKVAR HUMAN 私人资金 > 14999
#ACT
INCU45 1
CALCVAR HUMAN 私人灵力 - 350000
SAVEVAR HUMAN 私人灵力 ..\QuestDiary\门派相关\私人灵力.txt

CALCVAR HUMAN 私人资金 - 15000
SAVEVAR HUMAN 私人资金 ..\QuestDiary\门派相关\私人资金.txt

CONFERTITLE ☆总统☆
SendCenterMsg 0 58 恭喜[]成功晋升军衔.获得总统级别，军衔称号有属性加成，更有特殊权限！ 1 10
#ELSEACT
MESSAGEBOX 1.你已经获得过次军衔\\2.晋升条件不足\\

征战玉兔 发表于 4 天前

路过

沙海龄 发表于 4 天前

为毛老子总也抢不到沙发？！！

萝卜沉默 发表于 4 天前

我了个去，顶了

随风而来 发表于 4 天前

一直在看

青衣专属 发表于 4 天前

非常好，顶一下

剑刃魅影 发表于 4 天前

高手云集 果断围观

问道天下专属 发表于 4 天前

我也顶起出售广告位

通天之路 发表于 4 天前

看起来好像不错的样子

oopp 发表于 4 天前

支持支持再支持
页: [1] 2 3
查看完整版本: GOM引擎行会进阶，GM版本库中提升门派级别享受属性加成教程