Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.
⬅️ Volver; _ _ _____ __ __ _
; _| | ||_ _| _ __ _ / _|/ _(_)__
; |_ . _|| || '_/ _` | _| _| / _|
; |_ _||_||_| \__,_|_| |_| |_\__|
; |_|_| irc.terrachat.cl
on 1:text:!*:%OSL.TopChan: {
if ( %OSL.T5.Global == Off ) { halt }
if (($istok(%OS.TopChan.Except,$1,32)) || ($1 == !)) return
if (!$window(@OSL.T5track1)) { OSL.T5track1.Open }
if (!$window(@OSL.T5track2)) { OSL.T5track2.Open }
if (( %OSL.Mchan1 == On ) && ( $chan == %OSL.TopChan1 )) {
if (!top5 isin $1) { OSL.T5.Status | halt }
OSL.T5.SWrite $1 $nick
If ( %OSL.ADT1 == On ) { OSL.T5.LWrite $1 $nick }
If ( %OSL.ADT1 == Off ) { OSL.T5.L2Write $1 $nick }
}
if (( %OSL.Mchan2 == On ) && ( $chan == %OSL.TopChan2 )) {
if (!top5 isin $1) { OSL.T5.Status | halt }
OSL.T5.SWrite $1 $nick
If ( %OSL.ADT2 == On ) { OSL.T5.LWrite $1 $nick }
If ( %OSL.ADT2 == Off ) { OSL.T5.L2Write $1 $nick }
}
if (( %OSL.Mchan3 == On ) && ( $chan == %OSL.TopChan3 )) {
if (!top5 isin $1) { OSL.T5.Status | halt }
OSL.T5.SWrite $1 $nick
If ( %OSL.ADT3 == On ) { OSL.T5.LWrite $1 $nick }
If ( %OSL.ADT3 == Off ) { OSL.T5.L2Write $1 $nick }
}
if (( %OSL.Mchan4 == On ) && ( $chan == %OSL.TopChan4 )) {
if (!top5 isin $1) { OSL.T5.Status | halt }
OSL.T5.SWrite $1 $nick
If ( %OSL.ADT4 == On ) { OSL.T5.LWrite $1 $nick }
If ( %OSL.ADT4 == Off ) { OSL.T5.L2Write $1 $nick }
}
if (( %OSL.Mchan5 == On ) && ( $chan == %OSL.TopChan5 )) {
if (!top5 isin $1) { OSL.T5.Status | halt }
OSL.T5.SWrite $1 $nick
If ( %OSL.ADT5 == On ) { OSL.T5.LWrite $1 $nick }
If ( %OSL.ADT5 == Off ) { OSL.T5.L2Write $1 $nick }
}
:end
}
alias OSL.T5track1.Open {
window -lhsk0 -t10,20,45 @OSL.T5track1 %OSL.T5Font
if ( $exists( " $+ $mircdir $+ OSL.T5track1.txt $+ " ) = $true ) { loadbuf @OSL.T5track1 " $+ $mircdir $+ OSL.T5track1.txt $+ " }
window -b @OSL.T5track1
titlebar @OSL.T5track1 -=- Active Server Tracking File for All Channels - Live Update
}
alias OSL.T5track2.Open {
window -lhsk0 -t10,20,45 @OSL.T5track2 %OSL.T5Font
if ( $exists( " $+ $mircdir $+ OSL.T5track2.txt $+ " ) = $true ) { loadbuf @OSL.T5track2 " $+ $mircdir $+ OSL.T5track2.txt $+ " }
window -b @OSL.T5track2
titlebar @OSL.T5track2 -=- Active Leecher Tracking File for All Channels - Live Update
}
alias OSL.T5.SWrite {
if ( $chan == %OSL.TopChan1 ) { inc %OSL.TopChan1t 1 }
if ( $chan == %OSL.TopChan2 ) { inc %OSL.TopChan2t 1 }
if ( $chan == %OSL.TopChan3 ) { inc %OSL.TopChan3t 1 }
if ( $chan == %OSL.TopChan4 ) { inc %OSL.TopChan4t 1 }
if ( $chan == %OSL.TopChan5 ) { inc %OSL.TopChan5t 1 }
var %OSL.T5.Found = Off
var %OSL.T5a = $line(@OSL.T5track1,0)
var %OSL.T5.nick1 = $remove( $1,!)
:cloopCO1
if (%OSL.T5a > 0) {
if (( %OSL.T5.nick1 == $gettok($line(@OSL.T5track1,%OSL.T5a),2,9)) && ( $chan == $gettok($line(@OSL.T5track1,%OSL.T5a),3,9))) {
var %osl.co2 = $gettok($line(@OSL.T5track1,%OSL.T5a),1,9)
var %OSL.num2 = $calc( %osl.co2 + 1 )
var %OSL.num3 = $str(0,$calc( 6 - $len(%OSL.num2))) $+ %OSL.num2
dline @OSL.T5track1 %OSL.T5a
aline @OSL.T5track1 %OSL.num3 $+ $chr(9) $+ %OSL.T5.nick1 $+ $chr(9) $+ $chan
savebuf @OSL.T5track1 OSL.T5track1.txt
window -b @OSL.T5track1
var %OSL.T5.Found = On
}
if (%OSL.T5a = 0) { goto endco }
var %OSL.T5a = $calc(%OSL.T5a - 1 )
goto cloopCO1
}
:endco
if ( %OSL.T5.Found == Off ) {
aline @OSL.T5track1 000001 $+ $chr(9) $+ %OSL.T5.nick1 $+ $chr(9) $+ $chan
savebuf @OSL.T5track1 OSL.T5track1.txt
window -b @OSL.T5track1
}
}
;
alias OSL.T5.LWrite {
if ($address( $2 ,3 ) = $NULL) { goto topdone }
var %OSL.T5b.Found = Off
var %OSL.T5c = $line(@OSL.T5track2,0)
:cloopLE1
if (%OSL.T5c > 0) {
if (( $2 == $gettok($line(@OSL.T5track2,%OSL.T5c),2,9)) || ( $address( $2 ,3 ) == $gettok($line(@OSL.T5track2,%OSL.T5c),3,9))) {
if ( $chan == $gettok($line(@OSL.T5track2,%OSL.T5c),4,9)) {
var %osl.le = $gettok($line(@OSL.T5track2,%OSL.T5c),1,9)
var %OSL.num4 = $calc( %osl.le + 1 )
var %OSL.num5 = $str(0,$calc( 6 - $len(%OSL.num4))) $+ %OSL.num4
dline @OSL.T5track2 %OSL.T5c
aline @OSL.T5track2 %OSL.num5 $+ $chr(9) $+ $2 $+ $chr(9) $+ $address( $2 ,3 ) $+ $chr(9) $+ $chan
savebuf @OSL.T5track2 OSL.T5track2.txt
window -b @OSL.T5track2
var %OSL.T5b.Found = On
}
}
if (%OSL.T5c = 0) { goto endle }
var %OSL.T5c = $calc(%OSL.T5c - 1 )
goto cloopLE1
}
:endle
if ( %OSL.T5b.Found == Off ) {
aline @OSL.T5track2 000001 $+ $chr(9) $+ $2 $+ $chr(9) $+ $address( $2 ,3 ) $+ $chr(9) $+ $chan
savebuf @OSL.T5track2 OSL.T5track2.txt
window -b @OSL.T5track2
}
;
:topdone
}
alias OSL.T5.L2Write {
var %OSL.T5e.Found = Off
var %OSL.T5f = $line(@OSL.T5track2,0)
:cloopLE2
if (%OSL.T5f > 0) {
if (( $2 == $gettok($line(@OSL.T5track2,%OSL.T5f),2,9)) && ( $chan == $gettok($line(@OSL.T5track2,%OSL.T5f),4,9))) {
var %osl.le2 = $gettok($line(@OSL.T5track2,%OSL.T5f),1,9)
var %OSL.num4a = $calc( %osl.le2 + 1 )
var %OSL.num5a = $str(0,$calc( 6 - $len(%OSL.num4a))) $+ %OSL.num4a
dline @OSL.T5track2 %OSL.T5f
aline @OSL.T5track2 %OSL.num5a $+ $chr(9) $+ $2 $+ $chr(9) $+ Address Not Tracked $+ $chr(9) $+ $chan
savebuf @OSL.T5track2 OSL.T5track2.txt
window -b @OSL.T5track2
var %OSL.T5e.Found = On
}
if (%OSL.T5f = 0) { goto endle2 }
var %OSL.T5f = $calc(%OSL.T5f - 1 )
goto cloopLE2
}
:endle2
if ( %OSL.T5e.Found == Off ) {
aline @OSL.T5track2 000001 $+ $chr(9) $+ $2 $+ $chr(9) $+ Address Not Tracked $+ $chr(9) $+ $chan
savebuf @OSL.T5track2 OSL.T5track2.txt
window -b @OSL.T5track2
}
}
alias OSL.T5S.msg {
if (!$window(@OSL.T5track1)) { OSL.T5track1.Open }
if (!$window(@OSL.T5Sout)) { window -lshn -t10,20,45 @OSL.T5Sout %OSL.T5Font }
filter -wwc @OSL.T5track1 @OSL.T5Sout * $+ $2 $+ *
var %lastS = $line(@OSL.T5Sout,0)
var %T5S.msg1 = #1: $gettok($line(@OSL.T5Sout,%lastS),2,9) - $int($gettok($line(@OSL.T5Sout,%lastS),1,9))
var %T5S.msg2 = #2: $gettok($line(@OSL.T5Sout,$calc( %lastS - 1)),2,9) - $int($gettok($line(@OSL.T5Sout,$calc( %lastS - 1)),1,9))
var %T5S.msg3 = #3: $gettok($line(@OSL.T5Sout,$calc( %lastS - 2)),2,9) - $int($gettok($line(@OSL.T5Sout,$calc( %lastS - 2)),1,9))
var %T5S.msg4 = #4: $gettok($line(@OSL.T5Sout,$calc( %lastS - 3)),2,9) - $int($gettok($line(@OSL.T5Sout,$calc( %lastS - 3)),1,9))
var %T5S.msg5 = #5: $gettok($line(@OSL.T5Sout,$calc( %lastS - 4)),2,9) - $int($gettok($line(@OSL.T5Sout,$calc( %lastS - 4)),1,9))
if ( $2 == %OSL.TopChan1) { var %T5S.msg6 = $bytes( %OSL.TopChan1t, b) }
if ( $2 == %OSL.TopChan2) { var %T5S.msg6 = $bytes( %OSL.TopChan2t, b) }
if ( $2 == %OSL.TopChan3) { var %T5S.msg6 = $bytes( %OSL.TopChan3t, b) }
if ( $2 == %OSL.TopChan4) { var %T5S.msg6 = $bytes( %OSL.TopChan4t, b) }
if ( $2 == %OSL.TopChan5) { var %T5S.msg6 = $bytes( %OSL.TopChan5t, b) }
if (( $1 = 1 ) && ( %OSL.OS140 == On )) { aline @OS.Buffer msg $2 %OSL.T5Msg1 Todays Most Popular Servers @ $time %OSL.T5Msg3 %T5S.msg1 %OSL.T5Msg3 %T5S.msg2 %OSL.T5Msg3 %T5S.msg3 %OSL.T5Msg3 %T5S.msg4 %OSL.T5Msg3 %T5S.msg5 %OSL.T5Msg3 Total Requests: %T5S.msg6 %OSL.T5Msg2 }
if (( $1 = 1 ) && ( %OSL.OS140 == Off )) { msg $2 %OSL.T5Msg1 Todays Most Popular Servers @ $time %OSL.T5Msg3 %T5S.msg1 %OSL.T5Msg3 %T5S.msg2 %OSL.T5Msg3 %T5S.msg3 %OSL.T5Msg3 %T5S.msg4 %OSL.T5Msg3 %T5S.msg5 %OSL.T5Msg3 Total Requests: %T5S.msg6 %OSL.T5Msg2 }
if ( $1 = 2 ) { echo -s $2 %OSL.T5Msg1 Todays Most Popular Servers @ $time %OSL.T5Msg3 %T5S.msg1 %OSL.T5Msg3 %T5S.msg2 %OSL.T5Msg3 %T5S.msg3 %OSL.T5Msg3 %T5S.msg4 %OSL.T5Msg3 %T5S.msg5 %OSL.T5Msg3 Total Requests: %T5S.msg6 %OSL.T5Msg2 }
if ($window(@OS.Buffer)) { window -b @OS.Buffer }
window -c @OSL.T5Sout
}
alias OSL.T5L.msg {
if (!$window(@OSL.T5track2)) { OSL.T5track2.Open }
if (!$window(@OSL.T5Lout)) { window -lshn -t10,20,45 @OSL.T5Lout %OSL.T5Font }
filter -wwc @OSL.T5track2 @OSL.T5Lout * $+ $2 $+ *
var %lastL = $line(@OSL.T5Lout,0)
var %T5L.msg1 = #1: $gettok($line(@OSL.T5Lout,%lastL),2,9) - $int($gettok($line(@OSL.T5Lout,%lastL),1,9))
var %T5L.msg2 = #2: $gettok($line(@OSL.T5Lout,$calc( %lastL - 1)),2,9) - $int($gettok($line(@OSL.T5Lout,$calc( %lastL - 1)),1,9))
var %T5L.msg3 = #3: $gettok($line(@OSL.T5Lout,$calc( %lastL - 2)),2,9) - $int($gettok($line(@OSL.T5Lout,$calc( %lastL - 2)),1,9))
var %T5L.msg4 = #4: $gettok($line(@OSL.T5Lout,$calc( %lastL - 3)),2,9) - $int($gettok($line(@OSL.T5Lout,$calc( %lastL - 3)),1,9))
var %T5L.msg5 = #5: $gettok($line(@OSL.T5Lout,$calc( %lastL - 4)),2,9) - $int($gettok($line(@OSL.T5Lout,$calc( %lastL - 4)),1,9))
if (( $1 = 1 ) && ( %OSL.OS140 == On )) { aline @OS.Buffer msg $2 %OSL.T5Msg1 Todays Top Leechers @ $time %OSL.T5Msg3 %T5L.msg1 %OSL.T5Msg3 %T5L.msg2 %OSL.T5Msg3 %T5L.msg3 %OSL.T5Msg3 %T5L.msg4 %OSL.T5Msg3 %T5L.msg5 %OSL.T5Msg2 }
if (( $1 = 1 ) && ( %OSL.OS140 == Off )) { msg $2 %OSL.T5Msg1 Todays Top Leechers @ $time %OSL.T5Msg3 %T5L.msg1 %OSL.T5Msg3 %T5L.msg2 %OSL.T5Msg3 %T5L.msg3 %OSL.T5Msg3 %T5L.msg4 %OSL.T5Msg3 %T5L.msg5 %OSL.T5Msg2 }
if ( $1 = 2 ) { echo -s $2 %OSL.T5Msg1 Todays Top Leechers @ $time %OSL.T5Msg3 %T5L.msg1 %OSL.T5Msg3 %T5L.msg2 %OSL.T5Msg3 %T5L.msg3 %OSL.T5Msg3 %T5L.msg4 %OSL.T5Msg3 %T5L.msg5 %OSL.T5Msg2 }
if ($window(@OS.Buffer)) { window -b @OS.Buffer }
window -c @OSL.T5Lout
}
alias OSL.Top51 {
if (( %OSL.T5.Global == On ) && ( %OSL.Mchan1 == On )) {
if ( %OSL.Top5S1 == On ) { OSL.T5S.msg 1 %OSL.TopChan1 }
if ( %OSL.Top5L1 == On ) { OSL.T5L.msg 1 %OSL.TopChan1 }
}
}
alias OSL.Top52 {
if (( %OSL.T5.Global == On ) && ( %OSL.Mchan2 == On )) {
if ( %OSL.Top5S2 == On ) { OSL.T5S.msg 1 %OSL.TopChan2 }
if ( %OSL.Top5L2 == On ) { OSL.T5L.msg 1 %OSL.TopChan2 }
}
}
alias OSL.Top53 {
if (( %OSL.T5.Global == On ) && ( %OSL.Mchan3 == On )) {
if ( %OSL.Top5S3 == On ) { OSL.T5S.msg 1 %OSL.TopChan3 }
if ( %OSL.Top5L3 == On ) { OSL.T5L.msg 1 %OSL.TopChan3 }
}
}
alias OSL.Top54 {
if (( %OSL.T5.Global == On ) && ( %OSL.Mchan4 == On )) {
if ( %OSL.Top5S4 == On ) { OSL.T5S.msg 1 %OSL.TopChan4 }
if ( %OSL.Top5L4 == On ) { OSL.T5L.msg 1 %OSL.TopChan4 }
}
}
alias OSL.Top55 {
if (( %OSL.T5.Global == On ) && ( %OSL.Mchan5 == On )) {
if ( %OSL.Top5S5 == On ) { OSL.T5S.msg 1 %OSL.TopChan5 }
if ( %OSL.Top5L5 == On ) { OSL.T5L.msg 1 %OSL.TopChan5 }
}
}
on 1:START:{
set %OSL.T5.version 104
if ( %OSL.T5Day == $NULL ) { set %OSL.T5Day $day }
if ( %OSL.Top5S1 == $NULL ) { set %OSL.Top5S1 Off }
if ( %OSL.Top5S2 == $NULL ) { set %OSL.Top5S2 Off }
if ( %OSL.Top5S3 == $NULL ) { set %OSL.Top5S3 Off }
if ( %OSL.Top5S4 == $NULL ) { set %OSL.Top5S4 Off }
if ( %OSL.Top5S5 == $NULL ) { set %OSL.Top5S5 Off }
if ( %OSL.Top5L1 == $NULL ) { set %OSL.Top5L1 Off }
if ( %OSL.Top5L2 == $NULL ) { set %OSL.Top5L2 Off }
if ( %OSL.Top5L3 == $NULL ) { set %OSL.Top5L3 Off }
if ( %OSL.Top5L4 == $NULL ) { set %OSL.Top5L4 Off }
if ( %OSL.Top5L5 == $NULL ) { set %OSL.Top5L5 Off }
if ( %OSL.Mchan1 == $NULL ) { set %OSL.Mchan1 Off }
if ( %OSL.Mchan2 == $NULL ) { set %OSL.Mchan2 Off }
if ( %OSL.Mchan3 == $NULL ) { set %OSL.Mchan3 Off }
if ( %OSL.Mchan4 == $NULL ) { set %OSL.Mchan4 Off }
if ( %OSL.Mchan5 == $NULL ) { set %OSL.Mchan5 Off }
if ( %OSL.ADT1 == $NULL ) { set %OSL.ADT1 Off }
if ( %OSL.ADT2 == $NULL ) { set %OSL.ADT2 Off }
if ( %OSL.ADT3 == $NULL ) { set %OSL.ADT3 Off }
if ( %OSL.ADT4 == $NULL ) { set %OSL.ADT4 Off }
if ( %OSL.ADT5 == $NULL ) { set %OSL.ADT5 Off }
if ( %OSL.TopChan == $NULL ) { set %OSL.TopChan #NoneSelected }
if ( %OSL.TopChan1 == $NULL ) { set %OSL.TopChan1 #NoneSelected }
if ( %OSL.TopChan2 == $NULL ) { set %OSL.TopChan2 #NoneSelected }
if ( %OSL.TopChan3 == $NULL ) { set %OSL.TopChan3 #NoneSelected }
if ( %OSL.TopChan4 == $NULL ) { set %OSL.TopChan4 #NoneSelected }
if ( %OSL.TopChan5 == $NULL ) { set %OSL.TopChan5 #NoneSelected }
if ( %OSL.TopTime == $NULL ) { set %OSL.TopTime 60 }
if ( %OSL.TopTime1 == $NULL ) { set %OSL.TopTime1 60 }
if ( %OSL.TopTime2 == $NULL ) { set %OSL.TopTime2 60 }
if ( %OSL.TopTime3 == $NULL ) { set %OSL.TopTime3 60 }
if ( %OSL.TopTime4 == $NULL ) { set %OSL.TopTime4 60 }
if ( %OSL.TopTime5 == $NULL ) { set %OSL.TopTime5 60 }
If ( %OSL.T5.Global == $NULL) { set %OSL.T5.Global == On }
if ( %OSL.Icon = $NULL) { set %OSL.Icon " $+ $mircdir $+ OS-Limits.ico $+ " }
if ( %OSL.ADT1 == $NULL ) { set %OSL.ADT1 On }
If ( %OSL.OS140 == $NULL ) { set %OSL.OS140 On }
set %OSL.T5Msg1 12,12.08,08.00,12
set %OSL.T5Msg2 12,12.08,08.00,12 Type:11 !Top5 00,12to see your current stats 08,08.12,12.
set %OSL.T5Msg3 12,12.08,08.00,12
.timerOSL.Top51 -o 0 $calc( %OSL.TopTime1 * 60 ) OSL.Top51
.timerOSL.Top52 -o 0 $calc( %OSL.TopTime2 * 60 ) OSL.Top52
.timerOSL.Top53 -o 0 $calc( %OSL.TopTime3 * 60 ) OSL.Top53
.timerOSL.Top54 -o 0 $calc( %OSL.TopTime4 * 60 ) OSL.Top54
.timerOSL.Top55 -o 0 $calc( %OSL.TopTime5 * 60 ) OSL.Top55
.timerOSL.CheckT5 -o 0 180 OSL.T5Day
.timerOSL.T5Backup off
set %OSL.T5Font Arial 712
}
on 1:disconnect:{
window -c @OSL.T5track1
window -c @OSL.T5track2
window -c @OSL.T5Sout
window -c @OSL.T5Lout
window -c @OSL.T5Sview
}
menu menubar,channel,status {
OS - Top 5
.Servers:/dialog -m top5 top5
.Exceptions
..View List:echo -a OS Exceptions: $iif(%OS.TopChan.Except == $null,Exceptions list is empty.,%OS.TopChan.Except)
..Edit List: {
var %e = $$input(Add/Remove words in this list ...,e,OS Top 5 Exceptions List,%OS.TopChan.Except),%i = 1
while ($gettok(%e,%i,32) != $null) {
var %t = $ifmatch,%ee = %ee $iif($left(%t,1) == !,%t,$+(!,%t))
inc %i
}
$iif(%ee != $null,set,unset) %OS.TopChan.Except %ee
echo -a OS Top 5 Exceptions List Updated.
echo -a OS Exceptions: $iif(%OS.TopChan.Except == $null,Exceptions list is empty.,%OS.TopChan.Except)
}
..Clear List: {
unset %OS.TopChan.Except
echo -a OS Top 5 Exceptions List Updated.
echo -a OS Exceptions: $iif(%OS.TopChan.Except == $null,Exceptions list is empty.,%OS.TopChan.Except)
}
}
alias OSL.T5Day {
if ( %OSL.T5Day != $day ) {
set %OSL.T5Day $day
window -c @OSL.T5track1
.remove " $+ $mircdir $+ OSL.T5track1.txt $+ "
window -c @OSL.T5track2
.remove " $+ $mircdir $+ OSL.T5track2.txt $+ "
set %OSL.TopChan1t 0
set %OSL.TopChan2t 0
set %OSL.TopChan3t 0
set %OSL.TopChan4t 0
set %OSL.TopChan5t 0
}
}
alias OSL.T5CLview {
if (!$window(@OSL.T5track2)) { OSL.T5track2.Open }
if (!$window(@OSL.T5Lview)) { window -lshn -t10,20,45 @OSL.T5Lview %OSL.T5Font }
filter -wwc @OSL.T5track2 @OSL.T5Lview * $+ $1 $+ *
titlebar @OSL.T5Lview -=- Leecher Tracking File for $1 - No Update
window -b @OSL.T5Lview
window -a @OSL.T5Lview
}
alias OSL.T5CSview {
if (!$window(@OSL.T5track1)) { OSL.T5track1.Open }
if (!$window(@OSL.T5Sview)) { window -lshn -t10,20,45 @OSL.T5Sview %OSL.T5Font }
filter -wwc @OSL.T5track1 @OSL.T5Sview * $+ $1 $+ *
titlebar @OSL.T5Sview -=- Server Tracking File for $1 - No Update
window -b @OSL.T5Sview
window -a @OSL.T5Sview
}
alias OSL.T5.Status {
var %OSL.SR0a = 0
var %OSL.SR0b = 0
var %OSL.SR1 = 0
var %OSL.SR2 = 0
var %OSL.SR3 = 0
var %OSL.SR4 = 0
if (!$window(@OSL.T5track1)) { OSL.T5track1.Open }
if (!$window(@OSL.T5S1out)) { window -lshn -t10,20,45 @OSL.T5S1out %OSL.T5Font }
filter -wwc @OSL.T5track1 @OSL.T5S1out * $+ $chan $+ *
var %OSL.SR0a = $line(@OSL.T5S1out,0)
var %OSL.T5Sa = $line(@OSL.T5S1out,0)
:cloopS1
if (%OSL.T5Sa > 0) {
if ( $nick == $gettok($line(@OSL.T5S1out,%OSL.T5Sa),2,9)) {
var %OSL.SR1 = $int($gettok($line(@OSL.T5S1out,%OSL.T5Sa),1,9))
var %OSL.SR2 = $calc( $calc( $line(@OSL.T5S1out,0) - %OSL.T5Sa ) + 1 )
}
if (%OSL.T5sa = 0) { goto endsa }
var %OSL.T5Sa = $calc(%OSL.T5Sa - 1 )
goto cloopS1
}
window -c @OSL.T5S1out
:endsa
;
if ($address( $nick ,3 ) = $NULL) { goto statdone }
if (!$window(@OSL.T5track2)) { OSL.T5track2.Open }
if (!$window(@OSL.T5L1out)) { window -lshn -t10,20,45 @OSL.T5L1out %OSL.T5Font }
filter -wwc @OSL.T5track2 @OSL.T5L1out * $+ $chan $+ *
var %OSL.T5Sb = $line(@OSL.T5L1out,0)
var %OSL.SR0b = $line(@OSL.T5L1out,0)
:cloopS2
if (%OSL.T5Sb > 0) {
if (( $nick == $gettok($line(@OSL.T5L1out,%OSL.T5Sb),2,9)) || ( $address( $nick ,3 ) == $gettok($line(@OSL.T5L1out,%OSL.T5Sb),3,9))) {
var %OSL.SR3 = $int($gettok($line(@OSL.T5L1out,%OSL.T5Sb),1,9))
var %OSL.SR4 = $calc( $calc( $line(@OSL.T5L1out,0) - %OSL.T5Sb ) + 1 )
}
if (%OSL.T5Sb = 0) { goto endsb }
var %OSL.T5Sb = $calc(%OSL.T5Sb - 1 )
goto cloopS2
}
:endsb
window -c @OSL.T5L1out
;
:statdone
If ( %OSL.OS140 == On ) { aline @OS.Buffer notice $nick %OSL.T5Msg3 Server/Leecher Report for $nick in $chan - As of $time(h:nn tt) %OSL.T5Msg3 Server Report - Requests Received: %OSL.SR1 ( Position %OSL.SR2 of %OSL.SR0a ) %OSL.T5Msg3 Leech Report - Requests Made: %OSL.SR3 ( Position %OSL.SR4 of %OSL.SR0b ) %OSL.T5Msg3 OS-Top5 %OSL.T5Msg3 }
If ( %OSL.OS140 == Off ) { notice $nick %OSL.T5Msg3 Server/Leecher Report for $nick in $chan - As of $time(h:nn tt) %OSL.T5Msg3 Server Report - Requests Received: %OSL.SR1 ( Position %OSL.SR2 of %OSL.SR0a) %OSL.T5Msg3 Leech Report - Requests Made: %OSL.SR3 ( Position %OSL.SR4 of %OSL.SR0b ) %OSL.T5Msg3 OS-Top5 %OSL.T5Msg3 }
if ($window(@OS.Buffer)) { window -b @OS.Buffer }
halt
}
alias osl.t5.update { sockopen os-top5 www.madp.net 80 }
on *:sockopen:os-top5: {
.sockwrite -n $sockname GET /oslimits/files/versions.txt HTTP/1.1
.sockwrite -n $sockname Host: www.madp.net $+ $crlf $+ $crlf
}
on *:sockread:os-top5: {
if ($sockerr) {
did -o Top5 41 21 Connection Failed, Try Again Later
.sockclose os-top5
halt
}
else {
var %t
sockread %t
if (($gettok(%t,1,59) == OS-Top5) && ($gettok(%t,2,59) != %OSL.T5.version)) {
did -o Top5 41 21 OS-Top5 Build $gettok(%t,2,59) is available
.sockclose os-top5
}
elseif (($gettok(%t,1,59) == OS-Top5) && ($gettok(%t,2,59) == %OSL.T5.version)) {
did -o Top5 41 21 Your OS-Top5 Build %OSL.t5.version is current
.sockclose os-top5
}
}
}
Dialog Top5 {
option pixel
icon %OSL.Icon, 0
size -1 -1 350 320
title Top Servers - %SDversion
icon nukleo/mirc.ico
tab "Global", 1, 2 2 340 240
tab "C1",2
tab "C2",3
tab "C3",4
tab "C4",5
tab "C5",6
link "www.terrachat.cl", 44, 125 267 200 19, center
EDIT "Checking For OS-Top5 Updates..." 41, 65 245 215 19 , center
BUTTON "Cancel" 31, 154 290 54 21 , cancel
BUTTON "Apply" 32, 226 290 54 21 ,
BUTTON "Done" 33, 74 290 54 21 , ok
;Tab1
BOX "Global Settings" 90, 17 25 300 105 , tab1
RADIO "Top5 On - Global" 51, 103 40 109 13 , group, tab1
RADIO "Top5 Off - Global" 52, 103 60 109 13 , tab1
RADIO "Yes, I am using Omenserve v1.40" 53, 65 85 240 13 , group, tab1
RADIO "No, I am NOT using Omenserve v1.40" 54, 65 105 240 13 , tab1
BUTTON "click" 55, 50 140 54 21 , tab1
BUTTON "click" 56, 50 170 54 21 , tab1
BUTTON "click" 57, 50 200 54 21 , tab1
TEXT "View Global Server Tracking File" 58, 110 145 220 13 , tab1
TEXT "View Global Leech Tracking File" 59, 110 175 220 13 , tab1
TEXT "Send Test Messages To Status Screen" 60, 110 205 220 13 , tab1
; Tab2
CHECK "Monitor This Channel" 201, 115 45 130 15 , tab2
CHECK "Send Server Messages" 202, 25 65 135 15 , tab2
CHECK "Send Leech Messages" 203, 170 65 135 15 , tab2
EDIT "#NonSelected" 204, 50 95 111 19 , autohs, center, tab2
TEXT "Set Channel #1 To Monitor" 224, 165 98 130 13 , tab2
EDIT "60" 205, 90 115 30 19 , center, tab2
TEXT "Set Minutes Between Messages" 260, 125 118 180 13 , tab2
RADIO "Track By Nick (Faster)" 206, 19 140 130 13 , group, tab2
RADIO "Track By Address (Slower)" 207, 150 140 150 13 , tab2
BUTTON "click" 208, 85 165 54 21 , tab2
BUTTON "click" 209, 85 185 54 21 , tab2
BUTTON "click" 210, 85 205 54 21 , tab2
TEXT "View Channel Server File" 211, 150 168 185 13 , tab2
TEXT "View Channel Leech File" 212, 150 188 185 13 , tab2
TEXT "Send Test Messsage To Status" 213, 150 208 185 13 , tab2
BOX "Channel #1" 214, 11 30 320 60 , tab2
BOX "" 240, 11 80 320 152 , tab2
; Tab3
CHECK "Monitor This Channel" 301, 115 45 130 15 , tab3
CHECK "Send Server Messages" 302, 25 65 135 15 , tab3
CHECK "Send Leech Messages" 303, 170 65 135 15 , tab3
EDIT "#NonSelected" 304, 50 95 111 19 , autohs, center, tab3
TEXT "Set Channel #2 To Monitor" 324, 165 98 130 13 , tab3
EDIT "60" 305, 90 115 30 19 , center, tab3
TEXT "Set Minutes Between Messages" 360, 125 118 180 13 , tab3
RADIO "Track By Nick (Faster)" 306, 19 140 130 13 , group, tab3
RADIO "Track By Address (Slower)" 307, 150 140 150 13 , tab3
BUTTON "click" 308, 85 165 54 21 , tab3
BUTTON "click" 309, 85 185 54 21 , tab3
BUTTON "click" 310, 85 205 54 21 , tab3
TEXT "View Channel Server File" 311, 150 168 185 13 , tab3
TEXT "View Channel Leech File" 312, 150 188 185 13 , tab3
TEXT "Send Test Messsage To Status" 313, 150 208 185 13 , tab3
BOX "Channel #2" 314, 11 30 320 60 , tab3
BOX "" 340, 11 80 320 152 , tab3
; Tab4
CHECK "Monitor This Channel" 401, 115 45 130 15 , tab4
CHECK "Send Server Messages" 402, 25 65 135 15 , tab4
CHECK "Send Leech Messages" 403, 170 65 135 15 , tab4
EDIT "#NonSelected" 404, 50 95 111 19 , autohs, center, tab4
TEXT "Set Channel #3 To Monitor" 424, 165 98 130 13 , tab4
EDIT "60" 405, 90 115 30 19 , center, tab4
TEXT "Set Minutes Between Messages" 460, 125 118 180 13 , tab4
RADIO "Track By Nick (Faster)" 406, 19 140 130 13 , group, tab4
RADIO "Track By Address (Slower)" 407, 150 140 150 13 , tab4
BUTTON "click" 408, 85 165 54 21 , tab4
BUTTON "click" 409, 85 185 54 21 , tab4
BUTTON "click" 410, 85 205 54 21 , tab4
TEXT "View Channel Server File" 411, 150 168 185 13 , tab4
TEXT "View Channel Leech File" 412, 150 188 185 13 , tab4
TEXT "Send Test Messsage To Status" 413, 150 208 185 13 , tab4
BOX "Channel #3" 414, 11 30 320 60 , tab4
BOX "" 440, 11 80 320 152 , tab4
; Tab5
CHECK "Monitor This Channel" 501, 115 45 130 15 , tab5
CHECK "Send Server Messages" 502, 25 65 135 15 , tab5
CHECK "Send Leech Messages" 503, 170 65 135 15 , tab5
EDIT "#NonSelected" 504, 50 95 111 19 , autohs, center, tab5
TEXT "Set Channel #4 To Monitor" 524, 165 98 130 13 , tab5
EDIT "60" 505, 90 115 30 19 , center, tab5
TEXT "Set Minutes Between Messages" 560, 125 118 180 13 , tab5
RADIO "Track By Nick (Faster)" 506, 19 140 130 13 , group, tab5
RADIO "Track By Address (Slower)" 507, 150 140 150 13 , tab5
BUTTON "click" 508, 85 165 54 21 , tab5
BUTTON "click" 509, 85 185 54 21 , tab5
BUTTON "click" 510, 85 205 54 21 , tab5
TEXT "View Channel Server File" 511, 150 168 185 13 , tab5
TEXT "View Channel Leech File" 512, 150 188 185 13 , tab5
TEXT "Send Test Messsage To Status" 513, 150 208 185 13 , tab5
BOX "Channel #4" 514, 11 30 320 60 , tab5
BOX "" 540, 11 80 320 152 , tab5
; Tab6
CHECK "Monitor This Channel" 601, 115 45 130 15 , tab6
CHECK "Send Server Messages" 602, 25 65 135 15 , tab6
CHECK "Send Leech Messages" 603, 170 65 135 15 , tab6
EDIT "#NonSelected" 604, 50 95 111 19 , autohs, center, tab6
TEXT "Set Channel #5 To Monitor" 624, 165 98 130 13 , tab6
EDIT "60" 605, 90 115 30 19 , center, tab6
TEXT "Set Minutes Between Messages" 660, 125 118 180 13 , tab6
RADIO "Track By Nick (Faster)" 606, 19 140 130 13 , group, tab6
RADIO "Track By Address (Slower)" 607, 150 140 150 13 , tab6
BUTTON "click" 608, 85 165 54 21 , tab6
BUTTON "click" 609, 85 185 54 21 , tab6
BUTTON "click" 610, 85 205 54 21 , tab6
TEXT "View Channel Server File" 611, 150 168 185 13 , tab6
TEXT "View Channel Leech File" 612, 150 188 185 13 , tab6
TEXT "Send Test Messsage To Status" 613, 150 208 185 13 , tab6
BOX "Channel #5" 614, 11 30 320 60 , tab6
BOX "" 640, 11 80 320 152 , tab6
}
on *:DIALOG:Top5:init:0: {
osl.t5.update
if ( %OSL.T5.Global == Off ) did -c Top5 52
else did -c Top5 51
if ( %OSL.OS140 == On ) did -c Top5 53
else did -c Top5 54
; Tab2
if ( %OSL.MChan1 == On ) did --c Top5 201
if ( %OSL.Top5S1 == On ) did --c Top5 202
if ( %OSL.Top5L1 == On ) did --c Top5 203
did -o Top5 204 21 %OSL.TopChan1
did -o Top5 205 21 %OSL.TopTime1
if ( %OSL.ADT1 == On ) did -c Top5 207
else did -c Top5 206
; Tab3
if ( %OSL.MChan2 == On ) did --c Top5 301
if ( %OSL.Top5S2 == On ) did --c Top5 302
if ( %OSL.Top5L2 == On ) did --c Top5 303
did -o Top5 304 21 %OSL.TopChan2
did -o Top5 305 21 %OSL.TopTime2
if ( %OSL.ADT2 == On ) did -c Top5 307
else did -c Top5 306
; Tab4
if ( %OSL.MChan3 == On ) did --c Top5 401
if ( %OSL.Top5S3 == On ) did --c Top5 402
if ( %OSL.Top5L3 == On ) did --c Top5 403
did -o Top5 404 21 %OSL.TopChan3
did -o Top5 405 21 %OSL.TopTime3
if ( %OSL.ADT3 == On ) did -c Top5 407
else did -c Top5 406
; Tab5
if ( %OSL.MChan4 == On ) did --c Top5 501
if ( %OSL.Top5S4 == On ) did --c Top5 502
if ( %OSL.Top5L4 == On ) did --c Top5 503
did -o Top5 504 21 %OSL.TopChan4
did -o Top5 505 21 %OSL.TopTime4
if ( %OSL.ADT4 == On ) did -c Top5 507
else did -c Top5 506
; Tab6
if ( %OSL.MChan5 == On ) did --c Top5 601
if ( %OSL.Top5S5 == On ) did --c Top5 602
if ( %OSL.Top5L5 == On ) did --c Top5 603
did -o Top5 604 21 %OSL.TopChan5
did -o Top5 605 21 %OSL.TopTime5
if ( %OSL.ADT5 == On ) did -c Top5 607
else did -c Top5 606
}
on *:DIALOG:Top5:sclick:32: {
; Tab1
if ( $did(Top5,51).state ) set %OSL.T5.Global On
else set %OSL.T5.Global Off
if ( $did(Top5,53).state ) set %OSL.OS140 On
else set %OSL.OS140 Off
; Tab2
set %OSL.MChan1 $iif(($did(Top5,201).state == 1),On,Off)
set %OSL.Top5S1 $iif(($did(Top5,202).state == 1),On,Off)
set %OSL.Top5L1 $iif(($did(Top5,203).state == 1),On,Off)
set %OSL.TopChan1 $did(Top5,204)
set %OSL.TopTime1 $did(Top5,205)
if ( $did(Top5,206).state ) set %OSL.ADT1 Off
else set %OSL.ADT1 On
; Tab3
set %OSL.MChan2 $iif(($did(Top5,301).state == 1),On,Off)
set %OSL.Top5S2 $iif(($did(Top5,302).state == 1),On,Off)
set %OSL.Top5L2 $iif(($did(Top5,303).state == 1),On,Off)
set %OSL.TopChan2 $did(Top5,304)
set %OSL.TopTime2 $did(Top5,305)
if ( $did(Top5,306).state ) set %OSL.ADT2 Off
else set %OSL.ADT2 On
; Tab4
set %OSL.MChan3 $iif(($did(Top5,401).state == 1),On,Off)
set %OSL.Top5S3 $iif(($did(Top5,402).state == 1),On,Off)
set %OSL.Top5L3 $iif(($did(Top5,403).state == 1),On,Off)
set %OSL.TopChan3 $did(Top5,404)
set %OSL.TopTime3 $did(Top5,405)
if ( $did(Top5,406).state ) set %OSL.ADT3 Off
else set %OSL.ADT3 On
; Tab5
set %OSL.MChan4 $iif(($did(Top5,501).state == 1),On,Off)
set %OSL.Top5S4 $iif(($did(Top5,502).state == 1),On,Off)
set %OSL.Top5L4 $iif(($did(Top5,503).state == 1),On,Off)
set %OSL.TopChan4 $did(Top5,504)
set %OSL.TopTime4 $did(Top5,505)
if ( $did(Top5,506).state ) set %OSL.ADT4 Off
else set %OSL.ADT4 On
; Tab6
set %OSL.MChan5 $iif(($did(Top5,601).state == 1),On,Off)
set %OSL.Top5S5 $iif(($did(Top5,602).state == 1),On,Off)
set %OSL.Top5L5 $iif(($did(Top5,603).state == 1),On,Off)
set %OSL.TopChan5 $did(Top5,604)
set %OSL.TopTime5 $did(Top5,605)
if ( $did(Top5,606).state ) set %OSL.ADT5 Off
else set %OSL.ADT5 On
;
set %OSL.TopChan %OSL.TopChan1 $+ , $+ %OSL.TopChan2 $+ , $+ %OSL.TopChan3 $+ , $+ %OSL.TopChan4 $+ , $+ %OSL.TopChan5
.timerOSL.Top51 -o 0 $calc( %OSL.TopTime1 * 60 ) OSL.Top51
.timerOSL.Top52 -o 0 $calc( %OSL.TopTime2 * 60 ) OSL.Top52
.timerOSL.Top53 -o 0 $calc( %OSL.TopTime3 * 60 ) OSL.Top53
.timerOSL.Top54 -o 0 $calc( %OSL.TopTime4 * 60 ) OSL.Top54
.timerOSL.Top55 -o 0 $calc( %OSL.TopTime5 * 60 ) OSL.Top55
}
on *:DIALOG:top5:sclick:55: {
if (!$window(@OSL.T5track1)) OSL.T5track1.Open
window -a @OSL.T5track1
}
on *:DIALOG:top5:sclick:56: {
if (!$window(@OSL.T5track2)) OSL.T5track2.Open
window -a @OSL.T5track2
}
on *:DIALOG:top5:sclick:57: {
If ( %OSL.Mchan1 == On ) { OSL.T5S.msg 2 %OSL.TopChan1 }
If ( %OSL.Mchan1 == On ) { OSL.T5L.msg 2 %OSL.TopChan1 }
If ( %OSL.Mchan2 == On ) { OSL.T5S.msg 2 %OSL.TopChan2 }
If ( %OSL.Mchan2 == On ) { OSL.T5L.msg 2 %OSL.TopChan2 }
If ( %OSL.Mchan3 == On ) { OSL.T5S.msg 2 %OSL.TopChan3 }
If ( %OSL.Mchan3 == On ) { OSL.T5L.msg 2 %OSL.TopChan3 }
If ( %OSL.Mchan4 == On ) { OSL.T5S.msg 2 %OSL.TopChan4 }
If ( %OSL.Mchan4 == On ) { OSL.T5L.msg 2 %OSL.TopChan4 }
If ( %OSL.Mchan5 == On ) { OSL.T5S.msg 2 %OSL.TopChan5 }
If ( %OSL.Mchan5 == On ) { OSL.T5L.msg 2 %OSL.TopChan5 }
}
on *:DIALOG:top5:sclick:208: OSL.T5CSview %OSL.TopChan1
on *:DIALOG:top5:sclick:209: OSL.T5CLview %OSL.TopChan1
on *:DIALOG:top5:sclick:210: {
OSL.T5S.msg 2 %OSL.TopChan1
OSL.T5L.msg 2 %OSL.TopChan1
}
on *:DIALOG:top5:sclick:308: OSL.T5CSview %OSL.TopChan2
on *:DIALOG:top5:sclick:309: OSL.T5CLview %OSL.TopChan2
on *:DIALOG:top5:sclick:310: {
OSL.T5S.msg 2 %OSL.TopChan2
OSL.T5L.msg 2 %OSL.TopChan2
}
on *:DIALOG:top5:sclick:408: OSL.T5CSview %OSL.TopChan3
on *:DIALOG:top5:sclick:409: OSL.T5CLview %OSL.TopChan3
on *:DIALOG:top5:sclick:410: {
OSL.T5S.msg 2 %OSL.TopChan3
OSL.T5L.msg 2 %OSL.TopChan3
}
on *:DIALOG:top5:sclick:508: OSL.T5CSview %OSL.TopChan4
on *:DIALOG:top5:sclick:509: OSL.T5CLview %OSL.TopChan4
on *:DIALOG:top5:sclick:510: {
OSL.T5S.msg 2 %OSL.TopChan4
OSL.T5L.msg 2 %OSL.TopChan4
}
on *:DIALOG:top5:sclick:608: OSL.T5CSview %OSL.TopChan5
on *:DIALOG:top5:sclick:609: OSL.T5CLview %OSL.TopChan5
on *:DIALOG:top5:sclick:610: {
OSL.T5S.msg 2 %OSL.TopChan5
OSL.T5L.msg 2 %OSL.TopChan5
}
on *:dialog:Top5:sclick:44: { run http://www.terrachat.cl }
👁️ 4 vistas • 📥 0 descargas