Kleines N00b Denkspiel;-)

Übersicht

Sonstiges

Projekte

	5k41 Betreff: Kleines N00b Denkspiel;-)	Di, Nov 02, 2004 20:41 Antworten mit Zitat
Hey Leute, Mir war letztens mal langweilig und da dachte ich Clone ich mal n mini Denkspiel...nu rwartet abba net zuviel is echt schlecht geworden nur n kumpel meinte ich sollte es mal Posten... Ok nu zur sache http://home.arcor.de/weiss-nit/Heavy.rar also in dem Spiel geht es darum das man mit dem Zahlen auf dem Nummernbock die selbigen in ein raster einträgt (jede Zahl nur einmal) man muß so erreichen, das beim zusammenzählen waagerecht wie Senkrecht und Diagonal die selbe Summe raus kommt... hoffe hab mich klar ausgedrückt...sonst fragt bitte nach PS: Hab den Code gleich beigelegt falls es wer umschreiben will So nu Freue ich mich auf eure Mängel 8)
Projekte: For a better World - Gesellschaftsspiel ( 100%) User posted image

5k41

Betreff: Kleines N00b Denkspiel;-)

Di, Nov 02, 2004 20:41
Antworten mit Zitat

Hey Leute,
Mir war letztens mal langweilig und da dachte ich Clone ich mal n mini Denkspiel...nu rwartet abba net zuviel is echt schlecht geworden nur n kumpel meinte ich sollte es mal Posten... Wink

Ok nu zur sache http://home.arcor.de/weiss-nit/Heavy.rar also in dem Spiel geht es darum das man mit dem Zahlen auf dem Nummernbock die selbigen in ein raster einträgt (jede Zahl nur einmal) man muß so erreichen, das beim zusammenzählen waagerecht wie Senkrecht und Diagonal die selbe Summe raus kommt... hoffe hab mich klar ausgedrückt...sonst fragt bitte nach
PS: Hab den Code gleich beigelegt falls es wer umschreiben will Wink

So nu Freue ich mich auf eure Mängel 8)

Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

	Firstdeathmaker	Di, Nov 02, 2004 22:48 Antworten mit Zitat
Ist das dein erstes Projekt?
www.illusion-games.de Space War 3 \| Space Race \| Galaxy on Fire \| Razoon Gewinner des BCC #57 User posted image

Firstdeathmaker

Di, Nov 02, 2004 22:48
Antworten mit Zitat

Ist das dein erstes Projekt?

www.illusion-games.de
Space War 3 | Space Race | Galaxy on Fire | Razoon
Gewinner des BCC #57 User posted image

	Mansoor	Di, Nov 02, 2004 23:00 Antworten mit Zitat
@Jan, man sind deine Klassenkameraden komisch. Was es nicht alles auf der Welt gibt: http://home.arcor.de/weiss-nit/thema.htm ok zurück zu thema Ich find das Spiel ok ^^! Von Spielprinzib her macht das Spaß!
User posted image

Mansoor

Di, Nov 02, 2004 23:00
Antworten mit Zitat

@Jan,

man sind deine Klassenkameraden komisch. Was es nicht alles auf der Welt gibt:
http://home.arcor.de/weiss-nit/thema.htm

ok zurück zu thema

Ich find das Spiel ok ^^! Von Spielprinzib her macht das Spaß!

User posted image

	.:_]TRaSh	Mi, Nov 03, 2004 14:26 Antworten mit Zitat
ja, nicht schlecht für's Erste Leider liegt mein IQ (nein, nicht ICQ ) wohl zu tief um das jetzt innerhalb von 3min zu lösen...
[20:17] IMurDOOM: hm irgendwie is die mitte des viehs kaputt [20:17] TRaSh: ein bisschen [20:18] DarkAngel: es tut mir irgend wie leid

.:_]TRaSh

Mi, Nov 03, 2004 14:26
Antworten mit Zitat

ja, nicht schlecht für's Erste Wink

Leider liegt mein IQ (nein, nicht ICQ Smile

) wohl zu tief um das jetzt innerhalb von 3min zu lösen...

[20:17] IMurDOOM: hm irgendwie is die mitte des viehs kaputt
[20:17] TRaSh: ein bisschen
[20:18] DarkAngel: es tut mir irgend wie leid

	5k41	Mi, Nov 03, 2004 15:10 Antworten mit Zitat
@all Danke erstmal an alle die mir ne rückmeldung gegeben ham... hätte noch wer ne idee wie mans verbessern oder verwenden könnte????Postet doch mal! @Firstdeathmaker nein wie gesagt mir war nur gerade langweilig ist ungefähm ein 10. habe gerade ein größeres projekt am laufen (ist jedoch 78 mb groß...) ich weiss n4p style abba jetzt wird ichs glaub ich auch kleiner kriegen hab nur keine lust alles um zu schreiben vielleicht kommt das noch irgendwann mal... @Mansoor Jop krass ne??? Hätts glaub ich net geglaubt wenn ichs gelesen hätte...sowas kindisches...ok zurück zum Thema @.:_]TRaSh Habs auch erst nach ner halben stunde gelöst...desswegen heists ja auch heavy
Projekte: For a better World - Gesellschaftsspiel ( 100%) User posted image

5k41

Mi, Nov 03, 2004 15:10
Antworten mit Zitat

@all
Danke erstmal an alle die mir ne rückmeldung gegeben ham... hätte noch wer ne idee wie mans verbessern oder verwenden könnte????Postet doch mal!
@Firstdeathmaker
nein wie gesagt mir war nur gerade langweilig ist ungefähm ein 10. habe gerade ein größeres projekt am laufen (ist jedoch 78 mb groß...) Laughing

ich weiss n4p style abba jetzt wird ichs glaub ich auch kleiner kriegen hab nur keine lust alles um zu schreiben vielleicht kommt das noch irgendwann mal...
@Mansoor
Jop krass ne??? Hätts glaub ich net geglaubt wenn ichs gelesen hätte...sowas kindisches...ok zurück zum Thema
@.:_]TRaSh
Habs auch erst nach ner halben stunde gelöst...desswegen heists ja auch heavy Wink

Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

	cavebird	Mi, Nov 03, 2004 15:19 Antworten mit Zitat
Jo was kommt denn raus?
MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

cavebird

Mi, Nov 03, 2004 15:19
Antworten mit Zitat

Jo was kommt denn raus?

MegaUpload.de -- Uploade bis zu 2MB pro Bild !!DEIN PARTNER IN SACHEN UPLOAD --bitte weiterempfehlen, nur so können wir bekannt werden...

	5k41	Mi, Nov 03, 2004 16:48 Antworten mit Zitat
erste reihe:2,7,6 zweite reihe:9,5,1 dritte reihe:4,3,8 wenn noch wer ne andere lösung gefunden hat (wozu bestimmt keiner bock hat) kann er es ja mal posten
Projekte: For a better World - Gesellschaftsspiel ( 100%) User posted image

5k41

Mi, Nov 03, 2004 16:48
Antworten mit Zitat

erste reihe:2,7,6
zweite reihe:9,5,1
dritte reihe:4,3,8
wenn noch wer ne andere lösung gefunden hat (wozu bestimmt keiner bock hat) kann er es ja mal posten Wink

Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

	Ctuchik	Mi, Nov 03, 2004 18:38 Antworten mit Zitat
hab dasselbe wie du nur um 90° gedreht! Da gibts aber sowieso ein System nach dem man das ganz leicht machen kann! Auch für größere Felder! Ich hab mal in der Schule aus langeweile ein 13x13 Feld gemacht mit den Zahlen 1 bis 169, da gab dann jede Reihe in der Summe glaub ich 1168 oder sowas in der Gegend
Zu den Nebenwirkungen gehören trockener Mund, Übelkeit, Erbrechen, Harnstau, schmerzhafter rektaler Juckreiz, Halluzinationen, Demenz, Psychose, Koma, Tod und Mundgeruch! Magie eignet sich nicht für alle! Fraget euren Arzt oder Apotheker!

Ctuchik

Mi, Nov 03, 2004 18:38
Antworten mit Zitat

hab dasselbe wie du nur um 90° gedreht!
Da gibts aber sowieso ein System nach dem man das ganz leicht machen kann! Auch für größere Felder!
Ich hab mal in der Schule aus langeweile ein 13x13 Feld gemacht mit den Zahlen 1 bis 169, da gab dann jede Reihe in der Summe glaub ich 1168 oder sowas in der Gegend Very Happy

Zu den Nebenwirkungen gehören trockener Mund, Übelkeit, Erbrechen, Harnstau, schmerzhafter rektaler Juckreiz, Halluzinationen, Demenz, Psychose, Koma, Tod und Mundgeruch!
Magie eignet sich nicht für alle!
Fraget euren Arzt oder Apotheker!

	5k41	Mi, Nov 03, 2004 20:27 Antworten mit Zitat
loool...naja belasse es glaub ich bei den neun zahlen sonst weiss keiner mehr was sache ist...gibt es einen einfacheren weg zur abfragung der kästchen-summen als den:Code: [AUSKLAPPEN] [EINKLAPPEN] erg(0)=feld(0,0)+feld(0,1)+feld(0,2);oben/unten erste reihe erg(1)=feld(0,0)+feld(1,0)+feld(2,0);rechts/links erste reihe erg(2)=feld(0,0)+feld(1,1)+feld(2,2);diagonal oben links erg(3)=feld(0,2)+feld(1,1)+feld(2,0);diagonal unten rechts erg(4)=feld(1,0)+feld(1,1)+feld(1,2);oben/unten zweite reihe erg(5)=feld(2,0)+feld(2,1)+feld(2,2);oben/unten dritte reihe erg(6)=feld(0,1)+feld(1,1)+feld(2,1);rechts/links zweite reihe erg(7)=feld(0,2)+feld(1,2)+feld(2,2);rechts/links dritte reihe For zu=0 To 7 If erg(zu)>0 Then Text 0,0,"Enter zum Prüfen" If KeyDown(28) Or KeyDown(156) Then If erg(0)=erg(1) Then If erg(1)=erg(2) Then If erg(2)=erg(3) Then If erg(3)=erg(4) Then If erg(4)=erg(5) Then If erg(5)=erg(6) Then If erg(6)=erg(7) Then Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End EndIf EndIf Next
Projekte: For a better World - Gesellschaftsspiel ( 100%) User posted image

5k41

Mi, Nov 03, 2004 20:27
Antworten mit Zitat

loool...naja belasse es glaub ich bei den neun zahlen Laughing

sonst weiss keiner mehr was sache ist...gibt es einen einfacheren weg zur abfragung der kästchen-summen als den:Code: [AUSKLAPPEN]

erg(0)=feld(0,0)+feld(0,1)+feld(0,2);oben/unten erste reihe
erg(1)=feld(0,0)+feld(1,0)+feld(2,0);rechts/links erste reihe
erg(2)=feld(0,0)+feld(1,1)+feld(2,2);diagonal oben links
erg(3)=feld(0,2)+feld(1,1)+feld(2,0);diagonal unten rechts
erg(4)=feld(1,0)+feld(1,1)+feld(1,2);oben/unten zweite reihe
erg(5)=feld(2,0)+feld(2,1)+feld(2,2);oben/unten dritte reihe
erg(6)=feld(0,1)+feld(1,1)+feld(2,1);rechts/links zweite reihe
erg(7)=feld(0,2)+feld(1,2)+feld(2,2);rechts/links dritte reihe

For zu=0 To 7

   If erg(zu)>0 Then


      Text 0,0,"Enter zum Prüfen"

      If KeyDown(28) Or KeyDown(156) Then
         If erg(0)=erg(1) Then
            If erg(1)=erg(2) Then
               If erg(2)=erg(3) Then
                  If erg(3)=erg(4) Then
                     If erg(4)=erg(5) Then
                        If erg(5)=erg(6) Then
                           If erg(6)=erg(7) Then

                                 Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End

                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
                           Else Delay 200:FlushKeys:Cls:Text 50,10,"Gewonnen":Text 45,25,"<------->":Text 20,70,"By:"5k41":Text 30,140,"Press any Key":Flip:WaitKey():End
      EndIf
   EndIf
Next

Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

Zuletzt bearbeitet von 5k41 am So, Jan 14, 2007 18:18, insgesamt 2-mal bearbeitet

	Pfaff	Mi, Nov 03, 2004 20:37 Antworten mit Zitat
1. Tun mir jetzt die Augen weh, weil ich das von Jan gelesen habe 2. Werd ich dein Game vllt ausprobieren

Pfaff

Mi, Nov 03, 2004 20:37
Antworten mit Zitat

1. Tun mir jetzt die Augen weh, weil ich das von Jan gelesen habe Shocked

2. Werd ich dein Game vllt ausprobieren Laughing

	getlose	Mi, Nov 03, 2004 21:19 Antworten mit Zitat
mom, code kurz was zu deinem prob :) edit: hab es nicht getestet, aber so müsste es funzen. Code: [AUSKLAPPEN] [EINKLAPPEN] erg(0)=feld(0,0)+feld(0,1)+feld(0,2);oben/unten erste reihe erg(1)=feld(0,0)+feld(1,0)+feld(2,0);rechts/links erste reihe erg(2)=feld(0,0)+feld(1,1)+feld(2,2);diagonal oben links erg(3)=feld(0,2)+feld(1,1)+feld(2,0);diagonal unten rechts erg(4)=feld(1,0)+feld(1,1)+feld(1,2);oben/unten zweite reihe erg(5)=feld(2,0)+feld(2,1)+feld(2,2);oben/unten dritte reihe erg(6)=feld(0,1)+feld(1,1)+feld(2,1);rechts/links zweite reihe erg(7)=feld(0,2)+feld(1,2)+feld(2,2);rechts/links dritte reihe For zu=0 To 7 If erg(zu)>0 Then Text 0,0,"Enter drücken zum prüfen !" If KeyDown(28) Or KeyDown(156) Then If erg(t)=erg(t+1) Then Delay 200 FlushKeys Cls Text 50,10,"Gewonnen":Text 45,25,"<------->" Text 20,70,"By:Jan Jamaszyk" Text 30,140,"Press any Key" Flip:WaitKey() End EndIf EndIf EndIf Next

getlose

Mi, Nov 03, 2004 21:19
Antworten mit Zitat

mom, code kurz was zu deinem prob :)

edit:

hab es nicht getestet, aber so müsste
es funzen.

Code: [AUSKLAPPEN]

	5k41	Fr, Nov 05, 2004 19:55 Antworten mit Zitat
If erg(t)=erg(t+1) Then t taucht doch vorher garnet auf was issen t dann????? ich meine sonst könnte man ja statt t auch 0 schreiben würde speicher sparen oder net????
Projekte: For a better World - Gesellschaftsspiel ( 100%) User posted image

5k41

Fr, Nov 05, 2004 19:55
Antworten mit Zitat

If erg(t)=erg(t+1) Then

t taucht doch vorher garnet auf was issen t dann????? ich meine sonst könnte man ja statt t auch 0 schreiben würde speicher sparen oder net????

Projekte:
For a better World - Gesellschaftsspiel ( 100%)

User posted image

Übersicht

Sonstiges

Projekte

Nach Oben

BlitzBasic Portal

Kleines N00b Denkspiel;-)

Betreff: Kleines N00b Denkspiel;-)