mIRC Home    About    Download    Register    News    Help

Print Thread
#46015 01/09/03 04:21 AM
Joined: Aug 2003
Posts: 23
M
Ameglian cow
OP Offline
Ameglian cow
M
Joined: Aug 2003
Posts: 23


i want to do a writing addon ,not like others ,just i write on reverse

any help thnx

#46016 01/09/03 05:11 AM
Joined: Aug 2003
Posts: 23
M
Ameglian cow
OP Offline
Ameglian cow
M
Joined: Aug 2003
Posts: 23
menu nicklist {
® -= NOCHERO =- ®
.Letras:set %letras 213
}

on *:INPUT:*:{
if ($active == Status Window) && ($left($1-,1) != /) { echo *** No puedes escribir en Status ! halt }
if ($left($1-,1) == /) { $1- | halt }
if ( %letras == 213 ) { .say 14,15 GRR 02,08 $1- 14,15 GRR  | halt }

}



how can i add a reverse stuff?

#46017 01/09/03 05:16 AM
Joined: Mar 2003
Posts: 1,271
L
Hoopy frood
Offline
Hoopy frood
L
Joined: Mar 2003
Posts: 1,271
Reverse color or reverse the letters. The first is by using ctrl+r - the second involves a loop, where you start reading at the last character, then work your way to the beginning, and write the letters to a variable. Then you send the variable to the window.

Personally I wouldn't though, it's annoying.


DALnet #Helpdesk
I hear and I forget. I see and I remember. I do and I understand. -Confucius
#46018 01/09/03 05:21 AM
Joined: Aug 2003
Posts: 23
M
Ameglian cow
OP Offline
Ameglian cow
M
Joined: Aug 2003
Posts: 23
can i use $reverse?

#46019 01/09/03 05:42 AM
Joined: Mar 2003
Posts: 1,271
L
Hoopy frood
Offline
Hoopy frood
L
Joined: Mar 2003
Posts: 1,271
Yes you can.

Code:
on *:INPUT:#: {
  [color:green]; don't trigger when you are issuing a /command![/color]
  if (/* !iswm $1) msg $target $reverse($1-)
  [color:green]; don't send the text you typed![/color]
  halt
}
[color:green] [/color]
alias reverse {
  [color:blue]put the code I described in my earlier post here[/color]
}


DALnet #Helpdesk
I hear and I forget. I see and I remember. I do and I understand. -Confucius
#46020 01/09/03 06:05 AM
Joined: Aug 2003
Posts: 23
M
Ameglian cow
OP Offline
Ameglian cow
M
Joined: Aug 2003
Posts: 23
what early code? i dot get it

#46021 01/09/03 06:50 AM
Joined: Aug 2003
Posts: 23
M
Ameglian cow
OP Offline
Ameglian cow
M
Joined: Aug 2003
Posts: 23
i thinx a little ,and i get it
thnx so much

#46022 01/09/03 08:57 AM
Joined: Mar 2003
Posts: 1,271
L
Hoopy frood
Offline
Hoopy frood
L
Joined: Mar 2003
Posts: 1,271
My bad, I meant "description of code"


DALnet #Helpdesk
I hear and I forget. I see and I remember. I do and I understand. -Confucius
#46023 02/09/03 05:18 AM
Joined: Jun 2003
Posts: 67
D
Babel fish
Offline
Babel fish
D
Joined: Jun 2003
Posts: 67
Code:
on *:INPUT:#: {
  if (/* !iswm $1) {
    msg $target $reverse($1-)
    halt
  }
} 
alias reverse {  
  var %txt  
  var %i = 1  
  while (%i <= $len($1-)) {    
    %txt = $mid($1-,%i,1) $+ %txt    
    inc %i  
  }  
  return %txt
}


while (demi == nub) {
inc %skill
}

Link Copied to Clipboard