Add spell casting to mouse menu

diff --git a/src/cmd.c b/src/cmd.c
index 2762f5883a9a3b78c1ef8cc22ca4da59115a398d..75593ef7103235e04f10ca85d3df560584e5ada2 100644 (file)
--- a/src/cmd.c
+++ b/src/cmd.c
@@ -4515,6 +4515,7 @@ enum menucmd {
     MCMD_UNTRAP_HERE,
     MCMD_OFFER,
     MCMD_INVENTORY,
+    MCMD_CAST_SPELL,
 
     MCMD_THROW_OBJ,
     MCMD_TRAVEL,
@@ -4606,6 +4607,9 @@ there_cmd_menu_self(winid win, int x, int y, int *act UNUSED)
     mcmd_addmenu(win, MCMD_SEARCH, "Search around you"), ++K;
     mcmd_addmenu(win, MCMD_LOOK_HERE, "Look at what is here"), ++K;
 
+    if (num_spells() > 0)
+        mcmd_addmenu(win, MCMD_CAST_SPELL, "Cast a spell"), ++K;
+
     if ((ttmp = t_at(x, y)) != 0 && ttmp->tseen) {
         if (ttmp->ttyp != VIBRATING_SQUARE)
             mcmd_addmenu(win, MCMD_UNTRAP_HERE,
@@ -4924,6 +4928,9 @@ there_cmd_menu(int x, int y, int mod)
             cmdq_add_ec(dosacrifice);
             cmdq_add_userinput();
             break;
+        case MCMD_CAST_SPELL:
+            cmdq_add_ec(docast);
+            break;
         default: break;
         }
         return '\0';