Need this script a little more juked up :D

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 12:46 pm

Now this is the problem:

[12:46:09] <PE> heyguys
[12:46:10] <PE> heyguys2

They are both individual lines in the script, so they shouldn't be saying that so close together. Should be like every minute. It is saying all the lines at one time :\

r0t3n · Post by **r0t3n** » Tue Jul 12, 2005 1:16 pm

Sir_Fz wrote:
Tosser^^ wrote:Yep. That scripts looks alright for me.
Oh good, thanx for the info
Tosser^^ wrote:Also, Sir_Fz if you did a proc with {channel} would it overwrite the $channel varible in that script.
What do you mean?

I mean. If i made a var called $chan { "#mychan" "#otherchan" "#blah" } etc and in a proc

Code: Select all

proc name {nick host hand chan text} {
putserv "PRIVMSG $chan :blah."
}

The proc sets the varible $chan to the channel that proc was triggered from. Would the varible $chan { "#mychan" "#otherchan" "#blah" } be affected. Like overwritten with the new channel name from the proc?

I was just wondering.

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 1:34 pm

What about my question, too? ^_^

metroid · Post by **metroid** » Tue Jul 12, 2005 4:31 pm

It's because of Tosser's lack of TCL knowledge that your script isn't working properly.

This go proc should work fine

Code: Select all

proc go {} {
global channel time text timer
foreach chan [channels]l {
 putqueue "PRIVMSG $chan :[lindex $line [rand [llength $line]]]"
}
if {[lsearch -glob [utimers] "* go *"] == -1} { utimer $timer go }
}

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 4:40 pm

ty much

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 5:37 pm

it doesn't even say anything now

Post by **Sir_Fz** » Tue Jul 12, 2005 7:51 pm

Ok, at this time it's only me, no Tossers to spam

Code: Select all

##### GENERAL SETTINGS #### 
# 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 1 

# EDIT the text or REMOVE or ADD lines including inverted commas at the starting and ending at each line 
set text { 
"ad1" 
"ad2" 
"ad3" 
} 

##### 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 {[utimerexists go] == ""} { utimer $timer go } 

set queue {} 
set frequency 2 ;# seconds 
proc getqueue {} { 
   if {$::queue != {}} { 
      puthelp [lindex $::queue 0] 
      set ::queue [lreplace $::queue 0 0] 
   } 
   utimer $::frequency getqueue 
} 
proc putqueue {str} { 
   lappend ::queue $str 
} 
getqueue 

proc go {} { 
 global text timer 
 foreach chan [channels] { 
  putqueue "PRIVMSG $chan :[lindex $text [rand [llength $text]]]"
 } 
 if {[utimerexists go] == ""} { utimer $timer go } 
} 

putlog "Loaded Advertise Script by es"

It's pretty hard to concentrate when everytime I post, I see a Tosser post

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 7:55 pm

heh, thanks a lot man, appreciate the help from all of you

let me test it out. do you guys have an irc network that you are all on or something that I can join up?

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 7:59 pm

awesome! it works, perfect! thank you VERY much!

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 8:04 pm

Now, i don't know why, but it always seems to flood out... I have the frequency on 65 seconds, and it still floods out

had this problem before, but when i cut the ad size it stopped, and now with my new ads it is doing it again :\

Post by **Sir_Fz** » Tue Jul 12, 2005 8:26 pm

Since cutting the size of the ads solves the problem then try use shorter ads.

stevegarbz · Post by **stevegarbz** » Tue Jul 12, 2005 8:42 pm

if I cut the ads any shorter my message won't get across to my audience