| Autore: Sp | Data: 2005-04-19 |
| Modificato:
Documento non modificato
|
Letture: 590 |
|
Tipo: alias
Descrizione: Ecco il code per poter trasmettere\ricevere msg al contrario :) es.: /fantasy testo
alias fantasy {
if ($len($1-) != 0) {
unset %ct.text
set %ct.c 1
set %ct.ln $len($1-)
while (%ct.c <= $len($1-)) {
if ($mid($1-,%ct.ln,1) == $chr(32)) { set %ct.text $instok(%ct.text,$chr(32),%ct.c,32) }
else { set %ct.text $instok(%ct.text,$mid($1-,%ct.ln,1),%ct.c,163) }
inc %ct.c
dec %ct.ln }
msg $chan [x] $remove(%ct.text,$chr(163)) } }
on ^*:text:*:#: {
if ($1 == [x]) {
unset %ct.text.rcv
set %ct.c.rcv 1
set %ct.ln.rcv $len($2-)
while (%ct.c.rcv <= $len($2-)) {
if ($mid($2-,%ct.ln.rcv,1) == $chr(32)) { set %ct.text.rcv $instok(%ct.text.rcv,$chr(32),%ct.c.rcv,32) }
else { set %ct.text.rcv $instok(%ct.text.rcv,$mid($2-,%ct.ln.rcv,1),$calc($numtok(%ct.c.rcv,163) - 1),163) }
inc %ct.c.rcv
dec %ct.ln.rcv }
echo -m $chan < $+ $nick $+ > [x] $remove(%ct.text.rcv,$chr(163)) | halt }
}
|
|
