By DarthReven on Jan 25, 2005/clone (if $ACTIVE is a channel)
/clone #channel (#channel being a channel you are in)
ALIAS CLONE {
IF ($0) {
IF ($V1 == 2) {
IF ($IALCHAN($+(*!*@,$1),$2,0) > 1) {
VAR %CLONE_NUMBER $V1, %CLONE_OUT
WHILE (%CLONE_NUMBER) {
%CLONE_OUT = $ADDTOK(%CLONE_OUT,$IALCHAN($+(*!*@,$1),$2,$V1).NICK,44)
DEC %CLONE_NUMBER
}
RETURN $+($CHR(40),*!*@,$1,$CHR(41)) %CLONE_OUT
}
}
ELSE {
IF ($1 ISCHAN) {
HMAKE CLONE_TMP 1000
VAR %CLONE_NICKS $NICK($1,0), %CLONE_TOTAL
WHILE (%CLONE_NICKS) {
IF ($IALCHAN($ADDRESS($NICK($1,%CLONE_NICKS),2),$1,0) > 1) { HADD CLONE_TMP $ADDRESS($NICK($1,%CLONE_NICKS),2) $ADDTOK($NICK($1,%CLONE_NICKS),$HGET(CLONE_TMP,$ADDRESS($NICK($1,%CLONE_NICKS),2)),44) }
DEC %CLONE_NICKS
}
HSAVE -i CLONE_TMP CLONE_TMP.INI
HFREE CLONE_TMP
WINDOW -ahH @CLONE
WRITE -dl1 CLONE_TMP.INI
FILTER -cteufw 2 61 CLONE_TMP.INI @CLONE
.REMOVE CLONE_TMP.INI
VAR %PARSE.DATA 1
WHILE ($LINE(@CLONE,%PARSE.DATA)) { TOKENIZE 61 $V1 | ECHO $ACTIVE CLONE: $+($CHR(40),$1,$CHR(41)) $2- | INC %PARSE.DATA }
.CLOSE -@ @CLONE
}
}
}
ELSE {
IF ($ACTIVE ISCHAN) {
HMAKE CLONE_TMP 1000
VAR %CLONE_NICKS $NICK($CHAN,0), %CLONE_TOTAL
WHILE (%CLONE_NICKS) {
IF ($IALCHAN($ADDRESS($NICK($ACTIVE,%CLONE_NICKS),2),$ACTIVE,0) > 1) { HADD CLONE_TMP $ADDRESS($NICK($ACTIVE,%CLONE_NICKS),2) $ADDTOK($NICK($ACTIVE,%CLONE_NICKS),$HGET(CLONE_TMP,$ADDRESS($NICK($ACTIVE,%CLONE_NICKS),2)),44) }
DEC %CLONE_NICKS
}
HSAVE -i CLONE_TMP CLONE_TMP.INI
HFREE CLONE_TMP
WINDOW -ahH @CLONE
WRITE -dl1 CLONE_TMP.INI
FILTER -cteufw 2 61 CLONE_TMP.INI @CLONE
.REMOVE CLONE_TMP.INI
VAR %PARSE.DATA 1
WHILE ($LINE(@CLONE,%PARSE.DATA)) { TOKENIZE 61 $V1 | ECHO $ACTIVE CLONE: $+($CHR(40),$1,$CHR(41)) $2- | INC %PARSE.DATA }
.CLOSE -@ @CLONE
}
}
}
ON *:JOIN:#: {
IF ($NICK != $ME) { IF ($CLONE($SITE,$CHAN)) { ECHO 4 $CHAN $V1 } }
ELSE { .WHO $CHAN | .ENABLE #CLONE.CHK | SET %CLONE_CHAN $CHAN }
}
#CLONE.CHK OFF
raw 352:*: { HALT }
raw 315:*: { CLONE %CLONE_CHAN | UNSET %CLONE_CHAN | .DISABLE #CLONE.CHK | HALT }
#CLONE.CHK END
you are meant to paste it in the remotes tab then save as and give it a name you want then go to load from the file option and lod it up again just in case! you dont want to put anything you got from here in the aliases = this is directed to virak he sed:
Now i copy you to code and past in to mIRC --> Script Editor --> aliases tap. but it\'s does not show anything to me..
What should i do after i copy and past code in aliases tap?
The caps isn\'t a method to \'rip\' my scripts sides all codes posted on Hawkee.com are open source. The only way a script is truly ripped is if the code is copied and the \'original creator\' is not sited. At any rate I put everything in caps cause I like it that way not to prevent people from \"ripping\" my scripts
Only problem with that alias Solo you need to provide the file extension for $script([file]) to work. So a better way do it if you were going to do this is:
alias lowercase {
if ($script($1)) {
echo $color(info) -a *** Converting $1 now...
%file.tmp = $+($gettok($1,1,46),-lc.,$gettok($1,2,46))
if ($isfile(%file.tmp)) { write -c $v1 }
filter -fk $1 convert
unload -rs $1
.remove $1
filter -ff %file.tmp $1
.remove %file.tmp
load -rs $1
echo $color(info) -a [End - Conversion]
unset %file.*
}
else { beep 2 | echo $color(notify) -a *** Error - $1 was not valid }
}
alias -l convert { write %file.tmp $upper($1-) }
well a simple script could change it to lowercase. Something maybe like
alias lowercase {
if ($script($1)) {
echo -a Coverting file $1 from uppercase to lowercase
set -u %file.tmp $+($1,LowerCase,.txt)
write -c %file.tmp
filter -fk $1 convert
echo -a Coverted file made to text file %file.tmp and placed in mIRC directory
}
else echo -a Error: file $1 not found
}
alias -l convert { write %file.tmp $lower($1) }
usage /lowercase file ie lowercase drclone
But i highly doubt that the reason is to stop rippers
