func void useschuldbuch() {
var int ndocid;
var string concattext;
if (lemarbookread == false) {
b_giveplayerxp(100);
b_say(self, self, "$HOWINTEREST");
lemarbookread = true;
};
if lehmar_geldgeliehen {
concattext = concatstrings("Я, Безымянный герой всея Готики, должен Лемару ", inttostring(lehmar_geldgeliehen));
concattext = concatstrings(concattext, " золотых монет.");
};
ndocid = doc_create();
doc_setpages(ndocid, 2);
doc_setpage(ndocid, 0, "BOOK_WOOD_L.tga", 0);
doc_setpage(ndocid, 1, "BOOK_WOOD_R.tga", 0);
doc_setmargins(ndocid, 0, 275, 20, 30, 20, 1);
doc_setfont(ndocid, 0, font_book_new);
doc_printline(ndocid, 0, "");
doc_printlines(ndocid, 0, "Бизнес и долги");
doc_setfont(ndocid, 0, font_book_new_small);
doc_printline(ndocid, 0, "");
doc_printlines(ndocid, 0, "Я, мастер Торбен, столяр из Хориниса, должен уважаемому господину Лемару 200 золотых монет.");
doc_printline(ndocid, 0, "");
doc_printline(ndocid, 0, "Торбен");
doc_printline(ndocid, 0, "");
doc_printline(ndocid, 0, "");
doc_printlines(ndocid, 0, "Я, Корагон, трактирщик в Хоринисе, должен уважаемому господину Лемару 150 золотых монет.");
doc_printline(ndocid, 0, "");
doc_printline(ndocid, 0, "Корагон");
doc_printline(ndocid, 0, "");
doc_setmargins(ndocid, -1, 30, 20, 275, 20, 1);
doc_setfont(ndocid, 1, font_book_new_small);
doc_printline(ndocid, 1, "");
doc_printline(ndocid, 1, "");
doc_printline(ndocid, 1, "");
doc_printlines(ndocid, 1, "Я, Ханна, владелица гостиницы в Хоринисе, должна уважаемому господину Лемару 250 золотых монет.");
doc_printline(ndocid, 1, "");
doc_printline(ndocid, 1, "Ханна");
doc_printline(ndocid, 1, "");
doc_printline(ndocid, 1, "");
if lehmar_geldgeliehen {
doc_printlines(ndocid, 1, concattext);
doc_printline(ndocid, 1, "");
doc_printline(ndocid, 1, "Безымянный");
lehmar_geldgeliehen = false;
};
doc_printline(ndocid, 1, "");
doc_printlines(ndocid, 1, "");
doc_show(ndocid);
};