dialog Remote.Creator {
title "Remote Creator"
size -1 -1 317 228
option dbu
combo 1, 9 13 80 55, size drop
box "Create A Remote", 2, 4 4 309 221
edit "", 3, 175 23 124 60, read multi return hsbar vsbar
text "Remote View:", 4, 212 12 42 8
button "Choose New Event", 5, 93 13 49 10
radio "Channel", 6, 102 39 50 10
radio "PM (Query)", 7, 102 52 50 10
radio "Channel/PM", 8, 102 64 66 10
edit "", 9, 10 98 106 10, autohs
text "", 10, 10 79 105 17
text "", 11, 153 114 146 78
button "Set Word", 12, 10 111 37 10
button "Send To Clipboard", 13, 209 86 49 10
button "Set Nick", 14, 10 160 37 10
edit "", 15, 10 146 106 10, autohs
text "", 16, 10 124 106 20
button "?", 17, 146 13 7 10
text "", 18, 9 178 106 17
button "Exit", 19, 266 204 42 12, ok
edit "", 20, 9 197 106 10, autohs
button "Set Command", 21, 10 211 37 10
box "Info/Help", 22, 146 104 159 94
button "Skip", 23, 79 160 37 10
text "Activate in:", 24, 98 29 47 8
}
;------------[ Dialog Events ]------------
ON *:DIALOG:remote.creator:*:*: {
;------------[ Edit ]------------
if ($devent == edit) {
if ($did == 20) {
if (!$did(20)) { did -b $xrem 21 }
if ($did(20)) { did -e $xrem 21 }
}
if ($did == 15) {
if (!$did(15)) { did -b $xrem 14 }
if ($did(15)) { did -e $xrem 14 }
}
if ($did == 9) {
if (!$did(9)) { did -b $xrem 12 }
if ($did(9)) { did -e $xrem 12 }
}
}
;------------[ Init ]------------
if ($devent == Init) {
did -b $xrem 5,6-9,12-15,17,20,21
did -a $xrem 1 On Action Event
did -a $xrem 1 On Input Event
did -a $xrem 1 On Mode Event
did -a $xrem 1 On Nick Event
did -a $xrem 1 On Notice Event
did -a $xrem 1 On Op Event
did -a $xrem 1 On Deop Event
did -a $xrem 1 On Voice Event
did -a $xrem 1 On Devoice Event
did -a $xrem 1 On Halfop Event
did -a $xrem 1 On Dehalfop Event
did -a $xrem 1 On Text Event
did -a $xrem 1 On Join Event
did -a $xrem 1 On Part Event
did -a $xrem 1 On Quit Event
did -a $xrem 1 On Ban Event
did -a $xrem 1 On Unban Event
did -a $xrem 1 On Kick Event
did -a $xrem 1 On Topic Event
did -b $xrem 23
}
;------------[ Sclick ]------------
if ($devent == Sclick) {
if ($did == 1) {
did -e $xrem 5,6,7,8,17
did -b $xrem 1
if ($wrd == Action) {
did -ra $xrem 3 on *:ACTION:*:
did -a $xrem 10 Word for Script to activate on:
did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The On Action event triggers when someone uses '/me'
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Input) {
did -ra $xrem 3 on *:INPUT:
did -a $xrem 10 Word for Script to activate on:
did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on INPUT event triggers when you enter text in an editbox and press enter.
}
if ($wrd == Mode) {
did -ra $xrem 3 on *:MODE:
did -b $xrem 7,8
did -a $xrem 10 Word for Script to activate on:
did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf NOTE: use the mode, example: +m = m , +s = s , $crlf -s = -s $crlf $crlf The on MODE event triggers when a user changes a channel mode.
did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
}
if ($wrd == Nick) {
did -ra $xrem 3 On *:NICK: $chr(123)
did -b $xrem 6-9
did -c $xrem 6
did -e $xrem 15,23
did -a $xrem 11 The on NICK event triggers when a user changes nickname while on the same channel as you.
did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
}
if ($wrd == Notice) {
did -ra $xrem 3 On *:NOTICE:*:
did -e $xrem 6-8
did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on NOTICE event triggers when someone uses a '/notice'.
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Op) {
did -ra $xrem 3 On *:OP:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -e $xrem 15,23
did -a $xrem 11 The on OP events trigger when a user on a channel is opped.
did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
}
if ($wrd == Deop) {
did -ra $xrem 3 On *:DEOP:#: $chr(123)
did -b $xrem 6-8
did -a $xrem 11 The on DEOP events trigger when a user on a channel is deopped.
did -e $xrem 15,23
did -c $xrem 6
did -a $xrem 16 set a specific nick for script to activate on, if you would like for this script to activate for everyone, please choose "Skip"
}
if ($wrd == Dehalfop) {
did -ra $xrem 3 On *:DEHELP:#: $chr(123)
did -b $xrem 6-8
did -a $xrem 11 The on DEHELP events trigger when a user on a channel is dehalfopped.
did -e $xrem 15,23
did -c $xrem 6
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == halfop) {
did -ra $xrem 3 On *:HELP:#: $chr(123)
did -b $xrem 6-8
did -a $xrem 11 The on HELP events trigger when a user on a channel is halfopped.
did -e $xrem 15,23
did -c $xrem 6
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Voice) {
did -ra $xrem 3 On *:VOICE:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on VOICE events trigger when a user on a channel is voice.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == devoice) {
did -ra $xrem 3 On *:DEVOICE:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on DEVOICE events trigger when a user on a channel is devoiced.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Text) {
did -ra $xrem 3 On *:TEXT:*:
did -e $xrem 6-8
did -a $xrem 11 text matches if text contains only this word $crlf text* matches if text starts with this word $crlf *text matches if text ends with this word $crlf *text* matches if text contains this word anywhere $crlf $crlf The on TEXT event triggers when you receive private and/or channel messages.
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Join) {
did -ra $xrem 3 On *:JOIN:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on JOIN events trigger when a user joins a channel.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == part) {
did -ra $xrem 3 On *:PART:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on JOIN events trigger when a user parts a channel.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Quit) {
did -ra $xrem 3 On *:QUIT: $chr(123)
did -b $xrem 6-8
did -a $xrem 11 The on QUIT event triggers when a user quits IRC while on the same channel as you.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == BAN) {
did -ra $xrem 3 On *:BAN:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on BAN events trigger when a user on a channel is banned.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Unban) {
did -ra $xrem 3 On *:UNBAN:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on UNBAN events trigger when a user on a channel is unbanned.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == Kick) {
did -ra $xrem 3 On *:KICK:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on KICK event triggers when a user is kicked from a channel.
did -e $xrem 15,23
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
if ($wrd == topic) {
did -ra $xrem 3 On *:TOPIC:#: $chr(123)
did -b $xrem 6-8
did -c $xrem 6
did -a $xrem 11 The on TOPIC event triggers when a user changes a channel topic.
did -e $xrem 9
did -a $xrem 10 set a specific topic for the script to activate on.
did -a $xrem 16 Set a specific nick for the script to activate on, if you want this script to work for everyone, click on 'Skip'
}
}
;------------[ Did - 6 ]------------
if ($did == 6) {
did -a $xrem 3 #: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9
if ($wrd == Nick) {
did -b $xrem 9
did -e $xrem 15
}
}
;------------[ Did - 7 ]------------
if ($did == 7) { did -a $xrem 3 ?: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9 }
;------------[ Did - 8 ]------------
if ($did == 8) { did -a $xrem 3 *: $chr(123) | did -b $xrem 6-8 | did -e $xrem 9 }
;------------[ Did - 12 ]------------
if ($did == 12) {
did -a $xrem 3 $crlf if ( $+ $did($xrem,9) iswm $!1- $+ ) $chr(123)
did -b $xrem 9,12
did -e $xrem 15,23
}
;------------[ Did - 14 ]------------
if ($did == 14) {
did -a $xrem 3 $crlf if ( $+ $!nick == $did($xrem,15) $+ ) $chr(123)
did -b $xrem 14,15,23
did -e $xrem 20
did -a $xrem 11 $crlf Set a command to do, Example 'msg $!nick Hi' $crlf $crlf use $chr(124) as a separator if you would like to perform more than one command. $crlf $crlf Example: $crlf msg $!nick Hi $chr(124) msg $!chan $!nick just joined the channel.
}
;------------[ Did - 13 ]------------
if ($did == 13) {
var %x = 0
clipboard
while (%x < $did($xrem,3).lines) {
inc %x
clipboard -a $crlf $did($xrem,3,%x)
}
}
;------------[ Did - 21 ]------------
if ($did == 21) {
%xbrackets = $did($xrem,3).lines
did -b $xrem 20,21
did -a $xrem 3 $crlf $did($xrem,20) $str($crlf $chr(125),%xbrackets)
did -e $xrem 13
did -a $xrem 11 You will have to load this into Remotes (ALT + R) for this script to activate.
}
;------------[ Did - 23 ]------------
if ($did == 23) {
did -e $xrem 20
did -b $xrem 14,15,23
}
;------------[ Did - 17 ]------------
if ($did == 17) {
help ON $wrd
}
;------------[ Did - 5 ]------------
if ($did == 5) {
did -u $xrem 6-8
did -e $xrem 1,6,7,8
did -b $xrem 5,6,7,8,9,12,14,15,17,20,23
did -r $xrem 3,9,10,11,15,20
}
}
}
;------------[ Aliases ]------------
alias xrem { return Remote.Creator }
alias wrd { return $gettok($did($dname,1),2,32) }
alias remote.creator { dialog -mdro Remote.Creator Remote.creator }
Menu Channel,Status,Menubar {
Remote Creator:remote.creator
}