was ist hier falsch

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

looky

Betreff: was ist hier falsch

 BeitragMo, Jun 20, 2005 20:41
Antworten mit Zitat
Benutzer-Profile anzeigen
hallo,
ich versuche ein bomberman spiel zu proggen und hier meine erster fehler könnt ihr mir helfen, bitte.

BlitzBasic: [AUSKLAPPEN] 

Function movemann()
If KeyDown(203) Then
 If map(mx=/40,(my+20)/40) Then
   mx=mx-4
If mx=<0 Then mx=1
 EndIf
ElseIf KeyDown(205) Then
 If map((mx+40)/40,(my+20)/40)=0 Then
  mx=mx+4
If mx=1024 Then mx=1025
 EndIf
ElseIf KeyDown(200) Then
 If map((mx+20)/40,my/40)=0 Then
  my=my-4
If my=< 0 Then my=1
ElseIf KeyDown(208) Then
 If map((mx+20)/40,(my+40)/40)=0 Then
  my=my+4
If my=>768 Then my=769
EndIf
EndIf
EndFunction

skey-z

 BeitragMo, Jun 20, 2005 20:43
Antworten mit Zitat
Benutzer-Profile anzeigen
hast du die ganzen variablen die in der funktion vorkommen auch als global definiert?
Awards:
Coffee's Monatswettbewerb Feb. 08: 1. Platz
BAC#57: 2. Platz
Twitter

Rallimen

Sieger des 30-EUR-Wettbewerbs

BeitragMo, Jun 20, 2005 21:08
Antworten mit Zitat
Benutzer-Profile anzeigen
1. endfunction schreibt man end function!
2. haste ein endif nicht gesetzt!
Wenn du deinen Code einrückst fällt das auch auf!
Ich habe den jetzt mal schnell formatiert und abgeändert!BlitzBasic: [AUSKLAPPEN] 
Function movemann ()
    If KeyDown (203) Then
        If map (mx  / 40 , (my + 20) / 40) Then ; geändert
            mx = mx - 4
            If mx =< 0 Then mx = 1
        EndIf
     ElseIf KeyDown (205) Then
        If map ( (mx + 40) / 40 , (my + 20) / 40) = 0 Then
            mx = mx + 4
            If mx = 1024 Then mx = 1025
        EndIf
     ElseIf KeyDown (200) Then
        If map ( (mx + 20) / 40 ,my / 40) = 0 Then
            my = my - 4
            If my =< 0 Then my = 1
        EndIf ; eingesetzt
     ElseIf KeyDown (208) Then
        If map ( (mx + 20) / 40 , (my + 40) / 40) = 0 Then
            my = my + 4
            If my => 768 Then my = 769
        EndIf
    EndIf
End Function; umbenannt

Ob es jetzt geht kann ich dir nicht sagen!
[BB2D | BB3D | BB+]
 

looky

 BeitragDi, Jun 21, 2005 20:42
Antworten mit Zitat
Benutzer-Profile anzeigen
hi,
cool ein wunder es startet, aber ich kann nicht nach links oder runter steuern. Hier mein fast ganzer code:
BlitzBasic: [AUSKLAPPEN] 

Global tile,mann,mx=100,my=100
Graphics 1024,768,32,1

SetBuffer BackBuffer()
frametimer=CreateTimer(40)
ClsColor 255,255,255

tile=LoadImage(\"graphics/tile.bmp\") 
mann=LoadImage(\"graphics/mann.bmp\") 


MaskImage mann,255,0,255


Dim map(25,19)


Restore mapdata
For y=0 To 18
  For x=0 To 24
    Read map(x,y)
  Next
Next



Repeat
Cls
WaitTimer (frametimer)

drawmap()
movemann()


DrawImage mann,mx,my









Flip
Until KeyHit(1)
End

Function drawmap()
   For y=0 To 18
     For x=0 To 24
       If map(x,y)=1 Then
        DrawImage tile,x*40,y*40
       EndIf
      Next
    Next
End Function

 
Function movemann () 
    If KeyDown (203) Then 
        If map (mx  / 40 , (my + 20) / 40) Then ; geändert 
            mx = mx - 4 
            If mx =< 0 Then mx = 1 
        EndIf 
     ElseIf KeyDown (205) Then 
        If map ( (mx + 40) / 40 , (my + 20) / 40) = 0 Then 
            mx = mx + 4 
            If mx = 1024 Then mx = 1025 
        EndIf 
     ElseIf KeyDown (200) Then 
        If map ( (mx + 20) / 40 ,my / 40) = 0 Then 
            my = my - 4 
            If my =< 0 Then my = 1 
        EndIf ; eingesetzt 
     ElseIf KeyDown (208) Then 
        If map ( (mx + 20) / 40 , (my + 40) / 40) = 0 Then 
            my = my + 4 
            If my => 768 Then my = 769 
        EndIf 
    EndIf 
End Function; umbenannt

,danke fürs aufräumen Shocked
 

CodeMaster

 BeitragDi, Jun 21, 2005 20:52
Antworten mit Zitat
Benutzer-Profile anzeigen
BlitzBasic: [AUSKLAPPEN] 
Function movemann () 
  If (KeyDown (203)) And (map (mx  / 40 , (my + 20) / 40)) Then
    mx = mx - 4 
    If mx <= 0 Then mx = 1 
  EndIf 
  If (KeyDown (205)) And (map ( (mx + 40) / 40 , (my + 20) / 40) = 0) Then
    mx = mx + 4 
    If mx = 1024 Then mx = 1025 
  EndIf 
  If (KeyDown (200)) And (map ( (mx + 20) / 40 ,my / 40) = 0) Then
    my = my - 4 
    If my <= 0 Then my = 1 
  EndIf
  If (KeyDown (208)) And (map ( (mx + 20) / 40 , (my + 40) / 40) = 0) Then
    my = my + 4 
    If my >= 768 Then my = 769 
  EndIf 
End Function
Dies ist ein Text, der an jeden Beitrag von dir angehängt werden kann. Es besteht eine Limit von 500 Buchstaben.

Zuletzt bearbeitet von CodeMaster am Mo Apr 01, Parse error: syntax error, unexpected ';' in htdocs\viewtopic.php on line 102

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group