home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DOS/V Power Report 1997 March
/
VPR9703A.ISO
/
FFILLY
/
FTILE400
/
REPORT.TFY
< prev
next >
Wrap
Text File
|
1996-12-19
|
6KB
|
217 lines
/* 成績表Toffyファイル */
sorttitle(stepsum,clearsum){
int i,j,d1,d2,size;
str string,nostring,stagestring,stepstring,clearstring;
SetFont(36, "MS ゴシック",128,0,0,0,500);
TextColor(255,0,0);
TextWrite("ふらっとタイル 成績表ソート",sortpic,20,15);
SetLineSize(2);
DrawRect(sortpic,30,90,511,291,0,1);
SetLineSize(1);
SetPaintColor(0x000000);
//ソート
for(j=0;j<58;j=j+1){
for(i=0;i<59;i=i+1){
if(sortarray[i]<sortarray[i+1]){
d1=sortarray[i]; d2=stagearray[i];
sortarray[i]=sortarray[i+1]; stagearray[i]=stagearray[i+1];
sortarray[i+1]=d1; stagearray[i+1]=d2;
}
}
}
for(j=0;j<6;j=j+1){
for(i=0;i<10;i=i+1){
DrawLine(sortpic,30,90+20*i,511,90+20*i);
DrawLine(sortpic,110+80*j,90,110+80*j,291);
BackMode(1);
SetFont(16, "MS ゴシック",128,0,0,0,400);
TextColor(0,0,0);
nostring=StrPrint("%2d",stagearray[i+10*j]);
stagestring=StrPrint("stage_%ld",stagearray[i+10*j]);
string=StrPrint("%ld",sortarray[i+10*j]);
size=StrLen(string);
TextWrite(nostring,sortpic,33+80*j,92+20*i);
SetFont(20, "MS ゴシック",0,0,0,0,400);
TextColor(0,0,255);
if(size==1) TextWrite(string,sortpic,92+80*j,90+20*i);
if(size==2) TextWrite(string,sortpic,83+80*j,90+20*i);
if(size==3) TextWrite(string,sortpic,74+80*j,90+20*i);
if(size==4) TextWrite(string,sortpic,65+80*j,90+20*i);
MovePic(yellowpic,0,0,4,14,sortpic,102+80*j,93+20*i);
}
}
clearstring=StrPrint("クリアステージ数:%2ld",clearsum);
stepstring=StrPrint("ステップ数合計:%5ld",stepsum);
SetFont(20, "MS ゴシック",128,0,0,0,900);
TextColor(0,255,0);
TextWrite(clearstring,sortpic,10,60);
TextWrite(stepstring,sortpic,300,60);
}
reporttitle(){
int i,j,k,size,stageno;
str string,nostring,stagestring,stepstring,clearstring;
stageno=0;
stepsum=0;
clearsum=0;
SetFont(36, "MS ゴシック",128,0,0,0,500);
TextColor(255,0,0);
TextWrite("ふらっとタイル 成績表",reportpic,55,15);
SetLineSize(2);
DrawRect(reportpic,30,90,511,291,0,1);
SetLineSize(1);
SetPaintColor(0x000000);
for(j=0;j<6;j=j+1){
for(i=0;i<10;i=i+1){
stageno=stageno+1;
stagearray[i+10*j]=stageno;
DrawLine(reportpic,30,90+20*i,511,90+20*i);
DrawLine(reportpic,110+80*j,90,110+80*j,291);
BackMode(1);
SetFont(16, "MS ゴシック",128,0,0,0,400);
TextColor(0,0,0);
nostring=StrPrint("%2d",stageno);
stagestring=StrPrint("stage_%ld",stageno);
sortarray[i+10*j]=GetIniInt("report",stagestring,100,"flattile.ini");
stepsum=stepsum+sortarray[i+10*j];
if(sortarray[i+10*j]>0) clearsum=clearsum+1;
string=StrPrint("%ld",sortarray[i+10*j]);
size=StrLen(string);
TextWrite(nostring,reportpic,33+80*j,92+20*i);
SetFont(20, "MS ゴシック",0,0,0,0,400);
TextColor(0,0,255);
if(size==1) TextWrite(string,reportpic,92+80*j,90+20*i);
if(size==2) TextWrite(string,reportpic,83+80*j,90+20*i);
if(size==3) TextWrite(string,reportpic,74+80*j,90+20*i);
if(size==4) TextWrite(string,reportpic,65+80*j,90+20*i);
// MovePic(yellowpic,0,0,4,14,reportpic,102+80*j,93+20*i);
}
}
clearstring=StrPrint("クリアステージ数:%2ld",clearsum);
stepstring=StrPrint("ステップ数合計:%5ld",stepsum);
SetFont(20, "MS ゴシック",128,0,0,0,900);
TextColor(0,255,0);
TextWrite(clearstring,reportpic,10,60);
TextWrite(stepstring,reportpic,300,60);
}
filewrite(str filestring)
{
int i,j,k;
int filewriteno;
str string,stagestring,newline;
filewriteno=OpenF(filestring,0x1000);
WriteF(filewriteno,0x0a,1);
StrWriteF(filewriteno," ふらっとタイル Ver 4.00+ 成績表");
WriteF(filewriteno,0x0a,1);
WriteF(filewriteno,0x0a,1);
string=StrPrint(" クリアステージ数:%2ld ステップ数合計:%5ld",clearsum,stepsum);
StrWriteF(filewriteno,string);
WriteF(filewriteno,0x0a,1);
WriteF(filewriteno,0x0a,1);
for(i=1;i<=10;i=i+1){
for(j=0;j<3;j=j+1){
stagestring=StrPrint("stage_%ld",i+10*j);
k=GetIniInt("report",stagestring,100,"flattile.ini");
string=StrPrint(" STAGE %2ld:%4ld",i+10*j,k);
StrWriteF(filewriteno,string);
if(j==2){
WriteF(filewriteno,0x0a,1);
}
}
}
WriteF(filewriteno,0x0a,1);
CloseF(filewriteno);
}
sort()
{
mes(LBDOWN){
if((MesP2>450 && MesP3>300 && MesP2<510 && MesP3<320) && MesP1==(sortwinno)){
MovePic(bottunpic,59,76,59,19,sortpic,450,300);
CloseWin(sortwinno);
closewave();
MovePic(bottunpic,0,76,59,19,sortpic,450,300);
del_me;
}
}
}
report(){
str filestring,msgstring;
openwave();
mes(LBDOWN){
//ソート
if((MesP2>270 && MesP3>300 && MesP2<330 && MesP3<320) && MesP1==(reportwinno)){
MovePic(bottunpic,59,266,59,19,reportpic,270,300);
openwave();
CapTitle("ふらっとタイル Ver 5.00 成績表ソート");
sortwinno=OpenWin(sortpic,60,60);
sort();
MovePic(bottunpic,0,266,59,19,reportpic,270,300);
}
//ファイル出力
if((MesP2>360 && MesP3>300 && MesP2<420 && MesP3<320) && MesP1==(reportwinno)){
MovePic(bottunpic,59,247,59,19,reportpic,360,300);
openwave();
filestring=StrInput("rec","成績ファイル(*.rec)|*.rec||",1,0x0002,"flattile.rec",0);
if(filestring!="")
{
filewrite(filestring);
openwave();
msgstring=StrPrint("%s にステップ数を書き込みました",filestring);
MsgBox(msgstring,0x40);
}
closewave();
MovePic(bottunpic,0,247,59,19,reportpic,360,300);
}
if((MesP2>450 && MesP3>300 && MesP2<510 && MesP3<320) && MesP1==(reportwinno)){
MovePic(bottunpic,59,76,59,19,reportpic,450,300);
CloseWin(reportwinno);
closewave();
MovePic(bottunpic,0,76,59,19,reportpic,450,300);
del_me;
}
}
}