;;QQ:67762207
[@哀号矿井]
{

#IF
checklevel 72
#ELSESAY
进入[哀号矿井]需要等级72级以上。
#ELSEACT
break

#IF
checkgroupcount
#ACT
mov D0 %P9

#IF
ELARGE D0 3
#ELSESAY
进入[哀号矿井]需要3个人以上的队伍。
#ELSEACT
break

#IF
checkcmd isgroupowner
#ACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [哀号矿井] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [哀号矿井] [%A0]
#ELSEACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [哀号矿井] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [哀号矿井] [%A0]

#IF
!EQUAL A0 ""
EQUAL A3 %A1
checkcmd isgroupowner
#ACT
MOV A1 "13"
MOV A2 "144"
MapMove %A0 %A1 %A2
goto @checkadd
break

#IF
!EQUAL A3 %A1
checkcmd isgroupowner
#SAY
系统检测副本状态中,请稍等…… 

#ACT
mov D5 1  ;;地图编号
mov D6 0  ;;副本编号
mov D4 0
goto @startrepetition
break



#IF
!EQUAL A0 ""
EQUAL A3 %A1
#ACT
MOV A1 "13"
MOV A2 "144"
MapMove %A0 %A1 %A2
goto @checkadd
#ELSEACT
break
#ELSESAY
进入[哀号矿井]必须组队的队长来开启副本。


[@startrepetition]
#ACT
mov A6 "哀号矿井"
addstr A6 %D6
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [%D5]
#IF
Isadmin
#ACT
sysmsg "D5=<$OUTPUT(D5)>,D6=<$OUTPUT(D6)>,A5=<$OUTPUT(A5)>,"

#IF
ELarge D6 10
#ACT
break
#SAY
副本[哀号矿井]全部满员，请稍后再尝试进入。\\
<关闭/@exit>




#IF
ESMALL D5 5 
#ELSEACT
goto @fubenenterok
break


#IF
checkhum %A5
EQUAL P9 0
#ACT
inc D5 1
goto @startrepetition
break
#ELSEACT
inc D6 1
mov D5 1
goto @startrepetition    ;;某套服本 有一个地图有人 那么 副本编号+1 地图编号置0  跳回循环进行验证
break





[@fubenenterok]
#IF
#ACT
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
savevalue "PlayerParam\副本记录.ini" [哀号矿井] [%USERNAME] %A5
savevalue "PlayerParam\副本记录.ini" [哀号矿井] [%A5] %USERNAME
MOV A7 %A5
MOV A1 "13"
MOV A2 "144"


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [5]
monclear %A5
mov A8 %A5
ADDSTR A8 ",17,15,20"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",104,91,5"
MongenP "%A4" 哀号尸王 1
MongenP "%A4" 闪电僵尸 3
MongenP "%A4" 食肉僵尸 3
MongenP "%A4" 千年古尸 3
MongenP "%A4" 地下尸魔 3
MongenP "%A4" 爆击尸王 3

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",100,100,100"
MongenP "%A4" 闪电僵尸 50
MongenP "%A4" 食肉僵尸 50
MongenP "%A4" 千年古尸 50
MongenP "%A4" 地下尸魔 50
MongenP "%A4" 爆击尸王 50

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [2]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",64,43,30"
MongenP "%A4" 闪电僵尸 20
MongenP "%A4" 食肉僵尸 20
MongenP "%A4" 千年古尸 20
MongenP "%A4" 地下尸魔 20
MongenP "%A4" 爆击尸王 20

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [3]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",50,50,50"
MongenP "%A4" 闪电僵尸 20
MongenP "%A4" 食肉僵尸 20
MongenP "%A4" 千年古尸 20
MongenP "%A4" 地下尸魔 20
MongenP "%A4" 爆击尸王 20

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [4]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",100,100,100"
MongenP "%A4" 闪电僵尸 20
MongenP "%A4" 食肉僵尸 20
MongenP "%A4" 千年古尸 20
MongenP "%A4" 地下尸魔 20
MongenP "%A4" 爆击尸王 20


MapMove %A7 %A1 %A2
goto @checkadd



[@checkadd]
#CALL [vimascript\map_repetition.txt] @mapMain
}

[@沃玛雷霆]
{

#IF
checklevel 78
#ELSESAY
进入[沃玛雷霆]需要等级78级以上。
#ELSEACT
break

#IF
checkgroupcount
#ACT
mov D0 %P9

#IF
ELARGE D0 3
#ELSESAY
进入[沃玛雷霆]需要3个人以上的队伍。
#ELSEACT
break

#IF
checkcmd isgroupowner
#ACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [沃玛雷霆] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [沃玛雷霆] [%A0]
#ELSEACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [沃玛雷霆] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [沃玛雷霆] [%A0]

#IF
!EQUAL A0 ""
EQUAL A3 %A1
checkcmd isgroupowner
#ACT
MOV A1 "340"    ;;入口点x
MOV A2 "356"    ;;入口点y
MapMove %A0 %A1 %A2
goto @78checkadd
break

#IF
!EQUAL A3 %A1
checkcmd isgroupowner
#ACT
mov D5 1  ;;地图编号
mov D6 0  ;;副本编号
mov D4 0
goto @78startrepetition
break



#IF
!EQUAL A0 ""
EQUAL A3 %A1
#ACT
MOV A1 "340"    ;;入口点x
MOV A2 "356"    ;;入口点y
MapMove %A0 %A1 %A2
goto @78checkadd
#ELSEACT
break
#ELSESAY
进入[沃玛雷霆]必须组队的队长来开启副本。


[@78startrepetition]
#ACT
mov A6 "沃玛雷霆"
addstr A6 %D6
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [%D5]


#IF
ESMALL D6 9
#ELSEACT
break
#ELSESAY
副本[沃玛雷霆]全部满员，请稍后再尝试进入。\\
<关闭/@exit>


#IF
ESMALL D5 3  ;;单个副本总层数 
#ELSEACT
goto @78fubenenterok
break


#IF
checkhum %A5
EQUAL P9 0
#ACT
inc D5 1
goto @78startrepetition
break
#ELSEACT
inc D6 1
mov D5 1
goto @78startrepetition    ;;某套服本 有一个地图有人 那么 副本编号+1 地图编号置0  跳回循环进行验证
break


[@78fubenenterok]
#IF
#ACT
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
savevalue "PlayerParam\副本记录.ini" [沃玛雷霆] [%USERNAME] %A5
savevalue "PlayerParam\副本记录.ini" [沃玛雷霆] [%A5] %USERNAME
MOV A7 %A5
MOV A1 "340"    ;;入口点x
MOV A2 "356"    ;;入口点y

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"  ;;清理物品范围
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",250,200,250"   ;;刷怪范围
MongenP "%A4" 怒焰祭祀 80
MongenP "%A4" 暗黑祭祀 80
MongenP "%A4" 暗黑萨满 80
MongenP "%A4" 暗黑祭祀1 80
MongenP "%A4" 暗黑萨满1 80
ADDSTR A4 ",248,202,20"   ;;刷怪范围
MongenP "%A4" 怒焰祭祀 5
MongenP "%A4" 暗黑祭祀 5
MongenP "%A4" 暗黑萨满 5
MongenP "%A4" 暗黑祭祀1 5
MongenP "%A4" 暗黑萨满1 5s


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [2]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",200,200,200"
MongenP "%A4" 怒焰祭祀 80
MongenP "%A4" 暗黑祭祀 80
MongenP "%A4" 暗黑萨满 80
MongenP "%A4" 暗黑祭祀1 80
MongenP "%A4" 暗黑萨满1 80

MOV A4 %A5
ADDSTR A4 ",332,35,10"
MongenP "%A4" 雷霆守护者 1
MongenP "%A4" 怒焰祭祀 3
MongenP "%A4" 暗黑祭祀 3
MongenP "%A4" 暗黑萨满 3
MongenP "%A4" 暗黑祭祀1 3
MongenP "%A4" 暗黑萨满1 3

MOV A4 %A5
ADDSTR A4 ",48,359,20"
MongenP "%A4" 怒焰祭祀 3
MongenP "%A4" 暗黑祭祀 3
MongenP "%A4" 暗黑萨满 3
MongenP "%A4" 暗黑祭祀1 3
MongenP "%A4" 暗黑萨满1 3



loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [3]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",50,50,50"
MongenP "%A4" 怒焰祭祀 15
MongenP "%A4" 暗黑祭祀 15
MongenP "%A4" 暗黑萨满 15
MongenP "%A4" 暗黑祭祀1 15
MongenP "%A4" 暗黑萨满1 15
MOV A4 %A5
ADDSTR A4 ",83,82,1"
MongenP "%A4" 雷霆教主 1

MapMove %A7 %A1 %A2


goto @78checkadd

[@78checkadd]
#CALL [vimascript\map_repetition.txt] @mapMain

}

[@触龙天灾]
{







}

[@霸王怒咆]
{







}

[@绝情圣战]
{







}

[@奇迹之门]
{

#IF
checklevel 100
#ELSESAY
进入[奇迹之门]需要等级100级以上。
#ELSEACT
break

#IF
checkgroupcount
#ACT
mov D0 %P9

#IF
ELARGE D0 2
#ELSESAY
进入[奇迹之门]需要5个人以上的队伍。
#ELSEACT
break

#IF
checkcmd isgroupowner
#ACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [奇迹之门] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [奇迹之门] [%A0]
#ELSEACT
mov A1 %A9
loadvalue A0 "PlayerParam\副本记录.ini" [奇迹之门] [%A1]
loadvalue A3 "PlayerParam\副本记录.ini" [奇迹之门] [%A0]

#IF
!EQUAL A0 ""
EQUAL A3 %A1
checkcmd isgroupowner
#ACT
MOV A1 "51"    ;;入口点x
MOV A2 "282"   ;;入口点y
MapMove %A0 %A1 %A2
goto @checkadd
break

#IF
!EQUAL A3 %A1
checkcmd isgroupowner
#ACT
mov D5 1  ;;地图编号
mov D6 0  ;;副本编号
mov D4 0
goto @100startrepetition
break
#SAY
系统检测副本状态中,请稍等…… 



#IF
!EQUAL A0 ""
EQUAL A3 %A1
#ACT
MOV A1 "51"
MOV A2 "282"
MapMove %A0 %A1 %A2
goto @100checkadd
#ELSEACT
break
#ELSESAY
进入[奇迹之门]必须组队的队长来开启副本。


[@100startrepetition]
#ACT
mov A6 "奇迹之门"
addstr A6 %D6
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [%D5]


#IF
ESMALL D6 9
#ELSEACT
break
#ELSESAY
副本[奇迹之门]全部满员，请稍后再尝试进入。\\
<关闭/@exit>


#IF
ESMALL D5 7  ;;单个副本总层数 
#ELSEACT
goto @100fubenenterok
break


#IF
checkhum %A5
EQUAL P9 0
#ACT
inc D5 1
goto @100startrepetition
break
#ELSEACT
inc D6 1
mov D5 1
goto @100startrepetition    ;;某套服本 有一个地图有人 那么 副本编号+1 地图编号置0  跳回循环进行验证
break





[@100fubenenterok]
#IF
#ACT
loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
savevalue "PlayerParam\副本记录.ini" [奇迹之门] [%USERNAME] %A5
savevalue "PlayerParam\副本记录.ini" [奇迹之门] [%A5] %USERNAME
MOV A7 %A5
MOV A1 "51"
MOV A2 "282"


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [1]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",100,100,100"
MongenP "%A4" 暗之幻影蜘蛛 50


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [2]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",64,43,30"
MongenP "%A4" 暗之幻影蜘蛛 20


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [3]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",50,50,50"
MongenP "%A4" 暗之幻影蜘蛛 50

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [4]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",100,100,100"
MongenP "%A4" 暗之幻影蜘蛛 50


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [5]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",50,40,50"
MongenP "%A4" 暗之幻影蜘蛛 50

loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [6]
monclear %A5
mov A8 %A5
ADDSTR A8 ",300,300,900"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",100,100,100"
MongenP "%A4" 暗之幻影蜘蛛 50


loadvalue A5 "ParamControl\副本地图设定.ini" [%A6] [7]
monclear %A5
mov A8 %A5
ADDSTR A8 ",19,18,50"
ClearItemMap %A8  *
mapting %A5 41 164 86
MOV A4 %A5
ADDSTR A4 ",19,18,2"
MongenP "%A4" 暗之幻影蜘蛛 1
MongenP "%A4" 暗之邪恶钳虫 1


MapMove %A7 %A1 %A2


goto @100checkadd

[@100checkadd]
#CALL [vimascript\map_repetition.txt] @mapMain

}

[@纪年之轮]
{







}
;;QQ:67762207