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

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

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > 2D-программирование

2D-программирование Вопросы, касающиеся двумерного программирования

Ответ
 
Опции темы
Старый 09.02.2012, 00:16   #16
Reks888
Дэвелопер
 
Аватар для Reks888
 
Регистрация: 04.11.2009
Адрес: Украина, Днепропетровск
Сообщений: 1,480
Написано 662 полезных сообщений
(для 1,985 пользователей)
Ответ: Flight

Слишком рано запостил.
Обычно проэкты на таких ранних стадиях дохнут как мухи. В профилактичеких целях не рекомендуется создавать тему которая в 85% случаев будет потом пустовать из-за того что проэкт заброшен.
__________________
>type C:\MyProj\*
www.sypiac.weebly.com
>
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 00:34   #17
Randomize
[object Object]
 
Аватар для Randomize
 
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,354
Написано 2,470 полезных сообщений
(для 6,850 пользователей)
Ответ: Flight

В проектах лежит то, во что можно играть (ну как минимум есть что запустить/погонять).
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 19:32   #18
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

Graphics 0,0,32,1

SetBuffer BackBuffer()

Type player
Field x,px,deltax
Field y,py,deltay
End Type


Global dmgC#
Global x=100
Global y=100
Global speed#=3
Global zdorov#=100
Global speedc#=5
Global hp100=LoadImage("hp100.bmp")
Global hp80=LoadImage("hp80.bmp")
Global hp60=LoadImage("hp60.bmp")
Global hp40=LoadImage("hp40.bmp")
Global hp20=LoadImage("hp20.bmp")
Global cursor=LoadImage("cursor.bmp")
Global polosa=LoadImage("polosa.bmp")
Global Endd=LoadImage("end.bmp")
Global player=LoadImage("1.bmp")
Global ground=LoadImage ("ground1.bmp")
Global house1=LoadImage ("house1.bmp")
Global bot=LoadImage("bot.bmp")
Global car=LoadImage("car1.bmp")
Global cy=Rand(1366)

MaskImage hp100,255,255,255
MaskImage hp80,255,255,255
MaskImage hp60,255,255,255
MaskImage hp40,255,255,255
MaskImage hp20,255,255,255



MaskImage player,0,0,10

TileImage ground,0,0,0


Function updateplayer()

DrawImage player,x,y
MidHandle player
DrawImage player,x,y
DrawImage ground,0,0
DrawImage house1,300,400
DrawImage car,555,cy



f=LoadFont ("courier",40,False,False,False)

MaskImage cursor,255,255,255

px=x+speed*deltax
py=y+speed*deltay

DrawImage player,x,y



If x<0 Then x = 1366
If x>1366 Then x = 0
If y<0 Then y = 768
If y>768 Then y = 0




cursorX=MouseX()
cursorY=MouseY()
DrawImage cursor,MouseX(),MouseY()

px=x+speed#*deltax
py=y+speed#*deltay


If KeyDown(200) Or KeyDown(17) Then
y=y-speed
EndIf

If KeyDown(20 Or KeyDown(31)
y=y+speed
EndIf


If KeyDown(203) Or KeyDown(30)
x=x-speed
EndIf


If KeyDown(205) Or KeyDown(32)
x=x+speed
EndIf





If ImagesCollide(player,x,y,0,car,555,cy,0) Then zdorov#=zdorov#-2
If zdorov#>80 And zdorov#=<100 Then DrawImage hp100,5,5
If zdorov#>60 And zdorov#=<80 Then DrawImage hp80,5,5
If zdorov#>40 And zdorov#=<60 Then DrawImage hp60,5,5
If zdorov#>20 And zdorov#=<40 Then DrawImage hp40,5,5
If zdorov#>0 And zdorov#=<20 Then DrawImage hp20,5,5
If zdorov#<0 Then DrawImage endd,0,0





End Function
While Not KeyDown(1)
updateplayer()
Flip
Cls


DrawImage polosa,538,83


If 1=1 Then cy=cy+speedc#
If cy<0 Then cy = 768
If cy>768 Then cy = 0
If ImagesCollide(polosa,538,86,0,car,555,cy,0) Then speedc#=1
If Not ImagesCollide(polosa,538,86,0,car,555,cy,0) Then speedc#=5







Wend

End
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 19:38   #19
Nuprahtor
Элита
 
Аватар для Nuprahtor
 
Регистрация: 26.07.2008
Сообщений: 1,972
Написано 1,095 полезных сообщений
(для 3,923 пользователей)
Ответ: Flight

Не у всех есть Blitz3D чтобы просмотреть игру. А даже если и есть, то, я более чем уверен, у них не будет ресурсов, на которые ссылается код.
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 20:45   #20
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

вот первая версия игры. Только есть одна вещь, которая портит вид игры. Это то, что у ГГ справа непонятная полоска, и я не знаю, как ее убрать=(
помогите кто сможет
Вложения
Тип файла: rar flight.rar (382.5 Кб, 628 просмотров)
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 21:21   #21
Nikich
Бывалый
 
Регистрация: 22.12.2011
Сообщений: 844
Написано 150 полезных сообщений
(для 275 пользователей)
Ответ: Flight

Интересно, а как горит код?
(Offline)
 
Ответить с цитированием
Старый 09.02.2012, 21:27   #22
Colossus
Разработчик
 
Аватар для Colossus
 
Регистрация: 12.10.2008
Адрес: Самара
Сообщений: 437
Написано 55 полезных сообщений
(для 92 пользователей)
Ответ: Flight

Перепиши на бумагу свой Vivo - подожги и увидишь как горит код
__________________
Пекарня: Intel Core i3 - 3240(3.40Ghz), ram 8 gb, video Gigabyte Nvidia GeForce GTX 650 1gb

Лэптоп : Intel Core i3 - 2365(1.40Ghz), ram 4gb, video Int Intel HD3000(512mb)

Мой набор: 3ds Max 9 + Xors3d(Blitz3d) + Photoshop
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
Program23 (11.02.2012)
Старый 09.02.2012, 21:30   #23
Nikich
Бывалый
 
Регистрация: 22.12.2011
Сообщений: 844
Написано 150 полезных сообщений
(для 275 пользователей)
Ответ: Flight


Мой говно-код даже гореть с багами будет
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо Nikich за это полезное сообщение:
Артем Валерьевич (09.02.2012), Colossus (10.02.2012)
Старый 10.02.2012, 08:45   #24
Randomize
[object Object]
 
Аватар для Randomize
 
Регистрация: 01.08.2008
Адрес: В России
Сообщений: 4,354
Написано 2,470 полезных сообщений
(для 6,850 пользователей)
Ответ: Flight

Разведённый срач удалён. Жалобная книга для несогласных вы знаете где.

Автору темы:
Продолжай, экспериментируй, копи опыт и главное не обращай внимания на тех, кто пытается самоутвердиться принижая тебя. Тот опыт который ты сейчас получаешь - бесценен. Успехов в разработке!

По поводу полоски:
1) Попробуй делать MaskImage перед RotateImage
2) TFormFilter поставить 0 перед RotateImage (правда качество изображения будет хуже)
__________________
Retry, Abort, Ignore? █
Intel Core i7-9700 4.70 Ghz; 64Gb; Nvidia RTX 3070
AMD Ryzen 7 3800X 4.3Ghz; 64Gb; Nvidia 1070Ti
AMD Ryzen 7 1700X 3.4Ghz; 8Gb; AMD RX 570
AMD Athlon II 2.6Ghz; 8Gb; Nvidia GTX 750 Ti
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо Randomize за это полезное сообщение:
Colossus (10.02.2012), undertaker (10.02.2012)
Старый 10.02.2012, 18:46   #25
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

Опять проблема Я хочу сделать выстрел
for pyluaY=1 to5000
pulyaX=Tan (player_ungle)*pulyay
drawimage pulya, pulyax, pulyay
next...
И не работает.подскажите, кто знает
(Offline)
 
Ответить с цитированием
Старый 10.02.2012, 18:55   #26
FireOwl
Бывалый
 
Аватар для FireOwl
 
Регистрация: 16.09.2009
Адрес: Sun system
Сообщений: 831
Написано 442 полезных сообщений
(для 1,836 пользователей)
Ответ: Flight

У тебя сделано так, что пока летит пуля, ни фига больше не происходит. Даже флипа нет (flip), т.е. и drawimage впустую вызывается.
Обновление координат пули должно происходить в общем, главном цикле программы.
Вроде:
<главный цикл>
--<обновляем все, что должно обновляться от пуль, до игрока>
--<теперь рисуем все, что должно быть вообще нарисовано в кадре, по порядку>
--<flip - вывели кадр на экран>
<конец главного цикла, один кадр отрисован, возвращаемся к его началу>

P.S. Совет. Русские слова латиницей - ужасно смотрятся в коде, и еще ужаснее читаются. Время на разбирание кода вырастает в разы.
Полезная ссылка: http://translate.google.com/
Пуля по английски: bullet
Угол игрока: player angle
__________________
N"Gasta! Kvata! Kvakis!
Ahkstas so novajxletero (oix jhemile) so Ranetauw.
(Offline)
 
Ответить с цитированием
Старый 10.02.2012, 18:59   #27
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

нет. я сюда так написал pulya чтобы нагляднее было, а что касается angle - это моя опечатка))
(Offline)
 
Ответить с цитированием
Старый 10.02.2012, 20:24   #28
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

Очень нужна моделька дома(типо Пятиэтажки) сверху 2д. Размерами 150 на 440
(Offline)
 
Ответить с цитированием
Старый 10.02.2012, 21:16   #29
Nikich
Бывалый
 
Регистрация: 22.12.2011
Сообщений: 844
Написано 150 полезных сообщений
(для 275 пользователей)
Ответ: Flight


2D модель? Впервые слышу Может ты имел ввиду картинку?
(Offline)
 
Ответить с цитированием
Старый 11.02.2012, 00:25   #30
undertaker
Нуждающийся
 
Регистрация: 05.02.2012
Сообщений: 57
Написано 2 полезных сообщений
(для 4 пользователей)
Ответ: Flight

Ну да, картинку
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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