Techwizz/Gobligine
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Changed victory and defeat backgrounds

Browse source
This commit is contained in:
jsalmon3 2003-05-08 20:01:06 +00:00
parent e8096b2879
commit 3a48d63b34
2 changed files with 16 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
src/ui/script_ui.cpp
View file

@ -1124,23 +1124,20 @@ local SCM CclDefineUI(SCM list)
}
}
temp=gh_car(list);
value=gh_car(list);
list=gh_cdr(list);
value=gh_car(temp);
temp=gh_cdr(temp);
str=gh_scm2newstr(value,NULL);
free(ui->VictoryBackground.File);
ui->VictoryBackground.File=str;
temp=gh_car(list);
if( gh_eq_p(value,gh_symbol2scm("victory-background")) ) {
value=gh_car(list);
list=gh_cdr(list);
value=gh_car(temp);
temp=gh_cdr(temp);
str=gh_scm2newstr(value,NULL);
free(ui->DefeatBackground.File);
ui->DefeatBackground.File=str;
ui->VictoryBackground.File=gh_scm2newstr(value,NULL);
}
value=gh_car(list);
list=gh_cdr(list);
if( gh_eq_p(value,gh_symbol2scm("defeat-background")) ) {
value=gh_car(list);
list=gh_cdr(list);
ui->DefeatBackground.File=gh_scm2newstr(value,NULL);
}
return SCM_UNSPECIFIED;
}

6
src/ui/ui.cpp
View file

@ -390,8 +390,10 @@ local void SaveUi(FILE* file,const UI* ui)
}
fprintf(file,")\n");
fprintf(file,"\n (list \"%s\")",ui->VictoryBackground.File);
fprintf(file,"\n (list \"%s\")",ui->DefeatBackground.File);
fprintf(file,"\n 'victory-background \"%s\"",
ui->VictoryBackground.File);
fprintf(file,"\n 'defeat-background \"%s\"",
ui->DefeatBackground.File);
fprintf(file," )\n\n");
}