Geht das nich anderst ?

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Blackdragon1989

Betreff: Geht das nich anderst ?

BeitragMi, März 01, 2006 21:17
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,
ich arbeite zur Zeit an meinem ersten Projekt in B3D,soll ein 2D Moorhuhn
klon werden und da hab ich mir gedacht, was wär ein ordentlicher Moorhuhnkloon ohne diese Hülsen als schuss anzeige.Ich habe das ganze so gecodet und wollte mal wissen ob ich das so lassen kann.
Code: [AUSKLAPPEN]

 If Muni = 5 Then
  DrawImage munition,770,20
  DrawImage munition,750,20
  DrawImage munition,730,20
  DrawImage munition,710,20
  DrawImage munition,690,20
 EndIf
 If Muni = 4 Then
  DrawImage munition,770,20
  DrawImage munition,750,20
  DrawImage munition,730,20
  DrawImage munition,710,20
 EndIf
 If Muni = 3 Then
  DrawImage munition,770,20
  DrawImage munition,750,20
  DrawImage munition,730,20
 EndIf
 If Muni = 2 Then
  DrawImage munition,770,20
  DrawImage munition,750,20
 EndIf
 If Muni = 1 Then
  DrawImage munition,770,20
 EndIf
 If Muni = 0 Then
  Nachladen = True
 EndIf
User posted image

MBC

BeitragMi, März 01, 2006 21:24
Antworten mit Zitat
Benutzer-Profile anzeigen
hi
wäre sehr einfach mit ner for...next-schleife zu lösen
Computer sind auch nur Menschen! Wink

Dante

BeitragMi, März 01, 2006 21:31
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
For i = 1 To Muni
DrawImage munition, 770 - (i*20),20
Next
  • Zuletzt bearbeitet von Dante am Mi, März 01, 2006 21:33, insgesamt einmal bearbeitet

Spikespine

BeitragMi, März 01, 2006 21:32
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
For i=1 to Muni
  DrawImage munition,690+(i-1)*20,20
Next
Athlon 64 3700+ | 1024 MB RAM | GeForce 7900 GT | Blitz2D, Blitz3D, BlitzPlus, BlitzMax
 

Blackdragon1989

BeitragMi, März 01, 2006 21:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Sry weiß aber ehrlich gesagt nich wie du das meinst Embarassed
kannst mal bitte nen code schicken ?

Edit: ohhh die andern warn schneller XD Danke für die hilfe
User posted image

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMi, März 01, 2006 21:37
Antworten mit Zitat
Benutzer-Profile anzeigen
Die erste einfache Steigerung wäre eine select case
Code: [AUSKLAPPEN]
Select Muni
 
 Case 0
    Nachladen = True
 Case  1
    DrawImage munition,770,20
 Case  2
    DrawImage munition,770,20
    DrawImage munition,750,20
 Case 3
    DrawImage munition,770,20
    DrawImage munition,750,20
    DrawImage munition,730,20
    EndIf
 Case  4
    DrawImage munition,770,20
    DrawImage munition,750,20
    DrawImage munition,730,20
    DrawImage munition,710,20
 Case 5
    DrawImage munition,770,20
    DrawImage munition,750,20
    DrawImage munition,730,20
    DrawImage munition,710,20
    DrawImage munition,690,20
End Select


Mit einer For...Next etwa so...
Code: [AUSKLAPPEN]
   If Muni Then
   
    For anzahl = 1 To Muni
        DrawImage munition,790 -  Anzahl * 20 ,20
    Next
   
 Else
    Nachladen = True
End If
[BB2D | BB3D | BB+]

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group