gom引擎行会收人第一行会竞标第二传奇脚本

　　[@main] #IF #ACT MOV S$一号行会竞标 我要加入该行会/@加入1 MOV S$第二行会竞标 加入行会/@加入2 MOV S$第三行会竞标 加入行会/@加入3 MOV S$等级要求1 $STR(G304) MOV S$等级要求2 $STR(G305) MOV S$等级要求3 $STR(G306) #IF equal A304 #ACT MOV S$收人状态1 -/SCOLOR=125 #IF equal A305 #ACT MOV S$收人状态2 -/SCOLOR=125 #IF equal A306 #ACT MOV S$收人状态3 -/SCOLOR=125 #IF equal A304 允许收人 #ACT MOV S$收人状态1 允许加入/SCOLOR=250 #IF equal A305 允许收人 #ACT MOV S$收人状态2 允许加入/SCOLOR=250 #IF equal A306 允许收人 #ACT MOV S$收人状态3 允许加入/SCOLOR=250 #IF equal A304 拒绝收人 #ACT MOV S$收人状态1 拒绝收人/SCOLOR=249 #IF equal A305 拒绝收人 #ACT MOV S$收人状态2 拒绝收人/SCOLOR=249 #IF equal A306 拒绝收人 #ACT MOV S$收人状态3 拒绝收人/SCOLOR=249 #IF #ACT SetStringBlank S$收人状态1 21 1 SetStringBlank S$收人状态2 21 1 #IF equal A300 #ACT MOV S$行会名字1 -暂无行会- SetStringBlank S$行会名字1 20 1 #ELSEACT MOV S$行会名字1 $STR(A300) SetStringBlank S$行会名字1 20 1 #IF equal A301 #ACT MOV S$行会名字2 -暂无行会- SetStringBlank S$行会名字2 20 1 #ELSEACT MOV S$行会名字2 $STR(A301) SetStringBlank S$行会名字2 20 1 #IF equal A302 #ACT MOV S$行会名字3 -暂无行会- #ELSEACT MOV S$行会名字3 $STR(A302) #IF #ACT MOV S$竞标价格1 $STR(G300) MOV S$竞标价格2 $STR(G301) MOV S$竞标价格3 $STR(G302) SetStringBlank S$竞标价格1 16 1 SetStringBlank S$竞标价格2 16 1 #IF ISGUILDMASTER #ACT MOV S$一号行会竞标 我要出价竞标/@竞标1 MOV S$第二行会竞标 出价竞标/@竞标2 MOV S$第三行会竞标 出价竞标/@竞标3 #IF equal A300 #ACT MOV S$行会名字1 -暂无行会- SetStringBlank S$行会名字1 20 1 #ELSEACT MOV S$行会名字1 $STR(A300) SetStringBlank S$行会名字1 20 1 #IF equal A301 #ACT MOV S$行会名字2 -暂无行会- SetStringBlank S$行会名字2 20 1 #ELSEACT MOV S$行会名字2 $STR(A301) SetStringBlank S$行会名字2 20 1 #IF equal A302 #ACT MOV S$行会名字3 -暂无行会- #ELSEACT MOV S$行会名字3 $STR(A302) #IF #ACT MOV S$竞标价格1 $STR(G300) MOV S$竞标价格2 $STR(G301) MOV S$竞标价格3 $STR(G302) SetStringBlank S$竞标价格1 16 1 SetStringBlank S$竞标价格2 16 1 #IF ISGUILDMASTER equal $GUILDNAME $STR(A300) #ACT MOV S$等级要求1 $STR(G304)设置/@@InPutInteger85 #IF ISGUILDMASTER equal $GUILDNAME $STR(A301) #ACT MOV S$等级要求2 $STR(G305)设置/@@InPutInteger86 #IF ISGUILDMASTER equal $GUILDNAME $STR(A302) #ACT MOV S$等级要求3 $STR(G306)设置/@@InPutInteger87 #IF ISGUILDMASTER equal A304 允许收人 equal $GUILDNAME $STR(A300) #ACT MOV S$收人状态1 允许/SCOLOR=250设置/@收人1 #IF ISGUILDMASTER equal A305 允许收人 equal $GUILDNAME $STR(A301) #ACT MOV S$收人状态2 允许/SCOLOR=250设置/@收人2 #IF ISGUILDMASTER equal A306 允许收人 equal $GUILDNAME $STR(A302) #ACT MOV S$收人状态3 允许/SCOLOR=250设置/@收人3 #IF ISGUILDMASTER equal A304 拒绝收人 equal $GUILDNAME $STR(A300) #ACT MOV S$收人状态1 禁止/SCOLOR=249设置/@收人1 #IF ISGUILDMASTER equal A305 拒绝收人 equal $GUILDNAME $STR(A301) #ACT MOV S$收人状态2 禁止/SCOLOR=249设置/@收人2 #IF ISGUILDMASTER equal A306 拒绝收人 equal $GUILDNAME $STR(A302) #ACT MOV S$收人状态3 禁止/SCOLOR=249设置/@收人3 #IF #ACT goto @字符1 #IF #ACT #SAY \ 当前竞价行会:/SCOLOR=9{$STR(S$行会名字1)/SCOLOR=251} \ \ [竞价元宝]:/SCOLOR=94$STR(S$竞标价格1) \ [需要等级]:/SCOLOR=94$STR(S$等级要求1)\ [收人状态]:/SCOLOR=94 $STR(S$收人状态1)\ \ $STR(S$一号行会竞标) \ \{行会掌门可竟拍，每次需在当前竞价上加10元宝.每晚24点清空数据/SCOLOR=250}\ [@字符1] #IF ISGUILDMASTER equal $GUILDNAME $STR(A300) equal $GUILDNAME $STR(A301) #ACT SetStringBlank S$收人状态1 20 1 SetStringBlank S$收人状态2 20 1 SetStringBlank S$等级要求1 35 1 SetStringBlank S$等级要求2 36 1 BREAK #IF ISGUILDMASTER equal $GUILDNAME $STR(A300) #ACT SetStringBlank S$收人状态1 20 1 SetStringBlank S$收人状态2 20 1 SetStringBlank S$等级要求1 35 1 SetStringBlank S$等级要求2 17 1 BREAK #IF ISGUILDMASTER equal $GUILDNAME $STR(A301) #ACT SetStringBlank S$收人状态1 20 1 SetStringBlank S$收人状态2 20 1 SetStringBlank S$等级要求1 16 1 SetStringBlank S$等级要求2 36 1 BREAK #IF #ACT SetStringBlank S$收人状态1 20 1 SetStringBlank S$收人状态2 20 1 SetStringBlank S$等级要求1 16 1 SetStringBlank S$等级要求2 17 1 BREAK [@收人3] #if equal A306 允许收人 #act messagebox \\\您将关闭行会招募状态.确定关闭么？ @禁止3 @取消 #elseact messagebox \\\您将开启行会招募状态.确定开启么？ @允许3 @取消 [@允许3] #act MOV A306 允许收人 Messagebox 当前收人设置为允许收人 goto @main [@禁止3] #act MOV A306 拒绝收人 Messagebox 当前收人设置为拒绝收人 goto @main [@收人2] #if equal A305 允许收人 #act messagebox \\\您将关闭行会招募状态.确定关闭么？ @禁止2 @取消 #elseact messagebox \\\您将开启行会招募状态.确定开启么？ @允许2 @取消 [@允许2] #act MOV A305 允许收人 Messagebox 当前收人设置为允许收人 goto @main [@禁止2] #act MOV A305 拒绝收人 Messagebox 当前收人设置为拒绝收人 goto @main [@收人1] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #if equal A304 允许收人 #act messagebox \\\您将关闭行会招募状态.确定关闭么？ @禁止1 @取消 #elseact messagebox \\\您将开启行会招募状态.确定开启么？ @允许1 @取消 [@允许1] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #IF #act MOV A304 允许收人 Messagebox 当前收人设置为允许收人 goto @main [@禁止1] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #IF #act MOV A304 拒绝收人 Messagebox 当前收人设置为拒绝收人 goto @main [@InPutInteger85] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #if large N85 0 CheckStringlength $STR(N85)  4 CheckStringlength $STR(N85)  0 #ACT MOV $STR(G304) $STR(N85) Messagebox 当前收人设置为$STR(N85)级 GOTO @main BREAK #ELSEACT Messagebox 请输入正确的等级 [@InPutInteger86] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #if large N86 0 CheckStringlength $STR(N86)  4 CheckStringlength $STR(N86)  0 #ACT MOV $STR(G305) $STR(N86) Messagebox 当前收人设置为$STR(N86)级 GOTO @main BREAK #ELSEACT Messagebox 请输入正确的等级 [@InPutInteger87] #if equal $GUILDNAME $STR(A300) #ElseAct MESSAGEBOX [操作失败失败]你已经失去了该操作的权限.请重新竞价 break #if large N87 0 CheckStringlength $STR(N87)  4 CheckStringlength $STR(N87)  0 #ACT MOV $STR(G306) $STR(N87) Messagebox 当前收人设置为$STR(N87)级 GOTO @main BREAK #ELSEACT Messagebox 请输入正确的等级 ------------------------------------------------------------------------------------------------------------- [@竞标1] #IF CheckGameGold  9 #ACT #ELSEACT messagebox 你的元宝不足10个.无法使用此功 break #if equal $GUILDNAME $STR(A300) #act messagebox 您已获得了公告牌位置①使用权.无需再次竞标. break #IF CheckGameGold  $STR(G300) #ACT INC G300 10 GameGold - $STR(G300) mov A300 $GUILDNAME GuildNoticeMsg 249 251 行会招人：〖$STR(A300)〗行会的掌门「$USERNAME」出价$STR(G300)元宝，获得公告牌位置使用权! mov A304 允许收人 GOTO @main BREAK #ELSEACT MOV N$一号行会价格 $STR(G300) inc N$一号行会价格 10 Messagebox 抱歉，本次竞拍需要$STR(N$一号行会价格)元宝，您的元宝不足 [@加入1] #IF HAVEGUILD #ACT Messagebox 您当前已经加入行会.请退出后在加入. break #if equal $STR(A300) #act messagebox [提示]该位置暂无行会竞价！ break #if equal A304 拒绝收人 #act messagebox 当前【$STR(A300)】行会拒绝收人 break #if CHECKLEVELEX  $STR(G304) #act messagebox 【$STR(A300)】行会收人需要人物达到$STR(G304)级 break #if #act ADDGUILDMEMBER $STR(A300) GuildNoticeMsg 55 251 【行会招人公告】玩家〖$USERNAME〗通过公告牌加入了【$STR(A300)】行会！ break -------------------------------------------------------------------------------------------------------------- [@竞标2] #if equal $GUILDNAME $STR(A301) #act messagebox 您已获得了公告牌位置②使用权.无需再次竞标. break #IF CheckGameGold  $STR(G301) #ACT INC G301 1000 GameGold - $STR(G301) mov A301 $GUILDNAME GuildNoticeMsg 249 251 行会招人：〖$STR(A301)〗行会的掌门「$USERNAME」出价$STR(G301)元宝，获得公告牌位置②使用权! mov A305 允许收人 GOTO @main BREAK #ELSEACT MOV N$第二行会价格 $STR(G301) inc N$第二行会价格 1000 Messagebox 抱歉，本次竞拍需要$STR(N$第二行会价格)元宝，您的元宝不足 [@加入2] #IF HAVEGUILD #ACT Messagebox 您当前已经加入行会.请退出后在加入. break #if equal $STR(A301) #act messagebox [提示]该位置暂无行会竞价！ break #if equal A305 拒绝收人 #act messagebox 当前【$STR(A301)】行会拒绝收人 break #if CHECKLEVELEX  $STR(G305) #act messagebox 【$STR(A301)】行会收人需要人物达到$STR(G305)级 break #if #act ADDGUILDMEMBER $STR(A301) GuildNoticeMsg 55 251 【行会招人公告】玩家〖$USERNAME〗通过公告牌加入了【$STR(A301)】行会！ break ----------------------------------------------------------------------------------------- [@竞标3] #if equal $GUILDNAME $STR(A302) #act messagebox 您已获得了公告牌位置③使用权.无需再次竞标. break #IF CheckGameGold  $STR(G302) #ACT INC G302 1000 GameGold - $STR(G302) mov A302 $GUILDNAME GuildNoticeMsg 249 251 行会招人：〖$STR(A302)〗行会的掌门「$USERNAME」出价$STR(G302)元宝，获得公告牌位置③使用权! mov A306 允许收人 GOTO @main BREAK #ELSEACT MOV N$第三行会价格 $STR(G302) inc N$第三行会价格 1000 Messagebox 抱歉，本次竞拍需要$STR(N$第三行会价格)元宝，您的元宝不足 [@加入3] #IF HAVEGUILD #ACT Messagebox 您当前已经加入行会.请退出后在加入. break #if equal $STR(A302) #act messagebox [提示]该位置暂无行会竞价！ break #if equal A306 拒绝收人 #act messagebox 当前【$STR(A302)】行会拒绝收人 break #if CHECKLEVELEX  $STR(G306) #act messagebox 【$STR(A302)】行会收人需要人物达到$STR(G306)级 break #if #act ADDGUILDMEMBER $STR(A302) GuildNoticeMsg 55 251 【行会招人公告】玩家〖$USERNAME〗通过公告牌加入了【$STR(A302)】行会！ break

版权声明

1、本站所有内容均由互联网收集整理、网友上传，仅供大家参考、学习研究使用，不存在任何商业目的与商业用途。

2、论坛的所有内容都不保证其准确性，完整性，有效性，因本站内容因误导等因素而造成的损失本站不承担连带责任。

3、本站以《2013 中华人民共和国计算机软件保护条例》第二章 “软件著作权” 第十七条为原则：为了学习和研究软件内含的设计思想和原理，通过安装、显示、传输或者存储软件等方式使用软件的，可以不经软件著作权人许可，若有用户需要商用本站资源，请务必联系版权方购买正版授权！

楼主发贴辛苦了，谢谢楼主分享！

这东西我收了！谢谢楼主！

传奇论坛里面相对来说比较好的一个！感谢站长分享的技术教程。

比较全的传奇教程分享网站，站长辛苦了。

楼主发贴辛苦了，谢谢楼主分享！

楼主发贴辛苦了，谢谢楼主分享！

开传奇一条龙不求人，自己学习架设。

谢谢楼主！喜欢这里的东西，方便又好用！

这东西我收了！谢谢楼主！