a script for sphere0.51a make by my self
// 以下放在SPHEREitem2.scp中
// ICQ:476033234
[6000]
ID=0E2D
COLOR=ALL_COLORS
TYPE=0
ATTR=0
WEIGHT=5
ONTRIGGER=FOR
IF <LINK.LINK.ID>
VAR.TMPLINK <LINK.LINK>
LINK.REMOVE
LINK <VAR.TMPLINK>
TRIGGER FOR
RETURN 0
ENDIF
ONTRIGGER=DCLICK
IF <SRC.REGION.FLAGS> == 09092 // & 09092则不能进城
SRC.SAYU 这里不可以使用
RETURN 1
ENDIF
IF <LINK.ID>
VAR.TMPLINK <LINK>
TRIGGER FOR
LINK.REMOVE
LINK 04FFFFFFF
// SRC.CONSUME 2 06001
SRC.ANIM 16
SRC.SOUND SPELL_MAGIC_REFLECTION
SRC.SAYU 魔法飞毯收缩
RETURN 1
ENDIF
SRC.NEWITEM 0ABD //脚下
SRC.ACT.MOVE 0 0
SRC.ACT.TYPE 1602
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //右下
SRC.ACT.MOVE 1 0
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //左上
SRC.ACT.MOVE -1 0
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //左下
SRC.ACT.MOVE 0 1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //左上
SRC.ACT.MOVE 0 -1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //下
SRC.ACT.MOVE 1 1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //右
SRC.ACT.MOVE 1 -1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //左
SRC.ACT.MOVE -1 1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0ABD //上
SRC.ACT.MOVE -1 -1
SRC.ACT.TYPE 1600
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF6
SRC.ACT.MOVE -2 -1
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF6
SRC.ACT.MOVE -2 0
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF6
SRC.ACT.MOVE -2 1
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF8
SRC.ACT.MOVE 2 -1
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF8
SRC.ACT.MOVE 2 0
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF8
SRC.ACT.MOVE 2 1
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF7
SRC.ACT.MOVE -1 -2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF7
SRC.ACT.MOVE 0 -2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF7
SRC.ACT.MOVE 1 -2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF9
SRC.ACT.MOVE -1 2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF9
SRC.ACT.MOVE 0 2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AF9
SRC.ACT.MOVE 1 2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AC2
SRC.ACT.MOVE 2 2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AC3
SRC.ACT.MOVE -2 -2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AC4
SRC.ACT.MOVE -2 2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0AC5
SRC.ACT.MOVE 2 -2
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0E2D
SRC.ACT.COLOR 020
SRC.ACT.TYPE 1601
SRC.ACT.MOVE -2 0
SRC.ACT.TIMER -1
//SRC.ACT.MOREP <SRC.P>
SRC.ACT.ATTR 8050
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
SRC.NEWITEM 0E2D
SRC.ACT.COLOR 030
SRC.ACT.TYPE 1601
SRC.ACT.MOVE 2 0
SRC.ACT.TIMER -1
//SRC.ACT.MOREP <SRC.P>
SRC.ACT.ATTR 8050
SRC.ACT.LINK <VAR.TEMP>
VAR.TEMP <SRC.ACT.SERIAL>
LINK <SRC.ACT.SERIAL>
MOREP <SRC.P>
// SRC.NEWITEM 6001
// SRC.ACT.COLOR 020
// SRC.ACT.TYPE 1601
// SRC.ACT.BOUNCE
//
// SRC.NEWITEM 6001
// SRC.ACT.COLOR 030
// SRC.ACT.TYPE 1601
// SRC.ACT.BOUNCE
SRC.FIX
SRC.ANIM 17
SRC.SOUND SPELL_MAGIC_REFLECTION
SRC.EFFECT=3,0373A,6,15,1
SRC.SAYU 魔法飞毯展开， 目前您的坐标为：<SRC.P>
RETURN 1
CATEGORY=LaoFeiItems
SUBSECTION=Other
DESCRIPTION=Fly
// 以下是写在SPHEREtrig2.scp里的
[TRIG 1600]
ONTRIGGET=STEP
IF <SRC.REGION.FLAGS> == 09092 // & 09092则不能进城
IF <SRC.DIR> == 0
SRC.MOVE 0 1
RETURN 1
ELIF <SRC.DIR> == 1
SRC.MOVE -1 1
RETURN 1
ELIF <SRC.DIR> == 2
SRC.MOVE -1 0
RETURN 1
ELIF <SRC.DIR> == 3
SRC.MOVE -1 -1
RETURN 1
ELIF <SRC.DIR> == 4
SRC.MOVE 0 -1
RETURN 1
ELIF <SRC.DIR> == 5
SRC.MOVE 1 -1
RETURN 1
ELIF <SRC.DIR> == 6
SRC.MOVE 1 0
RETURN 1
ELIF <SRC.DIR> == 7
SRC.MOVE 1 1
RETURN 1
ENDIF
ENDIF
IF <SRC.DIR> == 0
VAR.D 0 -1
ELIF <SRC.DIR> == 1
VAR.D 1 -1
ELIF <SRC.DIR> == 2
VAR.D 1 0
ELIF <SRC.DIR> == 3
VAR.D 1 1
ELIF <SRC.DIR> == 4
VAR.D 0 1
ELIF <SRC.DIR> == 5
VAR.D -1 1
ELIF <SRC.DIR> == 6
VAR.D -1 0
ELIF <SRC.DIR> == 7
VAR.D -1 -1
ENDIF
// 还需要加一个判断， 判断是自己踩自己的
IF <SRC.FINDID.06000.LINK.ID>
VAR.HLINK <SRC.FINDID.06000.LINK>
TRIGGER FOR
ENDIF
ONTRIGGER=FOR
IF <SRC.FINDID.06000.LINK.ID>
SRC.FINDID.06000.LINK.MOVE <VAR.D>
SRC.FINDID.06000.LINK.MOREP <SRC.P>
IF <SRC.FINDID.06000.LINK.LINK.ID>
SRC.FINDID.06000.LINK <SRC.FINDID.06000.LINK.LINK>
TRIGGER FOR
RETURN 0
ELSE
SRC.FINDID.06000.LINK <VAR.HLINK>
ENDIF
ENDIF
[TRIG 1601]
ONTRIGGER=DCLICK
IF <SRC.REGION.FLAGS> == 09092 // & 09092则不能进城
SRC.SAYU 这里不可以使用
RETURN 1
ENDIF
IF <COLOR> == 020
IF <VALSTR <SRC.FINDID.06000.MOREZ>+5> > 100
SRC.SAYU 不可以再高了
RETURN 1
ENDIF
VAR.CH 5
VAR.D 0 0 5
ELIF <COLOR> == 030
IF <VALSTR <SRC.FINDID.06000.MOREZ> + (-5)> < 0
SRC.SAYU 不可以再低了
RETURN 1
ENDIF
VAR.CH -5
VAR.D 0 0 -5
ENDIF
VAR.HLINK <SRC.FINDID.06000.LINK>
TRIGGER FOR
SRC.FIX
SRC.SAYU 调整高度到<SRC.FINDID.06000.MOREZ>米
RETURN 1
ONTRIGGER=FOR
IF <SRC.FINDID.06000.LINK.ID>
SRC.FINDID.06000.LINK.MOVE <VAR.D>
IF <VAR.CH> != 1
SRC.FINDID.06000.MOREZ <VALSTR <SRC.FINDID.06000.MOREZ> + <VAR.CH>>
VAR.CH 1
ENDIF
IF <SRC.FINDID.06000.LINK.LINK.ID>
SRC.FINDID.06000.LINK <SRC.FINDID.06000.LINK.LINK>
TRIGGER FOR
RETURN 0
ELSE
SRC.FINDID.06000.LINK <VAR.HLINK>
MOREP <P>
ENDIF
ENDIF
[TRIG 1602]
//飘渺自动导航
//ONTRIGGER=STEP
// IF <MOREX> < 1500
// SRC.DIR 2
// SRC.MOVE 1 0
// SRC.FIX
// ELSE
// SRC.MOVE 0 0 -100
// ENDIF
// RETURN 0
//
 |
