[an error occurred while processing this directive] [an error occurred while processing this directive] Downloads
ServerInfo

Homepage
This nifty little program allows you to monitor a server or servers; auto-connect when a public slot is free, a player connects, etc; alert you when a player connects; and search WON like GameSpy. I like this program because it is much cleaner and uncluttered than all the other ones I've seen out there. :)
Refunct the Defunct

40Kb, #!/usr/bin/perl #----------------------- # ClickCount.cgi # Ver. 1.2.1 # 2000-11-12 # ---------------------- # Gustav Evertsson # www.guzzzt.com # me@guzzzt.com #----------------------- $dbfile = "./download.db"; &parse_query; if($ENV{'QUERY_STRING'} eq '') { print "Content-type: text/html\n\n"; #Print the top of the admin page print qq| ClickCount

ClickCount

|; # write all urls open(DATA, "$dbfile"); flock(DATA, 2); @db = ; @db = sort {$b <=> $a} @db; close(DATA); foreach (@db) { ($clicks, $url) = split /\|/; $totclicks = $totclicks+$clicks; print qq| |; } #totalt clicks print qq| |; #Write the bottom of the page print qq|
URL Clicks
$url $clicks
Total: $totclicks



Powered by GuzZzt ClickCount V. 1.2.1
Copyright 1999 Gustav Evertsson
From GuzZzt.com

|; } else{ if($query{'action'} eq 'jump') { open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $newclick = $click+1; $dummy .= "$newclick|$url|\n"; $find = 'true'; } else { $dummy .= "$click|$url|\n"; } } if($find ne 'true') { $dummy .= "1|$query{'URL'}|"; } open(DB, "+>$dbfile"); flock(DATA, 2); print DB $dummy; close(DB); print "Location: $query{'URL'} \n\n"; } else{ open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $viewclick = $click; } } if($viewclick eq '') { $viewclick = 0; } print "Content-type: text/html\n\n"; print "$viewclick"; } } sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/!/=/g; #change ! to = if double querystrings change all = to ! in the second url. $value =~ s/%/?/g; #change % to ? if double querystrings change all ? to % in the second url. $value =~ s//&/g; #change to & if double querystrings change all & to in the second url. $value =~ s/`/%/g; $query{$name} = $value; } } downloads
This will fix your function keys. (F1 and F2)
Simple-Script for Natural Selection

115Kb, #!/usr/bin/perl #----------------------- # ClickCount.cgi # Ver. 1.2.1 # 2000-11-12 # ---------------------- # Gustav Evertsson # www.guzzzt.com # me@guzzzt.com #----------------------- $dbfile = "./download.db"; &parse_query; if($ENV{'QUERY_STRING'} eq '') { print "Content-type: text/html\n\n"; #Print the top of the admin page print qq| ClickCount

ClickCount

|; # write all urls open(DATA, "$dbfile"); flock(DATA, 2); @db = ; @db = sort {$b <=> $a} @db; close(DATA); foreach (@db) { ($clicks, $url) = split /\|/; $totclicks = $totclicks+$clicks; print qq| |; } #totalt clicks print qq| |; #Write the bottom of the page print qq|
URL Clicks
$url $clicks
Total: $totclicks



Powered by GuzZzt ClickCount V. 1.2.1
Copyright 1999 Gustav Evertsson
From GuzZzt.com

|; } else{ if($query{'action'} eq 'jump') { open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $newclick = $click+1; $dummy .= "$newclick|$url|\n"; $find = 'true'; } else { $dummy .= "$click|$url|\n"; } } if($find ne 'true') { $dummy .= "1|$query{'URL'}|"; } open(DB, "+>$dbfile"); flock(DATA, 2); print DB $dummy; close(DB); print "Location: $query{'URL'} \n\n"; } else{ open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $viewclick = $click; } } if($viewclick eq '') { $viewclick = 0; } print "Content-type: text/html\n\n"; print "$viewclick"; } } sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/!/=/g; #change ! to = if double querystrings change all = to ! in the second url. $value =~ s/%/?/g; #change % to ? if double querystrings change all ? to % in the second url. $value =~ s//&/g; #change to & if double querystrings change all & to in the second url. $value =~ s/`/%/g; $query{$name} = $value; } } downloads
This is a script pack that will simplify your gaming experience. It contains one-touch radio commands for Marines and drop/build ones for the Commander. These will over-write your "F" keys, and spacebar will be crouch-jump. I really haven't found much use for scripts with the Alien side other than the crouch-jump that enables you to blink by jump-clicking, so there are none.
Half-Life IP Launcher

354Kb, #!/usr/bin/perl #----------------------- # ClickCount.cgi # Ver. 1.2.1 # 2000-11-12 # ---------------------- # Gustav Evertsson # www.guzzzt.com # me@guzzzt.com #----------------------- $dbfile = "./download.db"; &parse_query; if($ENV{'QUERY_STRING'} eq '') { print "Content-type: text/html\n\n"; #Print the top of the admin page print qq| ClickCount

ClickCount

|; # write all urls open(DATA, "$dbfile"); flock(DATA, 2); @db = ; @db = sort {$b <=> $a} @db; close(DATA); foreach (@db) { ($clicks, $url) = split /\|/; $totclicks = $totclicks+$clicks; print qq| |; } #totalt clicks print qq| |; #Write the bottom of the page print qq|
URL Clicks
$url $clicks
Total: $totclicks



Powered by GuzZzt ClickCount V. 1.2.1
Copyright 1999 Gustav Evertsson
From GuzZzt.com

|; } else{ if($query{'action'} eq 'jump') { open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $newclick = $click+1; $dummy .= "$newclick|$url|\n"; $find = 'true'; } else { $dummy .= "$click|$url|\n"; } } if($find ne 'true') { $dummy .= "1|$query{'URL'}|"; } open(DB, "+>$dbfile"); flock(DATA, 2); print DB $dummy; close(DB); print "Location: $query{'URL'} \n\n"; } else{ open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $viewclick = $click; } } if($viewclick eq '') { $viewclick = 0; } print "Content-type: text/html\n\n"; print "$viewclick"; } } sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/!/=/g; #change ! to = if double querystrings change all = to ! in the second url. $value =~ s/%/?/g; #change % to ? if double querystrings change all ? to % in the second url. $value =~ s//&/g; #change to & if double querystrings change all & to in the second url. $value =~ s/`/%/g; $query{$name} = $value; } } downloads
This neat little program allows you to connect to a server using its IP number. Just select the MOD and punch in the IP number. It works with passwords as well.
Pak Explorer

170Kb, #!/usr/bin/perl #----------------------- # ClickCount.cgi # Ver. 1.2.1 # 2000-11-12 # ---------------------- # Gustav Evertsson # www.guzzzt.com # me@guzzzt.com #----------------------- $dbfile = "./download.db"; &parse_query; if($ENV{'QUERY_STRING'} eq '') { print "Content-type: text/html\n\n"; #Print the top of the admin page print qq| ClickCount

ClickCount

|; # write all urls open(DATA, "$dbfile"); flock(DATA, 2); @db = ; @db = sort {$b <=> $a} @db; close(DATA); foreach (@db) { ($clicks, $url) = split /\|/; $totclicks = $totclicks+$clicks; print qq| |; } #totalt clicks print qq| |; #Write the bottom of the page print qq|
URL Clicks
$url $clicks
Total: $totclicks



Powered by GuzZzt ClickCount V. 1.2.1
Copyright 1999 Gustav Evertsson
From GuzZzt.com

|; } else{ if($query{'action'} eq 'jump') { open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $newclick = $click+1; $dummy .= "$newclick|$url|\n"; $find = 'true'; } else { $dummy .= "$click|$url|\n"; } } if($find ne 'true') { $dummy .= "1|$query{'URL'}|"; } open(DB, "+>$dbfile"); flock(DATA, 2); print DB $dummy; close(DB); print "Location: $query{'URL'} \n\n"; } else{ open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $viewclick = $click; } } if($viewclick eq '') { $viewclick = 0; } print "Content-type: text/html\n\n"; print "$viewclick"; } } sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/!/=/g; #change ! to = if double querystrings change all = to ! in the second url. $value =~ s/%/?/g; #change % to ? if double querystrings change all ? to % in the second url. $value =~ s//&/g; #change to & if double querystrings change all & to in the second url. $value =~ s/`/%/g; $query{$name} = $value; } } downloads
Explore your Halflife .pak files with this neat little program. Pak filfes contain sounds, models, sprites and stuff. They are in your half-life/valve folder. (pak0.pak, pak1.pak)
UO Trace

39Kb, #!/usr/bin/perl #----------------------- # ClickCount.cgi # Ver. 1.2.1 # 2000-11-12 # ---------------------- # Gustav Evertsson # www.guzzzt.com # me@guzzzt.com #----------------------- $dbfile = "./download.db"; &parse_query; if($ENV{'QUERY_STRING'} eq '') { print "Content-type: text/html\n\n"; #Print the top of the admin page print qq| ClickCount

ClickCount

|; # write all urls open(DATA, "$dbfile"); flock(DATA, 2); @db = ; @db = sort {$b <=> $a} @db; close(DATA); foreach (@db) { ($clicks, $url) = split /\|/; $totclicks = $totclicks+$clicks; print qq| |; } #totalt clicks print qq| |; #Write the bottom of the page print qq|
URL Clicks
$url $clicks
Total: $totclicks



Powered by GuzZzt ClickCount V. 1.2.1
Copyright 1999 Gustav Evertsson
From GuzZzt.com

|; } else{ if($query{'action'} eq 'jump') { open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $newclick = $click+1; $dummy .= "$newclick|$url|\n"; $find = 'true'; } else { $dummy .= "$click|$url|\n"; } } if($find ne 'true') { $dummy .= "1|$query{'URL'}|"; } open(DB, "+>$dbfile"); flock(DATA, 2); print DB $dummy; close(DB); print "Location: $query{'URL'} \n\n"; } else{ open(DATA, "$dbfile"); flock(DATA, 2); @db = ; close(DATA); foreach (@db) { ($click, $url) = split /\|/; if($url eq $query{'URL'}){ $viewclick = $click; } } if($viewclick eq '') { $viewclick = 0; } print "Content-type: text/html\n\n"; print "$viewclick"; } } sub parse_query { @pairs = split(/&/, $ENV{'QUERY_STRING'}); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ s/!/=/g; #change ! to = if double querystrings change all = to ! in the second url. $value =~ s/%/?/g; #change % to ? if double querystrings change all ? to % in the second url. $value =~ s//&/g; #change to & if double querystrings change all & to in the second url. $value =~ s/`/%/g; $query{$name} = $value; } } downloads
A nice traceroute utility originally used for Ultima Online servers, but can be used for anything...like NS servers. :)