#include "kolibri.h"
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "gblib.h"
#include "az3.h"
#include "az4.h"
//=====================================
#define scrw (8*32)
#define scrh (16+8*32)
//=====================================
typedef struct
{
char x;
char y;
} p_point;
//=====================================
char STR_TITLE[] = {"Piton 0.3"};
int mode;
char score[10];
char scr[scrw*scrh*3];
GB_BMP screen, az, azr;
char M[32][32];
p_point z[32*32];
p_point v;
p_point r;
int len;
unsigned color[] = {0xcccccc, 0xaa2222, 0x44bb, 0x7788aa};
//=====================================
void az_putc(unsigned char c, int x, int y)
{
if (c > 191)
gb_image_set_t(&screen, x, y, &azr, (c-192)*8, 1, 8, 14, 0);
else
gb_image_set_t(&screen, x, y, &az, (c-' ')*8, 1, 8, 14, 0);
}
//=====================================
void az_puts(unsigned char *s, int x, int y)
{
unsigned i;
i = 0;
while (*(s+i))
{
az_putc(*(s+i), x+i*9, y);
i++;
}
}
//=====================================
az_puti(int n, int x, int y)
{
char c;
int i = 0;
do
{
c = n % 10 + '0';
az_putc(c, x-9*i, y);
i++;
}
while ((n /= 10) > 0);
}
//=====================================
void clear()
{
int x, y;
for (y = 0; y < 32; y++)
for (x = 0; x < 32; x++)
M[x][y] = 0;
for (y = 0; y < 32; y++)
{
M[0][y] = 1;
M[31][y] = 1;
M[y][0] = 1;
M[y][31] = 1;
}
}
//=====================================
void put_z()
{
int i;
for (i = 0; i < len; i++)
M[z[i].x][z[i].y] = 2;
}
//=====================================
void put_r()
{
M[r.x][r.y] = 3;
}
//=====================================
void rabbit_new()
{
for (;;)
{
if (0 == M[r.x][r.y])
return;
}
}
//=====================================
void game_start()
{
clear();
v.x = 1;
v.y = 0;
len = 2;
z[0].x = 16;
z[0].y = 16;
z[1].x = 15;
z[1].y = 16;
rabbit_new();
put_r();
put_z();
kol_sleep(30);
}
//=====================================
void press_space()
{
az_puts("íàæìèòå Ïðîáåë", 10, 180);
az_puts("÷òîáû ïðîäîëæèòü", 10, 195);
}
//=====================================
void screen_draw()
{
int x, y;
switch ( mode)
{
case 0:
gb_bar(&screen, 0, 0, scrw, scrh, 0xbb);
az_puts("Ï È Ò Î Í 0.3", 10, 60);
az_puts("ðåìåéê äëÿ ÎÑ Êîëèáðè", 10, 120);
az_puts("àâòîð: À. Áîãîìàç", 10, 135);
press_space();
break;
case 1:
gb_bar(&screen, 0, 0, scrw, 16, 0xbb);
az_puts("Î×ÊÈ:", 10, 0);
az_puti(len-2, 120, 0);
for (y = 0; y < 32; y++)
for (x = 0; x < 32; x++)
gb_bar(&screen, x*8, y*8+16, 8, 8, color[ M[x][y] ]);
break;
case 2:
gb_bar(&screen, 0, 0, scrw, scrh, 0xbb0000);
az_puts("Ï À Ó Ç À", 10, 60);
press_space();
break;
case 3:
gb_bar(&screen, 0, 0, scrw, scrh, 0xee0000);
az_puts("Ê Î Í Å Ö È Ã Ð Û", 10, 60);
kol_screen_wait_rr();
kol_paint_image(0, 0, scrw, scrh, screen.bmp);
kol_sleep(120);
mode = 0;
return;
};
kol_screen_wait_rr();
kol_paint_image(0, 0, scrw, scrh, screen.bmp);
}
//=====================================
void wnd_draw()
{
kol_paint_start();
kol_wnd_define(280, 30, scrw+8, scrh+kol_skin_height()+4, 0x34888888);
kol_wnd_caption(STR_TITLE);
screen_draw();
kol_paint_end();
}
//=====================================
int piton_move()
{
int i;
for (i = len-1; i > 0; i--)
{
z[i].x = z[i-1].x;
z[i].y = z[i-1].y;
}
z[0].x += v.x;
z[0].y += v.y;
if ((1 == M[z[0].x][z[0].y])||(2 == M[z[0].x][z[0].y]))
return -1;
if (3 == M[z[0].x][z[0].y])
{
rabbit_new();
return 1;
}
clear();
put_r();
put_z();
return 0;
}
//=====================================
void kol_main()
{
unsigned event, key;
int res;
srand(kol_system_time_get
()<<8);
screen.bmp = scr;
screen.w = scrw;
screen.h = scrh;
az.bmp = AZ3;
az.w = 744;
az.h = 15;
azr.bmp = AZ4;
azr.w = 512;
azr.h = 15;
mode = 0;
for (;;)
{
kol_sleep(9);
if ( 1 == mode)
{
res = piton_move();
if (1 == res)
len++;
if (-1 == res)
mode = 3;
}
screen_draw();
event = kol_event_check();
switch (event)
{
case 1:
wnd_draw();
break;
case 2:
key = (kol_key_get() & 0xff00)>>8;
switch (mode)
{
case 0:
if (32 == key)
{
mode = 1;
game_start();
}
break;
case 1:
switch (key)
{
case 27:
mode = 0;
break;
case 32:
mode = 2;
break;
case 178:
if (0 == v.y)
{
v.x = 0;
v.y = -1;
}
break;
case 177:
if (0 == v.y)
{
v.x = 0;
v.y = 1;
}
break;
case 176:
if (0 == v.x)
{
v.x = -1;
v.y = 0;
}
break;
case 179:
if (0 == v.x)
{
v.x = 1;
v.y = 0;
}
break;
};
break;
case 2:
if (32 == key)
mode = 1;
break;
};
break;
case 3:
if ( 1 == (kol_btn_get() & 0xff00)>>8 )
kol_exit();
break;
};
}
}
//=====================================