[@火龙正本_进入正本]
#IF
#ACT
MOV P0 [$60_70级地图开放工夫_年]
MOV P1 [$60_70级地图开放工夫_月]
MOV P2 [$60_70级地图开放工夫_日]
DEC P2 1
MUL P0 1000000
MUL P1 10000
MUL P2 100
INC P0 <$STR(P1)>
INC P0 <$STR(P2)>

MOV P4 <$YEAR>
MOV P1 <$MONTH>
MOV P2 <$DAY>
MUL P4 1000000
MUL P1 10000
MUL P2 100
INC P4 <$STR(P1)>
INC P4 <$STR(P2)>

#IF
LARGE P4 <$STR(P0)>
#ACT
GOTO @火龙正本_进入正本_检测
#ELSEACT
MESSAGEBOX 在[$60_70级地图开放工夫_年]年[$60_70级地图开放工夫_月]月[$60_70级地图开放工夫_日]日之前不容许进入如今工夫：<$DATETIME>

[@火龙正本_进入正本_检测]
#IF
NOT CHECKLEVEL 45
#ACT
MESSAGEBOX 进入该正本至少需求等级达到45级以上(包括45级)！
BREAK

#IF
NOT CHECKGOLD [$火龙正本_进入需求金币]
#ACT
MESSAGEBOX 进入正本需求金币[$火龙正本_进入需求金币]，你的金币不够！
BREAK

#IF
CANMOVEECTYPE 火龙正本
#ACT
TAKE 金币 [$火龙正本_进入需求金币]
MOVEECTYPE 火龙正本 39 90
BREAK

#IF
NOT ISGROUPMASTER
#ACT
MESSAGEBOX 只要队长能力创建正本地图！
BREAK

#IF
CHECKGROUPJOBCOUNT 0 ? 1 ? 45
CHECKGROUPJOBCOUNT 1 ? 1 ? 45
CHECKGROUPJOBCOUNT 2 ? 1 ? 45
#ACT
CREATEECTYPE 火龙正本 120
#ELSEACT
MESSAGEBOX 创建火龙正本必需组队，且每种职业都必需有一员，等级必需达到65级或以上！

;正本创建胜利
[@CreateEctype_OK]
#if
#act
CLEARMACHINERYEVENT FBMAP
CLEARECTYPEMON FBMAP
TAKE 金币 [$火龙正本_进入需求金币]
MOVEECTYPE 火龙正本 39 90

;正本创建失败
[@CreateEctype_Fail]
#IF
#ACT
MESSAGEBOX 创建正本失败，副自己数已满，请稍候再试！
}