Kirjautuminen
Tehtävät
Kilpailu
4. kierros:
7.11. klo 18 – 9.11. klo 23
en ole ikinä ohjelmoinut itse yhtään mitään mutta tälläiselle scriptalle olisi nyt tarve:
lainaus:
@irc !played nimi
<bot> luku
Tiedosto josta tiedot haetaan näyttää tältä:
played.txt
Olen yrittäny itse vähän aloitella mutta, en tiedä onko mikään
mitä olen tähänasti tehnyt oikein tai edes sinnepäin.
##########
# Played 0.1#
##########
set played_chans "#samuliweb"
bind pub - !played pub:played
bind pub - played pub:played
proc played:channelcheck {channel} {
foreach i $::played_chans {
if {$i == "$channel"} { return 1 }
}
return 0
}
# Open Data
set data [open "played.txt" r]
set file_data [read $data]
close $fp
# Split Name : number
set data [split $file_data "\n"]
foreach {one} $data {
lappend name [lindex $name 1]
}
set number [expr [lindex [lindex $data 0] 1] + 1]
# Do search: name
# Print
putserv "$aika"
putlog "played.tcl ladattu"Mod. korjasi kooditagit!
Aihe on jo aika vanha, joten et voi enää vastata siihen.