forum.boolean.name - помогите розставить АПТЕЧКИ

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице

forum.boolean.name (http://forum.boolean.name/index.php)

- 3D-программирование (http://forum.boolean.name/forumdisplay.php?f=12)

- - помогите розставить АПТЕЧКИ (http://forum.boolean.name/showthread.php?t=4009)

Raiter

27.07.2007 18:24

Re: помогите розставить АПТЕЧКИ

Вот это точно работает ;)

Код:

Graphics3D 800,600,16,2

SetBuffer BackBuffer()



Dim Pos(15,2)



For i = 1 To 15

        Pos(i,1) = 2 * i

        Pos(i,2) = 2 * i

Next



Type AptType

        Field Ent

End Type



Global Apt.AptType



Camera = CreateCamera()

PositionEntity Camera,10,10,-10



For i = 1 To 5

        CreateApt(Apt)

Next



Repeat



RenderWorld

Until KeyDown(1)



Function CreateApt(Apt.AptType)

.Start

PosX = Pos((Rnd(1,15)),1)

PosZ = Pos((Rnd(1,15)),2)



For Apt = Each AptType

        If EntityX(Apt\Ent) = PosX And EntityZ(Apt\Ent) = PosZ Then Goto Start

Next



Apt = New AptType

Apt\Ent = CreateCube()

PositionEntity Apt\Ent,PosX,0,PosZ



End Function

IGR	30.07.2007 12:05

Re: помогите розставить АПТЕЧКИ

всё нормально работает !!
разобрался !!

Leito

30.07.2007 13:37

Re: помогите розставить АПТЕЧКИ

гы, да вы гоните
вот у тя массив

dim k(15,2)

e=0
while e<>5
n=rand(15)
m=rand(2)
if k(n,m)=0
e=e+1
k(n,m)=1
positionentity aptechka,n,0,m
end if
wend

IGR	30.07.2007 14:10

да, да, да !!
тоже круто !!

только чтобы использовать надо немного переделать !!
вот ето не надо:
m=rand(2)
а вместо:
m=k(n,2)

координаты же уже записанные в файле !!

Leito

30.07.2007 20:56

Re: помогите розставить АПТЕЧКИ

k(100,100) - это карта аптечек.
ну тебе лучше видно.

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

Страница 2 из 2

Показывать 64 сообщений этой темы на одной странице