新开传奇GOM领取沙城给予脚本，变量自动区分新老区

热度：

本脚本旨在为新区和老区的沙巴克城主提供自动领取攻城给予的功能。通过检查变量A77，脚本可以区分新区和老区，并相应地执行不同的给予操作。

脚本配置步骤：
打开脚本文件，首先检查变量A77是否为“老区”。
如果为老区，执行后续步骤；如果为新区，则跳转至新区给予的配置。
老区给予配置：
检查城主是否已经领取过给予，通过查询“沙给予名单.txt”文件来实现。

如果城主尚未领取，设置基础给予金额为10000000元宝。

如果城主已领取，显示错误消息并关闭对话框。

如果城主是合法的，且在规定的时间范围内（22:00-23:00），则发放基础给予，并记录领取行为到“沙给予名单.txt”文件。

新区给予配置：
新区的给予金额设置为20000000元宝。
检查城主的等级，根据等级提供额外的给予。
额外给予的金额根据城主等级进行判断，等级越高，额外给予越多。
发放基础给予和额外给予，并记录领取行为到“沙给予名单.txt”文件。
领取沙城给予：
城主点击领取按钮后，脚本会根据A77变量判断是新老区，并执行相应的给予操作。
领取成功后，显示恭喜消息并关闭对话框。

完整脚本：

()
%100
[@main]
#act
OPENMERCHANTBIGDLG 0 1799 1 4 0 0 0
#say
<IMG:253:63:420:-5/@exit>\
<> <━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=70>\　
<><◇◇漫漫传奇路◇幽幽不了情◇◇会当凌云沙巴克◇◇一览众山小◇◇/SCOLOR=146>\
<> <━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━/SCOLOR=70>\
<> <经过这场战争的洗礼，已经证明了你们是醉伟大的勇士。祝贺你们！/SCOLOR=250>\
<> <沙城专属的给予：新区：/SCOLOR=255><20000000元宝/SCOLOR=253> 老区：<10000000元宝/SCOLOR=253>\
<> <请城主合理发放给予，新区攻城后/SCOLOR=255><22.00--22.05>前往领取！\
<> <奖品只能领取一次/SCOLOR=250><注意：超过时间没领取的话就无法领取给予/SCOLOR=250>！\ \
<> 【<领取沙城给予/@领取>】
[@领取]
#if
EQUAL A77 老区
#act
goto @老区给予
break
#elseact
goto @新区给予

[@新区给予]
#if
ISCASTLEMASTER
#act
goto @沙老大1
#elseact
messagebox 小子，敢冒充城主领领？
break

[@沙老大1]
#if
CHECKGUILDLIST ..\QuestDiary\Market\沙给予名单.txt
#act
messagebox 城主给予只能领取一次！
break
close
#if
ISCASTLEMASTER
HOUR 22 22
MIN 00 59
#act
MOV N$额外给予 0
MOV N$基础给予 20000000
#elseact
messagebox 城主给予领取时间在22.00-23.00之间！
CLOSE
BREAK

#IF
LARGE G8 9
#ACT
MOV N$额外给予 188

#IF
LARGE G8 19
#ACT
MOV N$额外给予 288

#IF
LARGE G8 29
#ACT
MOV N$额外给予 388

#IF
LARGE G8 39
#ACT
MOV N$额外给予 588

#IF
LARGE G8 49
#ACT
MOV N$额外给予 888

#IF
LARGE G8 99
#ACT
MOV N$额外给予 1888

#IF
LARGE G8 199
#ACT
MOV N$额外给予 3888

#IF
LARGE G8 299
#ACT
MOV N$额外给予 8888

#IF
CHECKLEVELEX > 0
#ACT
MOV A77 老区
GAMEGOLD + <$STR(N$基础给予)>
GAMEPOINT + <$STR(N$额外给予)>
ADDGUILDLIST ..\QuestDiary\Market\沙给予名单.txt
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了新区的攻城给予[<$STR(N$基础给予)>元宝]、人数达到[<$STR(G8)>人]额外给予R点[<$STR(N$额外给予)>]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了新区的攻城给予[<$STR(N$基础给予)>元宝]、人数达到[<$STR(G8)>人]额外给予R点[<$STR(N$额外给予)>]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了新区的攻城给予[<$STR(N$基础给予)>元宝]、人数达到[<$STR(G8)>人]额外给予R点[<$STR(N$额外给予)>]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了新区的攻城给予[<$STR(N$基础给予)>元宝]、人数达到[<$STR(G8)>人]额外给予R点[<$STR(N$额外给予)>]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了新区的攻城给予[<$STR(N$基础给予)>元宝]、人数达到[<$STR(G8)>人]额外给予R点[<$STR(N$额外给予)>]
messagebox 恭喜你成功领取<$STR(N$基础给予)>元宝、R点<$STR(N$额外给予)>
break
close

[@老区给予]
#if
ISCASTLEMASTER
#act
goto @沙老大2
#elseact
messagebox 小子，敢冒充城主领领？
break

[@沙老大2]
#if
CHECKGUILDLIST ..\QuestDiary\Market\沙给予名单.txt
#act
messagebox 城主给予只能领取一次！
break
close
#if
ISCASTLEMASTER
HOUR 22 22
MIN 00 59
#act
MOV N$基础给予 10000000
#elseact
messagebox 城主给予领取时间在22.00-23.00之间！
CLOSE
BREAK

#IF
CHECKLEVELEX > 0
#ACT
GAMEGOLD + <$STR(N$基础给予)>
ADDGUILDLIST ..\QuestDiary\Market\沙给予名单.txt
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了老区的攻城给予[<$STR(N$基础给予)>元宝]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了老区的攻城给予[<$STR(N$基础给予)>元宝]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了老区的攻城给予[<$STR(N$基础给予)>元宝]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了老区的攻城给予[<$STR(N$基础给予)>元宝]
SENDMSG 0 (*)恭喜伟大的沙巴克城主[<$USERNAME>]领取了老区的攻城给予[<$STR(N$基础给予)>元宝]
messagebox 恭喜你成功领取<$STR(N$基础给予)>元宝!
break
close

[顶部]

上一篇：解决GOM传奇引擎微端连接问题及微端配置教程
下一篇：传奇新脚本：一键提升4级职业技能（需50点游戏币）