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

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

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

Ответ
 
Опции темы
Старый 29.09.2013, 13:10   #1
executer300183
Оператор ЭВМ
 
Регистрация: 19.02.2013
Сообщений: 34
Написано 2 полезных сообщений
(для 2 пользователей)
Как сделать смещающийся пол?

Как сделать смещающийся пол слева направо (не просто скроллинг-а под углом )?

Вот картинка пола-думаю поймете-о чем я
http://rghost.ru/49040362
(Offline)
 
Ответить с цитированием
Старый 29.09.2013, 13:56   #2
Nerd
Чудо-кот
 
Аватар для Nerd
 
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений
(для 1,471 пользователей)
Ответ: Как сделать смещающийся пол?

Параллакс
(Offline)
 
Ответить с цитированием
Старый 29.09.2013, 15:54   #3
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Как сделать смещающийся пол?

Не получается
Вернее получатся-но не то
(Offline)
 
Ответить с цитированием
Старый 29.09.2013, 15:56   #4
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Как сделать смещающийся пол?

Вот код-где же ошибка?

ссылка на картинку "1.png" http://rghost.ru/49043697

Graphics3D 1024,768, 0, 2
SetBuffer=(BackBuffer)
p_1=LoadImage("1.png")

While Not KeyHit(1)
Cls

If KeyDown (203) Then x=x-1

If KeyDown (205) Then x=x+1

For a = 1 To 5
HandleImage p_1,x,0
DrawImage p_1,1*(4*a*x),300+(a*3)
Next

Flip

Wend
End
(Offline)
 
Ответить с цитированием
Старый 29.09.2013, 18:10   #5
Nerd
Чудо-кот
 
Аватар для Nerd
 
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений
(для 1,471 пользователей)
Ответ: Как сделать смещающийся пол?

Graphics3D 1024,768, 0, 2
SetBuffer BackBuffer()

p_1=CreateImage(2048,1)
LockBuffer ImageBuffer(p_1)
For i = 0 To 8
    For i2 = 0 To 128
        WritePixelFast i*256+i2,0,$FFFF0000,ImageBuffer(p_1)
    Next
    For i2 = 0 To 128
        WritePixelFast i*256+128+i2,0,$FF000000,ImageBuffer(p_1)
    Next
Next
UnlockBuffer ImageBuffer(p_1)

x# = 700
y# = 500
persp# = 16

While Not KeyHit(1)
Cls

x = x - 0.5

For a = 1 To 64

    DrawImage p_1,x+x*(a/512.0+Tan(a/persp)),y+a
    
Next

Flip

Wend
End

Последний раз редактировалось Nerd, 29.09.2013 в 19:32.
(Offline)
 
Ответить с цитированием
Старый 29.09.2013, 20:00   #6
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Как сделать смещающийся пол?

Большое спасибо !
Но кажется я неточно сформулировал задачу
Это должно без остановки происходить
вот так http://rghost.ru/49048949
(Offline)
 
Ответить с цитированием
Старый 30.09.2013, 14:27   #7
Nerd
Чудо-кот
 
Аватар для Nerd
 
Регистрация: 22.02.2011
Сообщений: 901
Написано 480 полезных сообщений
(для 1,471 пользователей)
Ответ: Как сделать смещающийся пол?

С изображением на голом блице не получится - будет сильно тормозить.
Graphics3D 1024,768, 0, 2
SetBuffer BackBuffer()


x# = 0
y# = 500

While Not KeyHit(1)
Cls

x = x - 1.5

    DrawFloor x,y

Flip 0

Wend
End


Function DrawFloor(x,y)
    Color 30,255,100
    Rect 0,y,GraphicsWidth(),GraphicsHeight(),1
    
    hw = GraphicsWidth()/2
    Color 20,40,255
    For i = -5 To 14
        
        For i2 = 0 To 64 
            lx = i*128+i2+(x Mod 512)
            Line lx,y,(lx-hw)*2+hw,GraphicsHeight()
            Line lx,y,(lx-hw)*2+hw+1,GraphicsHeight() ;Это надо переделать, но я сейчас туго соображаю
        Next
        
        
    Next
    
End Function
(Offline)
 
Ответить с цитированием
Старый 30.09.2013, 15:35   #8
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Как сделать смещающийся пол?

П моему-гениально!!!
Я ваш должник!!!
(Offline)
 
Ответить с цитированием
Старый 30.09.2013, 17:01   #9
executer300183
Оператор ЭВМ
 
Регистрация: 19.02.2013
Сообщений: 34
Написано 2 полезных сообщений
(для 2 пользователей)
Ответ: Как сделать смещающийся пол?

А реально сделать тоже самое-но с картинкой?,
Например с шахматной доской-чтоб продвигалась?
Не чисто графическая(линиями)-а полноценная картинка
(Offline)
 
Ответить с цитированием
Старый 30.09.2013, 23:28   #10
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: Как сделать смещающийся пол?

Можно, просто много матана будет. И кстати, нахрена два акка?
__________________


(Offline)
 
Ответить с цитированием
Старый 01.10.2013, 15:53   #11
executer
Нуждающийся
 
Регистрация: 19.11.2009
Сообщений: 64
Написано 4 полезных сообщений
(для 6 пользователей)
Ответ: Как сделать смещающийся пол?

2 акка-эт я регился в разно время-как вспомню-так и ввожу при входе-оттого и под разными никами вхожу
А с математикой я не дружу-тут помощь конечно нужна
Но видимо то черезчур просить-умолкаю
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

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

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


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


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