PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Slide A Lama

https://www.purebasic.fr/german/viewtopic.php?t=7389

Seite 1 von 2

Slide A Lama

Verfasst: 13.03.2006 23:20
von R4z0r1989
hi @ all

Also hab da m mal nen Ansatzt für Slide a Lama wer könnte mir helfen komm nicht weiter also ich weiß nicht wo ich weiter machen soll!!!

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #String_01
  #String_02
  #String_03
  #String_04
  #String_05
  #String_06
  #String_07
  #String_08
  #String_09
  #String_10
  #String_11
  #String_12
  #String_13
  #String_14
  #String_15
  #String_16
  #String_17
  #String_18
  #String_19
  #String_20
  #String_21
  #String_22
  #String_23
  #String_24
  #String_25
  #Button_01
  #Button_02
  #Button_03
  #Button_04
  #Button_05
  #Button_06
  #Button_07
  #Button_08
  #Button_09
  #Button_10
  #Button_11
  #Button_12
  #Button_13
  #Button_14
  #Button_15
EndEnumeration


CatchImage(0,?Leer)
CatchImage(1,?Kirsche)
CatchImage(2,?Birne)
CatchImage(3,?Bannane)
CatchImage(4,?Zwetschge)
CatchImage(5,?Seven)
CatchImage(6,?Bar)
CatchImage(7,?Glocke)

  
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 220, 190,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ImageGadget(#String_01, 040, 040, 020, 020, "")
      ImageGadget(#String_02, 070, 040, 020, 020, "")
      ImageGadget(#String_03, 100, 040, 020, 020, "")
      ImageGadget(#String_04, 130, 040, 020, 020, "")
      ImageGadget(#String_05, 160, 040, 020, 020, "")
      ImageGadget(#String_06, 040, 070, 020, 020, "")
      ImageGadget(#String_07, 070, 070, 020, 020, "")
      ImageGadget(#String_08, 100, 070, 020, 020, "")
      ImageGadget(#String_09, 130, 070, 020, 020, "")
      ImageGadget(#String_10, 160, 070, 020, 020, "")
      ImageGadget(#String_11, 040, 100, 020, 020, "")
      ImageGadget(#String_12, 070, 100, 020, 020, "")
      ImageGadget(#String_13, 100, 100, 020, 020, "")
      ImageGadget(#String_14, 130, 100, 020, 020, "")
      ImageGadget(#String_15, 160, 100, 020, 020, "")
      ImageGadget(#String_16, 040, 130, 020, 020, "")
      ImageGadget(#String_17, 070, 130, 020, 020, "")
      ImageGadget(#String_18, 100, 130, 020, 020, "")
      ImageGadget(#String_19, 130, 130, 020, 020, "")
      ImageGadget(#String_20, 160, 130, 020, 020, "")
      ImageGadget(#String_21, 040, 160, 020, 020, "")
      ImageGadget(#String_22, 070, 160, 020, 020, "")
      ImageGadget(#String_23, 100, 160, 020, 020, "")
      ImageGadget(#String_24, 130, 160, 020, 020, "")
      ImageGadget(#String_25, 160, 160, 020, 020, "")
      ButtonGadget(#Button_01, 010, 160, 020, 020, ">")
      ButtonGadget(#Button_02, 010, 130, 020, 020, ">")
      ButtonGadget(#Button_03, 010, 100, 020, 020, ">")
      ButtonGadget(#Button_04, 010, 070, 020, 020, ">")
      ButtonGadget(#Button_05, 010, 040, 020, 020, ">")
      ButtonGadget(#Button_06, 040, 010, 020, 020, "v")
      ButtonGadget(#Button_07, 070, 010, 020, 020, "v")
      ButtonGadget(#Button_08, 100, 010, 020, 020, "v")
      ButtonGadget(#Button_09, 130, 010, 020, 020, "v")
      ButtonGadget(#Button_10, 160, 010, 020, 020, "v")
      ButtonGadget(#Button_11, 190, 160, 020, 020, "<")
      ButtonGadget(#Button_12, 190, 130, 020, 020, "<")
      ButtonGadget(#Button_13, 190, 100, 020, 020, "<")
      ButtonGadget(#Button_14, 190, 070, 020, 020, "<")
      ButtonGadget(#Button_15, 190, 040, 020, 020, "<")
    EndIf
  EndIf
EndProcedure


Structure X 
  x.l[5] 
EndStructure 

Structure X_Y 
  y.X[5] 
EndStructure 
 
 
*Vox.X_Y = ?Vox

Open_Window_0()


;{
SetGadgetState(#String_01,UseImage(*Vox\y[0]\x[0]))
SetGadgetState(#String_02,UseImage(*Vox\y[0]\x[1]))
SetGadgetState(#String_03,UseImage(*Vox\y[0]\x[2]))
SetGadgetState(#String_04,UseImage(*Vox\y[0]\x[3]))
SetGadgetState(#String_05,UseImage(*Vox\y[0]\x[4]))
SetGadgetState(#String_06,UseImage(*Vox\y[1]\x[0]))
SetGadgetState(#String_07,UseImage(*Vox\y[1]\x[1]))
SetGadgetState(#String_08,UseImage(*Vox\y[1]\x[2]))
SetGadgetState(#String_09,UseImage(*Vox\y[1]\x[3]))
SetGadgetState(#String_10,UseImage(*Vox\y[1]\x[4]))
SetGadgetState(#String_11,UseImage(*Vox\y[2]\x[0]))
SetGadgetState(#String_12,UseImage(*Vox\y[2]\x[1]))
SetGadgetState(#String_13,UseImage(*Vox\y[2]\x[2]))
SetGadgetState(#String_14,UseImage(*Vox\y[2]\x[3]))
SetGadgetState(#String_15,UseImage(*Vox\y[2]\x[4]))
SetGadgetState(#String_16,UseImage(*Vox\y[3]\x[0]))
SetGadgetState(#String_17,UseImage(*Vox\y[3]\x[1]))
SetGadgetState(#String_18,UseImage(*Vox\y[3]\x[2]))
SetGadgetState(#String_19,UseImage(*Vox\y[3]\x[3]))
SetGadgetState(#String_20,UseImage(*Vox\y[3]\x[4]))
SetGadgetState(#String_21,UseImage(*Vox\y[4]\x[0]))
SetGadgetState(#String_22,UseImage(*Vox\y[4]\x[1]))
SetGadgetState(#String_23,UseImage(*Vox\y[4]\x[2]))
SetGadgetState(#String_24,UseImage(*Vox\y[4]\x[3]))
SetGadgetState(#String_25,UseImage(*Vox\y[4]\x[4]))
;}


Repeat

Event = WaitWindowEvent() 
  If Event = #PB_EventCloseWindow 
    Quit = 1 
  ElseIf Event = #PB_Event_Gadget Or Event = #PB_Event_Menu 
    
    Select EventGadgetID()
    
;      Case #Gadget_4
      

    EndSelect 
  EndIf 
  
Until Quit

DataSection 
  Vox:
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
EndDataSection

DataSection
  Kirsche:
  IncludeBinary "gfx\Kirsche.bmp"
  Birne:
  IncludeBinary "gfx\Birne.bmp"
  Bannane:
  IncludeBinary "gfx\Bannane.bmp"
  Zwetschge:
  IncludeBinary "gfx\Zwetschge.bmp"
  Seven:
  IncludeBinary "gfx\Seven.bmp"
  Bar:
  IncludeBinary "gfx\Bar.bmp"
  Leer:
  IncludeBinary "gfx\Leer.bmp"
  Glocke:
  IncludeBinary "gfx\Glocke.bmp"
EndDataSection

Verfasst: 13.03.2006 23:45
von Kaeru Gaman
> ich weiß nicht wo ich weiter machen soll!!!

mit sinnvoller strukturierung?

sorry, aber so spaghetticode tut doch in den augen weh!

Verfasst: 13.03.2006 23:50
von ts-soft
Wie wäre es, den Code so zu kürzen, das man das Problem erkennen kann,
ohne lauter Wiederholungen zu lesen.
Programmiertechnisch sehe ich es so wie Kaeru schon gesagt hat.
Programmieren dient der einfachen und schnellen Datenverarbeitung, Deine
sich wiederholende Tipperei hat damit nichts gemein.

Verfasst: 14.03.2006 00:12
von R4z0r1989
so hab ihn mal übersichtlicher gemacht also:
-ein Fehler ist nicht drin!!
-wie kann ich das mit dem verschieben und wenn ein Feld leer ist ersetzen realisieren!
-ihr meint mit dem dateverarbeitung und so die ganzen if ... abfragen die man dann mit for next kürzen soll oder???
-weiß aber nicht ich ich das wegen den imageID in ne for next schleife machen soll ich bitte um beispiele!!

danke für jede hilfe!!!

Verfasst: 14.03.2006 00:30
von jear

Code: Alles auswählen

If *Vox\y[4]\x[2] = 0 
  SetGadgetState(#String_23,UseImage(0)) 
ElseIf *Vox\y[4]\x[2] = 1 
  SetGadgetState(#String_23,UseImage(1)) 
ElseIf *Vox\y[4]\x[2] = 2 
  SetGadgetState(#String_23,UseImage(2)) 
ElseIf *Vox\y[4]\x[2] = 3 
  SetGadgetState(#String_23,UseImage(3)) 
ElseIf *Vox\y[4]\x[2] = 4 
  SetGadgetState(#String_23,UseImage(4)) 
ElseIf *Vox\y[4]\x[2] = 5 
  SetGadgetState(#String_23,UseImage(5)) 
ElseIf *Vox\y[4]\x[2] = 6 
  SetGadgetState(#String_23,UseImage(6)) 
ElseIf *Vox\y[4]\x[2] = 7 
  SetGadgetState(#String_23,UseImage(7)) 
EndIf 

; so geht das doch auch?
img = *Vox\y[4]\x[2]
SetGadgetState(#String_23,UseImage(img)) 

; oder so?
SetGadgetState(#String_23,UseImage(*Vox\y[4]\x[2]))

Verfasst: 14.03.2006 00:55
von R4z0r1989
gut also wenn jemand noch ein Problem mit dem aussehen vom code hat bitte auch schreiben aber am wichtigstens wär es mir wenn mir jetzt bitte jemand sagen könnte wie ich das jetzt da funktion da rein bring und wie ich jetzt beim Programmstart also in der Datasection stat die zahlen 0 ein Random(7) reinbringen kann!!!!!

Verfasst: 14.03.2006 01:16
von ts-soft
Die DataSection kannste nicht beschreiben. Du kannst höchstens eine Wert
herauslesen und ändern.

Verfasst: 14.03.2006 02:55
von R4z0r1989
So habs mal lauffähig gemacht allerdings ist jetzt das Problem wie kriege ich es hin dass er jetzt wenn wo ein leeres Feld ist das es dann runter fällt bezingusweise dass es dann das Feld überschiebt

Code: Alles auswählen

Enumeration
  #Window_0
EndEnumeration

Enumeration
  #String_01
  #String_02
  #String_03
  #String_04
  #String_05
  #String_06
  #String_07
  #String_08
  #String_09
  #String_10
  #String_11
  #String_12
  #String_13
  #String_14
  #String_15
  #String_16
  #String_17
  #String_18
  #String_19
  #String_20
  #String_21
  #String_22
  #String_23
  #String_24
  #String_25
  #Button_01
  #Button_02
  #Button_03
  #Button_04
  #Button_05
  #Button_06
  #Button_07
  #Button_08
  #Button_09
  #Button_10
  #Button_11
  #Button_12
  #Button_13
  #Button_14
  #Button_15
  #NextBild
  #NeuesSpiel
EndEnumeration


CatchImage(0,?Leer)
CatchImage(1,?Kirsche)
CatchImage(2,?Birne)
CatchImage(3,?Bannane)
CatchImage(4,?Zwetschge)
CatchImage(5,?Seven)
CatchImage(6,?Bar)
CatchImage(7,?Glocke)

  
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 220, 250,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ImageGadget(#String_01  , 040, 040, 020, 020, "")
      ImageGadget(#String_02  , 070, 040, 020, 020, "")
      ImageGadget(#String_03  , 100, 040, 020, 020, "")
      ImageGadget(#String_04  , 130, 040, 020, 020, "")
      ImageGadget(#String_05  , 160, 040, 020, 020, "")
      ImageGadget(#String_06  , 040, 070, 020, 020, "")
      ImageGadget(#String_07  , 070, 070, 020, 020, "")
      ImageGadget(#String_08  , 100, 070, 020, 020, "")
      ImageGadget(#String_09  , 130, 070, 020, 020, "")
      ImageGadget(#String_10  , 160, 070, 020, 020, "")
      ImageGadget(#String_11  , 040, 100, 020, 020, "")
      ImageGadget(#String_12  , 070, 100, 020, 020, "")
      ImageGadget(#String_13  , 100, 100, 020, 020, "")
      ImageGadget(#String_14  , 130, 100, 020, 020, "")
      ImageGadget(#String_15  , 160, 100, 020, 020, "")
      ImageGadget(#String_16  , 040, 130, 020, 020, "")
      ImageGadget(#String_17  , 070, 130, 020, 020, "")
      ImageGadget(#String_18  , 100, 130, 020, 020, "")
      ImageGadget(#String_19  , 130, 130, 020, 020, "")
      ImageGadget(#String_20  , 160, 130, 020, 020, "")
      ImageGadget(#String_21  , 040, 160, 020, 020, "")
      ImageGadget(#String_22  , 070, 160, 020, 020, "")
      ImageGadget(#String_23  , 100, 160, 020, 020, "")
      ImageGadget(#String_24  , 130, 160, 020, 020, "")
      ImageGadget(#String_25  , 160, 160, 020, 020, "")
      ButtonGadget(#Button_01 , 010, 160, 020, 020, ">")
      ButtonGadget(#Button_02 , 010, 130, 020, 020, ">")
      ButtonGadget(#Button_03 , 010, 100, 020, 020, ">")
      ButtonGadget(#Button_04 , 010, 070, 020, 020, ">")
      ButtonGadget(#Button_05 , 010, 040, 020, 020, ">")
      ButtonGadget(#Button_06 , 040, 010, 020, 020, "v")
      ButtonGadget(#Button_07 , 070, 010, 020, 020, "v")
      ButtonGadget(#Button_08 , 100, 010, 020, 020, "v")
      ButtonGadget(#Button_09 , 130, 010, 020, 020, "v")
      ButtonGadget(#Button_10 , 160, 010, 020, 020, "v")
      ButtonGadget(#Button_11 , 190, 160, 020, 020, "<")
      ButtonGadget(#Button_12 , 190, 130, 020, 020, "<")
      ButtonGadget(#Button_13 , 190, 100, 020, 020, "<")
      ButtonGadget(#Button_14 , 190, 070, 020, 020, "<")
      ButtonGadget(#Button_15 , 190, 040, 020, 020, "<")
      ImageGadget(#NextBild   , 010, 010, 020, 020, "")
      ButtonGadget(#NeuesSpiel, 010, 190, 200, 020, "Neues Spiel")
      TextGadget(100,10,220,200,20,"")
    EndIf
  EndIf
EndProcedure


Structure X 
  x.l[5] 
EndStructure 

Structure X_Y 
  y.X[5] 
EndStructure 
 
 
*Vox.X_Y = ?Vox

Open_Window_0()

;{
DisableGadget(#Button_01,1)
DisableGadget(#Button_02,1)
DisableGadget(#Button_03,1)
DisableGadget(#Button_04,1)
DisableGadget(#Button_05,1)
DisableGadget(#Button_06,1)
DisableGadget(#Button_07,1)
DisableGadget(#Button_08,1)
DisableGadget(#Button_09,1)
DisableGadget(#Button_10,1)
DisableGadget(#Button_11,1)
DisableGadget(#Button_12,1)
DisableGadget(#Button_13,1)
DisableGadget(#Button_14,1)
DisableGadget(#Button_15,1)
;}

Repeat

;{
SetGadgetState(#String_01,UseImage(*Vox\y[0]\x[0]))
SetGadgetState(#String_02,UseImage(*Vox\y[0]\x[1]))
SetGadgetState(#String_03,UseImage(*Vox\y[0]\x[2]))
SetGadgetState(#String_04,UseImage(*Vox\y[0]\x[3]))
SetGadgetState(#String_05,UseImage(*Vox\y[0]\x[4]))
SetGadgetState(#String_06,UseImage(*Vox\y[1]\x[0]))
SetGadgetState(#String_07,UseImage(*Vox\y[1]\x[1]))
SetGadgetState(#String_08,UseImage(*Vox\y[1]\x[2]))
SetGadgetState(#String_09,UseImage(*Vox\y[1]\x[3]))
SetGadgetState(#String_10,UseImage(*Vox\y[1]\x[4]))
SetGadgetState(#String_11,UseImage(*Vox\y[2]\x[0]))
SetGadgetState(#String_12,UseImage(*Vox\y[2]\x[1]))
SetGadgetState(#String_13,UseImage(*Vox\y[2]\x[2]))
SetGadgetState(#String_14,UseImage(*Vox\y[2]\x[3]))
SetGadgetState(#String_15,UseImage(*Vox\y[2]\x[4]))
SetGadgetState(#String_16,UseImage(*Vox\y[3]\x[0]))
SetGadgetState(#String_17,UseImage(*Vox\y[3]\x[1]))
SetGadgetState(#String_18,UseImage(*Vox\y[3]\x[2]))
SetGadgetState(#String_19,UseImage(*Vox\y[3]\x[3]))
SetGadgetState(#String_20,UseImage(*Vox\y[3]\x[4]))
SetGadgetState(#String_21,UseImage(*Vox\y[4]\x[0]))
SetGadgetState(#String_22,UseImage(*Vox\y[4]\x[1]))
SetGadgetState(#String_23,UseImage(*Vox\y[4]\x[2]))
SetGadgetState(#String_24,UseImage(*Vox\y[4]\x[3]))
SetGadgetState(#String_25,UseImage(*Vox\y[4]\x[4]))
;}

For i = 0 To 4
  For j = 0 To 2
    For z = 1 To 7
      If *Vox\y[i+0]\x[j+0] = z And *Vox\y[i+0]\x[j+1] = z And *Vox\y[i+0]\x[j+2] = z
        *Vox\y[i+0]\x[j+0] = 0
        *Vox\y[i+0]\x[j+1] = 0
        *Vox\y[i+0]\x[j+2] = 0
        If z = 1
        points+70
        ElseIf z = 2
        points+40
        ElseIf z = 3
        points+20
        ElseIf z = 4
        points+30
        ElseIf z = 5
        points+150
        ElseIf z = 6
        points+100
        ElseIf z = 7
        points+10
        EndIf
        SetGadgetText(100,Str(points))
      EndIf
    Next z  
  Next j
Next i
For i = 0 To 2
  For j = 0 To 4
    For z = 1 To 7
      If *Vox\y[i+0]\x[j+0] = z And *Vox\y[i+1]\x[j+0] = z And *Vox\y[i+2]\x[j+0] = z
        *Vox\y[i+0]\x[j+0] = 0
        *Vox\y[i+1]\x[j+0] = 0
        *Vox\y[i+2]\x[j+0] = 0
        If z = 1
        points+70
        ElseIf z = 2
        points+40
        ElseIf z = 3
        points+20
        ElseIf z = 4
        points+30
        ElseIf z = 5
        points+150
        ElseIf z = 6
        points+100
        ElseIf z = 7
        points+10
        EndIf
        SetGadgetText(100,Str(points))
      EndIf
    Next z  
  Next j
Next i

Event = WaitWindowEvent() 
  If Event = #PB_EventCloseWindow 
    Quit = 1 
  ElseIf Event = #PB_Event_Gadget Or Event = #PB_Event_Menu 
    
    Select EventGadgetID()
    
      Case #NeuesSpiel
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
        GehtNicht:
        For i = 0 To 4
          For j =0 To 4
            *Vox\y[i]\x[j] = Random(6)+1
          Next j
        Next i
        For i = 0 To 4
          For j = 0 To 2
            For z = 1 To 7
              If *Vox\y[i+0]\x[j+0] = z And *Vox\y[i+0]\x[j+1] = z And *Vox\y[i+0]\x[j+2] = z
                Goto gehtNicht
              EndIf
            Next z  
          Next j
        Next i
        For i = 0 To 2
          For j = 0 To 4
            For z = 1 To 7
              If *Vox\y[i+0]\x[j+0] = z And *Vox\y[i+1]\x[j+0] = z And *Vox\y[i+2]\x[j+0] = z
                Goto gehtNicht
              EndIf
            Next z  
          Next j
        Next i
        
        points = 0
        SetGadgetText(100,Str(points))
        
        ;{
        DisableGadget(#Button_01,0)
        DisableGadget(#Button_02,0)
        DisableGadget(#Button_03,0)
        DisableGadget(#Button_04,0)
        DisableGadget(#Button_05,0)
        DisableGadget(#Button_06,0)
        DisableGadget(#Button_07,0)
        DisableGadget(#Button_08,0)
        DisableGadget(#Button_09,0)
        DisableGadget(#Button_10,0)
        DisableGadget(#Button_11,0)
        DisableGadget(#Button_12,0)
        DisableGadget(#Button_13,0)
        DisableGadget(#Button_14,0)
        DisableGadget(#Button_15,0)
        ;}
      
      Case #Button_05
        *Vox\y[0]\x[4] = *Vox\y[0]\x[3]
        *Vox\y[0]\x[3] = *Vox\y[0]\x[2]
        *Vox\y[0]\x[2] = *Vox\y[0]\x[1]
        *Vox\y[0]\x[1] = *Vox\y[0]\x[0]
        *Vox\y[0]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
      
      Case #Button_04
        *Vox\y[1]\x[4] = *Vox\y[1]\x[3]
        *Vox\y[1]\x[3] = *Vox\y[1]\x[2]
        *Vox\y[1]\x[2] = *Vox\y[1]\x[1]
        *Vox\y[1]\x[1] = *Vox\y[1]\x[0]
        *Vox\y[1]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_03
        *Vox\y[2]\x[4] = *Vox\y[2]\x[3]
        *Vox\y[2]\x[3] = *Vox\y[2]\x[2]
        *Vox\y[2]\x[2] = *Vox\y[2]\x[1]
        *Vox\y[2]\x[1] = *Vox\y[2]\x[0]
        *Vox\y[2]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_02
        *Vox\y[3]\x[4] = *Vox\y[3]\x[3]
        *Vox\y[3]\x[3] = *Vox\y[3]\x[2]
        *Vox\y[3]\x[2] = *Vox\y[3]\x[1]
        *Vox\y[3]\x[1] = *Vox\y[3]\x[0]
        *Vox\y[3]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_01
        *Vox\y[4]\x[4] = *Vox\y[4]\x[3]
        *Vox\y[4]\x[3] = *Vox\y[4]\x[2]
        *Vox\y[4]\x[2] = *Vox\y[4]\x[1]
        *Vox\y[4]\x[1] = *Vox\y[4]\x[0]
        *Vox\y[4]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_15
        *Vox\y[0]\x[0] = *Vox\y[0]\x[1]
        *Vox\y[0]\x[1] = *Vox\y[0]\x[2]
        *Vox\y[0]\x[2] = *Vox\y[0]\x[3]
        *Vox\y[0]\x[3] = *Vox\y[0]\x[4]
        *Vox\y[0]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_14
        *Vox\y[1]\x[0] = *Vox\y[1]\x[1]
        *Vox\y[1]\x[1] = *Vox\y[1]\x[2]
        *Vox\y[1]\x[2] = *Vox\y[1]\x[3]
        *Vox\y[1]\x[3] = *Vox\y[1]\x[4]
        *Vox\y[1]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_13
        *Vox\y[2]\x[0] = *Vox\y[2]\x[1]
        *Vox\y[2]\x[1] = *Vox\y[2]\x[2]
        *Vox\y[2]\x[2] = *Vox\y[2]\x[3]
        *Vox\y[2]\x[3] = *Vox\y[2]\x[4]
        *Vox\y[2]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_12
        *Vox\y[3]\x[0] = *Vox\y[3]\x[1]
        *Vox\y[3]\x[1] = *Vox\y[3]\x[2]
        *Vox\y[3]\x[2] = *Vox\y[3]\x[3]
        *Vox\y[3]\x[3] = *Vox\y[3]\x[4]
        *Vox\y[3]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_11
        *Vox\y[4]\x[0] = *Vox\y[4]\x[1]
        *Vox\y[4]\x[1] = *Vox\y[4]\x[2]
        *Vox\y[4]\x[2] = *Vox\y[4]\x[3]
        *Vox\y[4]\x[3] = *Vox\y[4]\x[4]
        *Vox\y[4]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_10
        *Vox\y[4]\x[4] = *Vox\y[3]\x[4]
        *Vox\y[3]\x[4] = *Vox\y[2]\x[4]
        *Vox\y[2]\x[4] = *Vox\y[1]\x[4]
        *Vox\y[1]\x[4] = *Vox\y[0]\x[4]
        *Vox\y[0]\x[4] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_09
        *Vox\y[4]\x[3] = *Vox\y[3]\x[3]
        *Vox\y[3]\x[3] = *Vox\y[2]\x[3]
        *Vox\y[2]\x[3] = *Vox\y[1]\x[3]
        *Vox\y[1]\x[3] = *Vox\y[0]\x[3]
        *Vox\y[0]\x[3] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_08
        *Vox\y[4]\x[2] = *Vox\y[3]\x[2]
        *Vox\y[3]\x[2] = *Vox\y[2]\x[2]
        *Vox\y[2]\x[2] = *Vox\y[1]\x[2]
        *Vox\y[1]\x[2] = *Vox\y[0]\x[2]
        *Vox\y[0]\x[2] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_07
        *Vox\y[4]\x[1] = *Vox\y[3]\x[1]
        *Vox\y[3]\x[1] = *Vox\y[2]\x[1]
        *Vox\y[2]\x[1] = *Vox\y[1]\x[1]
        *Vox\y[1]\x[1] = *Vox\y[0]\x[1]
        *Vox\y[0]\x[1] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))
        
      Case #Button_06
        *Vox\y[4]\x[0] = *Vox\y[3]\x[0]
        *Vox\y[3]\x[0] = *Vox\y[2]\x[0]
        *Vox\y[2]\x[0] = *Vox\y[1]\x[0]
        *Vox\y[1]\x[0] = *Vox\y[0]\x[0]
        *Vox\y[0]\x[0] = VB
        VB = Random(6)+1
        SetGadgetState(#NextBild,UseImage(VB))

    EndSelect 
  EndIf 
  
Until Quit

DataSection 
  Vox:
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
  Data.l 0, 0, 0, 0, 0
EndDataSection

DataSection
  Kirsche:
  IncludeBinary "gfx\Kirsche.bmp"
  Birne:
  IncludeBinary "gfx\Birne.bmp"
  Bannane:
  IncludeBinary "gfx\Bannane.bmp"
  Zwetschge:
  IncludeBinary "gfx\Zwetschge.bmp"
  Seven:
  IncludeBinary "gfx\Seven.bmp"
  Bar:
  IncludeBinary "gfx\Bar.bmp"
  Leer:
  IncludeBinary "gfx\Leer.bmp"
  Glocke:
  IncludeBinary "gfx\Glocke.bmp"
EndDataSection
/edit hab mal noch a bissl weitergemacht und geh jetzt schlafen (gn8)

Verfasst: 14.03.2006 13:09
von Kaeru Gaman
ich würde dir eine grundsätzlich andere herangehensweise empfehlen.

lege z.b. die steine besser in einem Array ab.
das erleichtert alles: zeichnen, abfrage, verschieben...

deine gadgets kannst du in einer schleife erzeugen:

Code: Alles auswählen

For t=0 to 4
   For n=0 to 4
      ImageGadget( 5*t+n  , 40+30*n, 40+30*t, 020, 020, "") 
   Next
Next
außerdem ist es die frage, ob eine gadget-lösung für so ein game praktikabel ist,
ob du nicht besser fährst, wenn du einen windowed screen verwendest.

welche lösung auch immer: die verwendung eines arrays rate ich dir dringend an.

Verfasst: 14.03.2006 20:08
von R4z0r1989
ich dachte das sind Arrys ich brauch dringend mal nen Array beispiel!!!!

weiß anscheinend immer noch nicht was ein array ist :freak: :freak:
Alle Zeiten sind UTC+02:00
Seite 1 von 2

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de