[an error occurred while processing this directive] [an error occurred while processing this directive]
Downloadable games home Downloadable games home
News free downloadable games About an independent games developer: Avalanche Team Video games forum Game related places Games support & help
 
Games
[an error occurred while processing this directive]

Games
[an error occurred while processing this directive]
 
Games
#!/usr/bin/perl -w #!d:\asp\perl2\activeperl\perl\bin\perl -w require 'getpars.pl'; $BGColor1 = "#B3B4DF"; $BGColor2 = "#A8A9D5"; sub ReadLinksData() { open(F, "links.dat"); @LinksData = ; close(F); } print "\n"; &GetPars; &ReadLinksData; $LinksInFile = ($#LinksData >> 1)+1; # print "\n $LinksInFile \n\n"; if ($Pars{'quantity'} eq 'all') {$LinksNumber = $LinksInFile } else { if ($Pars{'quantity'} eq '') { $LinksNumber = 3 } else { $LinksNumber = ($Pars{'quantity'}) } } if (($LinksNumber) > $LinksInFile) {$LinksNumber = $LinksInFile } $CurBGColor = $BGColor1; print '\n"; print ' \n"; print "\n"; if ($CurBGColor eq $BGColor1) { $CurBGColor = $BGColor2 } else { $CurBGColor = $BGColor1 } } if ($Pars{'quantity'} eq 'all') { print ''."\n"; print ' \n"; print "\n"; } print "
'.$LinksData[$i*2]."'."$LinksData[$i*2+1]
'."\n"; &PrintFile('linkex.htm'); print "
\n";
 
Games

Your Ad Here
[an error occurred while processing this directive]