archives/gates_of_skeldal
2
0
Fork 0
mirror of https://github.com/ondra-novak/gates_of_skeldal.git synced 2025-07-15 18:56:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions
gates_of_skeldal/game/kniha.c
Ondřej Novák 1b0f7fe0c2 game folder "just" compiles (not link)
2025-01-25 13:08:41 +01:00

715 lines
14 KiB
C
Raw Blame History

#include <skeldal_win.h>
/*
Popis jazyka pro psani textu do knihy
[cislo]
.... text
....
[/cislo]
Tagy
<P> paragraph
<BR> break line
<IMG SRC="filename" ALIGN=/left,right,center/>
<HR> horizontal rule
<EP> page end
-----------------------------
Vnitrni zapis
Escape sekvence
ESC s <vynechat> - mezera n bodu
ESC p <filename> <x> <y> obrazek na souradnicich x a y
ESC e - konec stranky (jako prvni v textu)
ESC h - horizontalni rule (jako prvni v textu)
ESC l <skip> - konec radky (skip je pocet vynechanych bodu)
Zapis cisla - to je hexa cislo od 1-255 pokud se nevejde do rozsahu je po 256
pridana dalsi hodnota, tj 255 se zapise jako 255,1,
350 se zapise jako 255,96,
*/
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <string.h>
#include <strlite.h>
#include <bgraph.h>
#include <memman.h>
#include <event.h>
#include "globals.h"
#define XMAX 254
#define YMAX 390
#define XLEFT 34
#define YLEFT 50
#define XRIGHT 354
#define PARAGRAPH "P"
#define BREAKLINE "BR"
#define IMAGE "IMG"
#define HOR_RULE "HR"
#define CENTER1 "CENTER"
#define CENTER2 "/CENTER"
#define DISTEND1 "DISTEND"
#define DISTEND2 "/DISTEND"
#define ALIGN "ALIGN"
#define PIC_LINE "LINE"
#define PIC_LSIZ "LSIZE"
#define SRC "SRC"
#define ALEFT "LEFT"
#define ARIGHT "RIGHT"
#define ACENTER "CENTER"
#define ANUM_LEFT 1
#define ANUM_RIGHT 2
#define ANUM_CENTER 0
#define END_PAGE 'e'
#define SPACE 's'
#define PICTURE 'p'
#define HRUL 'h'
#define END_LINE 'l'
#define BOOK_FILE "_BOOK.TMP"
static int center=0;
static int distend=0;
static TSTR_LIST all_text=NULL;
static char read_buff[256];
static char write_buff[256];
static int buff_pos=0;
static int buff_end=0;
static int total_width=XMAX;
static int left_skip=0;
static int linepos=0,last_skip=1;
static int picture_len=0;
static char winconv=0;
static int relpos=0;
//static char xlat_table[128]="<22>__<5F><5F>_____<5F>_____<5F>__<5F><5F>__________________________________<5F>___<5F>__<5F><5F>__<5F><5F>_<EFBFBD>__<5F><5F>____<5F><5F><EFBFBD>__<5F>___<5F>___<5F>__<5F><5F>__<5F><5F>_<EFBFBD>__<5F><5F>____<5F><5F><EFBFBD>__<5F>";
static char xlat_table[128] = {
0x9b, 0x5f, 0x5f, 0x86, 0x92, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0xad, 0x5f,
0x5f, 0x5f, 0x5f, 0x5f, 0xa8, 0x5f, 0x5f, 0x9f, 0x91, 0x5f, 0x5f, 0x5f,
0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f,
0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f,
0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x5f, 0x8f, 0x5f, 0x5f, 0x5f, 0x8a,
0x5f, 0x5f, 0x80, 0x90, 0x5f, 0x5f, 0x89, 0x8b, 0x5f, 0x85, 0x5f, 0x5f,
0xa5, 0x95, 0x5f, 0x5f, 0x5f, 0x5f, 0x9e, 0xa6, 0x97, 0x5f, 0x5f, 0x9d,
0x5f, 0x5f, 0x5f, 0xa0, 0x5f, 0x5f, 0x5f, 0x8d, 0x5f, 0x5f, 0x87, 0x82,
0x5f, 0x5f, 0x88, 0xa1, 0x5f, 0x83, 0x5f, 0x5f, 0xa4, 0xa2, 0x5f, 0x5f,
0x5f, 0x5f, 0xa9, 0x96, 0xa3, 0x5f, 0x5f, 0x98, 0x0a
};
static int insert_num(char *text,int pos,int num)
{
char c=0x80;
do
{
c=num & 0x3f;num>>=6;
if (num) c|=0x80;
c|=0x40;
text[pos++]=c;
}
while (num);
return pos;
}
static int read_num(char *text,int *pos)
{
int num=0,shift=0;
char c;
do
{
c=text[pos[0]++];
num|=(c & 0x3f)<<shift;
shift+=6;
}
while (c & 0x80);
return num;
}
static void next_line(int step)
{
linepos+=step;
if (linepos>YMAX)
{
char s[3];
s[0]=27;
s[1]=END_PAGE;
s[2]=0;
str_add(&all_text,s);
linepos=0;
picture_len=-1;
}
last_skip=step;
}
static int insert_end_line_and_save(int p,int ys)
{
int size;
while (read_buff[buff_pos]==' ' && buff_pos<buff_end) buff_pos++;
size=buff_end-buff_pos;
if (size)memcpy(read_buff,read_buff+buff_pos,size);
write_buff[p++]=27;
write_buff[p++]=END_LINE;
p=insert_num(write_buff,p,ys);
write_buff[p++]=0;
str_add(&all_text,write_buff);
buff_pos=size;
buff_end=buff_pos;
if (picture_len>0) picture_len-=ys;
if (picture_len<=0 && total_width!=XMAX)
{
picture_len=0;
total_width=XMAX;
left_skip=0;
}
return p;
}
static int insert_left_skip(int p,int skip)
{
skip+=left_skip;
if (skip)
{
write_buff[p++]=27;
write_buff[p++]=SPACE;
p=insert_num(write_buff,p,skip);
}
return p;
}
static void save_line_oboustrane()
{
char space[]=" ";
int xs,ys,ss,mez,mm=0,mc=0;
int i,p;
for(i=0,xs=0,mez=0,ys=0;i<buff_pos;i++)
{
space[0]=read_buff[i];
if (space[0]==32) mez++;else
{
xs+=text_width(space);
p=text_height(space);
if (p>ys) ys=p;
}
}
ss=total_width-xs;
p=0;
if (!ys) ys=last_skip;
next_line(ys);
p=insert_left_skip(p,0);
for(i=0,mc=0;i<buff_pos;i++)
{
if (read_buff[i]==32)
{
int sp;
write_buff[p++]=27;
write_buff[p++]=SPACE;
mc++;
sp=ss*(mc)/mez;
p=insert_num(write_buff,p,sp-mm);
mm=sp;
}
else write_buff[p++]=read_buff[i];
}
insert_end_line_and_save(p,ys);
}
static void save_line_center()
{
char space[]=" ";
int xs,ys,ss;
int i,p;
for(i=0,xs=0,ys=0;i<buff_pos;i++)
{
space[0]=read_buff[i];
xs+=text_width(space);
p=text_height(space);
if (p>ys) ys=p;
}
p=0;
if (!ys) ys=last_skip;
next_line(ys);
ss=total_width-xs;
p=insert_left_skip(p,ss/2);
memcpy(write_buff+p,read_buff,buff_pos);
p+=buff_pos;
write_buff[p]=0;
insert_end_line_and_save(p,ys);
}
static void save_line_left()
{
int p,z;
int ys;
p=0;
p=insert_left_skip(p,0);z=p;
if (buff_pos) memcpy(write_buff+p,read_buff,buff_pos);
p+=buff_pos;
write_buff[p]=0;
ys=text_height(write_buff+z);
if (!ys) ys=last_skip;
next_line(ys);
insert_end_line_and_save(p,ys);
}
static void save_buffer()
{
while (buff_end>buff_pos && read_buff[buff_end]==32) buff_end--;
if (center) save_line_center();
else if (buff_pos==buff_end || !distend) save_line_left(); else save_line_oboustrane();
}
static void break_line()
{
buff_pos=buff_end;
save_buffer();
}
static char read_set(FILE *txt,char *var,char *set)
{
int c;
char *cc;
char d;
fscanf(txt,"%[^=]%c",var,&d);
do
c=fgetc(txt);
while (c<33);
if (c=='"') fscanf(txt,"%[^\"]%c%c",set,&d,&d);
else if (c=='\'') fscanf(txt,"%[^']%c%c",set,&d,&d);
else
{
ungetc(c,txt);
fscanf(txt,"%[^> ]%c",set,&d);
}
while(c<33 && c!=EOF) c=fgetc(txt);
if (c!='>') ungetc(c,txt);
cc=strchr(var,0);
while (cc!=var)
{
cc--;
if (*cc>32)
{
cc++;
break;
}
}
*cc=0;
strupr(set);
strupr(var);
return c;
}
static int get_data_handle(char *filename,void *dec)
{
int i;
i=find_handle(filename,dec);
if (i==-1)
{
i=end_ptr++;
def_handle(i,filename,dec,SR_DIALOGS);
}
return i;
}
static void insert_picture(char *filename,int align,int line,int lsize)
{
int x, y;
short *psiz;
char *c=write_buff;
psiz=ablock(get_data_handle(filename,pcx_8bit_decomp));
switch (align)
{
case ANUM_CENTER:
x=(XMAX-psiz[0])/2;
y=linepos;
linepos+=psiz[1];
*c++=27;
*c++=END_LINE;
c+=insert_num(c,0,psiz[1]+last_skip);
break;
case ANUM_LEFT: x=0;
y=linepos;
left_skip=psiz[0]+5;
total_width=XMAX-left_skip;
break;
case ANUM_RIGHT: total_width=(x=XMAX-psiz[0])-5;
left_skip=0;
y=linepos;
break;
}
if (!lsize) lsize=psiz[1]-line;
picture_len=lsize;
*c++=27;
*c++=PICTURE;
while (*filename) *c++=*filename++;
*c++=':';
c+=insert_num(c,0,x);
c+=insert_num(c,0,y);
c+=insert_num(c,0,line);
c+=insert_num(c,0,lsize);
*c++=0;
str_add(&all_text,write_buff);
}
static char read_tag(FILE *txt)
{
char c,var[256],set[256];
int i;
i=fscanf(txt,"%[^> ] %c",var,&c);
while(c<33 && i!=EOF) c=i=fgetc(txt);
if (c!='>') ungetc(c,txt);
strupr(var);
if (!strcmp(var,PARAGRAPH))
{
break_line();
break_line();
return 1;
}
if (!strcmp(var,BREAKLINE))
{
break_line();
return 1;
}
if (!strcmp(var,IMAGE))
{
char pic_name[50]=" ";
char alig=0;
int line=0,lsize=0;
while (c!='>')
{
c=read_set(txt,var,set);
if (!strcmp(var,SRC)) strncpy(pic_name,set,49);
else if (!strcmp(var,ALIGN))
{
if (!strcmp(set,ALEFT)) alig=1;
else if (!strcmp(set,ARIGHT)) alig=2;
else if (!strcmp(set,ACENTER)) alig=0;
}
else if (!strcmp(var,PIC_LINE)) sscanf(set,"%d",&line);
else if (!strcmp(var,PIC_LSIZ)) sscanf(set,"%d",&lsize);
}
if (pic_name[0]!=0)
insert_picture(pic_name,alig,line,lsize);
return 0;
}
if (!strcmp(var,CENTER1)) center++;
else if (!strcmp(var,CENTER2))
{
if (center>0) center--;
}
else if (!strcmp(var,DISTEND1)) distend++;
else if (!strcmp(var,DISTEND2))
{
if (distend>0) distend--;
}
return 0;
}
static char skip_section(FILE *txt)
{
int c;
char end=1;
c=fgetc(txt);
while (c!=']' && c!=EOF)
{
c=fgetc(txt);
end=0;
}
if (c==EOF) end=1;
return end;
}
void prekodovat(char *c)
{
while (*c)
{
if (*c>137) *c=xlat_table[*c-138];
c++;
}
}
static void read_text(FILE *txt)
{
int i;
int xs;
char ss[2]=" ";
char wsp=1;
buff_pos=0;
buff_end=0;
xs=0;
do
{
i=fgetc(txt);
if (i==EOF) break;
if (i<32) i=32;
if (i=='<')
{
if (read_tag(txt))
{
xs=0;
wsp=1;
}
continue;
}
if (i=='[')
{
if (skip_section(txt)) break;
continue;
}
if (i==32)
{
if (wsp) continue;
buff_pos=buff_end;
wsp=1;
}
else wsp=0;
if (i=='&') i=fgetc(txt);
if (winconv && i>137) i=xlat_table[i-138];
ss[0]=i;
xs+=text_width(ss);
read_buff[buff_end++]=i;
if (xs>total_width && !wsp)
{
save_buffer();
read_buff[buff_end]=0;
xs=text_width(read_buff);
}
}
while (1);
}
void seek_section(FILE *txt,int sect_number)
{
int c=0,i;
winconv=0;
do
{
while (c!='[' && c!=EOF) c=fgetc(txt);
if (c=='[')
{
i=-2;
fscanf(txt,"%d",&i);
if (i==sect_number)
{
c=fgetc(txt);
while(c!=']')
{
if (c=='W' || c=='w') winconv=1;
if (c=='K' || c=='k') winconv=0;
c=fgetc(txt);
}
return;
}
}
c=0;
}
while (i!=EOF);
closemode();
{
char buff[256];
sprintf(buff,"Nemohu najit odstavec s cislem %d.",sect_number);
display_error(buff);
}
exit(1);
}
void add_text_to_book(char *filename,int odst)
{
FILE *txt;
ENCFILE fl;
set_font(H_FKNIHA,NOSHADOW(0));
if (all_text==NULL) all_text=create_list(256);
txt=enc_open(filename,&fl);
if (txt==NULL) return;
seek_section(txt,odst);
read_text(txt);
next_line(1000);
enc_close(&fl);
}
static char *displ_picture(char *c)
{
char *d;
int x,y,hn,z,ln,sl;
short *sh;
d=write_buff;
while (*c!=':') *d++=*c++;
*d++=0;c++;
hn=get_data_handle(write_buff,pcx_8bit_decomp);
x=read_num(c,(z=0,&z));c+=z;
y=read_num(c,(z=0,&z));c+=z;
ln=read_num(c,(z=0,&z));c+=z;
sl=read_num(c,(z=0,&z));c+=z;
sh=ablock(hn);
if (sh[1]+y>YMAX) return c;
y+=YLEFT;
x+=relpos;
put_8bit_clipped(sh,GetScreenAdr()+x+scr_linelen2*y,ln,sh[0],sl);
return c;
}
void write_book(int page)
{
int i=0,y=0,z,zz,ps,pg;
char *c;
char space[]=" ";
pg=page;
if (all_text==NULL) return;
set_font(H_FKNIHA,NOSHADOW(0));
relpos=XLEFT;
zz=str_count(all_text);
if (--page)
for(i=0;i<zz && page;i++)
{
c=all_text[i];
if (c!=NULL && c[0]==27 && c[1]==END_PAGE) page--;
}
if (page) return;
for(ps=0;ps<2;ps++)
{
position(relpos,YLEFT+y);
do
{
if (i>zz) break;
c=all_text[i];
if (c==NULL) break;
if (c[0]==27 && c[1]==END_PAGE) break;
while (*c)
{
z=0;
if (*c==27)
{
c++;
switch (*c++)
{
case SPACE:
rel_position_x(read_num(c,&z));
c+=z;
break;
case END_LINE:
y+=read_num(c,&z);
position(relpos,YLEFT+y);
c+=z;
break;
case PICTURE:
c=displ_picture(c);
break;
}
}
else
{
space[0]=*c++;
outtext(space);
}
}
i++;
}
while (1);
i++;y=0;
relpos=XRIGHT;
if (ps==0)
{
char s[20];
sprintf(s,texty[135],pg);
set_aligned_position(XLEFT,YLEFT+YMAX,0,0,s);
outtext(s);
}
if (ps==1)
{
char s[20];
sprintf(s,texty[136],pg+1);
set_aligned_position(XRIGHT+XMAX,YLEFT+YMAX,2,0,s);
outtext(s);
}
}
}
int count_pages()
{
int i,cn,z;
char *c;
if (all_text==NULL) return 0;
z=str_count(all_text);
for(i=0,cn=0;i<z;i++)
{
c=all_text[i];
if (c!=NULL && c[0]==27 && c[1]==END_PAGE) cn++;
}
return cn;
}
void save_book()
{
char *c;
FILE *f;
int i,ss;
char *tx;
if (all_text==NULL) return;
concat(c,pathtable[SR_TEMP],BOOK_FILE);
f=fopen(c,"w");if (f==NULL) return;
i=0;
ss=str_count(all_text);
while (i<ss && (tx=all_text[i++])!=NULL)
{
fputs(tx,f);
fputc('\n',f);
}
fclose(f);
}
void load_book()
{
char *c;
FILE *f;
char tx[512];
if (all_text!=NULL) release_list(all_text);
all_text=NULL;
concat(c,pathtable[SR_TEMP],BOOK_FILE);
f=fopen(c,"r");if (f==NULL) return;
all_text=create_list(256);
while (fgets(tx,510,f)!=NULL)
{
char *c;
c=strchr(tx,0);c--;*c=0;
str_add(&all_text,tx);
}
fclose(f);
}
Reference in a new issue View git blame Copy permalink