egghelp/eggheads community

game script - gathering points

2011-01-13T11:24:01-04:00

thanks willyw, it's working great,

Good to know!

but is it possible to add timer to script? so you can use trigger only once per day (and if someone use trigger before bot i'll send notice with remaining time).

I'd have to think about that a while.
Maybe somebody else here would like to modify it.... or, feel free to modify it yourself. If you make a try at it, usually somebody around here can advise you on it.

and how to decrease number of given/taken points (3 will be enough for my channel)

(I'm doing this off the top of my head, and it is not tested)
Find:

Code:

set randnum [rand 21]

and change to:

Code:

set randnum [rand 7]

Find:

Code:

if {$randnum < 11 } {

and change to:

Code:

if {$randnum < 4 } {

Find:

Code:

if {$randnum >= 11} {

and change to:

Code:

if {$randnum >= 4} {

Find:

Code:

$randnum - 21

in three places, and change to:

Code:

$randnum - 7

and last thing, if someone use trigger first time bot will only give points or give nothing, and it'd be great if 0 would be minimum points you have (so there won't be negative points)

Again, I'd have to think about that a while.

Statistics: Posted by willyw — Thu Jan 13, 2011 11:24 am

game script - gathering points

2011-01-13T11:11:51-04:00

You should add at least a 'bind evnt' for prerehash

I thought about it, but since values are not lost with a rehash, I didn't.

and prerestart to save that list.

?
Perhaps you overlooked it? ... or I'm not understanding you?

Statistics: Posted by willyw — Thu Jan 13, 2011 11:11 am

game script - gathering points

2011-01-13T10:56:56-04:00

thanks willyw, it's working great, but is it possible to add timer to script? so you can use trigger only once per day (and if someone use trigger before bot i'll send notice with remaining time). and how to decrease number of given/taken points (3 will be enough for my channel)

and last thing, if someone use trigger first time bot will only give points or give nothing, and it'd be great if 0 would be minimum points you have (so there won't be negative points)

Statistics: Posted by Anahel — Thu Jan 13, 2011 10:56 am

game script - gathering points

2011-01-13T02:01:28-04:00

You should add at least a 'bind evnt' for prerehash and prerestart to save that list.

Statistics: Posted by caesar — Thu Jan 13, 2011 2:01 am

Re: game script - gathering points

2011-01-13T00:54:28-04:00

Code:

# Commands:## !points## !savepoints## !clearpoints### !points : plays the game as described in request# !savepoints: saves nicks and respective points (use before killing bot)# !clearpoints: erases points (only for +n users)## If you use   .restart  to restart the bot, points will be saved.## The range of points awarded is -10 to 10 .##set the path and filename of the file that will hold the nicks and their respective pointsset pointsfile "scripts/random_points_game.txt"bind pub - "!points" randpointsbind pub - "!savepoints" savepointsbind pub n "!clearpoints" clearpointsbind evnt - prerestart writepointsfileif {[file exists $pointsfile]} {set fp [open $pointsfile r]set data [split [read -nonewline $fp] \n]  foreach i $data {    set name [lindex [split $i] 0]    set pointsvalue [lindex [split $i] 1]    set points($name) $pointsvalue  }close $fp  }proc randpoints {nick uhost handle chan text} {global botnick pointsset randnum [rand 21]if {$randnum == 0 } {if {![info exists points($nick)]} {set points($nick) 0    }putserv "privmsg $chan :$botnick gives $randnum points to $nick, you've now $points($nick)."return  }if {$randnum < 11 } {if {[info exists points($nick)]} {set points($nick) [expr $points($nick) + $randnum ]    } else {set points($nick) $randnum    }putserv "privmsg $chan :$botnick gives $randnum points to $nick, you've now $points($nick)."return  }if {$randnum >= 11} {if {[info exists points($nick)]} {set points($nick) [expr $points($nick) + $randnum - 21 ]    } else {set points($nick) [expr $randnum -21 ] }putserv "privmsg $chan :$botnick gives [expr $randnum - 21 ] points to $nick, you've now $points($nick)."return }}proc savepoints {nick uhost handle chan text} {global points pointsfile  set fp [open $pointsfile w]  foreach {name pointsvalue} [array get points] {    puts $fp "$name $pointsvalue"  }  close $fp  return 0} proc clearpoints {nick uhost handle chan text} {global points pointsfileset fp [open $pointsfile w]close $fpunset pointsputserv "privmsg $chan :All points cleared"}proc writepointsfile {prerestart} {global points pointsfile  set fp [open $pointsfile w]  foreach {name pointsvalue} [array get points] {    puts $fp "$name $pointsvalue"  }  close $fp  return 0} putlog "http://forum.egghelp.org/viewtopic.php?p=95644#95644"

With a couple brief tests, it worked for me.

Hopefully others will comment, or post other methods. I'm curious to learn if my way of doing it is ok.

Good luck with it.

Statistics: Posted by willyw — Thu Jan 13, 2011 12:54 am

game script - gathering points

2011-01-12T18:20:17-04:00

I'm looking for a game script which would give users points (or something like that) on command, like:

me: !points
bot gives 2 points to , you've now 2 points.

or radomly take away them, or give nothing.

i searched both forums and tcl archive and couldn't find something like that, maybe someone have similar script, or know how to do it without much effort (i've [censored] tcl skills and have no idea how to do script such as this one).

Statistics: Posted by Anahel — Wed Jan 12, 2011 6:20 pm