Script request

[martpen69]

Oper bot to ctcp version people when they join my channel and to +v them if they reply with a certain version.

I found some scripts which ive taken bits from and tried to put them together.

Not sure if this is correct.

Code: Select all

bind ctcr - VERSION version:reply 
bind join - * check:version 

proc check:version {nick uhost hand chan} { 
 global cversion 
 set cversion([string tolower $nick]) 1 
 putserv "privmsg $nick :\001VERSION\001" 
} 

proc version:reply {nick uhost hand dest kw arg} { 
 global cversion 
 if {[isbotnick $dest] && [info exists cversion([string tolower $nick])]} { 
  if {[string match -nocase "*version here*" $arg]} { 
  { pushmode $vchan +v $user } 
   unset cversion([string tolower $nick]) 
  } 
 } 
}

[Sir_Fz]

You're supposed to test it, not ask us if it works. Anyways

Code: Select all

{ pushmode $vchan +v $user }

should be just

Code: Select all

pushmode $vchan +v $user

[martpen69]

I didnt know how to set the $vchan variable so i did this.

Code: Select all

bind ctcr - VERSION version:reply
bind join - * check:version


proc check:version {nick uhost hand chan} {
 global cversion
 set cversion([string tolower $nick]) 1
 putserv "privmsg $nick :\001VERSION\001"
}

proc version:reply {nick uhost hand dest kw arg} {
 global cversion
 if {[isbotnick $dest] && [info exists cversion([string tolower $nick])]} {
  if {[string match -nocase "*mirc*" $arg]} {
   pushmode #mychannel +v $nick
   unset cversion([string tolower $nick])
  }
 }
}

Probably lame by your standards but it does the job.

Thanks again for the help.

[Sir_Fz]

Code: Select all

bind ctcr - VERSION version:reply
bind join - * check:version

proc check:version {nick uhost hand chan} {
 global cversion
 set cversion([string tolower $nick]) $chan
 putserv "privmsg $nick :\001VERSION\001"
}

proc version:reply {nick uhost hand dest kw arg} {
 global cversion
 if {[isbotnick $dest] && [info exists cversion([set nick [string tolower $nick]])]} {
  if {[string match -nocase "*mirc*" $arg]} {
   pushmode $cversion($nick) +v $$nick
  }
  unset cversion($nick)
 }
}

this will work on all chans.

[CrazyEgg]

if the bot is at least voice then change

privmsg with CPRIVMSG

to prevent msg "target change too fast wait for xxx sec"

[caesar]

CPRIVMSG? What is that? Must be a server side feature, right?

[Alchera]

4.7 CPRIVMSG

CPRIVMSG

The CPRIVMSG parameter indicates that the server supports the
"CPRIVMSG" command. An extension for the PRIVMSG command, as defined
in RFC 1459 [2] section 4.4.1, it allows users with a specific status
in a channel to issue a PRIVMSG command to a user within that
channel, free of certain restrictions a server MAY apply to PRIVMSG.

The CPRIVMSG parameter MUST NOT be specified with a value.