mrdr
Halfop
Joined: 16 Jun 2005
Posts: 42
Location: Lithuania / Vilnius / Underground
|
 Posted: Thu Jul 07, 2005 7:47 am Post subject: Need some help with this script |
 |
|
I have this script. Here's the example what it does.
me: !duxas nick
bot: {nick uzhduxintas}
And now I need, when I write "!unduxas nick" bot will delete that nick from the list. 
Any ideas?
| Code: | # what would you like the commands (addquote and quote) prefixs to be?
set quoteitpubprefix "!"
# where would you like the quoteit data to be stored?
set quoteitfile "quoteit.data"
# would you like quotes to be displayed via private notice?
#
# 0 = no, display quotes in channel instead
# 1 = yes, display quotes via private notice.
set quoteitvianotice "1"
if { ![info exists toolbox_loaded] } { source scripts/alltools.tcl }
bind pub - [string trim $quoteitpubprefix]duxai quoteit:pub:quote
bind pub G|G [string trim $quoteitpubprefix]duxas quoteit:pub:addquote
proc quoteit:pub:quote {nick uhost hand chan arg} {
global quoteitfile quoteitvianotice
set quotes ""
if { [file exists $quoteitfile] } { set file [open $quoteitfile r]
} else {
if { $quoteitvianotice == 0 } { putmsg $chan "$quoteitfile does not exist. You'll need to add quotes to the database first by typing \002!addquote <a quote>\002" }
if { $quoteitvianotice == 1 } { putnotc $nick "$quoteitfile does not exist. You'll need to add quotes to the database first by typing \002!addquote <a quote>\002" }
return 0
}
while { ![eof $file] } {
set quote [gets $file]
if { $quote != "" } {
set quotes [linsert $quotes end $quote]
}
}
close $file
set row [rand [llength $quotes]]
set quote [list $quotes]
if { $quote != "" } {
if { $quoteitvianotice == 0 } {
putmsg $chan "$quote"
}
if { $quoteitvianotice == 1 } {
putnotc $nick "$quote"
}
return 1
}
}
proc quoteit:pub:addquote {nick uhost hand chan arg} {
global quoteitfile
if { $arg == "" } {
putnotc $nick "Usage: !duxas <nick>"
return 0
}
set file [open $quoteitfile a]
puts $file "$arg"
close $file
putmsg $chan "{$arg uzhduxintas}"
return 1
}
putlog "*** Duxu tcl loaded" |
_________________
IRC: #egghelp @ Aitvaras.NET
IRC: #NASA @ Aitvaras.NET |
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
