antyvfl 发表于 2022-10-9 00:47:49

传奇世界迎节假日充值有好礼脚本

[@main]

<color=FFCA00 以上奖励达标联系><color=green 客服QQ 2509265061>领取<领取奖励/@领取奖励>\
<color=FFCA00 单次或累计><color=red 充值100RMB><color=B2FF00 本体2星主宰+元神2星主宰>\
<color=FFCA00 单次或累计><color=red 充值200RMB><color=B2FF00 本体3星主宰+元神3星主宰+巅峰护符>\
<color=FFCA00 单次或累计><color=red 充值400RMB><color=B2FF00 本体4星主宰+元神4星主宰+巅峰魂珠>\
<color=FFCA00 单次或累计><color=red 充值600RMB><color=B2FF00 本体5星主宰+元神5星主宰+黄金武器>\
<color=FFCA00 单次或累计><color=red 充值800RMB><color=B2FF00 本体6星主宰+元神6星主宰+天之流金套>\
<color=FFCA00 单次或累计><color=red 充值1000RMB><color=B2FF00 黄金武器、坚韧宝石套、巅峰护符>\
<color=FFCA00 单次或累计><color=red 充值1500RMB><color=B2FF00 鸿天仙翼、珠、佩、冠、靴>\
<color=FFCA00 单次或累计><color=red 充值3000RMB><color=B2FF00 本体7星主宰+元神7星主宰+直升上99重(含元神)>\


[@领取奖励]
<color=FFCA00 请依次领取，否则主宰星星会错误><color=green 客服QQ 2509265061>\
<领取充值100RMB/@100RMB><color=FF2C00 本体2星主宰+元神2星主宰+1000万元宝>\
<领取充值200RMB/@200RMB><color=FF2C00 本体3星主宰+元神3星主宰+巅峰护符+2000万元宝>\
<领取充值400RMB/@400RMB><color=FF2C00 本体4星主宰+元神4星主宰+巅峰魂珠+2000万元宝>\
<领取充值600RMB/@600RMB><color=FF2C00 本体5星主宰+元神5星主宰+黄金武器+2000万元宝>\
<领取充值800RMB/@800RMB><color=FF2C00 本体6星主宰+元神6星主宰+天之流金套+2000万元宝>\
<领取充值1000RMB/@1000RMB><color=FF2C00 黄金武器、坚韧宝石套、巅峰护符+2000万元宝>\
<领取充值1500RMB/@1500RMB><color=FF2C00 鸿天仙翼、珠、佩、冠、靴+5000万元宝>\
<领取充值3000RMB/@3000RMB><color=FF2C00 本体7星主宰+元神7星主宰+直升上99重(含元神)+1.5亿元宝>\


[@3000RMB]
#IF
!CHECKBAGSIZE 12
#ACT
MESSAGEBOX 背包必须保留12个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值3000RMB.txt
#act
GAMEGOLD + 150000000
goto @送主宰星星7
AmbitKind = 7
AmbitLevel = 99
ChangeLevel = 71
$PNEUMANAME.AmbitKind = 7
$PNEUMANAME.AmbitLevel = 99
$PNEUMANAME.ChangeLevel = 71
delnamelist ..\QUESTDIARY\数据文件\9999\充值3000RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK


[@送主宰星星7]
#if
;checkVAR HUMAN 本体主宰星 > 7
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 7
;CALCVAR HUMAN 本体主宰星 = 7
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 7
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 7
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break

[@1500RMB]
#IF
!CHECKBAGSIZE 12
#ACT
MESSAGEBOX 背包必须保留12个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值1500RMB.txt
#act
GAMEGOLD + 50000000
GOTO @仙官装备给以
delnamelist ..\QUESTDIARY\数据文件\9999\充值1500RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK


[@仙官装备给以]
#IF
checkjob warrior
#ACT
GIVE 鸿天仙翼 1
UPGRADEUSERITEM $PARAM(10) 150 = 34000
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙珠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙佩 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙冠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙靴 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
break
#IF
checkjob wizard
#ACT
GIVE 鸿天仙翼 1
UPGRADEUSERITEM $PARAM(10) 151 = 12000
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙珠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙佩 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙冠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙靴 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
break
#IF
checkjob taoist
#ACT
GIVE 鸿天仙翼 1
UPGRADEUSERITEM $PARAM(10) 152 = 185000
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙珠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙佩 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙冠 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 鸿天仙靴 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
break


[@1000RMB]
#IF
!CHECKBAGSIZE 5
#ACT
MESSAGEBOX 背包必须保留5个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值1000RMB.txt
#act
GAMEGOLD + 20000000
GIVE 黄金武器 1
GIVE 巅峰传世护符 1
GIVE 坚韧宝石1 1
GIVE 元神坚韧宝石1 1
delnamelist ..\QUESTDIARY\数据文件\9999\充值1000RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@800RMB]
#IF
!CHECKBAGSIZE 12
#ACT
MESSAGEBOX 背包必须保留12个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值800RMB.txt
#act
GAMEGOLD + 20000000
GOTO @送主宰星星6
GOTO @天之职业检测
delnamelist ..\QUESTDIARY\数据文件\9999\充值800RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@送主宰星星6]
#if
;checkVAR HUMAN 本体主宰星 > 6
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 6
;CALCVAR HUMAN 本体主宰星 = 6
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 6
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 6
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break

[@天之职业检测]
#IF
checkjob warrior
#ACT
give 天之流金圣阳冠 1
give 天之流金圣阳链 1
give 天之流金圣阳镯 2
give 天之流金圣阳戒 2
give 天之流金圣阳靴 1
give 天之流金圣阳带 1
break
#IF
checkjob wizard
#ACT
give 天之流金魔月冠 1
give 天之流金魔月链 1
give 天之流金魔月镯 2
give 天之流金魔月戒 2
give 天之流金魔月靴 1
give 天之流金魔月带 1
break
#IF
checkjob taoist
#ACT
give 天之流金天星冠 1
give 天之流金天星链 1
give 天之流金天星镯 2
give 天之流金天星戒 2
give 天之流金天星靴 1
give 天之流金天星带 1
break

[@600RMB]
#IF
!CHECKBAGSIZE 2
#ACT
MESSAGEBOX 背包必须保留2个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值600RMB.txt
#act
GAMEGOLD + 20000000
GOTO @送主宰星星5
GIVE 黄金武器 1
delnamelist ..\QUESTDIARY\数据文件\9999\充值600RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@送主宰星星5]
#if
;checkVAR HUMAN 本体主宰星 > 5
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 5
;CALCVAR HUMAN 本体主宰星 = 5
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 5
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 5
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break


[@400RMB]
#IF
!CHECKBAGSIZE 2
#ACT
MESSAGEBOX 背包必须保留2个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值400RMB.txt
#act
GAMEGOLD + 20000000
GOTO @送主宰星星4
give 巅峰灵魂珠 1
delnamelist ..\QUESTDIARY\数据文件\9999\充值400RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@送主宰星星4]
#if
;checkVAR HUMAN 本体主宰星 > 4
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 4
;CALCVAR HUMAN 本体主宰星 = 4
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 4
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 4
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break







[@200RMB]
#IF
!CHECKBAGSIZE 2
#ACT
MESSAGEBOX 背包必须保留2个空位！
BREAK
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值200RMB.txt
#act
GAMEGOLD + 20000000
GOTO @送主宰星星3
give 巅峰传世护符 1
delnamelist ..\QUESTDIARY\数据文件\9999\充值200RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@送主宰星星3]
#if
;checkVAR HUMAN 本体主宰星 > 3
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 3
;CALCVAR HUMAN 本体主宰星 = 3
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 3
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 3
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break

[@100RMB]
#IF
HASPNEUMA
#ELSEACT
MESSAGEBOX 领取必须放出你的元神。
break
#IF
!PNEUMARELEASED
#ACT
MESSAGEBOX 领取必须放出你的元神。
BREAK
#if
checknamelist ..\QUESTDIARY\数据文件\9999\充值100RMB.txt
#act
GAMEGOLD + 10000000
GOTO @送主宰星星3
delnamelist ..\QUESTDIARY\数据文件\9999\充值100RMB.txt
MESSAGEBOX 请小退查看主宰者加属性。元神主宰需融合后加属性！奖励物品发送到你的包裹！
#ELSEACT
MESSAGEBOX 对不起，或许您充值达标，但没联系客服添加，故领取失败！谢谢支持！
BREAK

[@送主宰星星3]
#if
;checkVAR HUMAN 本体主宰星 > 2
#act
#elseact
CHANGENAMECOLOR 253
changemode 19 2
;CALCVAR HUMAN 本体主宰星 = 2
;SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
$PNEUMANAME.CHANGENAMECOLOR 253
$PNEUMANAME.changemode 19 2
;$PNEUMANAME.CALCVAR HUMAN 本体主宰星 = 2
;$PNEUMANAME.SAVEVAR HUMAN 本体主宰星 ..\QUESTDIARY\数据文件\本体主宰星.txt
break

alimoon 发表于 2022-10-9 05:00:40

无回帖，不论坛，这才是人道。

egn 发表于 2022-10-9 19:06:20

激动人心，无法言表！

gmgmlj 发表于 2022-10-10 15:59:47

无回帖，不论坛，这才是人道。

毒蛇花花 发表于 2022-10-12 09:06:38

感恩无私的分享与奉献 :)

jz641268 发表于 2022-10-14 14:18:29

太生气了，无法HOLD啦 >_<......

猫小灰 发表于 2022-10-16 12:35:21

感恩无私的分享与奉献 :)

brader 发表于 2022-10-17 00:15:37

真是被感动的痛哭流涕……

boolay 发表于 2022-10-18 23:03:27

楼主加油，我们都看好你哦。

1449231467 发表于 2022-10-25 04:56:17

真是难得给力的帖子啊。
页: [1] 2
查看完整版本: 传奇世界迎节假日充值有好礼脚本