Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- }
- 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)
- }
- }
Add Comment
Please, Sign In to add comment