- 注册时间
- 2005-7-23
- 最后登录
- 2007-1-2
⑥精研
- 积分
- 1278
|

楼主 |
发表于 2005-7-26 23:46:48
|
显示全部楼层
汗中 确实研究过那个范例的说 不过没有用globalon的命令-0-……因为觉得用不到……原来这个命令是这个作用……
突然觉得可能我的方向有问题么T_T划圈中……
然后现在又发现 如果是关掉再开后……似乎系统又会自己把变量自动清零[em01][em01]
------------------
以下…………莫名的原文件……中间定义的那段就是从桑的范例中直接基本直接复制的
用的是系统自带的存储读取………………似乎都是用的选择分歧……
可以的话麻烦小D大人看下问题-v-……拜先
------------------
;mode800
*define
mousecursor \"Arrow.cur\"
defaultfont \"幼圆\"
deletemenu
caption \"血之纹章——暗夜异想录\"
defmp3vol 100 ; 初始音量
mp3fadeout 1000 ; 音乐淡出时间,1秒
bgmdownmode 1
transmode alpha ; 透明格式为alpha透明
labellog ; 记录已经经历过的事件
shadedistance 2,2 ; 阴影字效果设定
savename \"印痕\",\"痕印\",\"印记\"
savenumber 10
rmenu \"记录印痕\",save,\"翻看痕印\",load,\"回到最初\",reset,\"回到现界\",windowerase
;----------------------------------------------------------------------
effect 2,10,500
effect 3,10,700
effect 4,10,1000
effect 5,2,1000 ; 左快门
effect 6,3,1000 ; 右快门
effect 7,4,1000 ; 上快门
effect 8,5,1000 ; 下快门
effect 9,6,1000 ; 左窗帘
effect 10,7,1000 ; 右窗帘
effect 11,8,1000 ; 上窗帘
effect 12,9,1000 ; 下窗帘
effect 13,11,1000 ; 从左边卷动
effect 14,12,1000 ; 从右边卷动
effect 15,13,1000 ; 从上面卷动
effect 16,14,1000 ; 从下面卷动
;----------------------------------------------------------------------
defsub music
defsub spc
defsub spl
defsub spr
defsub clc
defsub cll
defsub clr
defsub prep
defsub preptwo
defsub bgd
defsub bgd1
;----------------------------------------------------------------------
;定义人物
defsub si
defsub blue
defsub mouse
defsub E
defsub zero
defsub snow
defsub who
;----------------------------------------------------------------------
game
;----------------------------------------------------------------------
; ☆音乐淡入淡出效果
*music
getparam %190
if %190=0 bgm \"\"
if %190=1 bgm \"bgm\\001.mp3\"
if %190=2 bgm \"bgm\\002.mp3\"
if %190=3 bgm \"bgm\\003.mid\"
return
;----------------------------------------------------------------------
; ☆自定义显示人物
*spc
getparam $191,%192
vsp 2,0:print 1
ld c,$191,%192
if %179=1 vsp 2,1
return
*spl
getparam $191,%192
vsp 2,0:print 1
ld l,$191,%192
if %179=1 vsp 2,1
return
*spr
getparam $191,%192
vsp 2,0:print 1
ld r,$191,%192
if %179=1 vsp 2,1
return
;----------------------------------------------------------------------
; ☆自定消除人物
*cll
getparam %193
vsp 2,0:print 1
cl l,%193
if %179=1 vsp 2,1
return
*clc
getparam %193
vsp 2,0:print 1
cl c,%193
if %179=1 vsp 2,1
return
*clr
getparam %193
vsp 2,0:print 1
cl r,%193
if %179=1 vsp 2,1
return
;----------------------------------------------------------------------
; ☆自定义背景切换
*bgd
getparam $190,%191
vsp 2,0:print 1
bg black,%191
bg $190,%191
if %179=1 vsp 2,1
return
*bgd1 ;不需要双重切换的
getparam $190,%191
vsp 2,0:print 1
bg $190,%191
if %179=1 vsp 2,1
return
;----------------------------------------------------------------------
*si
#ffffaa【司】#ffffff
return
*blue
#ffffaa【蓝】#ffffff
return
*mouse
#ffffaa【鼠鼠】#ffffff
return
*E
#ffffaa【格雷斯】#ffffff
return
*zero
#ffffaa【零】#ffffff
return
*snow
#ffffaa【雪】#ffffff
return
*who
#ffffaa【???】#ffffff
return
;----------------------------------------------------------------------
*prep
setwindow 50,470,20,3,29,29,2,4,%206,1,1,\":a;bg\\form.bmp\",0,0
return
*preptwo
setwindow 200,180,20,8,29,29,2,4,%206,1,1,#ffffff,1,1,700,700
return
;----------------------------------------------------------------------
*start
;----------------------------------------------------------------------
;----------------------------------------------------------------------
rmode 0
bgd1 \"bg\\bg001.jpg\",2
music 1
;----------------------------------------------------------------------
*title
lsp 0,\":a/2,0,3;btn/start.jpg\",300,280
lsp 1,\":a/2,0,3;btn/load.jpg\",300,340
lsp 2,\":a/2,0,3;btn/end.jpg\",300,400
print 10
spbtn 0,1
spbtn 1,2
spbtn 2,3
*else
btnwait %0
if %0=0 goto *else
if %0=-1 goto *else
if %0=1 goto *newgame
if %0=2 goto *titleload
if %0=3 csp -1:print 4:end
;----------------------------------------------------------------------
*titleload
systemcall load
goto *title
;----------------------------------------------------------------------
*newgame
mov %200,10; 初始零感情
mov %201,10; 初始雪感情
mov %202,0; 初始蓝感情
rmode 0
stop
csp -1
bg black,3
preptwo
!s200
那是什么……@
银色……@黑色……@蓝色……\\
毁灭之光么………\\
默斯………\\
!s500
………\\
music 2
rmode 1
prep
!s20
who
爹亲,爹亲,爹亲。快醒醒啦。\\
好熟悉的声音……\\
who
爹亲,爹亲起来了阿。\\
bgd \"bg\\bedroom.jpg\",17
spc \"sive\\zero.bmp\",2
who
爹亲,醒过来了么?\\
si
原来是#FF0000零#FFFFFF呀。\\
zero
终于醒过来了呢。\\
zero
爹亲忘记今天说要早点起来带小零一起去找雪姐姐玩了么?\\
si
糟糕,我还真的忘记了。\\
zero
那爹亲快点起来哦。@
我做好早饭了。\\
clc 2
si
零真是有精神阿。\\
;----------------------------------------------------------------------
;分歧01
select \"那么就起床吧\",*getup,\"还是再睡会吧\",*sleep
;----------------------------------------------------------------------
*getup
bgd \"bg\\tearoom.jpg\",20
spc \"sive\\zero.bmp\",2
zero
爹亲,早饭吃小葱豆腐好么?\\
si
恩,辛苦零了。\\
add %200,10;零好感度加10
clc 2
wait 2000
spc \"sive\\zero.bmp\",2
zero
爹亲,你吃完了么?\\
si
恩。零,那我们早点出门吧。\\
zero
恩。好。\\
goto *jixu
*sleep
…………\\
si
还是再睡上一会好了。\\
bg black,3
…………\\
wait 2000
quake 8,1000
bgd \"bg\\bedroom.jpg\",23
spc \"sive\\zero.bmp\",2
si
好……好痛……\\
zero
爹亲,你竟然又睡了。\\
si
对……对不起。\\
si
但也不用用锅子敲我吧。
会变笨的耶。\\
zero
快起来啦,现在都没时间吃早饭了。\\
si
是。是。\\
goto *jixu
;----------------------------------------------------------------------
*jixu
bgd \"bg\\jiedao.jpg\",9
spc \"sive\\zero.bmp\",2
zero
爹亲,要给雪姐姐带些礼物么?\\
;----------------------------------------------------------------------
;分歧02
select \"买点点心去吧。\",*maidianxin,\"采些花去吧。\",*hua,\"不用礼物了吧。\",*bumai
;----------------------------------------------------------------------
*maidianxin
si
我们买些点心去吧。\\
zero
恩,好。@
雪姐姐肯定很高兴看到我们买的点心的。\\
si
希望是。\\
si
…………很久没看到雪笑了呢……\\
clc 2
bgd \"bg\\shop.jpg\",20
spr \"sive\\zero.bmp\",2
zero
爹亲,我们买什么点心给雪姐姐呢?\\
si
恩。我想想……\\
si
……\\
si
就买这种甜饼干吧。
我最喜欢吃的。\\
music 3
who
我倒觉得买这种咸的比较好哦。\\
spl \"sive\\blue2.bmp\",2
who
真的,我觉得这种的比较好。\\
si
……\\
zero
……\\
who
真的啦,我不骗你们的。\\
zero
爹亲,这个人是谁?\\
si
我不认识。\\
zero
……\\
zero
叔叔你是谁。\\
who
这真是叫我伤心。@
叔叔,我看上去那么老么。\\
who
更伤心的,你竟然说不认识我么。@
#FF0000丢法·司·雷茵#FFFFFF\\
si
你是谁,怎么会知道我的名字!\\
si
确实有些眼熟…………\\
who
算了,忘记就算了。
反正我本来就是容易被人遗忘的。\\
who
听我的,买那种咸的吧。\\
who
好了,那我就走了哦。
司,还有零,我们待会见。\\
cll 2
music 2
zero
……\\
si
……\\
zero
爹亲,那个奇怪的叔叔也认识我呢。
他到底是?\\
si
……不知道,我觉得他有些熟悉,
可是想不起来。\\
zero
可是他说待会见呢。\\
zero
阿,糟了,爹亲,
我们还没买点心呢。\\
zero
快点买吧,我想早点去和雪姐姐玩呢。\\
si
恩,不想了。我们买点心。\\
si
老板……\\
;----------------------------------------------------------------------
;分歧0201
select \"听那个怪人的吧,买咸饼干。\",*xian,\"还是买我爱吃的甜饼干吧。\",*tian
;----------------------------------------------------------------------
*xian
si
老板,给我称点这种咸饼干。\\
#ffffaa【商店老板】#ffffff
好哟。\\
zero
爹亲,你买咸饼干阿。\\
goto *jixuzou
*tian
si
老板,给我称点这种甜饼干。\\
#ffffaa【商店老板】#ffffff
好哟。\\
zero
爹亲,你买甜饼干阿。\\
goto *jixuzou
;----------------------------------------------------------------------
*jixuzou
si
恩。希望雪会喜欢。\\
#ffffaa【商店老板】#ffffff
好了,先生。这是你的饼干。
欢迎下次也光临本店。\\
zero
雪姐姐一定会喜欢的。\\
si
是啊。那我们去雪的家吧。\\
goto *snowjia02
;----------------------------------------------------------------------
*hua
si
我们采些花去吧。\\
zero
阿,雪姐姐肯定会喜欢的。
爹亲真厉害。\\
si
恩,零的眼光最好了。
零去采些最漂亮的花送给雪吧。\\
add %200,10;零好感度加10
zero
好——\\
bgd \"bg\\sunlin.jpg\",20
spr \"sive\\zero.bmp\",2
zero
爹亲,看我采的这些花漂亮么。\\
si
好漂亮呢,不愧是我家零的眼光。
那我们赶快去雪的家吧。\\
zero
好。\\
goto *snowjia01
;----------------------------------------------------------------------
*bumai
si
不用带什么礼物了吧。\\
si
让雪早点看到乖乖的可爱的零就是给雪最好的礼物了阿。\\
add %200,20;零好感度加20
zero
爹亲。你这样说小零会不好意思的。\\
si
我的零就是这样的么。\\
zero
好了啦,爹亲。
那我们快去雪姐姐家吧。\\
goto *snowjia01
;----------------------------------------------------------------------
*snowjia01
;----------------------------------------------------------------------
*snowjia02
;----------------------------------------------------------------------
和零的好感%200。\\
和雪的好感%201。\\
和蓝的好感%202。\\
reset
|
|