压制的脚本

;加入了乐器用完后自动更换的部分，理论上说只有在更换琴时正好系统存档才会造成脚本运行不下去，而这个几率非常小。因为我还没准备练这个，所以还未测试，大家一起来试试看。
;站在七面（看清楚，不是四面，是7面哦）是墙或者七面被箱子围住的地方，留一个方向开口，乐器必须是竖琴，使用前先自己用一次压制，身边不能有动物。下面的就是脚本，相当长：
;因为有人说对当技能高以后对召唤的普通动物压制就不涨技能了，所以下一步的修改将是在高技能时自动改用元素和恶魔召唤术。

initevents

begin1:
finditem qrf c
set %yueqi #findid

begin2:
event macro 15 39
wait 220

yazhi:
{
gosub animal
event macro 13 15
target 3s
wait 10
event macro 22 0
gosub shifang
wait 10

finditem qrf c
if #findid <> %yueqi
gosub yueqi
goto begin2
}

sub animal
{
finditem ag g_1 ;鸡
if #findid <> x
{
set #ltargetid #findid
return
}
finditem of g_1 ;棕马
if #findid <> x
{
set #ltargetid #findid
return
}
finditem sg g_1 ;白马
if #findid <> x
{
set #ltargetid #findid
return
}
finditem mg g_1 ;灰马
if #findid <> x
{
set #ltargetid #findid
return
}
finditem dg g_1 ;海象
if #findid <> x
{
set #ltargetid #findid
return
}
finditem co g_1 ;野猪
if #findid <> x
{
set #ltargetid #findid
return
}
finditem hg g_1 ;狗
if #findid <> x
{
set #ltargetid #findid
return
}
finditem vf g_1 ;北极熊
if #findid <> x
{
set #ltargetid #findid
return
}
finditem wf g_1 ;灰熊
if #findid <> x
{
set #ltargetid #findid
return
}
finditem zi g_1 ;棕熊
if #findid <> x
{
set #ltargetid #findid
return
}
finditem bg g_1 ;黑熊
if #findid <> x
{
set #ltargetid #findid
return
}

finditem tg g_1 ;雌鹿
if #findid <> x
{
set #ltargetid #findid
return
}
finditem ah g_1 ;雄鹿
if #findid <> x
{
set #ltargetid #findid
return
}
finditem nf g_1 ;雌野兔
if #findid <> x
{
set #ltargetid #findid
return
}
goto begin1

sub yueqi
{
wait 170
set %yueqi #findid
set #ltargetid #findid
event marco 13 15
target 3s
wait 10
event macro 22 0
}
return

sub shifang
if #findtype = ag
{
msg 咕咕鸡 release$
return
}
if #findtype = of
{
msg 普通马 release$
return
}
if #findtype = mg
{
msg 普通马 release$
return
}
if #findtype = sg
{
msg 普通马 release$
return
}
if #findtype = dg
{
msg 海象 release$
return
}
if #findtype = co
{
msg 野猪 release$
return
}
if #findtype = hg
{
msg 狗 release$
return
}
if #findtype = vf
{
msg 北极熊 release$
return
}
if #findtype = wf
{
msg 灰熊 release$
return
}
if #findtype = zi
{
msg 棕熊 release$
return
}
if #findtype = bg
{
msg 黑熊 release$
return
}
if #findtype = tg
{
msg 雌赤鹿 release$
return
}
if #findtype = ah
{
msg 雄赤鹿 release$
return
}
if #findtype = nf
{
msg 雌野兔 release$
return
}