Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ADMIN, Nextik  
хелп
sanek(shoot)Дата: Воскресенье, 02.05.2010, 21:17 | Сообщение # 1
Группа: Удаленные





люди можете дать матерриал(подробный желательно) как делать игровове поле плиззз (там тайлы и всё остальное).....плиззз
 
psihДата: Понедельник, 03.05.2010, 14:24 | Сообщение # 2
Непонятливый
Группа: Проверенные
Сообщений: 33
Награды: 0
Репутация: « 2 »
Статус: Offline
http://www.forum.boolean.name/showthread.php?t=11783

вот мего подробно и упрощенно

 
sanek(shoot)Дата: Понедельник, 03.05.2010, 18:49 | Сообщение # 3
Группа: Удаленные





спс!!!!!!
 
sanek(shoot)Дата: Вторник, 04.05.2010, 18:58 | Сообщение # 4
Группа: Удаленные





люди помогите плохо разобрался с меню.....как мне связать меню и клаву чтобы например:при нажатии авторы выводил текст такойто вот прога:
Program Menu2;
Var
wi, hi, key, ch, cw, i, c, c_color, c_pos, c_c, c_pos_c,j: integer;
m: array [0..5] of string;
x, y: array [0..100] of integer;
ima,sasha:image;

Begin
if not OpenPlayer('/b2.mid', 'audio/midi') then
Halt;
if not SetPlayerCount(-1) then
Halt;
if not StartPlayer then
Halt;
wi:=GetWidth; hi:=GetHeight;c:=0; cw:=100;c:=0; c_color:=125; c_c:=5; c_pos:=0; c_pos_c:=1;ima:=LoadImage('/runr.png');sasha:=loadimage('/powered.png');
m[0]:='Старт'; m[1]:='Настройки'; m[2]:='Помощь'; m[3]:='Рекорды'; m[4]:='Авторы'; m[5]:='Выход';
SetFont(FONT_FACE_SYSTEM, FONT_STYLE_BOLD, FONT_SIZE_LARGE);
ch:=GetStringHeight('X');
while getkeyclicked<>ke_key5 do
begin
ima:=loadimage('/runr.png');
drawimage(ima,0,0);
drawtext('нажми 5',0,0);
repaint;
end;
repeat
SetColor(0,0,0); FillRect(0,0,wi,hi);
SetColor(0,0,0); FillRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
SetColor(255,255,255); DrawRoundRect(20, (hi-ch*6)/2, wi-40, ch*6, 20, 20);
setcolor(0,127,0);
for i:=0 to 5 do DrawText(m[i], (wi-GetStringWidth(m[i]))/2, (hi-ch*6)/2+i*ch);
SetColor(0,c_color,0);
DrawText('>', (wi-GetStringWidth(m[c]))/2-20+c_pos, (hi-ch*6)/2+c*ch);
key:=GetKeyClicked;
if (key=-59) or (key=-1) or (key=50) then c:=(c+5) mod 6;
if (key=-60) or (key=-2) or (key=-6) or (key=56) then c:=(c+1) mod 6;
if (key=53) or (key=-26) or (key=-5) or (key=-20) then
begin
for j:=1 to 6 do
if c=5 then Halt;
if c=5 then Halt;
if c=......?????????? setcolor(255,255,255);drawimage(sasha,0,0);repaint;delay(3400);


end;
repaint;until false;
end.

 
sanek(shoot)Дата: Вторник, 04.05.2010, 18:59 | Сообщение # 5
Группа: Удаленные





поправте если что не так все советы принемаются(нуб)
 
psihДата: Пятница, 07.05.2010, 14:33 | Сообщение # 6
Непонятливый
Группа: Проверенные
Сообщений: 33
Награды: 0
Репутация: « 2 »
Статус: Offline
http://www.forum.boolean.name
там регайся и спроси
 
  • Страница 1 из 1
  • 1
Поиск: