What are you doing right now?

[Rasui]

... Oh my...
Looking at if making my eye's water..
And i am going to be doing alot ready lol

[Midnight Madness]

I am roleplaying and browsing through every post on Memebase's "Picture is Unrelated" section. And listening to my music. Might pick up Ruby version in a second.

[anoni]

Been working on this all weekend. Oh god the headache this map is bringing me 

Ohhhhhh
What is thou making in SourceSDK? Does it look to me a Counter strike map?

[MrRazot]

I'm using my laptop to warm my feet

[blinxis]

Been working on this all weekend. Oh god the headache this map is bringing me 

Ohhhhhh
What is thou making in SourceSDK? Does it look to me a Counter strike map?

Thou art making gm_scream_II for gmod.

[Luggz]

On my bed relaxing after a tiring weekend

[Bayzan]

Helping my granddad with the computer

[Beatnory]

Helping my granddad with the computer

You granddadtry to work with computers, Nice!

[Rasui]

Role playing

[FurryJunky]

Play Modern Warfare 3 on X-Box 360
Currently snipeing on  Mission.... 13-0

[Bayzan]

Play Modern Warfare 3 on X-Box 360
Currently snipeing on  Mission.... 13-0

Camping or quick-scoping.

[FurryJunky]

Camping, Quick scopeing when they get too close.
You play?
And now im about to watch a movie with my parents.Be back on later!

[Bayzan]

Yes, I play... on the Wii ._.
ttyl

[Tails]

i am not doing that mutch and chatting to a friend on skype so i donno why i went but

[anoni]

Programming with my dad.
Don't like programming with my dad because after an hour we end up with this mess...

Code: [Select]

    Private Sub UpdateHighScoreFile(ByVal newscore As Long, ByVal newName As String)
        'Open File as Read/Write
        'Readline
        ' Read the information into a single string
        Dim objReader As New System.IO.StreamReader("./Highscore.txt")
        Dim fileString As String = objReader.ReadToEnd()
        objReader.Close()
        objReader.Dispose()
        'Dim line As String
        Dim LINES As String() = fileString.Split(New Char() {vbNewLine})
        'Dim NewLines As String()
        Dim HighScoreCount As Long
        Dim L2 As Long = 0
        Dim S2(0 To 9) As String

        Dim HighScoreName As String
        Dim txtHighScoreValue As String
        Dim lHighScoreValue As Long
        HighScoreCount = 1
        For HighScoreCount = 1 To 10
            HighScoreName = Mid(LINES(HighScoreCount), 1, 10)
            txtHighScoreValue = Mid(LINES(HighScoreCount), 11, 10)
            lHighScoreValue = CLng(txtHighScoreValue)
            If newscore >= lHighScoreValue Then
                S2(L2) = HighScoreName & CStr(newscore)
            Else
                S2(L2) = LINES(HighScoreCount)
                L2 += 1
            End If



        Next
     
     
        ' Convert the input string into an array
        Dim theArray As Char() = fileString.ToCharArray()
        'Dim theArray2 As String() = fileString.ToDictionary(Of Long, String)()
        'Dim Scores As new Dictionary(of long,String) From  fileString.ToDictionary(Of Long, String)




        ' Declare a resultString to hold the value
        Dim resultString As String = ""

        ' Increment each item in the string
        Dim curChar As Char
        For i As Integer = 0 To (theArray.Length - 1)
            curChar = theArray(i)
            If (Char.IsLetterOrDigit(curChar)) Then
                theArray(i) = Chr(Asc(curChar) + 1)
            End If
        Next

        ' Convert the modified array back to a string
        Dim newString As String = New String(theArray)
        newString = "Fred,1000" & vbCrLf & "nJack,2000"
        ' Write the array to somefile-out.txt
        Dim objWriter As New System.IO.StreamWriter("./Highscore.txt")
        objWriter.Write(newString)
        objWriter.Close()
        objWriter.Dispose()



    End Sub
I don't like messy code
Gonna clean it up now