Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 29.03.2009, 14:32   #1
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Печаль Не могу понять в чем ошибка

[s]const MapHeight=15; MapWidth=15; var exit: command; tile1,man,kust,dom,tile,fon:image; map:array[0..19,0..19] of string; x,y,b,sped,sped2,zx,zc,m,a1,a2,a3,a4,a5,a6,a7,a8,key,image_id,ri,ri2,u,g,g1:integer; ScreenHeight,ScreenWidth:integer; res : resource; line:string; procedure LoadMap; begin res := OpenResource('/map.txt'); for y := 0 to MapHeight do begin line := ReadLine(res); for x := 0 to MapWidth do map[x,y] := GetChar(line,x); end; CloseResource(res); end; procedure RedrawMap; begin for y := 0 to MapHeight do for x := 0 to MapWidth do begin if map[x,y] = '5' then begin zx:=x*15+sped; zc:=y*15+sped2; DrawImage(fon,zx,zc); end; if map[x,y] = '1' then begin zx:=x*15+sped; zc:=y*15+sped2; DrawImage(dom,zx,zc); end; if map[x,y] = '2' then begin zx:=x*15+sped2; zc:=y*15+sped; DrawImage(kust,zx,zc); end; if map[x,y] = '3' then begin zx:=x*15+sped2; zc:=y*15+sped; DrawImage(tile,zx,zc); end; if map[x,y] = '4' then begin zx:=x*15+sped2; zc:=y*15+sped; DrawImage(tile1,zx,zc); end; end; end; procedure render; begin setcolor(255,255,255); RedrawMap; drawImage(loadImage('/play.png'), 50, 50); repaint; end; procedure pere; begin m:=0; for y := 0 to MapHeight do for x := 0 to MapWidth do begin if map[x,y] = '1,2,3,4' then begin zx:=x*16+sped2; zc:=y*16+sped; if (50<(zx+a1)) and ((50+a2)>zx) and (50<(zc+a3)) and ((50+a4)>zc) then m:=m+2; end; end; end; begin ScreenHeight := GetHeight; ScreenWidth := GetWidth; ri:=0; ri2:=0; sped:=0; m:=0; fon := loadImage('/man2.png'); tile1 := loadimage('/tile1.png'); tile := loadimage('/tile.png'); kust := loadimage('/kust.png'); dom := loadimage('/dom.png'); a1:=getImageWidth(loadImage('/play.png')); a2:=getImageWidth(loadImage('/tile1.png')); a3:=getImageHeight (loadImage('/play.png')); a4:=getImageHeight (loadImage('/tile1.png')); a5:=getImageWidth (loadImage('/kust.png')); a6:=getImageWidth (loadImage('/tile.png')); a7:=getImageHeight (loadImage('/kust.png')); a8:=getImageHeight (loadImage('/tile.png')); LoadMap; render; repeat key := getKeyPressed; if key =KE_KEY2 then begin sped:=sped+6; pere; if (m>0) then sped := sped-6; end; if key =KE_KEY4 then begin sped2:=sped2+6; pere; if (m>0) then sped2 := sped2-6; end; if key =KE_KEY6 then begin sped2:=sped2-6; pere; if (m>0) then sped2 := sped2+6; end; if key =KE_KEY8 then begin sped:=sped-6; pere; if (m>0) then sped := sped+6; end; render; until false; end.[/s]
все картинки в *.png даже не в*.PNG

Последний раз редактировалось KAK? TAK!, 30.03.2009 в 10:44.
(Offline)
 
Ответить с цитированием
Старый 30.03.2009, 16:59   #2
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

хелп
(Offline)
 
Ответить с цитированием
Старый 30.03.2009, 17:11   #3
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

прикол
Изображения
Тип файла: bmp sjboy.BMP (64.1 Кб, 881 просмотров)
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 14:33   #4
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

помогите
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 14:38   #5
oposum_2000
Оператор ЭВМ
 
Регистрация: 27.11.2006
Сообщений: 28
Написано одно полезное сообщение
Re: Ответ: Не могу понять в чем ошибка

Сообщение от KAK? TAK! Посмотреть сообщение
помогите

proect pri kompileatzii oshibok ne daet jar file 5.55 K vse ok
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 14:52   #6
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

ты его бы запустил все смазивается
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 15:05   #7
oposum_2000
Оператор ЭВМ
 
Регистрация: 27.11.2006
Сообщений: 28
Написано одно полезное сообщение
Re: Ответ: Не могу понять в чем ошибка

Сообщение от KAK? TAK! Посмотреть сообщение
ты его бы запустил все смазивается

a kak ia mogu zapustiti esli proect u tebea bez resursov : map.txt da eshe : play.png,man2.png,tile1.png ...... tam mnogo chevo nehvataet.
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 15:18   #8
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Счастье Ответ: Не могу понять в чем ошибка

лови
Вложения
Тип файла: zip bin.zip (90.7 Кб, 545 просмотров)
Тип файла: txt лщ4в.txt (3.1 Кб, 903 просмотров)
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 15:21   #9
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

и код
(Offline)
 
Ответить с цитированием
Старый 31.03.2009, 19:18   #10
Dj_Alex
ПроЭктировщик
 
Аватар для Dj_Alex
 
Регистрация: 08.03.2009
Адрес: Saransk
Сообщений: 143
Написано 25 полезных сообщений
(для 45 пользователей)
Ответ: Не могу понять в чем ошибка

ет че вообще такое? летающий дом? :D
а вообще в цикле прорисовки в самом начале добавь
setcolor(255,255,255);
fillrect(0, 0, getWidth, getHeight);
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
KAK? TAK! (01.04.2009)
Старый 01.04.2009, 06:26   #11
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

добавил как литает так и летал
(Offline)
 
Ответить с цитированием
Старый 02.04.2009, 16:27   #12
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

спс продолжаю работать над проектом а так проект мерз пока это хрень была спс всем
Dj_Alex респект я эту срочку писал в начале а потом её убрал потому что гдето изза неё небыло вывода на экран
(Offline)
 
Ответить с цитированием
Старый 03.04.2009, 15:00   #13
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

нев версия
Вложения
Тип файла: zip bin.zip (49.9 Кб, 559 просмотров)
(Offline)
 
Ответить с цитированием
Старый 03.04.2009, 15:01   #14
KAK? TAK!
Нуждающийся
 
Регистрация: 07.03.2009
Сообщений: 98
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Не могу понять в чем ошибка

добавил меню нев карту ну и текстуры те кто знает как организировать столкновение пишите
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу разобраться Unodeya 3D-программирование 11 27.06.2009 13:23
Не могу понять, как оптимизировать, то, что написал.... ratttx 3D-программирование 6 05.04.2009 19:17
не могу подгрузить png tired Основной форум 4 09.12.2007 10:03
не могу понять в чем прикол @lexxx Основной форум 30 03.12.2007 23:41
Не могу найти magpro Болтовня 5 19.07.2007 00:24


Часовой пояс GMT +4, время: 17:40.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com