ModuleModule1EnumcharacterWARLOCK'finish this ENUMEndEnumStructureenemyDimnameAsStringDimhealthAsIntegerDimcharclassAscharacterEndStructureSubMain()Dimorc1AsenemyDimorc2Asenemyorc1.name="Barry"orc1.health=120orc1.charclass='??'create orc2'create a dragon'add speed to the enemy'create another structure to store a hero, what attributes will it have?'make two heroesEndSubEndModule

ModuleModule1EnumcharacterWARLOCK'finish this ENUMEndEnumStructureenemyDimnameAsStringDimhealthAsIntegerDimcharclassAscharacterEndStructureSubMain()Dimorc1AsenemyDimorc2Asenemyorc1.name="Barry"orc1.health=120orc1.charclass='??'create orc2'create a dragon'add speed to the enemy'create another structure to store a hero, what attributes will it have?'make two heroes' create a sub: statusE (c) which will show the stats for the enemy c' create a sub: statusH (c) which will show the stats for the hero c' create a function: attack (h, e) which will deduct 50 health points from the enemy' if an attack kills an enemy, then display "[ENEMYNAME] is dead"' get the hero to kill orc1, use statusE to show that the orc1 is dead and orc2 is alive' create a barbarian horde using an array, create a loop to display their health' create a sub to easily create a NewEnemy, for example:' NewEnemy(john, “John”, 100, 0)EndSubEndModule