;;;QQ:67762207
[@清理怪物]
{
#IF
Isadmin
#ACT
mov A5 ""
mov A6 ""
mov A1 ""
mov A2 ""
goto @清理怪物1

[@清理怪物1]
#SAY
<请输入要清理怪物的地图/@@清理地图>  <输入$/@Input$>\
地图：<$OUTPUT(A5)>\\

不输入怪物名称默认为全部清理\
<请输入要清理的怪物的名称/@@清理怪物ss>\
怪物：<$OUTPUT(A6)>\\

<清理怪物/@清理>\
<检查是否有怪物/@检查>\\
============================================\\
<清理物品/@@clearmap> 不输入默认清理自己地图


[@检查]
#IF
EQUAL A5 ""
#ACT
mov A5 %USERMAP

#IF
checkmonmap "%A5" 1 %A6
#ACT
sysmsg "<$OUTPUT(A5)>存在<$OUTPUT(A6)>怪物"
#ELSEACT
sysmsg "<$OUTPUT(A5)>不存在<$OUTPUT(A6)>怪物"


[@Input$]
#ACT
mov A2 "$"
addstr A2 %A5
mov A5 %A2
goto @清理怪物1


[@清理]
#IF
!EQUAL A6 ""
#ACT
monclear %A5 %A6
sysmsg "<$OUTPUT(A5)>地图上的怪物<$OUTPUT(A6)>全部清理完毕"
#ELSEACT
monclear %A5
sysmsg "<$OUTPUT(A5)>地图上的怪物全部清理完毕"


[@@清理地图]
#ACT
mov A5 %Inputstr
goto @清理怪物1


[@@清理怪物ss]
#ACT
mov A6 %Inputstr
goto @清理怪物1


[@@clearmap]
#IF
#ACT
MOV A0 %INPUTSTR
#IF
EQUAL A0 ""
#ACT
MOV A0 %USERMAP
ADDSTR A0 ",300,300,900"
ClearItemMap %A0  *
SYSMSG "<$OUTPUT(A0)>清理完毕"
#ELSEACT
ADDSTR A0 ",300,300,900"
ClearItemMap %A0  *
SYSMSG "<$OUTPUT(A0)>清理完毕"


}
;;;QQ:67762207