Slide A Lama

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Benutzeravatar
R4z0r1989
Beiträge: 521
Registriert: 12.06.2005 18:06
Kontaktdaten:
Kontaktdaten von R4z0r1989

Slide A Lama

Beitrag 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
Zuletzt geändert von R4z0r1989 am 14.03.2006 00:50, insgesamt 2-mal geändert.
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

> ich weiß nicht wo ich weiter machen soll!!!

mit sinnvoller strukturierung?

sorry, aber so spaghetticode tut doch in den augen weh!
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag 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.
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Benutzeravatar
R4z0r1989
Beiträge: 521
Registriert: 12.06.2005 18:06
Kontaktdaten:
Kontaktdaten von R4z0r1989

Beitrag 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!!!
Nach oben
Benutzeravatar
jear
Beiträge: 288
Registriert: 17.10.2004 01:59
Wohnort: Ammerland

Beitrag 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]))
Man ist nie zu alt zum lernen, auch wenn man dabei manchmal alt aussieht!
Nach oben
Benutzeravatar
R4z0r1989
Beiträge: 521
Registriert: 12.06.2005 18:06
Kontaktdaten:
Kontaktdaten von R4z0r1989

Beitrag 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!!!!!
Nach oben
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Die DataSection kannste nicht beschreiben. Du kannst höchstens eine Wert
herauslesen und ändern.
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Nach oben
Benutzeravatar
R4z0r1989
Beiträge: 521
Registriert: 12.06.2005 18:06
Kontaktdaten:
Kontaktdaten von R4z0r1989

Beitrag 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)
Nach oben
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag 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.
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Nach oben
Benutzeravatar
R4z0r1989
Beiträge: 521
Registriert: 12.06.2005 18:06
Kontaktdaten:
Kontaktdaten von R4z0r1989

Beitrag 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:
Nach oben
Antworten

Zurück zu „Anfänger“