Форум программистов, компьютерный форум, киберфорум
Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 09.06.2011
Сообщений: 64
1

Я хочу создать игру на Blitz Basic3d. Помогите...

25.10.2011, 14:30. Просмотров 1000. Ответов 4
Метки нет (Все метки)


PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
# hunger has steady decay 
hunger = hunger - 0.8 * seconds 
if (hunger > 100) hunger = 100 endif 
if (hunger < 0) hunger = 0 endif 
 
# decrement energy when moving 
energy = energy - 0.03*speed^2.2 
 
# charge energy when still, except when hunger is red 
if (speed < 0.01) 
if (hunger >=0 and hunger <= 33) energy = energy -0.3 endif 
if (hunger > 33 and hunger <= 66) energy = energy + 0.8 endif 
if (hunger > 66 and hunger <= 100) energy = energy + 1.2 endif 
endif 
 
if (energy < 0) energy = 0 endif 
if (energy > 100) energy = 100 endif 
 
# creatures can starve to death 
if (hunger >=0 and hunger <= 33) health = health -0.5 endif 
if (health < 0) health = 0 endif 
if (health > 100) health = 100 endif 
Это будет образец...
Добавлено (25.10.2011, 12:56)
---------------------------------------------
;создаём окно в 3d мир 
Graphics3D 640,480,32,2 
;выбираем буфер прорисовки 
SetBuffer BackBuffer() 
;создаём камеру 
cam=CreateCamera() 
;размещаем камеру 
PositionEntity cam,1,1,1 
;создаём источник света 
light=CreateLight() 
AmbientLight 200,200,200 
;размещаем его 
RotateEntity light,90,0,0 
PositionEntity light, 1,20,1 
;создадим остров 
terrain=LoadTerrain( "остров1.bmp" ) 
;установим детальность ландшафта 
TerrainDetail terrain,4000,True 
 
;увеличим ландшафт 
ScaleEntity terrain,1,50,1 
 
;применим текстуры к нашему ландшафту 
grass_tex=LoadTexture( "остров.bmp" ) 
ScaleTexture grass_tex, 250, 250 
EntityTexture terrain,grass_tex,0,1 
detail=LoadTexture( "clip_image003.jpg" ) 
EntityTexture terrain,detail,0,1 
EntityTexture terrain,grass_tex,0,2 
ScaleTexture detail, 2,2 
;создадим море 
Global watermesh=LoadMesh("20x20mesh.3ds") 
RotateMesh watermesh,90,0,0 
RotateEntity watermesh,-90,0,0 
ScaleEntity watermesh,15,15,15 
PositionEntity watermesh, 0,6,0 
 
watertexture=LoadAnimTexture("wateranim.jpg",256,124,124,0,25) 
EntityTexture watermesh,watertexture,0,1 
ScaleTexture watertexture,.005,.005 
EntityShininess watermesh,0.5 
EntityAlpha watermesh, 0.5 
EntityFX watermesh, 32 
;-------------------- 
Global waterflow# = 10 
Global wavesize# = 0.06 
 
Global surface=GetSurface(watermesh,1) 
 
Global VertexCount=CountVertices(surface) 
 
Type Vertices 
Field x# 
Field y# 
Field z# 
End Type 
 
Dim Vertex.Vertices(VertexCount) 
 
For A=0 To VertexCount-1 
Vertex(a) = New Vertices 
Vertex(a)\x#=VertexX#(surface,a) 
Vertex(a)\y#=VertexY#(surface,a) 
Vertex(a)\z#=VertexZ#(surface,a) 
Next 
 
While Not KeyDown( 1 ) 
;задаём параметры перемещения камеры по ландшафту 
If KeyDown( 205 )=True Then TurnEntity cam,0,-1,0 
If KeyDown( 203 )=True Then TurnEntity cam,0,1,0 
If KeyDown( 208 )=True Then MoveEntity cam,0,0,-1 
If KeyDown( 200 )=True Then MoveEntity cam,0,0,1 
 
x#=EntityX(cam) 
y#=EntityY(cam) 
z#=EntityZ(cam) 
 
terra_y#=TerrainY(terrain,x#,y#,z#)+3 
 
PositionEntity cam,x#,terra_y#,z# 
wd=wd+1 
If wd=4 
EntityTexture watermesh,watertexture,frame,2 
frame=frame+1 
If frame=22 Then frame=0 
wd=0 
EndIf 
 
UpdateWater() 
;"Оживляем" все сущности в нашем 3d мире 
UpdateWorld 
RenderWorld 
 
Text 80,0,"Д Л Я П Е Р Е М Е Щ Е Н И Я И С П О Л Ь З У Й Т Е С Т Р Е Л О Ч К И Н А К Л А В И А Т У Р Е" 
Flip 
Wend 
End 
 
;функция обновления воды 
Function UpdateWater() 
For a=0 To VertexCount-1 
Freq#=MilliSecs()/waterflow 
Vertex(a)\z#=Sin(freq+Vertex(a)\x#*300+Vertex(a)\y#*400)*wavesize 
;сделаем динамическую деформацию 
VertexCoords surface,a,Vertex(a)\x#,Vertex(a)\y#,Vertex(a)\z# 
 
Next 
;пересчитаем сетку нормалей, для коректного освещения 
UpdateNormals watermesh 
;конец функции 
End Function
Я хочу что-бы он здесь бегал...
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2011, 14:30
Ответы с готовыми решениями:

Хочу создать игру
Привет всем.Хочу создать игру на андроид.Желательно с неплохой графикой.Игра будет меха-файтинг...

Хочу создать игру с вебкой
я так думаю все играли в игру тир или на подобе неё что-то. Хочу сделать похожую только чтоб можно...

Хочу создать игру в консоли на С#
Игра камень ножницы бумага.Суть игры Компилятор рандомно компилирует числа и со постовляет с...

Хочу создать игру - текстовый квест
Хочу создать текстовый квест в виде переписки с вариантами выбора. Какой код нужно писать, чтобы...

__________________
Помогаю в написании студенческих работ здесь.
4
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28022 / 15749 / 972
Регистрация: 15.09.2009
Сообщений: 67,776
Записей в блоге: 78
25.10.2011, 21:28 2
а при чем тут раздел музыка?
Цитата Сообщение от vikusya1298 Посмотреть сообщение
Я хочу что-бы он здесь бегал...
кто он?
деточка, вы меня утомили, бросайте программирование - это не ваше.
0
0 / 0 / 0
Регистрация: 09.06.2011
Сообщений: 64
25.10.2011, 21:30  [ТС] 3
я не нашла другой раздел
0
Памирыч
26.10.2011, 19:12
  #4
 Комментарий модератора 
vikusya1298, не создавайте дублирующие темы в этом и других разделах.
0
4794 / 1465 / 392
Регистрация: 25.04.2010
Сообщений: 4,090
Записей в блоге: 1
02.11.2011, 19:16 5
Ну видел я блитц, там всё легко пишется по справке.
В справке написано и разжёвано абсолютно всё.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2011, 19:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Хочу создать браузерную онлайн-игру
Собственно загорелся желанием. Хочу создать онлайн-игру типа apeha.ru или combats.ru. Но конечно до...

Хочу создать свою игру в поуер пойнте
хочу создать игру &quot;выбери ячейку&quot; в программе поуер пойнт. Через гиперссылку можно сделать ? Я...

Хочу создать браузерную онлайн игру типа БК или Территории
Доброе время суток. Хочу создать браузерную онлайн игру типа БК, Территории или Дозоров но только...

Подскажите, какая программа больше подходит юному программисту. Хочу создать свою игру.
Подскажите какая программа больше подходит юному программисту. Хочу создать свою игру.

Помогите создать игру в Delphi
Игра &quot; Грибники&quot; При запуске игры на экране сверху вниз случайным образом на грибника &quot;падают&quot;...

Хочу создать игру. Как для каждого уровня создовать свои кнопки, picterbox и выводить их на форму?
Хочу создать игру в Windows forms.как для каждого уровня создовать свои кнопки, picterbox и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.