egghelp.org community

[achilles1900]

Hi,

I am running Darles greet script, Could anyone suggest how to make a minor modification?
I think he is not available anymore as i have emailed him and no answer.

1. Would like to be able to set the channel the script runs on.

2. Enable a normal user who joins the channel, to type a public command example !profile achilles and the bot displays the profile.
Currently, only the person who makes the profile can display it

script follows below, thanks for your help people .

#####################################################
#TxTGreet 1.0 by darles (TCL script for eggdrop 1.x)#
#TxTGreet released: 09.08.2005 #
#---------------------------------------------------#
# Homepage: http://egghelp.nasa-team.net #
# e-mail: darles@takas.lt #
# IRC: irc.data.lt:6667 @ Aitvaras.net #egghelp #
#---------------------------------------------------#
# Please don't change my nick to your... #
# Thanks, darles #
#####################################################
# Commands: #
# #
# !profile <greet text> - add greet or change it #
# !delprofile - remove greet #
# !myprofile - show greet #
# #
#####################################################
# #
# THANKS FOR: #
# www.rulex.net - (For shell) #
# irc.quakenet.org @ QuakeNet #tcl (help) #
# #
#####################################################

### Necessary configuration ###

set patch "deleted"
# Example: "home/darles/eggdrop/greet"

set greetsize "100"
# Greet limit (symbols)

set floodtimer "30"
# Time after which person can change it's greet

### End of necessary configuration ###

### Other configuration ###

set floodtext "Don't flood!!! You could set profile after $floodtimer seconds"
# This is message will be showed for flooders

set greetok "Your profile has been successfully set"
# This message will be showed, when greet is OK

set greetbad "Your profile is longer than $greetsize symbols"
# This error message will be showed then greet is longer than it should be

set greetdel "Your profile successfully deleted"
# This message will be showed then greet will be successfully deleted

set greetdelerr "Your profile not found"
# This error message will be showed then greet file not found
set yourgreet "Your profile is:"
# This is message using in !mygreet command

#####################################################
# #
# PLEASE DO NOT EDIT LINES BELOW!!! #
# #
#####################################################

bind pub - !profile addgreet
bind pub - !delprofile remgreet
bind pub - !myprofile mygreet
bind pub - !help help
bind join - * showgreet

proc addgreet {nick uhost hand chan arg} {
global file greetsize patch greetbad greetok floodtext floodtimer
set file "$nick.txt2"
if {[file exist /$patch/$file]} {
set file2 [open /$patch/$file r]
gets $file2 ignore
close $file2
putserv "NOTICE $nick :$ignore"
} else {
set file3 [open /$patch/$nick.txt w+]
set text [lrange [split $arg] 0 end]
if {[string length $text] >= $greetsize} {
putserv "NOTICE $nick :$greetbad"
return 1
} else {
puts $file3 "$text"
close $file3
putserv "NOTICE $nick :$greetok"
set file4 [open /$patch/$file w+]
puts $file4 $floodtext
close $file4
utimer $floodtimer del
}
}
}
proc del {} {
global file patch
file delete "/$patch/$file"
}
proc showgreet {nick uhost hand chan} {
global patch
if {[file exist /$patch/$nick.txt]} {
set file5 [open /$patch/$nick.txt r+]
gets $file5 text
close $file5
putserv "PRIVMSG $chan :\[$nick\] $text"
}
}
proc mygreet {nick uhost hand chan arg} {
global patch
if {[file exist /$patch/$nick.txt]} {
set file6 [open /$patch/$nick.txt r]
gets $file6 text
close $file6
putserv "NOTICE $nick :$yourgreet: \[$nick\] $text"
}
}
proc remgreet {nick uhost hand chan arg} {
global patch greetdel greetdelerr
if {[file exist /$patch/$nick.txt]} {
file delete "/$patch/$nick.txt"
file delete "/$patch/$nick.txt2"
putserv "NOTICE $nick :$greetdel"
} else {
putserv "NOTICE $nick :$greetdelerr"
}
}
proc help {nick uhost hand chan arg} {
putserv "NOTICE $nick :My commands is:"
putserv "NOTICE $nick :!profile <text> - set your greet, !delprofile - remove your greet, !myprofile - show your greet, !help - show this help"
putserv "NOTICE $nick :Greet script by darles."
}
putlog "TxTGreet 1.0 by darles successfully loaded"

[Nimos]

[achilles1900]

Hi Nimos,

thanks for taking the trouble man, really appreciate it

heres what i found after testing it:

1. file "scripts/greet.tcl" line 135)
<bot> invoked from within
<bot> "source scripts/greet.tcl"
<bot> (file "gail.conf" line 1350)

2. I set my profile, the bot writes the profile as a text file OK but
it wont display it when i enter or when i type !showprofile
i get this error in bot "Tcl error [mygreet]: can't read "yourgreet": no such variable"

best regards,
Achilles

[achilles1900]

Hi Nimos,

I was foolin around with it:

1. I deleted the last { on line 135 that seems to have started the bot.

2. In regards to "Tcl error [mygreet]: can't read "yourgreet": no such variable"

I asked a friend and he said to "change global patch to "global patch yourgreet mychan" inside the "mygreet" function.

I tried that and it works thus far.

3. One thing i would like to have is: currently when i do !showprofile <nick> it is case-sensitive, eg. Achilles will be displayed but not achilles. Any ideas on how to make it like that?

thanks Nimos, Achilles

[Nimos]

ok there I need the help of someone else...

is there something like "file existst -nocase", or do we have to set all the filenames with string tolower?

[speechles]