using his script (which ill post here too) ive updated my own script to use ini files. but now i get an odd result when running the !add command. ill post an example of the ini file after only ONE add.
ignore the # on all the blank lines, its from the pastebin i copied this code back from.
Anyone able to work out why it stores multiple times and suggest a fix. i will be very happy with
Code:
#bind msg - !help addme_help#bind msg - help addme_help#bind pub - !help addme_help_pub#bind msg - !removeall addme_removeall#bind msg - removeall addme_removeall#bind pub - !removeall addme_removeall_pubbind pub - !add addg_addguildbind pub - !addme addg_addguildbind pub - !clearall clearallbind pub - !match addg_matchbind pub - !readall readallbind pub - !remove addg_removenamebind pub - !removeme addg_removename#bind pub - !rappel addme_recall#bind pub - !recall addme_recallbind pub - !motd addme_updatemotd#bind pub - !stats addme_gamecount#bind join - * addme_welcome# on very populated channels, you may want to comment out this line,# so the bot wont keep looking at people joining.# If so, add a static welcome message to another bot, or to channel service# (ie X on undernet, Q or L on quakenet ...)bind part - * addg_partbind sign - * addg_partbind kick - * addg_kickbind nick - * addg_nick#bind msg - addme_version addme_version#initset addg_channels "#guildwars.pvp"set addg_motd "Guildwars PvP gather Beta 1"set addg_number 0set inifile "data/guild.ini"proc addg_addguild {nick mask hand chan text} {putlog "In the proc addguild"#add player to array and incr counter is supposed to do so global inifileglobal addg_channelsglobal addg_motdglobal addg_numberputlog "pasted the globals, now checking channel"# if {![regexp $chan $addg_channels]} {#putlog "Wrong chan"# return 0#}if {$text == "" || $text == "{}" || ![info exists text]} {putquick "NOTICE $nick :Invalid Syntax, See !help command \002$nick\002 Error Number 1"} set leader $nick putlog "leader set to $leader" set guild [lindex $text 0] putlog "guild set to $guild" set rank [lindex $text 1] putlog "rank set to $rank" if {![info exist leader] || ![info exist guild] || ![info exists rank]} {putquick "NOTICE $nick :Invalid Syntax, See !help command \002$nick\002 Error Number 2"} if {$rank < 10 } { set bracket 1 putlog "Bracket 1" } elseif { $rank > 10 && $rank < 50 } { set bracket 2 putlog "Bracket 2" } elseif { $rank > 50 && $rank < 100 } { set bracket 3 putlog "Bracket 3" } elseif { $rank > 100 && $rank < 500 } { set bracket 4 putlog "Bracket 4" } elseif { $rank > 500 && $rank < 1000 } { set bracket 5 putlog "Bracket 5" } elseif { $rank > 1000 && $rank < 5000 } { set bracket 6 putlog "Bracket 6" } elseif { $rank > 5000 } { set bracket 7 putlog "Bracket 7" } if {![nickfind $nick]} { putlog "storing..." lappend nicklist $nick ini_write $inifile $nick rank $rank ini_write $inifile $nick guild $guild ini_write $inifile $nick bracket $bracket ini_write $inifile added leaders $nicklist #set guildinfo($leader,rank) $rank #set guildinfo($leader,guild) $guild #set guildinfo($leader,bracket) $bracket putlog "done, now changing topic" incr addg_number addg_updatetopic $addg_number $addg_motd } else { putlog "the value of is nick [isnick $nick]" putquick "NOTICE $nick :Your already stored" }}proc addg_removename {nick mask hand chan text} {# Call the internal proc remove when someone types !remove, if supposed to do soglobal botnickglobal inifileif {$text == "" || $text == "{}" || ![info exists text]} {set text $nick}if {![isop $nick $chan]} {putquick "NOTICE $nick :Sorry \002$nick\002, admin command : you need to be op"return 0} else { addg_remove $nick }}proc addg_remove {nick} {global addg_motdglobal addg_numberglobal inifile if {[file exist $inifile]} { ini_remove $inifile $nick "" set ulist [ini_read $inifile added leaders] set uindex [lsearch $ulist $nick] set newlist [lreplace $ulist $uindex $uindex] ini_write $inifile added leaders $newlist set newnum [$addg_number - 1] addg_updatetopic $newnum $addg_motd } else { putquick "NOTICE $nick : Your not added, please view !help" }}proc nickfind {nick} {global inifileset isthere [ini_read $inifile added leaders]foreach name $isthere {if {$name == $nick} { return 1} else { return 0}}}proc isnick {nick} { putlog "nick is $nick" putlog "checking if nick is added or file exists" global inifile if {[file exist $inifile]} { if {[ini_read $inifile $nick rank] == ";"} { putlog "was not found" return 0 } else { putlog "Found" return 1 } } else { return 0 }}proc addg_nick {nick host hand chan newnick} {# When someone listed in topic changes nick (Tom -> Tom|AFK), changes topic to match new nickglobal botnickglobal addg_channels#if {[regexp $chan $addg_channels]} { }#addg_getvars $chanif {[isnick $nick] == 1} {remove($nick)putquick "NOTICE $nick : Changing your nickname has removed you from the list, please re-add"}}proc addg_part {nick host hand chan text} {# Remove nick from players list if they leave channel or irc serverglobal botnickglobal addg_channels if {[regexp $chan $addg_channels]} {addg_getvars $chanif {[isnick $nick] == 1} {remove($nick)}}}proc addg_kick {nick host hand chan target reason} {# Remove nick from players list if they leave channel or irc serverglobal botnickglobal addg_channels if {[regexp $chan $addg_channels]} {addg_getvars $chanif {[isnick $nick] == 1} {remove($nick)}}}proc addg_updatetopic {number motd} {# Internal proc modify topic with new arguments (chan, Guild number and motd)set newtopic "Currently $number of guilds waiting for a game \0037 $motd"puthelp "TOPIC #guildwars.pvp : $newtopic"}proc addg_match { nick host hand chan text } {global inifileset randum 0set found 0 if {[file exist $inifile]} { if {[ini_read $inifile $nick rank] == ";"} { putquick "NOTICE $nick :Please add yourself before attempting the !match command, see !help" } else { putlog "Found" set matchrank [ini_read $inifile $nick rank] set $found 1 } }set ulist [ini_read $inifile added leaders]set num 0foreach name $ulist {if{[ini_read $inifile $name bracket] == $matchrank} { set unames($num) $name}set num $num+1}set randem [rand [array size unames]]set result $unames($randem)if {$randem == 0} {putquick "NOTICE $nick : Sorry An error has accured please contact Syntax-error Error invalid Array at rand"} else {putquick "NOTICE $nick : Match found against $result"putquick "NOTICE $result : Match found against $nick"}}proc readall { nick host hand chan text } {global inifileforeach guild [array names guildinfo] { putquick "NOTICE $nick : $guildinfo($guild,rank)" putquick "NOTICE $nick : $guildinfo($guild,guild)" putquick "NOTICE $nick : $guildinfo($guild,bracket)" }}proc clearall { nick host hand chan text } {global inifileunset guildinfoputlog "Array is gone"}Code:
###################### INI Database v0.4.2 [ DEC/16/1999 ]## By mamaKIN (mamakin@mailandnews.com)#### Thanks to Amadeus` for spotting some important issues#### Visit http://mort.level5.net/~mamakin/scripts/eggdrop/inidb.html for updates#### Description:## INI Datbase allows people to easily store settings and easily access them.## * INI Database is for TCL scripters only *####-----------------------------------------------------------------------------## PROCEDURE: ini_read <ini file> <section> <item>## DESCRIPTION: Reads the value of an item from the specified section in the## ini file.## RETURNS: the value of the item if successful; semi-colon ';' otherwise## (semi-colon because any other characters could be used as the## value, so use "\;" when comparing ini_read's return value)##-----------------------------------------------------------------------------## PROCEDURE: ini_write <ini file> <section> <item> [value]## DESCRITPION: Sets the value of item in the specified section in the ini## file.## RETURNS: TRUE (1) if successful; FALSE (0) otherwise##-----------------------------------------------------------------------------## PROCEDURE: ini_remove <ini file> <section> [item]## DESCRIPTION: Removes a section of the ini file or an item of the section.## Use "" in place of the item variable if you wish to## exclude it.## ( Use "file delete" if you want to remove the ini file )## RETURNS: TRUE (1) if successful; FALSE (0) otherwise##-----------------------------------------------------------------------------####################set inidb_ver "{INI Database v0.4.2} {04200!00} {6447b} {945384656} {mamaKIN}"proc ini_read {inifile section item} { set item [lindex $item 0] if {[lindex $inifile 0] == "" || [lindex $section 0] == "" || [lindex $item 0] == ""} { return "\;" } if {![file exists $inifile]} { return "\;" } set fileo [open $inifile r] set sect "" while {![eof $fileo]} { set rline [gets $fileo] set rline [string trim $rline] if {$rline != "" || [string index $rline 0] != "\;"} { if {[string index $rline 0] == "\[" && [string index $rline [expr [string length $rline] - 1]] == "\]"} { set sect [string range $rline 1 [expr [string length $rline] - 2]] } elseif {[string tolower $sect] == [string tolower $section]} { set im [string tolower [string range $rline 0 [expr [string first = $rline] - 1]]] set va [string range $rline [expr [string first = $rline] + 1] end] set itm(${im}) $va } } } if {[array names itm [string tolower $item]] == ""} { return "\;" } set rtrn [set itm([string tolower $item])] return $rtrn}proc ini_write {inifile section item value} { set section [lindex [string tolower $section] 0] if {[lindex $inifile 0] == "" || [lindex $section 0] == "" || [lindex $item 0] == ""} { return 0 } if {![file exists $inifile] || [file size $inifile] == 0} { set filew [open $inifile w] puts $filew "\[$section\]" puts $filew "[string tolower $item]=$value" close $filew; return 1 } set fileo [open $inifile r] set cursect ""; set sect "" while {![eof $fileo]} { set rline [string trim [gets $fileo]] if {$rline != "" || [string index $rline 0] != "\;"} { if {[string index $rline 0] == "\[" && [string index $rline [expr [string length $rline] - 1]] == "\]"} { set cursect [string tolower [string range $rline 1 [expr [string length $rline] - 2]]] lappend sect $cursect } { set im [string tolower [string range $rline 0 [expr [string first = $rline] - 1]]] set vl [string range $rline [expr [string first = $rline] + 1] end] lappend [join "ini $cursect" ""]($im) $vl } } } close $fileo; unset fileo if {[lsearch $sect $section] == -1} { lappend sect $section } set [join "ini $section" ""]([string tolower $item]) $value set fileo [open $inifile w] foreach sct $sect { puts $fileo "\[$sct\]" foreach ite [array names [join "ini $sct" ""]] { set ite [lindex $ite 0] set valu [set [join "ini $sct" ""]($ite)] if {$ite != ""} { puts $fileo "$ite=[join $valu]" } } puts $fileo "" } close $fileo return 1}proc ini_remove { inifile section item } { set section [lindex [string tolower $section] 0] set item [lindex [string tolower $item] 0] if {[lindex $inifile 0] == ""} { return 0 } if {![file exists $inifile]} { return 0 } if {$section == ""} { return 0 } set fileo [open $inifile r] set cursect ""; set sect "" while {![eof $fileo]} { set rline [string trim [gets $fileo]] if {$rline != "" || [string index $rline 0] != "\;"} { if {[string index $rline 0] == "\[" && [string index $rline [expr [string length $rline] - 1]] == "\]"} { set cursect [string tolower [string range $rline 1 [expr [string length $rline] - 2]]] lappend sect $cursect } { set im [string tolower [string range $rline 0 [expr [string first = $rline] - 1]]] set vl [string range $rline [expr [string first = $rline] + 1] end] lappend [join "ini $cursect" ""]($im) $vl } } } close $fileo; unset fileo set sesect [lsearch $sect $section] if {$sesect == -1} { return 0 } { if {$item == ""} { set sect [lreplace $sect $sesect $sesect] } } set seitem [lsearch [array names [join "ini $section" ""]] $item] if {$seitem != -1} { unset [join "ini $section" ""]($item) if {[llength [array names [join "ini $section" ""]]] == 1} { set sect [lreplace $sect $sesect $sesect] } } if {[llength $sect] == 0} { file delete $inifile; return 1 } set fileo [open $inifile w] foreach sct $sect { puts $fileo "\[$sct\]" foreach ite [array names [join "ini $sct" ""]] { set ite [lindex $ite 0] set valu [set [join "ini $sct" ""]($ite)] if {$ite != "" && [lindex $valu 0] != ""} { puts $fileo "$ite=[join $valu]" } } puts $fileo "" } close $fileo return 1}if {[info exists version]} { putlog "Loaded [lindex $inidb_ver 0] by [lindex $inidb_ver 4]"}And this is the ini file after a single add
Code:
1. [syn[coding]] 2. rank=1234 1234 1234 1234 1234 1234 3. bracket=6 6 6 4. guild=myguild myguild myguild myguild myguild myguild 5. 6. [syn[coding]] 7. rank=1234 1234 1234 1234 1234 1234 8. bracket=6 6 6 9. guild=myguild myguild myguild myguild myguild myguild 10. 11. [syn[coding]] 12. rank=1234 1234 1234 1234 1234 1234 13. bracket=6 6 6 14. guild=myguild myguild myguild myguild myguild myguild 15. 16. [added] 17. leaders=syn[coding] Code:
Statistics: Posted by Wannabe — Fri Feb 10, 2006 1:12 pm
]]>