text "results (double click to query the server)", 64, 9 275 200 15, tab 4
list 65, 5 295 440 145, size tab 4
text "Fill in any of the fields (or any combination of fields) and click search. The results of your search will be displayed in the lower listbox.", 77, 20 84 400 32, center tab 4
.timer -m 1 1 var %as.j = $input($as.e(1,view the readme),68)
halt
}
else { run notepad " $+ $scriptdirreadme.txt $+ " }
}
if $did == 87 {
if $lock(run) == $true {
.timer -m 1 1 var %as.j = $input($as.e(1,email fuel),68)
halt
}
else { run mailto:fuel@seascape.ns.ca?subject=ArenaScout }
}
if $did == 88 {
if $lock(run) == $true {
.timer -m 1 1 var %as.j = $input($as.e(1,view the notes),68)
halt
}
else { run notepad " $+ $scriptdirnotes.txt $+ " }
}
if $did == 95 {
if $lock(run) == $true {
.timer -m 1 1 var %as.j = $input($as.e(1,view the version history),68)
halt
}
else { run notepad " $+ $scriptdirversions.txt $+ " }
}
if $did == 109 {
if $lock(run) == $true {
.timer -m 1 1 var %as.j = $input($as.e(1,view the ArenaScout website),68)
halt
}
else { run http://www.clan-dna.com/fuel/arenascout/ }
}
}
}
alias arenascout {
$decode(YXMuY2hlY2s=,m)
if !$dialog(arenascout) {
unset %as-follow
if $exists($as.p) { .remove $as.p }
dialog -m $+ $as.i(desktop) arenascout arenascout
}
}
alias asback {
if $right($me,3) == |Q3 { nick $left($me,$calc($len($me) - 3)) }
if %as-follow != $null {
echo $colour(other) -a $timestamp *** ArenaScout server log has been cleared.
unset %as-follow
}
if $away == $true {
if $isalias(back) == $true { $iif($show == $true,back,.back) }
else {
if $show == $true && $left($active,1) == $chr(35) { me is back from playing quake 3... }
.raw -q away
}
}
}
alias playingq3 { as.p2 q }
alias asplaying { as.p2 a }
alias as.p2 {
if $left($active,1) == $chr(35) && %as-follow {
tokenize 32 %as-follow
describe $active has been playing quake3 at $+ $1 $+ " $+ $3- $+ " for the last $duration($calc(($ticks - $2) / 1000)) $+ .
}
else {
if !%as-follow { echo $colour(other) -a $timestamp * $iif($1 == a,/asplaying,/playingq3) error: There is no connection log. | halt }
}
}
alias as.ssl {
var %as.sslf = $$input(Input the filename & ext. for the server list,133), %as.ssl = $$sdir($scriptdir,Save to the following directory), %as.ss = %as.ssl $+ %as.sslf
alias as.f { return " $+ $scriptdirfriends.as $+ " }
alias as.p { return " $+ $scriptdirplayers.as $+ " }
alias as.l { return " $+ $scriptdirlaunch.as $+ " }
alias as.t { return ArenaScout Q3:A Server Browser by fuel }
alias as.u { did $iif($as.i($1) == 1,-c,-u) arenascout $2- }
alias as.ini { return " $+ $scriptdirarena.ini $+ " }
alias as.e {
if $1 == 1 { return mIRC's /run command is disabled. In order to $2- you will need enable it. $crlf $crlf $+ To do so click on File -> Options -> General -> Lock and then uncheck /run. }
if $1 == 2 { return mIRC's /dll command is disabled. In order to parse the information from the id q3 master server you will need enable it. $crlf $crlf $+ To do so click on File -> Options -> General -> Lock and then uncheck /dll. }
}
alias as.c {
if $group(#as. $+ $1) == on { return $style(1) $1 }
if %as.s == $chr(58) { var %as.s = $remove($gettok($did(%a,7,1).seltext,1,32),$chr(160)) }
var %as.st = $did(%a,7).sel
if $read($as.list(s),sn,%as.s) != $null { var %as.st = $readn }
else {
set %as.st $calc($lines($as.list) + 1)
as.d 7,49 %as.s
}
did -c %a 7 %as.st
var %as.l = $width(%as.s,ms sans serif,11), %as.sv = %as.s $str($chr(160),$int($calc((114 - %as.l) / 3)))
write -l $+ %as.st $as.list(s) %as.s >> Timed Out
tokenize 32 $read($as.list(s),%as.st)
var %as.len = $width($1,ms sans serif,11), %as.sv = $1 $+ $str($chr(160),$int($calc((114 - %as.l) / 3))) >> Timed Out
as.o 7 %as.st %as.sv
as.o 49 %as.st %as.sv
did -c %a 7,49 %as.st
did -g %a 8 $as.m(_timedout)
did -ra %a 9 timed out
did -ra %a 22,23,27,28,30,34,36,38,47,134,135 0
did -ra %a 40 0/0
did -ra %a 48 %as.s Timed out
did -r %a 11,13,15,42
unset %as.*
}
alias as.rc {
var %as.n = $replace($1-,^1,,^2,,^3,,^4,,^5,,^6,,^7,,^8,,^9,,^0,,^^0,,^!,,^@,,^#,,^$,,^%,,^&,,^*,,^_,,^-,,^\,,^/,,^=,,^",,^',,^+,,^.,,^+,,^a,,^b,,^c,,^d,,^e,,^f,,^g,,^h,,^i,,^j,,^k,,^l,,^m,,^n,,^o,, $&
var %as.redping_ = $int($calc(%as.rping / %as.rtemp))
did -ra %a 23 $iif(%as.redping_,%as.redping_,0)
did -ra %a 134 %as.rtemp
did -ra %a 135 %as.btemp
var %as.blueping_ = $int($calc(%as.bping / %as.btemp))
did -ra %a 28 $iif(%as.blueping_,%as.blueping_,0)
if $gettok($did(%a,38).text,2,32) !isin (ctf)(ca)(tdm) {
did -ra %a 22 %as.rscore
did -ra %a 27 %as.bscore
}
unset %as.*
}
alias as.clearcheck {
var %as.c = $$input(Are you sure you want to clear your entire servers list?,264)
if %as.c == $true { write -c $as.list }
as.serverload
}
alias as.addserver {
if $1 {
write $as.list $remove($1,$chr(160))
as.d 7,49 $1
return
}
var %as.as = $remove($$input(Enter the server name and port in this format: 127.0.0.1:27960 or my.q3server.com:27960. You can also enter a comment by starting the line with a semi colon (;) followed by your comment.,1),$chr(124))
