forum.boolean.name - Уже наболевшее..

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=6097)

Ответ: Уже наболевшее..

Цитата:

Сообщение от Samarik (Сообщение 82118)

и что оно делает?

"искры", или если поставишь текстуру дымка, то будет пыль как при попадании в стену..

Ответ: Уже наболевшее..

мне с с таким тяжело ещё работать, тоесть к той функци я тип написал, сунул куда нада, пишет ошибку на ентити даз нот ексист PShotSparkspr.
вобщем или с примером по использованию или ваще ненадо выкладывать..
_______________
есть трабла, её решение я знаю, но думаю это тупо, спрошу у посетителей форума:)

вот я тока запустил игру, убил первого бота, из нево кровище полилось, и 1 спрайт, только идин первый, без альфы рендерица.. как такое можно устранить?

Ответ: Уже наболевшее..

вот пример:

Код:

Graphics3D 800,600,32,2



cam=CreateCamera()

PositionEntity cam,0,5,0



Type plasma_shots

    Field plr,mesh,side,typ,time,life,tx#,ty#,tz#

End Type



Global GM1_power#=9

Global GM2_power#=15

Global GM3_power#=22



Global Weap_Ion1=CreateSphere();LoadMesh(GLBMeshpath$+"shoti.b3d")

;Global Ion_tex1=LoadTexture(GLBMeshpath$+"shot_ion2.png",1)

Global Weap_Ion2=CreateSphere();LoadMesh(GLBMeshpath$+"shoti.b3d")

;Global Ion_tex2=LoadTexture(GLBMeshpath$+"shot_ion1.png",1)

Global Weap_Ion3=CreateSphere();LoadMesh(GLBMeshpath$+"shotp.b3d")

;Global Ion_tex3=LoadTexture(GLBMeshpath$+"shot_plasma1.png",1)





Global weapon=CreateCube()

PositionEntity weapon,0,0,5



Global PShotSparkspr=CreateCube()

;LoadMesh(GLBMeshpath$+"shotp.b3d")

;EntityFX PShotSparkspr,5

;EntityBlend PShotSparkspr, 3

;EntityTexture PShotSparkspr,LoadTexture(GLBMeshpath$+"shot_plasma1.png",3)



Type PShotSpark

    Field num, sprite, scale#, spd#, parent, alpha#, y#

End Type



Type Unit

    Field mesh,w1t,t

End Type

u.unit=New unit

u\mesh=CreateCube()

u\t=CreatePivot(u\mesh)

ScaleEntity u\mesh,5,5,5

EntityColor u\mesh,150,50,50

PositionEntity u\mesh,0,0,160

EntityType u\mesh,2



EntityPickMode u\mesh,2

PositionEntity u\t,0,0,1000,1



While ((Not G_Exit) And (Not G_Restart))



If MouseHit(1) Then Crt_Ion_Shot(weapon,u\t,.01): u\w1t=35



UpdateShotPSpark()

UpdateIonShot()



UpdateWorld 

RenderWorld

Flip ;0



If KeyHit(1) Then G_Exit=1



Wend

End





Function CrtPShotSpark(boat,vecy=0,vecp=0,ang=0,spd#=3,min#=2,max#=4)

            splasher.PShotSpark=New PShotSpark

            splasher\parent=boat

            splasher\sprite=CopyEntity(PShotSparkspr)

            RotateEntity splasher\sprite,vecp+Rnd(-ang,ang)-180,vecy+Rnd(-ang,ang),0

                splasher\scale#=min#

                splasher\spd#=spd#

            ScaleEntity splasher\sprite,splasher\scale#,splasher\scale#,splasher\scale#*3

            PositionEntity splasher\sprite,EntityX(splasher\parent,True),EntityY(splasher\parent,True),EntityZ(splasher\parent,True)



End Function

Function Crt_Ion_Shot(obj,t,spd#)



        s.plasma_shots=New plasma_shots

        s\mesh=CopyEntity(Weap_Ion1): s\life=60

        tx#=EntityX#(obj,1) ty#=EntityY#(obj,1) tz#=EntityZ#(obj,1)

        PositionEntity s\mesh,tx#,ty#,tz#

        s\tx#=(EntityX#(t,1)-tx#+Rnd(-30,30))*spd# s\ty#=(EntityY#(t,1)-ty#+Rnd(-30,30))*spd# s\tz#=(EntityZ#(t,1)-tz#+Rnd(-30,30))*spd#

        PointEntity s\mesh,t

        EntityFX s\mesh,5

        

        If GSound_ON EmitSound( ion_sound_01,obj )

End Function

Function UpdateShotPSpark()



    For all.PShotSpark=Each PShotSpark

    ScaleEntity all\sprite,all\scale#,all\scale#,all\scale#

    all\scale#=all\scale#*1.1

    MoveEntity all\sprite,0,0,2.0*dt#

    If all\scale#>=1.01 Then FreeEntity all\sprite Delete all

    Next

    

End Function

Function UpdateIonShot()



    For all.plasma_shots=Each plasma_shots



    all\life=all\life-1



    TranslateEntity all\mesh,all\tx#,all\ty#,all\tz#,1



        ob=EntityPick (all\mesh,15);               ----------------Zamenit'!!!!!!!

        If ob>0 Then

            If GetEntityType (ob)=2 Then

                LP#=GP1_power#

                u.Unit=Object.Unit(EntityName(ob))

                ;u\health#=u\health#-(LP#*.01*(100-u\shield));If u\plr=0

                ;u\speed#=u\speed#*.6



                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),200)

                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),200)

                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),20)

                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),20)

                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),20)

                CrtPShotSpark(all\mesh,EntityYaw(all\mesh),EntityPitch(all\mesh),20)



            EndIf

        EndIf



    If (all\life<=0) Or (ob) Then FreeEntity all\mesh Delete all

    Next

    

End Function

П.С. а частицы видать неправильно генерируешь. Загрузи один прототип частицы, примени к нему все что нужно, и спрячь. Затем просто копируй и делай Анхайд. Тогда все частицы одинаковы будут.

Ответ: Уже наболевшее..

Цитата:

есть трабла, её решение я знаю, но думаю это тупо

Цитата:

я так и думал сделать..:))

Ответ: Уже наболевшее..

есть проблема которую я пытаюсь решить уже несколько дней, но ниче пока не выходит. проблема состоит из частиц:). немогу реализовать так чтоб они летели но параболе. то есть, произошол взрыв из частиц, и чтоб они потом падали на землю.. помогите реализовать:)

Ответ: Уже наболевшее..

O_o.
p\dx=p\dx-0.1
translateentity p\ent,0,p\dx,0

Ответ: Уже наболевшее..

сам попробуй так сделать и увидиш что получица.. частиы вверх не подлетают, а тока создавшись летят вниз, и ненадо мне смайлик девида блейна показывать:)))))

Ответ: Уже наболевшее..

о_О.
дык это. p\dx делай во время создания частицы положительным. например 5.

Ответ: Уже наболевшее..

у мя с нетом траблы, неуспел вовремя то сообщение отредактировать:

>о_О. - это кумарит вопервых..

я так тож делал, у мя проблема была в том что частицы не разлитались в разные стороны, недавно до решения проблемы дошол но не вспомнил про эту хрень что ты прегдгаеш, всё работает.
еслиб я этим блицом задротил аццки всё бы получалось а так я раз в пару дней сажусь на часик.. чёнить сделать.

у мя там ещё трабла есть, после долгово убивания ботов с которых летит много кровища, (оно после ищезноения удаляеца), пули тоже удаляюца, боты после смерти тоже, но потом при попадании в бота перед "излиянием" крови и мяса наблюдаеца тормоз.. откуда он может происходить? ведь первые пару минут игры нормально-то всё.. из-за загрузки спрайтов в процессе игры может? но проверял, неоднократно, все обьекты которые уже ненужны удаляюца

Ответ: Уже наболевшее..

и еще есть второс. кто как реализовывает ищезновение крови? альфой пытался, так кровь мигает..

Ответ: Уже наболевшее..

думаю ты делаеш так:
cp\ent = LoadSprite("");
т.е. каждый раз грузиш новый спрайт, ну и видеопамяти кирдык. делай копию. CopyEntity

Ответ: Уже наболевшее..

точно, спс за идею.)

нащёт ищезновения крови, писал так

alpha=alpha-.05*framePeriod*.01
EntityAlpha w\particle_type,alpha

ну бред получаеца..

Ответ: Уже наболевшее..

ну хз. я как то проще делаю:
p\l=p\l-1
entityalpha p\ent,p\l*0.01
например. если время жизни - сто.

Ответ: Уже наболевшее..

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

Ответ: Уже наболевшее..

покажи как добавляеш и как удаляеш спрайты.