Skip to content
MSN Addons

clone check

A TG007 community discussion started by K0rupt.

Discussion 3 posts
Page 1 of 1
Open
Topic #2945 · 3 published posts · 584 views

#clonedetect on

on *:join:*:{

if (!$window(@clonecheck)) { window -knO @clonecheck -1 -1 600 200 }

if ($nick == $me) return

if (!$read(users.txt,w,* $+ $address($nick,1) $+ *)) {

write users.txt $address($nick,1) $nick

echo $color(own) -ti2 @clonecheck First time here $nick

}

else {

if ($nick == $me) return

if ($read(users.txt,s, $address($nick,1)) != $nick) {

echo $color(own) -ti2 @clonecheck Time For A Name Change $nick ... Or Should I Say $ifmatch

write -l $+ $readn users.txt $address($nick,1) $nick

}

else {

echo $color(own) -ti2 @clonecheck Hey $nick Welcome Back

}

}

}

clonedetect end

}

;--- End of script

-------------------------------------------------------------------------------------

ok this is the clone checker i use that ozzy fixed so i can read users in a seprate window........ok is there any way i can make it read there actual nick in decode like this ±MRÃÊVIØÚ§±™ instead of this ±MRÃ?ÊVIØÚ§±™ <-- thats what my script reads ok one more problem....Time For A Name Change >Demon_Deacons ... Or Should I Say <--??? nothing any help will do thanks

Edited Feb 22, 2005 6:12 PM by K0rupt
;--- eXonyte's Nickname Tracker 
;--- Shows the last few nicknames someone used 
;--- Look below to change the number it stores 

#clonecheck on 
on *:JOIN:#:{ 
 if (> isin $nick) { halt }
 exoclonecheck $nick $address $chan 
} 
raw knock:*: exoclonecheck $nick $address $1 

alias exoclonecheck { 
 if ($1 != $me) { 
  ;If you want it to store more or less nicknames, 
  ;change this number below to the number you want to store. 
   var %n 4 

   var %x $read($scriptdir $+ users.txt,sn,$2) 
   if (%x == $null) write $+(",$scriptdir,users.txt") $2 $msn.ifdecode($1) 
   else { 
     %x = $addtok(%x,$1,32) 
     if ($numtok(%x,32) > %n) %x = $deltok(%x,1,32) 
     write -l $+ $readn $+(",$scriptdir,users.txt") $2 %x 
   } 
   if ($numtok(%x,32) > 1) echo $color(own) -ti2 @clonecheck --[ NickName Tracker ]-- --[ $ecc.decode($1 ]-- --[ Last [ $numtok(%x,32) ] Nicks Used ]-- --[ $replace(%x,$chr(32),$chr(44) $+ $chr(32))) ]-- 
   elseif ((%x != $1) && (%x)) echo $color(own) -ti2 @clonecheck $ecc.decode($1 $+ 's last name: %x) 
 } 
} 

alias ecc.decode { 
 if ($msn.vver) return $msn.ifdecode($1-) 
 else return $1- 
} 
#clonecheck end

 

"Diplomacy is the art of saying 'Nice doggie' until you can find a rock".-Will Rogers

#clonedetect on
on *:join:*:{
if (!$window(@clonecheck)) { window -knO @clonecheck -1 -1 600 200 }
if ($nick == $me) return 
if (!$read(users.txt,w,* $+ $address($nick,1) $+ *)) {
write users.txt $address($nick,1) $nick
echo $color(own) -ti2 @clonecheck First time here $msn.decode($nick) 
}
else {
if ($nick == $me) return 
if ($read(users.txt,s, $address($nick,1)) != $nick) {
echo $color(own) -ti2 @clonecheck Time For A Name Change $msn.decode($nick)  ... Or Should I Say $msn.decode($ifmatch)
write -l $+ $readn users.txt $address($nick,1) $nick
}
else {
echo $color(own) -ti2 @clonecheck Hey $msn.decode($nick) Welcome Back
}
}
}
}
#clonedetect end

Edited Feb 22, 2005 8:29 PM by OZZY_10â„¢

My code does NOT have bugs. It just develops random features.