Code:

proc find {nick host hand chan arg} {   global findstamp   if {[string length $arg] < 3} {       putquick "NOTICE $nick : oh pls n00b... use more than 2 characters ffs"       return 0   }   if {[info exists findstamp]} {      if {[expr [unixtime] - $findstamp] < 10} {         puthelp "NOTICE $nick : ystem is currently busy."         return 0      }    }    putquick "NOTICE $nick 4Starting Search For 9 [lindex [split $arg] 0]  4Please wait..."     set stat [exec_players]     set stat_arr [split $stat "\n"]     set i 0     set str $stat_arr     set found 0     #    set str [lsort $stat_arr]     for {set i 0} {$i < [llength $str]} {incr i} {    set j [expr $i + 1]    # Loop through all the players and save them into a list    while {[string range [lindex $str $j] 0 6] == "Player:"} {        set player [string trimleft [lindex $str $j] "Player:"]        set playername [lindex [split $player " "] 2]        set server [join [lindex [split [lindex $str $i] "] 1] " "]        if {[string first [string tolower $arg] [string tolower $playername]] != -1} then {       incr found       putquick "NOTICE $nick :$playername is on $server"        }        incr j    }    # Make sure we don't check through the players again    set i [expr $j - 1]     }     set info_str [get_number_of $found "player"]     putquick "NOTICE $nick :$info_str"     catch {unset findstamp}    return 0 }

Code:

proc find {nick host hand chan arg} { if {[string length $arg] < 3} {   global findstamp   set currenttime [unixtime]   if { [info exists findstamp] } {      if { [expr $currenttime - $findstamp] < 10 } {         puthelp "PRIVMSG $chan :System is currently busy."         return# they put in less than four characters.. bitch at them    putquick "NOTICE $nick : oh pls n00b... use more than 2 characters ffs"    return    } else { }     putquick "NOTICE $nick :4Starting Search For 9 [lindex [split $arg] 0]  4Please wait..."     set stat [exec_players]     set stat_arr [split $stat "\n"]     set i 0     set str $stat_arr     set found 0     #    set str [lsort $stat_arr]     for {set i 0} {$i < [llength $str]} {incr i} {    set j [expr $i + 1]    # Loop through all the players and save them into a list    while {[string range [lindex $str $j] 0 6] == "Player:"} {        set player [string trimleft [lindex $str $j] "Player:"]        set playername [lindex [split $player " "] 2]        set server [join [lindex [split [lindex $str $i] ""] 1] " "]        if {[string first [string tolower $arg] [string tolower $playername]] != -1} then {       incr found       putquick "NOTICE $nick :$playername is on $server"        }        incr j    }    # Make sure we don't check through the players again    set i [expr $j - 1]     }     set info_str [get_number_of $found "player"]     putquick "NOTICE $nick :$info_str"     return 0 }   }   utimer 0 [exec_players]   puthelp "PRIVMSG $chan :Data processing has started, please wait."   set findstamp $currenttime}

Code:

bind pub - !find trigfindproc trigfind { nick uhost hand chan text } {   global findstamp   set currenttime [unixtime]   # Check if a timestamp exists   # Note that the existence of the "findstamp" indicates that the   # data processing is still busy. Or something went wrong   # during the data processing and the variable was never unset.   if { [info exists findstamp] } {      # It is assumed that the data processing always takes      # less than 10 seconds.  This is a sanity check.      if { [expr $currenttime - $findstamp] < 10 } {         puthelp "PRIVMSG $chan :System is currently busy."         # do not proceed any further and ...         return      }   }   # trigger the stats data processing proc   utimer 0 [list execfind $chan $text]   # notify the channel: data processing has started   puthelp "PRIVMSG $chan :Data processing has started, please wait."   # reset the timestamp   set findstamp $currenttime}proc execfind { chan text } {   global findstamp   puthelp "PRIVMSG $chan :Hello $chan! ($text)."   # do stats data processing here   # ...   # ...   # ...   # end stats processing here   # unset the timestamp and eggdrop is ready for new    # requests.   if { [info exists findstamp] } { unset findstamp }}

Code:

utimer 5 [list catch {unset findhold}]

Code:

utimer 5 [list catch [list unset findhold]]

Code:

proc find {nick host hand chan arg} { global findholdif {[info exists findhold]} {  puthelp "PRIVMSG $nick :Search info system is busy, please try again in 5 seconds"  return}set findhold 1utimer 5 [list catch {unset findhold}]if {[string length $arg] < 3} { # they put in less than four characters.. bitch at them 

Code:

proc find {nick host hand chan arg} {if {[string length $arg] < 3} { # they put in less than four characters.. bitch at them putquick "NOTICE $nick : oh pls n00b... use more than 2 characters ffs"return} else { }    putquick "NOTICE $nick :4Starting Search For 9 [lindex [split $arg] 0]  4Please wait..."     set stat [exec_players]    set stat_arr [split $stat "\n"]    set i 0    set str $stat_arr    set found 0    #    set str [lsort $stat_arr]    for {set i 0} {$i < [llength $str]} {incr i} {set j [expr $i + 1]# Loop through all the players and save them into a listwhile {[string range [lindex $str $j] 0 6] == "Player:"} {    set player [string trimleft [lindex $str $j] "Player:"]    set playername [lindex [split $player " "] 2]    set server [join [lindex [split [lindex $str $i] ""] 1] " "]    if {[string first [string tolower $arg] [string tolower $playername]] != -1} then {incr found      putquick "NOTICE $nick :$playername is on $server"    }    incr j}# Make sure we don't check through the players againset i [expr $j - 1]    }    set info_str [get_number_of $found "player"]    putquick "NOTICE $nick :$info_str"    return 0}