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