Im attempting it again...
This is the project goals i need help with
Dice Roller (d20) (20 sided) with adjustment by 2 different listboxes the dice roller will post to a textbox the total - I have done some of this so far and i have some of the code i have posted below
Then the rolled dice will associate with a number on a list that will print the result of the roll on the next text box of is it is a treasure or not - i have some of this done also
Then if there is a treasure roll then it will go to annother list and decide what specific item it is then print that result to a textbox - hmmm
Now if it is a magical item it will need to further roll on annother chart or possable charts assigning a possable prefix or suffix to that item - O.O
Lastly then the total things ie if it is magical with a prefix and suffix it will put them things together all in one text box making an item and name all in one...
Example of how it should look
<Label> You rolled: <textbox> Nothing
<Label> You rolled: <textbox> Gold <# of coins>
<Label> You rolled: <textbox> <Exsample is Armor> Plate Armor <details of armor>
<Label> You rolled: <textbox> <Example of simple Magical Dagger> Evil <prefix> Dagger <Details of Dagger> <Details of Prefix>
<Label> You rolled: <textbox> <Example of Magical Jewel> Quiet <Prefix> Jewel <Item> of Health <Suffix> <Details of Jewel> <Details of Prefix> <details of Suffix>
<Label> You rolled: <textbox> <Example of Complex Magic hat> Blood Cowel <Name Gen Prefix/Sufix> <random Gen 2 prefix and one suffix or vice versa *special> <Details on all>
i don't need to go on because most of the other stuff will be all basic text box add ins simple states applied to specific items... exc...
this is a snipit of what i got so far is there a better way to do this any suggestions will help and info on how to do it <examples would be grate>
- Code: Select all
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 50)
TextBox2.Text = Int(Rnd() * 50)
Select Case TextBox1.Text
TextBox1.Text = "1"
TextBox2.Text = "Trap"
TextBox1.Text = "2"
TextBox2.Text = "Nothing"
Velendar Halberd the Goblin King
The Dungeon Master Bard
Very Rusty VB user
And if you wonder this is an adaptation of diablo 2 item generator <and yes i know there is a Java based one on WotC>