procedure Ms
   
setscreen ("graphics:1260;900,title:Role Playing Module")
var box3 : int := GUI.CreateTextBox (2, 400, 310, 200)

var ch : string (1)
    loop
        exit when not hasch
        getch (ch)              % Discard this character
        if ch = '1' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Slash has been Selected")
            user_move := 1
        elsif ch = '2'then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Charge has been selected")
            user_move := 2
        elsif ch = '3'then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Stab has been selected")
            user_move := 3
        elsif ch = '4' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Freeze has been selected")
            user_move := 4
        elsif ch = '5' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Fire Ball has been selected")
            user_move := 5
        elsif ch = '6' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Tornado has been selected")
            user_move := 6
        elsif ch = '7' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Hurricain has been selected")
            user_move := 7
        elsif ch = '8' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Lava has been selected")
            user_move := 8
        elsif ch = '9' then
            GUI.AddLine (box3, " ")
            GUI.AddText (box3, "Summon Minion")
            user_move := 9
       end if
             end loop   
         end Ms