|
[@开通农场]
#IF
CHECKNAMELIST ..\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\开通农场名单.TXT
#ACT
SENDMSG 6 对不起,开通农场失败,请确认你是否已经开通过农场!
BREAK
#ELSEACT
MOV N11 <$GLOBAL(开通费用)>
DEC N11 1
#IF
CHECKGAMEGOLD > <$STR(N11)>
#ACT
GAMEGOLD - <$GLOBAL(开通费用)>
CreateFile QuestDiary\Mrrp系列脚本\传奇农场\偷盗数据\<$USERNAME>1号地.txt
CALCVAR HUMAN 种植等级 = 1
SAVEVAR HUMAN 种植等级 ..\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\玩家数据.txt
CALCVAR HUMAN 第一块地种植 = 空地
SAVEVAR HUMAN 第一块地种植 ..\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\玩家数据.txt
SENDMSG 6 恭喜您,农场开通成功!
#ELSEACT
SENDMSG 6 对不起,开通农场失败,请确认你是否拥有(<$GLOBAL(开通费用)>)元宝!
BREAK
#IF
RANDOM 3
#ACT
AddNAMELIST ..\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\开通农场名单.TXT
BREAK
#IF
RANDOM 2
#ACT
MOVR N11 1 51
AddTextListEx .\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\开通农场名单.TXT <$USERNAME> <$STR(N11)>
BREAK
#ELSEACT
AddTextListEx .\QuestDiary\Mrrp系列脚本\传奇农场\农场数据\开通农场名单.TXT <$USERNAME> 0
BREAK
|
上一篇:传奇私服脚本系列-沙城无变量领奖脚本下一篇:传奇制作 双击触发类物品
|