forum.boolean.name - Условия не работают правильно. В чём может быть причина?

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

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

Ответ: Условия не работают правильно. В чём может быть причина?

я поступать на актера буду. программирвоание хобби

Ответ: Условия не работают правильно. В чём может быть причина?

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

Ответ: Условия не работают правильно. В чём может быть причина?

Не твое это. Не трогай :-D

Ответ: Условия не работают правильно. В чём может быть причина?

мое-мое. блин хоть бы aarton зашел сюдой, помог бы по любому.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297368)

Чтобы сделать игру типа COD надо посадить на своей заднице геморрой и написать овер 9000 строк работающего кода. Как только геморрой вырастет до нужных размеров, снять его с поверхности анального кольца и натравить на баги, неожиданно появившиеся в твоём наикрасивейшем коде. После победы геморроя над багой, нужно достать напильник оптимизации и водить им по монитору компьютера до поднятия фпс хотя бы до уровня 30 в секунду. В целях экономии времени разработчики обычно сразу кладут половой член на клавиатуру во время набора кода, но делать это надо аккуратно, ибо можно легко повредить нежный орган. Перед выходом проекта в свет потребуется знать экономику и маркетинг на примитивном уровне для продвижения готового продукта, не забывая про постпродакшн и устранения снова появившихся ниоткуда багов. Однако, никто не запрещает не заморачиваться и просто кинуть свой код на Булку, дабы сие творение оценили гуру игростроя и помогли дружеским советом.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297360)

да, но не играю. т.к незрячий.

Только поэтому тебя до сих пор не забанили.
Но терпение на исходе.

Ответ: Условия не работают правильно. В чём может быть причина?

1. игра аудио, для незрячих, таких игр много, но все пишутся на c++.
2. ггг за что же банить то?

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297366)

я поступать на актера буду. программирвоание хобби

Хобби? Ты ж только, что сказал что кучу языков знаешь профессионально. Профессионально - означает что ты уже имеешь один-два проекта за спиной. Это минимум.
А раз ты знаешь шарп профессионально - возьми юнити и пили. Можешь вообще все кодом хреначить и к редактору не прикасаться.

Ответ: Условия не работают правильно. В чём может быть причина?

Я уже говорил, что незрячий, и что юнити графический. т.е он мне не доступен.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297378)

Я уже говорил, что незрячий, и что юнити графический. т.е он мне не доступен.

Да не графический он. Не хочешь редактор юзать - так и не юзай, никто же не заставляет. Пиши тупо код в том же Mono.

Ответ: Условия не работают правильно. В чём может быть причина?

да не графический. но имеет 3d интерфейс. а это похожие вещи. что такое моно?

Ответ: Условия не работают правильно. В чём может быть причина?

и если можн прям тока кодом. где про это почитать можн?

Ответ: Условия не работают правильно. В чём может быть причина?

Погуглил, узнал что это среда разработки. ну и как я могу узнтаь про код в unity? ведь во всех уроках которые я нахожу тока работа с редактором

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297383)

да не графический. но имеет 3d интерфейс. а это похожие вещи.

Не выдумывай.

Цитата:

Сообщение от softcrasoft (Сообщение 297384)

и если можн прям тока кодом. где про это почитать можн?

На сайтах по юнити. В справке по юнити. В ветке булки про юнити.

Цитата:

Сообщение от softcrasoft (Сообщение 297385)

Ну создавай скрипты в папке проекта и открывай их.

Если честно - бросай это дело. Лучше найди зрячего программиста, а на себе тестируй игру. CoD вы все равно не сделаете (такую игру даже 10 человек могут не осилить), но хоть что-то да выпустишь.

Ответ: Условия не работают правильно. В чём может быть причина?

игру, без графики, со звуком, не сделаю? не смешите меня.
Про 3д реим я не вру. знаете английйский читайте forum.audiogames.net раздел developer forum, make unity. это форум аудио ир где сидят незрячие.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297389)

игру, без графики, со звуком, не сделаю? не смешите меня.

Ну окей. А звуки сами ты как делать будешь? Разные переключатели и ручки ты уже точно на скринридере не прочитаешь. Чтобы сделать звуки как в CoD нужно тоже не злабый скилл звукача иметь.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297370)

мое-мое. блин хоть бы aarton зашел сюдой, помог бы по любому.

И толку? Тебе уже многое объяснили.

Ответ: Условия не работают правильно. В чём может быть причина?

Да тут уже не то, что объяснили, тут уже за него написали , а до него всё равно не доходит.

Ответ: Условия не работают правильно. В чём может быть причина?

arton сразу видно, что профи. и объяснения у него нормальные. по поводу ответа, никто не ответил на вопрос, которые был в 1 сообщении. О том, почему не работает условие.
Далее про звуки, я умею профессионально работать со звуком. я из своего настольного микрофона легко вытягаю студийную запись. плюс игра так, для меня, поэтому я могу взять звуки из COD и других игр.

Ответ: Условия не работают правильно. В чём может быть причина?

Так ты бы если не тупил то все бы уже написал и сделал. Я тебе в разных постах написал два кода в одном со звуком в другом с ограничением по X и Y. Почитай их десять раз и посмотри как там условия написаны .... Может дойдет...

Ответ: Условия не работают правильно. В чём может быть причина?

Я смотрю ты везде профессиАнал, а простое условие написать не можешь...

Ответ: Условия не работают правильно. В чём может быть причина?

1. Цитата из форума юнити:
Привет, без редактора работать не получится.
А я как уже говорил, он мне не доступен.
2. l-ee-x, это вы перечитайте мой вопрос. Меня интересует, почему мое условие не работает. Меня не интересуют коды. Меня интересует ПОЧЕМУ НЕ РАБОТАЕТ МОЕ УСЛОВИЕ.
Мне нужно, что бы когда я передвигаюсь, проверялась позиция. если x > 50, x приправнивалась 50, так же с y, и если все верно, что бы выполнялся блок else, где я иду и воспроизводится звук. Я не знаю, может я такой тупой, или что, но у меня на мой взгляд, все верно. запускаю игру, y стоит на 0. жму вниз, звуки есть. хоть уже пошел минус, вверх, уже на 200 пришел, звук есть, уж не знаю движется ли там объект, но главное то что, что звук есть;
3. arton, на ваши объяснения никаких никогда вопросов не возникало. Так идеально нормально и подробно помимо вас мне еще никто не пояснял.

Ответ: Условия не работают правильно. В чём может быть причина?

Убейся ап стену

Ответ: Условия не работают правильно. В чём может быть причина?

Как может быть все верно и выполнялся блок кода else? Else будет выполняться только в том случае если у тебя ни x ни y не равны между собой и не равны 50. А если X Y = 50 и равны между собой то выполнится код после if. Вот по этому у тебя и не работает. У тебя не равны x y и выполняется код else. Доходчиво объяснил?

Ответ: Условия не работают правильно. В чём может быть причина?

Видимо ты такой тупой что не знаешь else выполняется если условие ложное, как тебе еще объяснить я уже не знаю. Профессионал

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297407)

Меня интересует, почему мое условие не работает. Меня не интересуют коды. Меня интересует ПОЧЕМУ НЕ РАБОТАЕТ МОЕ УСЛОВИЕ.

Ты его неправильно составил. >>:(

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от tormoz (Сообщение 297411)

Ты его неправильно составил. >>:(

Да бесполезно объяснять ему это. Он же профессионал :wild:

Ответ: Условия не работают правильно. В чём может быть причина?

ну вот, а потом говорят, что я тупой или дурак.
правильно, если x больше 50 стоим, если y стоим, а если условия не равны выполняем блок else, где я перемещаюсь. так понятно?
Я говорю уже 1000 раз, Я НЕ НУБ.
я блин не говорил что профессионал в блице. блиц не шарп,Ю и уж темболее не питон.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297407)

и если все верно, что бы выполнялся блок else.

Как выполнится блок else если условие верное????? else выполнится если условие ложное будет. Почитай справку про if else endif

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297413)

Ну так если ты его не правильно составил то наверное тупой.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от tormoz (Сообщение 297411)

Ты его неправильно составил. >>:(

Хоть 1 разумный ответ. А в чем ошибка то?

Ответ: Условия не работают правильно. В чём может быть причина?

если верно то, что я не перемещался блин. так понятно? я не нууууууууб. а вы просто сооброжалку включите

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297416)

Хоть 1 разумный ответ. А в чем ошибка то?

Так тебе уже десять раз написали что условие у тебя не правильное. В чем ошибка я тебе написал. Или не доходит до твоего ума?

Ответ: Условия не работают правильно. В чём может быть причина?

я знаю как работает else еще из паскаля. а я его учил 3 года назад. ща я на php/c#/python.
повторяю, только полным текстом чтоб таким тупым было понятно.
почему первые 2 условия не работают. else должен выполняться если верно то, что я не передвигался. а x уже > 50.

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297417)

если верно то, что я не перемещался блин. так понятно? я не нууууууууб. а вы просто сооброжалку включите

У меня в отличии от тебя соображалка включена :-D
Держи, надеюсь разберешься, целый шутер от первого лица :-D :-D :-D :cool:

PHP код:


		
			
HidePointer

Global weapon,weapon_1,xw#,yw#,zw#,rxw#,ryw#,zyw#

Global camera

Global player,mxs,mys,grav#,y_cam

Global run,runChannel ,running#

Const  playertype=1,TypePol=2,TypeStena=3,TypeTons=4,TypeBalke=5,TypeLuk=5,TypeBox=6,TypeCar=7

Global fire_01,car



Global zs#,zo#

Global x_weapon#,y_weapon#,z_weapon#,rx_weapon#,ry_weapon#,rz_weapon#

Global Not_fire



Type Obj_Data

    Field handler            

    Field Name$                

    Field key$[8]            

    Field value$[8]            

    Field rawdata$[16]        

End Type



Type OutFlare 

    Field sprite

    Field flare

    Field time_out

    Field TimeTolive

End Type





Global fl





Graphics3D 1024,768,32,2



SetBuffer BackBuffer()

Global gfxCross = LoadImage("models\gfx\cross.bmp")

CreatePlayer()

UpdateCollisions()



sky=LoadSkyBox("sky\")



level=LoadAnimMesh("models\scene.b3d")

RotateEntity level,180,0,0

ScaleEntity level,0.2,0.2,0.2

RecurseSeek(level)

Global flare_weapon=LoadSprite("shot.jpg")



bool=LoadAnimMesh("bool.b3d")

PositionEntity bool,0,0,-240

box_1=FindChild(bool,"box")

EntityType box_1,TypeBox,1

LoadWeapon_1()

InitSounds()



car=CreateCube()

PositionEntity car,0,40,-30

ScaleEntity car,18,3,7

EntityType car,TypeCar

Patron=20

CarTrue=0



Global PlayerID

PlayerID=1





Repeat





PositionEntity sky,EntityX(player),EntityY(player),EntityZ(player)



pick=CameraPick (camera,mx,my)





If Patron>0

If MouseDown(1)

If MilliSecs()> time+200

time=MilliSecs()

CreateFlareOut(weapon,flare_weapon,50)

Patron=Patron-1

PlaySound (fire_01)

   If Not lModeShoot

     Animate weapon, 1,1,2

   EndIf

   lModeShoot = True

Else

   If lModeShoot

     Animate weapon, 1,1,1

     lModeShoot = False

  EndIf    

EndIf

EndIf

EndIf

If MouseDown(1)

If MilliSecs()> time+500

time=MilliSecs()

If Patron<1

Animate weapon,3,1

PlaySound Not_fire

EndIf

EndIf

EndIf

;-----------------------------------------------------------



UpdateFlareOut()



;___________________________________



If EntityDistance(player,car)<30

If KeyDown(33)



EntityParent player,car



CarTrue=1

PlayerID=0

EndIf

EndIf



If CarTrue=1

If KeyDown(17) MoveEntity car,1,0,0

If KeyDown(31) MoveEntity car,-1,0,0



EndIf



UpdatePlayer()

FlushMouse()







UpdateWorld()

RenderWorld()

DrawImage(gfxCross, GraphicsWidth()/2-16, GraphicsHeight()/2-16 )



If EntityDistance(player,bool)<30

Text 10,10,"??????? E ???? ????? ???????!"

If KeyHit(18)

Animate bool,3,1

Patron=+40

EndIf

EndIf



Text 10,GraphicsHeight()-50,"???????::"+Patron



Flip 



Until KeyHit(1)





End







Include "loader\scm.BB"



Function CreatePlayer()

        player=CreatePivot() ;??????? ???????? ??????. ??? ????? ?????

        PositionEntity player,0,10,0 ;????????????? ???

        EntityType player,PlayerType ;??????????? ??? ??? ?????????. ??? ????? ??? ????????.

        EntityRadius player,10

        camera=CreateCamera(player)

        PositionEntity camera,0,30,0 ;??????????? ??.

        CameraRange camera,1,10000

        spac=0

End Function



Function UpdatePlayer()

running#= 0

RandCamera=0

;???????? ????

If PlayerID=1

If Abs(EntityPitch(camera)+mys)<55

TurnEntity camera, mys*.3,0,0

EndIf

TurnEntity player,0,-MouseXSpeed()*.3,0

EndIf

mxs=MouseXSpeed()

mys=MouseYSpeed()



MoveMouse GraphicsWidth()/2,GraphicsHeight()/2

;???????????

If PlayerID=1

If KeyDown(17) Then

MoveEntity player,px+0,py+0,pz+1

MoveEntity player,-Sin(MilliSecs()/2)*.08*3,Sin(MilliSecs())*.1,0

running = Rnd (0.35, 0.75)

Else If KeyDown(31)

MoveEntity player,px+0,py+0,pz-1

running = Rnd (0.55, 0.95)

EndIf

If KeyDown(30) Then

MoveEntity player,px-1,py+0,pz+0

running = Rnd (0.35, 0.75)

Else If KeyDown(32)

MoveEntity player,px+1,py+0,pz+0

running = Rnd (0.55, 0.95)

EndIf

EndIf

TranslateEntity player,0,grav#-1,0

    TranslateEntity car,0,grav#-1,0

        If running > 0

            ChannelPitch runChannel, Rnd (80000, 14000)

        EndIf

        ChannelVolume runChannel, running



;??????

x#=EntityX(player) 

y#=EntityY(player) 

z#=EntityZ(player) 

If KeyHit(57) Then

yv#=20

PositionEntity Player,x#,y#+yv#,z# 

yv#=EntityY(player)-ey 

ey=EntityY(player) 

EndIf

;-------------------------------

        If zs#<zo Then zs#=zs#+.025

        If zs#>zo Then zs#=zs#-.025

        If zs#<=0 Then zs#=1

        If xw#<x_weapon# Then xw#=xw#+.2

        If xw#>x_weapon# Then xw#=xw#-.2

        If yw#<y_weapon# Then yw#=yw#+.2

        If yw#>y_weapon# Then yw#=yw#-.2

        If zw#<z_weapon# Then zw#=zw#+.2

        If zw#>z_weapon# Then zw#=zw#-.2

        If rxw#<rx_weapon# Then rxw#=rxw#+.2

        If rxw#>rx_weapon# Then rxw#=rxw#-.2

        If ryw#<ry_weapon# Then ryw#=ryw#+.2

        If ryw#>ry_weapon# Then ryw#=ryw#-.2

        If rzw#<rz_weapon# Then rzw#=rzw#+.2

        If rzw#>rz_weapon# Then rzw#=rzw#-.2

        If MouseDown(2) Then

        x_weapon#=-5.1

        y_weapon#=-7.25

        z_weapon#=-3

        rx_weapon#=0

        ry_weapon#=82

        rz_weapon#=0

        zo#=2.5

        Else

        zo#=1

        x_weapon#=3

        y_weapon#=-12

        z_weapon#=6

        rx_weapon#=0

        ry_weapon#=90

        rz_weapon#=0



        EndIf

        CameraZoom camera,zs#

        PositionEntity weapon,xw#,yw#,zw#

        RotateEntity weapon,rxw#,ryw#,zyw#

;??????????



;???

If KeyDown(17) And KeyDown(42)

MoveEntity player,0,0,1.5

Else If KeyDown(31) And KeyDown(42)

MoveEntity player,0,0,-1.5

EndIf



If KeyDown(30) And KeyDown(42)

MoveEntity player,-1.1,0,0

Else If KeyDown(32) And KeyDown(42)

MoveEntity player,1.1,0,0

EndIf

;????? ??????



End Function





Function UpdateCollisions()

        Collisions playertype,TypePol,2,3

        Collisions playertype,TypeStena,2,3

        Collisions playertype,TypeTons,2,3

        Collisions playertype,TypeBalke,2,3

        Collisions playertype,TypeLuk,2,3

        Collisions TypeBox,TypePol,2,3

        Collisions PlayerType,TypeBox,2,3

        Collisions PlayerType,TypeCar,2,3

        Collisions TypeCar,TypePol,2,3

End Function



Function RecurseSeek(ent)

    tab=tab+4

    For i=1 To CountChildren(ent)    

        child=GetChild(ent,i)

        name$=Lower(EntityName(child))

        If Instr(name$,"pol")

           EntityType child, TypePol

        EndIf

        If Instr(name$,"stena")

           EntityType child, TypeStena

        EndIf

        If Instr(name$,"tons")

           EntityType child, TypeTons

           EntityFX child,1

        EndIf

        If Instr(name$,"balka")

           EntityType child, TypeBalke

        EndIf

        If Instr(name$,"luk")

           EntityType child, TypeLuk

           tex_child=LoadTexture("models\TEX23.bmp",3)

           EntityTexture child,tex_child

           ScaleTexture tex_child,0.5,0.5

        EndIf

    Next

    tab=tab-4

End Function





Function LoadWeapon_1()

   weapon = LoadAnimMesh("models\gun\MP5.b3d",camera) 

   ExtractAnimSeq(weapon,1,1 ) ; 1- idle

   ExtractAnimSeq(weapon,2,8 ) ; 2- shoot 

   Animate weapon, 1,0, 1

   ;EntityPickMode weapon, 2 

  PositionEntity weapon,xw#,yw#,zw#

  RotateEntity weapon,rxw#,ryw#,rzw#

              xw#=3

            yw#=-12

            zw#=6

            rxw#=0

            ryw#=90

            rzw#=0

   EntityParent weapon, camera

   EntityRadius weapon,1

   EntityOrder weapon,-1

End Function



Function LoadWeapon_2()

    weapon_1 = LoadMesh("models\gun\gun_1.b3d",camera) 

   EntityPickMode weapon_1, 2 

   PositionEntity weapon_1,xw#+3,yw#-12,zw#+6

   RotateEntity weapon_1,rxw#+0,ryw#+90,rzw#+0

   EntityParent weapon_1, camera

   EntityRadius weapon_1,1

   EntityOrder weapon_1,-1



End Function



Function InitSounds()

fire_01=LoadSound("sound\fire_01.ogg")

run=LoadSound("sound\dirt.wav")

Not_fire=LoadSound("sound\RifleReload.wav")

SoundVolume run, 0

LoopSound run

runChannel = PlaySound (run)

End Function



Function LoadB3D(FileName$)

;load map & count children

;TextureFilter "",2

TextureFilter "MSK",4

TextureFilter "TRN",2

map=LoadAnimMesh(FileName)

cc=CountChildren(map)





For ent=1 To cc;for each entity



    

    ;get Handle & 'name' of child

    chi=GetChild (map,ent) 

    attr$=EntityName(chi)

    ;create record & store handle

    If attr<>"" 

    

        ;new record

        obj.obj_data = New obj_data

        obj\handler  = chi

        

        ;string parser to delete unwanted chars & separate lines

        attr$=Replace$(attr$,Chr(34),"")

        attr$=Replace$(attr$,Chr(10),"#")

        currentstr=1

        For b=1 To Len(attr)

            If Mid(attr,b,1)="#" Then 

                currentstr=currentstr+1

            Else

                obj\rawdata[currentstr]=obj\rawdata[currentstr]+Mid(attr,b,1)

            EndIf

        Next    



        ;string parser 2 divide into Data segs For fields

        For dat=1 To 8

            switch=0

            attr=obj\rawdata[dat]

            For b=1 To Len(attr)    

                

                If Mid(attr,b,1)="=" Then 

                    switch=1

                Else

                    If switch=0 Then obj\key[dat]   = obj\key[dat]   + Mid(attr,b,1)

                    If switch=1 Then obj\value[dat] = obj\value[dat] + Mid(attr,b,1)

                EndIf

            Next    

            ;extract real name value using the CS4 key 'NAME'

            If Upper(obj\key[dat])="NAME" 

                obj\name = Upper(obj\value[dat])

                

            EndIf    

        Next            



        ;reset raw Data

        For dat=1 To 16

            obj\rawdata[dat]=""

        Next



        ;TESTCODE - remove this ################################

        Print "-------------------------------------------------"

        Print "NAME: "+obj\name+"     Handle:"+Str(obj\handler)

        For dat=1 To 8

            Print "DATA: "+obj\key[dat]+"<=>"+obj\value[dat]

        Next    

        Delay(100)

        ;########################################################



        ;alpha

        For a=1 To 8

            If     Upper(obj\key[a])="ALPHA" Then EntityAlpha obj\handler,Float(obj\value[a])        

        Next

        ;create lights

        If Upper(obj\key[1])="CLASSNAME" And Upper(obj\Value[1])="LIGHT"

            lh=CreateLight(2)

            ;testcode - remove this ################

            lb=CreateSphere(10):EntityFX lb,1

            ;#######################################            

            For a=1 To 8

                PositionEntity lh,EntityX(obj\handler),EntityY(obj\handler),EntityZ(obj\handler)

                ;testcode - remove this ###############

                PositionEntity lb,EntityX(obj\handler),EntityY(obj\handler),EntityZ(obj\handler)

                ;#######################################            

                obj\handler=lh

                If Upper(obj\key[a])="RANGE"

                    LightRange lh, Float(obj\value[a])

                EndIf

                If Upper(obj\key[a])="COLOR"

                    ;parse colors

                    cR$="":cG$="":cB$="":switch=1

                    For ch=1 To Len(obj\value[a])

                        If Mid (obj\value[a],ch,1)=" "

                            switch=switch+1

                        Else

                            If switch=1 Then cR=cR+Mid (obj\value[a],ch,1)

                            If switch=2 Then cg=cg+Mid (obj\value[a],ch,1)

                            If switch=3 Then cb=cb+Mid (obj\value[a],ch,1)

                        EndIf

                    Next

                    

                    LightColor lh, Float(cr),Float(cg),Float(cb)

                    ;testcode - remove this ################

                    EntityColor lb, Float(cr),Float(cg),Float(cb)

                    ;#######################################            

                EndIf

        

                

            Next

        EndIf

        

    EndIf

    

    ;Set Surfaces For receiving hardware lights

    nv=CountSurfaces(chi)

    EntityFX chi,0

    Print nv:Delay(100)



    If nv>0 Then 

        surf=GetSurface (chi,1)

        brsh=GetSurfaceBrush(surf)

        BrushFX brsh,0

        tex=GetBrushTexture(brsh,1)

        TextureBlend tex,2 ;USE 0 to toggle LM on-off 2 TO ADD, USE 3 TO MULTIPLY

        BrushTexture brsh,tex,0,1

        PaintMesh chi,brsh

        FreeBrush brsh

        FreeTexture tex

        ;PaintEntity chi,brsh

        

    EndIf

    UpdateNormals chi

        

    

Next;object



Return map

End Function



Function LoadSkyBox(file$)

    m=CreateMesh()

    ;front face

    b=LoadBrush( file$+"mercury512_bk.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,+1,+1,-1,0,0:AddVertex s,-1,+1,-1,1,0

    AddVertex s,-1,-1,-1,1,1:AddVertex s,+1,-1,-1,0,1

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ;right face

    b=LoadBrush( file$+"mercury512_lf.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,+1,+1,+1,0,0:AddVertex s,+1,+1,-1,1,0

    AddVertex s,+1,-1,-1,1,1:AddVertex s,+1,-1,+1,0,1

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ;back face

    b=LoadBrush( file$+"mercury512_ft.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,-1,+1,+1,0,0:AddVertex s,+1,+1,+1,1,0

    AddVertex s,+1,-1,+1,1,1:AddVertex s,-1,-1,+1,0,1

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ;left face

    b=LoadBrush( file$+"mercury512_rt.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,-1,+1,-1,0,0:AddVertex s,-1,+1,+1,1,0

    AddVertex s,-1,-1,+1,1,1:AddVertex s,-1,-1,-1,0,1

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ;top face

    b=LoadBrush( file$+"mercury512_up.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,-1,+1,-1,0,1:AddVertex s,+1,+1,-1,0,0

    AddVertex s,+1,+1,+1,1,0:AddVertex s,-1,+1,+1,1,1

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ;bottom face    

    b=LoadBrush( file$+"mercury512_dn.jpg",49 )

    s=CreateSurface( m,b )

    AddVertex s,-1,-1,+1,1,0:AddVertex s,+1,-1,+1,1,1

    AddVertex s,+1,-1,-1,0,1:AddVertex s,-1,-1,-1,0,0

    AddTriangle s,0,1,2:AddTriangle s,0,2,3

    FreeBrush b

    ScaleMesh m,5000,5000,5000

    ;FlipMesh m

    EntityFX m,1+8

    Return m

    FreeEntity m    

End Function





Function CreateFlareOut(ent,sprite,TimeTolive) 

     flare.OutFlare=New OutFlare 

        flare\time_out=TimeTolive

           flare\sprite = CopyEntity(sprite) 

    PositionEntity flare\sprite,EntityX(ent,1),EntityY(ent,1),EntityZ(ent,1)

    RotateSprite flare\sprite,Rand(-90,90) ; ???? ????? ?????? ??????? ??????? ?? ??? ???????? ??? 

End Function



Function UpdateFlareOut() 

    For flare.OutFlare= Each OutFlare 

       flare\TimeTolive = flare\TimeTolive - 1 

       If flare\time_out < 0  

           FreeEntity flare\sprite 

           Delete flare 

       EndIf 

    Next 

End Function





Function BotUpdat()



End Function

Ответ: Условия не работают правильно. В чём может быть причина?

вы мне дали только какой-то код, которого я не просил. вы мне не ответили на вопрос, в чем не верно условие, если оно не верно. хоть и оно верно. что не верного.
сначало программа проверяет значение x. если оно больше 50 равняем 50, если y равно 50 тож равняем 50, ну а если все это не правда, то выполняет блок else где идем и воспроизводим звук. я не знаю как больше легче объяснить нубу это.

Ответ: Условия не работают правильно. В чём может быть причина?

угу. тока в этом коде навернека много того чего мне ненужно. например графика, и отсутствие звуков. именно поэтому мне нужно написать все самому. а не читать исходники.

Ответ: Условия не работают правильно. В чём может быть причина?

If EntityY#(player) > 40 Then
EntityY# = 40
Else If EntityX#(player) > 40 Then "Это условие выполнится если EntityX больше 40 но при этом EntityY меньше 40
EntityX# = 40
Else "Это условие выполнится если оба выше перечисленных условий ложное"
PlaySound(stepsound)
EndIf
EndIf

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297422)

Поверь мне звуки там есть

Ответ: Условия не работают правильно. В чём может быть причина?

Как ты там приравниваешь X к 50 не понятно. командой EntityX(ent) ты не приравняешь позицию объекта к 50

Ответ: Условия не работают правильно. В чём может быть причина?

Я так понимаю по достижению > 50 игрок не должен двигаться?
Тогда как я и писал выше

PHP код:


		
			
Graphics3D 800,600,16,2
SetBuffer BackBuffer()

player = CreateSphere()
cam = CreateCamera(player)
enemy = CreateCube()
PositionEntity enemy,0,0,20


While Not KeyHit(1)
PlayY# = 0
PlayX# = 0
PlayerX# = EntityX#(player)
PlayerY# = EntityY#(player)


If KeyDown(203) Then PlayY# = + 0.5
If KeyDown(205) Then PlayX# = + 0.5

If PlayerY# => 9
PlayY# = 0
EndIf
If PlayerX# => 9
PlayX# = 0
EndIf
MoveEntity player,PlayX#,PlayY#,0

RenderWorld()
UpdateWorld()





Text 10, 10, PlayerX# + "     " + PlayerY#
Flip()

Wend
End

Ответ: Условия не работают правильно. В чём может быть причина?

окей можете выложить архив уже со всеми звуками? если нету так и быть. найду свои

Ответ: Условия не работают правильно. В чём может быть причина?

Как ты там приравниваешь X к 50 не понятно. командой EntityX(ent) ты не приравняешь позицию объекта к 50
даже так? а как тогда.
If EntityY#(player) > 40 Then
EntityY# = 40
Else If EntityX#(player) > 40 Then "Это условие выполнится если EntityX больше 40 но при этом EntityY меньше 40
EntityX# = 40
Else "Это условие выполнится если условие оба выше перечисленных условий ложное"
PlaySound(stepsound)
EndIf
EndIf
гыгы у меня тоже самое

Ответ: Условия не работают правильно. В чём может быть причина?

так entityX# = 50 что будет присваивать объекту для которого условие?

Ответ: Условия не работают правильно. В чём может быть причина?

Так я твой же код и взял просто прокоментировал

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297430)

так entityX# = 50 что будет присваивать объекту для которого условие?

Ничего она не будет присваивать, тупо блуждающая переменная не понятная вообще к чему она относится

Ответ: Условия не работают правильно. В чём может быть причина?

то есть для перемещений только переменную отдельную делать надо. блин. тогда я вообе ничгео не понимаю. куда пихать код воспроизведения звука, если moveentity вне условия и в конце почти цикла

Ответ: Условия не работают правильно. В чём может быть причина?

Туда и пихай, если оба условие будут не верны, то воспроизводится звук, пока X < 50 и Y < 50 то выполнится блок ELSE

Ответ: Условия не работают правильно. В чём может быть причина?

у вас есть звуки к вашему коду вашего шутера? сможете сделать архив?

Ответ: Условия не работают правильно. В чём может быть причина?

PHP код:


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

player = CreateSphere()
cam = CreateCamera(player)
enemy = CreateCube()
PositionEntity enemy,0,0,20
PositionEntity cam, 0, 0, -40

run=LoadSound("dirt.wav")
SoundVolume run, 0
LoopSound run
runChannel = PlaySound (run)

While Not KeyHit(1)
running#= 0
PlayY# = 0
PlayX# = 0
PlayerX# = EntityX#(player)
PlayerY# = EntityY#(player)


If KeyDown(203)
running = Rnd (0.35, 0.75)
PlayX# = + 0.1
If PlayerX# > 40
running#= 0
PlayX# = 0
EndIf
EndIf

 
If KeyDown(205)
running = Rnd (0.35, 0.75)
PlayX# = -0.1
If PlayerX# < -40
running#= 0
PlayX# = 0
EndIf
EndIf

If KeyDown(200)
running = Rnd (0.35, 0.75)
PlayY# = - 0.1
If PlayerY# < -40
running#= 0
PlayY# = 0
EndIf
EndIf

If KeyDown(208)
running = Rnd (0.35, 0.75)
PlayY# = + 0.1
If PlayerY# > + 40
running#= 0
PlayY# = 0
EndIf
EndIf

ChannelVolume runChannel, running
MoveEntity player,PlayX#,PlayY#,0

RenderWorld()
UpdateWorld()





Text 10, 10, PlayerX# + "     " + PlayerY#
Flip()

Wend
End

И только скажи что опять не так >>:( :wild:

Ответ: Условия не работают правильно. В чём может быть причина?

теперь я могу назвать вас профессионалом:).
Есть всего 2 вороса.
1. почему вы используете не += а = +? Или есть какие-то отличия?
2. Зачем вы это сделали. Чтоб меня напугать?
If*running*>*0
****ChannelPitch*runChannel,*Rnd*(80000,*14000)
EndIf
поменять высоту и на столько ггг и умереть можно от таких звуков.

Ответ: Условия не работают правильно. В чём может быть причина?

Сори со своего кода вытаскивал, он тут не нужен :-D

Ответ: Условия не работают правильно. В чём может быть причина?

Теперь нас два профессионала :-D

Ответ: Условия не работают правильно. В чём может быть причина?

Вот теперь посмотри как твое условие написано и посмотри как мое и сделай хотя бы какие нибудь выводы для себя чтоб в следующий раз не задавать глупых вопросов...

Ответ: Условия не работают правильно. В чём может быть причина?

ну для нуба в блице, это не глупый вопрос.

Ответ: Условия не работают правильно. В чём может быть причина?

Ну ты же себя профессионалом считаешь в VisualBasic. А Blitz это тот же Basic.

Ответ: Условия не работают правильно. В чём может быть причина?

в визуале бейсике, профессионал? по смеялся.
кста, атк а почему = + а не +=?

Ответ: Условия не работают правильно. В чём может быть причина?

Ты же сам писал что профессионально знаешь Бейсик ?

Ответ: Условия не работают правильно. В чём может быть причина?

Цитата:

Сообщение от softcrasoft (Сообщение 297493)

в визуале бейсике, профессионал? по смеялся

Цитата:

Сообщение от softcrasoft (Сообщение 297303)

а смысл? я знаю профессионально PHP, Visual Basic.NET, C#, Паскаль.
Плюс я не одного кода не видел, где пишется endif.
По поводу читать, ггг по смеялись с знакомыми.
Если не можете помочь, так зачем пишите? Ваш код говорит о том что это вам читать надо).

...

Ответ: Условия не работают правильно. В чём может быть причина?

Чувак, это сново ты?
С новым годом, что ли.
Тебе тут уже все досконально объяснили. Если ты тупишь то сори.
Условие то покажи свое. А то искать лень. Уже забыл, что писал то :-D все таки год прошёл :-D

Ответ: Условия не работают правильно. В чём может быть причина?

Или может в бан его? :-D

Ответ: Условия не работают правильно. В чём может быть причина?

Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 450 сообщение(ий)):

У вас нет прав, чтобы видеть скрытый текст, содержащийся здесь.