!vhost nick vhost.you.choose

[Repdientu]

the codes in the urls i posted do exactly that checking if user has a registered nick on join of vhost channel

i not ower the network. i am only ircops on it. i want to make bot to used !vhost to give vhost user on the network too. the codes in your post is set vhost user. but i want to make only ower/master/op of the bot can used this command to give vhost for user.

[ComputerTech]

What's with the $args[0] in there CrazyCat? TCL doesn't know that stuff.

Anyway, here's something:

Code: Select all

bind pub mn !vhost change:vhost
	
proc change:vhost {nick uhost hand chan text} {
	if {[scan $text {%s%s} user host] != 2} {
		puthelp "NOTICE $nick :Error, sytnax is: !vhost <nick> <vhost>"
		return
	}
	puthelp "CHGHOST $user $host"
	puthelp "NOTICE $nick :Changed $user host to $host"
}

Caesars Code does exactly that, it only allow's global +m and channel +n to change a user's vhost.

[simo]

only now you provided more info as to what the criteria are and the conditions you work with then indeed caesars code will do the job only the vhosts arent permant so they would have to come to channel to get vhost everytime

[ComputerTech]

Thats True, as simo says the vhost would only be active until the user disconnects

[Repdientu]

Thank you. Can i set it work only channel ?

[simo]

yes you can

[simo]

try this:

Code: Select all

set scan(chan) "#vhost"

bind pub mn !vhost change:vhost
   
proc change:vhost {nick uhost hand chan text} {
 global  scan(chan)
     if {$chan != "$scan(chan)"} {
      putserv "NOTICE $tls_nick : Don't Use This Command Outside $scan(chan)"
      return 0
   }
   if {[scan $text {%s%s} user host] != 2} {
      puthelp "NOTICE $nick :Error, sytnax is: !vhost <nick> <vhost>"
      return
   }
   puthelp "CHGHOST $user $host"
   puthelp "NOTICE $nick :Changed $user host to $host"
}

[Repdientu]

thank you, i will try it

[caesar]

Code: Select all

 global  scan(chan)
     if {$chan != "$scan(chan)"} {
      putserv "NOTICE $tls_nick : Don't Use This Command Outside $scan(chan)"
      return 0
   }

@simo I see 3 issues with your code:
- it should be 'global scan' (notice the lack of (chan) part)
- there's no $tls_nick variable
- the if {$chan != "$scan(chan)"} will fail when the to names won't be at the upper or lower case, so use string equal -nocase to be sure the stuff will match no matter the case.

Updated code:

Code: Select all

set scan(chan) "#vhost"

bind pub mn !vhost change:vhost
   
proc change:vhost {nick uhost hand chan text} {
	global scan
	if {![string equal -nocase $scan(chan) $chan]} {
		puthelp "NOTICE $nick :Don't Use This Command Outside $scan(chan)"
		return
	}
	if {[scan $text {%s%s} user host] != 2} {
		puthelp "NOTICE $nick :Error, sytnax is: !vhost <nick> <vhost>"
		return
	}
	puthelp "CHGHOST $user $host"
	puthelp "NOTICE $nick :Changed $user host to $host"
}

[simo]

tnx caesar

[Repdientu]

thank you