|
Результаты поиска
| |
| uniti | Дата: Воскресенье, 02 Января 2011, 13:35 | Сообщение # 1 | Тема: Вопрос по Orge3D |
|
частый гость
Сейчас нет на сайте
| спасибо Добавлено (02.01.2011, 13:35)
---------------------------------------------
Vinchensoo, я просто у нас на сайте не искал
понимания приходит с практикой, а с практикой приходит опыт
Сообщение отредактировал uniti - Воскресенье, 02 Января 2011, 13:35 |
|
|
| |
| uniti | Дата: Воскресенье, 02 Января 2011, 13:27 | Сообщение # 2 | Тема: Вопрос по Orge3D |
|
частый гость
Сейчас нет на сайте
| Vinchensoo, я знаю что он не ехе файл, он то на Borland не запускается мне нужно компилятор
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Воскресенье, 02 Января 2011, 13:24 | Сообщение # 3 | Тема: Вопрос по Orge3D |
|
частый гость
Сейчас нет на сайте
| Люди я не понял как запустить орг что нужно качать и что нужно для орга помогите пожалуйста напишите все программы требующие орг
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 20:20 | Сообщение # 4 | Тема: Давайте помечтаем - какую бы вы сделали игру? |
|
частый гость
Сейчас нет на сайте
| Сделал бы две игры которые перевернули мир один шутер в котором можно будет воевать сколько влезет и возможности были б какие хотите от засады на дереве до подкопа, и стратегию в который можно будет делать что хочешь
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 04:15 | Сообщение # 5 | Тема: Лицензионные игры |
|
частый гость
Сейчас нет на сайте
| А у меня в городе нет лицензионных дисков
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:40 | Сообщение # 6 | Тема: Видиографика |
|
частый гость
Сейчас нет на сайте
| Quote (Inu) А Марио 2D игра.
Блин (((
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:37 | Сообщение # 7 | Тема: КРИ 1979 |
|
частый гость
Сейчас нет на сайте
| Ахаха Марио убил просто
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:30 | Сообщение # 8 | Тема: Видиографика |
|
частый гость
Сейчас нет на сайте
| а существует 1Д?? это наверное марио или что??
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:23 | Сообщение # 9 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| а он сильно похож??
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:14 | Сообщение # 10 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Serg1971, так и сделаю Добавлено (01.01.2011, 03:14)
---------------------------------------------
ааааааааа блин перс так и далее выбивает
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:06 | Сообщение # 11 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| косяк исправил но вот перс меня скоро доконает
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 03:05 | Сообщение # 12 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Перс 55.7KB сделано на MilkShape 3D
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 02:57 | Сообщение # 13 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Blitz-school в гугле нашел два урока по созданию игры и браузерной игры Добавлено (01.01.2011, 02:48)
---------------------------------------------
Quote Graphics3D 640,480 SetBuffer BackBuffer() Dim aMap(20,20)
Dim aCube(20,20) Const TypePlayer = 1, TypeWall = 2, TypeDoor = 3
Const HDOOR = 6, VDOOR = 7
Const OPENING = 10, OPENED = 20, CLOSING = 30, CLOSED = 40 Global player=CreateSphere()
PositionEntity player,6, 0.4, 5
ScaleEntity player,0.1,0.1,0.1
TurnEntity player,0,0,0
EntityType player, TypePlayer cam=CreateCamera(player)
light=CreateLight(1) Global Floortex=LoadTexture("floor.jpg")
Floor1=CreatePlane()
PositionEntity Floor1,0,-1.5,0
EntityTexture Floor1, Floortex Global skytex=LoadTexture("ceil.jpg")
ceiling=CreatePlane()
PositionEntity ceiling,0,1.5,0
EntityTexture ceiling, skytex
TurnEntity ceiling, 0,0,180 herotex=LoadTexture( "toad.jpg" )
hero=LoadMD2( "hero.ms3d" )
EntityTexture hero,herot_ex
PositionEntity hero, 10,-1.5,14
ScaleEntity hero, 0.03,0.03,0.03
mapSize% = 20
filein = ReadFile("level5.map")
mapLines = 1 While Not Eof(filein)
mapStr$ = ReadLine$( filein )
For i=1 To MapSize
aMap(mapLines,i) = Int( Mid(mapStr,i,1 ))
Next
mapLines = mapLines + 1
Wend
CloseFile(filein) ; Doors Info Structure
Type doorsinfo
Field ix%,iz%
Field oDoor%
Field status%
Field pos#
Field doortype% ; VDOOR, HDOOR
; Field Delay%
Field ticks#
End Type Global ALL_DOORS = 50 ; number of doors
Dim Doors.doorsinfo( ALL_DOORS )
Global NumDoors = 0 tex = LoadTexture ("tex1.jpg")
tex2 = LoadTexture ("tex2.jpg")
tex3 = LoadTexture ("tex3.jpg")
tex4 = LoadTexture ("tex4.png",4)
tex5 = LoadTexture ("door1.jpg") For j=1 To mapSize
For i=1 To mapSize
If aMap(j,i) <> 0
aCube(j,i)=CreateCube()
Select aMap(j,i)
Case 1
EntityTexture aCube(j,i), tex
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 2
EntityTexture aCube(j,i), tex2
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 3
EntityTexture aCube(j,i), tex3
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 4
EntityTexture aCube(j,i), tex4
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case HDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),1.5,1.5,0.2
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = HDOOR
Case VDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),0.2,1.5,1.5
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = VDOOR
End Select
PositionEntity aCube(j,i), i*3, 0, j*3
EndIf
Next
Next Collisions TypePlayer, TypeWall, 2, 3
Collisions TypePlayer, TypeDoor, 2, 3 While Not KeyDown( 1 ) If KeyDown(200) MoveEntity player, 0, 0, 0.2
If KeyDown(208) MoveEntity player, 0, 0, -0.2
If KeyDown(203) TurnEntity player, 0, 2, 0
If KeyDown(205) TurnEntity player, 0, -2, 0 If KeyDown(59) AnimateMD2 hero,1,0.2,1,9
If KeyDown(60) AnimateMD2 hero,1,0.2,1,1 entitywall% = EntityCollided(Player,TypeWall)
entitydoor% = EntityCollided(Player,TypeDoor) CollideDoors(entitydoor)
UpdateDoors UpdateWorld
RenderWorld ; Text 12,10, "Entity Wall: "+Str(entitywall)
; Text 12,20, "Entity Door: "+Str(entitydoor) Flip
Wend End ;---------------------------
Function CollideDoors( door )
For i=1 To NumDoors
If Str(Doors(i)\oDoor) = Str(door)
; FoundDoor = Str(Doors(i)\status)
Doors(i)\status = OPENING
EndIf
Next
End Function ;---------------------------
Function UpdateDoors() If current + time_delay < MilliSecs() For i=1 To NumDoors
; Îáðàáîòêà îòêðûâàíèÿ
If Doors(i)\status = OPENING
Doors(i)\pos = Doors(i)\pos + 0.1
If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf If Doors(i)\pos > 2.8
Doors(i)\pos = 2.8
Doors(i)\status = OPENED
Doors(i)\ticks = MilliSecs()+3000
EndIf
EndIf ;
If Doors(i)\ticks < MilliSecs() And Doors(i)\status = OPENED Then
If Doors(i)\doortype = VDOOR
Doors(i)\status = CLOSING
EndIf
If Doors(i)\doortype = HDOOR
Doors(i)\status = CLOSING
EndIf
EndIf ;
If Doors(i)\status = CLOSING
Doors(i)\pos = Doors(i)\pos - 0.1 If Doors(i)\pos < 0
Doors(i)\pos = 0
Doors(i)\status = CLOSED
EndIf If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf
EndIf
Next
EndIf
current = MilliSecs() End Function Добавлено (01.01.2011, 02:57)
---------------------------------------------
Вот код блитс
я уже скопировал
пишет EntityTexture hero, herotex
Code
Graphics3D 640,480
SetBuffer BackBuffer()
Dim aMap(20,20)
Dim aCube(20,20)
Const TypePlayer = 1, TypeWall = 2, TypeDoor = 3
Const HDOOR = 6, VDOOR = 7
Const OPENING = 10, OPENED = 20, CLOSING = 30, CLOSED = 40
Global player=CreateSphere()
PositionEntity player,6, 0.4, 5
ScaleEntity player,0.1,0.1,0.1
TurnEntity player,0,0,0
EntityType player, TypePlayer
cam=CreateCamera(player)
light=CreateLight(1)
Global Floortex=LoadTexture("floor.jpg")
Floor1=CreatePlane()
PositionEntity Floor1,0,-1.5,0
EntityTexture Floor1, floortex
Global skytex=LoadTexture("ceil.jpg")
ceiling=CreatePlane()
PositionEntity ceiling,0,1.5,0
EntityTexture ceiling, skytex
TurnEntity ceiling, 0,0,180
hero_tex=LoadTexture( "toad.png" )
hero=LoadMD2( "hero.md2" )
EntityTexture hero,hero_tex
PositionEntity hero, 10,-1.5,14
ScaleEntity hero, 0.03,0.03,0.03
mapSize% = 20
filein = ReadFile("level5.map")
mapLines = 1
While Not Eof(filein)
mapStr$ = ReadLine$( filein )
For i=1 To MapSize
aMap(mapLines,i) = Int( Mid(mapStr,i,1 ))
Next
mapLines = mapLines + 1
Wend
CloseFile(filein)
; Doors Info Structure
Type doorsinfo
Field ix%,iz%
Field oDoor%
Field status%
Field pos#
Field doortype% ; VDOOR, HDOOR
; Field Delay%
Field ticks#
End Type
Global ALL_DOORS = 50 ; number of doors
Dim Doors.doorsinfo( ALL_DOORS )
Global NumDoors = 0
tex = LoadTexture ("tex1.jpg")
tex2 = LoadTexture ("tex2.jpg")
tex3 = LoadTexture ("tex3.jpg")
tex4 = LoadTexture ("tex4.png",4)
tex5 = LoadTexture ("door1.jpg")
For j=1 To mapSize
For i=1 To mapSize
If aMap(j,i) <> 0
aCube(j,i)=CreateCube()
Select aMap(j,i)
Case 1
EntityTexture aCube(j,i), tex
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 2
EntityTexture aCube(j,i), tex2
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 3
EntityTexture aCube(j,i), tex3
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 4
EntityTexture aCube(j,i), tex4
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case HDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),1.5,1.5,0.2
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = HDOOR
Case VDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),0.2,1.5,1.5
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = VDOOR
End Select
PositionEntity aCube(j,i), i*3, 0, j*3
EndIf
Next
Next
Collisions TypePlayer, TypeWall, 2, 3
Collisions TypePlayer, TypeDoor, 2, 3
While Not KeyDown( 1 )
If KeyDown(200) MoveEntity player, 0, 0, 0.2
If KeyDown(208) MoveEntity player, 0, 0, -0.2
If KeyDown(203) TurnEntity player, 0, 2, 0
If KeyDown(205) TurnEntity player, 0, -2, 0
If KeyDown(59) AnimateMD2 hero,1,0.2,1,9
If KeyDown(60) AnimateMD2 hero,1,0.2,1,1
entitywall% = EntityCollided(Player,TypeWall)
entitydoor% = EntityCollided(Player,TypeDoor)
CollideDoors(entitydoor)
UpdateDoors
UpdateWorld
RenderWorld
; Text 12,10, "Entity Wall: "+Str(entitywall)
; Text 12,20, "Entity Door: "+Str(entitydoor)
Flip
Wend
End
;---------------------------
Function CollideDoors( door )
For i=1 To NumDoors
If Str(Doors(i)\oDoor) = Str(door)
; FoundDoor = Str(Doors(i)\status)
Doors(i)\status = OPENING
EndIf
Next
End Function
;---------------------------
Function UpdateDoors()
If current + time_delay < MilliSecs()
For i=1 To NumDoors
; Обработка открывания
If Doors(i)\status = OPENING
Doors(i)\pos = Doors(i)\pos + 0.1
If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf
If Doors(i)\pos > 2.8
Doors(i)\pos = 2.8
Doors(i)\status = OPENED
Doors(i)\ticks = MilliSecs()+3000
EndIf
EndIf
;
If Doors(i)\ticks < MilliSecs() And Doors(i)\status = OPENED Then
If Doors(i)\doortype = VDOOR
Doors(i)\status = CLOSING
EndIf
If Doors(i)\doortype = HDOOR
Doors(i)\status = CLOSING
EndIf
EndIf
;
If Doors(i)\status = CLOSING
Doors(i)\pos = Doors(i)\pos - 0.1
If Doors(i)\pos < 0
Doors(i)\pos = 0
Doors(i)\status = CLOSED
EndIf
If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf
EndIf
Next
EndIf
current = MilliSecs()
End Function
понимания приходит с практикой, а с практикой приходит опыт
Сообщение отредактировал uniti - Суббота, 01 Января 2011, 02:47 |
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 02:32 | Сообщение # 14 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| а все понял Добавлено (01.01.2011, 02:32)
---------------------------------------------
Блин теперь EntityTexture hero, herotex
Code
herotex=LoadTexture( "toad.png" )
hero=LoadMD2( "hero.ms3d" )
EntityTexture hero,herotex
PositionEntity hero, 10,-1.5,14
ScaleEntity hero, 0.03,0.03,0.03
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 02:12 | Сообщение # 15 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Serg1971, Это скорей текстуры спрайтов (( Добавлено (01.01.2011, 02:12)
---------------------------------------------
а чем можно сделать картинку 128х128 ??
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 01:59 | Сообщение # 16 | Тема: FreeBasic |
|
частый гость
Сейчас нет на сайте
| Мне наибольшие понравились FreeBasic и С Добавлено (01.01.2011, 01:59)
---------------------------------------------
А у кого то есть учебники ???
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Суббота, 01 Января 2011, 01:47 | Сообщение # 17 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Quote (Serg1971) и посмотри все текстуры на разрешении кратном 2 что-бы было...
Я не понял
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Пятница, 31 Декабря 2010, 22:51 | Сообщение # 18 | Тема: Blitz3D |
|
частый гость
Сейчас нет на сайте
| Пишет Texture does not exist
EntityTexture Floor1, floortex вот что покрасило красным код:
Code
Graphics3D 640,480
SetBuffer BackBuffer()
Dim aMap(20,20)
Dim aCube(20,20)
Const TypePlayer = 1, TypeWall = 2, TypeDoor = 3
Const HDOOR = 6, VDOOR = 7
Const OPENING = 10, OPENED = 20, CLOSING = 30, CLOSED = 40
Global player=CreateSphere()
PositionEntity player,6, 0.4, 5
ScaleEntity player,0.1,0.1,0.1
TurnEntity player,0,0,0
EntityType player, TypePlayer
cam=CreateCamera(player)
light=CreateLight(1)
Global Floortex=LoadTexture("floor.jpg")
Floor1=CreatePlane()
PositionEntity Floor1,0,-1.5,0
EntityTexture Floor1, floortex
Global skytex=LoadTexture("ceil.jpg")
ceiling=CreatePlane()
PositionEntity ceiling,0,1.5,0
EntityTexture ceiling, skytex
TurnEntity ceiling, 0,0,180
hero_tex=LoadTexture( "toad.png" )
hero=LoadMD2( "hero.md2" )
EntityTexture hero,hero_tex
PositionEntity hero, 10,-1.5,14
ScaleEntity hero, 0.03,0.03,0.03
mapSize% = 20
filein = ReadFile("level5.map")
mapLines = 1
While Not Eof(filein)
mapStr$ = ReadLine$( filein )
For i=1 To MapSize
aMap(mapLines,i) = Int( Mid(mapStr,i,1 ))
Next
mapLines = mapLines + 1
Wend
CloseFile(filein)
; Doors Info Structure
Type doorsinfo
Field ix%,iz%
Field oDoor%
Field status%
Field pos#
Field doortype% ; VDOOR, HDOOR
; Field Delay%
Field ticks#
End Type
Global ALL_DOORS = 50 ; number of doors
Dim Doors.doorsinfo( ALL_DOORS )
Global NumDoors = 0
tex = LoadTexture ("tex1.jpg")
tex2 = LoadTexture ("tex2.jpg")
tex3 = LoadTexture ("tex3.jpg")
tex4 = LoadTexture ("tex4.png",4)
tex5 = LoadTexture ("door1.jpg")
For j=1 To mapSize
For i=1 To mapSize
If aMap(j,i) <> 0
aCube(j,i)=CreateCube()
Select aMap(j,i)
Case 1
EntityTexture aCube(j,i), tex
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 2
EntityTexture aCube(j,i), tex2
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 3
EntityTexture aCube(j,i), tex3
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case 4
EntityTexture aCube(j,i), tex4
ScaleEntity aCube(j,i),1.5,1.5,1.5
EntityType aCube(j,i), TypeWall
Case HDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),1.5,1.5,0.2
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = HDOOR
Case VDOOR
EntityTexture aCube(j,i), tex5
ScaleEntity aCube(j,i),0.2,1.5,1.5
EntityType aCube(j,i), TypeDoor
NumDoors = NumDoors + 1
Doors(NumDoors) = New doorsinfo
Doors(NumDoors)\oDoor = aCube(j,i)
Doors(NumDoors)\ix = i*3
Doors(NumDoors)\iz = j*3
Doors(NumDoors)\status = CLOSED
Doors(NumDoors)\pos = 0
Doors(NumDoors)\doortype = VDOOR
End Select
PositionEntity aCube(j,i), i*3, 0, j*3
EndIf
Next
Next
Collisions TypePlayer, TypeWall, 2, 3
Collisions TypePlayer, TypeDoor, 2, 3
While Not KeyDown( 1 )
If KeyDown(200) MoveEntity player, 0, 0, 0.2
If KeyDown(208) MoveEntity player, 0, 0, -0.2
If KeyDown(203) TurnEntity player, 0, 2, 0
If KeyDown(205) TurnEntity player, 0, -2, 0
If KeyDown(59) AnimateMD2 hero,1,0.2,1,9
If KeyDown(60) AnimateMD2 hero,1,0.2,1,1
entitywall% = EntityCollided(Player,TypeWall)
entitydoor% = EntityCollided(Player,TypeDoor)
CollideDoors(entitydoor)
UpdateDoors
UpdateWorld
RenderWorld
; Text 12,10, "Entity Wall: "+Str(entitywall)
; Text 12,20, "Entity Door: "+Str(entitydoor)
Flip
Wend
End
;---------------------------
Function CollideDoors( door )
For i=1 To NumDoors
If Str(Doors(i)\oDoor) = Str(door)
; FoundDoor = Str(Doors(i)\status)
Doors(i)\status = OPENING
EndIf
Next
End Function
;---------------------------
Function UpdateDoors()
If current + time_delay < MilliSecs()
For i=1 To NumDoors
; Обработка открывания
If Doors(i)\status = OPENING
Doors(i)\pos = Doors(i)\pos + 0.1
If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf
If Doors(i)\pos > 2.8
Doors(i)\pos = 2.8
Doors(i)\status = OPENED
Doors(i)\ticks = MilliSecs()+3000
EndIf
EndIf
;
If Doors(i)\ticks < MilliSecs() And Doors(i)\status = OPENED Then
If Doors(i)\doortype = VDOOR
Doors(i)\status = CLOSING
EndIf
If Doors(i)\doortype = HDOOR
Doors(i)\status = CLOSING
EndIf
EndIf
;
If Doors(i)\status = CLOSING
Doors(i)\pos = Doors(i)\pos - 0.1
If Doors(i)\pos < 0
Doors(i)\pos = 0
Doors(i)\status = CLOSED
EndIf
If Doors(i)\doortype = VDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix, 0, Doors(i)\iz + Doors(i)\pos
EndIf
If Doors(i)\doortype = HDOOR
PositionEntity Doors(i)\oDoor, Doors(i)\ix + Doors(i)\pos, 0, Doors(i)\iz
EndIf
EndIf
Next
EndIf
current = MilliSecs()
End Function
Добавлено (31.12.2010, 22:22)
---------------------------------------------
хотя все текстуры есть Добавлено (31.12.2010, 22:32)
---------------------------------------------
а все понял Добавлено (31.12.2010, 22:51)
---------------------------------------------
а нет также пишет
EntityTexture Floor1, floortex
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Четверг, 30 Декабря 2010, 20:21 | Сообщение # 19 | Тема: Проблема с МуСол |
|
частый гость
Сейчас нет на сайте
| Vinchensoo, проблема в том что я изучаю блитс-скул а там описано очень скупо(уроками могу поделится так как сам нашел их в интернете)
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
| uniti | Дата: Четверг, 30 Декабря 2010, 20:15 | Сообщение # 20 | Тема: Проблема с МуСол |
|
частый гость
Сейчас нет на сайте
| а как создать таблицу
cougraAcc, помогло
понимания приходит с практикой, а с практикой приходит опыт
|
|
|
| |
|
