- Szárba szökken a Galaxy Buds 3 Pro
- Vodafone mobilszolgáltatások
- Az iPhone 15 frissítésgaranciát, a 16 szép rendereket kapott
- MIUI / HyperOS topik
- Google Pixel topik
- Samsung Galaxy S24 Ultra - ha működik, ne változtass!
- Android alkalmazások - szoftver kibeszélő topik
- Xiaomi Mi 11 Ultra - Circus Maximus
- KuKirin G4 - a sebesség ára
- Az Apple is mesterséges intelligenciával turbózza fel a teljes kínálatot
Hirdetés
-
Léptek New Yorkban a közösségi média függőséget okozó algoritmusai ellen
it Meghozták azokat az intézkedéseket, amelyektől azt remélik, hogy segítenek megvédeni a kiskorúakat a közösségi médiában.
-
A Samsung elkezdte árulni új Micro LED tévéit
ph A vállalat elsőként az Egyesült Államokban küldi boltokba a friss Micro LED televíziókat, amelyek nem lesznek kimondottan olcsók.
-
KuKirin G4 - a sebesség ára
ma Meglehetősen erős gép ez, amivel óriásit lehet taknyolni, de néhány módosítással egy igen kedvező árú rollerré alakítható.
Új hozzászólás Aktív témák
-
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). -
Jester01
veterán
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.Jester
-
focker
csendes tag
í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. -
focker
csendes tag
Közben megvan a hiba oka. Viszont továbbra is lehet egy négyzetben o és x.
-
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?
-
Jester01
veterán
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.'' }
}Jester
-
focker
csendes tag
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] -
-
holdacska
csendes tag
Sziasztok!
A gondom a következő: Adott egy horoszkop.tcl ami már nem működik mivel átírták az asztronetes oldalt php re, egyik oldalról letöltöttem a frissebbet, de nem működik mivel ezen a soron konkrétan 12 soron kiakad és nem tudja betöltenia tcl elt ezért maga az eggdrop sem indul el: putlog ''[fs]Horoszkóp-$horoszkopvers[ft] Loaded''. Mi lehet ezzel a gondja?? Ha ebből a sorból nem derül ki mi a gond megadom honnét tölthető le a tcl. Előre is köszönöm a segítséget.Ne akarrj egyszerre túl sokat, lépésről lépésre sokkal többre viszed.
-
Sarkanyka
csendes tag
-
Tamy
senior tag
Sziasztok!
Rég nem járt már erre senki, azért szerencsét próbálok.
Egy expect scriptel szeretném elérni, hogy a legutolsó mentést egy adott mappából átmásolja egy másik szerverre is. Minden működne, csak a keresésnél akad el a folyamat, a mentés mindig más névvel készül, ezért dátum szerint meg kellene keresnem a legújabbat. A probléma, hogy az expect nem ismeri a find parancsot, ezért valami ilyesmit próbálok:
#!/usr/bin/expect -f
set now [clock seconds]
set date [clock format $now -format {%Y-%m-%d}]
set backupfile [spawn find /backup/ -name "Vol*" -mtime -5]
spawn scp -r /backup/$backupfile "user@192.168.1.1:/home/user/$date"
expect {
-re ".*es.*o.*" {
exp_send "yes\r"
exp_continue
}
-re ".*sword.*" {
exp_send "Jelszó\r"
}
}
interactNem tudom le lehet-e így tárolni a keresés eredményét, illetve a jelek szerint nem, csak arra nem jövök rá, hogyan kellene. Túrom a netet, de nem találok ilyen jellegű példát sehol.
Egész életemben azon gondolkodtam, hogy kéne valamit dolgoznom. Ezért aztán a végén nem is maradt rá időm.
Új hozzászólás Aktív témák
- Diablo IV
- Kínai, és egyéb olcsó órák topikja
- Házimozi haladó szinten
- Xiaomi Pad 6 - kiapadhatatlan jóság
- HP notebook topic
- Debrecen és környéke adok-veszek-beszélgetek
- LG LCD és LED TV-k
- Xbox Series X|S
- UbiForward24 - Hosszabb bemutatón a Star Wars: Outlaws
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- További aktív témák...
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen