camerapick

Übersicht

BlitzBasic

Blitz3D

	SYSThern Betreff: camerapick	Mi, März 26, 2008 18:20 Antworten mit Zitat
also ich hab bei meinen shooter nun aufnehmbare sachen der eingebaut nun gibts da aber ein problem mit camerapick! also wenn ich mit dem Fadenkreuz z.B. über eine dose fahre und "F" drücke sollte die dose verschwinden. mein code: Code: [AUSKLAPPEN] [EINKLAPPEN] Type dose Field mesh,posx,posy,posz End Type Global d.dose dosenmesh=LoadMesh("models\dosenmesh.b3d") d.dose=NEW dose d\mesh=CopyEntity(dosenmesh) d\posx=10 d\posy=1 d\posz=5 PositionEntity dose,d\posx,d\posy,d\posz For d.dose = Each dose EntityPickMod d\dose,2 EntityType d\dose,2 EntityRadius d\dose,2,2 aufnehmen=CAMERAPICK( camera, mousex(), mousey() ) If aufnehmen<>1 Then FreeEntity d\dose Delete d Next Collisions 1,2,2,1 hoffe ihr könnt mir helfen da die dose nicht verschwindet!
Tools and Programms -------------------- www.systhern.de

SYSThern

Betreff: camerapick

Mi, März 26, 2008 18:20
Antworten mit Zitat

also ich hab bei meinen shooter nun aufnehmbare sachen der eingebaut Smile

nun gibts da aber ein problem mit camerapick!

also wenn ich mit dem Fadenkreuz z.B. über eine dose fahre und "F" drücke sollte die dose verschwinden.

mein code:
Code: [AUSKLAPPEN]

Type dose
Field mesh,posx,posy,posz
End Type
Global d.dose

dosenmesh=LoadMesh("models\dosenmesh.b3d")

d.dose=NEW dose
d\mesh=CopyEntity(dosenmesh)
d\posx=10
d\posy=1
d\posz=5
PositionEntity dose,d\posx,d\posy,d\posz

For d.dose = Each dose
EntityPickMod d\dose,2
EntityType d\dose,2
EntityRadius d\dose,2,2

aufnehmen=CAMERAPICK( camera, mousex(), mousey() )

If aufnehmen<>1 Then
FreeEntity d\dose
Delete d

Next

Collisions 1,2,2,1

hoffe ihr könnt mir helfen da die dose nicht verschwindet!

Tools and Programms
--------------------
www.systhern.de

	SYSThern Betreff: sorry	Mi, März 26, 2008 18:36 Antworten mit Zitat
hab was ganz wichtiges vergessen !! Code: [AUSKLAPPEN] [EINKLAPPEN] if keyhit(33) then aufnehmen=1
Tools and Programms -------------------- www.systhern.de

SYSThern

Betreff: sorry

Mi, März 26, 2008 18:36
Antworten mit Zitat

hab was ganz wichtiges vergessen !!

Code: [AUSKLAPPEN]

if keyhit(33) then aufnehmen=1

Tools and Programms
--------------------
www.systhern.de

	the FR3AK	Mi, März 26, 2008 18:44 Antworten mit Zitat
Doppelthread .__.

the FR3AK

Mi, März 26, 2008 18:44
Antworten mit Zitat

Doppelthread .__.

	peacemaker	Mi, März 26, 2008 23:07 Antworten mit Zitat
@Freak: wenn schon, dann Doppelpost, aber ich denk es ist nich nötig ihm das zu sagen. Zu deinem Problem: haste das überhaupt in einer Schleife? Denn sonst sollte es gehen. Ausserdem heisst es EntityPickModE. Tut aber nix zur Sache. mfG
~Tehadon~ www.tehadon.de http://www.blitzforum.de/worklogs/14/

peacemaker

Mi, März 26, 2008 23:07
Antworten mit Zitat

@Freak: wenn schon, dann Doppelpost, aber ich denk es ist nich nötig ihm das zu sagen.

Zu deinem Problem: haste das überhaupt in einer Schleife? Denn sonst sollte es gehen.
Ausserdem heisst es EntityPickModE. Tut aber nix zur Sache.

mfG

~Tehadon~
www.tehadon.de
http://www.blitzforum.de/worklogs/14/

	Moep	Do, März 27, 2008 14:09 Antworten mit Zitat
Man muss auch nich Pickmode/Type/Radius für jede einzelne Dose setzen. Reicht wenn dus beim geladenen Mesh machst. und so würd ichs machen : Code: [AUSKLAPPEN] [EINKLAPPEN] ;Auكerhalb der Hauptschleife For d.dose = Each dose NameEntity d\mesh,"dose" Next ;In der Hauptschleife If MouseHit(1) pick=CameraPick(Cam,MouseX(),MouseY()) ;Camerapick gibt das gepickte zurück If pick<>0 If EntityName(pick)="dose" d.dose=getDoseByMesh(pick) Delete d FreeEntity(pick) EndIf EndIf EndIf Function getDoseByMesh.dose(mesh) For d.dose=Each dose If d\mesh=mesh Return d EndIf Next End Function Weiß jetzt nich ob der Code so funktioniert, habs nich getestet mfg
Hardstyle Schleichwerbung: http://www.youtube.com/user/Hackepeter42 Achtung: Suchtgefahr! moep123.ohost.de

Moep

Do, März 27, 2008 14:09
Antworten mit Zitat

Man muss auch nich Pickmode/Type/Radius für jede einzelne Dose setzen. Reicht wenn dus beim geladenen Mesh machst.

und so würd ichs machen :

Code: [AUSKLAPPEN]

;Auكerhalb der Hauptschleife
For d.dose = Each dose
NameEntity d\mesh,"dose"
Next

;In der Hauptschleife
If MouseHit(1)
pick=CameraPick(Cam,MouseX(),MouseY()) ;Camerapick gibt das gepickte zurück
If pick<>0
   If EntityName(pick)="dose"
      d.dose=getDoseByMesh(pick)
      Delete d
      FreeEntity(pick)
   EndIf
EndIf
EndIf

Function getDoseByMesh.dose(mesh)
For d.dose=Each dose
   If d\mesh=mesh
      Return d
   EndIf
Next
End Function

Weiß jetzt nich ob der Code so funktioniert, habs nich getestet

mfg

Hardstyle Schleichwerbung:
http://www.youtube.com/user/Hackepeter42

Achtung: Suchtgefahr!
moep123.ohost.de