高手进来指正《JS追杀脚本》

这脚本不知道对大家有没有实用的价值，如果有实用的价值的话，大家要多棒本站的场子，可别砸本站场子啊。脚本本人也没试过，只是拿来给大家作参考使用，希望大家会喜欢。好了开始切入正题。
 脚本来自 斩天传奇 ps 就是我的`米开外网,因为还没写好`懒的写了`呵呵
转载请注明
说明:
       此脚本(追杀1.0)给一个朋友(凤铃)写的`米想发布,但是我下了N多版本一会,觉得别人写脚本的思路跟我(自己看了2天脚本,米人教啊.自己学的)不太一样,所以发布出来

有什么不对就请大家指正就好了，可别拍砖扔石头，我会受不住大家这么热情的攻势的。因为脚本文件太长了,所以分成两部份来发布。
-----------------------------------------------------------------------我是分割线-----------------------------------------------------------------------------------------------------
我在我帮助按钮里直接取出来的`大家根据自己需要改` 在x:\MirServer\Mir200\Envir\Market_def 目录建立4个TXT文件

名字分别为
不能传他的地图他.txt
不能传他的地图我.txt
不能传自己的地图他txt
不能传自己的地图我.txt

安全提示:  请在你M2里过滤字符 \  <  或 \  > 一行一个.
[hide]
[@追杀]
#IF
checkcastlewar <$CASTLENAME>
#ACT
goto @UserCmd2
SendMsg 7 [提示]:攻城期间不允许使用
break
#IF
#SAY
您有<元宝>：{<$GAMEGOLD>=FCOLO=252}个 <灵符>：{<$GAMEGIRD>=FCOLO=252}张 <金刚石>：{<$HUMAN(JGS)>=FCOLO=252}块<声望>：<$CREDITPOINT>点\
╔┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╗\
┆你想暗杀你的仇人吗? 你的朋友正在被人追杀吗?             ┆\
┆你想和你的朋友一起打BOSS吗?只需要花<20个元宝/FCOLOR=254>.我就可以让你┆\
┆直接飞到他的身边.花<30个元宝/FCOLOR=254>.我就可以让他直接飞到你的身边┆\
╚┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄┄╝\
<温馨提示/FCOLOR=253>:<人物不在线.或者名字输错不会收取元宝/FCOLOR=70>\ \
<输入人物角色名/@@InPutString5>                       <返回帮助菜单/@UserCmd2>
[@InPutString5]
#IF
equal S5
#ACT
goto @追杀
break
#IF
equal S5 斩天传奇
#ACT
MESSAGEBOX [提示]:管理员不允许追杀！！！
goto @追杀
break
#IF
equal S5 <$USERNAME>
#ACT
MESSAGEBOX [提示]:不能追杀自己！！！
goto @追杀
#ELSEACT
goto @追杀1
[@追杀1]
#IF
CHECKONLINE <$STR(S5)>
#ACT
MOV S1 =FCOLOR=250
goto @追杀2
#ELSEACT
MOV S1 =FCOLOR=56
MOV S2 =FCOLOR=56
MOV S3 =FCOLOR=56
MOV S4 <传送自己20元宝>
MOV S6 <传送他人30元宝>
goto @追杀3
[@追杀2]
#IF
<$STR(S5)>.INSAFEZONE 
#ACT
MOV S2 =FCOLOR=56
MOV S6 <传送他人30元宝> 
goto   @不能传自己的地图他
#elseact
goto   @不能传他的地图他
[@不能传他的地图他]
#IF
<$STR(S5)>.CHECKLISTTEXT 不能传他的地图他.txt <$MAP>
#ACT
goto    @不能传自己的地图他
#elseact
goto   @不能传他的地图我
[@不能传他的地图我]
#IF
CHECKLISTTEXT 不能传他的地图我.txt <$MAP>
#ACT
goto    @不能传自己的地图他
#elseact
MOV S2 =FCOLOR=250
MOV S6 <传送他人30元宝/@zstr>
goto    @不能传自己的地图他
[@不能传自己的地图他]
#IF
<$STR(S5)>.CHECKLISTTEXT 不能传自己的地图他.txt <$MAP>
#ACT
MOV S3 =FCOLOR=56
MOV S4 <传送自己20元宝>
goto @追杀3
#elseact
goto    @不能传自己的地图我
[@不能传自己的地图我]
#IF
CHECKLISTTEXT 不能传自己的地图我.txt <$MAP>
#ACT
MOV S3 =FCOLOR=56
MOV S4 <传送自己20元宝>
goto @追杀3
#elseact
MOV S3 =FCOLOR=250
MOV S4 <传送自己20元宝/@zszj>
goto @追杀3
[@追杀3]
#if
equal p0 1
#act
goto @zszj1
#if
equal p0 2
#act
goto @zstr1
#if
equal p0 0
#SAY