warum wird das sprite nicht angezeigt

[Ghost]

Hi

hab schon wieder ein Problem.
Wenn ich das Programm starte müsste er eigentlich ein Sprite anzeigen aber das macht er nicht.

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()
InitSprite3D()                                    


Global pi.f
Global a
a=0

pi=3.14159265 

#SPEED = 20 
#PI = 3.14159265


 OpenScreen(1024, 768, 32, "Test") 




 LoadSprite(1,"F:\(der Pfad)\SchiffI.bmp",#PB_Sprite_Texture)

 
SetFrameRate(30)


;############################Struckturen und Prozeduren



Structure Player
x.f
y.f
Neigung.f
Bild.f

Antrieblinks.f
Antriebrechts.f
Gewicht.f

Schild.f
Rumpf.f
Energie.f

Ship.f

WaffeI.f
WaffeII.f
WaffeIII.f
WaffeIV.f
WaffeV.f

RocketI.f
RocketII.f

EndStructure 
NewList  Player.Player()
    
    
  Procedure AddPlayer()
AddElement (Player())
Player()\x=x
Player()\y=y
Player()\Neigung=Neigung
Player()\Bild=Bild

Player()\Antrieblinks=Antrieblinks
Player()\Antriebrechts=Antriebrechts
Player()\Gewicht=Gewicht

Player()\Schild=Schild
Player()\Rumpf=Rumpf
Player()\Energie=Energie
Player()\Ship=Ship

Player()\WaffeI=WaffeI
Player()\WaffeII=WaffeII
Player()\WaffeIII=WaffeIII
Player()\WaffeIV=WaffeIV
Player()\WaffeV=WaffeV

Player()\RocketI=RocketI
Player()\RocketII=RocketII
EndProcedure 




Repeat 
  ExamineKeyboard() 
  ExamineMouse() 
  
 ClearScreen(0, 0, 0)

   CreateSprite3D(1, 1) 

      
If a = 0
   ResetList(Player()) 
While NextElement(Player()) 

 AddPlayer()
 Player()\x = 500
 Player()\y = 500
 Player()\Neigung=0

a+1

  Wend 
  EndIf 
;#######################################STEUERUNG


If KeyboardPushed(#PB_Key_Escape) 
 Quit = 1 
EndIf


ResetList(Player()) 
While NextElement(Player()) 

If KeyboardPushed(#PB_Key_Left)
  Player()\Neigung - 1*#speed
EndIf  

If KeyboardPushed(#PB_Key_right)
  Player()\Neigung+ 1*#speed
EndIf

If KeyboardPushed(#pb_key_up) 
 player()\x + Cos(Player()\Neigung*2*pi/360)*#Speed ; Bewegung 
 player()\y + Sin(Player()\Neigung*2*pi/360)*#Speed ; Bewegung 
EndIf 

If KeyboardPushed(#pb_key_down) 
  player()\x - Cos(Player()\Neigung*2*pi/360)*#Speed ; Bewegung 
  player()\y - Sin(Player()\Neigung*2*pi/360)*#Speed ; Bewegung 
EndIf 
  


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

  
  
  
  ResetList(Player()) 
While NextElement(Player()) 
 If Player()\Neigung  >360:Player()\Neigung = 0 :EndIf 
 If Player()\Neigung  <0:Player()\Neigung =360 : EndIf
Wend 


 ResetList(Player()) 
While NextElement(Player()) 
 Start3D()  
   RotateSprite3D(1, Player()\Neigung, 0)
    DisplaySprite3D(1,Player()\x ,Player()\y , 255) 
 Stop3D()
Wend 

 
    FlipBuffers()  
Until Quit = 1 

Weis jemand wieso das so ist?

[Kaeru Gaman]

wo ist dein WEND für die tastatur-schleife?

mal abgesehen davon, dass das doch unfug ist, oder? willst mehrere player mit den selben tasten steuern?

[Ghost]

also wegen den Wend ... hab den Code nochmal gekürtzt(alles was net mit den Player zu tun hatt rausgeschnitten)bevor ich ihn reingesetzt habe ... da muss das wend mit rein gerutscht sein


eigentlich will ich nur einen Steuern aber ich dachte es wäre ein wenig übersichtliger wenn ich dafür eine Strucktur nehme würde ...
könnte aber das Problem sein (ist erst aufgetreten als ich die Struckture gemacht habe) ... aber eigentlich müsste es doch trodzdem funktionieren oder?

[Kaeru Gaman]

nuja, wenn du nur nen player machen wolltest, dann brauchst du keine liste.
du kannst eine strukturierte Var auch einzeln machen:

Code: Alles auswählen

Player1.Player

und keine liste, wenn du eh nur ein element benutzen willst.


> hab den Code nochmal gekürtzt bevor ich ihn reingesetzt habe ...
nuja, wenn der fehler woanders sitzt....


sorry, ich seh hier so weit halt erstmal nix, woran es liegen könnte...

[#NULL]

kann es sein, dass deine player-liste schlichtweg leer ist? denn AddElement(Player()) führst du in diesem code nur innerhalb von deiner procedure AddPlayer() aus und diese wird aufgerufen nach einem While NextElement(Player())

[Kaeru Gaman]

stimmt.. argl.. so ein mist, das hätt ich doch auch sehen müssen

[Ghost]

dann müsste ich doch tehoretisch nur While NextElement(Player()) rausnehmen oder?
also nur

Code: Alles auswählen

  ResetList(Player()) 
 AddPlayer() 
 Player()\x = 500 
 Player()\y = 500 
 Player()\Neigung=0 

falls ja klapt leider auch nicht ...

aber ich werd es nochmal umschreiben weil Kaeru Gaman recht hatt eigentlich reichen einzele Variablen

Aber würde trodzdem gerne wissen wie das mit einer Struckture funkstioniert

[roherter]

So wie ich das sehe bzw. wie es in der Hilfe steht musst du bevor du ein Sprite3d anzeigen kannst erstmal eins mit Createsprite3d erstellen.
Also sprite Laden

Dann aus dem Sprite ein 3dSprite machen

[#NULL]

nein, das macht er ja - unnötigerweise aber in jedem frame, statt vor der hauptschleife: soweit ich weiß, reicht es wenn du das CreateSprite3D(...) nur einmal vor dem repeat... ausführst.

diesen code wiederum versteh' ich überhaupt nicht

Code: Alles auswählen

If a = 0
   ResetList(Player())
While NextElement(Player())

 AddPlayer()
 Player()\x = 500
 Player()\y = 500
 Player()\Neigung=0

a+1

  Wend
  EndIf 

wenn du einfach erstmal was sehen willst kannst du jenen code ja mal auskommentieren/entfernen und dafür vor dem repeat dein(e) player erstellen:

Code: Alles auswählen

;...
;...
CreateSprite3D(1, 1)

AddPlayer()
Player()\x = 500
Player()\y = 500
Player()\Neigung=0

AddPlayer()
Player()\x = 200
Player()\y = 200
Player()\Neigung=40

Repeat
  ExamineKeyboard()
  ExamineMouse()
  ClearScreen(0, 0,0)
  ;#######################################STEUERUNG
  ;...
  ;...
  Wend ; <<<<<<<<<<<<<< und wie Kaeru Gaman schon sagte, auch das Wend sicherstellen
  ;###############################################
  ;...

[Ghost]

ok so funktioniert es

Code: Alles auswählen

 AddPlayer()
 Player()\x = 500
 Player()\y = 500
 Player()\Neigung=0
 

Repeat 
  ExamineKeyboard() 
  ExamineMouse() 
  
 ClearScreen(0, 0, 0)





   CreateSprite3D(1, 1) 
      CreateSprite3D(2, 2)
      

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

If KeyboardPushed(#PB_Key_Escape) 
 Quit = 1 
EndIf



   ResetList(Player()) 
While NextElement(Player()) 
Start3D()
 RotateSprite3D(1, Player()\Neigung, 0)
 DisplaySprite3D(1,Player()\x ,Player()\y , 255) 

Stop3D()
 Wend 

 
    FlipBuffers()  
Until Quit = 1 

... also müste die Steuerung schuld sein
Edit
nein doch net funkst auch mit Steuerung

ok weis jetzt wodrann es lag einmal wie ihr gesagt habt an den while NetElemt beim Plaer
und dann hatte ich noch

Code: Alles auswählen

 ResetList(shoot())
While NextElement(Shoot())
   ResetList(Player()) 
While NextElement(Player()) 
Start3D()

 RotateSprite3D(2, Shoot()\al, 0)
 DisplaySprite3D(2,Shoot()\x,Shoot()\y , Shoot()\Zustand) 

 RotateSprite3D(1, Player()\Neigung, 0)
 DisplaySprite3D(1,Player()\x ,Player()\y , 255) 

Stop3D()
 Wend 
Wend
 

musste Shoot noch rausnehmen


Danke für die Hilfe