Twee Vragen!

wawahoe · 1 aug 2010

1. Hoe kan ik het doen dat spelers kunnen inloggen en uitloggen en dat al hun data word opgeslagen?

2. Als wat moet ik geld declaren? (de geld in mijn spel word gebruikt om grondstoffen te kopen) Dim, Static, Private or WTf?!

wicherh · 1 aug 2010

Miscchien als je niet weet hoe je goud moet opslaan, kan je nog beter niet beginnen aan login systemen en multiplayer.

Vraag 1:
1. Zoek eerst een goede network library (bijvoorbeeld: lidgren)
2. Host een mySQL server.
3. Connect het programma naar die SQL server.

Vraag 2:
Dim gold as long
of doe
Dim gold as int

Cornelis96 · 11 aug 2010

wil je een online spel maken of offline want ij offline kan je gwoon je settings gebruiken...

w00tare · 18 aug 2010

Zelf ben ik hier al eens mee bezig geweest voor iemand.
Het is echt een ruwe versie en niet meteen te gebruiken, maar misschien heb je er wat aan.

Dit zit erin:

GetStats from WebHost
GetPlayerName
GetAttackerName
GetPlayerHealth
GetPlayerAttackLevel
GetPlayerDefenceLevel
GetPlayerBlockLevel
GetEnemyHealth
GetEnemyAttackLevel
GetEnemyDefenseLevel
GetEnemyBlockLevel
BlockSkill(No function to get it yet)
Attack (Attack>Block(Yes/No)>No>Health = Down
RandomNumbers for Attack/Block
Save at logout
Get Saved at login
Uses Block Level
Added a 'Block' Function
You can level your skills by killing people
People can die now
Pre-Fixed 'Attack' function
Added Money (Get after hitting Formula = Health * Attack / Defense )
Added ItemShop (Not the form version, the codes (Helmet,Sword,Armor,Ring)
Added PregradeCenter (Update your skills Health,Attack,Defense)(No Block because you will be to strong)
Block only added when randomize(1,5) = 2

De code:

Code:

Imports System.Net
Public Class Form1
    Dim NHealth As String = Label2.Text
    Dim OldH As String
#Region "Attack User"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Hit Clicked
        Dim Defence_E As Single = GetE_Defense() 'Defense_Enemey
        Dim Block As String = "0"
        RandomNBlock()
        If RandomNBlock() = 1 Then ' Level 1 - 10
            Block = RandomNumber(1, 20) ' Gets a number between 1 and 20
        ElseIf RandomNBlock() = 2 Then ' Level 10 - 30
            Block = RandomNumber(1, 17) ' Gets a number between 1 and 17
        ElseIf RandomNBlock() = 3 Then 'Level 30 - 10000
            Block = RandomNumber(1, 15) ' Gets a number between 1 and 15
        End If
        If RandomNBlock() = 1 Then
            If Block = "1" > "2" Then ' If its 1,2
                GoTo StopSub ' Blocked
            Else
                Hit()
            End If
        ElseIf RandomNBlock() = 2 Then
            If Block = "1" > "5" Then ' If its 1,2,3,4,5
                GoTo StopSub ' Blocked
            Else
                Hit()
            End If
        ElseIf RandomNBlock() = 3 Then
            If Block = "1" > "10" Then ' If its 1,2,3,4,5,6,7,8,9,10
                GoTo StopSub ' Blocked
            Else : Hit()
            End If
        End If
StopSub:
    End Sub
    Public Sub Hit()
        Dim Defence_E As Single = GetDefence() 'Defense_Enemey
        Dim Attack_A As Single = GetAttack() 'Attack_Attacker
        Dim Health_E As String = GetHealth() 'Health_Enemey
        Dim NewHealth_E As String = GetHealth() 'NewHealth_Enemey
        OldH = Health_E ' Save current health
        NewHealth_E = Defence_E - Attack_A
        Health_E = Health_E - NewHealth_E
        NewHealth(Health_E)
        DamageDone()
    End Sub
    Public Sub DamageDone()
        Dim NewH As String
        Dim OldHH As String
        Dim Defense As String
        Dim Health As String
        Dim Attack As String
        Dim PreMoney As String
        OldHH = OldH
        NewH = GetE_Health()
        If OldHH = NewH Then
            MsgBox("Attack has been blocked!")
        Else
            Dim Calc As String
            Calc = OldHH - NewH
            If Calc = -10000 > 0.99999 Then ' If player died
                MsgBox("Player died!")
                Me.Close()
                Form3.Show() ' You won
            Else
                MsgBox("New enemey health = " & Calc) ' If its not dead
                Label3.Text = Label3.Text + 1 ' Block + 1
                Label4.Text = Label4.Text + 1 ' Attack +1
                Label1.Text = Label1.Text + 1 ' Defense +1
                Attack = GetAttack()
                Defense = GetDefence()
                Health = GetHealth()
                PreMoney = Health * Attack / Defense
                Label6.Text = PreMoney
            End If
        End If
    End Sub
#End Region
#Region "Get Current User"
    Public Function GetDefence()
        Dim Player As Integer
        Dim Defence As String
        Dim PlayerStats As String
        PlayerStats = GetPlayerStats(Defence)
        Return PlayerStats(Defence)
    End Function
    Public Function GetAttack()
        Dim Attack As String
        Dim PlayerStats As String
        PlayerStats = GetPlayerStats(Attack)
        Return PlayerStats(Attack)
    End Function
    Public Sub NewHealth(ByVal input As String)
        Dim NewHealthh As String
        NewHealthh = input
        NHealth = NewHealthh
    End Sub
    Public Function GetHealth()
        Dim Health As String
        Dim PlayerStats As String
        PlayerStats = GetPlayerStats(Health)
        Return PlayerStats(Health)
    End Function
    Public Function GetBlock()
        Dim Block As String
        Dim PlayerStats As String
        PlayerStats = GetPlayerStats(Block)
        Return PlayerStats(Block)
    End Function
    Public Function GetMoney()
        Dim Money As String
        Dim PlayerStats As String
        PlayerStats = GetPlayerStats(Money)
        Return PlayerStats(Money)
    End Function
#End Region
#Region "Get Enemey Stats"
    Public Function GetE_Attack()
        Dim Attack As String
        Dim PlayerStats As String
        PlayerStats = GetEnemeyStats(Attack)
        Return PlayerStats(Attack)
    End Function
    Public Function GetE_Defense()
        Dim Defense As String
        Dim PlayerStats As String
        PlayerStats = GetEnemeyStats(Defense)
        Return PlayerStats(Defense)
    End Function
    Public Function GetE_Health()
        Dim Health As String
        Dim PlayerStats As String
        PlayerStats = GetEnemeyStats(Health)
        Return PlayerStats(Health)
    End Function
    Public Function GetE_Block()
        Dim Block As String
        Dim PlayerStats As String
        PlayerStats = GetEnemeyStats(Block)
        Return PlayerStats(Block)
    End Function
    Public Function GetE_Money()
        Dim Money As String
        Dim PlayerStats As String
        PlayerStats = GetEnemeyStats(Money)
        Return PlayerStats(Money)
    End Function
#End Region
#Region "Get Player/Enemy Stats / Other Info"
    Public Function GetPlayerStats(ByVal input As String)
        Dim wc As New WebClient
        Dim CurUser As String = GetUser()
        Dim Defence As String = Label1.Text
        Dim Attack As String = Label3.Text
        Dim Health As String = Label2.Text
        Dim Block As String = Label4.Text
        If input = Defence Then
            Return Defence
        ElseIf input = Attack Then
            Return Attack
        ElseIf input = Health Then
            Return Health
        End If
    End Function
    Public Function GetEnemeyStats(ByVal input As String)
        Dim wc As New WebClient
        Dim EnemeyUser As String = GetAttacker()
        Dim Defence As String = wc.DownloadString("www.yourhost.com/Stats/Users/" & EnemeyUser & "/Defence.txt")
        Dim Attack As String = wc.DownloadString("www.yourhost.com/Stats/Users/" & EnemeyUser & "/Attack.txt")
        Dim Health As String = wc.DownloadString("www.yourhost.com/Stats/Users/" & EnemeyUser & "/Health.txt")
        Dim Block As String = wc.DownloadString("www.yourhost.com/Stats/Users/" & EnemeyUser & "/Block.txt")
        Dim Money As String = wc.DownloadString("www.yourhost.com/Stats/Users/" & EnemeyUser & "/Money.txt")
        If input = Defence Then
            Return Defence
        ElseIf input = Attack Then
            Return Attack
        ElseIf input = Health Then
            Return Health
        End If
    End Function
    Public Function GetAttacker()
        Dim Enemy As String = Label4.Text ' Label4.text Shows the attacker
        Return Enemy
    End Function
    Public Function GetUser()
        Dim User As String = Label1.Text ' Label1.text Shows the users name
        Return User
    End Function

    Public Function BuyItems(ByVal input As String)
        If input = "helmet" Then
            Add(1)
            Return (1)
        ElseIf input = "ring" Then
            Add(2)
            Return (2)
        ElseIf input = "armor" Then
            Add(3)
            Return (3)
        ElseIf input = "sword" Then
            Add(4)
            Return (4)
        End If
    End Function

    Public Function UpgradeSkills(ByVal input As String)
        If input = "health" Then
            Add(5)
            Return (5)
        ElseIf input = "attack" Then
            Add(6)
            Return (6)
        ElseIf input = "defense" Then
            Add(7)
            Return (7)
        End If
    End Function

    Public Sub Add(ByVal input As String)
        If input = 1 Then
            Label1.Text = Label1.Text + 1
        ElseIf input = 2 Then
            Label1.Text = Label1.Text + 1
            Label3.Text = Label3.Text + 1
        ElseIf input = 3 Then
            Label1.Text = Label1.Text + 5
        ElseIf input = 4 Then
            Label3.Text = Label3.Text + 5
        ElseIf input = 5 Then
            Label2.Text = Label2.Text + 7
        ElseIf input = 6 Then
            Label3.Text = Label3.Text + 3
        ElseIf input = 7 Then
            Label1.Text = Label1.Text + 3
        End If
    End Sub
#End Region

    Public Function RandomNumber(ByVal MaxNumber As Integer, Optional ByVal MinNumber As Integer = 0) As Integer
        Dim r As New Random(System.DateTime.Now.Millisecond)
        If MinNumber > MaxNumber Then
            Dim t As Integer = MinNumber
            MinNumber = MaxNumber
            MaxNumber = t
        End If
        Return r.Next(MinNumber, MaxNumber)
    End Function

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Logout
        WebBrowser1.Navigate("www.yourhost.com/save.php") ' Host to save /Users/.txt
        Dim Block As String = Label4.Text
        Dim Defense As String = Label1.Text
        Dim Health As String = Label2.Text
        Dim Attack As String = Label3.Text
        Dim Name_U As String = Label5.Text
        Dim Money As String = Label6.text
        WebBrowser1.Document.GetElementById("nickname").SetAttribute("Value", Name_U)
        WebBrowser1.Document.GetElementById("defense").SetAttribute("Value", Defense)
        WebBrowser1.Document.GetElementById("block").SetAttribute("Value", Block)
        WebBrowser1.Document.GetElementById("health").SetAttribute("Value", Health)
        WebBrowser1.Document.GetElementById("attack").SetAttribute("Value", Attack)
        WebBrowser1.Document.GetElementById("money").SetAttribute("Value", Money)
        WebBrowser1.Document.GetElementById("submit").InvokeMember("click")
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Login
        Dim Login As String
        Dim Block As String
        Dim Defense As String
        Dim Health As String
        Dim Attack As String
        Dim Name_U As String
        Login = My.Settings.login ' Saved at login screen
        WebBrowser1.Navigate("www.<yourhost>.com/Users/" & Login & ".txt") ' Host, saved .txt
        Name_U = WebBrowser1.Document.GetElementById("nickname").ToString
        If Name_U = Login Then
            Defense = WebBrowser1.Document.GetElementById("defense").ToString
            Block = WebBrowser1.Document.GetElementById("block").ToString
            Health = WebBrowser1.Document.GetElementById("health").ToString
            Attack = WebBrowser1.Document.GetElementById("attack").ToString
            Label1.Text = Defense
            Label2.Text = Health
            Label3.Text = Attack
            Label4.Text = Block
            Label5.Text = Name_U
        Else
            MsgBox("Wrong Login")
            Me.Close()
            Form2.Show() ' Show Login Screen agin
        End If
    End Sub
    Public Function RandomNBlock()
        Dim Block As String
        Block = GetBlock()
        If Block = 1 > 10 Then ' Level 1 - 10
            Return (1)
        ElseIf Block = 10 > 30 Then ' Level 10 - 30
            Return (2)
        ElseIf Block = 30 > 100000 Then ' Level 30 - 100000
            Return (3)
        End If
    End Function
End Class

Twee Vragen!

wawahoe

Gebruiker

wicherh

Gebruiker

Cornelis96

Gebruiker

w00tare

Gebruiker

Nieuwste berichten

Wij waarderen jouw privacy