egghelp/eggheads community

Public Commands TCL error. TCL by GoGers !

2016-12-09T05:58:38-04:00

It is now working well.

Statistics: Posted by Fahad — Fri Dec 09, 2016 5:58 am

Public Commands TCL error. TCL by GoGers !

2016-12-08T21:58:10-04:00

I Found out a Problem,,, The LOGO... 1 5,1•4•5•14,1.:X:. 14,1Gô15,1G14,1eR4,1.:X:. 5,1•4•5•

I did tell you this, your first post was missing the " (parenthesis) on the kick lines, for the control code logo, which is why I said to use the proper TCL based control codes. Eggdrop doesn't like using mIRC colours.

Statistics: Posted by Get_A_Fix — Thu Dec 08, 2016 9:58 pm

Public Commands TCL error. TCL by GoGers !

2016-12-08T15:16:21-04:00

I Found out a Problem,,, The LOGO... I change the logo thats why !kick was not working. I Put Original TCL and it was working... Means Logo when I change not work...

<04@Fahad> !kick Statistics
* ChanServ sets mode: +o Deadite
* Statistics was kicked by Deadite ( 1 5,1•4•5•14,1.:X:. 14,1Gô15,1G14,1eR4,1.:X:. 5,1•4•5•)

Statistics: Posted by Fahad — Thu Dec 08, 2016 3:16 pm

Public Commands TCL error. TCL by GoGers !

2016-12-08T15:12:26-04:00

And here's the whole TCL...

Code:

####################################################################================================================================ ## pubcommand.tcl by GoGers       ##================================================================ ## ..::Description::..                                             ## This script is a modification of my previous script.This will be## good for having your own channel and protecting it. You can     ## find me on dalnet under nick "anto" or channels      ## #delhelps / #dalhelps added !access !info changed notice type  ## to channel msg (many asked me to put in a channel msg)          ## so only few commands will be sending notices.Thanks for the    ## support guys, any bugs please feel free to tell on DALnet       ##================================================================ ## Version: 3.0    Public Commands TCL                             ##================================================================ #####################YOU MUST EDIT THIS ################################set password for nick identification if you are changing nick to registered nick and it has the same password as the botnickset password "givebotpasshere"#Commandsbind pub o !op pub_do_opbind pub o !deop pub_do_deopbind pub o !voice pub_do_voicebind pub o !devoice pub_do_devoicebind pub o !topic pub_do_topicbind pub o !perm pub_do_permbind pub o !kick pub_do_kickbind pub o !unban pub_do_unbanbind pub o !unperm pub_do_unpermbind pub o !bans pub_do_bansbind pub m !mode pub_do_mode bind pub m !away pub_do_awaybind pub m !back pub_do_backbind pub o !bot pub_do_botbind pub m !rehash pub_do_rehashbind pub m !restart pub_do_restartbind pub m !jump pub_do_jumpbind pub m !save pub_do_savebind pub m !ban ban:pubbind pub m !kban kban:pubbind pub m "!chattr" chattr:pubbind pub m !act pub:actbind pub m !say pub:saybind pub m !global pub:globalbind pub m !access pub_accessbind pub m !info pub_info#code bind pub m !identify  do_identify#----------------------------------------------------------------proc pub_do_bot {nick host hand channel text} {  puthelp "PRIVMSG $nick :2Commands On This Bot"  puthelp "PRIVMSG $nick :!op  - Ops the nick on a current channel."  puthelp "PRIVMSG $nick :!deop  - Deops the nick on the current channel."  puthelp "PRIVMSG $nick :!voice  - Voices the nick on the current channel."  puthelp "PRIVMSG $nick :!devoice  - Devoices the nick on the current channel."  puthelp "PRIVMSG $nick :!topic  - Sets the topic in the channel it's typed."  puthelp "PRIVMSG $nick :!perm   - Permanently bans the nick you specify."  puthelp "PRIVMSG $nick :!kick   - Kicks the nick."  puthelp "PRIVMSG $nick :!unban  - Unbans the nick who is banned."  puthelp "PRIVMSG $nick :!unperm  - Unbanns the user from the Permanent list."  puthelp "PRIVMSG $nick :!bans - Lists the current bans on the channel."  puthelp "PRIVMSG $nick :!away  - Set the bot away with a message."  puthelp "PRIVMSG $nick :!back - Sets the bot back."  puthelp "PRIVMSG $nick :!bot - Brings up this menu. more commands to go.such as2!jump !restart !rehash !save !ban !kban !act !say !global !join !part !chattr !adduser !botnick !uptime to avoid get flooding on Pvt its restircted"  puthelp "PRIVMSG $nick :2End of bot commands."  return}#----------------------------------------------------------------#Make the bot op someoneproc pub_do_op {nick host handle channel testes} {set who [lindex $testes 0]if {$who == ""} {if {![botisop $channel]} {putserv "PRIVMSG $channel :I'm not op'd. I need to be op'd to do that."return 1}if {[isop $channel]} {putserv "PRIVMSG $channel :YOU are ALREADY op'd in $channel you dumbass."return 1}putserv "MODE $channel +o $nick"return 1}if {![botisop $channel]} {putserv "PRIVMSG $channel :I'm not op'd. I need to be op'd to do that."return 1}if {[isop $who $channel]} {putserv "PRIVMSG $channel :$who is ALREADY op'd in $channel you muppet."return 1} putserv "MODE $channel +o $who"putserv "PRIVMSG $channel :Op'd $who on $channel."putlog "$nick made me op $who in $channel."}#End of pub_do_op#----------------------------------------------------------------#Deop someoneproc pub_do_deop {nick host handle channel testes} {global botnickset who [lindex $testes 0]if {$who == ""} {putserv "PRIVMSG $channel :Usage: !deop "return 1}if {[string tolower $who] == [string tolower $botnick]} {putserv "MODE $channel -o $nick"putserv "PRIVMSG $channel :This is not fair, you think that's funny? Trying to make me deop myself ? you muppet."return 1}if {[string tolower $who] == [string tolower $nick]} {putserv "PRIVMSG $channel :You really wanna deop yourself $nick, ok then here goes."putserv "MODE $channel -o $nick"return 1}if {[matchattr $who +n]} {putserv "MODE $channel -o $nick"putserv "PRIVMSG $channel :I i worship my master $nick, im not gonna deop my owner!"return 1}if {![isop $who $channel]} {putserv "PRIVMSG $channel :That user is already deop'd."return 1}putserv "MODE $channel -o $who"return 1}#end of pub_do_deop#----------------------------------------------------------------#Make the bot voice someoneproc pub_do_voice {nick host handle channel testes  } {set who [lindex $testes 0]if {$who == ""} {if {![botisop $channel]} {putserv "PRIVMSG $channel :I'm not op'd. Muppet."return 1}if {[isvoice $channel]} {putserv "PRIVMSG $channel :YOU are ALREADY voice'd in $channel you dumbass."return 1}putserv "MODE $channel +v $nick"return 1}if {![botisop $channel]} {putserv "PRIVMSG $channel :I'm not op'd. Muppet."return 1}if {[isvoice $who $channel]} {putserv "PRIVMSG $channel :$who is ALREADY voice'd in $channel you dumbass."return 1}putserv "MODE $channel +vvvvv $who "putserv "PRIVMSG $channel :Voice'd $who on $channel."putlog "$nick made me op $who in $channel."}#End of pub_do_voice#----------------------------------------------------------------#Devoice someoneproc pub_do_devoice {nick host handle channel testes} {global botnickset who [lindex $testes 0]if {$who == ""} {putserv "PRIVMSG $channel :Usage: !devoice "return 1}if {[string tolower $who] == [string tolower $botnick]} {putserv "MODE $channel -v $nick"putserv "PRIVMSG $channel :This is not fair, Think that's funny? Trying to make me devoice myself?"return 1}if {[string tolower $who] == [string tolower $nick]} {putserv "PRIVMSG $channel :You really wanna devoice yourself $nick, well ok, here goes. as your wish"putserv "MODE $channel -v $nick"return 1}if {[matchattr $who +n]} {putserv "MODE $channel -v $nick"putserv "PRIVMSG $channel :Im not gonna devoice my owner! You think im a stupid bot?"return 1}if {![isvoice $who $channel]} {putserv "PRIVMSG $channel :That user is already devoice'd."return 1}putserv "MODE $channel -v $who"return 1}#end of pub_do_devoice#----------------------------------------------------------------#Change topic on channelproc pub_do_topic {user host handle channel testes} {set what [lrange $testes 0 end]if {$what == ""} {putserv "PRIVMSG $channel :Usage: !topic "return 1}if {![botisop $channel]} {putserv "PRIVMSG $channel : I need to be op'd on that channel to change the topic."return 1}putserv "TOPIC $channel :$what"return 1}#end of pub_do_topic#----------------------------------------------------------------#Permban someoneproc pub_do_perm {nick host handle channel testes} {global botnickset why [lrange $testes 1 end]set who [lindex $testes 0]set ban [maskhost [getchanhost $who $channel]]if {$who == ""} {putserv "PRIVMSG $channel :Usage: !perm "set ban [maskhost [getchanhost $channel]]return 1}if {![onchan $who $channel]} {putserv "PRIVMSG $channel :$who aint on $channel."return 1}if {[string tolower $who] == [string tolower $botnick]} {putserv "KICK $channel $nick :Dumbass. I aint bannin' myself!"return 1}if {[matchattr $who +n]} {putserv "NOTICE $who :$nick tried to permban you. Better have a talk with him."putserv "PRIVMSG $channel :You tried to permban $who, He's my OWNER! I'm tellin' him now..."return 1}newchanban $channel $ban $nick $whystick $ban $channelputserv "KICK $channel $who :$why 1 5,1•4•5•14,1.:X:. 14,1Gô15,1G14,1eR4,1.:X:. 5,1•4•5•"putlog "$nick made me permban $who who was $ban and the reason was $why."putserv "PRIVMSG $channel :PermBanned $who on $channel with reason: $why."return 1}#end of pub_do_perm#ban proc ban:pub {nick uhost hand chan arg} { set ban [lindex $arg 0] if {[string match *!*@* $ban]} {pushmode $chan +b $ban} {pushmode $chan +b *!*@[lindex [split [getchanhost $ban] @] 1]}}#end#kban proc kban:pub {nick uhost hand chan arg} {ban:pub $nick $uhost $hand $chan $arg;pub_do_kick $nick $uhost $hand $chan $arg} #----------------------------------------------------------------#Kick someoneproc pub_do_kick {nick uhost hand chan arg} {global botnickset who [lindex $arg 0]set why [lrange $arg 1 end]if {![onchan $who $chan]} {putserv "PRIVMSG $channel :$who isnt on $chan."return 1}if {[string tolower $who] == [string tolower $botnick]} {putserv "KICK $chan $nick :hah. not funny.1 5,1•4•5•14,1.:X:. 14,1Gô15,1G14,1eR4,1.:X:. 5,1•4•5•"return 1}if {$who == ""} {putserv "PRIVMSG $chan :Useage: !k "return 1}if {$who == $nick} {putserv "PRIVMSG $chan :Why the hell do you want to kick yourself $nick?"return 1}if {[matchattr $who +n]} {putserv "KICK $chan $nick :Trying to kick my owner eh? ;Þ"return 1}putserv "KICK $chan $who :$why 1 5,1•4•5•14,1.:X:. 14,1Gô15,1G14,1eR4,1.:X:. 5,1•4•5•"putserv "PRIVMSG $chan :Kicked $who from $channel with this saying: $why. :)"return 1}#End of pub_do_kick#----------------------------------------------------------------#Delete a host from the banlist.proc pub_do_unban {nick host handle channel testes} {set who [lindex $testes 0]if {$who == ""} {putserv "NOTICE $nick :Usage: "return 1}putserv "MODE $channel -b $who"putlog "$nick made me Delete $who from banlist."return 1}#end of pub_do_unban#----------------------------------------------------------------#Remove user from shitlistproc pub_do_unperm {nick host handle channel testes} {set who [lindex $testes 0]if {$who == ""} {putserv "NOTICE $nick :Usage: <[censored] to remove>"return 1}killchanban $channel $whoputlog "$nick made me Delete $who from shitlist."return 1}#end of pub_do_unperm#----------------------------------------------------------------#banlistproc pub_do_bans {nick uhost hand chan text} {       puthelp "NOTICE $nick :- \037\002Ban List for\002\037 ($chan.)"  foreach {a b c d} [banlist $chan] {       puthelp "NOTICE $nick :- [format %-12s%-12s%-12s%-12s $a $b $c $d]"      }      puthelp "NOTICE $nick :- \037\002Ban List for\002\037 ($chan Completed.)" }#end of banlist#----------------------------------------------------------------#Set the bot away.proc pub_do_away {nick host handle channel testes} {set why [lrange $testes 0 end]if {$why == ""} {putserv "NOTICE $nick :!away "return 1}putserv "AWAY :$why"putserv "NOTICE $nick :Away MSG set to $why."return 1}#end of pub_do_away#----------------------------------------------------------------#Set the bot back.proc pub_do_back {nick host handle channel testes} {putserv "AWAY :"putserv "NOTICE $nick :I'm back."}#end of pub_do_back#----------------------------------------------------------------#Change the mode in the channelproc pub_do_mode {nick host handle channel testes} {set who [lindex $testes 0]if {![botisop $channel]} {putserv "NOTICE $nick :I'm not op'd in $channel you LAMER!"return 1}if {$who == ""} {putserv "NOTICE $nick :Usage: !mode "return 1}putserv "MODE $channel $who"return 1}#end of pub_do_mode#Set the rehashproc pub_do_rehash  {nick host handle channel testes} {  global botnick  set who [lindex $testes 0]  if {$who == ""} { rehash  putquick "NOTICE $nick : Rehashing TCL script(s) and variables" return 1}}#Set the restartproc pub_do_restart  {nick host handle channel testes} {  global botnick set who [lindex $testes 0] if {$who == ""} { restart putquick "NOTICE $nick : Restarting Bot  TCL script(s) and variables" return 1}}#Set the jumpproc pub_do_jump  {nick host handle channel testes} {  global botnick set who [lindex $testes 0] if {$who == ""} { jump putquick "NOTICE $nick : Changing Servers" return 1}}#Set the saveproc pub_do_save  {nick host handle channel testes} {  global botnick set who [lindex $testes 0] if {$who == ""} { save putquick "NOTICE $nick :Saving user file" putquick "NOTICE $nick :Saving Channel File" return 1}}#Hop the bot!# Set this to 1 if the bot should hop upon getting deopped, 0 if it should ignore it. set hopondeop 1# Set this to 1 if the bot should kick those who deop it upon returning, 0 if not.# NOTE: The bot owner will be immune to this kick even if it is enabled. set kickondeop 0#Don't Edit anything below!bind pub m "!hop" hop:pubbind pub m "!cycle" hop:pubbind msg m "hop" hop:msgbind mode - * hop:modeproc hop:pub { nick uhost hand chan text } { putlog "Hopping channel $chan at $nick's Request" putserv "PRIVMSG $chan :Cycle Command used by $nick , Cycling 4,1-=15GoGeRs4=-3 MaGic" putserv "PART :$chan" putserv "JOIN :$chan" putserv "PRIVMSG $chan :"}proc hop:msg { nick uhost hand text } { putlog "Hopping channel $text at $nick's Request" putserv "PART :$text" putserv "JOIN :$text" putserv "PRIVMSG $text :Cycle Command was used by $nick 4,1-=15GoGeRs4=-3 MaGic"}proc hop:mode { nick uhost hand chan mc vict } {global hopondeop kickondeop botnick ownerif {$mc == "-o" && $vict == $botnick && $hopondeop == 1} { putlog "Hopping channel $chan due to deop" putserv "PRIVMSG $chan :" putserv "PART :$chan" putserv "JOIN :$chan" putserv "PRIVMSG $chan :"  if {$nick != $owner && $kickondeop == 1} {   putserv "KICK $chan $nick"}}}#join/part section, newly added bind pub m "!join" join:pub proc join:pub { nick uhost hand chan text } { putlog "Joining channel $text by $nick's Request" putserv "PRIVMSG $chan :Joining channel $text by $nick's Request" putserv "JOIN :$text" channel add $text putserv "PRIVMSG $chan :"}bind pub m "!part" part:pub proc part:pub { nick uhost hand chan text } {  set chan [lindex $text 0]  if {![isdynamic $chan]} {  puthelp "privmsg $chan :$nick: That channel isn't dynamic!"  return 0 }  if {![validchan $chan]} {  puthelp "privmsg $chan :$nick: That channel doesn't exist!"  return 0 } putlog "Parting $chan by $nick's Request" putserv "PRIVMSG $chan :Leaving $chan by $nick's Request" putserv "PART :$chan" channel remove $chan }# End - join/part # botnick - small routine to bot to change nicks.bind pub m "!botnick" botnick:pubproc botnick:pub { mynick uhost hand chan text  } {global nick passwordputlog "Changing botnick "putserv "PRIVMSG $chan :Changing my name?? to $text "set nick $text putquick "PRIVMSG nickserv@services.dal.net :identify $text $password" putserv "PRIVMSG $chan :Identifying to NickServ@services.dal.net..."}# end botnick#identifing Botnick proc do_identify {nick host handle chan text} { global passwordputquick "PRIVMSG nickserv@services.dal.net :identify $password" putserv "NOTICE $nick :Identifying to NickServ@services.dal.net..."}#end#uptime bind pub m "!uptime" uptime:pubproc uptime:pub {nick host handle chan arg} { global uptime set uu [unixtime] set tt [incr uu -$uptime] puthelp "privmsg $chan :$nick:4,1 My uptime is [duration $tt]."}#End of uptime#addchattr with flagsproc chattr:pub {nick uhost handle chan arg} { set handle [lindex $arg 0] set flags [lindex $arg 1] if {![validuser $handle]} {  puthelp "privmsg $chan :$nick: That handle doesn't exist!"  return 0 } if {$flags == ""} {  puthelp "privmsg $chan :$nick: Syntax: .chattr  <+|->"  return 0 } chattr $handle $flags puthelp "privmsg $chan :Added that! $nick."}#adduser bind pub m "!adduser" adduser:pubproc adduser:pub {nick uhost handle chan arg} { set handle [lindex $arg 0] set hostmask [lindex $arg 1] if {[validuser $handle]} {  puthelp "privmsg $chan :$nick: That user already exists!"  return 0 } if {$hostmask == ""} {  set host [getchanhost $handle]  if {$host == ""} {   puthelp "privmsg $chan :$nick: I can't get $handle's host."   puthelp "privmsg $chan :$nick: Syntax: !adduser  "    return 0 }  if {![validuser $handle]}  {   adduser $handle *!$host   puthelp "privmsg $chan :Added that! $nick."  } }  if {![validuser $handle]}  {  adduser $handle $hostmask  puthelp "privmsg $chan :Added that! $nick."  } }#end#deluser bind pub m "!deluser" deluser:pubproc deluser:pub {nick uhost handle chan arg} { set handle [lindex $arg 0] set hostmask [lindex $arg 1] if {[validuser $handle]} {  deluser $handle   puthelp "privmsg $chan :$nick: User has been deleted from my database !"  return 0 } if {![validuser $handle]} {  puthelp "privmsg $chan :$nick: User does not exisit on  my database !"  return 0 }}#accessproc pub_access {nick uhost handle chan arg} { if {![validuser [lindex $arg 0]]} {puthelp "privmsg $chan :[lindex $arg 0] does not exist";return} if {[matchattr [lindex $arg 0] n]} {puthelp "privmsg $chan :[lindex $arg 0] is an \002Owner";return} if {[matchattr [lindex $arg 0] m]} {puthelp "privmsg $chan :[lindex $arg 0] is a \002Master";return} if {[matchattr [lindex $arg 0] o]} {puthelp "privmsg $chan :[lindex $arg 0] is an \002Operator";return} puthelp "privmsg $chan :[lindex $arg 0] is Basic"}#infoproc pub_info {nick uhost handle chan arg} { if {$arg == "none"} {  setuser $handle info ""  puthelp "privmsg $chan :Added that! $nick." } if {$arg != "none" && $arg != ""} {  setuser $handle info $arg  puthelp "privmsg $chan :Added that! $nick." } if {$arg == ""} {  if {[getuser $handle info] == ""} {   puthelp "privmsg $chan :$nick: You don't have an info."   return 0   }  puthelp "privmsg $chan :$nick: Your info is: [getuser $handle info]" }}#end#say & act proc pub:say {nick uhost handle chan arg} {puthelp "privmsg $chan :$arg"}proc pub:global {nick uhost handle chan arg} { foreach chan [channels] {  puthelp "privmsg $chan :\002 $arg \002 This Message Broadcasted by request of $nick " }}proc pub:act {nick uhost handle chan arg} {puthelp "privmsg $chan :\001ACTION $arg\001"}putlog "4Channel Public Commands Script 3.0 by 4,1{15GoGeRs4@15rEl14oD15eD4}"

Statistics: Posted by Fahad — Thu Dec 08, 2016 3:12 pm

Public Commands TCL error. TCL by GoGers !

2016-12-08T15:11:19-04:00

The Error

while executing
"proc pub_do_kick {nick uhost hand chan text} {
# set who's name
set who [lindex [split $text] 0]

# check if who is empty
if {![string..."
(file "scripts/pubcommand.tcl" line 273)
invoked from within
"source scripts/pubcommand.tcl"
(file "eggdrop.conf" line 215)
[19:10:33] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
Bull@cosmos:~/eggdrop$

Statistics: Posted by Fahad — Thu Dec 08, 2016 3:11 pm

Public Commands TCL error. TCL by GoGers !

2016-12-08T12:40:09-04:00

Here is a cleaner version.

Code:

proc pub_do_kick {nick uhost hand chan text} {# set who's nameset who [lindex [split $text] 0]# check if who is emptyif {![string length $who]} {puthelp "PRIVMSG $chan :Useage: !k "return}# check if on channelif {![onchan $who $chan]} {puthelp "PRIVMSG $channel :$who isnt on $chan."return}# check if bot is the targetif {[isbotnick $who]} {putkick $chan $who "hah. not funny."return}# check if who has access to bot and has owner flag for channel or globallyif {[matchattr [nick2hand $who] n|n]} {putkick $chan $who "Trying to kick my owner eh? ;Þ"return}# perform the actual kick with given infoset why [lrange $text 1 end]putkick $chan $who $whyputhelp "PRIVMSG $chan :Kicked $who with this saying: $why. :)"}

Statistics: Posted by caesar — Thu Dec 08, 2016 12:40 pm

Public Commands TCL error. TCL by GoGers !

2016-12-08T10:38:03-04:00

No, I didn't add anything... I just put this tcl in my eggdrop. Rest of the commands working well, only this one having issue. could you please tell me how to fix this?

Statistics: Posted by Fahad — Thu Dec 08, 2016 10:38 am

Public Commands TCL error. TCL by GoGers !

2016-12-08T07:35:01-04:00

Try editing the above post inside CODE tags, but it looks like you've neglected to add a parenthesis to the end of each kick command that has control codes. You would do better using TCL control codes

Statistics: Posted by Get_A_Fix — Thu Dec 08, 2016 7:35 am

Public Commands TCL error. TCL by GoGers !

2016-12-08T06:35:49-04:00

Everything is fine until l i not use this public command !kick - I get this error:
!kick Statistics testing kick.
Tcl error [pub_do_kick]: extra characters after close-quote

Code:

#Kick someoneproc pub_do_kick {nick uhost hand chan arg} {global botnickset who [lindex $arg 0]set why [lrange $arg 1 end]if {![onchan $who $chan]} {putserv "PRIVMSG $channel :$who isnt on $chan."return 1}if {[string tolower $who] == [string tolower $botnick]} {putserv "KICK $chan $nick :hah. not funny. 1 5,1•4•5•14,1.:X:.14,1De15,1a14,1dite4,1.:X:. 5,1•4•5•return 1}if {$who == ""} {putserv "PRIVMSG $chan :Useage: !k "return 1}if {$who == $nick} {putserv "PRIVMSG $chan :Why the hell do you want to kick yourself $nick?"return 1}if {[matchattr $who +n]} {putserv "KICK $chan $nick :Trying to kick my owner eh? ;Þ"return 1}putserv "KICK $chan $who :$why 1 5,1•4•5•14,1.:X:.14,1De15,1a14,1dite4,1.:X:. 5,1•4•5•putserv "PRIVMSG $chan :Kicked $who from $channel with this saying: $why. :)"return 1}

Statistics: Posted by Fahad — Thu Dec 08, 2016 6:35 am