egghelp/eggheads community

Define script

2009-08-02T12:23:54-04:00

Am currently doing more testing on it, for now i'll reply/edit and post anything i find here soon

EDIT: Fixed see this post for the script!

Statistics: Posted by TCL_no_TK — Sun Aug 02, 2009 12:23 pm

Define script

2009-08-01T13:34:41-04:00

still doesn't work :/

Statistics: Posted by Football — Sat Aug 01, 2009 1:34 pm

Define script

2009-07-31T12:26:52-04:00

Code:

 foreach teams $footyteams {   set footyteam($teams) 0 }

Statistics: Posted by TCL_no_TK — Fri Jul 31, 2009 12:26 pm

Define script

2009-07-31T08:10:27-04:00

any solution for how it should look like, nml375?

Statistics: Posted by Football — Fri Jul 31, 2009 8:10 am

Define script

2009-07-30T13:38:37-04:00

The error lies within these three lines:

Code:

 foreach teams $footyteams {  set footyteam($teams) }

Using set with no value argument is equivalent as reading the variable (set will return the current value of the variable, or throw an error if the variable is not set).

Statistics: Posted by nml375 — Thu Jul 30, 2009 1:38 pm

Define script

2009-07-30T12:56:44-04:00

Same error

Statistics: Posted by Football — Thu Jul 30, 2009 12:56 pm

Define script

2009-07-30T12:29:43-04:00

Code:

 foreach team $tmp {   set footyteam($team) [expr {$footyteam($team) +1}]  }

changing this to

Code:

 foreach team $tmp {   if {[info exists footyteam($team)]} {   set footyteam($team) [expr {$footyteam($team) +1}]   } }

should fix that with a bit of luck

Statistics: Posted by TCL_no_TK — Thu Jul 30, 2009 12:29 pm

Define script

2009-07-30T11:18:13-04:00

Thanks a lot, it works good now

only problem I guess is with the sum

Tcl error [ft:sum:pub]: can't read "footyteam(BarcelonaDinamo)": no such variable

Statistics: Posted by Football — Thu Jul 30, 2009 11:18 am

Define script

2009-07-30T08:01:14-04:00

Code:

  if {[onchan "$nick"]} {    if {[adduser "$nick" "[mashost [getchanhost $nick]]"]} {

Error was a spelling mistake, change the above line to

Code:

  if {[onchan "$nick"]} {    if {[adduser "$nick" "[maskhost [getchanhost $nick]]"]} {

Second part, lost track of what i was doing! change

Code:

 set footyteams(teams) [lsort -unique [lsort -command compare "$tmp"]]  foreach teams $footyteams {   set footyteam($teams)  }

to this

Code:

 set footyteams(teams) [lsort -unique [lsort -command compare "$tmp"]]  foreach teams $footyteams(teams) {   set footyteam($teams)  }

One thingy i didn't mention, the following settings

Code:

#change these if required set footyteams(needop) "1"

Setting this to 1 will only allow Channel Operators to change someone else's fave team, setting this to -1 will only allow people who are voiced on the channel to change someone else's fave team.

Statistics: Posted by TCL_no_TK — Thu Jul 30, 2009 8:01 am

Define script

2009-07-30T06:33:16-04:00

Thanks for helping out.

I have two errors though.

the !team team-here works
but the eggy writes me the error
[13:30:42] [12:30] Tcl error [ft:team:pub]: invalid command name "mashost"

even though when I type !Team, it shows me the team I've set.

Second error, after I added the 'Sum' part:

[13:32:05] [12:31] Tcl error [ft:sum:pub]: can't read "footyteams": variable is array

Statistics: Posted by Football — Thu Jul 30, 2009 6:33 am

SCRIPT

2009-08-02T18:20:56-04:00

Here's the example of the some of the output

Code:

[23:15:13] <@Me> !sum[23:15:15] <+bot> ======= TEAMS =======[23:15:17] <+bot> [1] England   (2 Supporters)[23:15:19] <+bot> [2] Brazil   (1 Supporters)[23:15:21] <+bot> [3] Leafs   (1 Supporters)[23:15:23] <+bot> [4] Manchester United   (1 Supporters)[23:15:25] <+bot>  [23:15:27] <+bot>  Total Players: 5[23:15:29] <+bot> =====================

It was alot of fun testing it so i hope ur channel will enjoy it alot

rewrote almost the whole thing again! and got alot of code and points from the tcl wiki' so look out for the credits in the script hope it works great for you! but if not just let make an other post n i'll see what i can do

Code:

 proc matchxtra {xtra} {  set matches ""  foreach i [userlist] {   append matches " [getuser $i XTRA $xtra]"  }   return $matches } proc footyplayers {} {  return [llength [matchxtra "TEAM"]] } proc footyteams {channel {output ""} {queue ""}} {  if {$output == ""} {   set output "PRIVMSG"  }  if {$queue == ""} {   set queue "puthelp"  }  set contents [matchxtra "TEAM"]  #-- Credit http://wiki.tcl.tk/20508  #  # Count the words  #  foreach word $contents {   if { [info exists count($word)] } {    incr count($word)   } else {    set count($word) 1   }  }  #  # Convert the data into a form easily sorted  #  set frequencies {}  foreach word [array names count] { lappend frequencies [list $word $count($word)]  }  set sorted [lsort -index 1 -integer -decreasing \   [lsort -index 0 $frequencies]]  $queue "$output $channel :======= TEAMS ======="  set nO 0  foreach frequency $sorted {   set nO [expr {$nO+1}]   $queue "$output $channel :\[$nO\] [regsub -all "_" [lrange $frequency 0 end-1] " "]   ([lrange $frequency end end] Supporters)"  }  $queue "$output $channel : "  $queue "$output $channel : Total Players: [footyplayers]"  $queue "$output $channel :====================="  return } #since the script adds users to eggdrop's userfile, its very important to #make sure this setting isn't used to give them any flags! set default-flags "-" #please dont remove the above line proc addplayer {nick {channel ""} hostmask team} {  if {[validuser $nick] || [validuser [nick2hand $nick]]} {   return 3  }  if {($channel == "") && (![onchan $nick])} {   return 4  }  if {[adduser "$nick" "[maskhost $hostmask]"]} {   putlog "football_teams.tcl: Added new user $nick \[$hostmask\] with TEAM: $team to userfile"   setuser $nick XTRA TEAM "$team"   setuser $nick COMMENT "added by football_teams.tcl"   return 1  } else {   return 2  } } proc getteam {handle} {  if {[validuser $handle]} {   return [getuser $handle XTRA TEAM]  }  return } proc clearteam {handle} {  if {[validuser $handle]} {   setuser $handle XTRA TEAM ""   return 1  }   return 0 } proc setteam {handle team} {  if {[validuser $handle]} {   setuser $handle XTRA TEAM "$team"   return 1  } elseif {[validuser [nick2hand $handle]]} {   setuser [nick2hand $handle] XTRA TEAM "$team"   return 2  } else {   return 3  } } bind pub -|- !team pub:team bind pub -|- !sum pub:sum  proc pub:team {nick host hand chan text} {  if {[llength $text] == 0} {   set team [getteam $hand]   if {$team != ""} {    puthelp "PRIVMSG $chan :$nick's favourite team is \002$team\002!!!"   }   return  }  set string [lindex [split $text] 0]  if {[validuser "$string"]} {   # first string is a    set team [join [lrange [split $text] 1 end]]   #check we've been given a team   if {$team == ""} {return}   regsub -all " " $team "_" teamname   switch [setteam "$string" "$teamname"] {    "3" {         #again, shouldn't happen         return        }    "2" {         #just means they were added, but nick2hand was used         puthelp "NOTICE $nick :$string's faviourite team is '$team'"         return 1        }    "1" {         #all good baby!         puthelp "NOTICE $nick :$string's faviourite team is '$team'"         return 1        }   }     } elseif {[validuser [nick2hand "$string"]]} {   # first string is a    set team [join [lrange [split $text] 1 end]]   #check we've been given a team   if {$team == ""} {return}   regsub -all " " $team "_" teamname   # we dont need an other 'nick2hand' here since the 'setteam' already dose it   switch [setteam "$string" "$teamname"] {    "3" {         #again, shouldn't happen         return        }    "2" {         #just means they were added, but nick2hand was used         puthelp "NOTICE $nick :$string's faviourite team is '$team'"         return 1        }    "1" {         #all good baby!         puthelp "NOTICE $nick :$string's faviourite team is '$team'"         return 1        }   }  } elseif {[onchan "$string" "$chan"]} {   # first string is a     #set the team    set team [join [lrange [split $text] 1 end]]    #check a team was given    if {$team == ""} {return}    #we remove spaces here, and replace them with '_'    #since spaces in team names will cause trouble with the output    regsub -all " " $team "_" teamname    set addy "$string![getchanhost $string $chan]"    switch [addplayer "$string" "$chan" "$addy" "$teamname"] {     "3" {          setteam "$string" "$teamname"          puthelp "NOTICE $nick :$string's favourite team is '$team'"          return 1         }     "4" {          #i very much doubt this will even be returned by this proc but just incase          #its here          return         }     "1" {          puthelp "NOTICE $nick :$string's favourite team is '$team'"           return 1         }     "2" {          puthelp "NOTICE $nick :Sorry, i was unable to add '$string' with team '$team' Please try again late."           return 0         }    }  } else {   # first string is a    # validate user   if {[validuser "$hand"]} {    set team [join [lrange [split $text] 0 end]]    regsub -all " " $team "_" teamname    switch [setteam "$nick" "$teamname"] {     "3" {          #again, shouldn't happen          return         }     "2" {          #just means they were added, but nick2hand was used          puthelp "NOTICE $nick :Youre faviourite team is '$team'"          return 1         }     "1" {          #all good baby!          puthelp "NOTICE $nick :You're faviourite team is '$team'"          return 1         }    }   } else {    #set the team    set team [join [lrange [split $text] 0 end]]    #we remove spaces here, and replace them with '_'    #since spaces in team names will cause trouble with the output    regsub -all " " $team "_" teamname    set addy "$nick!$host"    switch [addplayer "$nick" "$chan" "$addy" "$teamname"] {     "3" {          #dont panic, this just means they are already a user *sigh*          #so its safe to assume that we can just use 'setteam' rite?          # -- should of been caught by [validuser $hand] thou? >_<          setteam "$nick" "$teamname"          puthelp "NOTICE $nick :You're favourite team is '$team'"          return 1         }     "4" {          #i very much doubt this will even be returned by this proc but just incase          #its here          return         }     "1" {          puthelp "NOTICE $nick :You're favourite team is '$team'"           return 1         }     "2" {          puthelp "NOTICE $nick :Sorry, i was unable to add u with team '$team' Please try again late."           return 0         }    }    #think thats it for dis bit :>   }  } } proc pub:sum {nick host hand chan text} {  if {[footyplayers] == 0} {   puthelp "NOTICE $nick :noone has set there faviourite team yet!"   return 0  }  footyteams "$chan" "" ""  return 1 } putlog "loaded football_teams.tcl by TCL_no_TK" return

Statistics: Posted by TCL_no_TK — Wed Jul 29, 2009 2:43 pm

Define script

2009-07-09T04:31:34-04:00

A script request.

a Script that will have a define trigger (!Team), so that when you type !team team it will define that nick's team.
example:

!Team Xabriel Tottenham
[11:29:03] -EPL- Xabriel's favourite team is now 'Tottenham'

and then when you type !Sum on the channel it will announce how many users are defined, and out of the defined users how many supports which teams (in percent)

Example:
!Sum
There are 18 defined users. 9 Support Tottenham (50%), 9 Support Arsenal (50%)

Statistics: Posted by Football — Thu Jul 09, 2009 4:31 am