mapmd1234's Profile User Rating: -----

Reputation: 6 Worker
Group:
Active Members
Active Posts:
155 (0.08 per day)
Joined:
04-December 09
Profile Views:
4,310
Last Active:
User is offline Apr 29 2015 02:49 PM
Currently:
Offline

Previous Fields

Country:
US
OS Preference:
Linux
Favorite Browser:
FireFox
Favorite Processor:
Intel
Favorite Gaming Platform:
PC
Your Car:
Ford
Dream Kudos:
0

Latest Visitors

Icon   mapmd1234 Caffeine gives you more energy and brain power, it causes your blood to pump faster, sending more oxygen to everything. *tip*

Posts I've Made

  1. In Topic: *.SpecialDirectories.CurrentUserApplicationData operating unexpectedly

    Posted 28 Apr 2015

    I don't follow on your reply of "its called roaming for a reason", what exactly do you mean by that, as I don't quite follow.
  2. In Topic: Dream.In.Code Family Photo Album

    Posted 24 Apr 2015

    apparently I'm going to resurrect a dead thread, yet again, but eeh, why not? someone might be interested in the me that is off of this site and the internet in general.

    Me in my "cosplay" from ohayocon 2015 I do believe? regardless, this is me when I'm at my anime conventions, having a fun as hell time.
    bear in mind, I'm 23, nearly 24.....just freaking tiny for my age...both in stature and in body weight. need to get taller and a bit bigger.

    Attached File  10153163_726486200724603_265807260_n.jpg (70.82K)
    Number of downloads: 0
  3. In Topic: environment.specialfolder.applicationdata not working properly

    Posted 23 Apr 2015

    thank you both for such awesome and insightful feedback on how to improve this...thank you VERY much. I will work on implementing those two suggestions tomorrow after work!
  4. In Topic: environment.specialfolder.applicationdata not working properly

    Posted 23 Apr 2015

    sorry, old habits of trying to keep my code secritive enough so as to not allow anyone to steal it, will die hard.

    code in question for all of the saving systems

    file ops module:
        Public Sub characterSave()
            '  If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname) Then
            '   Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname)
    
            Using sr As New StreamWriter(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & ".txt")
                sr.WriteLine("Password")
                sr.WriteLine(CI.password)
                sr.WriteLine("Character Name")
                sr.WriteLine(CI.charactername)
                sr.WriteLine("Species Name")
                sr.WriteLine(CI.speciesname)
                sr.WriteLine("Current Health")
                sr.WriteLine(CI.health)
                sr.WriteLine("Max Health")
                sr.WriteLine(CI.MaxHealth)
                sr.WriteLine("Cash on hand")
                sr.WriteLine(CI.money)
                sr.WriteLine("Exp needed to level up")
                sr.WriteLine(CI.expneed)
                sr.WriteLine("Current exp compaired to your level")
                sr.WriteLine(CI.exphave)
                sr.WriteLine("Exp left over from last leveling")
                sr.WriteLine(CI.expleftover)
                sr.WriteLine("Your level")
                sr.WriteLine(CI.level)
                sr.WriteLine("Your spendable skill-points")
                sr.WriteLine(CI.skillpoints)
                sr.WriteLine("Are you leveled?")
                sr.WriteLine(CI.isleveled)
                sr.WriteLine("Your total combined character exp")
                sr.WriteLine(CI.totalexp)
                sr.WriteLine("Your strength")
                sr.WriteLine(CI.strength)
                sr.WriteLine("Your endurance")
                sr.WriteLine(CI.endurance)
                sr.WriteLine("Your intelect")
                sr.WriteLine(CI.intelect)
                sr.WriteLine("Your dexterity")
                sr.WriteLine(CI.dexterity)
                sr.WriteLine("Your agility")
                sr.WriteLine(CI.agility)
                sr.WriteLine("Your minimum damage output")
                sr.WriteLine(CI.mindamage)
                sr.WriteLine("Your 'maximum' damage output")
                sr.WriteLine(CI.maxdamage)
                sr.WriteLine("Your speed")
                sr.WriteLine(CI.speed)
                sr.WriteLine("Your blocking ability")
                sr.WriteLine(CI.parry)
                sr.WriteLine("The number of times you can attack in a given turn")
                sr.WriteLine(CI.turnspeed)
                sr.WriteLine("Your spendable skill-points")
                sr.WriteLine(CI.spentskillpoints)
                sr.WriteLine("The number of times that you have died")
                sr.WriteLine(CI.deathcount)
                sr.WriteLine("The game time in minutes")
                sr.WriteLine(CI.gameminutes)
                sr.WriteLine("The game time in hours")
                sr.WriteLine(CI.gamehours)
                sr.WriteLine("The game time in days")
                sr.WriteLine(CI.gamedays)
                sr.WriteLine("The game time in weeks")
                sr.WriteLine(CI.gameweeks)
                sr.WriteLine("The game time in years")
                sr.WriteLine(CI.gameyears)
                sr.WriteLine("The game time in total days played")
                sr.WriteLine(CI.totalgamedays)
                sr.WriteLine("The game time in months")
                sr.WriteLine(CI.gamemonth)
                sr.WriteLine("Your health string")
                sr.WriteLine(CI.healthstring)
                sr.WriteLine("Your character description")
                sr.WriteLine(CI.racedescription)
    
            End Using
            '  Game_window.PCTRbackground.Image = My.Settings.background
    
            ' Else
            '  MsgBox("there has been an error creating the save file/directory")
            ' End If
        End Sub
    
        Public Sub skillsSave()
            ' If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname) Then
            'Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname)
    
            Using sr As New StreamWriter(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "'s skills.txt")
                sr.WriteLine("Cooking experience you have")
                sr.WriteLine(hob.cookingexphave)
                sr.WriteLine("Needed cooking experience to level up")
                sr.WriteLine(hob.cookingexpneed)
                sr.WriteLine("Left over cooking experience from leveling")
                sr.WriteLine(hob.cookingexpleftover)
                sr.WriteLine("Cooking level")
                sr.WriteLine(hob.cookinglevel)
                sr.WriteLine("Health bonus given to cooked food for your cooking skills")
                sr.WriteLine(hob.cookingbonus)
            End Using
    
            ' Else
            '  MsgBox("there has been an error creating the save file/directory")
            '  End If
        End Sub
        Public Sub skillsload()
            '  If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname) Then
            '   Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname)
    
            Using sr As New StreamReader(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "'s skills.txt")
                CI.nulldata = (sr.ReadLine)
                hob.cookingexphave = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                hob.cookingexpneed = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                hob.cookingexpleftover = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                hob.cookinglevel = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                hob.cookingbonus = (sr.ReadLine)
            End Using
            ' Else
            '  MsgBox("there has been an error creating the save file/directory")
            ' End If
        End Sub
    
        Public Sub characterload()
            Using sr As New StreamReader(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & ".txt")
                While Not sr.EndOfStream
                    CI.nulldata = (sr.ReadLine)
                    CI.password = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.charactername = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.speciesname = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.health = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.MaxHealth = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.money = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.expneed = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.exphave = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.expleftover = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.level = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.skillpoints = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.isleveled = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.totalexp = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.strength = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.endurance = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.intelect = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.dexterity = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.agility = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.mindamage = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.maxdamage = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.speed = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.parry = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.turnspeed = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.spentskillpoints = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.deathcount = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gameminutes = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gamehours = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gamedays = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gameweeks = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gameyears = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.totalgamedays = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.gamemonth = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.healthstring = (sr.ReadLine)
                    CI.nulldata = (sr.ReadLine)
                    CI.racedescription = (sr.ReadLine)
                End While
            End Using
    
        End Sub
        Public Sub passtest()
    
            Using sr As New StreamReader(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & ".txt")
                CI.nulldata = (sr.ReadLine)
                CI.password = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                CI.charactername = (sr.ReadLine)
                CI.nulldata = (sr.ReadLine)
                CI.speciesname = (sr.ReadLine)
            End Using
        End Sub
        Public Sub load_game_window_data()
    
            'MsgBox("month is " & CI.gamemonth & " .")
            timesystem()
            gamemonthchange()
            health()
            isdead()
            Game_window.LBLhealth.Text = CI.healthstring
            Game_window.LBLdate.Text = CI.datetext
            Game_window.LBLusername.Text = CI.charactername
            Game_window.LBLexphave.Text = CI.exphave
            Game_window.LBLexpneed.Text = CI.expneed
            Game_window.LBLlevel.Text = CI.level
            Game_window.LBLfreeskillpoints.Text = CI.skillpoints
            FRMstats.LBLdeathcount.Text = CI.deathcount
            Game_window.LBLtime.Text = CI.timetext
    
    
            'MsgBox("minutes is " & Stats.CI.gameminutes & " .")
    
        End Sub
        Public Sub loadstatsdata()
            FRMstats.LBLstrength.Text = CI.strength
            FRMstats.LBLskillpoints.Text = CI.skillpoints
            FRMstats.LBLspentskillpoints.Text = CI.spentskillpoints
            FRMstats.LBLlevel.Text = CI.level
            FRMstats.LBLMindamage.Text = CI.mindamage
            FRMstats.LBLmaxdamage.Text = CI.maxdamage
            FRMstats.LBLendurance.Text = CI.endurance
            FRMstats.LBLintelect.Text = CI.intelect
            FRMstats.LBLexperience.Text = CI.exphave
            FRMstats.LBLmoney.Text = CI.money
            FRMstats.LBLdexterity.Text = CI.dexterity
            FRMstats.LBLagility.Text = CI.agility
            FRMstats.LBLtotalexperience.Text = CI.totalexp
            FRMstats.LBLhealth.Text = CI.healthstring
    
        End Sub
        Public Sub itemsave()
            '  If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname) Then
            'Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname)
    
            Using sr As New StreamWriter(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "s items" & ".txt")
                sr.WriteLine(inventory.character_inventory(1))
            End Using
            ' End If
        End Sub
    
        'Public Sub saveenemy()
        '    '    If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname) Then
        '    '  Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & Stats.CI.charactername & " the " & Stats.CI.speciesname)
    
        '    Using sr As New StreamWriter(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & ".txt")
        '        sr.WriteLine(ED.enemyhealth)
        '        sr.WriteLine(ED.enemymaxhealth)
        '        sr.WriteLine(ED.enemyhealthstring)
        '    End Using
        '    '   End If
        'End Sub
    
        Public Sub itemload()
            Using sr As New StreamReader(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "s items" & ".txt")
                While Not sr.EndOfStream
                    inventory.character_inventory(1) = sr.ReadLine
                End While
            End Using
        End Sub
    
    
        Public Sub load_training_dummy()
            Using sr As New StreamReader(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "\" & "Enemies" & "\" & "Training Dummy" & ".txt")
                While Not sr.EndOfStream
                    ED.enemyname = sr.ReadLine
                    ED.enemyhealth = sr.ReadLine
                    ED.enemymaxhealth = sr.ReadLine
                    ED.enemyhealthstring = sr.ReadLine
                End While
            End Using
        End Sub
    
        Public Sub training_dummy_save()
            If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "\" & "Enemies") Then
                Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "\" & "Enemies")
                Using sw As New StreamWriter(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & "\" & "Enemies" & "\" & "Training Dummy" & ".txt")
                    sw.WriteLine("Training Dummy")
                    sw.WriteLine(2000)
                    sw.WriteLine(2000)
                    sw.WriteLine("2000 / 2000")
                End Using
            End If
    
        End Sub
    End Module
    
    


    aaand finally the registration page with the code for the register system....keep in mind I'm leaving out the code related to said systems if it does not do anything with saving any data...needless code inclusion and needless risk of code theft.

        If TXTusername.Text.Trim = "" Then
                TXTusername.Text = ""
                TXTusername.BackColor = Color.Red
                MsgBox("Please Enter A Username And Try Again")
            End If
            If (TXTpassword.Text.Trim = "" And TXTpasswordverification.Text.Trim = "") Or (TXTpassword.Text.Trim = "" Or TXTpasswordverification.Text.Trim = "") Then
                TXTpassword.Text = ""
                TXTpasswordverification.Text = ""
                TXTpassword.BackColor = Color.Red
                TXTpasswordverification.BackColor = Color.Red
                MsgBox("Please Enter A Password And Password Verification")
            End If
            If TXTpassword.Text.Trim <> TXTpasswordverification.Text.Trim Then
                TXTpassword.Text = ""
                TXTpasswordverification.Text = ""
                TXTpassword.BackColor = Color.Red
                TXTpasswordverification.BackColor = Color.Red
                MsgBox("Please Retype Your Password And Password Verification, They Did Not Match")
            End If
    
            If TXTusername.Text <> "" And (TXTpassword.Text <> "" And TXTpasswordverification.Text <> "") And (TXTpassword.Text = TXTpasswordverification.Text) Then
                CI.charactername = TXTusername.Text
                CI.password = TXTpassword.Text
                TXTpasswordverification.BackColor = Color.White
                TXTpassword.BackColor = Color.White
                TXTpasswordverification.BackColor = Color.White
    
                If (Environment.SpecialFolder.ApplicationData & "\" & CI.charactername & " the " & CI.speciesname & "\") <> Nothing Then
                    If Directory.Exists(Environment.SpecialFolder.ApplicationData & "\" & CI.charactername & " the " & CI.speciesname) And File.Exists(Environment.SpecialFolder.ApplicationData & "\" & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname & ".txt") Then
                        MsgBox("an account with this name already exists, please use another username or species type")
                    Else
                        If Not Directory.Exists(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname & "\" & CI.charactername & " the " & CI.speciesname) Then
                            Directory.CreateDirectory(Environment.SpecialFolder.ApplicationData & CI.charactername & " the " & CI.speciesname)
                            skillsSave()
                            inventory.clearinventory()
                            itemsave()
                            characterSave()
                            training_dummy_save()
                            MsgBox("the character name is " & CI.charactername & "; and the species name is " & CI.speciesname & "; and the password is " & CI.password & ".")
                            clear()
                            play_b4.Show()
                            Me.Close()
                        End If
                    End If
                End If
            End If
        End Sub
    



    EDIT: I think I might have just realized what MIGHT be going wrong here, and correct me if I'm wrong, but do I need to specify what appdata folder to use?? IE to I need to specify either roaming or local in order for that to successfully work?? that thought just dawned on me.
  5. In Topic: vb.net issue with visual studios possibly...

    Posted 22 Apr 2015

    Yep, that would be where the issue resided. Thank you once again for your help, and may you continue to be of help when help is needed. ^^

My Information

Member Title:
D.I.C Head
Age:
23 years old
Birthday:
July 17, 1991
Gender:
Location:
USA
Interests:
computers, technology, now programming in vb.net. fishing, the furry fandom, anime, digital art, social networks, cats/kittens and anything chibi or cute. LOTR series, POTC series, and many many more movies. bleach, inuyasha, digimon(all), the ORIGINAL pokemon because its since gone downhill fast, tenchi series, and many many more anime series.
Full Name:
Michael Davis
Years Programming:
~8
Programming Languages:
some html, dabbled in trying to learn php, basic javascript, and currently working vb.net for my new programming class

Contact Information

E-mail:
Click here to e-mail me
Website URL:
Website URL  http://caffeinejunkiesinc.com
Yahoo:
Yahoo  mapmd1234
Facebook:
http://facebook.com/the.flora.legacy
Twitter:
mapmd1234

Friends

Comments

Page 1 of 1
  1. Photo

    DimitriV Icon

    14 Mar 2012 - 00:26
    CaffeineMan? My ideal name is FugueState, after the Nero song.
Page 1 of 1