| View previous topic :: View next topic |
| Author |
Message |
crymsun
Voice
Joined: 13 Nov 2018
Posts: 33
|
 Posted: Sun Dec 02, 2018 12:12 pm Post subject: Timed Messages - adding trigger |
 |
|
I had wanted timed "Did you know?" messages to display on the channel every 30 min (or whatever interval), and also upon the !know trigger.
I am asking for help with:
- how can I add the !know trigger so that a line from the text file is posted every 30 min, and in addition when a user types !know, the bot randomly selects a line and posts it to the channel (without interrupting the 30 min intervals)?
I had originally tried a script from the archive that had the trigger, but it completely crashed my bot, so I searched for another.
Here is the code:
| Code: | ## adv.tcl -- 1.5 *BETA*
#
# Allows you to advertise across many channels, usually used in
# large channels or shell channels.
#
# Copyright (c) 2010 HM2K
#
# Name: Channel Advertisement
# Author: HM2K <irc@hm2k.org>
# License: http://www.opensource.org/licenses/bsd-license.php BSD License
# Link: http://
# Labels: advertise, channel
# Updated: 29-Dec-2010
#
###Revisions
# 1.5 - improved header, added binds, fixed write bug, improved syntax
# 1.4 - fixed a few syntax bugs
# 1.3 - load/edit/add/delete ads from a text file now
# 1.2 - minor changes
# 1.1 - minor changes
# 1.0 - innitial release
###ToDo
# 2.0 - ...
### Usage
#.+adv - \002Your Advert Here!\002 - An advert can be a great way for you to get people interested in your company/channel/website, we accept all types, if you would like to advertise please \002/MSG $owner for details\002
#.+adv \002My Company\002: Details about your company here!
#.-adv 1
#.advlist
### Settings
set adv(time) 30; # Time delay between advert messages. (in minutes)
set adv(chans) "#DsParadisum"; #Channels to advertise in
set adv(file) "/home/paradisum/eggdrop1.8/scripts/didyouknow.txt"; # Text file with lines of advert text
### Binds
bind dcc m +adv adv:dccadd;
bind dcc m -adv adv:dccdel;
bind dcc m advlist adv:dcclist;
### Variables
set adv(timer) 0;
set adv(text) "";
set adv(ver) "1.5";
### Procedures
proc adv:dccadd {ha idx arg} {
global adv;
if {[llength $arg]==0} { putidx $idx "Usage: .+adv <advert text>"; return; }
set r [adv:add $arg];
if {$r == 0} {
putidx $idx "Advert add failed.";
} else {
putidx $idx "Advert added successfully.";
}
}
proc adv:add {info} {
global adv;
lappend adv(text) $info;
if {[catch {open $adv(file) a} advfile]} {
putlog "Unable to open file '$adv(file)' for writing.";
return 0;
}
puts $advfile $info;
close $advfile;
return 1;
}
proc adv:dccdel {ha idx arg} {
global adv;
if {[llength $arg]==0} { putidx $idx "Usage: .-adv <advert id>"; return; }
set r [adv:del $arg];
if {$r == 0} {
putidx $idx "Advert delete failed.";
} else {
putidx $idx "Advert deleted successfully.";
}
}
proc adv:del {id} {
global adv;
set adv(text) [lreplace $adv(text) $id $id];
return [adv:save];
}
proc adv:save {} {
global adv;
if {[catch {open $adv(file) w} advfile]} {
putlog "Unable to open file '$adv(file)' for writing.";
return 0;
}
foreach line $adv(text) {
puts $advfile $line;
}
close $advfile;
return 1;
}
proc adv:dcclist {ha idx arg} {
global adv;
set n 0;
foreach line $adv(text) {
putidx $idx "$n: $line";
incr n;
}
}
proc adv:print {} {
global adv;
set advmsg [lindex $adv(text) [rand [llength $adv(text)]]];
foreach advchan $adv(chans) {
if {[info exists {advchan}] && [info exists {advmsg}]} {
putserv "PRIVMSG $advchan :$advmsg";
}
}
timer ${adv(time)} adv:print;
}
proc adv:init {} {
global adv;
if {$adv(timer) != 1} {
set adv(timer) 1;
timer ${adv(time)} adv:print;
}
if {[catch {set advfile [open $adv(file) r]} advfile]} {
putlog "Unable to open file '$adv(file)' for reading.";
return 0;
}
while {![eof $advfile]} {
gets $advfile line;
lappend adv(text) "$line";
}
}
### Initialise
adv:init;
### Loaded
putlog "adv.tcl $adv(ver) loaded";
|
|
|
| Back to top |
|
 |
SpiKe^^
Owner
Joined: 12 May 2006
Posts: 792
Location: Tennessee, USA
|
| Posted: Tue Dec 04, 2018 8:54 pm Post subject: Say !know |
|
|
Try adding this to your script somewhere. | Code: |
bind pub - !know adv:know
proc adv:know {nk uh hn ch tx} { global adv
if {[lsearch -nocase $adv(chans) $ch] < 0} { return 0 }
putserv "PRIVMSG $ch :[lindex $adv(text) [rand [llength $adv(text)]]]"
}
|
_________________
SpiKe^^
Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
. |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
