[Gm版本库]传奇抽奖宝箱系列脚本

GM版本库

()
%100
[@main]
×今日<祝福点/@祝福点>最高的角色：<$STR(A99)>    <祝福点/@祝福点>数：<$STR(G36)>\
<【初级抽奖】/@初级抽奖1> 您当前的祝福点：<$HUMAN(祝福点)>  您当前的元宝：<$GAMEGOLD>\
×初级抽奖：<[2000元宝]>开启一次，抽一次会增加一点祝福点\
<【高级抽奖】/@高级抽奖1> 您当前的祝福点：<$HUMAN(祝福点)>  您当前的元宝：<$GAMEGOLD>\
×高级抽奖：<[5000元宝]>开启一次，抽一次会增加两点祝福点\
×抽奖说明: 百分百中奖!每日祝福点超过2000点且全区排行第一\
的玩家可以获得祝福点大奖<(查看奖励和活动规则)/@查看奖励>\
×抽奖注意：<抽奖只是调剂,请勿沉迷>   点击<领取(祝福点大奖)/@领取奖励>\

[@领取奖励]
#IF
HOUR 20
CHECKVAR HUMAN 祝福点 > 1999
CHECKNAMELIST ..\QuestDiary\数据文件\会员名单\祝福点名单.txt
#ACT
goto @领取奖励1
#ELSESAY
每日祝福点活动结束时间为晚上20点。\ \
晚上21点将清空当日所有玩家的祝福点,获得祝福点\ \
全区排行第一的玩家,在活动结束之后到21点之前\ \
必须领取奖励,过期无效.\                                       
注:<祝福点必须达到2000点且位居祝福点排行第一的玩家才可领奖>\
[@领取奖励1]
恭喜你获得祝福点第一名.你可以在我这里领取狂龍首饰一样\ \
<领取杀戮勋章/@勋章>    <领取狂龍斗笠/@斗笠>    <领取狂龍神石/@神石>\
[@勋章]
#IF
#ACT
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[杀戮勋章]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[杀戮勋章]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[杀戮勋章]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[杀戮勋章]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[杀戮勋章]一个
give 杀戮勋章 1
DELNAMELIST ..\QuestDiary\数据文件\会员名单\祝福点名单.txt
close

[@斗笠]
#IF
#ACT
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍斗笠]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍斗笠]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍斗笠]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍斗笠]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍斗笠]一个
give 狂龍斗笠 1
DELNAMELIST ..\QuestDiary\数据文件\会员名单\祝福点名单.txt
close

[@神石]
#IF
#ACT
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍神石]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍神石]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍神石]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍神石]一个
SENDMSG 0 恭喜[%s]获得了今日的祝福点大奖[狂龍神石]一个
give 狂龍神石 1
DELNAMELIST ..\QuestDiary\数据文件\会员名单\祝福点名单.txt
close
[@查看奖励]
每开启宝箱一次,你的祝福点就会增加一点,每日祝福点最高的玩家\
可获得当天的<祝福点大奖>，祝福点活动开始时间是每日<晚上21点>到\
当日<次日20点>结束.当日21点后会清空当天所有玩家的祝福点.获得\
获得祝福点排行第一且祝福点达到2000的玩家.在祝福点活动结束后\
(当日20点-21点)领取奖励.过期无效。\
<祝福点>活动奖励：\
奖品设置：<杀戮勋章><本服顶级勋章：HP和MP提高20%.攻魔道提高1.2倍/SCOLOR=254>(麻痹抗性+20)\
奖品设置：<狂龍斗笠><本服顶级斗笠：HP和MP提高10%.攻魔道提高1.1倍/SCOLOR=254>(增加对手爆率)\
奖品设置：<狂龍神石><本服顶级装备：HP和MP提高10%.攻魔道提高1.1倍/SCOLOR=254>(防爆抗性+10)\     
         
[@初级抽奖1]
#IF
CHECKGAMEGOLD > 1999
#ACT
GAMEGOLD - 2000
#CALL [\\抽取数据\初级抽奖.txt] @初级抽奖
CALCVAR HUMAN 祝福点 + 1
SAVEVAR HUMAN 祝福点 ..\QuestDiary\数据文件\祝福点Save.txt
MOV M99 <$HUMAN(祝福点)>
GOTO @祝福排名
#ELSEACT
SENDMSG 6 参加抽奖需要元宝2000.请去找网站充值吧
[@高级抽奖1]
#IF
CHECKGAMEGOLD > 4999
#ACT
GAMEGOLD - 5000
#CALL [\\抽取数据\高级抽奖.txt] @高级抽奖
CALCVAR HUMAN 祝福点 + 2
SAVEVAR HUMAN 祝福点 ..\QuestDiary\数据文件\祝福点Save.txt
MOV M99 <$HUMAN(祝福点)>
GOTO @祝福排名
#ELSEACT
SENDMSG 6 参加抽奖需要元宝5000.请去找网站充值吧
[@祝福排名]
#IF
LARGE M99 <$STR(G36)>
#ACT
MOV G36 <$STR(M99)>
MOV A99 <$USERNAME>
GOTO @MAIN
BREAK
#ELSEACT
GOTO @MAIN
BREAK

彭军

鼠标一抖，一分到手。

铁岭私服

我去后山和黑山老妖研究吃唐僧的事，有事回来再说。

好的来了就是

好帖就是要顶

彭军

真心顶

铁岭私服

此人已死，有事烧纸

铁岭私服

用白色蜡笔画一场盛大婚礼

传奇版本论坛

楼主是超人

再战飘逸

真心顶

潇洒哥

说的非常好