#include <platform/platform.h>
#include <libs/types.h>
#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>


#include <libs/memman.h>
#include <libs/bgraph.h>
#include <libs/event.h>
#include <platform/sound.h>
#include "math.h"
#include "globals.h"
#include "engine1.h"

#include <string.h>
#define CTVR 128

t_points viewport_geometry;
struct all_view showtabs;
static char backgrnd_mode=0;

static int lclip,rclip;

ZOOMINFO zoom;
static char zooming_xtable[ZOOM_PHASES][VIEW_SIZE_X];
static short zooming_ytable[ZOOM_PHASES][VIEW_SIZE_Y];
static short zooming_points[ZOOM_PHASES][4]
  ={
     {620,349,10,3},
     {600,338,20,7},
     {580,327,30,11},
     {560,316,40,14},
     {540,305,50,18},
     {520,293,60,21},
     {500,282,70,25},
     {480,271,80,28},
     {460,259,90,31}
  };
static int zooming_step=1;
static int rot_phases=1;
//int yreq;
int last_scale;
char secnd_shade=1;

void sikma_zleva_norm(void);
void sikma_zleva_alpha(void);
//#pragma aux sikma_zleva parm modify [EAX EBX ECX EDX ESI EDI]
void sikma_zprava_norm(void);
void sikma_zprava_alpha(void);
//#pragma aux sikma_zprava parm modify [EAX EBX ECX EDX ESI EDI]
/*void zooming_dx(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming_dx parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void zooming32(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming32 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void zooming32b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming32b parm [ESI][EDI][EAX][EBX][ECX] modify [EAX EDX]
void zooming_lo(void *source,void *target,void *xlat,int32_t xysize);
//#pragma aux zooming_lo parm [ESI][EDI][EBX][ECX] modify [EAX EDX]
void zooming256(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming256 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void zooming256b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming256b parm [ESI][EDI][EAX][EBX][ECX] modify [EAX EDX]
void zooming64(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming64 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void zooming64b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux zooming64b parm [ESI][EDI][EAX][EBX][ECX] modify [EAX EDX]
void scroll_support_dx(void *lbuf,void *src1,void *src2,int size1);
//#pragma aux scroll_support_dx parm [EDI][ESI][EDX][ECX] modify [EAX]
void scroll_support_32(void *lbuf,void *src1,void *src2,int size1);
//#pragma aux scroll_support_32 parm [EDI][ESI][EDX][ECX] modify [EAX]
void scroll_support_32b(void *lbuf,void *src1,void *src2,int size1);
//#pragma aux scroll_support_32b parm [EDI][ESI][EDX][ECX] modify [EAX]
void scroll_support_256(void *lbuf,void *src1,void *src2,int size1,void *xlat);
//#pragma aux scroll_support_256 parm [EDI][ESI][EDX][ECX][EBX] modify [EAX];
void scroll_support_256b(void *lbuf,void *src1,void *src2,int size1,void *xlat);
//#pragma aux scroll_support_256b parm [EDI][ESI][EDX][ECX][EBX] modify [EAX];
void scroll_support_64(void *lbuf,void *src1,void *src2,int size1,void *xlat);
//#pragma aux scroll_support_64 parm [EDI][ESI][EDX][ECX][EBX] modify [EAX];
void scroll_support_64b(void *lbuf,void *src1,void *src2,int size1,void *xlat);
//#pragma aux scroll_support_64b parm [EDI][ESI][EDX][ECX][EBX] modify [EAX];*/
void fcdraw(const void *source,void *target,const  void *table);
//#pragma aux fcdraw parm [EDX][EBX][EAX] modify [ECX ESI EDI];

/*void lodka32(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka32 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void lodka_dx(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka_dx parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void lodka32b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka32b parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]

void lodka256(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka256 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void lodka256b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka256b parm [ESI][EDI][EAX][EBX][ECX] modify [EAX EDX]

void lodka64(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka64 parm [ESI][EDI][EAX][EBX][ECX] modify [EDX]
void lodka64b(void *source,void *target,void *background,void *xlat,int32_t xysize);
//#pragma aux lodka64b parm [ESI][EDI][EAX][EBX][ECX] modify [EAX EDX]
*/

//void *p,*p2,*pozadi,*podlaha,*strop,*sit;int i;
//void (*zooming)(void *source,int32_t target,word *background,void *xlat,int32_t xysize);
//void (*turn)(int32_t lbuf,void *src1,void *src2,int size1);
//word *GetBuffer2nd();
//word *background;
char nofloors=0,show_names=0,show_lives=0;


/*void zooming1(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  wait_timer();
  if (backgrnd_mode)
    lodka_dx(source,GetScreenAdr()+target,background+3,xlat,xysize);
  else
    zooming_dx(source,GetScreenAdr()+target,background+3,xlat,xysize);
  showview(0,0,0,0);
  }
/ *
void zooming2(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  word *lbuffer=LockDirectScreen();
  wait_timer();
  if (backgrnd_mode)
    lodka256(source,lbuffer+(target>>1),background+3,xlat,xysize);
  else
    zooming256(source,lbuffer+(target>>1),background+3,xlat,xysize);
  UnlockDirectScreen();
  }

void zooming3(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  source;target;background;xlat;xysize;
  }

/ *void zooming4(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  word *lbuffer=LockDirectScreen();
  wait_timer();
  if (backgrnd_mode)
    lodka32b(source,(void *)(target*2),background+3,xlat,xysize);
  else
    zooming32b(source,(void *)(target*2),background+3,xlat,xysize);
  UnlockDirectScreen();
  }* /
/ *
void zooming5(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  wait_timer();
  if (backgrnd_mode)
     lodka256b(source,(void *)target,background+3,xlat,xysize);
  else
     zooming256b(source,(void *)target,background+3,xlat,xysize);
  }

void zooming6(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  word *lbuffer=LockDirectScreen();
  wait_timer();
  if (backgrnd_mode)
    lodka_dx(source,lbuffer+(target),background+3,xlat,xysize);
  else
    zooming_dx(source,lbuffer+(target),background+3,xlat,xysize);
  UnlockDirectScreen();
  }
/ *
void zooming7(void *source,int32_t target,word *background,void *xlat,int32_t xysize)
  {
  wait_timer();
  if (backgrnd_mode)
     lodka64b(source,(void *)(target*2),background+3,xlat,xysize);
  else
     zooming64b(source,(void *)(target*2),background+3,xlat,xysize);
  }
*/

void turn1(int32_t lbuf,void *src1,void *src2,int size1)
  {
//wait_timer();
//     scroll_support_dx(lbuf+GetScreenAdr(),src1,src2,size1);
  showview(0,0,0,0);
  }

/*void turn2(int32_t lbuf,void *src1,void *src2,int size1)
  {
  wait_timer();
     scroll_support_256((lbuf>>1)+lbuffer,src1,src2,size1,xlatmem);
  }
*/
void turn3(int32_t lbuf,void *src1,void *src2,int size1)
  {
  lbuf;src1;src2;size1;
  }
/*
void turn4(int32_t lbuf,void *src1,void *src2,int size1)
  {
  wait_timer();
     scroll_support_32b((void *)(lbuf*2),src1,src2,size1);
  }

void turn5(int32_t lbuf,void *src1,void *src2,int size1)
  {
  wait_timer();
     scroll_support_256b((void *)lbuf,src1,src2,size1,xlatmem);
  }
*/
/*
void turn6(int32_t lbuf,void *src1,void *src2,int size1)
  {
  word *lbuffer=LockDirectScreen();
  wait_timer();
     scroll_support_dx((lbuf)+lbuffer,src1,src2,size1,xlatmem);
  UnlockDirectScreen();
  }
/ *
void turn7(int32_t lbuf,void *src1,void *src2,int size1)
  {
  wait_timer();
     scroll_support_64b((void *)(lbuf*2),src1,src2,size1,xlatmem);
  }
*/


void calc_points(void)
  {
  int i,j,x1,y1,x2,y2;

  for (j=0;j<VIEW3D_X+1;j++)
     {
  x1=START_X1+2*START_X1*j;y1=START_Y1;
  x2=START_X2+2*START_X1*j;y2=START_Y2;
  for (i=0;i<VIEW3D_Z+1;i++)
     {
     viewport_geometry[j][0][i].x=x1;
     viewport_geometry[j][0][i].y=y1;
     viewport_geometry[j][1][i].x=x2;
     viewport_geometry[j][1][i].y=y2;
     x2=(int)(x2-x2/FACTOR_3D);
     y2=(int)(y2-y2/FACTOR_3D);
     x1=(int)(x1-x1/FACTOR_3D);
     y1=(int)(y1-y1/FACTOR_3D);
     }
     }
  }

void calc_x_buffer(int32_t *ptr,int32_t txt_size_x, int32_t len,int32_t total,int32_t scale1)
  {
  int i,j,old,z=-1;

  old=-1;
  for (i=0;i<total;i++)
     {
     if (old>txt_size_x)
        {
        if (z==-1) z=i-3;
        j=((i-z)*txt_size_x)/scale1+txt_size_x;
        }
        else j=(i*txt_size_x)/len;
     *ptr++=(j-old-1);
     old=j;
     }

  }

void calc_y_buffer(short *ptr,int32_t txt_size_y, int32_t len,int32_t total)
  {
  int i,j,old;

  old=-1;
  for (i=0;i<total;i++)
     {
     j=(i*txt_size_y)/len;
     *(ptr++)=(j-old);
     old=j;
     }
  }


void create_tables(void)
  {
  int x,y;

  int32_t scr_linelen2 = GetScreenPitch();


  for (y=0;y<VIEW3D_Z+1;y++)
     {
     showtabs.y_table[y].vert_size=viewport_geometry[1][0][y].y-viewport_geometry[1][1][y].y;
     showtabs.y_table[y].vert_total=(viewport_geometry[1][0][y].y+MIDDLE_Y);
     showtabs.y_table[y].drawline=((viewport_geometry[1][0][y].y+MIDDLE_Y));
     calc_y_buffer(showtabs.y_table[y].zoom_table,TXT_SIZE_Y,showtabs.y_table[y].vert_size,TAB_SIZE_Y);
     }

  for (y=0;y<VIEW3D_Z;y++)
     for (x=0;x<VIEW3D_X;x++)
     {
     int rozdil1,rozdil2,rozdil3;

     if (viewport_geometry[x][0][y+1].x>MIDDLE_X) showtabs.z_table[x][y].used=0;
     else
        {
        showtabs.z_table[x][y].used=1;
        rozdil1=viewport_geometry[x][0][y].x-viewport_geometry[x][0][y+1].x;
        rozdil2=rozdil1-MIDDLE_X+viewport_geometry[x][0][y+1].x;
        rozdil3=viewport_geometry[0][0][y].x-viewport_geometry[0][0][y+1].x;
        if (rozdil2<0)
           {
           showtabs.z_table[x][y].xpos=MIDDLE_X-viewport_geometry[x][0][y].x;
           showtabs.z_table[x][y].txtoffset=0;
           }
        else
           {
           showtabs.z_table[x][y].xpos=MIDDLE_X-viewport_geometry[x][0][y].x;
           showtabs.z_table[x][y].txtoffset=(TXT_SIZE_X_3D*rozdil2/rozdil1);
           }
        showtabs.z_table[x][y].point_total=rozdil1;
        calc_x_buffer(showtabs.z_table[x][y].zoom_table,TXT_SIZE_X_3D,rozdil1,VIEW_SIZE_X,rozdil3);
        }

     }

  for (y=0;y<VIEW3D_Z+1;y++)
     for (x=0;x<VIEW3D_X;x++)
     {
     int rozdil1,rozdil2;

     if (x && viewport_geometry[x-1][0][y].x>TXT_SIZE_X) showtabs.z_table[x][y].used=0;
     else
       {
        showtabs.x_table[x][y].used=1;
        rozdil1=viewport_geometry[1][0][y+1].x-viewport_geometry[0][0][y+1].x;
        rozdil2=-MIDDLE_X+viewport_geometry[x][0][y+1].x;
        if (rozdil2<0)
           {
           showtabs.x_table[x][y].xpos=MIDDLE_X-viewport_geometry[x][0][y+1].x;
           showtabs.x_table[x][y].txtoffset=0;
           showtabs.x_table[x][y].max_x=rozdil1;
           }
        else
           {
           showtabs.x_table[x][y].xpos=MIDDLE_X-viewport_geometry[x][0][y+1].x;
           showtabs.x_table[x][y].txtoffset=(TXT_SIZE_X*rozdil2/rozdil1);
           showtabs.x_table[x][y].max_x=MIDDLE_X-viewport_geometry[x-1][0][y+1].x;
           }
        if (x!=0)showtabs.x_table[x][y].xpos2=VIEW_SIZE_X-(showtabs.x_table[x][y].xpos+rozdil1);
                showtabs.x_table[x][y].point_total=rozdil1;
        calc_x_buffer(showtabs.x_table[x][y].zoom_table,TXT_SIZE_X,rozdil1,VIEW_SIZE_X,rozdil1);
        }

     }

 for(x=0;x<CF_XMAP_SIZE;x++)
   for(y=0;y<F_YMAP_SIZE;y++)
      {
      int xl,xr,y1,yp,strd;

      strd=CF_XMAP_SIZE>>1;
      y1=(VIEW_SIZE_Y-y)-MIDDLE_Y;
      yp=1;while (viewport_geometry[0][0][yp].y>y1) yp++;
      if (x<strd)
        {
        xl=-viewport_geometry[strd-x][0][0].x;xr=-viewport_geometry[strd-x-1][0][0].x;
        }
      else if (x==strd)
        {
        xl=-viewport_geometry[0][0][0].x;xr=+viewport_geometry[0][0][0].x;
        }
      else if (x>strd)
        {
        xl=+viewport_geometry[x-strd-1][0][0].x;xr=+viewport_geometry[x-strd][0][0].x;
        }
      else {
          continue;
      }
      y1=(VIEW_SIZE_Y-y)-MIDDLE_Y;
      xl=xl*(y1+1)/viewport_geometry[0][0][0].y+MIDDLE_X;
      xr=xr*(y1+1)/viewport_geometry[0][0][0].y+MIDDLE_X;
      if (xl<0) xl=0;
      if (xr<0) xr=0;
      if (xl>639) xl=639;
      if (xr>639) xr=639;
      showtabs.f_table[x][y].lineofs=(y1+MIDDLE_Y)*2*scr_linelen2+xl*2;
      showtabs.f_table[x][y].linesize=xr-xl+(xl!=xr);
      showtabs.f_table[x][y].counter=(y1-viewport_geometry[0][0][yp].y);
      showtabs.f_table[x][y].txtrofs=(y1+MIDDLE_Y-VIEW_SIZE_Y+F_YMAP_SIZE)*1280+xl*2;
      }

 for(x=0;x<CF_XMAP_SIZE;x++)
   for(y=0;y<C_YMAP_SIZE;y++)
      {
      int xl,xr,y1,yp,strd;

      strd=CF_XMAP_SIZE>>1;
      y1=y-MIDDLE_Y;
      yp=1;while (viewport_geometry[0][1][yp].y<y1) yp++;
      if (x<strd)
        {
        xl=-viewport_geometry[strd-x][1][0].x;xr=-viewport_geometry[strd-x-1][1][0].x;
        }
      else if (x==strd)
        {
        xl=-viewport_geometry[0][1][0].x;xr=+viewport_geometry[0][1][0].x;
        }
      else if (x>strd)
        {
        xl=+viewport_geometry[x-strd-1][1][0].x;xr=+viewport_geometry[x-strd][1][0].x;
        }
      else {
          continue;
      }
      xl=xl*(y1-2)/viewport_geometry[0][1][0].y+MIDDLE_X;
      xr=xr*(y1-2)/viewport_geometry[0][1][0].y+MIDDLE_X;
      if (xl<0) xl=0;
      if (xr<0) xr=0;
      if (xl>639) xl=639;
      if (xr>639) xr=639;
      showtabs.c_table[x][y].lineofs=(y1+MIDDLE_Y)*2*scr_linelen2+xl*2;
      showtabs.c_table[x][y].linesize=xr-xl+(xl!=xr);
      showtabs.c_table[x][y].counter=viewport_geometry[0][1][yp].y-y1;
      showtabs.c_table[x][y].txtrofs=(y1+MIDDLE_Y)*1280+xl*2;
      }


 }

void calc_zooming(char *buffer,int dvojice,int oldsiz)
  {
  int poz,roz,i,x;

  poz=-2;
  for(i=0;i<dvojice;i++)
     {
     x=(i*oldsiz/dvojice);
     roz=x-poz;
     if (roz>2) roz=2;
     if (roz<1) roz=1;
     if (roz==1) *buffer++=1; else *buffer++=0;
     poz+=roz;
     }
  }

void create_zooming(void)
  {
  int i,j;

  int32_t scr_linelen2 = GetScreenPitch();

  for (j=0;j<ZOOM_PHASES;j++)
     {
     calc_zooming(zooming_xtable[j],320,zooming_points[j][0]);
     calc_y_buffer(zooming_ytable[j],zooming_points[j][1],360,360);
     for(i=0;i<360;i++) zooming_ytable[j][i]*=2*scr_linelen2;
     }
  }

static void zooming_forward_backward(const word *background,char back)
  {
  if (!zooming_step) return;
    {
    int32_t tmp=get_timer_value();
    void *buffer=DxPrepareWalk(SCREEN_OFFLINE);
    int tpoints[4]={90,31,90+460,31+270};

    int maxtime=5*zoom_speed(-1);
    int curtime;
    float phase;

    do
      {
      curtime=get_timer_value()-tmp;
      phase=(curtime)*(1.0f/(float)maxtime);
      //phase=(float)sin(3.14159265*0.5f*phase);
      if (back) phase=-phase;
      DxZoomWalk(buffer, SCREEN_OFFLINE, tpoints,phase, NULL);
      }
    while (curtime<maxtime);
    DxDoneWalk(buffer);
    }
  }

void zooming_forward(const word *background)
  {
  zooming_forward_backward(background,0);
  }

void zooming_backward(const word *background)
  {
  zooming_forward_backward(background,1);
  }
/*

  int i;
  if (!zooming_step) return;
  for (i=0;i<ZOOM_PHASES;i+=zooming_step)
     {
     zoom.xtable=(int32_t *)&zooming_xtable[i];
     zoom.ytable=(short *)&zooming_ytable[i];
     zoom.texture_line=0;
     do_events();
     zooming(GetScreenAdr()+zooming_points[i][2]+zooming_points[i][3]*scr_linelen2+SCREEN_OFFSET,SCREEN_OFFSET,background,xlatmem,(360<<16)+320);
     }*/
/*void zooming_backward(word *background)
  {
  int i;

  if (!zooming_step) return;
  for (i=ZOOM_PHASES-1;i>=0;i-=zooming_step)
     {
     zoom.xtable=(int32_t *)&zooming_xtable[i];
     zoom.ytable=(short *)&zooming_ytable[i];
     zoom.texture_line=0;
     do_events();
     zooming(GetScreenAdr()+zooming_points[i][2]+zooming_points[i][3]*scr_linelen2+SCREEN_OFFSET,SCREEN_OFFSET,background,xlatmem,(360<<16)+320);
     }
  }

*/

static void turn_left_right(char right)
  {
  {
  if (!rot_phases) return;
    {
    int32_t tmp=get_timer_value();
    void *buffer=DxPrepareTurn(SCREEN_OFFLINE);

	int maxtime=5*rot_phases;
    int curtime;
    float phase;


    do
      {
      curtime=get_timer_value()-tmp;
      phase=(curtime)*(1.0f/(float)maxtime);
      //phase=(float)sin(3.14159265*0.5f*phase);
      DxTurn(buffer,SCREEN_OFFLINE,90,right?-phase:phase,NULL);      
      }
    while (curtime<maxtime);
	DxDoneTurn(buffer);
    }
  }

  }

void turn_left()
  {
  turn_left_right(0);
/*  word *kde1,c;
  int i;

  kde1=GetScreenAdr()+SCREEN_OFFSET+70;
  c=640-140;
  for(i=0;i<rot_phases;i++)
     {
     kde1+=rot_step;
     c-=rot_step;
     do_events();
     turn(SCREEN_OFFSET,kde1,GetBuffer2nd()+SCREEN_OFFSET+70,c);
      }*/
  }
void turn_right()
  {
  turn_left_right(1);
/*  word *kde1,c;
  int i;

  kde1=GetBuffer2nd()+SCREEN_OFFSET+70+400;
  c=640-140-400;
  for(i=0;i<rot_phases;i++)
     {
     kde1-=rot_step;
     c+=rot_step;
     do_events();
     turn(SCREEN_OFFSET,kde1,GetScreenAdr()+SCREEN_OFFSET+70,c);
      }
      */
  }

void show_cel(int celx,int cely,const void *stena,int xofs,int yofs,char rev, int alpha)
  {
  T_INFO_X_3D *x3d,*x0d;
  T_INFO_Y *yd,*yp;
  int txtsx,txtsy,realsx,realsy,x,i,yss,ysd;
  const char *p;
  int plac;

  int32_t scr_linelen2 = GetScreenPitch();

  plac=rev>>5;
  rev&=3;
  if (celx<=0) x3d=&showtabs.z_table[-celx][cely]; else  x3d=&showtabs.z_table[celx][cely];
  x0d=&showtabs.z_table[0][cely];
  if (!x3d->used) return;
  yd=&showtabs.y_table[cely];
  yp=&showtabs.y_table[cely+1];
  txtsx=*(word *)stena;
  txtsy=*((word *)stena+1);
    if (rev<2)
     {
     xofs-=(txtsx>>1)*TXT_SIZE_X/TXT_SIZE_X_3D;yofs-=txtsy>>1;
     }
  rev&=1;
  yss=(viewport_geometry[0][0][cely].y-viewport_geometry[0][0][cely+1].y)*xofs/TXT_SIZE_X;
  ysd=(viewport_geometry[0][1][cely].y-viewport_geometry[0][1][cely+1].y)*xofs/TXT_SIZE_X;
  yofs=yofs*(yd->vert_size-yss+ysd)/TXT_SIZE_Y+yss;
  xofs=xofs*x3d->point_total/TXT_SIZE_X;
  if (txtsx>x3d->point_total && celx)
     {
     realsx=txtsx*x0d->point_total/TXT_SIZE_X_3D;
     realsx+=x3d->point_total-x0d->point_total;
     }
  else realsx=txtsx*x3d->point_total/TXT_SIZE_X_3D;
  realsy=txtsy*yd->vert_size/TXT_SIZE_Y-1;
  x=x3d->xpos+xofs;
  if (-x>realsx) return;
  p=stena;p+=SHADE_PAL+2*2+2;
  zoom.texture_end = p + txtsx*txtsy;
  i=0;
  while (x<0)
     {
     p+=x3d->zoom_table[i++]+1;
     realsx--;x++;
     }
  if (x+realsx>640) realsx=640-x;
  if (realsx<=0) return;
  yofs=yd->drawline-yofs;
  yofs+=(plac==1)?(-yp->vert_size+viewport_geometry[0][0][cely+1].y-viewport_geometry[0][0][cely].y):((plac==2)?(yd->vert_size):0);
  if (yofs>360)
     {
     int r=yofs-360,ui;
     if (r>realsy) return;
     ui=(r*txtsy/realsy);
     p+=txtsx*ui;realsy-=r;
     yofs=360;
     }
  if (yofs-realsy<0) realsy=yofs;
  if (rev)
  zoom.startptr=GetBuffer2nd()+yofs*scr_linelen2+(639-x)+SCREEN_OFFSET;
  else
  zoom.startptr=GetBuffer2nd()+yofs*scr_linelen2+x+SCREEN_OFFSET;
  zoom.texture=p;
  zoom.texture_line=txtsx;
  zoom.xtable=&x3d->zoom_table[i];
  zoom.ytable=yd->zoom_table;
  zoom.palette=(word *)((byte *)stena+6+512*(cely)+(secnd_shade?SHADE_STEPS*512:0));
  zoom.ycount=realsy+1;
  zoom.xmax=realsx;
  zoom.line_len=2*scr_linelen2;
  if (alpha) {
      if (rev) sikma_zprava_alpha(); else sikma_zleva_alpha();
  } else {
      if (rev) sikma_zprava_norm(); else sikma_zleva_norm();
  }

 }


void show_cel2(int celx,int cely,const void *stena,int xofs,int yofs,char rev, int alpha)
  {
  T_INFO_X *x3d;
  T_INFO_Y *yd;
  int txtsx,txtsy,realsx,realsy,x,i;
  const char *p;
  int plac;

  int32_t scr_linelen2 = GetScreenPitch();

  if (stena==NULL) return ;
  plac=rev>>5;
  rev&=3;
  if (celx==2)
      x=celx;
  if (rev==2) celx=-celx;
  if (celx<=0) x3d=&showtabs.x_table[-celx][cely]; else  x3d=&showtabs.x_table[celx][cely];
  if (!x3d->used) return;
  yd=&showtabs.y_table[cely+1];
  txtsx=*(word *)stena;
  txtsy=*((word *)stena+1);
  if (!rev)
     {
      xofs-=txtsx>>1;yofs-=txtsy>>1;
     }
  yofs=yofs*yd->vert_size/TXT_SIZE_Y;
  xofs=xofs*x3d->point_total/TXT_SIZE_X;
  realsx=txtsx*x3d->point_total/TXT_SIZE_X;
  realsy=txtsy*yd->vert_size/TXT_SIZE_Y;
  if (celx<=0) x=x3d->xpos+xofs; else x=x3d->xpos2+xofs;
  if (-x>realsx) return;
  p=stena;p+=SHADE_PAL+2*2+2;
  zoom.texture_end = p + txtsx*txtsy;
  i=0;
  while (x<0)
     {
     p+=x3d->zoom_table[i++]+1;
     realsx--;x++;
     }
  if (x+realsx>640) realsx=640-x;
  if (realsx<=0) return;
  yofs=yd->drawline-yofs;
  yofs+=(plac==1)?(-yd->vert_size):((plac==2)?(yd->vert_size):0);
  if (yofs>360)
     {
     int r=yofs-360,ui;
     if (r>realsy) return;
     ui=(r*txtsy/realsy);realsy-=r;
     p+=txtsx*ui;
     yofs=360;
     }
  if (yofs-realsy<0) realsy=yofs;
  if (rev==2)
  zoom.startptr=GetBuffer2nd()+(yofs)*scr_linelen2+(639-x)+SCREEN_OFFSET;
  else
  zoom.startptr=GetBuffer2nd()+(yofs)*scr_linelen2+x+SCREEN_OFFSET;
  zoom.texture=p;
  zoom.texture_line=txtsx;
  zoom.xtable=x3d->zoom_table;
  zoom.ytable=yd->zoom_table;
  zoom.palette=(word *)((byte *)stena+6+512*(cely)+(secnd_shade?SHADE_STEPS*512:0));
  zoom.ycount=realsy+1;
  zoom.xmax=realsx;
  zoom.line_len=scr_linelen2*2;
  if (alpha) {
      if (rev==2) sikma_zprava_alpha(); else sikma_zleva_alpha();
  } else {
      if (rev==2) sikma_zprava_norm(); else sikma_zleva_norm();
  }

  }


void draw_floor_ceil(int celx,int cely,char f_c,const void *txtr)
  {
  int y;

  if (nofloors) return;
  txtr=(void *)((word *)txtr+3);
  if (f_c==0) //podlaha
     {
     y=(VIEW_SIZE_Y-MIDDLE_Y)-viewport_geometry[0][0][cely].y+1;
     if (y<1) y=1;
     txtr=(void *)((word *)txtr);
     fcdraw(txtr,GetBuffer2nd()+SCREEN_OFFSET,&showtabs.f_table[celx+3][y]);
/*     if (debug)
        {
         memcpy(GetScreenAdr(),GetBuffer2nd(),512000);
         showview(0,0,0,0);
        }*/
     }
  else
     {
     y=viewport_geometry[0][1][cely].y+MIDDLE_Y+1;
     if (y<0) y=0;
     fcdraw(txtr,GetBuffer2nd()+SCREEN_OFFSET,&showtabs.c_table[celx+3][y]);
/*     if (debug)
        {
         memcpy(GetScreenAdr(),GetBuffer2nd(),512000);
         showview(0,0,0,0);
        }*/
     }

  }


void OutBuffer2nd(void)
  {
  int i;
  int32_t scr_linelen2 = GetScreenPitch();

  for (i=0;i<480;i++)
	memcpy(GetScreenAdr()+i*scr_linelen2,GetBuffer2nd()+i*scr_linelen2,640*2);
  }

void CopyBuffer2nd(void)
  {
  int i;
  int32_t scr_linelen2 = GetScreenPitch();

  for (i=0;i<480;i++)
	memcpy(GetBuffer2nd()+i*scr_linelen2,GetScreenAdr()+i*scr_linelen2,640*2);
  }

  /*void chozeni(void)
  {
  char c;  char dir=0;word sector=22;

  zooming_forward();
  swap_buffs();
  showview(0,0,0,0);
  do
     {
     while (_bios_keybrd(_KEYBRD_READY)) _bios_keybrd(_KEYBRD_READ);
     c=_bios_keybrd(_KEYBRD_READ) >> 8;
     switch (c)
        {
        case 'H':if (mapa[sector][dir]!=-1)
                       {
                       sector=mapa[sector][dir];
                       render_scene(sector,dir);
                       if (!debug) zooming_forward();
                       swap_buffs();
                       showview(0,0,0,0);
                       }break;
        case 'P':if (mapa[sector][(dir+2)&3]!=-1)
                    {
                    sector=mapa[sector][(dir+2)&3];
                    render_scene(sector,dir);
                    swap_buffs();
                    if (!debug) zooming_backward();
                    showview(0,0,0,0);
                    }break;
        case 'M':dir=(dir+1)&3;
                 render_scene(sector,dir);
                 if (!debug) turn_left();
                 swap_buffs();
                 showview(0,0,0,0);
                 break;
        case 'K':dir=(dir-1)&3;
                 render_scene(sector,dir);
                 swap_buffs();
                 if (!debug) turn_right();
                 showview(0,0,0,0);
                 break;
        case ';':debug=!debug;break;
        case '<':nosides=!nosides;break;
        case '=':nofloors=!nofloors;break;
        case '>':drwsit=!drwsit;break;
        }
     }
  while (c!=1);
  }
*/
/*void ask_video(video)
  {
  char c,ok,er;
  printf("\nJaky videomode?:\n"
         "  1) 640x480x256 Pomale pocitace\n"
         "  2) 640x480xHiColor Pomale pocitace\n"
         "  3) 640x480x256 Rychle pocitace\n"
         "  4) 640x480xHiColor Rychle pocitace\n");
  screen_buffer_size=640*480*2;
    do
     {
     if (!video) c=_bios_keybrd(_KEYBRD_READ)>>8;else c=video+1;
     ok=1;er=0;
     line480=1;
     switch (c)
        {
        case 1:exit(0);
        case 4:line480=1;er=initmode256(load_file("xlat256.pal"));
               zooming=zooming2;ok=0;
               turn=turn2;
               if (banking)
                 {
                 turn=turn5;
                 zooming=zooming5;
                 }
               break;
        case 5:line480=1;er=initmode32();
               zooming=zooming1;ok=0;
               turn=turn1;
               if (banking)
                 {
                 turn=turn4;
                 zooming=zooming4;
                 }
               break;
        case 2:line480=1;er=initmode256(load_file("xlat256.pal"));
               zooming=zooming2;ok=0;zooming_step=2;rot_phases=2;rot_step=140;
               turn=turn2;
               if (banking)
                 {
                 turn=turn5;
                 zooming=zooming5;
                 }
               break;
        case 3:line480=1;er=initmode32();
               zooming=zooming1;ok=0;zooming_step=2;rot_phases=2;rot_step=140;
               turn=turn1;
               if (banking)
                 {
                 turn=turn4;
                 zooming=zooming4;
                 }
               break;
        }
     if (er)
        {
        ok=1;
        if (er==-1)
        printf("Rezim zrejme neni podporovan. Zkuste nainstalovat univbe\n");
        else
          printf("Graficka karta asi nepodporuje Linear Frame Buffer. \n"
          "Pokud tomu tak neni, zkontrolujte zda neni vypnuty.\n");
        }
     }
  while (ok);
    }

 */
void report_mode(int mode)
  {
/*  switch (mode)
     {
     case 1:zooming=zooming1; turn=turn1;break;
     case 2:STOP();break;
     case 3:STOP();break;
     case 4:STOP();break;
     case 5:STOP();break;
     case 6:STOP();break;
     case 7:STOP();break;
     }*/
  }

void clear_color(void *start,int _size,word _color)
  {
	word *s = (word *)start;
	int i;
	for (i = 0; i < _size; i++) s[i] = _color;
/*  __asm
    {
    mov  edi,start
    mov  ecx,_size
    movzx eax,_color
    mov  ebx,eax
    shl  eax,16
    mov  ax,bx
    shr  ecx,1
    rep  stosd
    rcl  ecx,1
    rep  stosw
    }*/
  }

    //parm [EDI][ECX][EAX] modify [EBX];


void clear_buff(word *background,word backcolor,int lines)
{
    int32_t scr_linelen2 = GetScreenPitch();

  if (background!=NULL) put_picture(0,SCREEN_OFFLINE,background);else lines=0;
  if (lines!=360)
	for (int i=lines;i<360;i++)
     clear_color(GetBuffer2nd()+SCREEN_OFFSET+scr_linelen2*i,640,backcolor);

}

void clear_screen(word *screen, word color)
{
    int32_t scr_linelen2 = GetScreenPitch();

for (int i=0;i<480;i++) clear_color(screen+scr_linelen2*i,640,color);
}

void general_engine_init()
  {
  calc_points();
  create_tables();
  create_zooming();
  clear_screen(GetScreenAdr(),0);
  clear_screen(GetBuffer2nd(),0);
}

void map_pos(int celx,int cely,int posx,int posy,int posz,int *x,int *y)
  {
  char negate2=0;
  int xl,xr;
  int p1,p2,p;
  if (celx<0)
     {
     negate2=1;
     posx=CTVR-posx;
     celx=-celx;
     }
  p1=(viewport_geometry[0][0][cely].y-viewport_geometry[0][1][cely].y);
  p2=(viewport_geometry[0][0][cely+1].y-viewport_geometry[0][1][cely+1].y);
  last_scale=p=posy*(p2-p1)/CTVR+p1;
  *y=viewport_geometry[0][0][cely].y-(posy*(viewport_geometry[0][0][cely].y-viewport_geometry[0][0][cely+1].y)/CTVR)-p*posz/CTVR;
  xr=viewport_geometry[celx][0][cely].x-(posy*(viewport_geometry[celx][0][cely].x-viewport_geometry[celx][0][cely+1].x)/CTVR);
  if (celx) xl=viewport_geometry[celx-1][0][cely].x-(posy*(viewport_geometry[celx-1][0][cely].x-viewport_geometry[celx-1][0][cely+1].x)/CTVR);
  else xl=-xr;
  *x=xl+((xr-xl)*posx/CTVR);
  if (negate2) *x=-*x;
  *x+=MIDDLE_X;
  *y+=MIDDLE_Y;
  }

/*void draw_item(int celx,int cely,int posx,int posy,short *pic,int index)
  {
  int x,y;
  int xs,ys,xsr,ysr,xofs,xmax;
  T_INFO_Y *yd;
  T_INFO_X *x3d;
  int ys1,ys2,xs1,xs2;
  static int32_t zoomtab_x[640];
  static short zoomtab_y[360];
  static lastcely=-1;
  int randx,randy;
  static int indextab[][2]={{0,0},{0,10},{1,0},{-1,0},{1,10},{-1,10},{-2,10},{2,10}};

  if (pic==NULL) return;
  if (!cely && !posy) return;
  if (cely==VIEW3D_Z-1 && posy) return;
  x3d=&showtabs.x_table[abs(celx)];
  if (!x3d[cely].used || !x3d[1].used ) return;
  randx=indextab[index & 0x7][0];
  randy=indextab[index & 0x7][1];
  map_pos(celx,cely,64*posx+32+randx,64*posy+randy,0,&x,&y);
  yd=&showtabs.y_table;
  ys2=yd[1].vert_size;
  xs2=x3d[1].point_total;
  if (posy)
     {
     xs1=(x3d[cely].point_total+x3d[cely+1].point_total)>>1;
     ys1=(yd[cely].vert_size+yd[cely+1].vert_size)>>1;
     }
  else
     {
     xs1=x3d[cely].point_total;
     ys1=yd[cely].vert_size;
     }
  xs=pic[0];
  ys=pic[1];
  xsr=xs*ys1/ys2;
  ysr=ys*xs1/xs2;
  x-=xsr>>1;
  //y+=ysr>>1;
  if (-x>=xsr || x>VIEW_SIZE_X) return;
  if (x<0)
     {
     xofs=-x*xs/xsr;
     xmax=xsr+x;
     x=0;
     }
  else if (x+xsr>VIEW_SIZE_X)
     {
     xofs=0;
     xmax=VIEW_SIZE_X-x;
     }
  else
     {
     xofs=0;
     xmax=xsr;
     }
  if ((cely<<1)+posy!=lastcely)
     {
     lastcely=(cely<<1)+posy;
     calc_x_buffer((int32_t *)&zoomtab_x,xs2,xs1,640,xs2);
     calc_y_buffer((short *)&zoomtab_y,ys2,ys1,360);
     }
  if (y-ysr<0) ysr=y;
  zoom.startptr=GetBuffer2nd()+y*640+x+SCREEN_OFFSET;
  zoom.texture=(short *)((char *)(&pic[3+SHADE_PAL])+xofs);
  zoom.texture_line=xs;
  zoom.xtable=(int32_t *)&zoomtab_x;
  zoom.ytable=(short *)&zoomtab_y;
  zoom.palette=(word *)&pic[3+cely*256+(secnd_shade?SHADE_STEPS*256:0)];
  zoom.ycount=ysr;
  zoom.xmax=xmax;
  zoom.line_len=1280;
  sikma_zleva();
  }
*/

static int items_indextab[][2]={{0,0},{-1,3},{1,7},{-1,7},{1,10},{-1,10},{0,10},{-2,15}};
void draw_item(int celx,int cely,int posx,int posy,const short *txtr,int index)
  {
  int x,y;
  int clipl,clipr;
  int randx,randy;
  int32_t scr_linelen2 = GetScreenPitch();


  if (txtr==NULL) return;
  randx=items_indextab[7-(index & 0x7)][0];
  randy=items_indextab[7-(index & 0x7)][1];
  map_pos(celx,cely,42*posx+42+randx,72*posy+randy,0,&x,&y);
  x-=(txtr[0]/2*last_scale)/320;
  if (x<0)
     {
     clipl=-x;
     x=0;
     }
  else clipl=0;
  clipr=640-x;
  if (clipr>0)
  enemy_draw(txtr,GetBuffer2nd()+x+(y+SCREEN_OFFLINE)*scr_linelen2,6+512*cely+(secnd_shade?SHADE_STEPS*512:0),last_scale,y,(clipr<<16)+clipl);
  }


void put_textured_bar(const void *src,int x,int y,int xs,int ys,int xofs,int yofs)
  {
  word *pos;
  const word *xy;
  int32_t scr_linelen2 = GetScreenPitch();


  pos=GetScreenAdr()+x+scr_linelen2*y;
  xy=src;
  xofs=xofs%xy[0];
  yofs=yofs%xy[1];
  if (xofs<0) xofs+=xy[0];
  if (yofs<0) yofs+=xy[1];
  put_textured_bar_(src,pos,xs,ys,xofs,yofs);
  }

void draw_placed_texture(const short *txtr,int celx,int cely,int posx,int posy,int posz,char turn)
  {
  int x,y;
  int clipl,clipr;
  int32_t scr_linelen2 = GetScreenPitch();

  if (txtr==NULL) return;
  map_pos(celx,cely,posx,posy,posz,&x,&y);
  x-=(txtr[0]/2*last_scale)/320;
  y+=(txtr[1]/2*last_scale)/320;
  if (y>400) y=400;
  if (x<0)
     {
     clipl=-x;
     x=0;
     }
  else clipl=0;
  clipr=640-x;
    if (clipr > 0) {
        if (turn) {
            enemy_draw_mirror(txtr,
                    GetBuffer2nd() + x + (y + SCREEN_OFFLINE) * scr_linelen2,
                    6 + 512 * cely + (secnd_shade ? SHADE_STEPS * 512 : 0),
                    last_scale, y, (clipr << 16) + clipl);
        }else {
            enemy_draw(txtr,
                    GetBuffer2nd() + x + (y + SCREEN_OFFLINE) * scr_linelen2,
                    6 + 512 * cely + (secnd_shade ? SHADE_STEPS * 512 : 0),
                    last_scale, y, (clipr << 16) + clipl);
        }
    }

}

/*void draw_placed_texture(short *txtr,int celx,int cely,int posx,int posy,int posz,char turn)
  {
  int x,y,xsr,ysr;
  int32_t zoomtab_x[640];
  short zoomtab_y[360];
  int xs,ys,xofs,xmax;

  map_pos(celx,cely,posx,posy,posz,&x,&y);
  if (y>460-SCREEN_OFFLINE) return;
  xs=txtr[0];
  xsr=xs*last_scale/320;
  ys=txtr[1];
  ysr=ys*last_scale/320;
  if (turn) x=VIEW_SIZE_X-x;
  x-=xsr/2;
  y+=ysr/2;
  if (-x>=xsr || x>VIEW_SIZE_X) return;
  if (x<0)
     {
     xofs=-x*xs/xsr;
     xmax=xsr+x;
     x=0;
     }
  else if (x+xsr>VIEW_SIZE_X)
     {
     xofs=0;
     xmax=VIEW_SIZE_X-x;
     }
  else
     {
     xofs=0;
     xmax=xsr;
     }
  calc_x_buffer((int32_t *)&zoomtab_x,320,last_scale,640,last_scale);
  calc_y_buffer((short *)&zoomtab_y,320,last_scale,360);
  if (y-ysr<0) ysr=y;
  if (ysr<=0) return;
  if (turn) zoom.startptr=GetBuffer2nd()+y*640+(VIEW_SIZE_X-x)+SCREEN_OFFSET;
  else zoom.startptr=GetBuffer2nd()+y*640+x+SCREEN_OFFSET;
  zoom.texture=(short *)((char *)(&txtr[3+SHADE_PAL])+xofs);
  zoom.texture_line=xs;
  zoom.xtable=(int32_t *)&zoomtab_x;
  zoom.ytable=(short *)&zoomtab_y;
  zoom.palette=(word *)&txtr[3+cely*256+(secnd_shade?SHADE_STEPS*256:0)];
  zoom.ycount=ysr;
  zoom.xmax=xmax;
  zoom.line_len=1280;
  if (turn) sikma_zprava();else sikma_zleva();

  }
 */

void set_lclip_rclip(int celx,int cely,int lc,int rc)
  {
  int x,xs;
  lclip=0;
  rclip=640;
  if (celx>=0)
     {
     if (rc)
        {
        x=viewport_geometry[celx][0][cely].x+MIDDLE_X;
        xs=viewport_geometry[celx][0][cely].x-viewport_geometry[celx][0][cely+1].x;
        rclip=x-rc*xs/TXT_SIZE_X_3D;
        if (rclip>640) rclip=640;
        }
     if (celx>0 && lc)
        {
        lclip=viewport_geometry[celx-1][0][cely].x+MIDDLE_X;
        if (lclip>rclip) lclip=rclip;
        }

     }
  if (celx<=0)
     {
     if (lc)
        {
        int cc=-celx;
        x=-viewport_geometry[cc][0][cely].x+MIDDLE_X;
        xs=viewport_geometry[cc][0][cely].x-viewport_geometry[cc][0][cely+1].x;
        lclip=x+lc*xs/TXT_SIZE_X_3D;
        if (lclip<0) lclip=0;
        }
     if (celx<0 && rc)
        {
        rclip=-viewport_geometry[(-celx)-1][0][cely].x+MIDDLE_X;
        if (rclip<lclip) rclip=lclip;
        }
     }
  }


void draw_enemy(DRW_ENEMY *drw)
  {
  int x,y,lx,sd;
  int clipl,clipr;
  int posx,posy,cely;
  short *xs,xss;
  int grcel;
  int32_t scr_linelen2 = GetScreenPitch();


  if (drw->stoned)
  {
    unsigned short *p=(unsigned short *)alloca(SHADE_PAL);
    int i;
    for (i=0;i<SHADE_PAL/2;i++)
    {
      unsigned short col=(unsigned)drw->palette[0][i];
      int bw=(GET_R_COLOR(col)+GET_G_COLOR(col)+GET_B_COLOR(col))/3;
      if (bw>255) bw=255;
      p[i]=RGB(bw,bw,bw);
    }
    drw->palette=(palette_t *)p;
  }

  posx=drw->posx;
  posy=drw->posy;
  cely=drw->cely;
  if (drw->txtr==NULL) return;
  posx+=64;
  if (!(drw->shiftup & 0x8)) posy+=32;
  if (drw->shiftup & 0x1) posy+=128;
  if (posy<0 || posy>127) return;
  map_pos(drw->celx,drw->cely,posx,posy,0,&x,&y);
  xs=(short *)drw->txtr;
  xss=*xs*last_scale/320;
  if (xss>640) return;
  lx=x;
  grcel=cely;
  if (posy>64) grcel++;
  if (grcel) grcel--;
  if (cely) cely-=1;
  x-=(drw->adjust*last_scale)/320;
  if (x<lclip)
     {
     clipl=lclip-x;
     x=lclip;
     }
  else clipl=0;
  clipr=rclip-x;
    if (clipr > 0) {
        if (drw->mirror) {
            enemy_draw_mirror_transp(drw->txtr,
                    GetBuffer2nd() + x + (y + SCREEN_OFFLINE) * scr_linelen2,
                    drw->palette + grcel + (secnd_shade ? SHADE_STEPS : 0),
                    last_scale, y + 1, (clipr << 16) + clipl);
        } else {
            enemy_draw_transp(drw->txtr,
                    GetBuffer2nd() + x + (y + SCREEN_OFFLINE) * scr_linelen2,
                    drw->palette + grcel + (secnd_shade ? SHADE_STEPS : 0),
                    last_scale, y + 1, (clipr << 16) + clipl);
        }
    }
    if (show_lives) {
        char s[25];

        int ly = y + SCREEN_OFFLINE - last_scale * 5 / 6;
        RedirectScreenBufferSecond();
        sprintf(s, "%d", drw->num);
        sd = text_width(s) / 2;
        if (lx - sd > 0 && lx + sd < 639) {
            trans_bar(lx - sd - 5, ly - 10, sd * 2 + 10, 10, 0);
            set_aligned_position(lx, ly, 1, 2, s);
            outtext(s);
        }
        RestoreScreen();
    }
    if (drw->more_info && x > 0 && lx < 639) {
        int ly = y + SCREEN_OFFLINE - last_scale * 9 / 12;
        RedirectScreenBufferSecond();
        position(x, ly);
        outtext_w_nl(drw->more_info);
        RestoreScreen();
    }

}

void draw_player(  const short *txtr,int celx,int cely,int posx,int posy,int adjust,  const char *name)
  {
  int x,y,yc,lx,sd;
  int clipl,clipr;
  int32_t scr_linelen2 = GetScreenPitch();


  RedirectScreenBufferSecond();
  map_pos(celx,cely,posx+64,posy+64,0,&x,&y);
  lx=x;
  x-=(adjust*last_scale)/320;
  yc=(20*last_scale)/320+y;
  if (x<0)
     {
     clipl=-x;
     x=0;
     }
  else clipl=0;
  clipr=640-x;
  if (clipr>0)
  enemy_draw(txtr,GetBuffer2nd()+x+(yc+SCREEN_OFFLINE)*scr_linelen2,6+512*cely+(secnd_shade?SHADE_STEPS*512:0),last_scale,y,(clipr<<16)+clipl);
  if (show_names && name!=NULL)
     {
     sd=text_width(name)/2;
     if (lx-sd>0 && lx+sd<639)
        {
        int ly=y+SCREEN_OFFLINE-last_scale*5/6;
        trans_bar(lx-sd-5,ly-10,sd*2+10,10,0);
        set_aligned_position(lx,ly,1,2,name);outtext(name);
        }
     }
  RestoreScreen();
  }


void draw_spectxtr(const short *txtr,int celx,int cely,int xpos)
  {
  int x,y,clipl,clipr;
  int32_t scr_linelen2 = GetScreenPitch();

  map_pos(celx,cely,64,64,0,&x,&y);
  x-=(((*txtr>>1)+xpos)*last_scale*2)/320;
  if (x<0)
     {
     clipl=-x;
     x=0;
     }
  else clipl=0;
  clipr=640-x;
  if (clipr>0)
  enemy_draw_transp(txtr,GetBuffer2nd()+x+(y+SCREEN_OFFLINE)*scr_linelen2,(char *)txtr+6+512*cely+(secnd_shade?SHADE_STEPS*512:0),last_scale*2,y,(clipr<<16)+clipl);
  }


void draw_item2(int celx,int cely,int xpos,int ypos,  const void *txtr,int index)
  {
  int x,y,xs,ys,abc,asc,clipl,clipr;
  static int indextab[][2]={{0,0},{0,1},{1,0},{-1,0},{1,2},{-1,1},{-2,1},{2,1}};
  int32_t scr_linelen2 = GetScreenPitch();

  celx--;
  asc=(celx<0);
  abc=abs(celx);if (asc) abc--;
  x=viewport_geometry[abc][0][cely+1].x;
  y=viewport_geometry[abc][0][cely+1].y;
  xs=showtabs.x_table[0][cely].max_x;
  ys=showtabs.y_table[cely+1].vert_size;
  xpos+=indextab[7-index][0];
  ypos+=indextab[7-index][1];
  xpos-=*(word *)txtr/2;
  xpos=xs*xpos/500;
  ypos=ys*ypos/320;
  if (asc) x=-x;
  x+=MIDDLE_X;
  y+=MIDDLE_Y;
  x+=xpos;
  y-=ypos;
  if (x<0)
     {
     clipl=-x;
     x=0;
     }
  else clipl=0;
  clipr=640-x;
  if (clipr>0)
  enemy_draw(txtr,GetBuffer2nd()+x+(y+SCREEN_OFFLINE)*scr_linelen2,6+512*cely+(secnd_shade?SHADE_STEPS*512:0),ys,y,(clipr<<16)+clipl);
  }

/*
void main()
  {
  printf("%d\n",sizeof(showtabs));
  p=load_file("konvert\\bredy.hi");
  calc_points();
  create_tables();
  create_zooming();
  ask_video();
  put_picture(0,100,p);showview(0,0,0,0);free(p);
  p2=load_file("konvert\\stena2.hi");
  p=load_file("konvert\\stena2bl.hi");
  strop=load_file("konvert\\strop1.hi");
  podlaha=load_file("konvert\\podlaha1.hi");
  sit=load_file("konvert\\sit.hi");
  build_map();
  render_scene(22,0);showview(0,0,0,0);
  chozeni();
  closemode();
  }
*/


int zoom_speed(int zoomspeed)
  {
  switch (zoomspeed)
     {
     case 0:zooming_step=0;break;
     case 1:zooming_step=1;break;
     case 2:zooming_step=2;break;
     case -1: return zooming_step;
     }
  return zoomspeed;
  }


int turn_speed(int turnspeed)
  {
  switch (turnspeed)
     {
     case 0:rot_phases=0;break;
     case 1:rot_phases=1;break;
     case 2:rot_phases=2;break;
     case -1: return rot_phases;
     }
  return turnspeed;
  }

void set_backgrnd_mode(int mode)
  {
  backgrnd_mode=mode;
  }

int get_item_top(int celx,int cely,int posx,int posy,const word *txtr,int index)
  {
  int x,y;
  int randx,randy;

  randx=items_indextab[7-(index & 0x7)][0];
  randy=items_indextab[7-(index & 0x7)][1];
  map_pos(celx,cely,42*posx+42+randx,72*posy+randy,0,&x,&y);
  if (txtr!=NULL) return y-(txtr[1]*last_scale)/320+SCREEN_OFFLINE;
  else return y+SCREEN_OFFLINE;
  }
