跳到主要内容

礼物脚本

VAR Integer HUMAN Gift
VAR String HUMAN Gfdt
LOADVAR HUMAN Gift ..\QuestDiary\数据文件\礼物变量.txt
LOADVAR HUMAN Gfdt ..\QuestDiary\数据文件\礼物变量.txt
[@礼物初始]
{
#IF
CHECKVAR HUMAN Gfdt = $DATE
#ACT
BREAK

#IF
CHECKVAR HUMAN Gift > 9
#ACT
BREAK

#IF
CHECKVAR HUMAN Gift = 0
#SAY
欢迎您来到中州大陆!\\
5分钟后,您将收到第1份礼物:<Color=green 天山雪莲、深海灵礁>各1个。

\
来自中州国王的馈赠,会使您的新手之旅更加顺利。\
请您不要离开游戏。\\
<color=green (领取前,请保持包裹里至少有2个空位)>\\
<好的,谢谢/@exit>
#ACT
DelayGift 300 @newcomgift1 您将获得第1份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 1
#ACT
DelayGift 900 @newcomgift2 您将获得第2份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 2
#ACT
DelayGift 1800 @newcomgift3 您将获得第3份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 3
#ACT
DelayGift 2400 @newcomgift4 您将获得第4份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 4
#ACT
DelayGift 2700 @newcomgift4 您将获得第5份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 5
#ACT
DelayGift 3000 @newcomgift4 您将获得第6份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 6
#ACT
DelayGift 3300 @newcomgift4 您将获得第7份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 7
#ACT
DelayGift 3600 @newcomgift4 您将获得第8份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 8
#ACT
DelayGift 4200 @newcomgift4 您将获得第9份礼物,请等待%s
BREAK

#IF
CHECKVAR HUMAN Gift = 9
#ACT
DelayGift 4800 @newcomgift4 您将获得第10份礼物,请等待%s
BREAK


[@newcomgift1]
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
<color=green 由于您的包裹空间不足,未能领取到本次奖励>\
<color=green 请保持包裹里至少有2个空位,小退后重试>\\
<好的,谢谢/@exit>
#ELSEACT
BREAK

#IF
RANDOM 1
#SAY
恭喜您获得了:<Color=green 天山雪莲、深海灵礁>各1个。得知您的修炼\
进展十分顺利,举国上下,万分欣喜。\
15分钟后,您将收到第2份礼物:<Color=green 回城神石、治疗神水>各1个

。\
国王期望着您的成长,请继续努力。\请您不要离开游戏。\\
<color=green (领取前,请保持包裹里至少有2个空位)>\\
<好的,谢谢/@exit>
#ACT
GIVE 天山雪莲 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 深海灵礁 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
CALCVAR HUMAN Gift = 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
DelayGift 900 @newcomgift2 您将获得第2份礼物,请等待%s
BREAK

[@newcomgift2]
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
<color=green 由于您的包裹空间不足,未能领取到本次奖励>\
<color=green 请保持包裹里至少有2个空位,小退后重试>\\
<好的,谢谢/@exit>
#ELSEACT
BREAK

#IF
RANDOM 1
#SAY
恭喜您获得了:<Color=green 回城神石、治疗神水>各1个。\
漫漫的群英之路,您又前进了一步。\
30分钟后,您将收到第3份礼物:<Color=green 天山雪莲、月光宝盒(小)>各

1个。\
友情提示:结交好友,会让您的成长之路更多乐趣。\
请您不要离开游戏。\\
<color=green (领取前,请保持包裹里至少有2个空位)>\\
<好的,谢谢/@exit>
#ACT
GIVE 回城神石 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 治疗神水 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
CALCVAR HUMAN Gift = 2
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
DelayGift 1800 @newcomgift3 您将获得第3份礼物,请等待%s
BREAK

[@newcomgift3]
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
<color=green 由于您的包裹空间不足,未能领取到本次奖励>\
<color=green 请保持包裹里至少有2个空位,小退后重试>\\
<好的,谢谢/@exit>
#ELSEACT
BREAK

#IF
RANDOM 1
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
GIVE 天山雪莲 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
GIVE 月光宝盒(小) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
MOV S98 天山雪莲、月光宝盒(小)
DELAYGOTO 1 @newcomgiftinfo
BREAK


[@newcomgift4]
#IF
CHECKBAGSIZE 2
#ACT
#ELSESAY
<color=green 由于您的包裹空间不足,未能领取到本次奖励>\
<color=green 请保持包裹里至少有2个空位,小退后重试>\\
<好的,谢谢/@exit>
#ELSEACT
BREAK

#IF
RANDOM 5
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
MOV S98 双倍经验包天卡
GIVE $STR(S98) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
DELAYGOTO 1 @newcomgiftinfo
BREAK


#IF
RANDOM 4
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
MOV S98 超级深海灵礁
GIVE $STR(S98) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
DELAYGOTO 1 @newcomgiftinfo
BREAK

#IF
RANDOM 3
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
MOV S98 超级天山雪莲
GIVE $STR(S98) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
DELAYGOTO 1 @newcomgiftinfo
BREAK

#IF
RANDOM 2
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
MOV S98 月光宝盒(小)
GIVE $STR(S98) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
DELAYGOTO 1 @newcomgiftinfo
BREAK

#IF
RANDOM 1
#ACT
CALCVAR HUMAN Gift + 1
SAVEVAR HUMAN Gift ..\QUESTDIARY\数据文件\礼物变量.txt
CALCVAR HUMAN Gfdt = $DATE
SAVEVAR HUMAN Gfdt ..\QUESTDIARY\数据文件\礼物变量.txt
MOV S98 回城神石
GIVE $STR(S98) 1
UPGRADEUSERITEM $PARAM(10) 59 = 1
DELAYGOTO 1 @newcomgiftinfo
BREAK

[@newcomgiftinfo]
#IF
RANDOM 1
#SAY
恭喜您获得了:{Color=green <$STR(S98)>}各1个。\
为了帮助勇士们加快历练的脚步,如果您在<color=green 明天>再次上\
线的话,还可以从我获得以下奖励中的<color=green 随机1个>:\\
<color=green 超级天山雪莲>(10分钟内持续回血的灵药);\
<color=green 超级深海灵礁>(10分钟内持续回蓝的灵药);\
<color=green 回城神石>(双击可快速回到城内)\
<下一页/@xiayiye>
#ACT
BREAK

[@xiayiye]
<color=green 月光宝盒(小)>(将你获得的经验额外储存一份);\
<color=green 双倍经验白天卡>(使用后,接下来一天时间段,\你都将处于

双倍时间内)\\
为变强而战斗、为国王而战斗、为人类而战斗。\
<谢谢/@exit>
}