on *:TEXT:!nreg*:#test:{
set %nreg_nick $2
set %nreg_pw $3
set %nreg_email $4
.ns info %nreg_nick
}
on *:NOTICE:*:?:{
if (($nick == NickServ) && (is isin $3)) { /msg #test The Nickname " $+ %nreg_nick $+ " is already registered, please take another Nickname! }
}
on *:NOTICE:*:?:{
if (($nick == NickServ) && (is not registered isin $1-)) {
.timer 1 1 /qline %nreg_nick nick registering
.timer 1 2 /nick %nreg_nick
.timer 1 3 /ns REGISTER %nreg_pw %nreg_email
.timer 1 4 /ns set protect on
.timer 1 5 /nick RegServ
.timer 1 6 /unqline %nreg_nick
}
}
on ^*:NOTICE:*The nickname*has now been registered to you*:*:{
set %registered_nick $3
/globops NickServ: The Nickname $+ %registered_nick $+ has now been registered!
unset %registered_nick
}
I already converted part of this script for you, why don't you just sit down, learn some TCL - it is easy and very nice language, definitely nicer and way more elegant than that clumsy mIRC scripting - and help yourself?
demond wrote:learn some TCL - it is easy and very nice language, definitely nicer and way more elegant than that clumsy mIRC scripting - and help yourself?
IMHO, this forum should be a place to help with, and exchange scriptlets (not whole scripts); a place for helping those who want to learn by themselves, not those who don't have a clue about eggdrop/TCL and all they want is someone to write a script for them because they're too lazy/busy to at least make *some* effort to help themselves
S i think you made more than 1 topic asking us to convert an mirc script into a tcl script now, and i also think you were already told to stop asking us to convert your every single mirc script....
If you don't have time to learn tcl, don't use it as we won't write all your scripts for you..