Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Офф-топ

Страница: 1 |

 

  Вопрос: ИГРА "Питон" на СИ Добавлено: 03.01.07 19:33  

Автор вопроса:  Цивильный
Ребят вот текст игры "Питон":

#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <string.h>
//------------------------------------------------

int draw(int x, int y)
{
 circle(x,y,5);
 putpixel(x-2,y-2,15);
 putpixel(x+2,y-2,15);
 putpixel(x,y,15);
 line(x-1,y+2,x+1,y+2);
 return 0;
}
void main(void)
{
int gdriver = DETECT, gmode;
initgraph(&gdriver, &gmode, "");
void *M;
int i, j, x, y, x1, y1, k=0;
char s[2], c[10]={"123456789"};
randomize();
int Applex[61]={20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460,470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620};
int Appley[38]={20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390};
int size;


x=320;
y=200;
rectangle(13,13,627,397);
outtextxy(290,450,"Score: 0");

i=random(60);
j=random(38);
x1=Applex;
y1=Appley[j];
draw(x,y);
size = imagesize(x-5, y-5, x+5, y+5);
M = malloc(size);
getimage(x-5, y-5, x+5, y+5, M);
int key;
int nx=x;
int ny=y;
do
{
circle(x1,y1,5);
line(x1,y1-5,x1,y1-7);
floodfill(x1,y1,15);
if(kbhit()) key=getch();
if(key==80) ny+=10;
if(key==72) ny-=10;
if(key==77) nx+=10;
if(key==75) nx-=10;
delay(150);

putimage(x-5, y-5, M, XOR_PUT);
x = nx;
y=ny;
if (ny>=392| ny<=18| nx>=622| nx<=18)
{
outtextxy(250,200,"Snake left for border");
getch();
closegraph();
}
if (x==x1 && y==y1)
{
 s[0]=c[k];
 s[1]='\0';
cleardevice();
rectangle(13,13,627,397);
outtextxy(290,450,"Score: ");
i=random(60);
j=random(38);
x1=Applex;
y1=Appley[j];
circle(x1,y1,5);
line(x1,y1-5,x1,y1-7);
outtextxy(347,450,s);
k++;
}
putimage(x-5, y-5, M, XOR_PUT);
}
while(key!=27);
free(M);
getch();
closegraph();
}

Подскажите ПОЖАЛУЙСТА, если сможите, КАК ПРИЦЕПИТЬ КРУГЛОЕ ЗВЕНО(хвост) К ГОЛОВЕ ЗМЕЙКИ ПРИ СЪЕДАНИИ ЯБЛОКА???!!!

Ответить

  Ответы Всего ответов: 9  

Номер ответа: 1
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #1
Добавлено: 03.01.07 19:36
Привет, когда ты научишься пользоваться тегом [CODE]. Если бы ты им пользовался то текст не был бы курсивом.

Ответить

Номер ответа: 2
Автор ответа:
 Цивильный



Вопросов: 33
Ответов: 15
 Профиль | | #2 Добавлено: 03.01.07 19:56
<CODE>Еслиб кто научил</CODE>

Ответить

Номер ответа: 3
Автор ответа:
 Цивильный



Вопросов: 33
Ответов: 15
 Профиль | | #3 Добавлено: 03.01.07 19:57
Или так

Ответить

Номер ответа: 4
Автор ответа:
 Цивильный



Вопросов: 33
Ответов: 15
 Профиль | | #4 Добавлено: 03.01.07 20:00

Ребят, вот текст игры питон:

#include <graphics.h>
#include <stdlib.h>
#include <stdio.h>
#include <conio.h>
#include <dos.h>
#include <string.h>
//------------------------------------------------

int draw(int x, int y)
{
 circle(x,y,5);
 putpixel(x-2,y-2,15);
 putpixel(x+2,y-2,15);
 putpixel(x,y,15);
 line(x-1,y+2,x+1,y+2);
 return 0;
}
void main(void)
{
int gdriver = DETECT, gmode;
initgraph(&gdriver, &gmode, "";);
void *M;
int i, j, x, y, x1, y1, k=0;
char s[2], c[10]={"123456789"};
randomize();
int Applex[61]={20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390,400,410,420,430,440,450,460,470,480,490,500,510,520,530,540,550,560,570,580,590,600,610,620};
int Appley[38]={20,30,40,50,60,70,80,90,100,110,120,130,140,150,160,170,180,190,200,210,220,230,240,250,260,270,280,290,300,310,320,330,340,350,360,370,380,390};
int size;


x=320;
y=200;
rectangle(13,13,627,397);
outtextxy(290,450,"Score: 0";);

i=random(60);
j=random(38);
x1=Applex[i];
y1=Appley[j];
draw(x,y);
size = imagesize(x-5, y-5, x+5, y+5);
M = malloc(size);
getimage(x-5, y-5, x+5, y+5, M);
int key;
int nx=x;
int ny=y;
do
{
circle(x1,y1,5);
line(x1,y1-5,x1,y1-7);
floodfill(x1,y1,15);
if(kbhit()) key=getch();
if(key==80) ny+=10;
if(key==72) ny-=10;
if(key==77) nx+=10;
if(key==75) nx-=10;
delay(150);

putimage(x-5, y-5, M, XOR_PUT);
x = nx;
y=ny;
if (ny>=392| ny<=18| nx>=622| nx<=18)
{
outtextxy(250,200,"Snake left for border";);
getch();
closegraph();
}
if (x==x1 && y==y1)
{
 s[0]=c[k];
 s[1]='\0';
cleardevice();
rectangle(13,13,627,397);
outtextxy(290,450,"Score: ";);
i=random(60);
j=random(38);
x1=Applex[i];
y1=Appley[j];
circle(x1,y1,5);
line(x1,y1-5,x1,y1-7);
outtextxy(347,450,s);
k++;
}
putimage(x-5, y-5, M, XOR_PUT);
}
while(key!=27);
free(M);
getch();
closegraph();
}

ПОДСКАЖИТЕ ПОЖАЛУЙСТА: КАК ПРИЦЕПИТЬ КРУГЛОЕ ЗВЕНО (ХВОСТ) К ГОЛОВЕ ЗМЕЙКИ ПРИ СЪЕДАНИИ ЯБЛОКА???!!!

Ответить

Номер ответа: 5
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #5
Добавлено: 03.01.07 21:37
Попробуй так. Создавай массив где будет храниться координаты "головы питона". И по этим координатам сисуй кружочки-туловище.

Ответить

Номер ответа: 6
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #6 Добавлено: 03.01.07 21:38
:\ а graphics.h стандартный или это приблуда какая-то? Или у меня кривая студия стоит?

Ответить

Номер ответа: 7
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #7
Добавлено: 03.01.07 21:40
сисуй=рисуй.

Ответить

Номер ответа: 8
Автор ответа:
 Djon



Вопросов: 61
Ответов: 471
 Web-сайт: www.vk-book.ru
 Профиль | | #8
Добавлено: 03.01.07 21:41
Хакер. это Borland C.

Ответить

Номер ответа: 9
Автор ответа:
 Цивильный



Вопросов: 33
Ответов: 15
 Профиль | | #9 Добавлено: 03.01.07 23:54
Это BC 3.1

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам