egghelp/eggheads community

Help.. Wrong number args

2013-06-29T09:43:35-04:00

will remember that I have a few other old scripts test also. Thanks bud

Statistics: Posted by ev0xpr0x — Sat Jun 29, 2013 9:43 am

Help.. Wrong number args

2013-06-29T09:40:56-04:00

I never used namespace and i did encountered alot of errors in scripts using that and i always removed the namespace and it was ok. Just like in your case.

Statistics: Posted by Madalin — Sat Jun 29, 2013 9:40 am

Help.. Wrong number args

2013-06-29T09:38:24-04:00

thanks legend!

It used to work fine years ago this has had me stumped for a few hours

Statistics: Posted by ev0xpr0x — Sat Jun 29, 2013 9:38 am

Help.. Wrong number args

2013-06-29T09:36:49-04:00

I fixed some errors and removed namespace thats all your code was fine 99,7%

Statistics: Posted by Madalin — Sat Jun 29, 2013 9:36 am

Help.. Wrong number args

2013-06-29T09:35:36-04:00

hey that worked. Was it the Eval causing the issue? or my ::?

Statistics: Posted by ev0xpr0x — Sat Jun 29, 2013 9:35 am

Help.. Wrong number args

2013-06-29T09:28:26-04:00

Try the script like this see if it gives you any more errors

Code:

# set owner hereset ownerOper "aa"# all binds go here# +n/bot owner commandsbind pub n !jump oper:jumpbind pub n !die oper:diebind pub n !rh oper:rehashbind pub n !chattr oper:chattruserbind pub n !save oper:savebind pub n !rl oper:reloadbind pub n !bu oper:backupbind pub n !bc oper:broadcast# +m/+n commandsbind pub m|n !globalaop oper:addglobalopbind pub m|n !globalvop oper:addglobalvoicebind pub m|n !globalf oper:addglobalfriendbind pub m|n !globalrmaop oper:rmglobalopbind pub m|n !globalrmvop oper:rmglobalvoicebind pub m|n !globalrmf oper:rmglobalfriendbind pub m|n !globalban oper:globalbanbind pub m|n !rmuser oper:removeuserbind pub m|n !lsuser oper:listusersbind pub m|n !+chan oper:addchanbind pub m|n !-chan oper:removechanbind pub m|n !savechan oper:savechan# +m/+m&+o commandsbind pub m|m !auser oper:adduserbind pub m|m !aop oper:addopbind pub m|m !rmaop oper:removeopbind pub m|o !vop oper:addvoicebind pub m|o !rmvop oper:removevoicebind pub m|o !f oper:friendbind pub m|o !rmf oper:removefriendbind pub m|o !op oper:opbind pub m|o !vo oper:voicebind pub m|o !k oper:kickbind pub m|o !b oper:banbind pub m|o !kb oper:kickbanbind pub m|o !topic oper:topicbind pub o|o !opme oper:opmebind pub -|- !h oper:help# +n/bot owner command proc'sproc oper:jump {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !jump"putlog "$nick has triggered !jump"jump $text}proc oper:die {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !die"putlog "$nick has triggered !die"die $text}proc oper:rehash {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !rehash"putlog "$nick has triggered !rehash"rehash}proc oper:chattruser {nick host hand chan text} {global ownerOperif {[string length $text] > 0} {set tnick [lindex $text 0]if {[string length [lindex $text 1]] != 0} { set changes [lindex $text 1] }if {[string length [lindex $text 2]] != 0} { set tchan [lindex $text 2] }chattr $tnick $changes $tchanputquick "PRIVMSG $ownerOper :$nick has set $changes to $tnick on channel :$tchan"} else { puthelp "PRIVMSG $nick :usage !chattr    - as per setting from partyline" }}proc oper:save {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !save"putlog "$nick has triggered !save"save}proc oper:reload {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !rl"putlog "$nick has triggered !rl"reload}proc oper:backup {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !bu"putlog "$nick has triggered backup"backup}proc oper:broadcast {nick host hand chan text} {global ownerOperif {[string length $text] > 0} {set text [string trim $text "{}"]foreach n [channels] { puthelp "PRIVMSG $n :$text" }} else { puthelp "PRIVMSG $nick :!bc  - sends message to all channels that the bot is" }}# +m/+n command proc'sproc oper:addglobalop { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +ao to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick +aoputquick "PRIVMSG $ownerOper :$nick has added global +ao to $text"putserv "PRIVMSG $nick :$text Has Been Given Global Auto-Op Access"putlog "$nick added $addnick to Global Auto-Op"if {[isop $text $chan] == 0} { pushmode $chan +o $text }putserv "PRIVMSG $text :You Have Been Granted Global Auto-Op Access On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:addglobalvoice { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +gv to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick +gvputquick "PRIVMSG $ownerOper :$nick has added global +gv to $text"putserv "PRIVMSG $nick :$text Has Been Given Global Voice Access"putlog "$nick added $addnick to Global Voice"if {[isvoice $text $chan] == 0} { pushmode $chan +v $text }putserv "PRIVMSG $text :You Have Been Granted Global Voice Access On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:addglobalfriend { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +f to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick +fputquick "PRIVMSG $ownerOper :$nick has added global +f to $text"putserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"putlog "$nick added $addnick to Global +f"putserv "PRIVMSG $text :You Have Been Granted Global Friend On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:rmglobalop { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -ao to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick -aoputquick "PRIVMSG $ownerOper :$nick has removed global -ao to $text"putserv "PRIVMSG $nick :$text Has Been Removed From Global Auto-Op Access"putlog "$nick rm $addnick from Global -ao"if {[isop $text $chan] == 1} { pushmode $chan -o $text }#putserv "PRIVMSG $text :You Have Been Purged Global Auto-Op Access On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:rmglobalvoice { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -dv to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick -dvputquick "PRIVMSG $ownerOper :$nick has removed global -dv to $text"putserv "PRIVMSG $nick :$text Has Been Removed From Global Voice Access"putlog "$nick rm $addnick from Global -dv"if {[isvoice $text $chan] == 1} { pushmode $chan -v $text }#putserv "PRIVMSG $text :You Have Been Purged Global Voice Access On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:rmglobalfriend { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -f to $text"set addnick [nick2hand $text]if {[validuser $addnick]} {chattr $addnick -fputquick "PRIVMSG $ownerOper :$nick has removed global -f to $text"putserv "PRIVMSG $nick :$text Has Been Removed From Global Friend Access"putlog "$nick rm $addnick from Global -f"#putserv "PRIVMSG $text :You Have Been Purged Global Friend On this bot"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addnick}proc oper:globalban { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global ban to $text"# does not require ops in chanif {[string length $text] > 0} {set tnick [lindex $text 0]if {[onchan $tnick $chan]} {if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }newban *![getchanhost $tnick $chan] $nick $reason 0} else { puthelp "PRIVMSG $nick :no such nick on channel! This will only global ban a nick in channel otherwise see: $ownerOper"puthelp "PRIVMSG $nick :usage !globalban  reason - globally ban a user from all channels"}}unset tnick}proc oper:removeuser { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to remove user $text"set tnick [lindex $text 0]deluser $tnickputlog "$text has been removed from bot"unset tchan}proc oper:listusers { nick host hand chan text } {global ownerOperglobal botnameputhelp "PRIVMSG $nick :User List for $botname as at [time]@[date] showing [countusers]:: [userlist]"}proc oper:addchan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add chan $text"set tchan [lindex $text 0]channel add $tchanputlog "$text channel has been added to bot"unset tchan}proc oper:removechan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to remove chan $text"set tchan [lindex $text 0]channel remove $tchanputlog "$text channel has been removed from bot"unset tchan}proc oper:savechan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to savechans"savechannelsputlog "channels saved"}proc oper:channellist { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is viewing channels"puthelp "PRIVMSG $nick :Channels on bot :[channels]"putlog "channels saved"}# +m/+m&+o command procsproc oper:adduser { nick host hand chan text } {global ownerOperset addusernick [nick2hand $text]if {[validuser $addusernick]} {putserv "PRIVMSG $nick :\002$text\002 Is Already In User Database As \002$addusernick\002"} else {unset addusernickadduser $text *![getchanhost $text $chan]set addusernick [nick2hand $text]putlog "\002$nick\002 Added \002$addusernick\($text\)\002 To User Database"putserv "PRIVMSG $nick :\002$text\002 Added To User Database As \002$addusernick\002"putserv "PRIVMSG $ownerOper :\002$text\002 Added To User Database As \002$addusernick\002"unset addusernickunset maskhosts}}proc oper:addop { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|+ao $chanputserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"putlog "$nick added $addopnick to Auto-Op"if {[isop $text $chan] == 0} { pushmode $chan +o $text }putserv "PRIVMSG $text :You Have Been Given Auto-Op Access For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Given Auto-Op Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:removeop { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|-ao $chanputserv "PRIVMSG $nick :$text Has Been removed from Auto-Op Access"putlog "$nick removed $addopnick from Auto-Op"if {[isop $text $chan] == 1} { pushmode $chan -o $text }putserv "PRIVMSG $text :You Have Been Removed From Auto-Op Access For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Removed Auto-Op Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:addvoice { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|+ao $chanputserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"putlog "$nick added $addopnick to Auto-Op"if {[isvoice $text $chan] == 0} { pushmode $chan +v $text }putserv "PRIVMSG $text :You Have Been Given Auto-Voice Access For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Given Auto-Voice Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:removevoice { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|-ao $chanputserv "PRIVMSG $nick :$text Has Been removed from Voice Access"putlog "$nick removed $addopnick from Auto-Op"if {[isvoice $text $chan] == 1} { pushmode $chan -v $text }putserv "PRIVMSG $text :You Have Been Removed From Auto-Voice Access For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Removed Auto-Voice Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:friend { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|+f $chanputserv "PRIVMSG $nick :$text Has Been added as a bot friend"putlog "$nick added $addopnick to channel friend"putserv "PRIVMSG $text :You Have Been Added Friend For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Added Friend Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:removefriend { nick host hand chan text } {global ownerOperset addopnick [nick2hand $text]if {[validuser $addopnick]} {chattr $addopnick -|-f $chanputserv "PRIVMSG $nick :$text Has Been removed as a bot friend"putlog "$nick removed $addopnick to channel friend"putserv "PRIVMSG $text :You Have Been Removed Friend For Channel: \002$chan\002"putserv "PRIVMSG $ownerOper :$text Added Removed Access For Channel: \002$chan\002"} else { putserv "PRIVMSG $nick :$text Not Found In User Database" }unset addopnick}proc oper:op {nick host hand chan text} {global ownerOperif {[botisop $chan] == 1} {if {[string length $text] > 0} {set tnick [lindex $text 0]if {[onchan $tnick $chan]} {if {[isop $tnick $chan]} { pushmode $chan -o $tnick } else { pushmode $chan +o $tnick }} else { puthelp "PRIVMSG $nick :no such nick on channel!" }} else { puthelp "PRIVMSG $nick :usage !op  - inverts the ops of a nick" }} else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:voice {nick host hand chan text} {global ownerOperif {[botisop $chan] == 1} {if {[string length $text] > 0} {set tnick [lindex $text 0]if {[onchan $tnick $chan]} {if {[isop $tnick $chan]} { pushmode $chan -v $tnick } else { pushmode $chan +v $tnick }} else { puthelp "PRIVMSG $nick :no such nick on channel!" }} else { puthelp "PRIVMSG $nick :usage !vo  - inverts the voice of a nick" }} else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:kick {nick host hand chan text} {global ownerOperif {[botisop $chan]} {if {[string length $text] > 0} {set tnick [lindex $text 0]if {[string length [lindex $text 1]] == 0} { set reason kicked } else { set reason [lrange $text 1 end] }if {[onchan $tnick $chan]} { putkick $chan $tnick $reason } else { puthelp "PRIVMSG $nick :no such nick on channel!" }} else { puthelp "PRIVMSG $nick :usage !k  reason - kicks a nick" }} else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:ban {nick host hand chan text} {global ownerOperif {[botisop $chan]} {if {[string length $text] > 0} {set tnick [lindex $text 0]if {[onchan $tnick $chan]} {if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0} else { puthelp "PRIVMSG $nick :no such nick on channel!" }} else { puthelp "PRIVMSG $nick :usage !b  reason - bans a nick" }} else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:kickban {nick host hand chan text} {global ownerOperif {[botisop $chan]} {if {[string length $text] > 0} {set tnick [lindex $text 0]if {[onchan $tnick $chan]} {if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0utimer 5 [list putkick $chan $tnick $reason]} else { puthelp "PRIVMSG $nick :no such nick on channel!" }} else { puthelp "PRIVMSG $nick :usage !kb  reason - kicks and bans a nick" }} else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:topic {nick host hand chan text} {global ownerOperif {[botisop $chan]} { putserv "TOPIC $chan :$text" } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper:opme {nick host hand chan text} {global ownerOperif {[botisop $chan] == 1} {if {[isop $nick $chan] == 0} { pushmode $chan +o $nick } else { puthelp "PRIVMSG $nick :u already have teh op fool" }} else { puthelp "PRIVMSG $nick: i dont have ops!" }}#HELP SECTIONproc oper:help {nick host hand chan text} {global botnickputhelp "PRIVMSG $nick :\002Basic User\002 Commands"puthelp "PRIVMSG $nick :!auser  - adds a user to bot"puthelp "PRIVMSG $nick :!aop  - adds user auto-op to channel"puthelp "PRIVMSG $nick :!rmaop  - removes auto-op to channel"puthelp "PRIVMSG $nick :!vop  - adds user auto-voice to channel"puthelp "PRIVMSG $nick :!rmvop  - removes user auto-voice to channel"puthelp "PRIVMSG $nick :!f  - adds user +f to channel"puthelp "PRIVMSG $nick :!rmf  - removes user +f to channel"puthelp "PRIVMSG $nick :!op  - inverse ops of nick"puthelp "PRIVMSG $nick :!vo  - inverse voice of nick"puthelp "PRIVMSG $nick :!k  - kicks a user"puthelp "PRIVMSG $nick :!kb   - kicks and bans a user"puthelp "PRIVMSG $nick :!topic  - sets a channel topic"puthelp "PRIVMSG $nick :!opme - if you are set to +o on bot you will be oped"if {[matchattr $hand m|n $chan]} {puthelp "PRIVMSG $nick :\002Master\002 Commands"puthelp "PRIVMSG $nick :!globalaop  - adds global auto-op"puthelp "PRIVMSG $nick :!globalvop  - adds global auto-voice"puthelp "PRIVMSG $nick :!globalf  - adds global friend"puthelp "PRIVMSG $nick :!globalrmaop  - removes global auto-op"puthelp "PRIVMSG $nick :!globalrmvop  - removes global auto-voice"puthelp "PRIVMSG $nick :!globalrmf  - removes global friend"puthelp "PRIVMSG $nick :!rmuser  - removes a user from bot"puthelp "PRIVMSG $nick :!lsuser - lists bot users"puthelp "PRIVMSG $nick :!+chan <#chan+options> - adds a channel to monitor"puthelp "PRIVMSG $nick :!-chan <#chan> - removes a channel from monitor"putserv "PRIVMSG $nick :!savechan - Saves channels data"}if {[matchattr $hand n $chan]} {puthelp "PRIVMSG $nick :\002BotOwner\002 Commands"puthelp "PRIVMSG $nick :!die - kills bot"puthelp "PRIVMSG $nick :!rh - rehash bot"puthelp "PRIVMSG $nick :!chattr   - make raw changes to user as per .chattr in partyline"puthelp "PRIVMSG $nick :!save - save config"puthelp "PRIVMSG $nick :!rl - reload config"puthelp "PRIVMSG $nick :!bu - backup bot"puthelp "PRIVMSG $nick :!bc  - broadcast msg to all channels bot is on"}}

Statistics: Posted by Madalin — Sat Jun 29, 2013 9:28 am

Help.. Wrong number args

2013-06-29T09:08:09-04:00

Hi There,

Some time ago I wrote this script. Have just started using eggdrop again (v1.6.21) with TCL8.5. Now when I try to add a user to the bot I get arg errors. (some others get arg errors also)

Code:

!auser ev0x[14:04:58] Tcl error [::oper::adduser]: wrong # args: should be "adduser nick host hand chan text"

I have tried adding args removing others but it just tells me my args are still wrong
Have tried removing ALL other tcl scripts and issue a .restart same issue
Have tried pulling it out into own script setting to - removed the namespace etc etc same error

full code dump

Code:

# set owner hereset ownerOper ""namespace eval oper {# all binds go here# +n/bot owner commandsbind pub n !jump [namespace current]::jumpbind pub n !die [namespace current]::diebind pub n !rh [namespace current]::rehashbind pub n !chattr [namespace current]::chattruserbind pub n !save [namespace current]::savebind pub n !rl [namespace current]::reloadbind pub n !bu [namespace current]::backupbind pub n !bc [namespace current]::broadcast# +m/+n commandsbind pub m|n !globalaop [namespace current]::addglobalopbind pub m|n !globalvop [namespace current]::addglobalvoicebind pub m|n !globalf [namespace current]::addglobalfriendbind pub m|n !globalrmaop [namespace current]::rmglobalopbind pub m|n !globalrmvop [namespace current]::rmglobalvoicebind pub m|n !globalrmf [namespace current]::rmglobalfriendbind pub m|n !globalban [namespace current]::globalbanbind pub m|n !rmuser [namespace current]::removeuserbind pub m|n !lsuser [namespace current]::listusersbind pub m|n !+chan [namespace current]::addchanbind pub m|n !-chan [namespace current]::removechanbind pub m|n !savechan [namespace current]::savechan# +m/+m&+o commandsbind pub m|m !auser [namespace current]::adduserbind pub m|m !aop [namespace current]::addopbind pub m|m !rmaop [namespace current]::removeopbind pub m|o !vop [namespace current]::addvoicebind pub m|o !rmvop [namespace current]::removevoicebind pub m|o !f [namespace current]::friendbind pub m|o !rmf [namespace current]::removefriendbind pub m|o !op [namespace current]::opbind pub m|o !vo [namespace current]::voicebind pub m|o !k [namespace current]::kickbind pub m|o !b [namespace current]::banbind pub m|o !kb [namespace current]::kickbanbind pub m|o !topic [namespace current]::topicbind pub o|o !opme [namespace current]::opmebind pub -|- !h [namespace current]::help}# +n/bot owner command proc'sproc oper::jump {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !jump"putlog "$nick has triggered !jump"jump $text}proc oper::die {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !die"putlog "$nick has triggered !die"die $text}proc oper::rehash {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !rehash"putlog "$nick has triggered !rehash"rehash}proc oper::chattruser {nick host hand chan text} {  global ownerOper  if {[string length $text] > 0} {  set tnick [lindex $text 0]  if {[string length [lindex $text 1]] != 0} { set changes [lindex $text 1] }  if {[string length [lindex $text 2]] != 0} { set tchan [lindex $text 2] }  chattr $tnick $changes $tchan  putquick "PRIVMSG $ownerOper :$nick has set $changes to $tnick on channel :$tchan"  } else { puthelp "PRIVMSG $nick :usage !chattr    - as per setting from partyline" }}proc oper::save {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !save"putlog "$nick has triggered !save"save}proc oper::reload {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !rl"putlog "$nick has triggered !rl"reload}proc oper::backup {nick host hand chan text} {global ownerOperputquick "PRIVMSG $ownerOper :$nick has triggered !bu"putlog "$nick has triggered backup"backup}proc oper::broadcast {nick host hand chan text} {  global ownerOper  if {[string length $text] > 0} {    set text [string trim $text "{}"]    foreach n [channels] { puthelp "PRIVMSG $n :$text" }  } else { puthelp "PRIVMSG $nick :!bc  - sends message to all channels that the bot is" }}# +m/+n command proc'sproc oper::addglobalop { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +ao to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick +ao    putquick "PRIVMSG $ownerOper :$nick has added global +ao to $text"    putserv "PRIVMSG $nick :$text Has Been Given Global Auto-Op Access"    putlog "$nick added $addnick to Global Auto-Op"    if {[isop $text $chan] == 0} { pushmode $chan +o $text }    putserv "PRIVMSG $text :You Have Been Granted Global Auto-Op Access On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::addglobalvoice { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +gv to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick +gv    putquick "PRIVMSG $ownerOper :$nick has added global +gv to $text"    putserv "PRIVMSG $nick :$text Has Been Given Global Voice Access"    putlog "$nick added $addnick to Global Voice"    if {[isvoice $text $chan] == 0} { pushmode $chan +v $text }    putserv "PRIVMSG $text :You Have Been Granted Global Voice Access On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::addglobalfriend { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global +f to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick +f    putquick "PRIVMSG $ownerOper :$nick has added global +f to $text"    putserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"    putlog "$nick added $addnick to Global +f"    putserv "PRIVMSG $text :You Have Been Granted Global Friend On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::rmglobalop { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -ao to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick -ao    putquick "PRIVMSG $ownerOper :$nick has removed global -ao to $text"    putserv "PRIVMSG $nick :$text Has Been Removed From Global Auto-Op Access"    putlog "$nick rm $addnick from Global -ao"    if {[isop $text $chan] == 1} { pushmode $chan -o $text }    #putserv "PRIVMSG $text :You Have Been Purged Global Auto-Op Access On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::rmglobalvoice { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -dv to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick -dv    putquick "PRIVMSG $ownerOper :$nick has removed global -dv to $text"    putserv "PRIVMSG $nick :$text Has Been Removed From Global Voice Access"    putlog "$nick rm $addnick from Global -dv"    if {[isvoice $text $chan] == 1} { pushmode $chan -v $text }    #putserv "PRIVMSG $text :You Have Been Purged Global Voice Access On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::rmglobalfriend { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global -f to $text"  set addnick [nick2hand $text]  if {[validuser $addnick]} {    chattr $addnick -f    putquick "PRIVMSG $ownerOper :$nick has removed global -f to $text"    putserv "PRIVMSG $nick :$text Has Been Removed From Global Friend Access"    putlog "$nick rm $addnick from Global -f"    #putserv "PRIVMSG $text :You Have Been Purged Global Friend On this bot"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addnick}proc oper::globalban { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add global ban to $text"# does not require ops in chan  if {[string length $text] > 0} {  set tnick [lindex $text 0]  if {[onchan $tnick $chan]} {  if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end]  newban *![getchanhost $tnick $chan] $nick $reason 0  } else { puthelp "PRIVMSG $nick :no such nick on channel! This will only global ban a nick in channel otherwise see: $ownerOper" }  } else { puthelp "PRIVMSG $nick :usage !globalban  reason - globally ban a user from all channels" } }unset tnick}proc oper::removeuser { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to remove user $text"set tnick [lindex $text 0]deluser $tnickputlog "$text has been removed from bot"unset tchan}proc oper::listusers { nick host hand chan text } {global ownerOperglobal botname puthelp "PRIVMSG $nick :User List for $botname as at [time]@[date] showing [countusers]:: [userlist]"}proc oper::addchan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to add chan $text"set tchan [lindex $text 0]channel add $tchanputlog "$text channel has been added to bot"unset tchan}proc oper::removechan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to remove chan $text"set tchan [lindex $text 0]channel remove $tchanputlog "$text channel has been removed from bot"unset tchan}proc oper::savechan { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is trying to savechans"savechannelsputlog "channels saved"}proc oper::channellist { nick host hand chan text } {global ownerOperputquick "PRIVMSG $ownerOper :$nick is viewing channels"puthelp "PRIVMSG $nick :Channels on bot :[channels]putlog "channels saved"}# +m/+m&+o command procsproc oper::adduser { nick host hand chan text } {global ownerOper  set addusernick [nick2hand $text]  if {[validuser $addusernick]} {    putserv "PRIVMSG $nick :\002$text\002 Is Already In User Database As \002$addusernick\002"  } else {    unset addusernick    adduser $text *![getchanhost $text $chan]    set addusernick [nick2hand $text]    putlog "\002$nick\002 Added \002$addusernick\($text\)\002 To User Database"    putserv "PRIVMSG $nick :\002$text\002 Added To User Database As \002$addusernick\002"    putserv "PRIVMSG $ownerOper :\002$text\002 Added To User Database As \002$addusernick\002"    unset addusernick    unset maskhosts  }}proc oper::addop { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|+ao $chan    putserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"    putlog "$nick added $addopnick to Auto-Op"    if {[isop $text $chan] == 0} { pushmode $chan +o $text }    putserv "PRIVMSG $text :You Have Been Given Auto-Op Access For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Given Auto-Op Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::removeop { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|-ao $chan    putserv "PRIVMSG $nick :$text Has Been removed from Auto-Op Access"    putlog "$nick removed $addopnick from Auto-Op"    if {[isop $text $chan] == 1} { pushmode $chan -o $text }    putserv "PRIVMSG $text :You Have Been Removed From Auto-Op Access For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Removed Auto-Op Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::addvoice { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|+ao $chan    putserv "PRIVMSG $nick :$text Has Been Giving Auto-Op Access"    putlog "$nick added $addopnick to Auto-Op"    if {[isvoice $text $chan] == 0} { pushmode $chan +v $text }    putserv "PRIVMSG $text :You Have Been Given Auto-Voice Access For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Given Auto-Voice Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::removevoice { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|-ao $chan    putserv "PRIVMSG $nick :$text Has Been removed from Voice Access"    putlog "$nick removed $addopnick from Auto-Op"    if {[isvoice $text $chan] == 1} { pushmode $chan -v $text }    putserv "PRIVMSG $text :You Have Been Removed From Auto-Voice Access For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Removed Auto-Voice Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::friend { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|+f $chan    putserv "PRIVMSG $nick :$text Has Been added as a bot friend"    putlog "$nick added $addopnick to channel friend"    putserv "PRIVMSG $text :You Have Been Added Friend For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Added Friend Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::removefriend { nick host hand chan text } {global ownerOper  set addopnick [nick2hand $text]  if {[validuser $addopnick]} {    chattr $addopnick -|-f $chan    putserv "PRIVMSG $nick :$text Has Been removed as a bot friend"    putlog "$nick removed $addopnick to channel friend"    putserv "PRIVMSG $text :You Have Been Removed Friend For Channel: \002$chan\002"    putserv "PRIVMSG $ownerOper :$text Added Removed Access For Channel: \002$chan\002"  } else { putserv "PRIVMSG $nick :$text Not Found In User Database" }  unset addopnick}proc oper::op {nick host hand chan text} {global ownerOper  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[isop $tnick $chan]} { pushmode $chan -o $tnick } else { pushmode $chan +o $tnick }      } else { puthelp "PRIVMSG $nick :no such nick on channel!" }    } else { puthelp "PRIVMSG $nick :usage !op  - inverts the ops of a nick" }  } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::voice {nick host hand chan text} {global ownerOper  if {[botisop $chan] == 1} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[isop $tnick $chan]} { pushmode $chan -v $tnick } else { pushmode $chan +v $tnick }      } else { puthelp "PRIVMSG $nick :no such nick on channel!" }    } else { puthelp "PRIVMSG $nick :usage !vo  - inverts the voice of a nick" }  } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::kick {nick host hand chan text} {global ownerOper  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[string length [lindex $text 1]] == 0} { set reason kicked } else { set reason [lrange $text 1 end] }      if {[onchan $tnick $chan]} { putkick $chan $tnick $reason } else { puthelp "PRIVMSG $nick :no such nick on channel!" }    } else { puthelp "PRIVMSG $nick :usage !k  reason - kicks a nick" }  } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::ban {nick host hand chan text} {global ownerOper  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0      } else { puthelp "PRIVMSG $nick :no such nick on channel!" }    } else { puthelp "PRIVMSG $nick :usage !b  reason - bans a nick" }  } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::kickban {nick host hand chan text} {global ownerOper  if {[botisop $chan]} {    if {[string length $text] > 0} {      set tnick [lindex $text 0]      if {[onchan $tnick $chan]} {        if {[string length [lindex $text 1]] == 0} { set reason banned } else { set reason [lrange $text 1 end] }        newchanban $chan *!*@[lindex [split [getchanhost $tnick $chan] @] 1] $nick $reason 0        utimer 5 [putkick $chan $tnick $reason]      } else { puthelp "PRIVMSG $nick :no such nick on channel!" }    } else { puthelp "PRIVMSG $nick :usage !kb  reason - kicks and bans a nick" }  } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::topic {nick host hand chan text} {global ownerOper  if {[botisop $chan]} { putserv "TOPIC $chan :$text" } else { puthelp "PRIVMSG $nick :i dont have ops!" }}proc oper::opme {nick host hand chan text} {global ownerOper  if {[botisop $chan] == 1} {    if {[isop $nick $chan] == 0} { pushmode $chan +o $nick } else { puthelp "PRIVMSG $nick :u already have teh op fool" }  } else { puthelp "PRIVMSG $nick: i dont have ops!" }}#HELP SECTIONproc oper::help {nick host hand chan text} {global botnickputhelp "PRIVMSG $nick :\002Basic User\002 Commands"puthelp "PRIVMSG $nick :!auser  - adds a user to bot"puthelp "PRIVMSG $nick :!aop  - adds user auto-op to channel"puthelp "PRIVMSG $nick :!rmaop  - removes auto-op to channel"puthelp "PRIVMSG $nick :!vop  - adds user auto-voice to channel"puthelp "PRIVMSG $nick :!rmvop  - removes user auto-voice to channel"puthelp "PRIVMSG $nick :!f  - adds user +f to channel"puthelp "PRIVMSG $nick :!rmf  - removes user +f to channel"puthelp "PRIVMSG $nick :!op  - inverse ops of nick"puthelp "PRIVMSG $nick :!vo  - inverse voice of nick"puthelp "PRIVMSG $nick :!k  - kicks a user"puthelp "PRIVMSG $nick :!kb   - kicks and bans a user"puthelp "PRIVMSG $nick :!topic  - sets a channel topic"puthelp "PRIVMSG $nick :!opme - if you are set to +o on bot you will be oped"if {[matchattr $hand m|n $chan]} {puthelp "PRIVMSG $nick :\002Master\002 Commands"puthelp "PRIVMSG $nick :!globalaop  - adds global auto-op"puthelp "PRIVMSG $nick :!globalvop  - adds global auto-voice"puthelp "PRIVMSG $nick :!globalf  - adds global friend"puthelp "PRIVMSG $nick :!globalrmaop  - removes global auto-op"puthelp "PRIVMSG $nick :!globalrmvop  - removes global auto-voice"puthelp "PRIVMSG $nick :!globalrmf  - removes global friend"puthelp "PRIVMSG $nick :!rmuser  - removes a user from bot"puthelp "PRIVMSG $nick :!lsuser - lists bot users"puthelp "PRIVMSG $nick :!+chan <#chan+options> - adds a channel to monitor"puthelp "PRIVMSG $nick :!-chan <#chan> - removes a channel from monitor"putserv "PRIVMSG $nick :!savechan - Saves channels data"}if {[matchattr $hand n $chan]} {puthelp "PRIVMSG $nick :\002BotOwner\002 Commands"puthelp "PRIVMSG $nick :!die - kills bot"puthelp "PRIVMSG $nick :!rh - rehash bot"puthelp "PRIVMSG $nick :!chattr   - make raw changes to user as per .chattr in partyline"puthelp "PRIVMSG $nick :!save - save config"puthelp "PRIVMSG $nick :!rl - reload config"puthelp "PRIVMSG $nick :!bu - backup bot"puthelp "PRIVMSG $nick :!bc  - broadcast msg to all channels bot is on"}}

Statistics: Posted by ev0xpr0x — Sat Jun 29, 2013 9:08 am