rendered paste body;Release FXPer Script v2.00
;last update: 06/02/03
;place this file in your mIRC directory
;to run in mIRC type "/load -rs distroscript.mrc"
on *:LOAD: { if (!%flashpath) { set %flashpath $file="Select your FlashFXP executable. " [ *.exe ]
}
}
on 1:TEXT:$(* $+ %tag $+ *):%prechannel:{
if ($window(@Pre) != @Pre) {
window -Clnk0 @Pre -1 -1 750 300
}
set %release $matchtok($1-,%tag,1,32)
if ( $fline(@Pre,* $+ %release $+ *,1,0) != $null ) {
dline @Pre $fline(@Pre,* $+ %release $+ *,1,0) }
set %i 1
while %i <= 20 {
if ( $istok($1-,[ %rsite [ $+ [ %i ] ] ],1,32) == $true ) {
set %fromsite $matchtok($1-,[ %rsite [ $+ [ %i ] ] ],1,32)
}
inc %i
}
if ( $regex($1-,%premsg) == 0 ) {
aline -n 13 @Pre $time Uploading: %release Site: %fromsite
}
}
on 1:TEXT:$(* $+ %tag2 $+ *):%prechannel:{
if ($window(@Pre) != @Pre) {
window -Clnk0 @Pre -1 -1 750 300
}
set %release $matchtok($1-,%tag2,1,32)
if ( $fline(@Pre,* $+ %release $+ *,1,0) != $null ) {
dline @Pre $fline(@Pre,* $+ %release $+ *,1,0) }
set %i 1
while %i <= 20 {
if ( $istok($1-,[ %rsite [ $+ [ %i ] ] ],1,32) == $true ) {
set %fromsite $matchtok($1-,[ %rsite [ $+ [ %i ] ] ],1,32)
}
inc %i
}
if ( $regex($1-,%premsg) == 0 ) {
aline -n 13 @Pre $time Uploading: %release Site: %fromsite
}
}
on 1:dialog:queueset:init:0:{
if (%rsite1 != $null) { did -v queueset 81 }
else { did -h queueset 81 }
if (%rsite2 != $null) { did -v queueset 82 }
else { did -h queueset 82 }
if (%rsite3 != $null) { did -v queueset 83 }
else { did -h queueset 83 }
if (%rsite4 != $null) { did -v queueset 84 }
else { did -h queueset 84 }
if (%rsite5 != $null) { did -v queueset 85 }
else { did -h queueset 85 }
if (%rsite6 != $null) { did -v queueset 86 }
else { did -h queueset 86 }
if (%rsite7 != $null) { did -v queueset 87 }
else { did -h queueset 87 }
if (%rsite8 != $null) { did -v queueset 88 }
else { did -h queueset 88 }
if (%rsite9 != $null) { did -v queueset 89 }
else { did -h queueset 89 }
if (%rsite10 != $null) { did -v queueset 90 }
else { did -h queueset 90 }
if (%rsite11 != $null) { did -v queueset 91 }
else { did -h queueset 91 }
if (%rsite12 != $null) { did -v queueset 92 }
else { did -h queueset 92 }
if (%rsite13 != $null) { did -v queueset 93 }
else { did -h queueset 93 }
if (%rsite14 != $null) { did -v queueset 94 }
else { did -h queueset 94 }
if (%rsite15 != $null) { did -v queueset 95 }
else { did -h queueset 95 }
if (%rsite16 != $null) { did -v queueset 96 }
else { did -h queueset 96 }
if (%rsite17 != $null) { did -v queueset 97 }
else { did -h queueset 97 }
if (%rsite18 != $null) { did -v queueset 98 }
else { did -h queueset 98 }
if (%rsite19 != $null) { did -v queueset 99 }
else { did -h queueset 99 }
if (%rsite20 != $null) { did -v queueset 80 }
else { did -h queueset 80 }
if (%site1 != $null) { did -c queueset 81 }
else { did -u queueset 81 }
if (%site2 != $null) { did -c queueset 82 }
else { did -u queueset 82 }
if (%site3 != $null) { did -c queueset 83 }
else { did -u queueset 83 }
if (%site4 != $null) { did -c queueset 84 }
else { did -u queueset 84 }
if (%site5 != $null) { did -c queueset 85 }
else { did -u queueset 85 }
if (%site6 != $null) { did -c queueset 86 }
else { did -u queueset 86 }
if (%site7 != $null) { did -c queueset 87 }
else { did -u queueset 87 }
if (%site8 != $null) { did -c queueset 88 }
else { did -u queueset 88 }
if (%site9 != $null) { did -c queueset 89 }
else { did -u queueset 89 }
if (%site10 != $null) { did -c queueset 90 }
else { did -u queueset 90 }
if (%site11 != $null) { did -c queueset 91 }
else { did -u queueset 91 }
if (%site12 != $null) { did -c queueset 92 }
else { did -u queueset 92 }
if (%site13 != $null) { did -c queueset 93 }
else { did -u queueset 93 }
if (%site14 != $null) { did -c queueset 94 }
else { did -u queueset 94 }
if (%site15 != $null) { did -c queueset 95 }
else { did -u queueset 95 }
if (%site16 != $null) { did -c queueset 96 }
else { did -u queueset 96 }
if (%site17 != $null) { did -c queueset 97 }
else { did -u queueset 97 }
if (%site18 != $null) { did -c queueset 98 }
else { did -u queueset 98 }
if (%site19 != $null) { did -c queueset 99 }
else { did -u queueset 99 }
if (%site20 != $null) { did -c queueset 80 }
else { did -u queueset 80 }
}
menu menubar {
Release FXPer
.FXP a release:{ dialog -m queueset queueset }
.General settings:{ dialog -m queueset queueset
did -f queueset 2 }
.Pre sites:{ dialog -m queueset queueset
did -f queueset 3 }
}
menu channel {
Release FXPer
.FXP a release:{ dialog -m queueset queueset }
.General settings:{ dialog -m queueset queueset
did -f queueset 2 }
.Pre sites:{ dialog -m queueset queueset
did -f queueset 3 }
}
menu @Pre {
Remove this line:{
dline @PRE $sline(@PRE,1).ln
}
FXP release:{
set %fromsite $strip($5)
set %release $strip($3)
dialog -m queueset queueset }
}
dialog -l queueset {
title "Release FXPer Settings"
size -1 -1 340 300
tab "General", 1, 0 0 340 300
tab "Defaults", 2
tab "Sites", 3
button "Save", 100, 120 260 50 25, ok
button "Run FlashFXP", 102, 30 260 80 25, ok
button "Cancel", 101, 210 260 50 25, ok
text "FlashFXP path", 10, 30 30 70 20, tab 2
button "Browse", 11, 25 50 60 20, tab 2
text "Announcement Channel", 12, 30 90 120 13, tab 2
edit [ %prechannel ], 13, 160 90 120 22, autohs, tab 2
text "Pre sites folder in FlashFXP", 14, 30 120 140 13, tab 2
edit [ %prefolder ], 16, 170 120 60 22, autohs, tab 2
text "Group Tag 1", 17, 30 150 120 13, tab 2
edit [ %tag ], 18, 100 150 40 22, autohs, tab 2
text "Group Tag 2", 19, 150 150 120 13, autohs, tab 2
edit [ %tag2 ], 21, 220 150 40 22, autohs, tab 2
text "Pre message (copy a portion of your pre message that will", 22, 30 180 280 13, tab 2
text "distinguish it from upload messages)", 23, 30 195 280 13, tab 2
edit [ %premsg ], 24, 30 210 280 22, autohs, tab 2
text "Send Site", 20, 30 30 60 13, tab 1
text "Release", 30, 30 60 60 13, tab 1
text "Repetitions", 40, 150 30 60 13, tab 1
box "Select Receive Sites", 79, 10 85 300 140, tab 1
edit [ %fromsite ], 25, 92 30 40 22, autohs, tab 1
edit [ %release ], 35, 92 60 210 22, autohs, tab 1
edit [ %flashpath ], 15, 92 50 210 22, autohs, tab 2
edit [ %repeattotal ], 45, 220 30 40 22, autohs, tab 1
check [ %rsite1 ], 81, 40 100 35 20, push, tab 1
check [ %rsite2 ], 82, 90 100 35 20, push, tab 1
check [ %rsite3 ], 83, 140 100 35 20, push, tab 1
check [ %rsite4 ], 84, 190 100 35 20, push, tab 1
check [ %rsite5 ], 85, 240 100 35 20, push, tab 1
check [ %rsite6 ], 86, 40 130 35 20, push, tab 1
check [ %rsite7 ], 87, 90 130 35 20, push, tab 1
check [ %rsite8 ], 88, 140 130 35 20, push, tab 1
check [ %rsite9 ], 89, 190 130 35 20, push, tab 1
check [ %rsite10 ], 90, 240 130 35 20, push, tab 1
check [ %rsite11 ], 91, 40 160 35 20, push, tab 1
check [ %rsite12 ], 92, 90 160 35 20, push, tab 1
check [ %rsite13 ], 93, 140 160 35 20, push, tab 1
check [ %rsite14 ], 94, 190 160 35 20, push, tab 1
check [ %rsite15 ], 95, 240 160 35 20, push, tab 1
check [ %rsite16 ], 96, 40 190 35 20, push, tab 1
check [ %rsite17 ], 97, 90 190 35 20, push, tab 1
check [ %rsite18 ], 98, 140 190 35 20, push, tab 1
check [ %rsite19 ], 99, 190 190 35 20, push, tab 1
check [ %rsite20 ], 80, 240 190 35 20, push, tab 1
text "Site", 200, 20 26 35 13, tab 3
text "Pre Folder", 201, 65 26 60 13, tab 3
text "Site", 202, 184 26 35 13, tab 3
text "Pre Folder", 203, 229 26 60 13, tab 3
text " 1", 301, 6 42 13 13, tab 3
text " 2", 302, 6 62 13 13, tab 3
text " 3", 303, 6 82 13 13, tab 3
text " 4", 304, 6 102 13 13, tab 3
text " 5", 305, 6 122 13 13, tab 3
text " 6", 306, 6 142 13 13, tab 3
text " 7", 307, 6 162 13 13, tab 3
text " 8", 308, 6 182 13 13, tab 3
text " 9", 309, 6 202 13 13, tab 3
text "10", 310, 6 222 13 13, tab 3
text "11", 311, 170 42 13 13, tab 3
text "12", 312, 170 62 13 13, tab 3
text "13", 313, 170 82 13 13, tab 3
text "14", 314, 170 102 13 13, tab 3
text "15", 315, 170 122 13 13, tab 3
text "16", 316, 170 142 13 13, tab 3
text "17", 317, 170 162 13 13, tab 3
text "18", 318, 170 182 13 13, tab 3
text "19", 319, 170 202 13 13, tab 3
text "20", 320, 170 222 13 13, tab 3
edit [ %rsite1 ], 210, 20 40 35 20, autohs, tab 3
edit % [ $+ [ %rsite1 ] ], 230, 65 40 100 20, autohs, tab 3
edit [ %rsite2 ], 211, 20 60 35 20, autohs, tab 3
edit % [ $+ [ %rsite2 ] ], 231, 65 60 100 20, autohs, tab 3
edit [ %rsite3 ], 212, 20 80 35 20, autohs, tab 3
edit % [ $+ [ %rsite3 ] ], 232, 65 80 100 20, autohs, tab 3
edit [ %rsite4 ], 213, 20 100 35 20, autohs, tab 3
edit % [ $+ [ %rsite4 ] ], 233, 65 100 100 20, autohs, tab 3
edit [ %rsite5 ], 214, 20 120 35 20, autohs, tab 3
edit % [ $+ [ %rsite5 ] ], 234, 65 120 100 20, autohs, tab 3
edit [ %rsite6 ], 215, 20 140 35 20, autohs, tab 3
edit % [ $+ [ %rsite6 ] ], 235, 65 140 100 20, autohs, tab 3
edit [ %rsite7 ], 216, 20 160 35 20, autohs, tab 3
edit % [ $+ [ %rsite7 ] ], 236, 65 160 100 20, autohs, tab 3
edit [ %rsite8 ], 217, 20 180 35 20, autohs, tab 3
edit % [ $+ [ %rsite8 ] ], 237, 65 180 100 20, autohs, tab 3
edit [ %rsite9 ], 218, 20 200 35 20, autohs, tab 3
edit % [ $+ [ %rsite9 ] ], 238, 65 200 100 20, autohs, tab 3
edit [ %rsite10 ], 219, 20 220 35 20, autohs, tab 3
edit % [ $+ [ %rsite10 ] ], 239, 65 220 100 20, autohs, tab 3
edit [ %rsite11 ], 220, 184 40 35 20, autohs, tab 3
edit % [ $+ [ %rsite11 ] ], 240, 229 40 100 20, autohs, tab 3
edit [ %rsite12 ], 221, 184 60 35 20, autohs, tab 3
edit % [ $+ [ %rsite12 ] ], 241, 229 60 100 20, autohs, tab 3
edit [ %rsite13 ], 222, 184 80 35 20, autohs, tab 3
edit % [ $+ [ %rsite13 ] ], 242, 229 80 100 20, autohs, tab 3
edit [ %rsite14 ], 223, 184 100 35 20, autohs, tab 3
edit % [ $+ [ %rsite14 ] ], 243, 229 100 100 20, autohs, tab 3
edit [ %rsite15 ], 224, 184 120 35 20, autohs, tab 3
edit % [ $+ [ %rsite15 ] ], 244, 229 120 100 20, autohs, tab 3
edit [ %rsite16 ], 225, 184 140 35 20, autohs, tab 3
edit % [ $+ [ %rsite16 ] ], 245, 229 140 100 20, autohs, tab 3
edit [ %rsite17 ], 226, 184 160 35 20, autohs, tab 3
edit % [ $+ [ %rsite17 ] ], 246, 229 160 100 20, autohs, tab 3
edit [ %rsite18 ], 227, 184 180 35 20, autohs, tab 3
edit % [ $+ [ %rsite18 ] ], 247, 229 180 100 20, autohs, tab 3
edit [ %rsite19 ], 228, 184 200 35 20, autohs, tab 3
edit % [ $+ [ %rsite19 ] ], 248, 229 200 100 20, autohs, tab 3
edit [ %rsite20 ], 229, 184 220 35 20, autohs, tab 3
edit % [ $+ [ %rsite20 ] ], 249, 229 220 100 20, autohs, tab 3
}
on *:dialog:queueset:sclick:11:{ set %flashpath $file="Select your FlashFXP executable. " [ *.exe ]
did -ra queueset 15 %flashpath
}
on *:dialog:queueset:sclick:81:{ if (!%site1) { set %site1 = 1 }
else { unset %site1 }
}
on *:dialog:queueset:sclick:82:{ if (!%site2) { set %site2 = 1 }
else { unset %site2 }
}
on *:dialog:queueset:sclick:83:{ if (!%site3) { set %site3 = 1 }
else { unset %site3 }
}
on *:dialog:queueset:sclick:84:{ if (!%site4) { set %site4 = 1 }
else { unset %site4 }
}
on *:dialog:queueset:sclick:85:{ if (!%site5) { set %site5 = 1 }
else { unset %site5 }
}
on *:dialog:queueset:sclick:86:{ if (!%site6) { set %site6 = 1 }
else { unset %site6 }
}
on *:dialog:queueset:sclick:87:{ if (!%site7) { set %site7 = 1 }
else { unset %site7 }
}
on *:dialog:queueset:sclick:88:{ if (!%site8) { set %site8 = 1 }
else { unset %site8 }
}
on *:dialog:queueset:sclick:89:{ if (!%site9) { set %site9 = 1 }
else { unset %site9 }
}
on *:dialog:queueset:sclick:90:{ if (!%site10) { set %site10 = 1 }
else { unset %site10 }
}
on *:dialog:queueset:sclick:91:{ if (!%site11) { set %site11 = 1 }
else { unset %site11 }
}
on *:dialog:queueset:sclick:92:{ if (!%site12) { set %site12 = 1 }
else { unset %site12 }
}
on *:dialog:queueset:sclick:93:{ if (!%site13) { set %site13 = 1 }
else { unset %site13 }
}
on *:dialog:queueset:sclick:94:{ if (!%site14) { set %site14 = 1 }
else { unset %site14 }
}
on *:dialog:queueset:sclick:95:{ if (!%site15) { set %site15 = 1 }
else { unset %site15 }
}
on *:dialog:queueset:sclick:96:{ if (!%site16) { set %site16 = 1 }
else { unset %site16 }
}
on *:dialog:queueset:sclick:97:{ if (!%site17) { set %site17 = 1 }
else { unset %site17 }
}
on *:dialog:queueset:sclick:98:{ if (!%site18) { set %site18 = 1 }
else { unset %site18 }
}
on *:dialog:queueset:sclick:99:{ if (!%site19) { set %site19 = 1 }
else { unset %site19 }
}
on *:dialog:queueset:sclick:80:{ if (!%site20) { set %site20 = 1 }
else { unset %site20 }
}
on *:dialog:queueset:sclick:100:{ dialog -k queueset queueset
savevars }
on *:dialog:queueset:sclick:101:{ dialog -c queueset queueset }
on *:dialog:queueset:sclick:102:{ dialog -k queueset queueset
savevars
set %i 1
set %fqueueline %fromsite %release %repeattotal
while ( %i <= 20 ) {
if ( [ %site [ $+ [ %i ] ] ] != $null ) {
set %fqueueline $addtok(%fqueueline,%rsite [ $+ [ %i ] ],32)
inc %i }
else { inc %i }
}
fqueue %fqueueline
}
alias fqueue { if ( %qfile != $null ) { .remove %qfile }
set %qfile " $+ $left(%flashpath,-12) $+ %release $+ .fqf $+ "
if (%repeattotal isnum) {
set %currentsite 4
set %firstsite 4
}
else {
set %currentsite 3
set %repeattotal 1
set %firstsite 3 }
set %repeat 1
:loop
set %recsite $gettok(%fqueueline,[ [ %currentsite ] ],32)
if ( [ [ %repeat ] ] <= %repeattotal ) {
while ( [ [ %recsite ] ] !== $null ) {
write %qfile 10 $+ %prefolder $+ %fromsite $+ $+ %prefolder $+ %recsite $+ $+ % [ $+ [ %fromsite ] ] $+ %release $+ / $+ $+ % [ $+ [ %recsite ] ] $+ %release $+ / $+ 1
inc %currentsite
set %recsite $gettok(%fqueueline,[ [ %currentsite ] ],32)
}
set %currentsite %firstsite
inc %repeat
goto loop }
run %flashpath -min %qfile
}
alias savevars {
set %fromsite $did(25)
set %release $did(35)
set %flashpath $did(15)
set %repeattotal $did(45)
set %prechannel $did(13)
set %prefolder $did(16)
set %tag $did(18)
set %tag2 $did(21)
set %premsg $did(24)
set %rsite1 $did(210)
set %rsite2 $did(211)
set %rsite3 $did(212)
set %rsite4 $did(213)
set %rsite5 $did(214)
set %rsite6 $did(215)
set %rsite7 $did(216)
set %rsite8 $did(217)
set %rsite9 $did(218)
set %rsite10 $did(219)
set %rsite11 $did(220)
set %rsite12 $did(221)
set %rsite13 $did(222)
set %rsite14 $did(223)
set %rsite15 $did(224)
set %rsite16 $did(225)
set %rsite17 $did(226)
set %rsite18 $did(227)
set %rsite19 $did(228)
set %rsite20 $did(229)
set [ % [ $+ [ %rsite1 ] ] ] $did(230)
set [ % [ $+ [ %rsite2 ] ] ] $did(231)
set [ % [ $+ [ %rsite3 ] ] ] $did(232)
set [ % [ $+ [ %rsite4 ] ] ] $did(233)
set [ % [ $+ [ %rsite5 ] ] ] $did(234)
set [ % [ $+ [ %rsite6 ] ] ] $did(235)
set [ % [ $+ [ %rsite7 ] ] ] $did(236)
set [ % [ $+ [ %rsite8 ] ] ] $did(237)
set [ % [ $+ [ %rsite9 ] ] ] $did(238)
set [ % [ $+ [ %rsite10 ] ] ] $did(239)
set [ % [ $+ [ %rsite11 ] ] ] $did(240)
set [ % [ $+ [ %rsite12 ] ] ] $did(241)
set [ % [ $+ [ %rsite13 ] ] ] $did(242)
set [ % [ $+ [ %rsite14 ] ] ] $did(243)
set [ % [ $+ [ %rsite15 ] ] ] $did(244)
set [ % [ $+ [ %rsite16 ] ] ] $did(245)
set [ % [ $+ [ %rsite17 ] ] ] $did(246)
set [ % [ $+ [ %rsite18 ] ] ] $did(247)
set [ % [ $+ [ %rsite19 ] ] ] $did(248)
set [ % [ $+ [ %rsite20 ] ] ] $did(249)
}