帖子状态  
本帖子共有 16 位阅读者, 0 个回复.
  • 回复
1条记录

adppk

管理员
帖子
210 
金钱
1599 
魅力
1599 
威望
1909 
注册
2020-02-25 
adppk 发表于 2020-02-26 19:05   
传奇GOM引擎公益沙城捐献脚本,爆率增加人物倍攻增加物抗魔坑
传奇GOM引擎公益沙城捐献脚本,爆率增加人物倍攻增加物抗魔坑专属称号,捐献为公益捐献作为沙城奖励,只需要30游戏点即可获得属性,人物爆率增加:1000%,人物倍攻增加:40%,物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加。
[@main]
#IF
#act
OPENMERCHANTBIGDLG 36 94 1 4 -20 -80 1  580  45
GetListString ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日01区.txt 0 S$今日首区 S$捐献金额0
GetListString ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日02区.txt 0 S$今日二区 S$捐献金额1
GetListString ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日03区.txt 0 S$今日三区 S$捐献金额2
GetListString ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日04区.txt 0 S$今日四区 S$捐献金额3

MOV N$总金额 0
INC N$总金额 <$str(S$捐献金额0)>
INC N$总金额 <$str(S$捐献金额1)>
INC N$总金额 <$str(S$捐献金额2)>
INC N$总金额 <$str(S$捐献金额3)>
INC N$总金额 <$str(S$捐献金额4)>

SetStringBlank S$今日首区 15 1
SetStringBlank S$今日二区 15 1
SetStringBlank S$今日三区 15 1
SetStringBlank S$今日四区 15 1


SetStringBlank S$捐献金额0 5 1
SetStringBlank S$捐献金额1 5 1
SetStringBlank S$捐献金额2 5 1
SetStringBlank S$捐献金额3 5 1
SetStringBlank S$捐献金额4 5 1

#SAY
 \ \ \ \
<>     <Hot~/SCOLOR=150><人物爆率增加:1000%,人物倍攻增加:40%,物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加/SCOLOR=70>\  
<>     <Hot~/SCOLOR=150><人物爆率增加:1000%,人物倍攻增加:40%,物抗.魔坑+5%塔配某称号双减免捐献专属称号:无需佩戴属性叠加/SCOLOR=70>\  
<>     <New-⊙⊿/SCOLOR=215>    {<$STR(S$今日首区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额0)>/FCOLOR=254} <元/FCOLOR=58>\
<>     <New-⊙⊿/SCOLOR=215>    {<$STR(S$今日二区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额1)>/FCOLOR=254} <元/FCOLOR=58>\
<>     <New-⊙⊿/SCOLOR=215>    {<$STR(S$今日三区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额2)>/FCOLOR=254} <元/FCOLOR=58>\
<>     <New-⊙⊿/SCOLOR=215>    {<$STR(S$今日四区)>/FCOLOR=215}<已经累计沙城奖励  [金额]⊙⊿/SCOLOR=215> {<$STR(S$捐献金额3)>/FCOLOR=254} <元/FCOLOR=58>\

<>               刷新必爆BOSS<[进入公益捐献地图]/@进入>          <[捐献获得永久属性加成]/@开始捐献>\
                               <New-⊙⊿[当天]沙城池总累计奖金!/SCOLOR=58> {<$STR(N$总金额)>/SCOLOR=254} <元/SCOLOR=58>\
>\

[@进入]
#IF
CHECK [7] 1
#ACT
mapmove gycx 98 99
SENDMSG 0 251 241 {[公益捐献地图]:|151:0:1}◆尊贵公益捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝,此地图刷新必爆BOSS!!!
SENDMSG 0 251 241 {[公益捐献地图]:|151:0:1}◆尊贵公益捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝,此地图刷新必爆BOSS!!!
SENDMSG 0 251 241 {[公益捐献地图]:|151:0:1}◆尊贵公益捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝,此地图刷新必爆BOSS!!!
SENDMSG 0 251 241 {[公益捐献地图]:|151:0:1}◆尊贵公益捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝,此地图刷新必爆BOSS!!!
SENDMSG 0 251 241 {[公益捐献地图]:|151:0:1}◆尊贵公益捐献玩家◆{「<$USERNAME>」|254:0:1}进入{『公益捐献地图』|250:0:1}开始打宝,此地图刷新必爆BOSS!!!
break
#elseact
messagebox \ \对不起!!!公益捐献地图不是每个人都可以进的!!!必需捐献后才可以进入!\ \ \




[@开始捐献]

;#IF
;CHECKTEXTLIST ..\QuestDiary\数据文件\合区检测.txt 测试
;#ACT
;MESSAGEBOX 当前还是测试区无法捐献!
;break

;#IF
;CHECKTEXTLIST ..\QuestDiary\数据文件\合区检测.txt 总区
;#ACT
;MESSAGEBOX 当前区已经合区了,捐献通道已关闭,务必合区前开通!
;break





#IF
Check [7] 1
#ACT
MESSAGEBOX 您已经捐献过了,且永久增加属性!
break

#IF
not CHECKGAMEGLORY > 29
#ACT
MESSAGEBOX 当前游戏币不够!
break


#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 01区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [\封号系统\属性更改.txt] @属性更改
SendMsg 6 恭喜你!捐献成功,获得永久属性加成!!!
CLEARNAMELIST ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日01区.txt
AddTextListEx ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日01区.txt 今日首区:<$STR(G8)> 0
GOTO @main
break


#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 02区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [\封号系统\属性更改.txt] @属性更改
SendMsg 6 恭喜你!捐献成功,获得永久属性加成!!!
CLEARNAMELIST ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日02区.txt
AddTextListEx ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日02区.txt 今日二区:<$STR(G8)> 0
GOTO @main
break

#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 03区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [\封号系统\属性更改.txt] @属性更改
SendMsg 6 恭喜你!捐献成功,获得永久属性加成!!!
CLEARNAMELIST ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日03区.txt
AddTextListEx ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日03区.txt 今日三区:<$STR(G8)> 0
GOTO @main
break

#IF
Check [7] 0
CHECKGAMEGLORY > 29
CheckContainsText <$SERVERNAME> 04区
#ACT
GAMEGLORY - 30
INC G8 30
SET [7] 1
CONFERTITLE 沙城捐献
;#CALL [\封号系统\属性更改.txt] @属性更改
SendMsg 6 恭喜你!捐献成功,获得永久属性加成!!!
CLEARNAMELIST ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日04区.txt
AddTextListEx ..\..\..\..\156598018通区捐献\<$STR(A8)>\今日04区.txt 今日四区:<$STR(G8)> 0
GOTO @main
break
  • 回复
1条记录