#include "..\inc\swilib.h"
//#define DEBUG
// попытка сделать эффект горящего пламени

const int minus11=-11;
unsigned short maincsm_name_body[140];
unsigned int MAINCSM_ID = 0;
unsigned int MAINGUI_ID = 0;
char t;
int wind=0;
typedef struct
{
  CSM_RAM csm;
  int gui_id;
}MAIN_CSM;
typedef struct
{
  GUI gui;
  WSHDR *ws1;
  WSHDR *ws2;
  int i1;
}MAIN_GUI;

  short screen[240*320]; //массив экрана1
  short screen2[240*320];// массив экрана2
  int Rc=0; //синий 
  int Gc=0;//зеленый 
  int Bc=0;//красный
  int countpallet=0;// счетчик
  int palletka[256];// палитра
// из трех чисел RGB делает одно bitmap   
int rgb2bitmap16 (R,G,B)  // (c) mirr
{
  return ((B>>3)+((G>>2)<<5)+((R>>3)<<11));
}
//*****************


/////////////////////////////// создадим палитру
void createpallet ()
{
  int ix=0;
  for (int i=1; i<255; i++)
  {
    palletka[i]=65535; //залили черным
  }
  ix=0;
  for (int i=1; i<85; i++)  // с черного в красный
  {
    Rc= ix;
    countpallet++;
    palletka [countpallet]= rgb2bitmap16 ( Rc, Gc,Bc);
    ix++;
    ix++;
    ix++;
  }
  ix=0;
  for (int i=1; i<85; i++)  // с красного в желтый
  {
    Gc= ix;
    countpallet++;
    palletka [countpallet]= rgb2bitmap16 (Rc,Gc,Bc);
    ix++;
    ix++;
    ix++;
  }
  ix=0;
  for (int i=1; i<85; i++)  // с желтого в белый
  {
    Bc= ix;
    countpallet++;
    palletka [countpallet]= rgb2bitmap16 (Rc,Gc,Bc);
    ix++;
    ix++;
    ix++;
  }
}
//*********************************************************************


inline void filtr ()  // отфильтруем через палитру
{
//int  indexcolor;
//int indexx;

  for (int i=19200/*240*80*/; i<76800/*240*320*/; i++)  //  ограничиваем нижней частью
  {
        screen2[i] = palletka[screen[i]];
  }
}

//================================================================
unsigned int randseed;
#define random randint
#define randomize Randomize

unsigned int randint( int max )
{
  randseed = randseed * 0x08088405;
   randseed++;
  return (  (randseed % max)  );
}

//==================================================================
void Randomize(){ // Вызываем при старте для случайной последовательности
  TDate date;
  TTime time;
  GetDateTime(&date,&time);
   randseed=(time.min | (time.sec<<5));
}
//================================================================

  IMGHDR img; 
  GBSTMR timer;
void timer_proc(void)
{
  REDRAW(); 
  GBS_StartTimerProc(&timer,10,timer_proc); 
  
}

inline void SetPix(int x,int y,int cl) // установить пиксел
{  
    screen[x+y*240] = cl;
}


inline short GetPix(int x,int y) // прочитать пиксел
{  
  return screen[x+y*240];
}


inline void Init()
{
  for (int i=1; i!=239; i++)
  {
   
    SetPix(i,319,randint(255));
  }
}
  int clor=0;
  RECT rc;
  DRWOBJ drwobj;
void OnRedraw(MAIN_GUI *data)
{  
  Init();
#define ypos (318)
  
  for(int x=0; x!=240; x++)
  {
    clor=((GetPix(x-1,ypos+1)+GetPix(x,ypos)+GetPix(x,ypos+1)+GetPix(x+1,ypos+1))/4);
    if (clor==GetPix(x,ypos)) clor=0;
    SetPix(x,ypos,clor);
  }
#undef ypos
  for(int y=317; y!=80; y--)  // ограничиваем от 80 до 173 в верхней части не рисуем
      {
  for(int x=0; x!=240; x++)
  {
    if (wind==0)
    {
      clor=((GetPix(x-1,y+2)+GetPix(x,y)+GetPix(x,y+2)+GetPix(x+1,y+2))/4);
    }else
    {
      clor =((GetPix(x-wind, y+2) + GetPix(x,y) + GetPix(x,y+2))/3);
    }
        if (clor==GetPix(x,y)) clor=0;
        //if (clor<0) clor=0; //хм
        SetPix(x,y,clor);
      }
  } 
  
  filtr ();
  
  //RECT rc;
  //DRWOBJ drwobj;
  StoreXYWHtoRECT(&rc,0,0,240,320);//img.w,img.h);
  SetPropTo_Obj5(&drwobj,&rc,0,&img);
  DrawObject(&drwobj);
}
void onCreate(MAIN_GUI *data, void *(*malloc_adr)(int))
{
  createpallet ();
  
  Init();
  data->gui.state=1;
  img.bpnum=8;
  img.w=240;
  img.h=320;
  img.bitmap=(void*)screen2;
  GBS_StartTimerProc(&timer,20,timer_proc);
}
void onClose(MAIN_GUI *data, void (*mfree_adr)(void *))
{
  data->gui.state=0;
  GBS_StopTimer(&timer);
}
void onFocus(MAIN_GUI *data, void *(*malloc_adr)(int), void (*mfree_adr)(void *))
{
  data->gui.state=2;
  DisableIDLETMR();
}
void onUnfocus(MAIN_GUI *data, void (*mfree_adr)(void *))
{
  if (data->gui.state!=2) return;
  data->gui.state=1;
}
int OnKey(MAIN_GUI *data, GUI_MSG *msg)
{
  if (msg->gbsmsg->msg==KEY_DOWN)
  {
    switch(msg->gbsmsg->submess)
    {
    case  RIGHT_SOFT : return(1);
    case '6': wind++; break;
    case '4': wind--; break;
    }
  }
  return(0);
}
extern void kill_data(void *p, void (*func_p)(void *));
void onDestroy(MAIN_GUI *data, void (*mfree_adr)(void *))
{
kill_data(data,mfree_adr);
}

int method8(void){return(0);}
int method9(void){return(0);}
const void * const gui_methods[11]={
  (void *)OnRedraw,	
  (void *)onCreate,	
  (void *)onClose,	
  (void *)onFocus,	
  (void *)onUnfocus,
  (void *)OnKey,	
  0,
  #ifdef NEWSGOLD
  (void *)onDestroy,
  #else
  (void *)kill_data,	
  #endif
  (void *)method8,
  (void *)method9,
  0
};

const RECT Canvas={0,0,129,129};
void maincsm_oncreate(CSM_RAM *data)
{
  
  #ifdef ELKA//Если елка,то отключаем иконбар
  DisableIconBar(1);
#endif
  MAIN_GUI *main_gui=malloc(sizeof(MAIN_GUI));
  MAIN_CSM*csm=(MAIN_CSM*)data;
  zeromem(main_gui,sizeof(MAIN_GUI));
  main_gui->gui.canvas=(void *)(&Canvas);
  main_gui->gui.flag30=2;
  main_gui->gui.methods=(void *)gui_methods;
  main_gui->gui.item_ll.data_mfree=(void (*)(void *))mfree_adr();
  csm->csm.state=0;
  csm->csm.unk1=0;
  csm->gui_id=CreateGUI(main_gui);
  MAINGUI_ID=csm->gui_id;
}

void ElfKiller(void)
{
  extern void kill_data(void *p, void (*func_p)(void *));
  extern void *ELF_BEGIN;
  kill_data(&ELF_BEGIN,(void (*)(void *))mfree_adr());
}
void maincsm_onclose(CSM_RAM *csm)
{
  SUBPROC((void *)ElfKiller);
}
int maincsm_onmessage(CSM_RAM *data, GBS_MSG *msg)
{
  MAIN_CSM *csm=(MAIN_CSM*)data;
  if ((msg->msg==MSG_GUI_DESTROYED)&&((int)msg->data0==csm->gui_id))
  {
    csm->csm.state=-3;
  }
  return(1);
}
const struct
{
  CSM_DESC maincsm;
  WSHDR maincsm_name;
}MAINCSM =
{
  {
  maincsm_onmessage,
  maincsm_oncreate,
#ifdef NEWSGOLD
  0,
  0,
  0,
  0,
#endif
  maincsm_onclose,
  sizeof(MAIN_CSM),
  1,
  &minus11
  },
  {
    maincsm_name_body,
    NAMECSM_MAGIC1,
    NAMECSM_MAGIC2,
    0x0,
    139
  }
};
void UpdateCSMname(void)
{
  WSHDR *ws=AllocWS(256);
  wsprintf((WSHDR *)(&MAINCSM.maincsm_name),"Flame");
  FreeWS(ws);
}
int main(char *exename, char *fname)
{
  char dummy[sizeof(MAIN_CSM)];
  MAINCSM_ID = CreateCSM(&MAINCSM.maincsm,dummy,0);
  UpdateCSMname();
  Randomize();
  return 0;
}