egghelp.org community :: View topic - Vip Script Based on Hosts ?

[ egghelp.org home | forum home ]

egghelp.org community
Discussion of eggdrop bots, shell accounts and tcl scripts.

FAQ

Memberlist

Usergroups

Profile

Vip Script Based on Hosts ?
Goto page Previous 1, 2

egghelp.org community Forum Index -> Script Requests

View previous topic :: View next topic

Author

Message

r0t3n
Owner

Joined: 31 May 2005
Posts: 507
Location: UK

Posted: Fri May 25, 2007 3:26 pm Post subject:

It was just a basebone..
A working version would be:

Code:

set chanvoice(channel) "#channel"
set chanvoice(file) "chanvoice.txt"

bind join -|- {*} chanvoice:join
bind raw -|- {354} chanvoice:raw

proc chanvoice:join {nick host hand chan} {
global chanvoice
if {![string equal -nocase $chanvoice(channel) $chan]} { return }
puthelp "WHO $nick n%at,88"
}

proc chanvoice:raw {from raw arg} {
global chanvoice
set tag [lindex [split $arg] 1]
if {$tag != "88"} { return }
set nick [lindex [split $arg] 2]
set auth [lindex [split $arg] 3]
if {$auth == "" || $auth == "0"} { return }
set data [read -nonewline [set file [open "$chanvoice(file)" r]]]
close $file
foreach x [split $data \n] {
if {$x == ""} { return }
if {[string equal -nocase $auth $x]} {
pushmode $chanvoice(channel) +v $nick
break
}
}
}

Not tested, but should work...
_________________
r0t3n @ #r0t3n @ Quakenet

Display posts from previous:

	egghelp.org community Forum Index -> Script Requests	All times are GMT - 4 Hours Goto page Previous 1, 2
Page 2 of 2

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum