1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
on *:OPEN:?: {
msg $nick ( 7,1[14» 15Hi $nick. I'm Not Accepted ? Try Again Later Or Contact Me On Chan: #Laurens 15,1 14«7] )
timer 1 0 acceptq $timestamp $nick
}
alias acceptq {
set %acc $input( $1 will you accept a query from $+($2,?),yqdv,Accept Query )
acceptqcheck $1 $2
}
alias acceptqcheck {
if ( %acc == $yes ) {
msg $2 7,1[14» 15 Accepted ! 15,1 14«7]
window -a $2
}
if ( %acc == $no ) {
msg $2 7,1[14» 15Not Accepted !15,1 14«7]
window -c $2
}
unset %acc
}
|