egghelp.org community :: View topic

[ egghelp.org home | forum home ]

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

FAQ

Memberlist

Usergroups

Profile

del flags

egghelp.org community Forum Index -> Scripting Help

View previous topic :: View next topic

Author

Message

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Wed Jan 04, 2006 6:17 pm Post subject: del flags

Type !deluser nick the bot del all flags user in the chan (chan or orders it was to type)

Code:

## !DELUSER <nick>

proc pub_lol_deluser {me b c chan arg} {
set arg [charfilter $arg]
global lol botnick
if {![check $c $me $b]} {
   if {$lol(silent) == 1 || [checksilent $c]} {return 0}
puthelp "NOTICE $me :Please auth you."
   return 0
}
if {[llength $arg] != 1} {
   puthelp "NOTICE $me :\002try:\002 [string trim $lol(cmdchar)]deluser <nick>"
   return 0
}
set nick [lindex $arg 0]
set bot [strlwr $botnick]
set hand [nick2hand $nick $chan]
if {![onchan $nick $chan]} {
puthelp "NOTICE $me :$nick not in $chan."
   return 0
}
if {[strlwr $nick] == $bot} {
puthelp "NOTICE $me :Error!!! acces denied"
   return 0
}
if {[getting-users]} {
puthelp "NOTICE $me :Error!!! try again"
   return 0
}
if {![validuser $hand]} {
   puthelp "NOTICE $me :Error!!!not found"
   return 0
}
if {[matchattr $hand n]} {
   puthelp "NOTICE $me :Error!!! acces denied."
   return 0
}
chattr $nick -jlmnoptxvV $chan
if {[botisop $chan]} {pushmode $chan -ov $nick}
return 0
}

the bot no delete flag.please or is the error thx

Alchera
Revered One

Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia

Posted: Wed Jan 04, 2006 8:56 pm Post subject:

Code:

chattr $nick |-jlmnoptxvV $chan

_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Thu Jan 05, 2006 6:24 am Post subject:

thx for help The bot alway not delete flags thx

r0t3n
Owner

Joined: 31 May 2005
Posts: 507
Location: UK

Posted: Thu Jan 05, 2006 6:38 am Post subject:

you could use

Code:

chattr [nick2hand $nick] |-[lindex [split [chattr [nick2hand $nick] $chan] |] 1] $chan

_________________
r0t3n @ #r0t3n @ Quakenet

pilouuu
Halfop

Joined: 26 Dec 2005
Posts: 82

Posted: Thu Jan 05, 2006 10:15 pm Post subject:

GooD!! Thx

Display posts from previous:

	egghelp.org community Forum Index -> Scripting Help	All times are GMT - 4 Hours
Page 1 of 1

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