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

NitE 28.12.2008 15:26

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

Код:

const Titem=1
потом

Код:

Function createitem(model$,addbullets%,addhealth%,sound$,x#,y#,z#,s1#,s2#,s3#,rot#)
i.item = New item
i\model = LoadMesh(model+".b3d")
i\addbullets = addbullets
i\addhealth = addhealth
MoveEntity i\model,x,y,z
ScaleEntity i\model,s1,s2,s3
i\sound = LoadSound(sound+".wav")
i\rot=rot
EntityType i\model,titem
End Function

createitem("medkit",0,25,smallmedkit1,20,1,0,.010,.010,.010,2)

createitem("medkit",0,25,smallmedkit1,30,1,0,.010,.010,.010,2)

вот типа сделал 2 аптечки...

теперь в цикле пишу

Код:

For i.item = Each item

If EntityCollided(player,titem)
FreeEntity i\model
Delete i
EndIf

Next

и теперь (ну там потом ещё вставлю всё что надо) надо сделать так чтобы при столкновений игрока и аптечки пропадала аптечка, а у меня при коллизий с любой из аптечек пропадают все... надо сделать так чтобы при коллизий с конкретной аптекой она и проподала... как это сделать ? заранее спасибо за ответ, и заранее выстрел в лоб за флуд ))

Mr_F_ 28.12.2008 16:51

Ответ: трабла
 
попробуй так

For i.item = Each item

If EntityCollided(player,titem) and CountCollisions(i\model)>0 ;при условии что аптечка коллидится только с игроком
FreeEntity i\model
Delete i
EndIf

Next

NitE 28.12.2008 17:02

Re: трабла
 
неа, так вообще они не пропадают...

mr.DIMAS 28.12.2008 17:50

Re: трабла
 
For i.item = Each item
Ent = EntityCollided(Player,TItem)
If Ent = i\model
FreeEntity i\model
Delete i
End if
Next

NitE 28.12.2008 20:20

Re: трабла
 
спасибо

impersonalis 28.12.2008 21:35

Ответ: трабла
 
http://forum.boolean.name/showpost.p...7&postcount=19
FUCK it`s FAQ!


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

vBulletin® Version 3.6.5.
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Перевод: zCarot