#module
#deffunc LoadCharactorInfo str fname,array chara
exist fname
if(strsize==-1){
return -1
}
#if 0
//実際に読み込ませる。
sdim buf,strsize
bload fname,buf,strsize
#else
//掲示板用にそのままでも動くようにする。
buf={"HP=100;
MHP=100;
MP=0;
MMP=0;
ATK=5;
DEF=5;
SP=5;"}
#endif
m=instr(buf,0,"HP=")+3
n=instr(buf,m,";")
sHP=strmid(buf,m,n)
m=instr(buf,0,"MHP=")+4
n=instr(buf,m,";")
sMHP=strmid(buf,m,n)
m=instr(buf,0,"MP=")+3
n=instr(buf,m,";")
sMP=strmid(buf,m,n)
m=instr(buf,0,"MMP=")+4
n=instr(buf,m,";")
sMMP=strmid(buf,m,n)
m=instr(buf,0,"ATK=")+4
n=instr(buf,m,";")
sATK=strmid(buf,m,n)
m=instr(buf,0,"DEF=")+4
n=instr(buf,m,";")
sDEF=strmid(buf,m,n)
m=instr(buf,0,"SP=")+3
n=instr(buf,m,";")
sSP=strmid(buf,m,n)
////////////////////////////////////////////////////////////////////////////////
//この部分をスッキリさせたい?
chara(0)=int(sHP)
chara(1)=int(sMHP)
chara(2)=int(sMP)
chara(3)=int(sMMP)
chara(4)=int(sATK)
chara(5)=int(sDEF)
chara(6)=int(sSP)
////////////////////////////////////////////////////////////////////////////////
return
#global
dim enemy1,7
LoadCharactorInfo "enemy1.txt",enemy1
mes "HP:"+enemy1(0)
mes "最大HP:"+enemy1(1)
mes "MP:"+enemy1(2)
mes "最大MP:"+enemy1(3)
mes "攻撃力:"+enemy1(4)
mes "防御力:"+enemy1(5)
mes "敏捷性:"+enemy1(6)
このようなことがしたいのでしょうか。