
1.
脚本:
With npc(sysval(Param1))
.facing = Char(1).facing
Select Case Char(1).x - .x
Case < 0
If .facing = 0 then
.xsp = -3
Else
.xsp = 1
end if
Case > 0
If .facing = 1 then
.xsp = 3
Else
.xsp = -1
end if
end select
.ivala = .ivala + 1
Select Case .ivala
Case 40
Select Case Char(1).x - .X
Case < 0
If .facing = 0 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-6,0,0,0)
elseif .facing = 1 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-3,0,0,0)
end if
Case > 0
If .facing = 1 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,6,0,0,0)
elseif .facing = 0 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,3,0,0,0)
end if
end select
.ivala = 0
Case else
end select
end with


脚本:
With npc(sysval(Param1))
.facing = Char(1).facing
Select Case Char(1).x - .x
Case < 0
If .facing = 0 then
.xsp = -3
Else
.xsp = 1
end if
Case > 0
If .facing = 1 then
.xsp = 3
Else
.xsp = -1
end if
end select
.ivala = .ivala + 1
Select Case .ivala
Case 40
Select Case Char(1).x - .X
Case < 0
If .facing = 0 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-6,0,0,0)
elseif .facing = 1 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,-3,0,0,0)
end if
Case > 0
If .facing = 1 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,6,0,0,0)
elseif .facing = 0 then
Call Ncreate(133,NPC(SysVal(Param1)).X,NPC(SysVal(Param1)).Y,3,0,0,0)
end if
end select
.ivala = 0
Case else
end select
end with

