| View previous topic :: View next topic |
| Author |
Message |
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
 Posted: Sun Apr 16, 2006 1:25 pm Post subject: Need a nick design script |
 |
|
hello there
sorry for desturbin again & again
is there any script what will work like
| Quote: | <SuMiT>hello Niharika
<Niharika> ^S-u-M-i-T^ hi there {Niharika is the BOT} |
ya there is manny script like this but i want to see the nick designed
as like as i paste here
will any1 help me?
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
 |
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Apr 16, 2006 4:02 pm Post subject: |
|
|
This will design the nick as you wished:
| Code: | proc design n {
set out ""
foreach token [split $n ""] {
append out $token-
}
set out \002^[string trim $out -]^\002
} |
Usage: set nick [design $nick]
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
metroid
Owner
Joined: 16 Jun 2004
Posts: 771
|
| Posted: Sun Apr 16, 2006 6:39 pm Post subject: |
|
|
I think it would be just as good to just use
| Code: | proc design n {
return \002^[join [split $n ""] -]^\002
} |
A simpler code which does the exact same |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sun Apr 16, 2006 7:50 pm Post subject: |
|
|
| MeTroiD wrote: | I think it would be just as good to just use
| Code: | proc design n {
return \002^[join [split $n ""] -]^\002
} |
A simpler code which does the exact same |
Yes  simpler and faster.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
| Posted: Mon Apr 17, 2006 5:11 am Post subject: |
|
|
but i m looking for insert sign after evry singel word of his nick
is it possible?
like
| Quote: | <SuMiT> hello bot
<BOT> is it ^S_u_M_i_T^ |
| MeTroiD wrote: | I think it would be just as good to just use
| Code: | proc design n {
return \002^[join [split $n ""] -]^\002
} |
A simpler code which does the exact same |
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
|
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
| Posted: Mon Apr 17, 2006 5:14 am Post subject: |
|
|
i have a mirc script what work like that
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Apr 17, 2006 11:18 am Post subject: |
|
|
What're you talking about? you got an answer for what you requested. If you want to insert the sign you want, then use:
| Code: | proc design {n s} {
return \002^[join [split $n ""] $s]^\002
} |
for example:
| Code: | | set nick [design $nick _] |
'_' is the sign.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
| Posted: Mon Apr 17, 2006 11:27 am Post subject: |
|
|
well Sir_Fz
main actually i need like
| Quote: | <^RSA_NZ> 1.4 Martin to Gibbs, no run
<BOT> RSA Vs NZ :- 1.4 Martin to Gibbs, No run. |
when 1 bot is relaying somthin i want to replace ^RSA_NZ to
RSA Vs NZ
i am useing chanlink.tcl for relay
i want to add this nick re designe
is it immpossible?
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Apr 17, 2006 11:44 am Post subject: |
|
|
| Code: | proc vs n {
set n [string trimleft $n ^]
foreach {n1 n2} [split $n _] {break}
set n "$n1 Vs $n2"
} |
Usage: vs $nick
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
| Posted: Mon Apr 17, 2006 11:50 am Post subject: |
|
|
it worked
thankssssssssssssssssssssssss
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
|
CuteBangla
Halfop
Joined: 27 Feb 2006
Posts: 58
Location: Dhaka, Bangladesh
|
| Posted: Mon Apr 17, 2006 4:46 pm Post subject: |
|
|
it doesnt work in my relay script
what eva
thanks for ur help Sir_Fz
_________________
SuMiT
iRC.CuteBangla.Com |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Mon Apr 17, 2006 5:10 pm Post subject: |
|
|
You've failed to use the code(s) you've been given and you've failed to discuss your problem. We're not psychic, we can't read your mind. You have to tell us your problem. Although I've replied to your private message (although I shouldn't have) and told you that you weren't using the code correctly, you still don't try to fix it.
This topic is locked.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
