egghelp/eggheads community

Writing a manual points tracking script - need some guidance

2014-07-31T17:24:29-04:00

I might start out that script a little more like this...

Code:

set our_chan ""  ;## <- MUST set a channel!##bind msg o points addpoints proc addpoints {nick host hand text} {   global our_chan    lassign [split [string trim $text]] whom points   if {$whom eq ""} {      puthelp "PRIVMSG $nick :Use: \002/msg $::botnick  \[points\]\002"       return 0    }   if {![validuser $whom]} {      puthelp "PRIVMSG $nick :\002$whom\002 is not a valid handle!"       return 0    }   if {[string match -nocase $whom $hand]} {      puthelp "PRIVMSG $nick :You can't award yourself points. Don't be a schmuck."       return 0    }   if {![string is digit -strict $points]} {  set points 100  }          puthelp "PRIVMSG $our_chan :$nick gives $points to $whom."    # now you can check if they already have any points   # and do the math for their new total points   # and save the new total points to the user file   return 0}

Statistics: Posted by SpiKe^^ — Thu Jul 31, 2014 5:24 pm

Writing a manual points tracking script - need some guidance

2014-07-31T10:46:57-04:00

Awesome! Thanks - I've never used Tcl before, so a lot of the syntax is very new to me.

Statistics: Posted by hideflomein — Thu Jul 31, 2014 10:46 am

Writing a manual points tracking script - need some guidance

2014-07-31T10:39:59-04:00

First off, any proc called by a /msg bind MUST be called with the correct number of arguments...

bind msg
procname

Your addpoints proc must have exactly 4 arguments like...

Code:

proc addpoints {nick host hand text} {

Notice that a /msg bind doesn't provide a channel to the called proc.
So your very first if statement fails with unknown var $chan...

Code:

if {[string tolower $chan] != $our_chan} {

Statistics: Posted by SpiKe^^ — Thu Jul 31, 2014 10:39 am

Writing a manual points tracking script - need some guidance

2014-07-31T09:20:08-04:00

So I'm writing a script for a points tracking system for my eggdrop. The idea is that an op can /msg the bot with the command "points " where is optional (if left blank, it defaults to 100). The bot then stores the score in the user's whois field under "points".

Code:

set our_chan ""bind msg o points addpointsproc addpoints {nick text} {global our_chanif {[string tolower $chan] != $our_chan} {return 0}set whom [lindex $text 0]if {$whom != $nick} {set inputparse [lrange $text first last]if {[inputparse first] == [inputparse last]} {set points 100} else {set points [lindex $text 1]}putserv "PRIVMSG $chan :$nick gives $points to $whom."} else {putserv "PRIVMSG $nick: You can't award yourself points. Don't be a schmuck."}}

I think I'm on the right track, but I'm not sure if I have everything I need.

Statistics: Posted by hideflomein — Thu Jul 31, 2014 9:20 am