传奇行会自助招人的简洁脚本

芝麻论坛 发表于 2017-4-2 16:21:07

(@@InPutInteger @@InPutString @InPutInteger @InPutString @storage @getback @getnextpage @getPreviouspage)
[@main]
#IF
NOT ISGUILDMASTER
#ACT
OPENMERCHANTBIGDLG 1 493 1 4 0 0 20 390 7
MOV <$STR(S$行会一名字)> <$STR(A30)>
MOV <$STR(S$行会二名字)> <$STR(A40)>
MOV <$STR(S$行会三名字)> <$STR(A50)>
SetStringBlank <$STR(S$行会一名字)> 14 1
SetStringBlank <$STR(S$行会二名字)> 14 1
SetStringBlank <$STR(S$行会三名字)> 14 1
#SAY

　　　　　　　       <行会自助招人/AUTOCOLOR=250>\　\
<------------------------------------------------------------------/AUTOCOLOR=14> \
　<【天下第一行会】/AUTOCOLOR=249>:<$STR(S$行会一名字)><【招募】/AUTOCOLOR=249>:<$STR(A32)> <【竞价】/AUTOCOLOR=249>:<$STR(G30)> \\
　<【天下第二行会】/AUTOCOLOR=253>:<$STR(S$行会二名字)><【招募】/AUTOCOLOR=253>:<$STR(A42)> <【竞价】/AUTOCOLOR=253>:<$STR(G40)> \\
　<【天下第三行会】/AUTOCOLOR=146>:<$STR(S$行会三名字)><【招募】/AUTOCOLOR=146>:<$STR(A52)> <【竞价】/AUTOCOLOR=146>:<$STR(G50)> \
<------------------------------------------------------------------/AUTOCOLOR=14> \
　 <您需支付高于天下第一行会竞标价格10000元宝即可竞标成功/AUTOCOLOR=250>\　\

　<加入天下第一行会/@加入行会1>    <加入天下第二行会/@加入行会2>    <加入天下第三行会/@加入行会3>
#ELSEACT
OPENMERCHANTBIGDLG 1 493 1 4 0 0 20 390 7
MOV <$STR(S$行会一名字)> <$STR(A30)>
MOV <$STR(S$行会二名字)> <$STR(A40)>
MOV <$STR(S$行会三名字)> <$STR(A50)>
SetStringBlank <$STR(S$行会一名字)> 14 1
SetStringBlank <$STR(S$行会二名字)> 14 1
SetStringBlank <$STR(S$行会三名字)> 14 1
#elseSAY

　　　　　　　       <行会自助招人/AUTOCOLOR=250>\　\
<------------------------------------------------------------------/AUTOCOLOR=14> \
　<【天下第一行会】/AUTOCOLOR=249>:<$STR(S$行会一名字)><【招募】/AUTOCOLOR=249>:<$STR(A32)> <【竞价】/AUTOCOLOR=249>:<$STR(G30)> \\
　<【天下第二行会】/AUTOCOLOR=253>:<$STR(S$行会二名字)><【招募】/AUTOCOLOR=253>:<$STR(A42)> <【竞价】/AUTOCOLOR=253>:<$STR(G40)> \\
　<【天下第三行会】/AUTOCOLOR=146>:<$STR(S$行会三名字)><【招募】/AUTOCOLOR=146>:<$STR(A52)> <【竞价】/AUTOCOLOR=146>:<$STR(G50)> \
<------------------------------------------------------------------/AUTOCOLOR=14> \
　 <您需支付高于天下第一行会竞标价格10000元宝即可竞标成功/AUTOCOLOR=250>\　\

　    <竞标天下第一行会/@竞标行会1>       <行会招募状态设置/@行会招募设置>

[@行会招募设置]
#if
equal <$GUILDNAME> <$STR(A30)>
#act
goto @天下第一行会开关
break

#if
equal <$GUILDNAME> <$STR(A40)>
#act
goto @天下第二行会开关
break

#if
equal <$GUILDNAME> <$STR(A50)>
#act
goto @天下第三行会开关
break

#elseact
messagebox \\\您的行会未登天下行会榜.

[@天下第一行会开关]
#if
equal A32 开启
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@确定关闭天下第一行会 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@确定开启天下第一行会 @取消

[@天下第二行会开关]
#if
equal A42 开启
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@确定关闭天下第二行会 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@确定开启天下第二行会 @取消

[@天下第三行会开关]
#if
equal A52 开启
#act
messagebox \\\您将关闭行会招募状态.确定关闭么？@确定关闭天下第三行会 @取消
#elseact
messagebox \\\您将开启行会招募状态.确定开启么？@确定开启天下第三行会 @取消

[@确定关闭天下第一行会]
#act
MOV A32 关闭
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经关闭招募状态.想投奔的下次请早！
goto @main

[@确定开启天下第一行会]
#act
MOV A32 开启
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 249 251 【<$USERNAME>】统治的天下第一行会【<$STR(A30)>】已经开启招募状态.想投奔赶快了！
goto @main

[@确定关闭天下第二行会]
#act
MOV A42 关闭
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经关闭招募状态.想投奔的下次请早！
goto @main

[@确定开启天下第二行会]
#act
MOV A42 开启
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 253 0 【<$USERNAME>】统治的天下第二行会【<$STR(A40)>】已经开启招募状态.想投奔赶快了！
goto @main

[@确定关闭天下第三行会]
#act
MOV A52 关闭
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经关闭招募状态.想投奔的下次请早！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经关闭招募状态.想投奔的下次请早！
goto @main

[@确定开启天下第三行会]
#act
MOV A52 开启
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经开启招募状态.想投奔赶快了！
GuildNoticeMsg 146 0 【<$USERNAME>】统治的天下第三行会【<$STR(A50)>】已经开启招募状态.想投奔赶快了！
goto @main

[@竞标行会1]
#if
equal <$GUILDNAME> <$STR(A30)>
#act
messagebox \\\您已是天下第一行会老大.无需再次竞标.
break

#if
equal <$GUILDNAME> <$STR(A40)>
#act
MOV <$STR(N$竞标价格一)> <$STR(G30)>
INC <$STR(N$竞标价格一)> 10000
goto @二进一
break

#if
equal <$GUILDNAME> <$STR(A50)>
#act
MOV <$STR(N$竞标价格一)> <$STR(G30)>
INC <$STR(N$竞标价格一)> 10000
goto @三进一
break

#if
NOT equal <$GUILDNAME> <$STR(A30)>
NOT equal <$GUILDNAME> <$STR(A40)>
NOT equal <$GUILDNAME> <$STR(A50)>
#act
MOV <$STR(N$竞标价格一)> <$STR(G30)>
INC <$STR(N$竞标价格一)> 10000
goto @三进一
break

[@三进一]
#if
CHECKGAMEGOLD > <$STR(N$竞标价格一)>
#act
GAMEGOLD - <$STR(N$竞标价格一)>
MOV A50 <$STR(A40)>
MOV A52 <$STR(A42)>
MOV G50 <$STR(G40)>

MOV A40 <$STR(A30)>
MOV A42 <$STR(A32)>
MOV G40 <$STR(G30)>

MOV A30 <$GUILDNAME>
MOV A32 开启
MOV G30 <$STR(N$竞标价格一)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A30)>】荣登【天下第一行会】
goto @main
#elseact
messagebox \\\您的元宝不足<$STR(N$竞标价格一)>.无法竞标天下第一行会

[@二进一]
#if
CHECKGAMEGOLD > <$STR(N$竞标价格一)>
#act
GAMEGOLD - <$STR(N$竞标价格一)>
MOV A40 <$STR(A30)>
MOV A42 <$STR(A32)>
MOV G40 <$STR(G30)>
MOV A30 <$GUILDNAME>
MOV A32 开启
MOV G30 <$STR(N$竞标价格一)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】统治的行会【<$STR(A30)>】荣登【天下第一行会】
goto @main
#elseact
messagebox \\\您的元宝不足<$STR(N$竞标价格一)>.无法竞标天下第一行会

[@加入行会1]
#IF
HAVEGUILD
#ACT
Messagebox \\\您当前已经加入行会.请退出后在加入.
break
#if
NOT equal <$STR(A32)> 开启
#act
messagebox \\\天下第一行会未开启招募状态.
break
#OR
equal <$STR(A30)> 暂无行会竞标
equal <$STR(A30)>
#act
messagebox \\\当前天下第一行会无人竞标.
#elseact
ADDGUILDMEMBER <$STR(A30)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会大旗】加入了【天下第一行会】【<$STR(A30)>】

[@加入行会2]
#IF
HAVEGUILD
#ACT
Messagebox \\\您当前已经加入行会.请退出后在加入.
break
#if
NOT equal <$STR(A42)> 开启
#act
messagebox \\\天下第二行会未开启招募状态.
break
#OR
equal <$STR(A40)> 暂无行会竞标
equal <$STR(A40)>
#act
messagebox \\\当前天下第二行会无人竞标.
#elseact
ADDGUILDMEMBER <$STR(A40)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会大旗】加入了【天下第二行会】【<$STR(A40)>】

[@加入行会3]
#IF
HAVEGUILD
#ACT
Messagebox \\\您当前已经加入行会.请退出后在加入.
break
#if
NOT equal <$STR(A52)> 开启
#act
messagebox \\\天下第三行会未开启招募状态.
break
#OR
equal <$STR(A50)> 暂无行会竞标
equal <$STR(A50)>
#act
messagebox \\\当前天下第三行会无人竞标.
#elseact
ADDGUILDMEMBER <$STR(A50)>
GuildNoticeMsg 249 251 恭喜【<$USERNAME>】通过【行会大旗】加入了【天下第三行会】【<$STR(A50)>】

1231231 发表于 2017-4-4 07:14:43

:lol很好~~

hbysxuben 发表于 2017-4-4 22:52:57

路过，学习下

5132017 发表于 2017-4-5 03:03:32

有道理。。。

人生能有几何 发表于 2017-4-5 09:19:33

支持支持再支持

wangxu1231 发表于 2017-4-5 11:56:24

我也来顶一下..

chenkang1987 发表于 2017-4-5 15:04:26

相当不错，感谢无私分享精神！

hzdj 发表于 2017-4-5 19:46:45

无论是不是沙发都得回复下

naswdth 发表于 2017-4-5 21:20:31

报告！别开枪，我就是路过来看看的。。。

............ 发表于 2017-4-6 04:06:30

传奇私服版本太多了，我都看眼花了，不知道选什么了

页: [1] 2 3

芝麻GM论坛_免费传奇版本下载_单机服务端_传奇一条龙's Archiver

传奇行会自助招人的简洁脚本