beim laden der Map prüfen, ob sie vorhanden ist?!

Übersicht BlitzBasic Allgemein

Neue Antwort erstellen

Schranz0r

Betreff: beim laden der Map prüfen, ob sie vorhanden ist?!

 BeitragMo, Sep 04, 2006 23:07
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich hät da gerne mal ein Problem:

Und zwar hab ich einen Mapeditor für mein Spiel geschrieben,
und man kann auch alles machen Speichern, Laden und Zeichen
der Map.
Nur wie Prüfe ich ob eine datei zum Laden vorhaben ist.

Angenommen ich habe keine Map in meinen Mapordner,
und gib beim laden an "level1" beim Input.
Wie kann ich prüfen, ob die level1.dat auch im ordner ist?

Ich hab so ein gefühl als wär damit irgendwas zu machen:

ReadFile("levels\"+Name$+".dat")

aber ich steig net dahinter Confused

BlitzBasic: [AUSKLAPPEN] 

If KeyHit(38) Then
  FlushKeys
  Color 0,0,0
  Rect 0, 0, 800, 20, 1
  Color 255,255,255
  Locate 0,5
  Name$ = Input("Welche Map laden? : ")
	Select Name$
	  Case ""
	     Text 0,5,"Kein Mapname eingegeben"
	  Default
     FlushKeys
     datei=ReadFile("levels\"+Name$+".dat")
     For y=0 To 29
        For x=0 To 39
	Level(x,y)=ReadLine(datei)
        Next
     Next
     CloseFile datei
	End Select
EndIf
[/code]
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 

baerserker

 BeitragMo, Sep 04, 2006 23:12
Antworten mit Zitat
Benutzer-Profile anzeigen
Hallo,

ich glaub If Filetype("levels\"+Name$+".dat") könnte dir helfen

MfG
Bär
bär, bär, bär...

Schranz0r

 BeitragMo, Sep 04, 2006 23:22
Antworten mit Zitat
Benutzer-Profile anzeigen
Sehr gut, funzt super so:

Code: [AUSKLAPPEN]
If KeyHit(38) Then
  FlushKeys
  Color 0,0,0
  Rect 0, 0, 800, 20, 1
  Color 255,255,255
  Locate 0,5
  Name$ = Input("Welche Map laden? : ")
   Select Name$
     Case ""
        Text 0,5,"Kein Mapname eingegeben"
     Default
      If Filetype("levels\"+Name$+".dat") = 1 Then
     FlushKeys
     datei=ReadFile("levels\"+Name$+".dat")
     For y=0 To 29
        For x=0 To 39
      Level(x,y)=ReadLine(datei)
        Next
     Next
     CloseFile datei
       EndIf
   End Select
EndIf
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!HAUPTSACH et kost VIEL!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Neue Antwort erstellen


Übersicht BlitzBasic Allgemein

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group