Imports System

Public Module Module1

​

            Dim ran as New random

    Dim no as integer 

    Dim dice1,dice2 as integer

    Dim answer as string

    Dim strength, skill as integer

    Dim score1, score2,score as integer

    Dim player1,player2 as integer

    Dim player1strength, player1skill as integer

    Dim player2strength,player2skill as integer

    Dim strengthmodifier, skillmodifier as integer

    Public Sub Main()

​

Console.writeline("Enter player1 skill")

    player1skill= console.readline()

    Console.writeline ("Enter player 1 strength")

player1strength = console.readline()

​

Console.writeline ("Enter player 2 stregnth")

player2strength = console.readline()

​

console.writeline ("Enter player 2 skill")

player2skill = console.readline()

​

        score1 = ran.next(1,7)

    score2= ran.next(1,7)

​

player1=score1

player2=score2

strengthmodifier= math.abs((player1strength-player2strength))/5

skillmodifier= math.abs((player1skill-player2skill))/5

​

​

If score1=score2 Then

    console.writeline("Scores dont change")

    console.readline()

end if 

​

If score1 > score2 then

    player1strength = player1strength + strengthmodifier

    player1skill = player1skill + skillmodifier

    player2strength = player2strength- strengthmodifier

    player2skill = player2skill - skillmodifier

else

    player2strength = player2strength + strengthmodifier

    player2skill = player2skill + skillmodifier

    player1strength = player1strength- strengthmodifier

    player1skill= player1skill - skillmodifier

end if

​

console.writeline ("player 1 strength is " & player1strength)

console.writeline("Player 1 skill is" & player1skill)

console.writeline("player 2 skill is" & player2skill)

console.writeline("Player 2 strength is" &player2strength)

console.readline()

    End Sub

End Module