Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Tcl kviz i pitanja!!!

[es] :: Instant Messaging :: IRC :: Tcl kviz i pitanja!!!

[ Pregleda: 6547 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Rammstein2
Zeljko Tomic

Član broj: 95357
Poruke: 5
*.telrad.net.



Profil

icon Tcl kviz i pitanja!!!12.08.2006. u 08:26 - pre 214 meseci
Mozel i mi neko reci gde se mogu nabaviti pitanja za eggdrop kviz jer kad sam ja trazio nije bilo nigde.

Inace pitanja koja sam dobio uz kviz ima samo 2 000 al ona u tcl skripti ovako izgledaju : beograd|Koji je glavni grad Jugoslavije ovo je cisti primer jednog pitanja iz standardne tcl skripte,e sad kad sam trazio po netu sva pitanja idu PITANJE*ODGOVOR!!!Ako neko zna i kako mogu da ubacim opciju !top10 super bi bilo????
 
Odgovor na temu

LaMpiR

Član broj: 9930
Poruke: 1343
Via: [es] mailing liste



+2 Profil

icon Re: Tcl kviz i pitanja!!!12.08.2006. u 11:36 - pre 214 meseci
Pitanja mozes skinuti sa http://www.yumirc.org/download/pitanja.txt
ima negdje preko 26k. Za drugaciji tcl kviz pogledaj www.egghelp.org.
Koliko se sjecam postojala je skripta u kojoj mozes editovati kako bot
cita pitanja. Znaci mozes staviti da ide pitanje*odgovor, btw tako idu
i ovom fajlu sto sam ti gore dao link :)
 
Odgovor na temu

Rammstein2
Zeljko Tomic

Član broj: 95357
Poruke: 5
*.telrad.net.



Profil

icon Re: Tcl kviz i pitanja!!!12.08.2006. u 22:03 - pre 214 meseci
EO OVDE CONFIG FAJL PA AKO MOZES NADJI MI GDE DA TO IZMENIM,ZNACI NAPISTI TAJ DIO GDE SE TO MJENJA HVALA UNAPRED


#Misc checks & var initialisations
if {![file exists $tgqdb]} {die "[file tail [info script]]: $tgqdb ne posoji!"}
if {![info exists alltools_loaded]||$allt_version<204} {die "[file tail [info script]]: ova skripta zahteva alltools.tcl v1.6 (ili napredniju verziju ove skripte) da bude ucitan!"}
if {![info exists tgplaying]} {set tgplaying 0}
if {![info exists tghintnum]} {set tghintnum 0}
if {![info exists tgmissed]} {set tgmissed 0}

#Binds
bind pub $tgflagsstart $tgcmdstart tgstart
bind pub $tgflagsstop $tgcmdstop tgstop
bind pub $tgflagshint $tgcmdhint tgforcehint
bind pub $tgflagsskip $tgcmdskip tgskip
bind join -|- "$tgchan *" tgjoinmsg
bind msg - $tgcmdhelp tggivehelp
bind msg - $tgcmdlookup tgscorelookup
bind msg - $tgcmdtarget tgtargetlookup
bind msg - $tgcmderror tgerror
bind msg $tgflagsreset "$tgcmdreset" tgresetscores
bind kick - "$tgchan $botnick" tgbotgotkicked
bind evnt - disconnect-server tgbotgotdisconnected

#starts the game if it isn't running.
proc tgstart {nick host hand chan text} {
global tgplaying tgstreak tgchan tgerrremindtime tgerrremindtimer tgmissed
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==0} {
tggamemsg "\00303Kviz je startovan od strane $nick!"
tgnext
set tgplaying 1
set tgstreak 0
set tgmissed 0
set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
}
return 1
}
}

#stops the game if it's running.
proc tgstop {nick host hand chan text} {
global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
global tgerrremindtimer
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1} {
tggamemsg "\00304Zaustavljen kviz od strane $nick!"
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
set tgplaying 0
catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
if {[utimerexists tgnext]!=""} {killutimer $tgnexttimer}
if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
}
return 1
}
}

#gives a hint if there is currently a question to answer.
proc tgforcehint {nick host hand chan text} {
global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1&&[utimerexists tghint]!=""} {
killutimer $tghinttimer
tghint
}
return 1
}
}

#skips the current question if one has been asked.
proc tgskip {nick host hand chan text} {
global tghinttimer tgnexttimer tgplaying tgchan tgcurrentanswer tgstreak tgstreakmin tgtimenext
if {[strlwr $tgchan]==[strlwr $chan]} {
if {$tgplaying==1&&[utimerexists tghint]!=""} {
tggamemsg "\00310Skok na sledece pitanje $nick je zahtevao..."
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
killutimer $tghinttimer
set tgnexttimer [utimer $tgtimenext tgnext]
}
return 1
}
}

#reminds channel how to report errors in questions/answers
proc tgerrremind {} {
global tgerrremindtimer tgerrremindtime botnick tgcmderror
tggamemsg "\00306Podsetnik: Za prijavu moguce greske u pitanjima/odgovorima, ukucati \00307/msg $botnick $tgcmderror <broj pitanja> \[opis greske\]"
set tgerrremindtimer [timer $tgerrremindtime tgerrremind]
}


#bot got kicked. stop the game.
proc tgbotgotkicked {nick host hand chan targ text} {
tgquietstop
}

#bot got disconnected. stop the game.
proc tgbotgotdisconnected {disconnect-server} {
tgquietstop
}

#stops the game quietly.
proc tgquietstop {} {
global tgplaying tgstreak tgchan tgcurrentanswer tghinttimer tgnexttimer tgerrremindtimer
if {$tgplaying==1} {
set tgstreak 0
set tgplaying 0
catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
if {[utimerexists tghint]!=""} {killutimer $tghinttimer}
if {[utimerexists tgnext]!=""} {killutimer $tgnexttimer}
if {[timerexists tgerrremind]!=""} {killtimer $tgerrremindtimer}
}
}

#reads the question database.
proc tgreadqdb {} {
global tgqdb tgquestionstotal tgquestionslist
set tgquestionstotal 0
set tgquestionslist ""
set qfile [open $tgqdb r]
while {![eof $qfile]} {
lappend tgquestionslist [gets $qfile]
incr tgquestionstotal
}
close $qfile
}

#selects the next question.
proc tgnext {} {
global tgqdb tgcurrentquestion tgcurrentanswer tgquestionnumber tgquestionstotal
global tghintnum tgchan tgquestionslist
tgreadqdb
set tgquestionnumber [rand [llength $tgquestionslist]]
set tgquestionselected [lindex $tgquestionslist $tgquestionnumber]
set tgcurrentquestion [lindex [split $tgquestionselected |] 1]
set tgcurrentanswer [strlwr [lindex [split $tgquestionselected |] 0]]
unset tghintnum
tghint
bind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
return
}

#shows timed hints.
proc tghint {} {
global tgmaxhint tghintnum tgcurrentanswer tghinttimer tgchan
global tgtimehint tghintchar tgquestionnumber tgquestionstotal
global tgcurrentquestion tghintcharsused tgnexttimer tgtimenext tgstreak tgstreakmin
global tgnobodygotit tgtrythenextone tgmissed tgmaxmissed tgcmdstart
if {[catch {incr tghintnum}]!=0} {set tghintnum 0}
if {$tghintnum >= [expr $tgmaxhint+1]} {
incr tgmissed
set _msg ""
append _msg "\00310[lindex $tgnobodygotit [rand [llength $tgnobodygotit]]]"
if {$tgmaxmissed>0&&$tgmissed>=$tgmaxmissed} {
append _msg " To je $tgmissed neodgovoreno pitanje! Kviz je automatski sada zaustavljen. Za ponovno pokretanje kviza, ukucaj $tgcmdstart"
tgquietstop
} else {
append _msg " [lindex $tgtrythenextone [rand [llength $tgtrythenextone]]]"
}
tggamemsg "$_msg"
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak 0
catch {unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer}
if {$tgmaxmissed==0||$tgmissed<$tgmaxmissed} {
set tgnexttimer [utimer $tgtimenext tgnext]
}
return
} elseif {$tghintnum == 0} {
set i 0
set _hint {}
set tghintcharsused {}
regsub -all -- "\[A-Za-z0-9\]" $tgcurrentanswer $tghintchar _hint
} elseif {$tghintnum == 1} {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer " "]]} {
set _word [lindex [split $tgcurrentanswer " "] $i]
set j 0
set _newword {}
while {$j<[strlen $_word]} {
if {$j==0} {
append _newword [stridx $_word $j]
lappend tghintcharsused $i,$j
} else {
if {[string is alnum [stridx $_word $j]]} {
append _newword $tghintchar
} else {
append _newword [stridx $_word $j]
lappend tghintcharsused $i,$j
}
}
incr j
}
lappend _hint $_newword
incr i
}
} else {
set i 0
set _hint {}
while {$i<[llength [split $tgcurrentanswer " "]]} {
set _word [lindex [split $tgcurrentanswer " "] $i]
set j 0
set _newword {}
set _selected [rand [strlen $_word]]
regsub -all -- "\[^A-Za-z0-9\]" $_word "" _wordalnum
if {[strlen $_wordalnum]>=$tghintnum} {
while {[lsearch $tghintcharsused $i,$_selected]!=-1||[string is alnum [stridx $_word $_selected]]==0} {
set _selected [rand [strlen $_word]]
}
}
lappend tghintcharsused $i,$_selected
while {$j<[strlen $_word]} {
if {[lsearch $tghintcharsused $i,$j]!=-1||[string is alnum [stridx $_word $j]]==0} {
append _newword [stridx $_word $j]
} else {
if {[string is alnum [stridx $_word $j]]} {
append _newword $tghintchar
}
}
incr j
}
lappend _hint $_newword
incr i
}
}
tggamemsg "\00304===== Pitanje [expr $tgquestionnumber+1]/$tgquestionstotal [expr $tghintnum?"(Hint $tghintnum/$tgmaxhint)":""] ====="
tggamemsg "\00312[strupr $tgcurrentquestion]"
tggamemsg "\00303Odgovor: [strupr $_hint]"
set tghinttimer [utimer $tgtimehint tghint]
}

#triggered when someone says the correct answer.
proc tgcorrectanswer {nick host hand chan text} {
global tgcurrentanswer tghinttimer tgtimenext tgchan tgnexttimer tgstreak tgstreakmin
global tgscoresbyname tgranksbyname tgranksbynum tgcongrats tgscorestotal tgmissed
tggetscores
if {![info exists tgranksbyname($nick)]} {
set _oldrank 0
} else {
set _oldrank [lindex [split $tgranksbyname($nick) ,] 0]
}
tgincrscore $nick
tggetscores
set _newrank [lindex [split $tgranksbyname($nick) ,] 0]
set _msg "\00306[lindex $tgcongrats [rand [llength $tgcongrats]]] \00304$nick\00306! Odgovor je bio \00304[strupr $tgcurrentanswer]\00306."
if {$_newrank<$_oldrank} {
if {$_newrank==1} {
append _msg " Trenutno ste na prvom mestu!"
} else {
append _msg " Trenutno si na mestu \00304[tgnumsuf [lindex [split $tgranksbyname($nick) ,] 0]]\00306 od mogucih \00304$tgscorestotal\00306, odmah iza \00304[lindex [split $tgranksbynum([expr $_newrank-1]) ,] 0]\00306 za \00304[lindex [split $tgranksbynum([expr $_newrank-1]) ,] 1]\00306."
}
}
tggamemsg "$_msg"
if {$tgstreak!=0} {
if {[lindex [split $tgstreak ,] 0]==$nick} {
set tgstreak $nick,[expr [lindex [split $tgstreak ,] 1]+1]
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} {
tggamemsg "\00312$nick cestitamo! Osvajate [lindex [split $tgstreak ,] 1] odgovora za redom do sada!"
}
} else {
if {$tgstreakmin>0&&[lindex [split $tgstreak ,] 1]>=$tgstreakmin} { tgstreakend }
set tgstreak $nick,1
}
} else {
set tgstreak $nick,1
}
set tgmissed 0
tgshowscores
unbind pubm -|- "$tgchan $tgcurrentanswer" tgcorrectanswer
killutimer $tghinttimer
set tgnexttimer [utimer $tgtimenext tgnext]
return 1
}

#read current scores from file, sort and store in variable.
proc tggetscores {} {
global tgscf tgscorestotal tgscores tgscoresbyname tgranksbyname tgranksbynum
if {[file exists $tgscf]&&[file size $tgscf]>2} {
set _sfile [open $tgscf r]
set tgscores [lsort -dict -decreasing [split [gets $_sfile] " "]]
close $_sfile
set tgscorestotal [llength $tgscores]
} else {
set tgscores ""
set tgscorestotal 0
}
if {[info exists tgscoresbyname]} {unset tgscoresbyname}
if {[info exists tgranksbyname]} {unset tgranksbyname}
if {[info exists tgranksbynum]} {unset tgranksbynum}
set i 0
while {$i<[llength $tgscores]} {
set _item [lindex $tgscores $i]
set _nick [lindex [split $_item ,] 2]
set _score [lindex [split $_item ,] 0]
set tgscoresbyname($_nick) $_score
set tgranksbyname($_nick) [expr $i+1],$_score
set tgranksbynum([expr $i+1]) $_nick,$_score
incr i
}
return
}

#increment someone's score.
proc tgincrscore {who} {
global tgscores tgscf tgpointsperanswer tgscorestotal
tggetscores
if {$tgscorestotal>0} {
set i 0
if {[lsearch $tgscores "*,*,$who"]==-1} {
append _newscores "1,[expr 1000000000000.0/[unixtime]],$who "
}
while {$i<[llength $tgscores]} {
set _item [lindex $tgscores $i]
set _nick [lindex [split $_item ,] 2]
set _time [lindex [split $_item ,] 1]
set _score [lindex [split $_item ,] 0]
if {[strlwr $who]==[strlwr $_nick]} {
append _newscores "[expr $_score+$tgpointsperanswer],[expr 1000000000000.0/[unixtime]],$who[expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
} else {
append _newscores "$_score,$_time,$_nick[expr [expr [llength $tgscores]-$i]==1?"":"\ "]"
}
incr i
}
} else {
append _newscores "1,[expr 1000000000000.0/[unixtime]],$who"
}
set _sfile [open $tgscf w]
puts $_sfile "$_newscores"
close $_sfile
return
}

#shows the current scores on channel.
proc tgshowscores {} {
global tgscores tgchan tgscorestotal
tggetscores
set i 0
while {$i<[llength $tgscores]} {
set _item [lindex $tgscores $i]
set _nick [lindex [split $_item ,] 2]
set _score [lindex [split $_item ,] 0]
if {$i==0} {
append _scores "\00304$_nick $_score"
} elseif {$i==1} {
append _scores ", \00303$_nick $_score"
} elseif {$i==2} {
append _scores ", \00312$_nick $_score"
} elseif {[onchan $_nick $tgchan]} {
append _scores ", \00306$_nick $_score"
}
incr i
}
tggamemsg "\00306Tacnih odgovora ima: $_scores"
}

#reset current scores.
proc tgresetscores {nick host hand text} {
global tgscf tgscorestotal tgscores
if {[file exists $tgscf]&&[file size $tgscf]>2} {
set _sfile [open $tgscf w]
puts $_sfile ""
close $_sfile
set tgscores ""
set tgscorestotal 0
}
tggamemsg "\00304===== Rang lista je resetovana od strane $nick! ====="
return 1
}

#triggered when a winning streak ends.
proc tgstreakend {} {
global tgstreak
tggamemsg "\00312Samo toliko od [lindex [split $tgstreak ,] 0] odgovora za redom."
return
}

#triggered when someone joins trivia chan.
proc tgjoinmsg {nick host hand chan} {
global botnick tgplaying tgcmdhelp tgcmdstart
if {$nick != $botnick} {
putnotc $nick "Kviz je trenutno \002[expr $tgplaying?"on\002.":"off\002. Pokretanje kviza je sa komandom, \002$tgcmdstart\002."] Pregled rang liste za odredjeni nick je komanda: \002/MSG $botnick score nick\002."
}
}

#triggered when someone /msgs the bot with the score lookup command.
proc tgscorelookup {nick host hand text} {
global tgscoresbyname tgranksbyname tgscorestotal
if {$text==""} { set text $nick } else { set text [lindex [split $text " "] 0] }
tggetscores
set _array [array get tgscoresbyname]
set _index [lsearch [strlwr "$_array"] [strlwr "$text"]]
if {$_index==-1} {
if {[strlwr $text]==[strlwr $nick]} {
set _who "\00306Ti se"
} else {
set _who "\00304$text \00306se"
}
putnotc $nick "[tgbold]$_who \00306ne nalazis na rang listi."
} else {
set _nick [lindex $_array $_index]
if {[strlwr $_nick]==[strlwr $nick]} {
set _who "\00306Vi ste"
} else {
set _who "\00304$_nick \00306je"
}
putnotc $nick "[tgbold]$_who on \00304$tgscoresbyname($_nick)\00306, rangirani \00304[tgnumsuf [lindex [split $tgranksbyname($_nick) ,] 0]] \00306od \00304$tgscorestotal\00306."
}
return 1
}

#triggered when someone /msgs the bot with the target lookup command.
proc tgtargetlookup {nick host hand text} {
global tgscoresbyname tgranksbyname tgscorestotal tgranksbynum
tggetscores
set _array [array get tgscoresbyname]
set _index [lsearch [strlwr "$_array"] [strlwr "$nick"]]
set _nick [lindex $_array $_index]
if {$_index==-1} {
putnotc $nick "[tgbold]\00306Ti se ne nalazis na rang listi."
} elseif {$tgranksbyname($_nick)==1} {
putnotc $nick "[tgbold]\00304Ti si na prvom mestu!"
} else {
set _myrank [lindex [split $tgranksbyname($_nick) ,] 0]
set _myscore [lindex [split $tgscoresbyname($_nick) ,] 0]
set _tgtrank [expr [lindex [split $tgranksbyname($_nick) ,] 0]-1]
set _tgtnick [lindex [split $tgranksbynum($_tgtrank) ,] 0]
set _tgtscore [lindex [split $tgranksbynum($_tgtrank) ,] 1]
putnotc $nick "[tgbold]\00306Vi ste na \00304$_myscore\00306. Vasa sledeca meta je \00304$_tgtnick \00306sa \00304$_tgtscore\00306, rangiran \00304[tgnumsuf $_tgtrank] \00306od \00304$tgscorestotal\00304."
}
return 1
}

#triggered when someone /msgs the bot with the target lookup command.
proc tgerror {nick host hand text} {
global tgquestionstotal tgquestionslist tgerrfil
if {$text==""||![string is int [lindex $text 0]]} {
putnotc $nick "[tgbold]\00306Tebi nedostaje specificni broj za pitanje."
return
}
tgreadqdb
set _qnum [lindex $text 0]
if {$_qnum>$tgquestionstotal} {
putnotc $nick "[tgbold]\00306Nema takvog pitanja."
return
}
set _qques [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 1]
set _qans [lindex [split [lindex $tgquestionslist [expr $_qnum-1]] |] 0]
set _desc [lrange $text 1 end]
if {$_desc==""} { set _desc "Nema daljih informacija o toj gresci." }
set _file [open $tgerrfil a]
puts $_file "Reported by:\t$nick"
puts $_file "Question #:\t$_qnum"
puts $_file "Question:\t$_qques"
puts $_file "Answer:\t\t$_qans"
puts $_file "Comments:\t$_desc"
puts $_file "--------------------------------------------------------------------------------"
close $_file
putnotc $nick "[tgbold]\00306Hvala za prijavu ove greske."
return 1
}

#triggered when someone /msgs the bot with the help command.
proc tggivehelp {nick host hand {text ""}} {
global botnick tgcmdlookup tgcmdhelp tgcmdstart tgcmdstop tgchan tgflagsstop
global tgcmdstop tgflagshint tgcmdhint tgflagsskip tgcmdskip tgflagsreset tgcmdreset
global tgcmdtarget tgcmderror
if {$text==""} {
putnotc $nick "Imate mogucnost koriscenja sledecih komandi /MSG commands:"
putnotc $nick "Koristite tipa, /MSG $botnick <command>"
putnotc $nick " \002[strupr $tgcmdlookup]\002 \[nick\]"
putnotc $nick " -- Prikazuje odredjeni rang i pogodke za odredjeni \[nick\], ako je naglasen,"
putnotc $nick " uprotivnom pokazuje tvoj rang i pogodtke."
putnotc $nick " \002[strupr $tgcmdtarget]\002"
putnotc $nick " -- Pokazuje rang i rezultat rangirane osobe"
putnotc $nick " jedno mesto iznad tebe."
putnotc $nick " \002[strupr $tgcmderror]\002 <number> \[opis\]"
putnotc $nick " -- Prijavite greske u pitanjima <number>"
putnotc $nick " Opis je opcionalan, moze Vam pomoci."
if {[matchattr $hand $tgflagsreset $tgchan]} {
putnotc $nick " \002[strupr $tgcmdreset]\002"
putnotc $nick " -- Resetuje za sve igrace poene."
}
putnotc $nick "Za listu komandi kviza ukucati, /MSG $botnick [strupr $tgcmdhelp] PUBCMDS"
}
if {[strlwr $text]=="pubcmds"} {
putnotc $nick "Ti imas mogucnost koriscenja sledecih komandi:"
putnotc $nick " \002$tgcmdstart\002 -- Ova komanda startuje kviz."
if {[matchattr $hand $tgflagsstop $tgchan]} {
putnotc $nick " \002$tgcmdstop\002 -- Zaustavlja pokrenuti kviz."
}
if {[matchattr $hand $tgflagshint $tgchan]} {
putnotc $nick " \002$tgcmdhint\002 -- Prikazuje (hint)."
}
if {[matchattr $hand $tgflagsskip $tgchan]} {
putnotc $nick " \002$tgcmdskip\002 -- Preskace trenutno pitanje."
}
putnotc $nick "Za dodatnu listu komandi ukucaj /MSG commands, /MSG $botnick [strupr $tgcmdhelp]"
}
return 1
}

#misc aliases
proc tggamemsg {what} {global tgchan;putquick "PRIVMSG $tgchan :[tgbold]$what"}
proc tggamenotc {who what} {putquick "NOTICE $who :$what"}
proc tgnumsuf {num} {set _last1 [string range $num [expr [strlen $num]-1] end];set _last2 [string range $num [expr [strlen $num]-2] end];if {$_last1=="1"&&$_last2!="11"} {return "[expr $num]st"} elseif {$_last1=="2"&&$_last2!="12"} {return "[expr $num]-om"} elseif {$_last1=="3"&&$_last2!="13"} {return "[expr $num]rd"} else {return "[expr $num]-om"}}
proc tgbold {} {global tgusebold;if {$tgusebold==1} {return "\002"}}

putlog "* [file tail [info script]] by KLAKON 2006 loaded."
tgreadqdb
putlog "* $tgquestionstotal ima pitanja koja su smestena na lokaciji $tgqdb"
 
Odgovor na temu

ColdKeyboard
Sasa Karanovic
Hardware and Firmware Engineer
Toronto, Canada

Član broj: 31924
Poruke: 868
*.PPPoE-1812.sa.bih.net.ba.

Jabber: ColdKeyboard
Sajt: www.SasaKaranovic.com


+11 Profil

icon Re: Tcl kviz i pitanja!!!13.08.2006. u 15:11 - pre 214 meseci
-- Off topic --
Korisit [ code ] [ /code ]
-- Off topic --
 
Odgovor na temu

[es] :: Instant Messaging :: IRC :: Tcl kviz i pitanja!!!

[ Pregleda: 6547 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.