Schüsse wollen nicht schießen

Übersicht BlitzBasic Blitz3D

Gehe zu Seite 1, 2  Weiter

Neue Antwort erstellen

Goldini

Betreff: Schüsse wollen nicht schießen

 BeitragFr, Okt 27, 2006 10:27
Antworten mit Zitat
Benutzer-Profile anzeigen
Confused
Hi Leute ich hab ein Problem
Ich habe mich hier umgesehen und bin auf das Thema Schüsse von FBI-Blitz
gestoßen!Doch bei mir gehts nicht.

Könnt ihr mir bitte helfen? Sad
 

Phlox

 BeitragFr, Okt 27, 2006 10:28
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich habe genau das gleiche Problem, Goldini2.......
  • Zuletzt bearbeitet von Phlox am Fr, Okt 27, 2006 10:50, insgesamt einmal bearbeitet

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 10:41
Antworten mit Zitat
Benutzer-Profile anzeigen
Dann beschreibt doch eure Probleme, anstatt hier alles mit Smilies vollzuspammen. Das hört sich an wie "Mein selbstprogrammiertes Speil geht nicht." . Wenn ihr wollt, dass wir euch helfen, dann beschreibt, was nicht funktioniert.

MfG Blitzcoder
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)

Goldini

 BeitragFr, Okt 27, 2006 10:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich schick dir meinen code.

Das ist er!
Code: [AUSKLAPPEN]

Global info1$="BATTLE FIGHTER"
Global info2$="A,S,D sind mehre Geschwindigkeitsstufen"
Global info3$="Y ist rückwerts"
Global info4$="C und X sind zum seitlich rollen"
Global info5$="rechts=rechts,links=links,oben=unten,unten=oben"

Include "start.bb"

Const GRAVITY#=-.1
Const SHIP=1,SCENE=2,WATER=3,LIVE=10

Collisions SHIP,SCENE,2,2
Collisions SHIP,WATER,2,3
Collisions SHIP,LIVE,2,2

MilliSecs()

Global picked

Type feuer
Field sprite
End Type

Type ship
Field mesh
End Type
;---------------------------------------------------
;wasser
Wate=CreatePlane()
PositionEntity Wate,0,115,0
RotateEntity Wate,0,0,180
EntityType Wate,WATER
Mi=CreateMirror()
PositionEntity Mi,0,120,0 
EntityShininess Wate,1
;---------------------------------------------------
; wolken     
plane=CreatePlane()
PositionEntity plane,0,-3000,0
plane2=CreatePlane()PositionEntity plane2,0,-3000,0
RotateEntity plane2,0,0,180
;---------------------------------------------------
;funken
funky1=LoadSprite("sun.bmp",2+48)PositionEntity funky1,0,0,0
funkb1=LoadSprite("shoot.bmp",2+48)PositionEntity funkb1,-2.3,-1,-4.5
funkb2=LoadSprite("shoot.bmp",2+48)PositionEntity funkb2,2.3,-1,-4.5
ScaleSprite funky1,20,20
ScaleSprite funkb2,3,3
ScaleSprite funkb1,3,3
HideEntity funky1
;---------------------------------------------------
;Kerosin VORSICHT !!!
liter=50000
;---------------------------------------------------
; laden_von_meshes
mesh=LoadMesh("machine8.x")PositionEntity mesh,0,0,0
city=LoadMesh("MMC3.x")PositionEntity city,0,1,0
loader=LoadMesh("machine8.x")PositionEntity loader,3000,500,5000
TurnEntity mesh,0,0,0
ScaleMesh city,-0.5,-0.5,-0.5
ScaleMesh mesh,0.5,0.5,0.5
ScaleMesh mesh,10,10,10
ScaleMesh loader,20,20,20
EntityType mesh,SHIP
EntityRadius mesh,10
EntityType city,SCENE
EntityType loader,LIVE

FlipMesh city
;---------------------------------------------------
fog=50000
time=0
;---------------------------------------------------
;camera_und_einstellungen
cam=CreateCamera()PositionEntity cam,0,5,-20
CameraClsColor cam,0,98,145
CameraRange cam,1,1000000
CameraFogMode cam,1
CameraFogRange cam,1,fog
CameraFogColor cam,0,0,0
;---------------------------------------------------
light=CreateLight(1)
LightColor light,224,74,31
light2=CreateLight(3)PositionEntity light,10780,1000,1686
;---------------------------------------------------
;pivot
piv=CreatePivot(mesh)

;---------------------------------------------------
;texturen
tex=LoadTexture("MECHA2.bmp")
tex2=LoadTexture("MECHA2.bmp",48)
sky=LoadTexture("cloud.bmp",3)
wat=LoadTexture("water.bmp")
ScaleTexture tex,0,0
ScaleTexture sky,4000,4000
ScaleTexture wat,3000,3000
ScaleTexture tex2,20.0,20.0
EntityTexture mesh,tex2,0,0
EntityTexture city,tex,0,0
EntityTexture plane,sky
EntityTexture plane2,sky
EntityTexture Wate,wat
EntityAlpha Wate,.6

;---------------------------------------------------
;sounds
Global h=Load3DSound ("H.wav")
Global ax=Load3DSound ("Axel F.wav") 
Global b=LoadSound ("background.wav")             
LoopSound b
PlaySound b
;---------------------------------------------------
Data 51,255,0  ;100%
Data 51,255,0  ;90%
Data 51,255,0  ;80%
Data 51,255,0  ;70%
Data 51,255,0  ;60%
Data 255,255,0 ;50%
Data 255,255,0 ;40%
Data 255,190,0 ;30%
Data 255,130,0 ;20%
Data 255,51,0  ;10%

Dim Balken(1000,3)
For i = 1000 To 100 Step -100
  Read Balken(i,1), Balken(i,2), Balken(i,3)
Next
Leben = 1000

;---------------------------------------------------
b1=CreateCube()PositionEntity b1,0,2000,1000
ScaleMesh b1,20,20,20
b2=CreateCube()PositionEntity b2,30,2000,1000
ScaleMesh b2,20,20,20
b3=CreateCube()PositionEntity b3,60,2000,1000
ScaleMesh b3,20,20,20
b4=CreateCube()PositionEntity b4,90,2000,1000
ScaleMesh b4,20,20,20
b5=CreateCube()PositionEntity b5,120,2000,1000
ScaleMesh b5,20,20,20
b6=CreateCube()PositionEntity b6,150,2000,1000
ScaleMesh b6,20,20,20
b7=CreateCube()PositionEntity b7,180,2000,1000
ScaleMesh b7,20,20,20
b8=CreateCube()PositionEntity b8,210,2000,1000
ScaleMesh b8,20,20,20
b9=CreateCube()PositionEntity b9,240,2000,1000
ScaleMesh b9,20,20,20
b10=CreateCube()PositionEntity b10,270,2000,1000
ScaleMesh b10,20,20,20
b11=CreateCube()PositionEntity b11,300,2000,1000
ScaleMesh b11,20,20,20
b12=CreateCube()PositionEntity b12,330,2000,1000
ScaleMesh b12,20,20,20
;---------------------------------------------------
;Wind
wind=Rnd (6,50)
wind2=Rnd (6,50)
;---------------------------------------------------
uhr = 12
;---------------------------------------------------
;---------------------------------------------------
ang# = 0 
;---------------------------------------------------
; tastenbelegung
While Not KeyHit(1)

If KeyDown (200) Then TurnEntity mesh,1,0,0
If KeyDown (208) Then TurnEntity mesh,-1,0,0
If KeyDown (203) Then TurnEntity mesh,0,1,0
If KeyDown (205) Then TurnEntity mesh,0,-1,0
If KeyDown (30)  Then MoveEntity mesh,0,0,5 EntityTexture mesh,tex2 EntityShininess mesh,1 liter = liter -1
If KeyDown (44)  Then MoveEntity mesh,0,0,-5
If KeyDown (45)  Then TurnEntity mesh,0,0,1
If KeyDown (46)  Then TurnEntity mesh,0,0,-1

If KeyDown (200) Then TurnEntity piv,1,0,0
If KeyDown (208) Then TurnEntity piv,-1,0,0
If KeyDown (203) Then TurnEntity piv,0,1,0
If KeyDown (205) Then TurnEntity piv,0,-1,0
If KeyDown (30)  Then MoveEntity piv,0,0,5
If KeyDown (44)  Then MoveEntity piv,0,0,-5
If KeyDown (45)  Then TurnEntity piv,0,0,1
If KeyDown (46)  Then TurnEntity piv,0,0,-1

If KeyHit (17)  Then wire=Not wire
                 WireFrame wire

;superspeed
If KeyDown (31)  Then PlaySound e2 MoveEntity mesh,0,0,15 EntityTexture mesh,tex2 liter = liter -4
If KeyDown (31)  Then MoveEntity piv,0,0,15                                 


;highspeed
If KeyDown (32)  Then PlaySound e3 MoveEntity mesh,0,0,25 EntityTexture mesh,tex2 liter = liter -5
If KeyDown (32)  Then MoveEntity piv,0,0,25

If KeyDown (28) Then MoveEntity mesh,0,0,70 fire=LoadTexture("fire.png",2+48) EntityTexture mesh,fire liter = liter -6
;shoot
If MouseHit (1) Then If MouseHit(1) Then picked = CameraPick(cam,GraphicsWidth/2,GraphicsHeight/2)



;---------------------------------------------------
If KeyHit(88) Then
SaveBuffer(FrontBuffer(),"pictures\show2" + Str$(Shot) + ".bmp")
Shot=Shot + 1
End If
;---------------------------------------------------
If KeyDown (25) Or KeyDown (197) Then
front=LoadFont("Alien Encounters",80,0,0,0)
SetFont front
Text 150,200,"P A U S E"
Flip
FlushKeys
WaitKey
FreeFont front
End If
;---------------------------------------------------
If EntityCollided (mesh,SCENE) Then ShowEntity funky1 EntityTexture mesh,tex2 : funky1timer=MilliSecs() : If Leben > 0 Then Leben = Leben - 1
If EntityCollided (mesh,WATER) Then Leben = 1000
If  funky1timer<>0 Then
If (MilliSecs()-funky1timer) > 10 Then HideEntity funky1 : funky1timer=0
EndIf
If  funky2timer<>0 Then
If (MilliSecs()-funky2timer) > 10 Then HideEntity funky2 : funky2timer=0
EndIf
;---------------------------------------------------
If fog = 50000 Then uhr = 1
If fog = 45835 Then uhr = 2
If fog = 41665 Then uhr = 3
If fog = 37490 Then uhr = 4
If fog = 33335 Then uhr = 5
If fog = 29165 Then uhr = 6
If fog = 24990 Then uhr = 7
If fog = 20830 Then uhr = 8
If fog = 16665 Then uhr = 9
If fog = 12490 Then uhr = 10
If fog =  8330 Then uhr = 11
If fog =  4165 Then uhr = 12
If fog =   100 Then uhr = 0
;---------------------------------------------------
CameraFogRange cam,1,fog
;---------------------------------------------------
If uhr=0 Then CameraClsColor cam,0,0,40 LightColor light,0,0,255
If fog<5000 And fog>2500 Then CameraClsColor cam,0,0,55 LightColor light,1,0,255
If fog<10000 And fog>5000 Then CameraClsColor cam,0,0,90 LightColor light,6,4,200
If fog<25000 And fog>10000 Then CameraClsColor cam,0,49,72 LightColor light,112,37,15
If fog<40000 And fog>25000 Then CameraClsColor cam,0,69,92 LightColor light,132,57,35
If fog<50000 And fog>40000Then CameraClsColor cam,0,98,145 LightColor light,224,74,31
;---------------------------------------------------
TurnEntity b1,1,1,1
TurnEntity b2,1,1,1
TurnEntity b3,1,1,1
TurnEntity b4,1,1,1
TurnEntity b5,1,1,1
TurnEntity b6,1,1,1
TurnEntity b7,1,1,1
TurnEntity b8,1,1,1
TurnEntity b9,1,1,1
TurnEntity b10,1,1,1
TurnEntity b11,1,1,1
TurnEntity b12,1,1,1
;---------------------------------------------------
If fog = 50000 Then time =0
If fog = 100   Then time =1
;---------------------------------------------------
If time = 0 Then fog = fog-5
If time = 1 Then fog = fog+5
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
If KeyDown (201) And Leben <1000 Then Leben = Leben + 100 liter = 50000
If KeyDown (209) And Leben <1000 Or Leben = 1000 Or Leben > 1000 Then Leben = Leben - 1
;---------------------------------------------------
If Leben = 0 Then End
If Leben <100 Then beep=PlayMusic("warning.wav")
If liter < -10000 Then End
If liter <0 Then beep=PlayMusic("warning.wav")
;---------------------------------------------------
MoveEntity Wate,1,0,1
MoveEntity plane,wind,0,wind2
MoveEntity plane2,wind,0,wind2
;---------------------------------------------------
EntityParent cam,mesh
EntityParent funky1,mesh
EntityParent funkb1,mesh
EntityParent funkb2,mesh
;---------------------------------------------------
TranslateEntity mesh,0,0.6,GRAVITY,0
TurnEntity funky1,1,0,0
;---------------------------------------------------
; endbefehle     
updatefeuer()
RenderWorld

For i = 100 To Leben Step 10
  If i Mod 100 = 0 Then Color Balken(i,1), Balken(i,2), Balken(i,3)
  Rect 20 + i/2, 20,50,40,1
Next

Text 70,130,liter + " Mililiter Kerosin"
If liter <0 Then Text 70,150,"Warning !!!"

Text 70,150,uhr + " Uhr"
RotateSprite funky1,ang
ang = ang +3

Text 70,140,fog + " Meter Sichtweite" 

UpdateWorld
Flip
Wend

Function Feuer()
F.feuer=New feuer

F\sprite=LoadSprite("shoot.bmp",2+48)
PositionEntity f\sprite,EntityX( mesh ),EntityY( mesh ),EntityZ( mesh )
RotateEntity f\sprite,EntityPitch( mesh ),EntityYaw( mesh ),EntityRoll( mesh )
MoveEntity f\sprite,0,0,MeshDepth( mesh )
End Function

Function UpdateFeuer()
For F.feuer = Each feuer
MoveEntity F\sprite,0,0,20
Next
End Function

ClearWorld
End


~EDIT~
Codetags eingefügt
Jan_

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 10:51
Antworten mit Zitat
Benutzer-Profile anzeigen
Goldini, was sollen wir denn jetzt damit? Wir haben die benötigte "Start.bb" nicht. Und selbst wenn, wie sollen wir wissen, was geht/nicht geht. Beschreib dein Problem und dann sehen wir, was wir tun können.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
 

Phlox

 BeitragFr, Okt 27, 2006 10:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Also, wenn wir die linke Maustaste drücken, sagt er "Entity does not exist" Evil or Very Mad

Goldini

 BeitragFr, Okt 27, 2006 11:00
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke Jan
Aber der Code war falsch.
Hier ist der richtige:
Code: [AUSKLAPPEN]

Global info1$="BATTLE FIGHTER"
Global info2$="A,S,D sind mehre Geschwindigkeitsstufen"
Global info3$="Y ist rückwerts"
Global info4$="C und X sind zum seitlich rollen"
Global info5$="rechts=rechts,links=links,oben=unten,unten=oben"

Include "start.bb"

Const GRAVITY#=-.1
Const SHIP=1,SCENE=2,WATER=3,LIVE=10

Collisions SHIP,SCENE,2,2
Collisions SHIP,WATER,2,3
Collisions SHIP,LIVE,2,2

MilliSecs()

Global picked

Type feuer
Field sprite
End Type

Type ship
Field mesh
End Type
;---------------------------------------------------
;wasser
Wate=CreatePlane()
PositionEntity Wate,0,115,0
RotateEntity Wate,0,0,180
EntityType Wate,WATER
Mi=CreateMirror()
PositionEntity Mi,0,120,0 
EntityShininess Wate,1
;---------------------------------------------------
; wolken     
plane=CreatePlane()
PositionEntity plane,0,-3000,0
plane2=CreatePlane()PositionEntity plane2,0,-3000,0
RotateEntity plane2,0,0,180
;---------------------------------------------------
;funken
funky1=LoadSprite("sun.bmp",2+48)PositionEntity funky1,0,0,0
funkb1=LoadSprite("shoot.bmp",2+48)PositionEntity funkb1,-2.3,-1,-4.5
funkb2=LoadSprite("shoot.bmp",2+48)PositionEntity funkb2,2.3,-1,-4.5
ScaleSprite funky1,20,20
ScaleSprite funkb2,3,3
ScaleSprite funkb1,3,3
HideEntity funky1
;---------------------------------------------------
;Kerosin VORSICHT !!!
liter=50000
;---------------------------------------------------
; laden_von_meshes
mesh=LoadMesh("machine8.x")PositionEntity mesh,0,0,0
city=LoadMesh("MMC3.x")PositionEntity city,0,1,0
loader=LoadMesh("machine8.x")PositionEntity loader,3000,500,5000
TurnEntity mesh,0,0,0
ScaleMesh city,-0.5,-0.5,-0.5
ScaleMesh mesh,0.5,0.5,0.5
ScaleMesh mesh,10,10,10
ScaleMesh loader,20,20,20
EntityType mesh,SHIP
EntityRadius mesh,10
EntityType city,SCENE
EntityType loader,LIVE

FlipMesh city
;---------------------------------------------------
fog=50000
time=0
;---------------------------------------------------
;camera_und_einstellungen
cam=CreateCamera()PositionEntity cam,0,5,-20
CameraClsColor cam,0,98,145
CameraRange cam,1,1000000
CameraFogMode cam,1
CameraFogRange cam,1,fog
CameraFogColor cam,0,0,0
;---------------------------------------------------
light=CreateLight(1)
LightColor light,224,74,31
light2=CreateLight(3)PositionEntity light,10780,1000,1686
;---------------------------------------------------
;pivot
piv=CreatePivot(mesh)

;---------------------------------------------------
;texturen
tex=LoadTexture("MECHA2.bmp")
tex2=LoadTexture("MECHA2.bmp",48)
sky=LoadTexture("cloud.bmp",3)
wat=LoadTexture("water.bmp")
ScaleTexture tex,0,0
ScaleTexture sky,4000,4000
ScaleTexture wat,3000,3000
ScaleTexture tex2,20.0,20.0
EntityTexture mesh,tex2,0,0
EntityTexture city,tex,0,0
EntityTexture plane,sky
EntityTexture plane2,sky
EntityTexture Wate,wat
EntityAlpha Wate,.6

;---------------------------------------------------
;sounds
Global h=Load3DSound ("H.wav")
Global ax=Load3DSound ("Axel F.wav") 
Global b=LoadSound ("background.wav")             
LoopSound b
PlaySound b
;---------------------------------------------------
Data 51,255,0  ;100%
Data 51,255,0  ;90%
Data 51,255,0  ;80%
Data 51,255,0  ;70%
Data 51,255,0  ;60%
Data 255,255,0 ;50%
Data 255,255,0 ;40%
Data 255,190,0 ;30%
Data 255,130,0 ;20%
Data 255,51,0  ;10%

Dim Balken(1000,3)
For i = 1000 To 100 Step -100
  Read Balken(i,1), Balken(i,2), Balken(i,3)
Next
Leben = 1000

;---------------------------------------------------
b1=CreateCube()PositionEntity b1,0,2000,1000
ScaleMesh b1,20,20,20
b2=CreateCube()PositionEntity b2,30,2000,1000
ScaleMesh b2,20,20,20
b3=CreateCube()PositionEntity b3,60,2000,1000
ScaleMesh b3,20,20,20
b4=CreateCube()PositionEntity b4,90,2000,1000
ScaleMesh b4,20,20,20
b5=CreateCube()PositionEntity b5,120,2000,1000
ScaleMesh b5,20,20,20
b6=CreateCube()PositionEntity b6,150,2000,1000
ScaleMesh b6,20,20,20
b7=CreateCube()PositionEntity b7,180,2000,1000
ScaleMesh b7,20,20,20
b8=CreateCube()PositionEntity b8,210,2000,1000
ScaleMesh b8,20,20,20
b9=CreateCube()PositionEntity b9,240,2000,1000
ScaleMesh b9,20,20,20
b10=CreateCube()PositionEntity b10,270,2000,1000
ScaleMesh b10,20,20,20
b11=CreateCube()PositionEntity b11,300,2000,1000
ScaleMesh b11,20,20,20
b12=CreateCube()PositionEntity b12,330,2000,1000
ScaleMesh b12,20,20,20
;---------------------------------------------------
;Wind
wind=Rnd (6,50)
wind2=Rnd (6,50)
;---------------------------------------------------
uhr = 12
;---------------------------------------------------
;---------------------------------------------------
ang# = 0 
;---------------------------------------------------
; tastenbelegung
While Not KeyHit(1)

If KeyDown (200) Then TurnEntity mesh,1,0,0
If KeyDown (208) Then TurnEntity mesh,-1,0,0
If KeyDown (203) Then TurnEntity mesh,0,1,0
If KeyDown (205) Then TurnEntity mesh,0,-1,0
If KeyDown (30)  Then MoveEntity mesh,0,0,5 EntityTexture mesh,tex2 EntityShininess mesh,1 liter = liter -1
If KeyDown (44)  Then MoveEntity mesh,0,0,-5
If KeyDown (45)  Then TurnEntity mesh,0,0,1
If KeyDown (46)  Then TurnEntity mesh,0,0,-1

If KeyDown (200) Then TurnEntity piv,1,0,0
If KeyDown (208) Then TurnEntity piv,-1,0,0
If KeyDown (203) Then TurnEntity piv,0,1,0
If KeyDown (205) Then TurnEntity piv,0,-1,0
If KeyDown (30)  Then MoveEntity piv,0,0,5
If KeyDown (44)  Then MoveEntity piv,0,0,-5
If KeyDown (45)  Then TurnEntity piv,0,0,1
If KeyDown (46)  Then TurnEntity piv,0,0,-1

If KeyHit (17)  Then wire=Not wire
                 WireFrame wire

;superspeed
If KeyDown (31)  Then PlaySound e2 MoveEntity mesh,0,0,15 EntityTexture mesh,tex2 liter = liter -4
If KeyDown (31)  Then MoveEntity piv,0,0,15                                 


;highspeed
If KeyDown (32)  Then PlaySound e3 MoveEntity mesh,0,0,25 EntityTexture mesh,tex2 liter = liter -5
If KeyDown (32)  Then MoveEntity piv,0,0,25

If KeyDown (28) Then MoveEntity mesh,0,0,70 fire=LoadTexture("fire.png",2+48) EntityTexture mesh,fire liter = liter -6
;shoot
If MouseHit (1) Then
Feuer()
End If

;---------------------------------------------------
If KeyHit(88) Then
SaveBuffer(FrontBuffer(),"pictures\show2" + Str$(Shot) + ".bmp")
Shot=Shot + 1
End If
;---------------------------------------------------
If KeyDown (25) Or KeyDown (197) Then
front=LoadFont("Alien Encounters",80,0,0,0)
SetFont front
Text 150,200,"P A U S E"
Flip
FlushKeys
WaitKey
FreeFont front
End If
;---------------------------------------------------
If EntityCollided (mesh,SCENE) Then ShowEntity funky1 EntityTexture mesh,tex2 : funky1timer=MilliSecs() : If Leben > 0 Then Leben = Leben - 1
If EntityCollided (mesh,WATER) Then Leben = 1000
If  funky1timer<>0 Then
If (MilliSecs()-funky1timer) > 10 Then HideEntity funky1 : funky1timer=0
EndIf
If  funky2timer<>0 Then
If (MilliSecs()-funky2timer) > 10 Then HideEntity funky2 : funky2timer=0
EndIf
;---------------------------------------------------
If fog = 50000 Then uhr = 1
If fog = 45835 Then uhr = 2
If fog = 41665 Then uhr = 3
If fog = 37490 Then uhr = 4
If fog = 33335 Then uhr = 5
If fog = 29165 Then uhr = 6
If fog = 24990 Then uhr = 7
If fog = 20830 Then uhr = 8
If fog = 16665 Then uhr = 9
If fog = 12490 Then uhr = 10
If fog =  8330 Then uhr = 11
If fog =  4165 Then uhr = 12
If fog =   100 Then uhr = 0
;---------------------------------------------------
CameraFogRange cam,1,fog
;---------------------------------------------------
If uhr=0 Then CameraClsColor cam,0,0,40 LightColor light,0,0,255
If fog<5000 And fog>2500 Then CameraClsColor cam,0,0,55 LightColor light,1,0,255
If fog<10000 And fog>5000 Then CameraClsColor cam,0,0,90 LightColor light,6,4,200
If fog<25000 And fog>10000 Then CameraClsColor cam,0,49,72 LightColor light,112,37,15
If fog<40000 And fog>25000 Then CameraClsColor cam,0,69,92 LightColor light,132,57,35
If fog<50000 And fog>40000Then CameraClsColor cam,0,98,145 LightColor light,224,74,31
;---------------------------------------------------
TurnEntity b1,1,1,1
TurnEntity b2,1,1,1
TurnEntity b3,1,1,1
TurnEntity b4,1,1,1
TurnEntity b5,1,1,1
TurnEntity b6,1,1,1
TurnEntity b7,1,1,1
TurnEntity b8,1,1,1
TurnEntity b9,1,1,1
TurnEntity b10,1,1,1
TurnEntity b11,1,1,1
TurnEntity b12,1,1,1
;---------------------------------------------------
If fog = 50000 Then time =0
If fog = 100   Then time =1
;---------------------------------------------------
If time = 0 Then fog = fog-5
If time = 1 Then fog = fog+5
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
;---------------------------------------------------
If KeyDown (201) And Leben <1000 Then Leben = Leben + 100 liter = 50000
If KeyDown (209) And Leben <1000 Or Leben = 1000 Or Leben > 1000 Then Leben = Leben - 1
;---------------------------------------------------
If Leben = 0 Then End
If Leben <100 Then beep=PlayMusic("warning.wav")
If liter < -10000 Then End
If liter <0 Then beep=PlayMusic("warning.wav")
;---------------------------------------------------
MoveEntity Wate,1,0,1
MoveEntity plane,wind,0,wind2
MoveEntity plane2,wind,0,wind2
;---------------------------------------------------
EntityParent cam,mesh
EntityParent funky1,mesh
EntityParent funkb1,mesh
EntityParent funkb2,mesh
;---------------------------------------------------
TranslateEntity mesh,0,0.6,GRAVITY,0
TurnEntity funky1,1,0,0
;---------------------------------------------------
; endbefehle     
updatefeuer()
RenderWorld

For i = 100 To Leben Step 10
  If i Mod 100 = 0 Then Color Balken(i,1), Balken(i,2), Balken(i,3)
  Rect 20 + i/2, 20,50,40,1
Next

Text 70,130,liter + " Mililiter Kerosin"
If liter <0 Then Text 70,150,"Warning !!!"

Text 70,150,uhr + " Uhr"
RotateSprite funky1,ang
ang = ang +3

Text 70,140,fog + " Meter Sichtweite" 

UpdateWorld
Flip
Wend

Function Feuer()
F.feuer=New feuer

F\sprite=LoadSprite("shoot.bmp",2+48)
PositionEntity f\sprite,EntityX( mesh ),EntityY( mesh ),EntityZ( mesh )
RotateEntity f\sprite,EntityPitch( mesh ),EntityYaw( mesh ),EntityRoll( mesh )
MoveEntity f\sprite,0,0,MeshDepth( mesh )
End Function

Function UpdateFeuer()
For F.feuer = Each feuer
MoveEntity F\sprite,0,0,20
Next
End Function

ClearWorld
End


Und wenn ich dann die Maustaste drücke
sagt er:"Entity does not exist".

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 11:00
Antworten mit Zitat
Benutzer-Profile anzeigen
Dann postet doch mal bitte die Start.bb . Falls es die ist, die bei B3D dabei ist, die habe ich nicht, da ich diese ganzen Bsps nicht mitinstalliert habe.

Spontan fällt mir auf:
Code: [AUSKLAPPEN]
If MouseHit (1) Then If MouseHit(1) Then picked = CameraPick(cam,GraphicsWidth/2,GraphicsHeight/2)


Was soll das? Wieso zwei mal?

Code: [AUSKLAPPEN]

F\sprite=LoadSprite("shoot.bmp",2+48)


Vielleicht kann er diese BMP nicht laden. ihr könnt das testen, indem ihr dahinter ein
Code: [AUSKLAPPEN]
Runtimeerror F\sprite
setzt.
Spuckt er "0", kann er es nicht laden.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
  • Zuletzt bearbeitet von Blitzcoder am Fr, Okt 27, 2006 11:11, insgesamt 2-mal bearbeitet

Goldini

 BeitragFr, Okt 27, 2006 11:04
Antworten mit Zitat
Benutzer-Profile anzeigen
Hier ist start.bb
meins ist ein bisschen anders aber im grunde das gleiche.
Code: [AUSKLAPPEN]

SetGfx()

Function SetGfx()
   If info1$<>""
      AppTitle info1$,"Exit "+info1$+" ?"
   EndIf
   FlushKeys()
   
   mode_cnt=CountGfxModes3D()
   If Not mode_cnt RuntimeError "Can't find any 3D graphics modes"
   
   mode=0:If Not Windowed3D() mode=1
   
   Graphics 640,480,16,2
   SetBuffer BackBuffer()
   
   image=LoadImage( "b3dlogo.jpg" )
   If Not image image=LoadImage( "../b3dlogo.jpg" )
   MidHandle image
   
   font=LoadFont( "verdana",16 ):SetFont font
   
   tx=640+160:nx=-160:ty=280
   
   url$="www.blitzbasic.com"
   url_x=640-StringWidth( url$ ):url_y=480-FontHeight()

   Repeat
      Cls
      DrawBlock image,320,144
               
      Color 0,255,0
      Text tx,ty+FontHeight()*0,info1$,True
      Text nx,ty+FontHeight()*1,info2$,True
      Text tx,ty+FontHeight()*2,info3$,True
      Text nx,ty+FontHeight()*3,info4$,True
   
      Color 255,255,255
      If mode=0
         Text tx,ty+FontHeight()*5,"Windowed",True
      Else
         Text tx,ty+FontHeight()*5,GfxModeWidth( mode )+","+GfxModeHeight( mode )+","+GfxModeDepth( mode ),True
      EndIf
      
      Color 255,0,0
      Text nx,ty+FontHeight()*7,"[Return] to begin",True
      Text tx,ty+FontHeight()*8,"[Arrows] change mode",True
      Text nx,ty+FontHeight()*9,"[Escape] to exit",True
      
      Color 0,0,255:Text url_x,url_y,url$
      If KeyHit( 1 ) End
      If KeyHit( 28 )
         Cls:Flip:Cls:Flip
         FreeFont font:FreeImage image
         EndGraphics
         If mode
            Graphics3D GfxModeWidth(mode),GfxModeHeight(mode),GfxModeDepth(mode),1
         Else
            Graphics3D 640,480,0,2
         EndIf
         SetBuffer BackBuffer()
         Return
      EndIf
      If KeyHit( 203 )
         mode=mode-1
         If mode<0 Or (mode=0 And (Not Windowed3D())) mode=mode_cnt
      Else If KeyHit( 205 )
         mode=mode+1
         If mode>mode_cnt
            mode=0
            If Not Windowed3D() mode=1
         EndIf
      EndIf
      If tx>320 tx=tx-8
      If nx<320 nx=nx+8
      Flip
   Forever
End Function

Goldini

 BeitragFr, Okt 27, 2006 11:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Guter Tipp aber jetzt sagt er"RuntimeError F\sprite"

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 11:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Autsch. Fehler meinerseits. Es muss
Code: [AUSKLAPPEN]
Runtimeerror F\sprite

heissen. Ohne Anführungszeichen.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)

Goldini

 BeitragFr, Okt 27, 2006 11:13
Antworten mit Zitat
Benutzer-Profile anzeigen
Jetzt sagt er mir eine Zahl die lautet"51244960"
 

Phlox

 BeitragFr, Okt 27, 2006 11:13
Antworten mit Zitat
Benutzer-Profile anzeigen
Jetzt sagt er "Runtimeerror 54820144" (Was auch immer das sein soll...)

Goldini

 BeitragFr, Okt 27, 2006 11:14
Antworten mit Zitat
Benutzer-Profile anzeigen
Dir sagt er auch eine Zahl komisch!
 

Phlox

 BeitragFr, Okt 27, 2006 11:16
Antworten mit Zitat
Benutzer-Profile anzeigen
Ja, aber eine andere Question

Goldini

 BeitragFr, Okt 27, 2006 11:18
Antworten mit Zitat
Benutzer-Profile anzeigen
Was sagst du dazu Blitzcoder?

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 11:21
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich sage, dass er das Sprite also geladen hat. Die Zahl wird bei jedem anders sein. Das ist eine Speicheradresse.

EDIT: Happa. Die Variable "Mesh" ist nur lokal. Das heisst, sie gilt nicht in Funktionen. Die Function feuer braucht sie aber. Macht mal daraus Code: [AUSKLAPPEN]
mesh=LoadMesh("machine8.x")PositionEntity mesh,0,0,0

ein
Code: [AUSKLAPPEN]
global mesh=LoadMesh("machine8.x")PositionEntity mesh,0,0,0


MfG Blitzcoder
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)
  • Zuletzt bearbeitet von Blitzcoder am Fr, Okt 27, 2006 11:27, insgesamt 2-mal bearbeitet

Goldini

 BeitragFr, Okt 27, 2006 11:25
Antworten mit Zitat
Benutzer-Profile anzeigen
OK aber was könnte es dann sein???
Mit diesen Zeilen danke ich einer Person, die mich für so wichtig hält, dass sie sogar einen Club nach mir benannt hat!
Danke! Very Happy

Blitzcoder

Newsposter

BeitragFr, Okt 27, 2006 11:26
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich editierte im falschen Moment. Lies meinen letzten Post.
P4 3 Ghz@3,55Ghz|GF 6600GT 256MB|Samsung 80GB | 2x Samsung 160GB|2048MB DDR-400 RAM|6 Mbit Flatrate | Logitech G15 | Samsung 225BW-TFT | Ubuntu Gutsy Linux | Windows Vista | Desktop | Blog | CollIDE | Worklog
________________
|°°°°°°°°°°°°°°||'""|""\__,_
|______________ ||__ |__|__ |)
|(@) |(@)"""**|(@)(@)****|(@)

Goldini

 BeitragFr, Okt 27, 2006 11:29
Antworten mit Zitat
Benutzer-Profile anzeigen
DANKE Blitzcoder Vielen Dank es geht Very Happy Very Happy Very Happy
Mit diesen Zeilen danke ich einer Person, die mich für so wichtig hält, dass sie sogar einen Club nach mir benannt hat!
Danke! Very Happy

Gehe zu Seite 1, 2  Weiter

Neue Antwort erstellen


Übersicht BlitzBasic Blitz3D

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group