problem => inventar

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

darth

Betreff: problem => inventar

 BeitragMi, Okt 26, 2005 16:03
Antworten mit Zitat
Benutzer-Profile anzeigen
hi
ich möchte ein inventar machen... gegenstände aufnehmen und im invent anzeigen geht, aber wenn ich sie wieder rausziehen will (also über den inventar rand) dann soll der gegenstand verschwinden - gut, geht auch noch - aber da das alles in arreys angelegt ist wird das ganze einfach um ein stück nach oben verschoben... und das gibt jetzt probleme bei der positionierung der alten gegenstände...
ich habe mir gedacht ich könnte das einfach so machen:
BlitzBasic: [AUSKLAPPEN] 
For save=draw To (obj) ;draw= nr. des gegenstandes der verschoben (gekickt) wurde - obj= anzahl der objekte die vorhanden sind
 xbildtmp(save)=xbild(save)
 ybildtmp(save)=ybild(save)
Next
For save=draw To (obj-1)
 xbild(save+1)=xbildtmp(save)
 ybild(save+1)=ybildtmp(save)
Next

also einfach vom aktuellen gegenstand die daten des vorherigen dem jetzigen zuordnen.
erstellen der gegenstände:
BlitzBasic: [AUSKLAPPEN] 
 obj=h+k+rü+axt
 If obj>16 Then obj=16
Dim objekt$(obj)
 tr=h+1
 kr=k+1
 rüs=rü+1
 ax=axt+1
For set=1 To obj
 If tr>0
  objekt$(set)=\"h\"
  tr=tr-1
 EndIf
 If tr=0 And kr>0
  objekt$(set)=\"k\"
  kr=kr-1
 EndIf
 If tr=0 And kr=0 And rüs>0
  objekt$(set)=\"r\"
  rüs=rüs-1
 EndIf
 If tr=0 And kr=0 And rüs=0 And ax>0
  objekt$(set)=\"a\"
  ax=ax-1
 EndIf
Next

... einfach runterzählen von der anzahl ... die gegenstände werden denn je nach typ mit einem bild auf der x y koordinate (xbild(..) , ybild(..)) angezeigt.

... wenn mir jemand einen tipp hätte wie ich das mit dem rausziehen und umspeichern der koordinaten lösen kann wär ich sehr dankbar ...
Diese Signatur ist leer.
 

gamble

 BeitragMi, Okt 26, 2005 16:08
Antworten mit Zitat
Benutzer-Profile anzeigen
Wäre das mit Types nicht einfacher zu lösen ?

darth

Betreff: ...

 BeitragMi, Okt 26, 2005 16:09
Antworten mit Zitat
Benutzer-Profile anzeigen
types?!? öhm... tja, kA
man hat mir schon mal gesagt ich solle die lernen... aber bisher bin ich mit arreys gut zurecht gekommen... kanns ja mal versuchen
*gutes tut suchen*

[edit]
ich merk schon jetzt dass ich mit denen nicht zurecht kommen werde Embarassed

[edit2]
bin jetzt n schritt weiter... nach dem löschen lasse ich die dinger prüfen:
BlitzBasic: [AUSKLAPPEN] 
        If RectsOverlap(xbild(draw)+25,ybild(draw)+25,1,1,(x*50)+300,(y*50)+185,50,50)
         xbild(draw)=(x*50)+300 : ybild(draw)=(y*50)+185
        EndIf

... jetzt rutschen sie nach, das ding wird korrekt gelöscht, aber das gewählte ding stimmt noch nicht :S es verschwindet nicht das objekt das ich gewählt habe...
Diese Signatur ist leer.

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group