View Single Post
Old 07-27-2005, 05:43 AM  
zOrP
Senior Member
 
Join Date: Jan 2005
Posts: 282
Default

set announce(REQDELIRC) "\0039-\003%sitename/\002REQDEL\002\0039- ::\003 %bold%user%bold just deleted request #%bold%request%bold."
set announce(REQFILLEDIRC) "\0039-\003%sitename/\002REQFILLED\002\0039- ::\003 %bold%user%bold just filled request #%bold%request%bold. Good Work!"
add those 2 under announce..

and edit this

################################################## #######
# DEL REQUEST ON IRC #
################################################## #######
proc proc_reqdel {nick uhost hand chan arg} {
global binary ioa disable announce
if { $disable(REQDELIRC) == 0 } {
set arg [lindex $arg 0]
if { [string is digit -strict $arg] } {
set status [catch { exec -- $binary(IOA) REQDELIRC $arg } result]
if { $status == 0 } {
set output $announce(REQDELIRC)
set output [replacevar $output "%user" $nick]
set output [replacevar $output "%request" $arg]
set output [basicreplace $output "REQUEST"]
sndchan "puthelp" $chan $output
}
} else {
puthelp "NOTICE $nick :Request number not found: $arg isn't a number"
}
}
}
#puthelp "NOTICE $nick :Request number $arg is now deleted"


################################################## #######
# FILLED REQUEST ON IRC #
################################################## #######
proc proc_reqfilled {nick uhost hand chan arg} {
global binary ioa disable announce
if { $disable(REQFILLEDIRC) == 0 } {
set arg [lindex $arg 0]
if { [string is digit -strict $arg] } {
set status [catch { exec -- $binary(IOA) REQFILLEDIRC $arg } result]
if { $status == 0 } {
set output $announce(REQFILLEDIRC)
set output [replacevar $output "%user" $nick]
set output [replacevar $output "%request" $arg]
set output [basicreplace $output "REQUEST"]
sndchan "puthelp" $chan $output
}
} else {
puthelp "NOTICE $nick :Request number not found: $arg isn't a number"
}
}
}



should work now..
zOrP is offline   Reply With Quote