Records - Blackmagic: Embrace the Dark Side

blueorbb network: blueorbb.com | aliens.neurox | answerbook.com

Blackmagic - Records

Translate: Français | Deutsch | Español | Italiano | Japanese | Chinese

RECORDS

Random IRC Quote: <ChanServ> The Railslut is here!

Webdog Tracker

228609

HOME

NEWS

RESTRICTED AREA

SURVIVOR ISLAND

UO GALLERIES
Renaissance
The Next Chapter
Player Killing

DIVISIONS
Team Baswak -B-: TF2
[BM]: QW TeamFortress
[GM/^P^]: Ultima Online
[T5C]: Ultima Online

MusicBar™ Show | Hide

HOSTED SITES
Baka's Anime Paradise
AnswerBook

Name	Date	Type	Outcome	Map	Score/Caps	SShot
Gen Generals of War	5/24/2001	STA	defeat	de_dust2	4-30	r1, r2
[K2] Klan Kaos	5/17/2001	STA	defeat	de_prodigy	2-32	n/a, r2
-=[rS]=-	5/10/2001	STA	Victory (forfeit)	de_rotterdam	0-0	n/a, n/a
[USP]	4/12/2001	STA	Victory (forfeit)	de_inferno	0-0	n/a, n/a

Match Record: 2-2-0
Win Streak: 0 games

Blackmagic Survivor Island
Official Counter-Strike Site
Blue's News
Origin: Ultima Online
UO Stratics
Quake3 Arena Official Site
Planet Half-Life
id Software
Valve Software
GameCast

Comments? Questions? Broken links? Site problems?
Contact the webmaster.

Back to Top of Page

Copyright © 1998-2010 BlueOrbb Networks. All rights reserved. Terms of use and privacy policy of this site.

Function IsEmail(sCheckEmail) Dim sEmail, nAtLoc IsEmail = True sEmail = Trim(sCheckEmail) nAtLoc = InStr(1, sEmail, "@") If Not (nAtLoc > 1 And (InStrRev(sEmail, ".") > nAtLoc + 1)) Then IsEmail = False ElseIf InStr(nAtLoc + 1, sEmail, "@") > nAtLoc Then IsEmail = False ElseIf Mid(sEmail, nAtLoc + 1, 1) = "." Then IsEmail = False ElseIf InStr(1, Right(sEmail, 2), ".") > 0 Then IsEmail = False End If End Function Rem usage IsEmail("name@domain.com") returns true (valid address) Rem IsEmail("Name@domain.") Returns false Function rot13(rot13text) rot13text_rotated = "" For i = 1 to Len(rot13text) j = Mid(rot13text, i, 1) k = Asc(j) if k >= 97 and k =< 109 then k = k + 13 elseif k >= 110 and k =< 122 then k = k - 13 elseif k >= 65 and k =< 77 then k = k + 13 elseif k >= 78 and k =< 90 then k = k - 13 end if rot13text_rotated = rot13text_rotated & Chr(k) Next rot13 = rot13text_rotated End Function ' here is a little sample Response.Write rot13("Hello World") Function StripHTMLTag(ByVal sText) StripHTMLTag = "" fFound = False Do While InStr(sText, "<") fFound = True StripHTMLTag = StripHTMLTag & " " & Left(sText, InStr(sText, "<")-1) sText = MID(sText, InStr(sText, ">") + 1) Loop StripHTMLTag = StripHTMLTag & sText If Not fFound Then StripHTMLTag = sText End Function