Hütchenspiel

Übersicht BlitzBasic Codearchiv

Neue Antwort erstellen

Smily

Betreff: Hütchenspiel

 BeitragSo, Apr 29, 2007 12:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Ist mal wieder eine kleine Spielerei für nebenbei ^^

Code: [AUSKLAPPEN]
Graphics 800,600,16,2
Setbuffer Backbuffer()

Hutcount = 4

Dim tausch(1)

SeedRnd MilliSecs()
erbse = Rand(0,hutcount)
tausch(0) = Rand(0,Hutcount)
tausch(1) = Rand(0,Hutcount)
startx  = 400 - hutcount*50
starty = 300
;ri = 90
timer = CreateTimer(60)
Mode = 3
level = 3

Repeat
   If s = level
      level = level + 1
      s = 0
      mode = 1
   End if

   If mode=0
      ri = ri + level
   
      If ri => 180
         If tausch(0) = erbse
            erbse = tausch(1)
         ElseIf tausch(1) = erbse
            erbse = tausch(0)
         End If
         
         ri = 0
         s = s + 1
         Repeat
            tausch(0) = Rand(0,Hutcount)
            tausch(1) = Rand(0,Hutcount)
         Until tausch(0) <> tausch(1)
      End If   
   End if

   Cls

   Select mode
   Case 0
      Color 255,255,255
      For x = 0 To hutcount
         If Not (tausch(0) = x) or (tausch(1) = x)
            oval2 startx+ x*100,starty,80,80
         End if
      next
      m = ((startx+tausch(0)*100) + (startx+tausch(1)*100))/2
      dif = ((startx+tausch(0)*100) - (startx+tausch(1)*100))/2
      oval2 m+cos(ri)*dif,starty-sin(ri)*dif,80,80
      oval2 m-cos(ri)*dif,starty+sin(ri)*dif,80,80
   Case 1
      Text 400,100, "Wo ist die Erbse?" , 1,1
      For x = 0 To hutcount
         If RectsOverlap(startx-40+x*100,starty-40,80,80,mousex(),mousey(),1,1)
            Color 100,200,200
            If MouseHit(1) mode = 2: guess = x
         Else
            Color 255,255,255
         End if
         oval2 startx+ x*100,starty,80,80
      Next
   Case 2
      For x = 0 To hutcount
         If guess=x
            Color 100,200,200
;            If MouseHit(1) mode = 2: guess = x
         Else
            Color 255,255,255
         End If
         oval2 startx+ x*100,starty,80,80, 0
      Next
      Color 0,255,0   
      oval2 startx+erbse*100,starty,20,20,1
      If Guess = erbse
         Text 400,100, "Richtig", 1, 1
         If MouseHit(1) mode = 3: erbse = Rand(0,Hutcount)
      Else
         Text 400,100, "Falsch", 1, 1
         If MouseHit(1) End
      End If
   Case 3
      Text 400,100, "Nächstes Level...", 1, 1
      Color 255,255,255
      For x = 0 To hutcount
         oval2 startx+ x*100,starty,80,80, 0
      Next
      Color 0,255,0   
      oval2 startx+erbse*100,starty,20,20,1
      If MouseHit(1) mode = 0
   End Select
   
;   Text 0,0,level
;
   WaitTimer(timer)
   Flip
Until KeyHit(1)

Function oval2(x,y,sx,sy,f=1)
   Oval x-sx/2,y-sy/2,sx,sy,f
End function
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org
  • Zuletzt bearbeitet von Smily am So, Apr 29, 2007 16:55, insgesamt einmal bearbeitet

SpionAtom

 BeitragSo, Apr 29, 2007 13:35
Antworten mit Zitat
Benutzer-Profile anzeigen
Nett. Flimmert nur etwas. Du könntest aus den Ovalen Images machen, damits flotter läuft.
os: Windows 10 Home cpu: Intel Core i7 6700K 4.00Ghz gpu: NVIDIA GeForce GTX 1080

skey-z

 BeitragSo, Apr 29, 2007 13:57
Antworten mit Zitat
Benutzer-Profile anzeigen
gefällt mir auch, besonders der steigende schwierigkeitsgrad

@spion, damit es nicht mehr flimmert, einfach nach graphics den Backbuffer() setzen
Awards:
Coffee's Monatswettbewerb Feb. 08: 1. Platz
BAC#57: 2. Platz
Twitter

Smily

 BeitragSo, Apr 29, 2007 16:54
Antworten mit Zitat
Benutzer-Profile anzeigen
Da ich mit b+ arbeite, vergess ich den Backbuffer immer Sad
sry
Lesestoff:
gegen Softwarepatente | Netzzensur | brain.exe | Unabhängigkeitserklärung des Internets

"Wir müssen die Rechte der Andersdenkenden selbst dann beachten, wenn sie Idioten oder schädlich sind. Wir müssen aufpassen. Wachsamkeit ist der Preis der Freiheit --- Keine Zensur!"
stummi.org
 

BlackTermi

 BeitragSo, Apr 29, 2007 17:12
Antworten mit Zitat
Benutzer-Profile anzeigen
Hier für die Leute, die wissen wollen wie gut sie waren (so wie mich) hier nochmal mit Lvl-Anzeige.

Code: [AUSKLAPPEN]
Graphics 800,600,16,2
SetBuffer BackBuffer()

Hutcount = 4

Dim tausch(1)

SeedRnd MilliSecs()
erbse = Rand(0,hutcount)
tausch(0) = Rand(0,Hutcount)
tausch(1) = Rand(0,Hutcount)
startx  = 400 - hutcount*50
starty = 300
;ri = 90
timer = CreateTimer(60)
Mode = 3
level = 3

Repeat
   If s = level
      level = level + 1
      levelb = level - 3
      s = 0
      mode = 1
   End If

   If mode=0
      ri = ri + level
   
      If ri => 180
         If tausch(0) = erbse
            erbse = tausch(1)
         ElseIf tausch(1) = erbse
            erbse = tausch(0)
         End If
         
         ri = 0
         s = s + 1
         Repeat
            tausch(0) = Rand(0,Hutcount)
            tausch(1) = Rand(0,Hutcount)
         Until tausch(0) <> tausch(1)
      End If   
   End If

   Cls

   Select mode
   Case 0
      Color 255,255,255
      For x = 0 To hutcount
         If Not (tausch(0) = x) Or (tausch(1) = x)
            oval2 startx+ x*100,starty,80,80
         End If
      Next
      m = ((startx+tausch(0)*100) + (startx+tausch(1)*100))/2
      dif = ((startx+tausch(0)*100) - (startx+tausch(1)*100))/2
      oval2 m+Cos(ri)*dif,starty-Sin(ri)*dif,80,80
      oval2 m-Cos(ri)*dif,starty+Sin(ri)*dif,80,80
   Case 1
      Text 400,100, "Wo ist die Erbse?" , 1,1
      For x = 0 To hutcount
         If RectsOverlap(startx-40+x*100,starty-40,80,80,MouseX(),MouseY(),1,1)
            Color 100,200,200
            If MouseHit(1) mode = 2: guess = x
         Else
            Color 255,255,255
         End If
         oval2 startx+ x*100,starty,80,80
      Next
   Case 2
      For x = 0 To hutcount
         If guess=x
            Color 100,200,200

         Else
            Color 255,255,255
         End If
         oval2 startx+ x*100,starty,80,80, 0
      Next
      Color 0,255,0   
      oval2 startx+erbse*100,starty,20,20,1
      If Guess = erbse
         Text 400,100, "Richtig", 1, 1
         If MouseHit(1) mode = 3: erbse = Rand(0,Hutcount)
      Else
         Text 400,100, "Falsch", 1, 1
       Levelc = Levelb - 1
         Text 400,115, "Geschaffte Level: "+Levelc, 1, 1
         If MouseHit(1) End
      End If
   Case 3
   
     If levelb = 0
        Text 400,100, "Linksklick zum Start", 1, 1
     Else
         Text 400,100, "Level "+levelb+" geschafft - Nächstes Level...", 1, 1
     EndIf
   
      Color 255,255,255
      For x = 0 To hutcount
         oval2 startx+ x*100,starty,80,80, 0
      Next
      Color 0,255,0   
      oval2 startx+erbse*100,starty,20,20,1
      If MouseHit(1) mode = 0
   End Select
   

   WaitTimer(timer)
   Flip
Until KeyHit(1)

Function oval2(x,y,sx,sy,f=1)
   Oval x-sx/2,y-sy/2,sx,sy,f
End Function

Tankbuster

 BeitragSo, Apr 29, 2007 17:19
Antworten mit Zitat
Benutzer-Profile anzeigen
Boah! Das hätte ich nie allein geschafft!^^ Rolling Eyes
Twitter
Download Jewel Snake!
Windows|Android
 

BlackTermi

 BeitragSo, Apr 29, 2007 17:25
Antworten mit Zitat
Benutzer-Profile anzeigen
Siehst du, extra für Leute wie dich hab ich das gemacht. Cool

FireballFlame

 BeitragMo, Apr 30, 2007 14:10
Antworten mit Zitat
Benutzer-Profile anzeigen
Nettes Spiel, ich bin bis Level 19 gekommen Very Happy
PC: Intel Core i7 @ 4x2.93GHz | 6 GB RAM | Nvidia GeForce GT 440 | Desktop 2x1280x1024px | Windows 7 Professional 64bit
Laptop: Intel Core i7 @ 4x2.00GHz | 8 GB RAM | Nvidia GeForce GT 540M | Desktop 1366x768px | Windows 7 Home Premium 64bit
 

BlackTermi

 BeitragMo, Apr 30, 2007 15:38
Antworten mit Zitat
Benutzer-Profile anzeigen
WAS? Wie das denn? Bei Lvl. 16/17 ist er bei mir so schnell das ichs nicht mehr richtig erkennen kann... Dann heissts raten und bei ner Chance von 1/4 ist es relativ unwahrscheinlich das ich soweit komme...

FireballFlame

 BeitragMo, Apr 30, 2007 18:43
Antworten mit Zitat
Benutzer-Profile anzeigen
Die Wahrscheinlichkeit ist 1/5 bei den Standardeinstellungen ^^
PC: Intel Core i7 @ 4x2.93GHz | 6 GB RAM | Nvidia GeForce GT 440 | Desktop 2x1280x1024px | Windows 7 Professional 64bit
Laptop: Intel Core i7 @ 4x2.00GHz | 8 GB RAM | Nvidia GeForce GT 540M | Desktop 1366x768px | Windows 7 Home Premium 64bit
 

gigi

Betreff: willst du bei meinem Contest mitmachen?

 BeitragDi, Mai 01, 2007 0:38
Antworten mit Zitat
Benutzer-Profile anzeigen
Du solltest mal bei meinem Contest mitmachen.Den Spiel macht echt Spaß aber es ist so sinnlos wie meins.Daumen hoch^^
Anfänger Tut von mir:
http://www.blitzforum.de/forum...hp?t=26185

mabox

Betreff: Hey cooool

 BeitragMi, Mai 23, 2007 6:46
Antworten mit Zitat
Benutzer-Profile anzeigen
Das Game ist echt geil! Ich komm zwear nur bis Level 10 aber macht trotzdem voll spaß. Man könnte das Spiel auch noch ausbauen, mit schönen Hütchenbildern und einem Ball drunter statt der grünen Erbse.
Fujitsu-Siemens Laptop, 2Ghz Intel Core2Duo Prozessor, 2GB Ram, 120GB Festplatte, ATI Mobility Radeon X1400, Windows Vista Ultimate
www.mausoft.de.tl
Dönerfresser Homepage

Neue Antwort erstellen


Übersicht BlitzBasic Codearchiv

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group