Új hozzászólás Aktív témák

• #13 Jester01 veterán focker #12

  Új Válasz 2006-06-09 14:36:35 #13

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Jester01

  veterán

  válasz focker #12 üzenetére

  Ha megnézed a kódot láthatod, hogy az összehasonlítás a $jatekos értékével történik.
  A kirajzolás az ellenőrzés szempontjából mindegy, az a lényeg, hogy a $jatekos jó legyen. Praktikusan a rajzolás után, de a $jatekos átbillentése elé kell berakni.

• #10 Jester01 veterán focker #9

  Új Válasz 2006-06-08 23:17:35 #10

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Jester01

  veterán

  válasz focker #9 üzenetére

  Pl. valahogy így:
  
  foreach { dx dy } { 1 0 1 1 0 1 -1 1 } {
  set c 0
  set cx $kordx
  set cy $kordy
  while { $cx + $dx < $meret && $cy + $dy < $meret } {
  set cx [ expr $cx + $dx ]
  set cy [ expr $cy + $dy ]
  if { [lindex [ array get tabla ''$cx;$cy'' ] 1] != $jatekos } { break }
  incr c
  }
  set cx $kordx
  set cy $kordy
  while { $cx - $dx >= 0 && $cy - $dy >= 0 } {
  set cx [ expr $cx - $dx ]
  set cy [ expr $cy - $dy ]
  if { [lindex [ array get tabla ''$cx;$cy'' ] 1] != $jatekos } { break }
  incr c
  }
  if { $c > 3 } { tk_messageBox -message ''A $jatekos jatekos nyert.'' }
  }
  

• #7 Jester01 veterán focker #6

  Új Válasz 2006-06-08 21:28:01 #7

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Jester01

  veterán

  válasz focker #6 üzenetére

  Csak ebben a tabla tömbben kell ballagni az aktuális pontból kiindulva amíg ugyanolyan jelet látsz és megszámolni őket. Ha 5 vagy több lesz az ellenkező irányok összege, akkor nyerés van.

• #5 Jester01 veterán focker #4

  Új Válasz 2006-06-08 21:18:31 #5

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Jester01

  veterán

  válasz focker #4 üzenetére

  Értelemszerűen az egész rajzoló kódnak benne kellene lennie az if-ben

• #2 Jester01 veterán focker #1

  Új Válasz 2006-06-08 20:38:03 #2

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Jester01

  veterán

  válasz focker #1 üzenetére

  Csinálnod kellene egy tömböt a memóriában ahol azt tárolod, hogy melyik cellában milyen jel van. Pl ha ezt beszúrod a Kattintas procba:
  
  global tabla
  
  set kordx [expr $x / $meret]
  set kordy [expr $y / $meret]
  set key ''$kordx;$kordy''
  if { [llength [array get tabla $key] ] == 0 } {
  array set tabla [list $key $jatekos]
  
  Akkor már nem tudsz olyan helyre bökni ahol van valami.
  Ezután már csak azt kell ellenőrizni, hogy az aktuális lépés miatt nyert-e valaki.

Új hozzászólás Aktív témák