Hjælp til et lille "Spil" i Vb2008express

Public Class Form1
    Dim MagicalLvl(12) As String
    Dim statnames(33) As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim RndNum As Integer
        Randomize()
        RndNum = Int((100000 - 1 + 1) * Rnd() + 1)
        If RndNum <= 50000 Then
            RndNum = 1 ' magical
        ElseIf RndNum > 50001 And RndNum < 80000 Then '
            RndNum = 2 ' rare
        ElseIf RndNum > 80001 And RndNum < 95000 Then
            RndNum = 3 ' Mystical
        ElseIf RndNum > 95001 And RndNum < 98500 Then
            RndNum = 4 ' Angelic
        ElseIf RndNum > 98501 And RndNum < 99954 Then
            RndNum = 5 ' Mythical
        ElseIf RndNum > 99955 And RndNum < 99969 Then
            RndNum = 6 ' Arcane
        ElseIf RndNum > 99970 And RndNum < 99978 Then
            RndNum = 7 ' Legendary
        ElseIf RndNum > 99979 And RndNum < 99984 Then
            RndNum = 8 ' Godly
        ElseIf RndNum > 99985 And RndNum < 99987 Then
            RndNum = 9 ' Epic
        ElseIf RndNum > 99988 And RndNum < 99991 Then
            RndNum = 10 ' Relic
        ElseIf RndNum > 99992 And RndNum <> 10000 Then
            RndNum = 11 ' Artifact
        ElseIf RndNum = 100000 Then
            RndNum = 12 ' Unique
        End If
        MagicalLevel.Text = MagicalLvl(RndNum)

        'Statnames Visible

        If RndNum = 1 Then
            Statname1.Visible = True
        ElseIf RndNum = 2 Then
            Statname1.Visible = True
            Statname2.Visible = True
        ElseIf RndNum = 3 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
        ElseIf RndNum = 4 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
        ElseIf RndNum = 5 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
        ElseIf RndNum = 6 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
        ElseIf RndNum = 7 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
        ElseIf RndNum = 8 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
            Statname8.Visible = True
        ElseIf RndNum = 9 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
            Statname8.Visible = True
            Statname9.Visible = True
        ElseIf RndNum = 10 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
            Statname8.Visible = True
            Statname9.Visible = True
            Statname10.Visible = True
        ElseIf RndNum = 11 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
            Statname8.Visible = True
            Statname9.Visible = True
            Statname10.Visible = True
            Statname11.Visible = True
        ElseIf RndNum = 12 Then
            Statname1.Visible = True
            Statname2.Visible = True
            Statname3.Visible = True
            Statname4.Visible = True
            Statname5.Visible = True
            Statname6.Visible = True
            Statname7.Visible = True
            Statname8.Visible = True
            Statname9.Visible = True
            Statname10.Visible = True
            Statname11.Visible = True
            Statname12.Visible = True
        End If

        Dim rand As Integer
        Randomize()
        rand = Int((33 - 1 + 1) * Rnd() + 1)


 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        'Magical Level Array Statement
        MagicalLvl(1) = "Magical"
        MagicalLvl(2) = "Rare"
        MagicalLvl(3) = "Mystical"
        MagicalLvl(4) = "Angelic"
        MagicalLvl(5) = "Mythical"
        MagicalLvl(6) = "Arcane"
        MagicalLvl(7) = "Legendary"
        MagicalLvl(8) = "Godly"
        MagicalLvl(9) = "Epic"
        MagicalLvl(10) = "Relic"
        MagicalLvl(11) = "Artifact"
        MagicalLvl(12) = "Unique"


        'Statnames Array Statement
        statnames(1) = "Enhanced Effect"
        statnames(2) = "Strength"
        statnames(3) = "Dexterity"
        statnames(4) = "Vitality"
        statnames(5) = "Intelligence"
        statnames(6) = "Max Life"
        statnames(7) = "Max Mana"
        statnames(8) = "% Experince Gained"
        statnames(9) = "Magic Luck"
        statnames(10) = "Life Regen"
        statnames(11) = "Mana Regen"
        statnames(12) = "Extra Item Slots"
        statnames(13) = "Critica Strike"
        statnames(14) = "Life Per Kill"
        statnames(15) = "Life Per Attack"
        statnames(16) = "Mana Per Kill"
        statnames(17) = "Mana Per Attack"
        statnames(18) = "% Life Steal"
        statnames(19) = "% Dmg Return"
        statnames(20) = "% Mind Numb"
        statnames(21) = "% Armor Pierce"
        statnames(22) = "% Block"
        statnames(23) = "% Critical Flux"
        statnames(24) = "% Physical Damage Reduction"
        statnames(25) = "% Magical Damage Reduction"
        statnames(26) = "% Mana Syphon"
        statnames(27) = "% Quick Draw"
        statnames(28) = "% Mana Consumption"
        statnames(29) = "% Heal Mastery"
        statnames(30) = "% Mana Skin"
        statnames(31) = "% Power Shot"
        statnames(32) = "% Glancing Blow"
        statnames(33) = "Jubilance"
      

Sådan ser koden ud indtil videre. Mit mål med dette program er at lave et lille spil hvor man klikker på en knap og så skal der komme nogle stats ud.

Programmet skal indeholde 4 elementer:

1. Det item som jeg skal lave skal være endten magical, rare, mystical, angelic osv som der står i koden

'Magical Level Array Statement
MagicalLvl(1) = "Magical" ' + 1 stat
MagicalLvl(2) = "Rare" ' +2 stats
MagicalLvl(3) = "Mystical" ' + 3 stats
MagicalLvl(4) = "Angelic" ' + 4 stats
MagicalLvl(5) = "Mythical"' + 5 stats
MagicalLvl(6) = "Arcane"' + 6 stats
MagicalLvl(7) = "Legendary"' + 7 stats
MagicalLvl(8) = "Godly"' + 8 stats
MagicalLvl(9) = "Epic"' + 9 stats
MagicalLvl(10) = "Relic"' +10 stats
MagicalLvl(11) = "Artifact"' + 11 stats
MagicalLvl(12) = "Unique"' + 12 stats

Når programmet finder ud af hvilken magisk egenskab mit item skal have skal den vise det på et label. (Er Gjort)

2. Nu skal den finde ud af hvilke stats det item skal have. fra 1 til 12 som jeg har skrevet til højre i den "lille kode". Jeg har valgt at gøre sådan at efter hvilket stat det nu end bliver skjuler jeg enkelte labels. f.eks. hvis det bliver et "rare" item hvilket kan indeholde 2 magiske stats, skjuler jeg 10 ud af 12 labels. Dvs at de 10 stadig får nogle stats men de bliver bare ikke vist.

Der er i alt 33 forskellige stats og når et item for de stats skal de være fuldstændig random.

For at være extra irriterende skal de forskellige stats være helt unikke, dvs. at 1 rare item ikke kan indeholde 2x max life f.eks.

(Er ikke gjort.)

3. nu når mit magiske item er blevet mystical f.eks. og har fået egenskaberne max life, jubilance og life regen, skal de forskellige egenskaber jo have nogle værdier, hvilket også skal være fuldstændig random. Ved maxlife skal den f.eks. vælge mellem 1-2000, så der kommer til at stå +(rnd fra 1-2000)+max life. Det skal den gøre med alle stats der nu end er.

(er ikke gjort)

4. Det er ikke helt nødvendigt, men afhængig af hvilket niveau mit item bliver kan den få mere og mere "Max Life" for eksempel. Der er fra lvl 1 til lvl 14. i lvl 1 kan Den max få 50 max life og i lvl 14 kan den få op til 2000 maxlife. Det skal den også tage hensyn til.

(Er heller ikke gjort)

Jeg håber der sidder nogle friske programmører der lige har tid til at give mig et skub. Den der hjælper mig får MANGE point!

Tak på forhånd.

//Christian