Dim P2UnitNme$(1)
Do
ink rgb(0,0,0),1:Box 0,0,1023,767
ink rgb(1000,1000,1000),1:Set Text Size 38:Set Text Font "Arial"
Text 300,50,"Player Two:"
Text 400,100,"Choose Your Race:"
Set Text Size 20:Set Text Font "Arial"
Text 500,200,"1) Elves"
Text 500,250,"2) Dwarves"
Text 500,300,"3) Random"
Set Cursor 500,380:Input "->",Ans
If Ans=1 Then P2UnitNme$(0)="Elven Fortress":Exit
If Ans=2 Then P2UnitNme$(0)="Dwarven StrongHold":Exit
If Ans=3
RandRace=Rnd(1)+1
If RandRace=1 Then P2UnitNme$(0)="Elven Fortress"
If RandRace=2 Then P2UnitNme$(0)="Dwarven StrongHold"
Exit
Endif
Loop
Here`s my code for 1 of my menus, just copy and compile it and run the .exe