使用NS制作养成系统

门清

打工的原理跟养成一样，不过增加与减少的数值一般不同，稍加修改即可。
休息系统的原理也一样，不过要注意的是当疲劳度小于等于零的时候要及时归位。
下面是制作约会系统，跟养成一样，可以设定对方有多大的概率会接受。
下面的脚本里只做了与藤崎诗织的约会选项。

*define

rmenu "存储",save,"读取",load
defsub yangcheng
defsub wenke
defsub like
defsub dagong
defsub xiuxi
defsub weekend
;%1 随机数 %2 成功判定 %3 成功增加数 %4 失败减少数 %5 疲劳减少数 %6 藤崎约会开关 %7

%8 %9 %10 疲劳度增加数 %110 疲劳度 %100 星期数 %101 理科成绩 %102 文科

成绩 %103 金钱数  %106 诗织好感度
game
*yangcheng
rnd %1,9;给出0～9的随机数
if %1>=3 mov %2,1;养成成功，成功率70%
if %1<3 mov %2,0;养成失败
if %2=1 rnd2 %3,3,5;成功后加的数值是一个3～5的随机数
if %2=0 rnd2 %4,0,2;失败后减的数值是一个0～2的随机数
rnd2 %10,1,3;增加1～3的疲劳度
return

*wenke
for %100=1 to 6;每次增加1就不写step了
yangcheng
if %2=1 add %202,%3;养成成功则将成果加入文科成绩
if %2=0 sub %202,%4;同上
add %210,%10
显示文科成绩。\\
itoa $1,%102;转换为文字变量输出。
itoa $10,%110
文科成绩是$1。@
疲劳度是$10。\\
next
return

*like
for %100=1 to 6
yangcheng
if %2=1 add %101,%3
if %2=0 sub %101,%4
add %210,%10
显示理科成绩。\\
itoa $2,%101
itoa $10,%110
理科成绩是$2。@
疲劳度是$10。\\
next
return

*dagong
for %100=1 to 6
rnd %1,9
if %1>=3 mov %2,1
if %1<3 mov %2,0
if %2=1 rnd2 %3,30,50:add %103,%3;成功加30～50元
if %2=0 rnd2 %4,10,20:add %103,%4;失败后加10～20元
rnd2 %10,1,3;增加1～3的疲劳度
add %110,%10;加到总疲劳度里
打工结束咯。\\
itoa $3,%103
itoa $10,%110
现在一共有$3元。@
疲劳度是$10。\\
next
return

*xiuxi
for %100=1 to 6
rnd2 %5,10,13;每次减少10～13的疲劳度
sub %110,%5;扣除减少的疲劳度
在家睡觉觉咯。@
itoa $10,%110
疲劳度是$10。\\
if %110<=0 break:mov %110,0:goto *vain;当疲劳度小于等于零时归位。
next
return

*vain;不减疲劳度的打发时间。
for %100=1 to 6
在家睡觉觉咯。\\
next
goto *weekend
return

*dianhua;电话选项
要打电话给谁呢？\\
select "藤崎诗织",*tengqi,"如月未绪",*ruyue,"伊集院丽",*yijiyuan
*tengqi
Ｔｒｒｒｒｒ～
诗织，下周要不要出去玩？\\
rnd %1,9
if %1>=2 goto *tengqiy;对方有80％的可能性会接受约会。可以加一个关联到好感度的变量，当好感度到达一定程度时可能性也会随之变化。（没试过。）
if %1<2 goto *tengqin
*tengqiy
嗯，好啊。\\
mov %6,1;对方接受的话，开关打开。
gosub *weekset
*tengqin
不了，我那天有事。\\
gosub *weekset
return

*weekset;周末结束，将控制星期数值的变量归零。
mov %100,1
goto *newweek
return

*start
mov %101,50;设定初始值
mov %102,50
mov %100,1;设定开始日期为星期一
mov %110,0
*newweek
下周要做什么呢？

select "学习",*xuexi,"打工",*da,"休息",*xiu
*xuexi
要学哪一门呢？\\

select "文科",*wen,"理科",*li;标签应该是不可与公共事件同名

*wen
gosub *wenke
goto *weekend

*li
gosub *like
goto *weekend

*da
gosub *dagong
goto *weekend

*xiu
gosub *xiuxi
goto *weekend

*weekend
星期天放假咯。要做什么呢？\\

select "打电话",*dian,"外出",*wai,"休假",*rest,"约会",*yue

*dian
gosub *dianhua
gosub *weekset

*wai
go *weekset

*rest
go *weekset

*yue;检查有没有约会开关打开。如果全都是off则提示没有约会。

if %6=1 goto *tengqiyuehui;开关打开则跳到约会选项。
if %6=0 goto *nodate

*tengqiyuehui
select "去",*qu,"不去",*buqu;到了正常的游戏里就变成有没有错过约会。如果是在正常的游戏中，可以在weekset部分检查有没有约会开关仍然打开而时间已经过去……好烦T_T
*qu
add %106,5
itoa $5,%106
跟诗织度过了快乐的一天。
诗织的好感度是$5。
mov %6,0;约会开关关闭。
gosub *weekset
*buqu
sub %106,10
itoa $5,%106
【诗织】
……过分……\\
【主角】
错过了跟诗织的约会。\\
诗织的好感度变成$5。
mov %6,0
gosub *weekset
*nodate
今天没有约会哦～\\
gosub *weekend

end

为了反复测试，上面的脚本是个封闭的循环，关闭NS直接退出。
下面仍然是小白的提问时间：
数字变量转换为文字变量的时候，由于只能转换半角，所以个位数的疲劳度显示都不正常。8知道有没有把半角文字变量转为全角文字变量的方法呢:S

PS 一开始啥都不知道 就开了全局变量 后来发现不能随便开= =（众拍||||||||）

PS2 改过来了 依旧不知道globalon开了有什么用……||||||||||||||||

Advance

好像有个itoa2可以数字转全角文字

全局变量独立于存档，好感度通常不能用全局变量来存放

门清

问题是我这回没开全局变量……@_@ 不是只有开了globalon，%200之后的才会被存为全局变量么？
btw，itoa2是哪个版本的功能……我的2.45版不能识别说。

Advance

0番から199番までが普通の変数で、200番から999番までがグローバル変数です。
说明书上是这么写的
2.54有

门清

又是2.54>_< 撞墙ing

哪位大人可怜一下偶 传一个修正版的2.54上来吧……邮箱里TOZ桑传的那个有一点bug

PS 唔……那段日语是说，%200以后的不管有没有程序里有没有globalon，都会被记录作全局变量么？（日语不能||||）那么加上globalon有什么用处呢？烦请大人赐教

PS2 to楼下 其实俺每天都在线等各位桑的答复 感谢桑们这些天的帮助啦 之所以把做的笨程序拿出来献丑 是希望让各位桑知道俺并不是不思考只等别人教的小白 ——而是好好学习天天向上的五讲四美三热爱好小白（众拍||||||）

Advance

这个你等某D的答复吧……我没有研究过NS，答多错多

门清

研究一晚上toz桑的红宝书（||||||||），发现了这么一个命令intlimit，用这个来限制疲劳度就好了那……俺还真是白啊||||||||||
那么休息部分改成这样：

*xiuxi
inlimit %210,0,999
for %200=1 to 6
rnd2 %5,10,13;每次减少10～13的疲劳度
sub %210,%5;扣除减少的疲劳度
在家睡觉觉咯。@
itoa $10,%210
疲劳度是$10。\\
next
return

取消vain分支。（还真是vain啊……题外话|||||||||）

toz

……红宝书……||||||||……
回头一看那个手册里还真有不少错误呢……可是已经没法改了（换论坛之后代码不一样了，一旦修改存盘以前那些辛苦加上的彩色符号就全毁了……参考该贴2楼）……
-_______-||||||

关于全局变量，似乎是这样。
普通状况下，200号以后的变量被默认为是全局变量，也就是在save档案里不记录这些变量，他们的值都是保存在内存里的（大概），一旦程序关闭就清0。

使用globalon这个命令的意义就是生成一个全局变量日志档案，让这些变量们在程序关闭以后也能一直保留在日志档案里，以备下一次运行的时候调用。

觉得200的普通变量不够用的话，可以用value这个命令来修改默认编号。

ローカル変数とグローバル変数の境目を変えられるようになりました
スクリプトの一行目で、
;value500
グローバル変数が５００番からになります
（数字は０～４０００の間で任意の数字です）
もし８００ｘ６００モードと併用される場合は、
;mode800,value500
としてください。

;value数字

这个命令要写在0.txt的第一行（跟那个mode800一样），同时也用mode800的话就是写作：

;mode800,value500

这样，value后面的数字0-4000都可以。
4000的话就足够使了吧？一般来说……我想改过之后，save档案的体积也会相应的增大吧（要记录的东西变多了呢……）……


顺便一提，那个intlimit后面的变量编号好像不用写%。
再顺便一提，多看了两眼54的说明书……新增的命令真是华丽又实用啊~~~~（好多都是之前被我想过“要是有这个功能就好了”这样的……）我……我也想升级了……T_T

Advance

下面是引用toz于2005-10-31 16:49发表的:
……红宝书……||||||||……
回头一看那个手册里还真有不少错误呢……可是已经没法改了（换论坛之后代码不一样了，一旦修改存盘以前那些辛苦加上的彩色符号就全毁了……参考该贴2楼）……
-_______-||||||

关于全局变量，似乎是这样。
.......

全局变量是保存在共享文件（似乎是envdata）里的，只有临时变量不会记录

全局的含义是“大家都可以访问、存取”，这样理解就行了

toz

那就改叫临时变量好了……因为确实的被清0了……envdata里没那些（envdata文件才55字节啊……）