Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
 
FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen  RegistrierenRegistrieren
ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin
Zur Begleitseite des Forums / Chat / Impressum
Aktueller Forenpartner:

Pacman Problem

 
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic.
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
RedStar



Anmeldungsdatum: 07.08.2006
Beiträge: 9

BeitragVerfasst am: 07.08.2006, 15:06    Titel: Pacman Problem Antworten mit Zitat

Ich bin jetzt schon 3 STunden dabei, ein Problem irgewndwie zu beheben, aber es klappt irgendwie nicht, daher habe ich mich entschlossen das hier zu posten.

Also, bei dem Programm handelt es sich um ein Pacmanspiel (mein erstes Projekt) indem man nicht ein Pacman sondern ein PacBiber ist. Der Fehler ist bei dem zeigen des Levels (Es kommt immer die Fehlermeldung Unzulässiger Funktionsaufruf bei dem Putbefehl obwohl der modus 12 inistalitiert ist und die Busch hat 132 Elemente, weil sie 16 Pixel breit+hoch sein soll(4 + INT(((16 - 1 + 1) * ( 1 Bits-pro-Bildpunkt-pro-Ebene) + 7)/8 ) * 4 Ebenen * ((16 - 1) + 1))) (Ich rufe die Datei immer mit 1 als Parameter auf. LPath$ enthält übrigens den Pfad in dem sich die Leveldateien befinden. Die erste Zeile bleibt übrigens frei um dort den Status des Spieleers anzuzeigen.

Code:
DEFINT A-Z
 SUB SHOWLEVEL (Nummer)

  CLS

  DIM Inhalt(29) AS STRING * 40

  K = FREEFILE
  OPEN LPath$ + LTRIM$(RTRIM$(STR$(Nummer))) + ".lvl" FOR INPUT AS #K

   FOR Zeile = 1 TO 29
    LINE INPUT #K, Inhalt(Zeile)
   NEXT Zeile

  CLOSE #K

   FOR Y = 1 TO 29
    FOR X = 1 TO 40
     SELECT CASE MID$(Inhalt(Y), X, 1)
      CASE "X"
       Map(X, Y) = "X"
       PUT (X * 16 - 16, Y * 16), Busch(0), PSET
     END SELECT
    NEXT X
   NEXT Y

 END SUB


Ich habe irgendwie schon alles mögliche ausprobiert, aber es klappt nicht weinen

Editiert durch Moderator: Code-Tags hinzugefügt. (Sebastian)
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Heizi



Anmeldungsdatum: 19.01.2005
Beiträge: 309

BeitragVerfasst am: 07.08.2006, 15:16    Titel: Antworten mit Zitat

endet Path auch mit "\" ??? Hast du Map auch gedimmt?? Als Shared, da du
in einer Sub darauf zugreifst???
ansonsten gib doch mal eine genauere Beschreibung des Problems,
wie zB eine Fehlermeldung.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
RedStar



Anmeldungsdatum: 07.08.2006
Beiträge: 9

BeitragVerfasst am: 07.08.2006, 15:23    Titel: Antworten mit Zitat

Code:
DIM SHARED Map(39, 28) AS STRING * 1

LPath$ = "C:\BC3\Level\"


Ist auch als SHARED gedimmt. Bei den Büschen/PacBiber ist immer ein schwarzer strich dazwischen und er Put befehl funztz nicht (Unzulässiger Funktionsaufruf) Ich glaube das der Fehler dadrin liegt das die addressierung irgendwo bei 1 beginnt oder so.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Eisbaer



Anmeldungsdatum: 16.10.2004
Beiträge: 354
Wohnort: Deutschland,Bayern

BeitragVerfasst am: 07.08.2006, 15:35    Titel: Re: Pacman Antworten mit Zitat

Hi,

Also es gibt von EPS (www.east-power-soft.de)

Ein Pacman Tutorial für Quick Basic mit vollständigem Quellcode incl. einer Funktion zum Level Laden.

Müsstest du halt dann an dein Spiel anpassen.

http://eps.designdevil.de/index.php?show=software/games/pacman


Gruß Eisbaer
_________________
Eigene Webseite:
http://www.eisbaer-studios.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
Skilltronic



Anmeldungsdatum: 10.09.2004
Beiträge: 1148
Wohnort: Köln

BeitragVerfasst am: 07.08.2006, 16:55    Titel: Antworten mit Zitat

EDIT: Dachte, ich hätte einen Fehler gefunden, hab' mich aber getäuscht. Deshalb habe ich meine (falsche) Antwort wieder zurückgenommen.

Gruss
Skilltronic
_________________
Elektronik und QB? www.skilltronics.de !
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden Website dieses Benutzers besuchen
RedStar



Anmeldungsdatum: 07.08.2006
Beiträge: 9

BeitragVerfasst am: 07.08.2006, 18:29    Titel: Re: Pacman Antworten mit Zitat

Eisbaer hat Folgendes geschrieben:
Hi,

Also es gibt von EPS (www.east-power-soft.de)

Ein Pacman Tutorial für Quick Basic mit vollständigem Quellcode incl. einer Funktion zum Level Laden.

Müsstest du halt dann an dein Spiel anpassen.

http://eps.designdevil.de/index.php?show=software/games/pacman


Gruß Eisbaer


Naja, das hab ich schon längst probiert.
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    Das deutsche QBasic- und FreeBASIC-Forum Foren-Übersicht -> Allgemeine Fragen zu QBasic. Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.

 Impressum :: Datenschutz