this is a file i modified i do not claim any credit for this its just an idea what im after it still needs a lot added but i dont know how nor have all the time to learn how so if anyone can help adding to this already modified script post here or pm me

this actualy can work but it saves a message for any nick not the eggdrop nick and ive had to comment out 2 puthelp becuase i want only the bot owner ie me to see them and acsses the .pending and .clear
i also need a topic changer part when someone requests a bnc for example a user types /msg botnick !apply nick:user:pass:email its says ur request has been loged after that i want it to change topic of the bnc channel the main topic stays the same while the news part changes to Requests pending {1}and when i type .approve it del the request and notices the user saying bnc approved and changes topic to requests pending [0] i know im askin for a lot but this is really gonna help me out
#################################
# Public notes by Sergio100 1.01 #
#################################
#You should make a directory named BNCRequests where the eggdrop lives

#It's messy, i know... But i wrote it without help and without knowing TCL

#TO DO: Check users by host, not by nick.
#1.01: I was using string wordend for nicks, but it doesnt work with some characters.
# So i now use lindex and lrange. It's quite faster too

bind join - * onjoin_BNCRequests
bind msg - .clear erase_BNCRequests
bind msg - !Apply leave_BNCRequests
bind msg - .pending get_BNCRequests
bind msg - !BNCHelp help_BNCRequests
#This is the per user limit on notes received at one time (not sent!

.
set limitnotes 10
proc help_BNCRequests { nick uhost hand text } {
global botnick
puthelp "PRIVMSG $nick :Type !Apply BNC Nick:User:Pass:Email to send a Request | please Allow Some Time For Setup As We May Be Busy We Will Get Back To You."
#puthelp "PRIVMSG $nick :The script will let you know if you have notes when you join the channel. Please delete your notes after reading them. Otherwise you wont be able to get more (limit is 10)"
#puthelp "PRIVMSG $nick : Use /msg $botnick .Pending to read The BNC Requests or /msg $botnick .clear to delete them.
return 1
}
proc onjoin_BNCRequests { nick uhost hand chan } {
global botnick
set n [dosearchnote $nick]
if ($n>0) {
putserv "NOTICE $nick :You have $n Requests waiting to be Approved. Use /msg $botnick .pending to read them."
return 1
}
return 0
}
proc erase_BNCRequests { nick uhost hand text } {
set lowercasenick [string tolower $nick]
set a [dosearchnote $nick]
if ($a>0) {
putserv "NOTICE $nick :All BNC Requests have been deleted"
eval "exec rm ./BNCRequests/public$lowercasenick.txt"
return 1
} else {
putserv "NOTICE $nick :No Requests To Clear"
return 0
}
}
proc dosearchnote {getnick} {
set lowercasenick [string tolower $getnick]
set notesf [file exists "./BNCRequests/public$lowercasenick.txt"]
if ($notesf==0) {
return 0
}
set notesfile [open "./BNCRequests/public$lowercasenick.txt" "r+"]
set numbernotes 0
while {[eof $notesfile] == 0} {
set line [gets $notesfile]
set nickline [lindex $line 0]
if {[string compare [string tolower $nickline] [string tolower $getnick]] == 0} {
set numbernotes [incr numbernotes]
}
}
close $notesfile
return $numbernotes
}
proc leave_BNCRequests { nick uhost hand text } {
global limitnotes
set getnick [lindex $text 0]
set msg [lrange $text 1 end]
set numbernotes [dosearchnote $getnick]
set cmp [expr $numbernotes >= $limitnotes]
if ($cmp>0) {
putserv "NOTICE $nick :The Bots Requests Are Full $limitnotes Requests. No more Requests can be added to prevent spam."
} else {
set lowercasenick [string tolower $getnick]
set thereis [file exists "./BNCRequests/public$lowercasenick.txt"]
set cmp [expr $thereis == 1]
if ($cmp) {
set notesfile [open "./BNCRequests/public$lowercasenick.txt" "a"]
} else {
set notesfile [open "./BNCRequests/public$lowercasenick.txt" "w+"]
}
puts $notesfile "$getnick $nick $msg"
putserv "NOTICE $nick :Request to BNC Admins has been Loged PLease Allow At Least 24HRs For Setup We Maybe Busy ;]."
close $notesfile
}
return 1
}
proc get_BNCRequests { nick uhost hand text } {
set lowercasenick [string tolower $nick]
set thereis [file exists "./BNCRequests/public$lowercasenick.txt"]
if ($thereis==0) {
putserv "NOTICE $nick :No Requests At Presant."
return 1
}
set notesfile [open "./BNCRequests/public$lowercasenick.txt" "r+"]
if {[eof $notesfile]} {
putserv "NOTICE $nick : There Are No requests."
close $notesfile
} else {
set yes 0
set b [dosearchnote $nick]
set cmp [expr $b > 0]
if ($cmp<=0) {
putserv "NOTICE $nick :There Are No Requests."
close $notesfile
return 1
}
while {[eof $notesfile] == 0} {
set line [gets $notesfile]
set thisnick [lindex $line 0]
set cmpstr [string compare [string tolower $thisnick] [string tolower $nick]]
if ($cmpstr==0) {
set sendnick [lindex $line 1]
set msg [lrange $line 2 end]
putserv "NOTICE $nick :There Is A Request From $sendnick -> $msg"
set yes 1
}
}
if { $yes==0 } {
putserv "NOTICE $nick :There Are No Requests Arrr U SSStupid or Something."
}
close $notesfile
}
return 1
}
##############################
# Show load statement #
##############################
putlog " Public notes by Sergio100 1.01 LOADED"