Create Tunneller and Create Digger setup

config/fxdata/magic.cfg

@@ -2041,6 +2041,27 @@ CastExpandFunc = general_expand
 Spell = SPELL_SIGHT
 UseFunction = magic_use_power_apply_spell
 
+[power28]
+Name = POWER_TUNLR
+NameTextID = 1078
+TooltipTextID = 1079
+SymbolSprites = 809 811
+PointerSprites = 344
+PanelTabIndex = 17
+SoundSamples = 0
+SoundPlayed = 0
+Power =  0   0   0   0   0   0   0   0   0   0
+Cost = 150 150 150 150 150 150 150 150 150
+Castability = OWNED_GROUND
+Artifact = SPELLBOOK_TUNLR
+Properties = 
+PlayerState = PLAYER_STATE_CREATEGOODDIGGER
+ParentPower = NOPOWER
+CastExpandFunc = do_not_expand
+UseFunction = magic_use_power_imp
+;only used with magic_use_power_imp, sets the type of unit spawned
+CreatureType = TUNNELLER
+
 ; Specials types.
 
 [special0]

config/fxdata/objects.cfg

@@ -4302,3 +4302,27 @@ Persistence = 1
 Immobile = 1
 Properties = CHOWNED_ON_ROOM_CLAIM
 UpdateFunction = NULL
+
+[object179]
+Name = SPELLBOOK_TUNLR
+Genre = SPELLBOOK
+AnimationID = 777
+AnimationSpeed = 256
+Size_XY = 0
+Size_Z = 0
+MaximumSize = 300
+DestroyOnLava = 1
+DestroyOnLiquid = 0
+Health = 0
+FallAcceleration = 10
+LightUnaffected = 0
+MapIcon = -1
+LightIntensity = 62
+LightRadius = 4
+LightIsDynamic = 0
+RandomStartFrame = 0
+DrawClass = 2
+Persistence = 1
+Immobile = 1
+Properties = CHOWNED_ON_ROOM_CLAIM
+UpdateFunction = NULL

config/fxdata/playerstates.toml

@@ -332,3 +332,9 @@ Name = "PLAYER_STATE_VISION"
 PowerKind = "POWER_VISION"
 PointerGroup = "SPELL"
 StopOwnUnits = true
+
+[playerstate55]
+Name = "PLAYER_STATE_CREATEGOODDIGGER"
+PowerKind = "POWER_TUNLR"
+PointerGroup = "SPELL"
+StopOwnUnits = false

config/fxdata/spritecolors.toml

@@ -37,6 +37,8 @@ pointer_sprites = [
     [ 80,  80, 235, 243, 259, 251,   0, 287, 325, 306],#quadptr_power_mkdigger
     [ 38,  38, 271, 272, 274, 273,   0, 296, 334, 315],#tileptr_room_guardpst
     [  9,   9, 275, 276, 278, 277,   0, 297, 335, 316],#tileptr_trap_alarm
+    [344, 344, 352, 360, 368, 376,   0, 384, 400, 392],#quadptr_power_mktunlr
+    [408, 408, 416, 424, 432, 440,   0, 448, 464, 456],#quadptr_power_mkdiggergeneric
 ]
 
 # Stuff in gui1-xx.dat

lang/gtext_eng.pot

@@ -5670,4 +5670,14 @@ msgstr ""
 #: guitext:1077
 msgctxt "Door description"
 msgid "Midas Door: This door consumes gold from the owner to stay completely indestructible. RMB zoom."
+msgstr ""
+
+#: guitext:1078
+msgctxt "Keeper spell name"
+msgid "Recruit Tunneller"
+msgstr ""
+
+#: guitext:1079
+msgctxt "Keeper spell description"
+msgid "Recruit Tunneller: Summon a new Tunneller anywhere in your dungeon.
 msgstr ""

src/config_players.h

@@ -98,6 +98,7 @@ enum PlayerStates {
     PSt_Slow,
     PSt_Flight,
     PSt_Vision,
+    PSt_CreateGoodDigger,
     PSt_ListEnd
 };
 

src/frontend.cpp

@@ -963,6 +963,7 @@ long player_state_to_packet(PlayerState work_state, PowerKind pwkind, TbBool alr
     case PSt_CtrlDirect:
     case PSt_FreeCtrlDirect:
     case PSt_CreateDigger:
+    case PSt_CreateGoodDigger:
     case PSt_CaveIn:
     case PSt_Heal:
     case PSt_Lightning:

src/packets_input.c

@@ -712,6 +712,7 @@ TbBool process_dungeon_control_packet_clicks(long plyr_idx)
         case PSt_SightOfEvil:
         case PSt_Lightning:
         case PSt_CreateDigger:
+        case PSt_CreateGoodDigger:
         case PSt_DestroyWalls:
             if (((pckt->control_flags & PCtr_LBtnRelease) != 0) && ((pckt->control_flags & PCtr_MapCoordsValid) != 0))
             {