2024-05-07
[@main]
#if
#act
GetListString ..QuestDiary开区状态.txt 0 S$状态
#if
equal S$状态 老区
#act
GetListString ..........老1区给予.txt 0 N$给予1
GetListString ..........老2区给予.txt 0 N$给予2
GetListString ..........老3区给予.txt 0 N$给予3
GetListString ..........老4区给予.txt 0 N$给予4
#elseact
GetListString ..........新1区给予.txt 0 N$给予1
GetListString ..........新2区给予.txt 0 N$给予2
GetListString ..........新3区给予.txt 0 N$给予3
GetListString ..........新4区给予.txt 0 N$给予4
#if
#act
mov N$给予 0
inc N$给予 <$str(N$给予1)>
inc N$给予 <$str(N$给予2)>
inc N$给予 <$str(N$给予3)>
inc N$给予 <$str(N$给予4)>
;---------------------
MOV N$给予99 <$STR(N$给予)>
mul N$给予99 90
div N$给予99 100
;---------------------
mov N$胜利方 <$str(N$给予99)>
mul N$胜利方 53
div N$胜利方 100
mov N$失败方 <$str(N$给予99)>
mul N$失败方 37
div N$失败方 100
mov N$累计方 <$str(N$给予99)>
mul N$累计方 10
div N$累计方 100
#if
#Act
GetListString ..........累计沙给予.txt 0 N$累计给予_独立
OPENMERCHANTBIGDLG 15 867 1 0 280 150 1
#say
<> <杀神恶魔·沙城捐献/AUTOCOLOR=254,251,168,191,250,70,245,249,253> <PlayImg:10:304:1:200:131:-13:0/@exit>
<> <Hot~◆》/SCOLOR=215><杀神恶魔沙城奖池系统 [长期属性]每人限领一次！首次拿沙结束关闭激活页面/SCOLOR=253>
<> <Hot~◆》/SCOLOR=215><你当前Rmb点为/SCOLOR=70> <$GAMEPOINT> <元/SCOLOR=70> <只需要30R点点即可获得以下属性！/SCOLOR=254>
<> <Hot~◆》/SCOLOR=151><长期激活：/SCOLOR=253> <PlayImg:12:776:10:200:-30:-12:0>
<> <Hot~◆》/SCOLOR=151><刀刀切割1% 攻击速度+10% 双倍爆率+98% PK爆率+20% 体力增加+10%/SCOLOR=249>
<> <Hot~◆》/SCOLOR=215> <杀神恶魔今日一区/SCOLOR=254> <已累积沙城给予/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$给予1)> 元/FCOLOR=253}
<> <Hot~◆》/SCOLOR=215> <杀神恶魔今日二区/SCOLOR=254> <已累积沙城给予/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$给予2)> 元/FCOLOR=253}
<> <Hot~◆》/SCOLOR=215> <杀神恶魔今日三区/SCOLOR=254> <已累积沙城给予/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$给予3)> 元/FCOLOR=253}
<> <Hot~◆》/SCOLOR=215> <杀神恶魔今日四区/SCOLOR=254> <已累积沙城给予/SCOLOR=215> <[金额]:/SCOLOR=249> {<$str(N$给予4)> 元/FCOLOR=253}
<> <Hot~◆》/SCOLOR=151> <杀神恶魔统战奖金/SCOLOR=253> <今日累计统战给予/SCOLOR=70><[金额]:/SCOLOR=151> {<$str(N$累计方)> 元/FCOLOR=249}
<> <Hot~◆》攻沙胜利行会获得沙城奖池佣金/SCOLOR=254> <PlayImg:15:82:6:80:-42:-10:1>{<$str(N$胜利方)> 元/FCOLOR=70}
<> <Hot~◆》攻沙失败行会获得沙城奖池佣金/SCOLOR=254> <PlayImg:15:82:6:80:-42:-10:1>{<$str(N$失败方)> 元/FCOLOR=215}
<> <PlayImg:15:82:6:80:-42:-10:1><[捐献R点点获取属性]/@捐献> <PlayImg:15:82:6:80:-42:-10:1><[在线充米R点点]/@充米> <PlayImg:15:82:6:80:-42:-10:1><[领取R点点]/@领取>
<> <Hot~◆》当前统战给予总累计/SCOLOR=249> <$str(N$累计给予_独立)> <元/SCOLOR=249>{(总金额扣除10%作为平台开支/FCOLOR=243},{(10%累积统战发放)/FCOLOR=215}
<> <给予发放说明:/SCOLOR=215> <以上给予以两个行会为准/SCOLOR=151>,<超过两个行会失败方给予累计到新区发放/SCOLOR=254>
[@1111]
#act
set [339] 1
CONFERTITLE 沙城捐献
SendCenterMsg 0 254 恭喜:玩家【<$USERNAME>】捐献了【30R点点】,当前沙巴克累积胜利方给予:【<$str(N$胜利方)>】元,失败方给予:【<$str(N$失败方)>】元 1 5
SENDMSG 1 恭喜:玩家【<$USERNAME>】捐献了【30R点点】,当前沙巴克累积胜利方给予:【<$str(N$胜利方)>】元,失败方给予:【<$str(N$失败方)>】元
[@充米]
#IF
#ACT
OpenWebSite partition_list_ui?p=32f8ab9dfd3c7ac0503411c03b6e6e95
[@领取]
#if
CHECKLEVELEX > 0
#ACT
CLOSEMERCHANTBIGDLG
#CALL [充米Rmb点Rmb点Rmb点.txt] @领取Rmb点
[@提取]
#if
EQUAL G222 1
#act
messagebox 当前沙城奖池已经停止,新区拿沙结束关闭沙城奖池！
break
#if
checkGAMEPOINT < 11
#act
messagebox 你的沙城积分不足11点,无法提取！
BREAK
#if
checkGAMEPOINT < 11
#act
messagebox 你的沙城积分不足11点,无法提取！
BREAK
#if
checkGAMEPOINT > 10
#act
GAMEPOINT - 11
give 沙城积分*10 1
GuildNoticeMsg 250 0 【ぐ【沙城积分】：『提取沙城积分*10成功』获得沙城积分卷*10一张 SELF
[@捐献]
#if
EQUAL G222 1
#act
messagebox 当前沙城奖池已经停止,新区拿沙结束关闭沙城奖池！
break
#if
checkGAMEPOINT < 30
#act
messagebox 领取该属性需要充米大于30才能领取！
BREAK
#IF
CHECK [339] 1
#ACT
MESSAGEBOX 你已经领取过该属性,无法重复领取！
BREAK
#if
#act
CONFERTITLE 沙城捐献
GOTO @判断大区
GetListString ..........<$str(S$TEXTNAME)> 0 N$给予
inc N$给予 30
clearnamelist ..........<$str(S$TEXTNAME)>
addtextlist ..........<$str(S$TEXTNAME)> <$str(N$给予)>
GAMEPOINT - 30
SETICON 2 12 776 0 -50 10 0 200 0
set [339] 1
CONFERTITLE 沙城捐献
#CALL [刷新游戏速度.TXT] @刷新游戏速度
MESSAGEBOX 感谢您的支持,大部分玩家捐献均作为沙城给予反馈给玩家！
SendCenterMsg 0 254 恭喜:玩家【<$USERNAME>】捐献了【30R点点】,当前沙巴克累积胜利方给予:【<$str(N$胜利方)>】元,失败方给予:【<$str(N$失败方)>】元 1 5
SENDMSG 1 恭喜:玩家【<$USERNAME>】捐献了【30R点点】,当前沙巴克累积胜利方给予:【<$str(N$胜利方)>】元,失败方给予:【<$str(N$失败方)>】元
goto @main
[@判断大区]
#if
equal S$状态 老区
#act
mov S$TEXTNAME 老
#elseact
mov S$TEXTNAME 新
#if
CheckContainsText <$SERVERNAME> 1区
#act
INC S$TEXTNAME 1区给予.txt
#if
CheckContainsText <$SERVERNAME> 2区
#act
INC S$TEXTNAME 2区给予.txt
#if
CheckContainsText <$SERVERNAME> 3区
#act
INC S$TEXTNAME 3区给予.txt
#if
CheckContainsText <$SERVERNAME> 4区
#act
INC S$TEXTNAME 4区给予.txt
上一篇:
传奇gm升级武器脚本高可+7点攻击需要3000元宝
下一篇:
传奇装备进阶脚本，全属性+1成功率:98%，剑甲+50，首饰+30
