Imports System

Public Module Module1

    Public Sub Main()

        dim living as boolean

        dim gameend as boolean

        Console.WriteLine("Hello to the hidden World")

        console.writeline("A magestic purple moon hangs low in the sky, casting an eerie glow on a crumbling castle silhouetted against a town with bright blossoming cherry trees. ")

        console.writeline("Below, the bustling town square teems with activity, the figures indistinguishable at this distance.  ")

        console.writeline("Overlaid across this scene, a single line of text, glowing with an ethereal green:  ")

        console.writeline("Welcome, wanderer. The fate of Concordia hangs in the balance. Will you answer the call?")

        console.writeline("Choose your path wisely from 1 or 2")

        dim path as integer

        path = console.readline()

        select case path

        case 1

            console.writeline("I think you have chosen your path wrongly ")

            console.writeline("May death fall upon you...")

            console.readline()

            console.readline()

        case 2

            console.writeline("Confusion ?")

            living = false

            console.writeline("do you want to see your status ? Y or N")

            dim command1 as string

            command1 = console.readline()

            if command1 = "Y" then

                console.writeline("I see..")

                console.writeline("your life has inversed")

                console.writeline("living status : " & living)

            else

                console.writeline("Are you disobeying me !!!!")

                console.writeline("This game must end !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!")

                gameend = true

            end if 

        end select

        for i = 0 to 1

        if gameend = false

            console.writeline("You must fight the dragon monster threathening to destroy concordia ")

            dim power as integer

            dim health as integer

            dim enemypower as integer

            dim enemyhealth as integer

            console.writeline("what is your power --> from 1 - 10 only ")

            power = 1/console.readline() * 5

            console.writeline("This is your power : " & power)

            console.writeline("what is your health --> from 1 - 10 only ")

            health = console.readline()

            console.writeline("This is your health : " & health)

Dim rand as New random

enemyhealth = rand.next(1,11)

        console.writeline("dragon's health : " & enemyhealth)

        Dim rand1 as New random

        enemypower = rand.next(1,11)

    console.writeline("dragon's power : " & enemypower)

        dim hit as boolean

        dim trigval as integer

            do 

                trigval = rand.next(1,11)

        if trigval > 4 then

            hit = true 

        end if 

        if hit = true then 

            console.writeline("You hit him and he is on " & enemyhealth & "health")

            enemyhealth -= power

        end if

        trigval = rand.next(1,11)

        if trigval > 4 then

            hit = true 

        end if 

        if hit = true then 

        console.writeline("he  hit you and you are on " & health & "health")

        health -= enemypower

        end if

            loop until health <= 0 or enemyhealth <= 0

if health = 0 then

    console.writeline("you lose the game!!!!!!!!!!!!!!!!!!!!")

else

    console.writeline("you win the game !!!!")

end if 

    if living = false and health = 0 

        console.writeline("you were undead(a not living beast) so you get another turn :))))))")

        else

            i = 1

        end if

        end if

next

    End Sub

End Module