egghelp/eggheads community

Advertisting tcl script problem

2004-06-16T17:37:09-04:00

Your missing the end quotation " on the last ad

Statistics: Posted by greenbear — Wed Jun 16, 2004 5:37 pm

Advertisting tcl script problem

2004-06-16T16:34:16-04:00

set adchannel "#EuropeanWarez"
set adtime 3

set adtext {
{
"4...::: 11[ ShellTec.Com ] 4:::..."
"Quality Shells , BNC's, Shoutcast Servers , Web Hosting and more ! Visit 4#NetCola in EFNET or 4http://www.shelltec.com 15% Off Limited time only - Use Coupon Code: 198582 !"
}
{
"13,0Need help of any kind ? /\ Join >>> #EuropeanChat <<< Join /\"
}
{
"0,2--==-- [ I-B-I-C-O ] --==--"
"Stabilitate garantata pe 4 servere din europa si sua . psyBNC-uri incepand de la 125.000 lei / lunar , Shelluri IRC incepand de la 200.000 lei / lunar , Shelluri pentru HUB-uri de dc++ incepand de la 500.000 lei / lunar , Shelluri pentru servere de radio incepand de la 400.000 lei / lunar , Servere de jocuri incepand de la 500.000 lei / lunar -=- 0,2Http://WwW.Ibico.Ro"
}
{
"15,12Do you want to power up your hosting company ? Do you want more clients on your company ? How can you do this ? Is simple ... advertisting with us ! If you want your text here join #EuropeanChat and talk with an operator or mail us at EuropeanWarez@zanah.org"
}
{
"4...::: 11http://www.Unixrules.NET 4:::..."
"Stable , Fast , and Reliable Shells for only $45/3 months OR $100/year which includes 4 bg for bots,screens,bncs! Our VHOSTS consists of domains from .ca, .am, .ly, .mu, .ph, .ru, .uk, .nz, .il, .de, .ch and much much more ! Check out 4http://www.unixrules.net for details or 4#Unixrules on EFNet !!! We accept VISA , MASTERCARD , American Express ,Check,Money Order ,Western Union,and Paypal!!!"
}
{
"12,0Public Commands Are : !list (for a list of servers) , xdcc list (for a list with available packets) , @find what_you_want (find a file that you want on mIRC servers) , !weather city country (find out weather on your city - eg: !weather munchen de ) , !seen nick (Find out last seen of the specified nickname) , !google (eg !google mirc) and ... !rulez.
}
}

if {![string match "*go*" [timers]]} { timer $adtime go }

proc go {} {
global adchannel adtime adtext
set text [lindex $adtext [rand [llength $adtext]]]
foreach line $text {
putserv "PRIVMSG $adchannel :$line"
}
if {![string match "*go*" [timers]]} { timer $adtime go }
}

Please tell me where is the problem .... it started to work but it send unixrules.net text , "15,12Do you want to power up your hosting company text , and IBICO text ... then it stops ....

This script sends random advertisments ? I don`t want that the messages to be sent random ....

Statistics: Posted by Guest — Wed Jun 16, 2004 4:34 pm

Advertisting tcl script problem

2004-06-16T10:42:06-04:00

Code:

set adchannel "#mychannel"set adtime 3set adtext { {  "Example"  "Message #1" } {  "Example"  "Message #2" }}if {![string match "*go*" [timers]]} { timer $adtime go }proc go {} { global adchannel adtime adtext  set text [lindex $adtext [rand [llength $adtext]]]  foreach line $text {    putserv "PRIVMSG $adchannel :$line"  } if {![string match "*go*" [timers]]} { timer $adtime go }}

Statistics: Posted by greenbear — Wed Jun 16, 2004 10:42 am

Advertisting tcl script problem

2004-06-16T06:08:05-04:00

I want the script to send 2 lines on each 3 minutes ... something like this :

set text {
"Hello"
"All"
}

set text {
"join"
"#eggdrop"
}

Do you understand ?

on your directive ...

set text {
{ "msg #1" }
{ "msg #2" }
}

i don`t understand how to do this ....

Thanks for helping

Statistics: Posted by Guest — Wed Jun 16, 2004 6:08 am

Re: Advertisting tcl script problem

2004-06-15T21:04:52-04:00

try something like this:

Code:

set text { { "msg #1" } { "msg #2" }}

Statistics: Posted by greenbear — Tue Jun 15, 2004 9:04 pm

Advertisting tcl script problem

2004-06-15T20:08:07-04:00

Hello ! I use lastest version of eggdrop . I found in tcl arhive a nice script ... but i don`t know how to modify it .... the problem is that the tcl script is not configured for more texts in a channel . Just one text in channel . I paste here the entire tcl script ... Please help me !!! I`ve try to modify it 3 hours >>> No success ! PLEASE !!!

############################
#### ADV on Timer v.4 #####
# Whats new on v0.4 ? ############
# -Added on multiple text message!#
# Whats new on v0.3 ? #######################################
# -Added on multiple channel advertisment#
#########################################################################
# Credits:#
# Mainly to Egghelp.Org helpers on behalf helping solving out errors #
# Errors/comments/suggestions do please email me: boojingyou@hotmail.com#
# Do visit my personnal webby @ http://singnet.per.sg #
# For users who wanna chat with me, do loginto irc.GalaxyNet.Org #
# #JingYou . My Nickname would be JingYou. --Have fun-- #
################################################################################
# COLORS / BOLD #
# To make a text bold do this: \002TEXT-BOLD\002 #
# To make a text with colors do this: \00304TEXT-RED\003 (04 = red, e.g.) #
# To make a text with colors and bold do this: \002\00304TEXT-RED-BOLD\003\002 #
# Alternative, hit ctrl+k in IRC and copy paste in to dialog box. (RECOMMENDED)#
################################################################################

##### GENERAL SETTINGS ####
# EDIT the channel names or REMOVE one or two depending on which channel you intend the bot the advertise
set channel "#mychannel"

# Edit the time cycle which is in minutes format depending on the time intervals you want the bot to flow out the advertisment
set time 3

# EDIT the text or REMOVE or ADD lines including inverted commas at the starting and ending at each line

set text {
"My text ... advertised ... so ... its OK"
}

set text {
"another text that i`ve try to advertise ... The first text passed ... the 2nd line of text advertised I mean ... only this line advertised ... first line My text not advertised"
}

##### DO NOT EDIT ANYTHING BELOW THIS LINE UNLESS YOU KNOW WHAT YOU ARE DOING #####

if {[string compare [string index $time 0] "!"] == 0} { set timer [string range $time 1 end] } { set timer [expr $time * 60] }
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }

proc go {} {
global channel time text timer
foreach chan $channel {
foreach line $text { putserv "PRIVMSG $chan :$line" }
}
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }
}

putlog "\002Loaded Auto-ADV script by JingYou @ Galaxynet #JingYou (v.4 13nov03)\002"

----------------------

I`ve try to add "set text" >> "set text2" No success .... How can I resolve this ? Please help me !!!!

THANKS !!!

Statistics: Posted by Guest — Tue Jun 15, 2004 8:08 pm