egghelp/eggheads community

Thank you very mich Spike^^

2016-02-16T21:50:18-04:00

Thank you very much Spike^^ bro you are a life saver really your code worked like a charm ... thanks once again....

Statistics: Posted by Mas — Tue Feb 16, 2016 9:50 pm

Deleting a specific thing in an output file

2016-02-16T21:36:24-04:00

Code:

proc tgresetscores {nick host hand text} {   global tgteambyname tgteamscore tgscoresbyname tgteamscoretotal   global tgtscf tgteamscore   if {($tgresetreqpw==1 && [passwdok $hand $text]) || $tgresetreqpw==0} {     if {[file exists member.scores]&&[file size member.scores]>2} {       set _sfile [open member.scores w]       puts $_sfile ""       close $_sfile ### remove 2 lines here ###    }   #THIS IS THE 2ND PART WHICH WE JUST NEED TO DELETE THE SCORE NOT THE TEAM     set tlist [array names tgteamscore]    foreach team $tlist {       set tgteamscore($team) 0    }     tgsavescores    set tgteamscoretotal [llength $tlist]    tggamemsg "[tgcolrset]===== Score table & Stats reset by $nick! ====="   } }

Statistics: Posted by SpiKe^^ — Tue Feb 16, 2016 9:36 pm

Deleting a specific thing in an output file

2016-03-03T17:00:49-04:00

Hello ... I have a score file in which there are two things when its output it seems like this
teamname,points
example
Gladiators,5000 Titanic,3000 Clusters,2000
at months end it reset whole file and i just want to delete the scores and reset it to 0 as below
Gladiators,0 Titanic,0 Clusters,0

#MANUALLY reset current Team Member scores & Team Scores for month MANUALLY
proc tgresetscores {nick host hand text} {
global tgteambyname tgteamscore tgscoresbyname tgteamscoretotal
global tgtscf tgteamscore
if {($tgresetreqpw==1 && [passwdok $hand $text]) || $tgresetreqpw==0} {
if {[file exists member.scores]&&[file size member.scores]>2} {
set _sfile [open member.scores w]
puts $_sfile ""
close $_sfile
set tgteamscore ""
set tgteamscoretotal 0
}
#THIS IS THE 2ND PART WHICH IS RESETTING WHOLE FILE WE JUST NEED TO DELETE THE SCORE NOT THE TEAM

if {[file exists $tgtscf]&&[file size $tgtscf]>2} {
set _sfile [open $tgtscf w]
puts $_sfile ""
close $_sfile
set tgteamscore ""
set tgteamscoretotal 0
}
tggamemsg "[tgcolrset]===== Score table & Stats reset by $nick! ====="
}
}
[/code]

Statistics: Posted by Mas — Thu Feb 04, 2016 5:16 pm