seeker (PLEAS HELP WITH THIS !!!!)

[spamyboy]

Could anyone make bot, which would go every where wehre I go, for e.g. here is what I wrote
bind raw - 319 nickchan;proc nickchan {from key arg} {;putserv "PRIVMSG #spamyboy :Nick: [lrange [split $arg] 0 0] , Channels:[lrange [split $arg] 2 end]";}

But this is onlly begin, bot should check my whoise & go to channels where i'm he should also part them when I part them, pleas I need it wery, wery much.

[Alchera]

This would be for the purpose of following you into channels to flood/spam?

[spamyboy]

dam, no ! ( Don's look to my nick )
I just want to upgrade my security bot, pleas I need it wery much.

[cache]

I just want to upgrade my security bot, pleas I need it wery much.

How is asking for a script to follow you, have anything to do with upgrading security??

[Alchera]

If you're an Admin of a network and it's spam you're trying to catch then possibly (if I am correct) spambuster is what you're after. It causes a bot to randomly join channels (revolving door).

[spamyboy]

No, I'm not admin on any network, just I have bot witch guards, for e.g. someone try to kick me/deop/ban, what ever he, !kb that person & all I need that bot would follow to channels where I go. Pleas.

[Ian-Highlander]

So you and your bot both get ops in every channel you go? If not then this script would be pointless unless your bot is a sysop as it wouldnt be able to kickban anyone if it wasnt an op. Just a minor point.

[spamyboy]

He, get's everywhere OP where I go, couse I use aop script in my mirc client, which gives GLOBAL op to bot, so pleas, some one !

[metroid]

Code: Select all

# Set this to your own handle.
set followhand "handle"
bind time - {?5 * * * *} check:channels

proc check:channels {args} {
  global followhand
  if {[expr [clock seconds] - $::uptime] < 200 || ![llength [set nick [hand2nick $followhand]]]} { return }
  bind RAW - 319 check:raw
  putserv "WHOIS $nick"
}

proc check:raw {f k arguments} {
  # we are going to assume that we aren't whois'ing anyone else so we shouldn't get other results.
  unbind raw - 319 check:raw
  foreach chan [string trim [string range [lrange [split $arguments] 2 end] 1 end]] {
    while {[string index $chan 0] != "#"} {
      set chan [string range $chan 1 end]
    }
    if {![validchan $chan]} {
      # we don't know this channel yet
      channel add $chan
    }
  }
}

Trust me when i say i couldn't care less if it doesn't work because it sounds like a stupid thing to make a bot follow you around anyway.

[spamyboy]

doesnt work, I gess..

[r0t3n]

Try this:

Code: Select all

foreach min {0 1 2 3 4 5 6 7 8 9} {
 bind time -|- {?$min * * * *} proc:follow
}
bind raw -|- 319 proc:follow:channels

set ::follow_handle "handle"

proc proc:follow {min hour day month year} {
 set nickname [hand2nick $::follow_handle]
 set ::follow_raw "$nickname"
 putquick "WHOIS $nickname" -next
}

proc proc:follow:channels {from server arguments} {
 set nickname [lindex [split $arguments] 1]
 set channels [lrange $arguments 2 end]
 if {$::follow_raw != "$nickname"} { return 0 }
 foreach chann [split $channels] {
  if {[string index $chann 0] == "@" || [string index $chann 0] == "+" || [string index $chann 0] != "#"} {
   set chann [string range $chann 1 end]
  }
  if {[validchan $chann] && ![botonchan $chann]} {
   putquick "JOIN $chann"
  } elseif {![validchan $chann]} {
   channel add $chann
  }
  if {![onchan $nickname $chann]} {
  channel remove $chann
  }
 }
 unset ::follow_raw
}

[metroid]

doesnt work, I gess..

Instead of pointless comments, how about any errors?

(also tosser, what's the point of your script check for @/+ and then check if the character is still not #.
Do you even have a clue what your doing?)

[Sir_Fz]

Code: Select all

foreach min {0 1 2 3 4 5 6 7 8 9} {
 bind time -|- {?$min * * * *} proc:follow
}

This can be replaced with just

Code: Select all

bind time - * proc:follow