mIRC Link Looker — File Browser
mIRCLinkLookerv1.1 / mIRCLinkLookerv1.1 / LINKLOOK.MRC
LINKLOOK.MRC — 23.5 KB — Download this file
; +----------------------------------------------+
; - mIRC Link Looker v1.1 -
; - By Dude <matt@snip.net> -
; +----------------------------------------------+
;
; mIRC Link Looker Popups
;
menu menubar {
Link Looker
.About:echo 5 -a _--'+(8,1m10IRC 8L10ink 8L10ooker 8v101.1 8B10y 8D10ude <8matt4@8snip.net10>)+'--_
.Search: {
if ($server == $null) { echo 4 -a ERROR: Must be logged onto an IRC Server inorder to excute this command! | halt }
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
window -c @SearchResults
window -l @SearchResults @SearchResults
aline 5 @SearchResults mIRC Link Looker Auto Popup Window (Split Server Search)
aline 5 @SearchResults Search Performed on $adate at $linklook.rtime
aline 5 @SearchResults Using $+ %linklook.slist $+ Server List in $linklook.slogfile(dir)
aline 2 @SearchResults -
if ($exists($linklook.slogfile(dir)) == $false) { aline 4 @SearchResults ERROR: Server log/list file must be created first before proceeding! | halt }
if (%linklook.slist == $null) { aline 4 @SearchResults ERROR: Server log/list file must be created first before proceeding! | halt }
set %linklook.tmp $readini $linklook.slogfile(dir) %linklook.slist Created
if (%linklook.tmp == $null) { aline 4 @SearchResults ERROR: Server List $+ %linklook.slist $+ does not exist in $linklook.slogfile(dir) | halt }
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
.remote on
set %linklook.searching on
links
}
.Server Log
..File Name: {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
set %linklook.tmp2 $?="Enter File Name"
set %linklook.tmp $mircdir $+ %linklook.tmp2
if (%linklook.tmp2 == $null) { halt }
if (%linklook.tmp2 == linklook.cfg || %linklook.tmp2 == servtmp.txt || %linklook.tmp2 == servtmp2.txt) { echo 4 -a ERROR: Can not use linklook.cfg, servtmp.txt, and/or servtmp2.txt as a Server Log Filename | halt }
if ($exists(%linklook.tmp) == $true) && ($linklook.servlog(%linklook.tmp) != $true) { echo 4 -a ERROR: The file you have specified already exists and is not a valid Server Log File. Unable to change File Names. | halt }
if (%linklook.tmp2 == $linklook.slogfile) { echo 4 -a ERROR: The Server Log File you have specified is already loaded | halt }
set %linklook.slogfile %linklook.tmp2
echo 6 -a Changed Server Log File To: %linklook.tmp
}
..Status: {
window -c @LinkLookerStatus
window -l @LinkLookerStatus
aline 5 @LinkLookerStatus mIRC Link Looker Auto Popup Window (Status Report)
aline 2 @LinkLookerStatus -
aline 6 @LinkLookerStatus Loaded Server Log: 12 $+ $linklook.slogfile(dir)
aline 6 @LinkLookerStatus Loaded Server List: 12 $+ %linklook.slist
aline 6 @LinkLookerStatus Config File: 12 $+ $mircdir $+ linklook.cfg
aline 6 @LinkLookerStatus Temp File 1: 12 $+ $mircdir $+ servtmp.txt
aline 6 @LinkLookerStatus Temp File 2: 12 $+ $mircdir $+ servtmp2.txt
aline 2 @LinkLookerStatus -
if ($server != $null) { aline 5 @LinkLookerStatus You are currently logged onto $server on port $port }
aline 5 @LinkLookerStatus You are running mIRC Link Looker v1.1 by Dude
}
..Server List
...View {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
window -c @SearchResults
window -c @ServerLists
if ($readini $mircdir $+ linklook.cfg $linklook.slogfile List1 == $null) { echo 4 -a ERROR: Their are no created Server Lists in $linklook.slogfile(dir) | halt }
window -xl @ServerLists
set %linklook.h 0
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
:begin
inc %linklook.h 1
set %linklook.tmp $readini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ]
if (%linklook.tmp == $null) { goto end }
aline 6 @ServerLists %linklook.tmp 2-=- 5 $+ $readini $linklook.slogfile(dir) %linklook.tmp Created
write $mircdir $+ servtmp.txt %linklook.tmp
goto begin
:end
set %linklook.tmp2 $?="Enter Server List Name (eg: NewNet)"
if (%linklook.tmp2 == $null) { window -c @ServerLists | halt }
if ($read -s $+ %linklook.tmp2 $mircdir $+ servtmp.txt == $null) { window -c @ServerLists | echo 4 -a ERROR: Invalid Server List Name | halt }
window -c @ServerLists
window -l @SearchResults @SearchResults
aline 5 @SearchResults mIRC Link Looker Auto Popup Window (Listing Servers)
aline 5 @SearchResults Search Performed on $adate at $linklook.rtime
aline 5 @SearchResults Using $+ %linklook.tmp2 $+ Server List in $linklook.slogfile(dir)
aline 2 @SearchResults -
set %linklook.i 0
set %linklook.n 0
:begin2
inc %linklook.i 1
if ($readini $linklook.slogfile(dir) %linklook.tmp2 Server [ $+ [ %linklook.i ] ] == $null) { aline 6 @SearchResults Found %linklook.n Server(s) | aline 6 @SearchResults Operation Complete | halt }
inc %linklook.n 1
aline 12 @SearchResults Server - $readini $linklook.slogfile(dir) %linklook.tmp2 Server [ $+ [ %linklook.i ] ]
goto begin2
}
...Load {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
window -c @ServerLists
if ($readini $mircdir $+ linklook.cfg $linklook.slogfile List1 == $null) { echo 4 -a ERROR: Their are no created Server Lists in $linklook.slogfile(dir) | halt }
window -xl @ServerLists
set %linklook.h 0
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
:begin
inc %linklook.h 1
set %linklook.tmp $readini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ]
if (%linklook.tmp == $null) { goto end }
aline 6 @ServerLists %linklook.tmp 2-=- 5 $+ $readini $linklook.slogfile(dir) %linklook.tmp Created
write $mircdir $+ servtmp.txt %linklook.tmp
goto begin
:end
set %linklook.tmp2 $?="Enter Server List Name (eg: NewNet)"
if (%linklook.tmp2 == $null) { window -c @ServerLists | halt }
if ($read -s $+ %linklook.tmp2 $mircdir $+ servtmp.txt == $null) { window -c @ServerLists | echo 4 -a ERROR: Invalid Server List Name | halt }
if (%linklook.tmp2 == %linklook.slist) { window -c @ServerLists | echo 4 -a ERROR: The Server List you have specified is already loaded | halt }
set %linklook.slist %linklook.tmp2
window -c @ServerLists
echo 6 -a Loaded $+ %linklook.slist $+ Server List in $linklook.slogfile(dir)
}
...Create: {
if ($server == $null) { echo 4 -a ERROR: Must be logged onto an IRC Server inorder to excute this command! | halt }
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
set %linklook.tmp $?="Enter Name of IRC Network (eg: NewNet):"
if (%linklook.tmp == $null) { halt }
set %linklook.slist %linklook.tmp
window -c @SearchResults
window -l @SearchResults @SearchResults
aline 5 @SearchResults mIRC Link Looker Auto Popup Window (Creating New Server Listing)
aline 5 @SearchResults Search Performed on $adate at $linklook.rtime
set %linklook.h 0
:begin
inc %linklook.h 1
set %linklook.tmp2 $readini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ]
if (%linklook.tmp2 == $null) { goto proceed }
goto begin
:proceed
if ($exists($linklook.slogfile(dir)) == $false) { write $linklook.slogfile(dir) mIRC Link Looker Server Log }
set %linklook.tmp3 $readini $linklook.slogfile(dir) %linklook.slist Created
if (%linklook.tmp3 != $null) {
remini $linklook.slogfile(dir) %linklook.slist
writeini $linklook.slogfile(dir) %linklook.slist Created Created on $adate at $linklook.rtime
aline 5 @SearchResults Overwriting Existing $+ %linklook.slist $+ Server List in $linklook.slogfile(dir)
}
else {
writeini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ] %linklook.slist
writeini $linklook.slogfile(dir) %linklook.slist Created Created on $adate at $linklook.rtime
aline 5 @SearchResults Creating $+ %linklook.slist $+ Server List in $linklook.slogfile(dir)
}
aline 2 @SearchResults -
.remote on
set %linklook.n 0
set %linklook.createlist on
links
}
...Update: {
if ($server == $null) { echo 4 -a ERROR: Must be logged onto an IRC Server inorder to excute this command! | halt }
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
window -c @SearchResults
window -l @SearchResults @SearchResults
aline 5 @SearchResults mIRC Link Looker Auto Popup Window (Server List Update)
aline 5 @SearchResults Search Performed on $adate at $linklook.rtime
aline 5 @SearchResults Updating $+ %linklook.slist $+ Server List in $linklook.slogfile(dir)
aline 2 @SearchResults -
if ($exists($linklook.slogfile(dir)) == $false) { aline 4 @SearchResults ERROR: Server log/list file must be created first before proceeding! | halt }
if (%linklook.slist == $null) { aline 4 @SearchResults ERROR: Server log/list file must be created first before proceeding! | halt }
set %linklook.tmp $readini $linklook.slogfile(dir) %linklook.slist Created
if (%linklook.tmp == $null) { aline 4 @SearchResults ERROR: Server List $+ %linklook.slist $+ does not exist in $linklook.slogfile(dir) | halt }
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
if ($exists($mircdirservtmp2.txt) != $false) { .remove $mircdir $+ servtmp2.txt }
.remote on
set %linklook.update on
links
}
...Delete: {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
window -c @ServerLists
if ($readini $mircdir $+ linklook.cfg $linklook.slogfile List1 == $null) { echo 4 -a ERROR: Their are no created Server Lists in $linklook.slogfile(dir) | halt }
window -xl @ServerLists
set %linklook.h 0
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
:begin
inc %linklook.h 1
set %linklook.tmp $readini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ]
if (%linklook.tmp == $null) { goto end }
aline 6 @ServerLists %linklook.tmp 2-=- 5 $+ $readini $linklook.slogfile(dir) %linklook.tmp Created
write $mircdir $+ servtmp.txt %linklook.tmp
goto begin
:end
set %linklook.tmp2 $?="Enter Server List Name (eg: NewNet)"
if (%linklook.tmp2 == $null) { window -c @ServerLists | halt }
if ($read -s $+ %linklook.tmp2 $mircdir $+ servtmp.txt == $null) { window -c @ServerLists | echo 4 -a ERROR: Invalid Server List Name | halt }
remini $linklook.slogfile(dir) %linklook.tmp2
remini $mircdir $+ linklook.cfg $linklook.slogfile
write -ds $+ %linklook.tmp2 $mircdir $+ servtmp.txt
set %linklook.h 0
:begin2
if (%linklook.h >= $lines($mircdirservtmp.txt)) { window -c @ServerLists | echo 6 -a Deleted $+ %linklook.tmp2 $+ Server List from $linklook.slogfile(dir) | halt }
inc %linklook.h 1
set %linklook.tmp3 $read -l $+ %linklook.h $mircdir $+ servtmp.txt
writeini $mircdir $+ linklook.cfg $linklook.slogfile List [ $+ [ %linklook.h ] ] %linklook.tmp3
goto begin2
}
}
menu @SearchResults {
Connect: {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
set %linklook.tmp Split Server Detected -
set %linklook.tmp2 Added Server -
set %linklook.tmp3 Added New Server -
set %linklook.tmp4 Server -
if (%linklook.tmp isin $sline(@SearchResults,1)) {
set %linklook.port $?="Enter In Server Port (eg: 7000)"
if (%linklook.port == $null) { halt }
server $mid($sline(@SearchResults,1),24,9999) %linklook.port
echo 6 -s CONNECTING: $mid($sline(@SearchResults,1),24,9999) on port %linklook.port
}
elseif (%linklook.tmp2 isin $sline(@SearchResults,1)) {
set %linklook.port $?="Enter In Server Port (eg: 7000)"
if (%linklook.port == $null) { halt }
server $mid($sline(@SearchResults,1),15,9999) %linklook.port
echo 6 -s CONNECTING: $mid($sline(@SearchResults,1),15,9999) on port %linklook.port
}
elseif (%linklook.tmp3 isin $sline(@SearchResults,1)) {
set %linklook.port $?="Enter In Server Port (eg: 7000)"
if (%linklook.port == $null) { halt }
server $mid($sline(@SearchResults,1),19,9999) %linklook.port
echo 6 -s CONNECTING: $mid($sline(@SearchResults,1),19,9999) on port %linklook.port
}
elseif (%linklook.tmp4 isin $sline(@SearchResults,1)) {
set %linklook.port $?="Enter In Server Port (eg: 7000)"
if (%linklook.port == $null) { halt }
server $mid($sline(@SearchResults,1),9,9999) %linklook.port
echo 6 -s CONNECTING: $mid($sline(@SearchResults,1),9,9999) on port %linklook.port
}
else { beep 1 }
}
Rename: {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
set %linklook.tmp Split Server Detected
set %linklook.tmp2 Added Server -
set %linklook.tmp3 Added New Server -
set %linklook.tmp4 Server -
if (%linklook.tmp isin $sline(@SearchResults,1)) {
set %linklook.newname $?="Enter New Name (eg: us.undernet.org)"
if (%linklook.newname == $null) { halt }
linklook.ren $mid($sline(@SearchResults,1),24,9999) %linklook.newname
}
elseif (%linklook.tmp2 isin $sline(@SearchResults,1)) {
set %linklook.newname $?="Enter New Name (eg: us.undernet.org)"
if (%linklook.newname == $null) { halt }
linklook.ren $mid($sline(@SearchResults,1),15,9999) %linklook.newname
}
elseif (%linklook.tmp3 isin $sline(@SearchResults,1)) {
set %linklook.newname $?="Enter New Name (eg: us.undernet.org)"
if (%linklook.newname == $null) { halt }
linklook.ren $mid($sline(@SearchResults,1),19,9999) %linklook.newname
}
elseif (%linklook.tmp4 isin $sline(@SearchResults,1)) {
set %linklook.newname $?="Enter New Name (eg: us.undernet.org)"
if (%linklook.newname == $null) { halt }
linklook.ren $mid($sline(@SearchResults,1),9,9999) %linklook.newname
}
else { beep 1 }
}
Delete: {
if (%linklook.searching == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.createlist == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
if (%linklook.update == on) { echo 4 -a ERROR: Unable to respond to request. Still busy with previous request | halt }
set %linklook.tmp Split Server Detected
set %linklook.tmp2 Added Server -
set %linklook.tmp3 Added New Server -
set %linklook.tmp4 Server -
if (%linklook.tmp isin $sline(@SearchResults,1)) {
linklook.del $mid($sline(@SearchResults,1),24,9999)
}
elseif (%linklook.tmp2 isin $sline(@SearchResults,1)) {
linklook.del $mid($sline(@SearchResults,1),15,9999)
}
elseif (%linklook.tmp3 isin $sline(@SearchResults,1)) {
linklook.del $mid($sline(@SearchResults,1),19,9999)
}
elseif (%linklook.tmp4 isin $sline(@SearchResults,1)) {
linklook.del $mid($sline(@SearchResults,1),9,9999)
}
else { beep 1 }
}
}
;
; mIRC Link Looker RAW Procedures
;
raw 364:*: {
if (%linklook.createlist == on) { inc %linklook.n 1 | aline 12 @SearchResults Added Server - $2 | writeini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.n ] ] $2 }
elseif (%linklook.update == on) { write $mircdir $+ servtmp.txt $2 }
elseif (%linklook.searching == on) { write $mircdir $+ servtmp.txt $2 }
}
raw 365:*: {
if (%linklook.createlist == on) {
aline 6 @SearchResults Added %linklook.n Server(s)
aline 6 @SearchResults Operation Complete
set %linklook.createlist off
halt
}
elseif (%linklook.update == on) {
set %linklook.update off
linklook.update
halt
}
elseif (%linklook.searching == on) {
set %linklook.searching off
linklook.splitsearch
halt
}
}
;
; mIRC Link Looker Aliases
;
alias linklook.splitsearch {
set %linklook.i 0
set %linklook.splits 0
:begin
inc %linklook.i 1
if ($readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.i ] ] == $null) { aline 6 @SearchResults Detected %linklook.splits Possible Split Server(s) | aline 6 @SearchResults Operation Complete | halt }
set %linklook.stmp $readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.i ] ]
set %linklook.stmp2 $read -s $+ %linklook.stmp $mircdir $+ servtmp.txt
if (%linklook.stmp2 == $null) { inc %linklook.splits 1 | aline 12 @SearchResults Split Server Detected - %linklook.stmp }
goto begin
}
alias linklook.update {
set %linklook.i 0
set %linklook.n 0
:begin
inc %linklook.i 1
if ($readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.i ] ] == $null) { set %linklook.a 0 | goto begin2 }
write $mircdir $+ servtmp2.txt $readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.i ] ]
goto begin
:begin2
if (%linklook.a >= $lines($mircdirservtmp.txt)) { aline 6 @SearchResults Added %linklook.n Server(s) | aline 6 @SearchResults Operation Complete | halt }
inc %linklook.a 1
set %linklook.stmp $read -l $+ %linklook.a $mircdir $+ servtmp.txt
set %linklook.stmp2 $read -s $+ %linklook.stmp $mircdir $+ servtmp2.txt
if (%linklook.stmp2 == $null) { inc %linklook.n 1 | writeini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.i ] ] %linklook.stmp | inc %linklook.i 1 | aline 12 @SearchResults Added New Server - %linklook.stmp }
goto begin2
}
alias linklook.ren {
set %linklook.h 0
:begin
inc %linklook.h 1
if ($readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.h ] ] == $null) { echo 4 -a ERROR: $1 does not exist in $+ %linklook.slist $+ Server List. | halt }
if ($readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.h ] ] == $1) { goto proceed }
goto begin
:proceed
writeini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.h ] ] $2
echo 6 -a Renamed $1 to $2 in $+ %linklook.slist $+ Server List
}
alias linklook.del {
set %linklook.h 0
if ($exists($mircdirservtmp.txt) != $false) { .remove $mircdir $+ servtmp.txt }
if ($exists($mircdirservtmp2.txt) != $false) { .remove $mircdir $+ servtmp2.txt }
write $mircdir $+ servtmp2.txt $readini $linklook.slogfile(dir) %linklook.slist Created
:begin
inc %linklook.h 1
set %linklook.tmp $readini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.h ] ]
if (%linklook.tmp == $null) { goto proceed }
write $mircdir $+ servtmp.txt %linklook.tmp
goto begin
:proceed
set %linklook.tmp2 $read -s $+ $1 $mircdir $+ servtmp.txt
if (%linklook.tmp2 != $null) { write -ds $+ $1 $mircdir $+ servtmp.txt }
else { echo 4 -a ERROR: $1 does not exist in $+ %linklook.slist $+ Server List. | halt }
remini $linklook.slogfile(dir) %linklook.slist
set %linklook.h 0
writeini $linklook.slogfile(dir) %linklook.slist Created $read -l1 $mircdir $+ servtmp2.txt
:begin2
if (%linklook.h >= $lines($mircdirservtmp.txt)) { echo 6 -a Removed $1 from $+ %linklook.slist $+ Server List | halt }
inc %linklook.h 1
set %linklook.tmp3 $read -l $+ %linklook.h $mircdir $+ servtmp.txt
writeini $linklook.slogfile(dir) %linklook.slist Server [ $+ [ %linklook.h ] ] %linklook.tmp3
goto begin2
}
;
; mIRC Link Looker Custom Identifiers
;
alias linklook.rtime {
set %linklook.realtime $time
set %linklook.hour $token(1,58,%linklook.realtime)
set %linklook.type am
if (%linklook.hour = 0) set %linklook.hour 12
if (%linklook.hour > 12) { set %linklook.hour %linklook.hour - 12 | set %linklook.type pm }
if (%linklook.hour = 12) set %linklook.type pm
set %linklook.min $token(2,58,%linklook.realtime)
set %linklook.realtime %linklook.hour $+ : $+ %linklook.min %linklook.type
unset %linklook.hour | unset %linklook.min | unset %linklook.type | return %linklook.realtime
}
alias linklook.servlog {
set %linklook.tmp3 $read -l1 $1
set %linklook.tmp4 mIRC Link Looker Server Log
if (%linklook.tmp3 != %linklook.tmp4) { return $false }
else { return $true }
}
alias linklook.slogfile {
if ($1 == dir) {
if (%linklook.slogfile == $null) { return $mircdir $+ servlist.ini }
else { return $mircdir $+ %linklook.slogfile }
}
else {
if (%linklook.slogfile == $null) { return servlist.ini }
else { return %linklook.slogfile }
}
}
;
; mIRC Link Looker Version Reply and ON CONNECT Procedures
;
on 1:connect:set %linklook.createlist off | set %linklook.update off | set %linklook.searching off
ctcp 1:version:raw -q NOTICE $nick :ADDON Running mIRC Link Looker v1.1 By Dude