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

• #12 focker csendes tag Jester01 #10

  Új Válasz 2006-06-09 11:49:27 #12

  Ú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

  

  focker

  csendes tag

  válasz Jester01 #10 üzenetére

  Végre megy, csak nem egészen úgy működik, ahogy kellene.
  Ha a foreach reész a rajzolás után van, akkor vízszintesen/függőlegesen is akármennyit tudok rakni, akkor sem nyer egyik játékos sem. Csak valami nagyon extrém esetet sikertült kreálnom, amikor nyert valaki.
  
  Ha a kirajzolás előtt, akkor meg még nem rajzolja ki az 5.-et, de már nyert a játékos.
  
  [Szerkesztve]

• #11 focker csendes tag Jester01 #10

  Új Válasz 2006-06-09 10:02:50 #11

  Ú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

  

  focker

  csendes tag

  válasz Jester01 #10 üzenetére

  Hát te tudsz valamit Gondolom ezt is a kattintás procba kell nyomni, vagy esetleg egy új proc kell neki, mert a kattintás-ban nincs dx, dy?

• #9 focker csendes tag

  Új Válasz 2006-06-08 22:34:32 #9

  Ú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

  

  focker

  csendes tag

  Nem megy ez nekem Hogy tudom az adott jeleket összehasonlítani egymással? Az utolsó pontból először 8 irányba kell vizsgálni, hogy van-e ugyanolyan. Ha van, akkor már csak az azt megelőzőt kell nézni. Pl aktuális koord. 5,5; akkor meg kell nézni a 4,4; 4,5; 4,6; 5,4; 5,6; 6,4; 6,5; 6,6; koordinátájú pontokat. Mondjuk ezek közül a 4,4 és az 5,6 koordinátákon van ugyanolyan. Akkor már csak ezekre kell nézni, hogy a 3,3 és 5,7 koordinátákon ugyanolyan van-e. Na de mindezt hogy lehet Tcl-ben?

• #8 focker csendes tag Jester01 #7

  Új Válasz 2006-06-08 21:35:45 #8

  Ú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

  

  focker

  csendes tag

  válasz Jester01 #7 üzenetére

  Ahha, értem, és ezt hogy kellene megcsinálni? Nem egészen vágom ezt a témát

• #6 focker csendes tag Jester01 #5

  Új Válasz 2006-06-08 21:19:40 #6

  Ú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

  

  focker

  csendes tag

  válasz Jester01 #5 üzenetére

  Téleg jó. Beraktam egy felesleges } jelet, és amiatt nem működött. Akkor már csak az a kérdés, hogy menjen a győztes kezelése.

• #4 focker csendes tag

  Új Válasz 2006-06-08 21:10:44 #4

  Ú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

  

  focker

  csendes tag

  Közben megvan a hiba oka. Viszont továbbra is lehet egy négyzetben o és x.

• #3 focker csendes tag Jester01 #2

  Új Válasz 2006-06-08 20:48:12 #3

  Ú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

  

  focker

  csendes tag

  válasz Jester01 #2 üzenetére

  így gondoltad?
  ...
  global jatekos
  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]
  }
  
  if {$jatekos == 0} {
  ...
  
  Így nekem: Invalid Command Name ''N'' hibát dob, ahol N az a sor, ahova kattintottam.

• #1 focker csendes tag

  Új Válasz 2006-06-08 19:54:18 #1

  Ú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

  

  focker

  csendes tag

  Valaki aki ért ehhez a script nyelvhez, segíthetne egy rövidke feladatban:
  
  #!/usr/local/bin/wishx -f
  proc beosztas {path dx dy meret} {
  for {set i 0} {$i <= $dx} {incr i $meret} { $path create line $i 0 $i $dy }
  for {set i 0} {$i <= $dy} {incr i $meret} { $path create line 0 $i $dx $i }
  }
  
  proc Kattintas {path x y meret} {
  global jatekos
  
  set kordx [expr $x / $meret]
  set kordy [expr $y / $meret]
  if {$jatekos == 0} {
  $path create oval [expr $kordx*$meret+2] [expr $kordy*$meret+2] \
  [expr ($kordx+1)*$meret-2] [expr ($kordy+1)*$meret-2] \
  -outline red
  set jatekos 1
  } else {
  $path create line [expr $kordx*$meret+2] [expr $kordy*$meret+2] \
  [expr ($kordx+1)*$meret-2] [expr ($kordy+1)*$meret-2] \
  -fill blue
  $path create line [expr $kordx*$meret+2] [expr ($kordy+1)*$meret-2] \
  [expr ($kordx+1)*$meret-2] [expr ($kordy)*$meret+2] \
  -fill blue
  
  set jatekos 0
  }
  }
  
  wm title . ''Canvas Item Demonstration''
  wm iconname . ''Items''
  set c .c
  
  frame .frame
  pack .frame -side top -fill both -expand yes
  
  canvas $c -width 400 -height 400 \
  -relief sunken -borderwidth 2
  pack $c -in .frame -expand yes -fill both
  
  set meret 20
  set jatekos 0
  bind $c <1> ''Kattintas %W %x %y $meret''
  bind $c <Configure> ''beosztas %W %w %h $meret''
  
  Van egy ilyen script, ez csinál egy négyzetrácsos táblát, amire lehet x-et és o-t rakni. Probléma egy helyre rakható o és x is. Hogy lehet ezt kiküszöbölni, hogy úgy működjön az egész, mint egy amőba játék (egy helyre csak x vagy csak o legyen rakható, és detektálja, ha valamelyik játékos nyer).

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