|
02.05.2010 в 21:17
Сообщение #1
|
|
sanek(shoot)
Удаленные
|
люди можете дать матерриал(подробный желательно) как делать игровове поле плиззз (там тайлы и всё остальное).....плиззз
|
|
|
|
|
03.05.2010 в 14:24
Сообщение #2
|
|
psih
Непонятливый
Проверенные
Сообщений: 33
Offline
|
http://www.forum.boolean.name/showthread.php?t=11783 вот мего подробно и упрощенно
|
|
|
|
|
03.05.2010 в 18:49
Сообщение #3
|
|
sanek(shoot)
Удаленные
|
спс!!!!!!
|
|
|
|
|
04.05.2010 в 18:58
Сообщение #4
|
|
sanek(shoot)
Удаленные
|
люди помогите плохо разобрался с меню.....как мне связать меню и клаву чтобы например:при нажатии авторы выводил текст такойто вот прога:
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.
|
|
|
|
|
04.05.2010 в 18:59
Сообщение #5
|
|
sanek(shoot)
Удаленные
|
поправте если что не так все советы принемаются(нуб)
|
|
|
|
|
07.05.2010 в 14:33
Сообщение #6
|
|
psih
Непонятливый
Проверенные
Сообщений: 33
Offline
|
http://www.forum.boolean.name
там регайся и спроси
|
|
|
|
