Best mimic script

By FRISH on May 22, 2007

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)
    }
  }

}

Comments

Sign in to comment.
Tuten   -  Dec 16, 2010

Nice but it didn't work.. well it did but it mimic everyone :D
so i looked at the code and did some tidying up and it worked great then.. anyways good work :)

 Respond  
ZiX   -  Nov 30, 2007

Well Done Frish, its much better with a
dialog and much faster to use.

 Respond  
FRISH   -  May 25, 2007

o i c lol, i used to be like that, unable to get them working :$

 Respond  
|MELIORITE|   -  May 24, 2007

sadistic sin can\'t get any of them to work but is unwilling to ask for help in the Forum and has ignored the message I placed on profile.

 Respond  
FRISH   -  May 24, 2007

Did ya type in a channel name (or the nick you wanted to copy), clicked the ok next to it, and pressed either \"copy cat\" or \"reverse\"?

 Respond  
sadistic_sin   -  May 24, 2007

it didnt work for me...

 Respond  
FRISH   -  May 23, 2007

Good point cantseeme I\'ve just made it so you cant do that ;).

And |MELIORITE| there are no bracket mismatches :S but i suppose i can tidy it up a bit, well sort of, its columned up to the matching bracket, but glad ya like it.

 Respond  
|MELIORITE|   -  May 22, 2007

You might want to tidy up the brackets, either bracket mismatch or trailing bracket in last lines. Otherwise coding looks ok.

 Respond  
cantseeme   -  May 22, 2007

you do UNDERSTAND that if I were on the same channel as you and you were mimicing me and bs_fantasy commands were enabled I type !op source
and it will op me?

or do w/e I want.

 Respond  
FRISH   -  May 22, 2007

This script makes it easier to mimic people by a dialogue. They just type in the nick or channel they want to mimic, most of the coding is for the reverse mimic too btw. And it makes it easier to turn off and on ;)

 Respond  
cantseeme   -  May 22, 2007

p.s. you would need to ofcourse, make sure that, ! or the like wouldn\'t affect the script.

 Respond  
cantseeme   -  May 22, 2007

on :TEXT::#channel: { if ($nick == somenick) { /msg #channel $1- } }

???
/me is missing the point to the huge script.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.