#include <platform/platform.h>

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>

#include <libs/pcx.h>
#include <libs/types.h>
#include <libs/bgraph.h>
#include <libs/event.h>
#include <libs/devices.h>
#include <libs/bmouse.h>
#include <libs/memman.h>
#include <platform/sound.h>
#include <libs/strlite.h>
#include <ctype.h>
#include <libs/gui.h>
#include <libs/basicobj.h>
#include <time.h>
#include <libs/mgfplay.h>
#include <libs/wav.h>
#include <fcntl.h>
#include "globals.h"
#include "engine1.h"
#include <stdarg.h>


#define MES_MAXSIZE 500
#define CHECK_BOX_ANIM 6

static char shadow_enabled=1;

word color_topbar[7]={0,RGB555(22,14,4),RGB555(24,16,6),RGB555(25,17,7)};

int input_txtr=H_LOADTXTR;

void create_frame(int x,int y,int xs,int ys,char clear)
   {
   word *line;
   word *col;
   int i;
   int32_t scr_linelen2 = GetScreenPitch();


   x-=VEL_RAMEC;
   y-=VEL_RAMEC;
   xs=(xs+VEL_RAMEC-1)/VEL_RAMEC+1;
   ys=(ys+VEL_RAMEC-1)/VEL_RAMEC+1;
   line=GetScreenAdr()+y*scr_linelen2+x;
   col=line;
   put_8bit_clipped(ablock(H_RAMECEK),col,0,VEL_RAMEC,VEL_RAMEC);col+=VEL_RAMEC;
   for(i=1;i<xs;i++)
     {
     put_8bit_clipped(ablock(H_RAMECEK),col,VEL_RAMEC,VEL_RAMEC,VEL_RAMEC);col+=VEL_RAMEC;
     }
  put_8bit_clipped(ablock(H_RAMECEK),col,VEL_RAMEC*2,VEL_RAMEC,VEL_RAMEC);
  line+=scr_linelen2*VEL_RAMEC;
  for(i=1;i<ys;i++)
     {
     put_8bit_clipped(ablock(H_RAMECEK),line,VEL_RAMEC*3,VEL_RAMEC,VEL_RAMEC);
     put_8bit_clipped(ablock(H_RAMECEK),line+VEL_RAMEC*xs,VEL_RAMEC*4,VEL_RAMEC,VEL_RAMEC);
     line+=scr_linelen2*VEL_RAMEC;
     }
  col=line;
  put_8bit_clipped(ablock(H_RAMECEK),col,VEL_RAMEC*5,VEL_RAMEC,VEL_RAMEC);col+=VEL_RAMEC;
  for(i=1;i<xs;i++)
     {
     put_8bit_clipped(ablock(H_RAMECEK),col,VEL_RAMEC*6,VEL_RAMEC,VEL_RAMEC);col+=VEL_RAMEC;
     }
  put_8bit_clipped(ablock(H_RAMECEK),col,VEL_RAMEC*7,VEL_RAMEC,VEL_RAMEC);
  if (clear)
     {
     curcolor=COL_RAMEC;
     x+=VEL_RAMEC;y+=VEL_RAMEC;
     xs=(xs-1)*VEL_RAMEC;
     ys=(ys-1)*VEL_RAMEC;
     bar32(x,y,x+xs-1,y+ys-1);
     }
  }


void show_textured_button(int x,int y,int xs,int ys,int texture,CTL3D *border3d)
  {
  int i;i=0;
  if (texture) put_textured_bar(ablock(texture),x,y,xs,ys,border3d->light,border3d->shadow);

  for(i=border3d->bsize-1;i>=0;i--)
     if (border3d->ctldef & (1<<i))
        {
        trans_line_x(x+i,y+i,xs-(i<<1),0);
        trans_line_x(x+i,y+ys-i-1,xs-(i<<1),RGB555(31,31,31));
        trans_line_y(x+i,y+i,ys-(i<<1),0);
        trans_line_y(x+xs-i-1,y+i,ys-(i<<1),RGB555(31,31,31));
        }
     else
        {
        trans_line_x(x+i,y+i,xs-(i<<1),RGB555(31,31,31));
        trans_line_x(x+i,y+ys-i-1,xs-(i<<1),0);
        trans_line_y(x+i,y+i,ys-(i<<1),RGB555(31,31,31));
        trans_line_y(x+xs-i-1,y+i,ys-(i<<1),0);
        }

  }
void show_textured_win(struct window *w)
  {
  show_textured_button(w->x,w->y,w->xs-10,w->ys-10,w->color,&w->border3d);
  if (shadow_enabled)
    {
    trans_bar((w->x+10),w->y+w->ys-10,(w->xs-10),10,0);
    trans_bar(w->x+w->xs-10,w->y+10,10,w->ys-20,0);
    }
  else shadow_enabled=1;
  }

void add_window(int x,int y,int xs,int ys,int texture,int border,int txtx,int txty)
  {
  CTL3D wb;
  WINDOW *p;

  xs&=~1;
  wb.bsize=abs(border);
  wb.ctldef=-1*(border<0);
  wb.light=txtx;
  wb.shadow=txty;
  p=create_window(x,y,xs,ys,texture,&wb);
  p->draw_event=show_textured_win;
  desktop_add_window(p);

  }


void zalamovani(const char *source,char *target,int maxxs,int *xs,int *ys)
  {
  strcpy(target,source);
  char *x = target;
  while (*x) {
      if (*x == '\n') *x = 0;
      ++x;
  }
  ++x;
  *x = 0;
  xs[0]=0;
  ys[0]=0;
  x = target;
  while (*x) {
      char *nextx = x + strlen(x)+1;
      if ((xs[0]=text_width(x))>maxxs)
         {
         char c[2]=" ";
         char *ls,*ps,*cs;
         int sum;

         cs=ps=x;
         do
            {
            ls=NULL;
            sum=0;
            while (sum<maxxs || ls==NULL)
               {
               c[0]=*ps++;
               if (c[0]==0) {ls=NULL;break;}
               if (c[0]==32) ls=ps-1;
               if (c[0]=='\n') {ls = ps-1;break;}
               sum+=text_width(c);
               }
            if (ls!=NULL)
               {
               *ls=0;
               ps=ls+1;ls=NULL;
               }
            ys[0]+=text_height(cs);
            cs=ps;
            }
         while (c[0]);
         xs[0]=maxxs;
         }
      else
         {
         ys[0]+=text_height(x);
         }
      x = nextx;
  }

  }

static T_CLK_MAP message_win[]=
  {
  {-1,0,0,0,0,NULL,0,H_MS_DEFAULT},
  {-1,0,0,639,479,empty_clk,0xff,H_MS_DEFAULT},
  };

#define MSG_COLOR1 (RGB555(30,30,23))
#define MSG_COLOR_T -2,RGB555_ALPHA(0,0,0),RGB555(24,31,24),RGB555(24,31,24),RGB555(24,31,24),RGB555(24,31,24)

void open_message_win(int pocet_textu,char **texts)
  {
  int maxxs;
  int maxys,maxws,wscelk,wsx,wsy,wsys,y;
  int x1,y1,x2,y2;
  int i;
  char *text;

  set_font(H_FBOLD,MSG_COLOR_T);
  text=alloca(strlen(texts[0])+2);
  zalamovani(texts[0],text,MES_MAXSIZE,&maxxs,&maxys);
  maxws=0;wsys=0;
  for(i=1;i<pocet_textu;i++)
     {
     int z1=text_width(texts[i]);
     int z2=text_height(texts[i]);
     if (z1>maxws) maxws=z1;
     if (z2>wsys) wsys=z2;
     }
  maxws+=10;
  if (maxws<50) maxws=50;
  wscelk=(pocet_textu-1)*(maxws+20);
  if (wscelk>maxxs) maxxs=wscelk;
  wsy=10+wsys;
  maxys+=wsy+40;
  if (maxys<50) maxys=50;
  maxxs+=20;
  add_window(x1=320-(maxxs>>1),y1=180-(maxys>>1),x2=maxxs+10,y2=maxys+10,H_WINTXTR,2,0,0);
  message_win[0].xlu=x1; message_win[0].ylu=y1; message_win[0].xrb=x1+x2;message_win[0].yrb=y1+y2;
  change_click_map(message_win,2);
  set_window_modal();
  y=10;
  while (text[0])
     {
     define(-1,10,y,1,1,0,label,text);
     y+=text_height(text);
     text=strchr(text,0)+1;
     }
  wsx=(maxxs-wscelk)>>1;
  for(i=1;i<pocet_textu;i++)
     {
     define(i-1,wsx+10,wsy,maxws+10,wsys+10,3,button,texts[i]);
     property(def_border(5,BAR_COLOR),curfont,flat_color(MSG_COLOR1),BAR_COLOR);
     on_control_change(terminate_gui);
     wsx+=maxws+20;
     }
  redraw_window();
  }

static char default_action,cancel_action;

static void message_mouse(EVENT_MSG *msg,void **user_ptr) {
    if (msg->msg == E_MOUSE) {
        const MS_EVENT * msev = va_arg(msg->data, MS_EVENT *);
        if (msev->event_type & MS_EVENT_MOUSE_RPRESS) {
             goto_control(cancel_action);
             terminate_gui();
             msg->msg = -1;
        }
    }
}


void message_keyboard(EVENT_MSG *msg,void **user_ptr)
  {
    char *c;
    char *d;
  switch(msg->msg)
     {
     case E_INIT:
         c = va_arg(msg->data, char *);
         d = NewArr(char, strlen(c)+1);
         strcpy(d, c);
         *user_ptr = d;
         break;

     case E_DONE:c = *user_ptr;
                 free(c);
                 *user_ptr = NULL;
                 break;
     case E_KEYBOARD:
                 {
                 char *keys=*(char **)(user_ptr);
                 char code,*p;
                 int key;

                 code=va_arg(msg->data, int);
                 if (code==0) return;
                 code=toupper(code);
                 if (code==13) key=default_action;
                 else if (code==27) key=cancel_action;
                 else if ((p=strchr(keys,code))!=NULL) key=p-keys;
                 else key=-1;
                 if (key!=-1)
                    {
                    goto_control(key);
                    terminate_gui();
                    }
                 }
     }
  }

int message(int butts,char def,char canc,char *keys,...)
  {
  int id;
  void *clksav;int clksav2;

  default_action=def;
  cancel_action=canc;
  mute_all_tracks(0);
  unwire_proc();
  save_click_map(&clksav,&clksav2);
  change_click_map(NULL,0);
  va_list args;
  va_start(args, keys);
  char **texts = (char **)alloca((butts+1)*sizeof(char *));
  for (int i = 0; i < butts+1; ++i) {
      texts[i] = va_arg(args,char *);
  }
  open_message_win(butts+1,texts);
  send_message(E_ADD,E_KEYBOARD,message_keyboard,keys);
  send_message(E_ADD,E_MOUSE,message_mouse);
  escape();
  id=o_aktual?o_aktual->id:0;
  send_message(E_DONE,E_KEYBOARD,message_keyboard,keys);
  send_message(E_DONE,E_MOUSE,message_mouse);
  close_current();
  restore_click_map(clksav,clksav2);
  return id;
  }

//------------------

void type_text(EVENT_MSG *msg,void **data)
  {
  static int x,y;
  static char text[255];
  static uint8_t index;
  static char *source;
  static int max_size,max_chars;

  data;
  if (msg->msg==E_INIT)
     {
//     int *p;
     char *c;

     set_font(H_FBOLD,RGB555(31,31,31));
     x=va_arg(msg->data, int);
     y=va_arg(msg->data, int);
     c=va_arg(msg->data, char *);
     max_size=va_arg(msg->data,int);
     max_chars=va_arg(msg->data, int);
     strcpy(text,c);
     source=c;
     index=strchr(text,0)-text;
     strcat(text,"_");
        schovej_mysku();
        put_textured_bar(ablock(input_txtr),x,y,max_size,text_height(text),0,0);
        position(x,y);outtext(text);
        ukaz_mysku();
        showview(x,y,max_size,20);
     }
  else
  if (msg->msg==E_MOUSE)
     {
     MS_EVENT *ms;

     ms=get_mouse(msg);
     if (ms->event_type & 0x8) send_message(E_KEYBOARD,27);
     if (ms->event_type & 0x2) send_message(E_KEYBOARD,13);
     }
  else if (msg->msg==E_KEYBOARD)
     {
     char c = va_arg(msg->data, int);

     set_font(H_FBOLD,RGB555(31,31,31));
     if (c)
        {
        switch (c)
           {
           case 8:if (index) index--; text[index]='_';text[index+1]=0;break;
           case 13:text[index]=0;strcpy(source,text);
                   send_message(E_DONE,E_MOUSE,type_text);
                   send_message(E_DONE,E_KEYBOARD,type_text);
                   break;
           case 27:send_message(E_DONE,E_MOUSE,type_text);
                   send_message(E_DONE,E_KEYBOARD,type_text);
                   return;
           default:if (c>=32)
              {
              text[index]=c;index++;
              text[index]='_';
              text[index+1]=0;
              if (text_width(text)>max_size || strlen(text)>(unsigned)max_chars) text[--index]=0;
              }
           }
        schovej_mysku();
        put_textured_bar(ablock(input_txtr),x,y,max_size,text_height(text),0,0);
        position(x,y);outtext(text);
        ukaz_mysku();
        showview(x,y,max_size,20);
        }
     msg->msg=-1;
     }
  }

#define COL_SIZE 776

typedef void (*type_text_exit_proc)(char);

void type_text_v2(va_list args)
//rutina je pro vstup radky, po ukonceni zavola proceduru exit_proc pokud uzivatel stiskne ENTER
//volat jako task
//#pragma aux type_text_v2 parm []
  {
  char *text_buffer=va_arg(args,char *);
  int x=va_arg(args,int);
  int y=va_arg(args,int);
  int max_size=va_arg(args,int);
  int max_chars=va_arg(args,int);
  int font=va_arg(args,int);
  int color=va_arg(args,int);
  type_text_exit_proc exit_proc=va_arg(args,type_text_exit_proc);

  int xs,ys,tw;
  char *text;
  uint8_t pos,len;
  char wait_loop=1,ok=0,edit=0;
  short *back_pic;
  int i;

  task_sleep();
  schovej_mysku();
  set_font(font,color);
  xs=max_size+text_width("_");
  if (max_chars<257) text=alloca(257); else text=alloca(max_chars);
  for(i=0;i<255;i++) text[i]=i+1;
  text[i]=0;ys=text_height(text)+5;
  strcpy(text,text_buffer);
  back_pic=getmem(xs*ys*2+6);
  get_picture(x,y,xs,ys,back_pic);
  pos=strlen(text);
  len=pos;
  tw=text_width(text);
  do
     {
     char sz[2]=" ";
     word znak,px;

     put_picture(x,y,back_pic);
     position(x,y);
     set_font(font,color);
     outtext(text);
     sz[0]=text[pos];text[pos]=0;
     px=text_width(text);text[pos]=sz[0];
     position(px+x,y+3);outtext("_");
     ukaz_mysku();
     showview(x,y,xs,ys);

     EVENT_MSG *ev= task_wait_event(E_KEYBOARD); //proces bude cekat na klavesu
     znak=ev?va_arg(ev->data, int):27;
     schovej_mysku();
     if (task_quitmsg()==1) znak=27;
     switch(znak & 0xff)
        {
        case 8:if (pos>0)
                 {
                 pos--;
                 memmove(text+pos,text+pos+1, strlen(text+pos+1)+1);
                 len--;
                 }
              break;
        case 13:strcpy(text_buffer,text);
                 ok=1;
                 wait_loop=0;
                 break;
        case 27:wait_loop=0;
                break;
        case 0:switch(znak>>8)
                {
                case 'K': if (pos>0) pos--;break;
                case 'M': if (pos<len) pos++;break;
                case 'G':pos=0;break;
                case 'O':pos=len;break;
                case 'S':if (len>pos)
                             {
                             strcpy(text+pos,text+pos+1);
                             len--;
                             }
                          break;
                case 't':while (pos<len)
                          {
                          pos++;
                          if (text[pos]==' ') break;
                          }
                         break;
                case 's':while(pos>0)
                          {
                          pos--;
                          if (text[pos]==' ') break;
                          }
                         break;
                }
                break;
        default:sz[0]=znak & 0xff;
                if (edit)
                 {
                 if (sz[0]<32 || tw+text_width(sz)>max_size || len>=max_chars) break;
                 memmove(&text[pos+1],&text[pos],len-pos+1);
                 text[pos]=sz[0];
                 len++;
                 pos++;
                 }
                else
                 {
                 text[0]=sz[0];
                 text[1]=0;
                 len=1;
                 pos=1;
                 }
                break;
        }
     tw=text_width(text);
     edit=1;
     }
  while (wait_loop);
  put_picture(x,y,back_pic);
  position(x,y);
  set_font(font,color);
  outtext(text);
  ukaz_mysku();
  showview(x,y,xs,ys);
  free(back_pic);
  exit_proc(ok);
  }


const void *col_load(const void *data, int32_t *size, int h)
  {
  int siz=*size;
  char *s;
  const char *c;
  int palcount;
  int i;//,j,k;

  palcount=siz/COL_SIZE;
  *size=PIC_FADE_PAL_SIZE*palcount;
  s=getmem(*size);
  c=data;c+=8;
  for(i=0;i<palcount;i++,c+=COL_SIZE) {
     palette_shadow(c,(void *)(&s[i*PIC_FADE_PAL_SIZE]),mglob.fade_r,mglob.fade_g,mglob.fade_b);
  }
    return s;
  }


#define Hi(x) ((x)>>16)
#define Lo(x) ((x)& 0xffff)


char labyrinth_find_path(word start,word konec,int flag,char (*proc)(word, void *),word **cesta, void *ctx)
  {
  longint *stack;
  longint *stk_free;
  longint *stk_cur;
  char *ok_flags;
  char vysl;

  if (cesta!=NULL) *cesta=NULL;
  stk_free=stk_cur=stack=getmem(4*(mapsize+2));
  memset(ok_flags=getmem((mapsize+8)/8),0,(mapsize+8)/8);
  ok_flags[start>>3]|=1<<(start & 0x7);
  for(*stk_free++=start;stk_free!=stk_cur;stk_cur++)
     {
     uint8_t i;word s=0,d=0,ss=0;
     s=(ss=Lo(*stk_cur))<<2;
     for(i=0;i<4;i++) if (!(map_sides[s+i].flags & flag))
        {
        char c;
        word w;
        d=map_sectors[ss].step_next[i];
        c=1<<(d & 0x7);
        w=d>>3;
        if (!(ok_flags[w] & c) && (proc==NULL || proc(d, ctx)))
           {
           ok_flags[w]|=c;
          *stk_free++=d | ((stk_cur-stack)<<16);
           }
        if (d==konec) break;
        }
     if (d==konec) break;
     }
  vysl=0;
  if (stk_free!=stk_cur)
     {
     if (cesta!=NULL)
        {
        int count=0;
        longint *p,*z;
        word *x;

        z=p=stk_free-1;
        while (Lo(*p)!=start)
          {
          int l;
          count++;
          l=*p;
          p=Hi(l)+stack;
          *z--=Lo(l);
          }
        x=*cesta=getmem(count*2+2);
        z++;
        while (count--)
           {
           *x++=(word)*z++;
           }
        *x++=0;
        }
     vysl=1;
     }
  free(stack);
  free(ok_flags);
  return vysl;
  }

typedef struct radio_butt_data
  {
  void *picture;
  char *texty;
  }TRADIO_BUTT_DATA;

static void radio_butts_init(OBJREC *o,va_list params)
  {
  char *c,*z;
  int32_t cnt=0,*q,*zz;
  int i;
  TRADIO_BUTT_DATA *rd;

  va_list d;
  va_copy(d, params);
  int count = va_arg(d, int);
  for (i=0;i<count;i++)
     {
     c=va_arg(d, char *);
     cnt+=strlen(c);cnt++;
     }
  rd=New(TRADIO_BUTT_DATA);
  o->userptr=(void *)rd;
  zz=q=(int32_t *)getmem(cnt+8);
  *q++=1;*q++=count;
  va_end(d);
  va_copy(d, params);
  z=(char *)q;
  for (i=0;i<count;i++)
     {
     c=va_arg(d, char *);
     strcpy(z,c);
     z=strchr(z,'\0');z++;
     }
  rd->picture=NULL;
  rd->texty=(char *)zz;
  }

static void radio_butts_draw(int x1,int y1,int x2,int y2,OBJREC *o)
  {
  int step,size,sizpul,i;
  int32_t *params;
  char *texts;
  CTL3D *clt;
  TRADIO_BUTT_DATA *rd;

  x2;
  rd=(TRADIO_BUTT_DATA *)o->userptr;
  params=(int32_t *)rd->texty;
  step=(y2-y1)/(*(params+1));
  size=(step*9)/10;
  sizpul=size>>1;
  if (rd->picture==NULL)
     {
     rd->picture=NewArr(short,3+(size)*(y2-y1));
     get_picture(x1,y1,size,y2-y1,rd->picture);
     }
  else
     put_picture(x1,y1,rd->picture);

  texts=(char *)(params+2);
  clt=def_border(5,curcolor);
  for (i=0;i<*(params+1);i++,y1+=step)
     {
     if (*(int32_t *)o->data==i)
        {
        int xx1=x1+2,yy1=y1+1,xx2=x1+size-2,yy2=y1+size-3,xxs=(xx1+xx2)>>1,yys=(yy1+yy2)>>1;
        curcolor=0x0;
        line32(xx2+1,yy1+2,xxs+2,yy2+2);
        line32(xx1+1,yys+2,xxs+1,yy2+2);
        curcolor=RGB555(31,31,31);
        line32(xx2,yy1+1,xxs+1,yy2+1);
        line32(xx1,yys+1,xxs,yy2+1);
        line32(xx2,yy1,xxs+1,yy2);
        line32(xx1,yys,xxs,yy2);
        }
     draw_border(x1+1,y1+1,size-2,size-2,clt);
     if (*params)
        {
        set_aligned_position(x1+size+5,y1+sizpul,0,1,texts);
        outtext(texts);
        texts=strchr(texts,'\0')+1;
        }
     }
  }

static void radio_butts_event(EVENT_MSG *msg,OBJREC *o)
  {
  MS_EVENT *ms;
  int sel;

  if (msg->msg==E_MOUSE)
     {
     ms=get_mouse(msg);
     if (ms->event_type & 0x02)
        {
        TRADIO_BUTT_DATA *rd;
        int32_t *params;

        rd=(TRADIO_BUTT_DATA *)o->userptr;
        params=(int32_t *)rd->texty;
        sel=(ms->y-o->locy)/(o->ys/(*(params+1)));
        if (sel>=*(params+1)) sel=*(params+1)-1;
        *(int32_t *)o->data=sel;
        *params=0;
        redraw_object(o);
        *params=1;
        set_change();
        }
     }

  }

static void radio_butts_done(OBJREC *o)
  {
  TRADIO_BUTT_DATA *rd;

  rd=(TRADIO_BUTT_DATA *)o->userptr;
  free(rd->picture);
  free(rd->texty);
  };

void radio_butts_gr(OBJREC *o)
  {
  o->call_init=radio_butts_init;
  o->call_draw=radio_butts_draw;
  o->call_event=radio_butts_event;;
  o->call_done=radio_butts_done;;
  o->datasize=4;
  }

/*char ask_test(char *text,char def)
  {
  char znak;
  SEND_LOG("(START CHECK) %s",text,0);
  cprintf("\n\r%s (A/N, Cokoliv=%c)\x7",text,def);
  znak=getche();
  if (znak>='a' && znak<='z') znak-='a'-'A';
  if (znak!='N' && znak!='A') znak=def;
  return znak=='A';
  }
*/
int32_t get_disk_free(char disk)
  {
  return 10*1024*1024;
/*  struct diskfree_t ds;
  if (_dos_getdiskfree(disk,&ds)==0)
     return ds.avail_clusters*ds.sectors_per_cluster*ds.bytes_per_sector;
  return 0;*/
  }

void start_check()
  {
  /*
  char *c;
  unsigned drv;
  int32_t siz;
  struct meminfo memory;
  get_mem_info(&memory);
  concat(c,pathtable[SR_TEMP],TEMP_FILE);
//  if (!access(c,F_OK))
//     if (ask_test("Skeldal nebyl spr�vn� ukon�en. M�l bys provest kontrolu disku\n\rMam spustit SCANDISK?",'A'))
//        system("SCANDISK /NOSUMMARY");
  if (pathtable[SR_TEMP][1]==':') drv=pathtable[SR_TEMP][0];else
        {
        _dos_getdrive(&drv);drv+='@';
        }
  if (drv>='a' && drv<='z') drv-='a'-'A';
  siz=get_disk_free(drv-'@')/1024;
  SEND_LOG("Checking system enviroment - Largest Free Block %u bytes/pages %d",memory.LargestBlockAvail,memory.NumPhysicalPagesFree);
  SEND_LOG("Checking system enviroment - Disk space on %c: %d Kb",drv,siz);
  c=alloca(1024);
  if (siz<1024)
     {
     sprintf(c,"Na disku %c: nen� pot�ebn� 1 MB pro ukl�d�n� pozic. Hroz� �e pozice nebude kam ukl�dat\n\rP�esto spustit?",drv);
     if (!ask_test(c,'N')) exit(1);
     }
  else if (siz<50000 && level_preload==1 && memory.LargestBlockAvail<50000000)
     {
     sprintf(c,"Na disku %c: neni nutn�ch 50 MB pro odkl�d�n� dat. Skeldal bude �et�it\n\r"
               "s pam�t� a nahr�vat jen pot�ebn� data. Hra se m��e rapidn� zpomalit!\n\r"
               "Mam to ud�lat?",drv);
     if (ask_test(c,'A')) level_preload=0;
     }
     */
  }
/*
typedef struct dos_extra_block
  {
  int32_t sector;
  word pocet;
  word buffer_ofs;
  word buffer_seg;
  };


typedef struct disk_label
  {
  word nula;
  int32_t serial;
  char label[11];
  char type[8];
  };
*/
/*static void read_1st_sector(char drive,char *sector)
  {
  word segment;
  word selector;
  word exseg;
  word exbuf;
  void *ptr;
  struct dos_extra_block *data;

  RMREGS regs;

  dosalloc(32,&segment,&selector);
  dosalloc(2,&exseg,&exbuf);
  ptr=(void *)(segment<<4);
  data=(void *)(exseg<<4);
  data->sector=0;
  data->pocet=1;
  data->buffer_ofs=0;
  data->buffer_seg=segment;
  regs.eax=drive;
  regs.ecx=0xffff;
  regs.ds=exseg;
  regs.ebx=0;
  rmint(0x25,0,0,&regs);
  memcpy(sector,ptr,512);
  dosfree(selector);
  dosfree(exbuf);
  }

  */
/*
int32_t read_serial(char drive)
  {
  word segment;
  word selector;
  struct disk_label *p;
  RMREGS regs;
  int32_t serial;

  dosalloc(32,&segment,&selector);
  regs.eax=0x6900;
  regs.ebx=drive;
  regs.ds=segment;
  regs.edx=0;
  rmint(0x21,0,0,&regs);
  p=(void *)(segment<<4);
  serial=p->serial;
  dosfree(selector);
  return serial;
  }

static void crash_event1(THE_TIMER *t)
  {
  int32_t serial;
  int i;

  serial=read_serial(t->userdata[1]);
  serial=~serial;
  if (serial==t->userdata[0]) return;
  outp(0x64,0xfe);
  send_message(E_PRGERROR,&i);
  exit(0);
  }

static void crash_event2(THE_TIMER *t)
  {
  int32_t serial;
  int i;

  serial=read_serial(t->userdata[1]);
  serial=~serial;
  if (serial==t->userdata[0]) return;
  outp(0x64,0xfe);
  send_message(E_PRGERROR,&i);
  exit(0);
  }

static void crash_event3(THE_TIMER *t)
  {
  int32_t serial;
  int i;

  serial=read_serial(t->userdata[1]);
  serial=~serial;
  if (serial==t->userdata[0]) return;
  outp(0x64,0xfe);
  send_message(E_PRGERROR,&i);
  exit(0);
  }


#pragma aux check_number_1phase parm[];
void check_number_1phase(char *exename) //check serial number!
  {
  THE_TIMER *t;
  int h;
  char buffer[_MAX_PATH];
  unsigned short date,time;
  int32_t serial;

  _fullpath(buffer,exename,_MAX_PATH);
  t=add_to_timer(TM_HACKER,2000,1,crash_event1);
  t->userdata[0]=*(int32_t *)error_hack;
  t->userdata[1]=(int32_t)buffer[0]-'@';
  t=add_to_timer(TM_HACKER,3000,1,crash_event2);
  t->userdata[0]=*(int32_t *)error_hack;
  t->userdata[1]=(int32_t)buffer[0]-'@';
  h=open(exename,O_RDONLY);
  _dos_getftime(h,&date,&time);
  serial=(date<<16) | time;
  t=add_to_timer(TM_HACKER,4000,1,crash_event3);
  t->userdata[0]=~serial;
  t->userdata[1]=(int32_t)buffer[0]-'@';
  close(h);
  }

*/
static void skeldal_checkbox_draw(int x1,int y1,int x2,int y2,OBJREC *o)
  {
  const word *obr;
  char *data;
  int phase;
  int32_t scr_linelen2 = GetScreenPitch();

  y2,x2;
  data=(char *)o->data;
  obr=ablock(H_CHECKBOX);
  if (o->userptr==NULL)
     {
     o->userptr=NewArr(word,obr[0]*obr[0]+3);
     obr=ablock(H_CHECKBOX);
     get_picture(x1,y1,obr[0],obr[0],o->userptr);
     }
  else
     put_picture(x1,y1,o->userptr);
  phase=(CHECK_BOX_ANIM-(*data>>1))*20;
  put_8bit_clipped(obr,GetScreenAdr()+x1+y1*scr_linelen2,phase,obr[0],obr[0]);
  }

static void skeldal_checkbox_event(EVENT_MSG *msg,OBJREC *o)
  {
  MS_EVENT *ms;

  if (msg->msg==E_MOUSE)
     {
     ms=get_mouse(msg);
     if (ms->event_type & 0x2)
        {
        char *data=(char *)o->data;

        *data^=1;
        set_change();
        }
     }
  }

void animate_checkbox(int first_id,int last_id,int step)
  {
  int i;

  for(i=first_id;i<=last_id;i+=step)
     {
     char c;
     char pos;

     c=f_get_value(0,i);
     pos=c>>1;
     if (c & 1 && pos<CHECK_BOX_ANIM)
        {
        c+=2;
        c_set_value(0,i,c);
        }
     else if (~c & 1 && pos>0)
        {
        c-=2;
        c_set_value(0,i,c);
        }
     }
  }

void skeldal_checkbox(OBJREC *o)
  {
//  o->call_init=skeldal_checkbox_init;
  o->call_draw=skeldal_checkbox_draw;
  o->call_event=skeldal_checkbox_event;
  o->datasize=1;
  }

//------------------------------------------

static void setup_button_init(OBJREC *o,va_list params)
  {
  void **d;
  char *title = va_arg(params, char *);
  d=NewArr(void *,2);
  d[0]=NewArr(char,strlen(title)+1);
  strcpy(d[0],title);
  d[1]=NULL;
  o->userptr=(void *)d;
  *(char *)o->data=0;
  }

static void setup_button_draw(int x1,int y1,int x2,int y2,OBJREC *o)
  {
  char *s;
  char data;
  void **z;
  word *pic;
  const word *bb;
  int x,y;

  z=(void **)o->userptr;
  s=z[0];
  bb=ablock(H_SETUPOK);
  pic=z[1];if (pic==NULL)
     {
     pic=NewArr(word,bb[0]*bb[1]+3);
     bb=ablock(H_SETUPOK);
     get_picture(x1,y1,bb[0],bb[1],pic);
     }
  data=*(char *)o->data;
  if (data) put_picture(x1,y1,bb); else if (z[1]!=NULL) put_picture(x1,y1,pic);
  x=(x1+10+x2)>>1;y=(y1+y2)>>1;
  set_aligned_position(x,y,1,1,s);
  outtext(s);
  z[1]=pic;
  }

static void setup_button_event(EVENT_MSG *msg,OBJREC *o)
  {
  MS_EVENT *ms;

  if (msg->msg==E_MOUSE)
     {
     ms=get_mouse(msg);
     if (ms->event_type & 0x2)
        {
        *(char *)o->data=1;redraw_object(o);
        }
     else if (ms->event_type & 0x4)
        {
        *(char *)o->data=0;redraw_object(o);set_change();
        }
     }
  else if (msg->msg==E_LOST_FOCUS)
     {
     *(char *)o->data=0;redraw_object(o);
     }
  }

static void setup_button_done(OBJREC *o)
  {
  void **z;

  z=o->userptr;
  free(z[0]);
  free(z[1]);
  free(z);
  o->userptr=NULL;
  }

void setup_ok_button(OBJREC *o)
  {
  o->call_init=setup_button_init;
  o->call_draw=setup_button_draw;
  o->call_event=setup_button_event;
  o->call_done=setup_button_done;
  o->datasize=1;
  }

//-----------------------------------------------------

typedef struct skeldal_soupak_params_t {
    int range;
    void *bgpic;
} skeldal_soupak_params;

static void skeldal_soupak_init (OBJREC *o,va_list params)
  {
  skeldal_soupak_params *p = getmem(sizeof(skeldal_soupak_params));
  p->range = va_arg(params, int);
  p->bgpic = NULL;
  o->userptr=p;
  }

static void skeldal_soupak_draw (int x1,int y1,int x2,int y2,OBJREC *o)
  {
  skeldal_soupak_params *z;
  int rozsah;
  int value;
  const word *pic;
  word *back;
  int total;
  int xpos;

  z=o->userptr;
  rozsah=z->range;
  pic=ablock(H_SOUPAK);
  total=y2-y1-pic[1];
  value=*(int *)o->data;
  xpos=y2-pic[1]-value*total/rozsah;
  back=z->bgpic;
  if (back==NULL)
     {
     back=NewArr(word,(x2-x1+1)*(y2-y1+1)+3);
     get_picture(x1,y1,(x2-x1+1),(y2-y1+1),back);
     z->bgpic=back;
     pic=ablock(H_SOUPAK);
     }
  else
     put_picture(x1,y1,back);
  put_picture(x1,xpos,pic);
  }

static void skeldal_soupak_event(EVENT_MSG *msg,OBJREC *o)
  {
  if (msg->msg==E_MOUSE)
     {
     MS_EVENT *ms;
     skeldal_soupak_params *z;
     int rozsah;
     int total;
     const word *pic;
     int ypos,newvalue;

     ms=get_mouse(msg);
     if (ms->tl1)
        {
        z=o->userptr;rozsah=z->range;
        pic=ablock(H_SOUPAK);
        total=o->ys-pic[1];
        ypos=ms->y-o->locy;
        ypos+=pic[1]/2;
        newvalue=(o->ys-ypos)*rozsah/total;
        if (newvalue<0) newvalue=0;
        if (newvalue>rozsah) newvalue=rozsah;
        *(int *)o->data=newvalue;
        redraw_object(o);
        set_change();
        }
     }
  }

static void skeldal_soupak_done(OBJREC *o)
  {
  skeldal_soupak_params *z;

  z=o->userptr;
  free(z->bgpic);
  free(z);
  o->userptr=NULL;
  }



void skeldal_soupak(OBJREC *o)
  {
  o->call_init=skeldal_soupak_init;
  o->call_draw=skeldal_soupak_draw;
  o->call_event=skeldal_soupak_event;
  o->call_done=skeldal_soupak_done;
  o->datasize=4;
  }


static char fletna_str[13];
static uint8_t pos=0;
static uint8_t minnotes=6;

// C  C# D  D# E  F  F# G  G# A  A# B  C
// A  B  C  D  E  F  G  H  I  J  K  L  M
static char smery[4][13]=
  {
  "CHLJLH", //DGBABG
  "BDEDGE", //C#D#ED#F#E
  "LHJGHE",
  "CIGILI"
  };

void fletna_pridej_notu(char note)
  {
  note+=65;
  fletna_str[pos]=note;
  if (pos==countof(fletna_str)-1) memmove(fletna_str,fletna_str+1,pos-1);
  else pos++;
  }

static void play_wav(int wav,int sector)
  {
  if (check_snd_effect(SND_GFX))
     {
     play_sample_at_sector(wav,sector,sector,0,0);
     }
/*  else
     {
     struct t_wave *p;
     char *sample;
     int siz;

     p=ablock(wav);
     sample=(char *)p+sizeof(struct t_wave);
     memcpy(&siz,sample,4);sample+=4;
     pc_speak_play_sample(sample,siz,(p->freq!=p->bps?2:1),p->freq);
     }*/
  }

static void play_random_sound(int sector,int dir,int pos)
  {
  int seed;
  int v=0;

  seed=rand();
  srand(sector+dir);
  while (pos--)
     do
        {
        v=rnd(8);
        }
     while (v==dir);
  play_wav(H_SND_SEVER+v,sector);
  srand(seed);
  }

static void play_correct_sound(int sector,int dir)
  {
  play_wav(H_SND_SEVER+dir,sector);
  }

void check_fletna(THE_TIMER *t)
  {
  char len;
  char *s;
  int sec;
  int dir;

  t;
  if (!pos) return;
  sec=t->userdata[0];
  dir=t->userdata[1];
  s=smery[dir];
  len=strlen(s);
  if (len==pos)
     {
     if (!strncmp(s,fletna_str,pos) && map_sectors[sec].sector_type==dir+S_FLT_SMER)
        play_correct_sound(sec,dir);
     else
        play_random_sound(sec,dir,pos);
     }
  else
     play_random_sound(sec,dir,pos);
  pos=0;
  }

char fletna_can_add_timer() {
  return pos >=minnotes;
}

char fletna_get_buffer_pos()
  {
  return pos;
  }

static char globFletnaStr[256]="";
static char globNotes[][3]={"C","C#","D","D#","E","F","F#","G","G#","A","A#","H","C"};

void fletna_glob_add_note(uint8_t note)
{
  if (strlen(globFletnaStr)<250) strcat(globFletnaStr,globNotes[note]);
}

static int compareMelody(const char *m1,const char *m2)
{
  while (*m1 && *m2)
  {
    if (!isalpha(*m1) && *m1!='#') m1++;
    else if (!isalpha(*m2) && *m2!='#') m2++;
    else if (toupper(*m1)!=toupper(*m2)) break;
    else
    {
      m1++;
      m2++;
    }

  }
  if (*m1>*m2) return 1;
  if (*m1<*m2) return -1;
  return 0;
}

void check_global_fletna(THE_TIMER *t)
  {
  int sec;
  int dir;
  int i;
  int other=-1;

  t;
  sec=t->userdata[0];
  dir=t->userdata[1];
  if (globFletnaStr[0] && globFletnaStr[strlen(globFletnaStr)-1]==32)
  {
    globFletnaStr[strlen(globFletnaStr)-1]=0;
  }
  for (i=MAGLOB_ONFLUTE1;i<=MAGLOB_ONFLUTE8 ;i++)
    if (GlobEventList[i].param!=0)
    {
      {
        const char *cmp=level_texts[GlobEventList[i].param];
        if (compareMelody(cmp,globFletnaStr)==0)
        {
          GlobEvent(i,sec,dir);
          globFletnaStr[0]=0;
          return;
        }
      }
    }
    else if (GlobEventList[i].sector || GlobEventList[i].side) other=i;
  if (other!=-1)
    GlobEvent(other,sec,dir);
  globFletnaStr[0]=0;
  }


//---------------------------------------


static char *load_file_to_string(FILE *f, int *size) {
    fseek(f,0, SEEK_END);
    int sz = ftell(f);
    fseek(f, 0 , SEEK_SET);
    char *c = getmem(sz+1);
    fread(c,1,sz,f);
    *size = sz;
    c[sz] = 0;
    return c;
}

TMPFILE_RD *enc_open(const char *filename)
  {
  FILE *f;
  char *c,*enc;
  int last=0;
  int size;
  char *encdata;

  f=fopen_icase(filename,"r");
  if (f!=NULL) {
      encdata = load_file_to_string(f, &size);
      fclose(f);
  } else {

      enc=alloca(strlen(filename)+5);
      strcpy(enc,filename);
      c=strrchr(enc,'.');
      if (c==NULL) c=strchr(enc,0);
      strcpy(c,".ENC");
      f=fopen_icase(enc,"rb");
      if (f==NULL) return NULL;
      encdata = load_file_to_string(f, &size);
      fclose(f);
      for (int i = 0; i < size; ++i) {
          last = (last + encdata[i]) & 0xFF;
          encdata[i] = last;
      }
  }
  temp_storage_store("__enc_temp", encdata, size);
  free(encdata);
  return temp_storage_open("__enc_temp");
  }

void enc_close(TMPFILE_RD *fil)
  {
    temp_storage_close_rd(fil);
    temp_storage_delete("__enc_temp");
  }


int load_string_list_ex(TSTR_LIST *list,const char *filename)
  {
  char c[1024],*p;
  int i=0,j,lin=0;
  TMPFILE_RD *f;

  f=enc_open(filename);
  if (*list==NULL) *list=create_list(256);
  if (f==NULL) return -1;
  do
     {
     lin++;
       do
        {
        j=temp_storage_getc(f);
        if (j==';') while ((j=temp_storage_getc(f))!='\n' && j!=EOF);
        if (j=='\n') lin++;
        }
       while (j=='\n' || j == '\r');
       temp_storage_ungetc(f);
     j=temp_storage_scanf(f,"%d",&i);
     if (j==EOF)
        {
        enc_close(f);
        return -2;
        }
     if (j!=1)
        {
        enc_close(f);
        return lin;
        }
     if (i==-1) break;
     while ((j=temp_storage_getc(f))<33 && j!=EOF && j!='\n');
     if (j!=EOF) temp_storage_ungetc(f);
     if (temp_storage_gets(c,1022,f)==NULL)
        {
        enc_close(f);
        return lin;
        }

     p=strchr(c,0);
     while (p > c && isspace(p[-1])) {
         --p;
         *p = 0;
     }
     for(p=c;*p;p++) *p=*p=='|'?'\n':*p;
     if (str_replace(list,i,c)==NULL)
        {
        enc_close(f);
        return -3;
        }
     }
  while (1);
  enc_close(f);
  return 0;
  }

//------------------------------------------------------------
int smlouvat_nakup(int cena,int ponuka,int posledni,int puvod,int pocet)
  {
  int min=cena-((cena-puvod)*2*(pocet-1)/(pocet+1));
  int d_ok=posledni<min?cena-min:cena-(min+posledni)/2;
  int p_ok=(ponuka-min)*100/(d_ok+1);
  int r_ok=rnd(100);

  if (ponuka==0) return 1;
  if (pocet==1 && ponuka<cena) return 6;
  if (ponuka>=cena) return 0;
  if (ponuka<=posledni || ponuka<min) return 1;
  if (p_ok>r_ok) return 0;
  if (p_ok>75) return 2;
  if (p_ok>50) return 3;
  if (p_ok>25) return 4;
  return 5;
  }

int smlouvat_prodej(int cena,int ponuka,int posledni,int puvod,int pocet)
  {
  int min=cena+((puvod-cena)*2/pocet);
  int d_ok=posledni==0?min-cena:(min+posledni)/2-cena;
  int p_ok=(min-ponuka)*100/(d_ok+1);
  int r_ok=rnd(100);

  if (ponuka==0) return 0;
  if (ponuka<=cena) return 0;
  if (ponuka <= min && (posledni==0 || ponuka<posledni)) {
    if (p_ok>r_ok) return 0;
  }
  if (p_ok>75) return 2;
  if (p_ok>50) return 3;
  if (p_ok>25) return 4;
  return 5;
  }

static void smlouvat_enter(EVENT_MSG *msg,OBJREC *o)
  {
  o;
  if (msg->msg==E_KEYBOARD)
    {
      int c = va_arg(msg->data, int);
    switch(c & 0xFF)
      {
      case 13:goto_control(30);terminate_gui();break;
      case 27:goto_control(20);terminate_gui();break;
      }
    }
  }

static int add_number_cb(EVENT_MSG *msg, void *x) {
     o_aktual->call_event(msg, o_aktual);
     return 0;
}

static void add_number(void) {
    if (o_aktual) {
        int n = o_aktual->id - 40;
        goto_control(10);
        send_message_to(add_number_cb,NULL, E_KEYBOARD, 'O'<<8);
        send_message_to(add_number_cb,NULL, E_KEYBOARD, n+48);

    }
}
static void remove_number(void) {
    if (o_aktual) {
        goto_control(10);
        send_message_to(add_number_cb,NULL, E_KEYBOARD, 'O'<<8);
        send_message_to(add_number_cb,NULL, E_KEYBOARD, 8);
    }

}

THAGGLERESULT smlouvat_dlg(int cena,int puvod,int pocet,int posledni, int money,char mode)
  {
  char buffer[20];
  int ponuka;
  THAGGLERESULT res;
  char j = is_joystick_used();

  set_font(H_FBOLD,RGB555(31,31,31));
  add_window(170,130,300,100+j*135,H_WINTXTR,3,20,20);
  define(-1,10,15,1,1,0,label,texty[241]);
  define(-1,150,15,100,13,0,label,int2ascii(cena,buffer,10));
  set_font(H_FBOLD,MSG_COLOR1);
  define(-1,10,30,1,1,0,label,texty[238]);
  define(10,150,30,100,13,0,input_line,7,0,0,"");property(def_border(5,BAR_COLOR),NULL,NULL,0);set_default("");
    on_control_event(smlouvat_enter);
  define(20,20,20,80,20,2,button,texty[239]);property(def_border(5,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(terminate_gui);
  define(30,110,20,80,20,2,button,texty[230]);property(def_border(5,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(terminate_gui);
  if (j) {
      char nstr[2] = "0";
      for (int i = 0; i < 9; ++i) {
        int gx = (2-(i % 3))*35;
        int gy = (i/3)*35;
          nstr[0] = i+49;
          define(41+i, 50+gx,85+gy,30,30,2,button,nstr);property(def_border(0,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(add_number);
      }
      define(40, 85,50,30,30,2,button,"0");property(def_border(0,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(add_number);
      define(50, 50,50,30,30,2,button,"<-");property(def_border(0,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(remove_number);
  }
    {
    redraw_window();
    schovej_mysku();set_font(H_FBOLD,RGB555(31,31,31));
    ukaz_mysku();
    goto_control(10);
    send_message(E_ADD,E_KEYBOARD, smlouvat_enter);
    escape();
    send_message(E_DONE,E_KEYBOARD, smlouvat_enter);
    res.message = 0;
    res.hprice = posledni;
    res.canceled = 1;
    if (o_aktual->id!=20)
      {
        res.canceled = 0;
      get_value(0,10,buffer);
      if (buffer[0]==0) res.message=texty[240];
      else
        {
        if (sscanf(buffer,"%d",&ponuka)!=1) res.message=texty[237];
        else
          {
          if (ponuka>money && mode==1) {
              message(1, 0, 0, texty[100], texty[104], texty[78]);
              res.canceled = 1;
          }
          else
            {
              int temp1;
              if (mode) temp1=smlouvat_nakup(cena,ponuka,posledni,puvod,pocet);
              else temp1=smlouvat_prodej(cena,ponuka,posledni,puvod,pocet+1);
              res.hprice=ponuka;
              if (temp1) {
                  if (rnd(100)<50) res.message=texty[230+temp1];else res.message=texty[250+temp1];
              }
            }
          }
        }
      }
    }
  close_current();
  return res;
  }


  static void save_dialog_keyboards(EVENT_MSG *msg,OBJREC *o)
  {
  o;
  if (msg->msg==E_KEYBOARD)
    {
      int c = va_arg(msg->data, int);
    switch(c & 0xFF)
      {
      case 13:goto_control(30);terminate_gui();break;
      case 27:goto_control(20);terminate_gui();break;
      }
    }
    if (msg->msg == E_MOUSE) {
      const MS_EVENT *ev = va_arg(msg->data, MS_EVENT *);
      if (ev->event_type & MS_EVENT_MOUSE_RRELEASE) {
        goto_control(20);terminate_gui();
      }
    }
  }

char ask_save_dialog(char *name_buffer, size_t name_size, char allow_remove) {

    const char *str_label = texty[98];
//    if (str_label == 0) str_label ="Ulo\x91it hru jako";

    set_font(H_FBOLD,RGB555(31,31,31));
    add_window(170,130,300,100,H_WINTXTR,3,20,20);
    define(-1,10,15,1,1,0,label,str_label);
    define(10,10,30,270,13,0,input_line,name_size-1);property(def_border(5,BAR_COLOR),NULL,NULL,0);set_default(name_buffer);
    define(20,20,20,60,20,2,button,texty[239]);property(def_border(5,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(terminate_gui);
    define(30,90,20,60,20,2,button,texty[80]);property(def_border(5,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(terminate_gui);
    if (allow_remove)  {
        define(40,10,20,70,20,3,button,texty[172]);property(def_border(5,BAR_COLOR),NULL,NULL,BAR_COLOR);on_control_change(terminate_gui);
    }
    redraw_window();
    goto_control(10);
    send_message(E_ADD,E_KEYBOARD,save_dialog_keyboards);
    send_message(E_ADD,E_MOUSE,save_dialog_keyboards);
    escape();
    send_message(E_DONE,E_KEYBOARD,save_dialog_keyboards);
    send_message(E_DONE,E_MOUSE,save_dialog_keyboards);
    get_value(0,10,name_buffer);
    char ret = o_aktual->id==40?2:o_aktual->id==30?1:0;
    close_current();
    return ret;

}

#if 0
//----------------- JRC LOGO ----------------------------------

#define SHOWDELAY 125
#define SHOWDEND (SHOWDELAY-32)

typedef struct _hicolpal
  {
  unsigned blue:5;
  unsigned green:5;
  unsigned red:5;
  }HICOLPAL;

void show_jrc_logo(char *filename)
  {
  char *pcx;word *pcxw;
  char bnk=1;
  int xp,yp,i;
  word palette[256],*palw;
  int cntr,cdiff,cpalf,ccc;

  change_music(NULL);
  curcolor=0;bar32(0,0,639,479);
  showview(0,0,0,0);sleep_ms(1000);
  const char *s = build_pathname(2, gpathtable[SR_VIDEO],filename);
  if (open_pcx(s,A_8BIT,&pcx)) return;
  pcxw=(word *)pcx;
  xp=pcxw[0];
  yp=pcxw[1];
  palw=pcxw+3;
  memcpy(palette,palw,256*sizeof(word));
  memset(palw,0,256*sizeof(word));
  xp/=2;yp/=2;xp=320-xp;yp=240-yp;
  cntr=get_timer_value();ccc=0;
  do
    {
    cdiff=(get_timer_value()-cntr)/2;
    if (cdiff<SHOWDEND && ccc!=cdiff)
      {
      cpalf=cdiff;
      if (cpalf<32)
        for (i=0;i<256;i++)
        {
        int r=(cpalf<<11),g=(cpalf<<6),b=cpalf,k;
        k=palette[i] & 0xF800;if (k>r) palw[i]=r;else palw[i]=k;
        k=palette[i] & 0x7e0;if (k>g) palw[i]|=g;else palw[i]|=k;
        k=palette[i] & 0x1f;if (k>b) palw[i]|=b;else palw[i]|=k;
        }
      }
    else if (ccc!=cdiff)
      {
      cpalf=SHOWDELAY-cdiff;
      if (cpalf<32)
        for (i=0;i<256;i++)
        {
        int r,g,b,k=32-cpalf;

        b=palette[i];g=b>>5;b&=0x1f;r=g>>6;g&=0x1f;
        b-=k;r-=k;g-=k;
        if (b<0) b=0;
        if (r<0) r=0;
        if (g<0) g=0;
        palw[i]=b | (r<<11) | (g<<6);
        }
      }
        put_picture(xp, yp, pcx);
        if (bnk) {
            showview(xp, yp, pcxw[0], pcxw[1]);
        }
    ccc=cdiff;
    mix_back_sound(0);
    }
  while (cdiff<SHOWDELAY && !_bios_keybrd(_KEYBRD_READY));
  curcolor=0;bar32(0,0,639,479);
  showview(0,0,0,0);
  free(pcx);
  }
#endif
