egghelp/eggheads community

REQ: Small Modification of Bartender Script

2013-02-01T15:24:30-04:00

meh.. was working with string map on another script and accidentally slipped it in instead of a simple join.

no, according to dict manual example I don't need to add

. and no. i intended to make serving an int as 0 means everyone and 1 only currently oped or voiced, and somehow after some tests ended with str.

Statistics: Posted by caesar — Fri Feb 01, 2013 3:24 pm

REQ: Small Modification of Bartender Script

2013-02-01T19:54:27-04:00

Code:

# Tcl 8.4 friendly version .. 8)# credit: caesar# enable: .chanset #chan +serving# Amount of drinks each person may# request in a certain amount of time# 3:30 means 3 drinks in 30 seconds# the 4th is throttled until 30 seconds has# elapsed from their first drink.#set drinkThrottle 3:30# about the array:# %nick will become $nick (the nickname)# %chan will become $chan (the channel)# \n will make the output span onto a new line.#array set drinks { corona "\001ACTION snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to %nick\001\nEnjoy mate." coors "\001ACTION pisses in a mug then slides it down the bar to %nick.\001\nDrink up %nick!" bud "Um...%nick, we don't serve that in %chan...\nTry a gay bar.. haw!" vodka "here you go %nick, knock yourself out!\n\001ACTION slides a shot down the bar to %nick.\001" tea "I'm out of tea, sorry %nick..\nOh wait, I do have tea.\nWait, no I don't.. :P" tip "%nick better follow the rules in %chan.\nOr does %nick want a nice kickban instead?"}setudef flag servingbind pubm - "% !*" drink:orderbind pub - !drinks drink:menuproc drink:order {nick uhost hand chan text} {   if {[channel get $chan serving]} {  foreach {drink type} [split $text] { break }      if {[isop $nick $chan] || [isvoice $nick $chan]} {         drink:serve $nick $uhost $chan [string range $drink 1 end] $type      }   }}proc drink:serve {nick uhost chan drink type} {   global drinks   if {[string length $drink]} {      foreach name [array names drinks] { lappend lowerDrinks [string tolower $name] }      if {[lsearch -exact $lowerDrinks $drink] != -1} {         if {[set wait [throttle_ $uhost,$chan,drink [lindex $::drinkThrottle 1] [lindex $::drinkThrottle 0)]]] != 0} {            putserv "privmsg $chan :$nick, please wait [lindex $wait 0] seconds for your next drink. You are above the drink request limit by [expr {[lindex $wait 1] - $::drinkAmount}] at the moment. Slow down..."         } else {            if {[string length $type] && [onchan $type $chan]} { set nick $type }            foreach line [split $drinks($drink) \n] {               puthelp "PRIVMSG $chan :[string map [list %chan $chan %nick $nick] $line]"             }         }      }   }}proc drink:menu {nick uhost hand chan text} {   if {[channel get $chan serving]} {      if {[isop $nick $chan] || [isvoice $nick $chan]} {         drink:fetch $nick $chan      }   } else {      drink:fetch $nick $chan   }}proc drink:fetch {nick chan} {   global drinks   puthelp "PRIVMSG $chan :Drinks currently available: ![join [array names drinks] ", !"]"} # Throttle Proc (slightly altered, super action missles) - Thanks to user# see this post: http://forum.egghelp.org/viewtopic.php?t=9009&start=3proc throttle_ {id seconds amount} {   if {[info exists ::throttled_($id)]&&[lindex $::throttled_($id) 0]>[clock seconds]} {      set ::throttled_($id) [list [lindex $::throttled_($id) 0] [set value [expr {[lindex $::throttled_($id) 1] +1}]]]      if {$value > $amount} { set id ::throttled_($id) } { set id 0 }   } {      set ::throttled_($id) [list [expr {[clock seconds]+$seconds}] 1]      set id 0   }}# delete expired entries every 10 minutesbind time - ?0* throttleclean_ # sub - clean throttled usersproc throttleclean_ {args} {   set now [clock seconds]   foreach {id time} [array get ::throttled_] {      if {[lindex $time 0]<=$now} {unset ::throttled_($id)}   }} #eof

Edit1:
Modified post above from original. Since the script was corrected, here is a tcl8.4 friendly version of the same script. Also added a throttle system that will keep users from abusing and at the same time amusing.

Edit2:
Improved and added proactive throttle control.

Edit3:
Added ability to match intent of OP's original script:
!corona - the nick issuing !corona gets one.. yay
!corona - the nickname typed gets a corona if they are in channel otherwise the person typing it will.

Statistics: Posted by speechles — Fri Feb 01, 2013 3:02 pm

REQ: Small Modification of Bartender Script

2013-02-01T06:10:10-04:00

Heh ive modifyed its code if i was to create another one it was smaller of course

Statistics: Posted by Madalin — Fri Feb 01, 2013 6:10 am

REQ: Small Modification of Bartender Script

2013-02-01T15:29:43-04:00

Here's my attempt to do this:

Code:

dict set drinks "beer" "snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to you....enjoy mate"dict set drinks "vodka" "here you go, knock yourself out!"dict set drinks "tea" "I'm out  of tea, sorry.."# 0 - everyone, 1 - currently opped or voicedsetudef int servingbind pubm * "% !*" drink:orderbind pub * !drinks drink:menuproc drink:order {nick uhost hand chan text} {set drink [lindex [split $text !] 1]if {[channel get $chan serving]} {if {[isop $nick $chan] || [isvoice $nick $chan]} {drink:serve $nick $chan $drink}} else {drink:serve $nick $chan $drink}}proc drink:serve {nick chan drink} {global drinksif {[string length $drink]} {if {[lsearch -nocase [dict keys $drinks] $drink] != -1} {puthelp "PRIVMSG $chan :[dict get $drinks $drink]"}}}proc drink:menu {nick uhost hand chan text} {if {[channel get $chan serving]} {if {[isop $nick $chan] || [isvoice $nick $chan]} {drink:fetch $nick $chan}} else {drink:fetch $nick $chan}}proc drink:fetch {nick chan} {puthelp "PRIVMSG $chan :Drinks currently available: [join [dict keys $::drinks] ", "]"}

Feel free to add \001ACTION or whatever you wish.

Edit: Fixed. Damn typo..

Statistics: Posted by caesar — Fri Feb 01, 2013 6:07 am

REQ: Small Modification of Bartender Script

2013-01-31T17:09:27-04:00

You only have to change

set temp(type) "1"

1 = only voices
2 = only ops
3 = everyone

Code:

### temp(type) "1" (only voice users can use the command)### temp(type) "2" (only op users can use the command)### temp(type) "3" (everyone can use the command)# Trigger#############################################################################set cmdz "!"#############################################################################bind pub - ${cmdz}booze pub_boozeset temp(type) "1"proc pub_booze {nick uhost hand channel arg} {global botnick cmdz tempif {$temp(type) == "1"} {if {[isvoice $nick $channel]} {putquick "PRIVMSG $nick :1,13Bars Open! Heres what we got for ya:"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"putquick "PRIVMSG $nick :13,1${cmdz}Corona, ${cmdz}vodka"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"return 0}} elseif {$temp(type) == "2"} {if {[isop $nick $channel]} {putquick "PRIVMSG $nick :1,13Bars Open! Heres what we got for ya:"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"putquick "PRIVMSG $nick :13,1${cmdz}Corona, ${cmdz}vodka"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"return 0}} elseif {$temp(type) == "2"} {putquick "PRIVMSG $nick :1,13Bars Open! Heres what we got for ya:"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"putquick "PRIVMSG $nick :13,1${cmdz}Corona, ${cmdz}vodka"putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"return 0}}##############Start of the drinks#################proc pub_corona {nick uhost hand channel arg} {global botnick tempif {$temp(type) == "1"} {if {[isvoice $nick $channel]} {set theNick $nickif { [llength $arg] == 1 } {set theNick [lindex [split $arg] 0]}putserv "PRIVMSG $channel :\001ACTION snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to you....enjoy mate"return 0}} elseif {$temp(type) == "2"} {if {[isop $nick $channel]} {set theNick $nickif { [llength $arg] == 1 } {set theNick [lindex [split $arg] 0]}putserv "PRIVMSG $channel :\001ACTION snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to you....enjoy mate"return 0}} elseif {$temp(type) == "3"} {set theNick $nickif { [llength $arg] == 1 } {set theNick [lindex [split $arg] 0]}putserv "PRIVMSG $channel :\001ACTION snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to you....enjoy mate"return 0}}

Statistics: Posted by Madalin — Thu Jan 31, 2013 5:09 pm

REQ: Small Modification of Bartender Script

2010-06-13T13:25:54-04:00

Hello Egghelp Community,

I have a bartender script that i would like to be slightly modified.

Basically, i would like only people who are currently opped or voiced to be able to use the trigger.

It would be fantastic if you could add some scripting where i can select either channels ops or channel voiced or everybody who can use the trigger
e.g. 'users able to access trigger 1. only ops
2. ops & voices
3. Everyone

Currently the script allows anyone to use it and people have been abusing it, spamming and such. Would be a great help to us if you TCL Gurus can come to our aid. Also any modifications you see fit would be welcome too.

I thank you all in advance and please find the script below (i included only the first part and a drink)
best regards,
Achilles

Code:

# Trigger#############################################################################set cmdz "!"#############################################################################bind pub - ${cmdz}booze pub_boozeproc pub_booze {nick uhost hand channel arg} {  global botnick cmdz    putquick "PRIVMSG $nick :1,13Bars Open! Heres what we got for ya:"    putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"    putquick "PRIVMSG $nick :13,1${cmdz}Corona, ${cmdz}vodka"    putquick "PRIVMSG $nick :------------------------------------------------------------------------------------------------"    return 0}##############Start of the drinks#################proc pub_corona {nick uhost hand channel arg} {   global botnick   set theNick $nick  if { [llength $arg] == 1 } {    set theNick [lindex [split $arg] 0]  }    putserv "PRIVMSG $channel :\001ACTION snaps off the top of a long-necked, ice cold Corona, slips in a slice of lime and hands it to you....enjoy mate"    return 0        }

Statistics: Posted by achilles1900 — Sun Jun 13, 2010 1:25 pm