A great mimic script ;). You can chose which channel and/or which nick to copy, you can mimic them so you say what they say, or you can say it back to front :D.
Just load it in your remotes (Alt+R).
Then right click on a channel and click "mimicer"
Type in the name of a channel in the textbox you want to mimic and click ok, (you can also mimic a nick in that channel or every channel your on by entering their name in the nick textbox)
Remember to click either "copy cat" or "reverse" for mimics.
Just try not to get banned :P
Updates
Used combo boxes for speed (If you can tell me how to make a combo box say something on opening it, greatly appreciated)
Improved coding and used local variables instead of global
note: if their first letter is "!" it will not mimic them just incase they make you !ban someone etc.
note2: if you have a nick and channel mimic on, it will copy everyone in the channel and the nick in every channel, i might fix this :$
on *:TEXT:*:#: {
if ($left($1,1) == !) { halt }
if (%mimic == 1) && ($nick == %mnick) {
msg # $1-
}
elseif (%rmimic == 1) && ($nick == %mnick) {
var %nintext $len($1-) + 1
while (0 < %nintext) {
var %msgreverse %msgreverse $+ $mid($1-, $+ %nintext $+ ,1)
if ($mid($1-, $+ %nintext $+ ,1) == $chr(32)) { var %msgreverse %msgreverse $chr(32) }
%nintext = %nintext - 1
}
msg # %msgreverse
}
elseif (%mimic == 1) && (# == %chnl) {
msg # $1-
}
elseif (%rmimic == 1) && (# == %chnl) {
var %nintext $len($1-) + 1
while (0 < %nintext) {
var %msgreverse %msgreverse $+ $mid($1-, $+ %nintext $+ ,1)
if ($mid($1-, $+ %nintext $+ ,1) == $chr(32)) { var %msgreverse %msgreverse $chr(32) }
%nintext = %nintext - 1
}
msg # %msgreverse
}
}
menu Channel,Query {
Mimicer:{
dialog -am mimicerd mimicerd
}
}
;, $did, xlocation ylocation length height
dialog mimicerd {
title "MIMIC"
size -1 -1 113 74
option dbu
text "Channel", 1, 5 26 35 8
combo 2, 5 35 75 10, sort edit drop vsbar
button "OK", 3, 85 34 20 12
button "Copy cat", 4, 5 48 50 12
button "Reverse", 5, 60 48 50 12
button "Copy off", 6, 5 61 50 12
button "Rev off", 7, 60 61 50 12
button "OK", 8, 85 11 20 12
text "Nick", 9, 5 3 35 8
combo 10, 5 12 75 10, sort edit drop vsbar
}
on *:dialog:mimicerd:init:*: {
did -a $dname 2,10
var %Allnicks $nick($active,0)
while (%Allnicks > 0) {
did -a $dname 10 $nick($active,%Allnicks)
dec %Allnicks
}
var %Allchans $chan(0)
while (%Allchans > 0) {
did -a $dname 2 $chan(%Allchans)
dec %Allchans
}
}
on *:dialog:mimicerd:sclick:*: {
if ($did == 3) {
if (!$did(2)) { unset %chnl }
else {
set %chnl $did(2)
}
}
if ($did == 4) { set %mimic 1 }
if ($did == 5) { set %rmimic 1 }
if ($did == 6) { unset %mimic }
if ($did == 7) { unset %rmimic }
if ($did == 8) {
if (!$did(10)) { unset %mnick }
else {
set %mnick $did(10)
}
}
}