Dig ability

[ChaosRider]

Hi i wish to do ability which will allow unit to dig in cave walls and change them to cave terrain . I should filter unit with this ability, but whats next? How to set menu which will show up by right click on near cave wall terrain, and when unit have atleast 3 mp left?

[Dugi]

I think that there might be one solution, but it is a bit ugly*. Something like this:

Code: Select all

[set_menu_item]
 ...
 [filter]
  [filter_location] # It is a cave terrain
   terrain=Xu
  [/filter_location]
  [and]
   [filter_adjacent]
    ability=dig
    [and]
     [filter_wml]
      moves=3
     [/filter_wml]
     [or]
      [filter_wml]
       moves=4
      [/filter_wml]
     [/or]
     [or]
      [filter_wml]
       moves=5
      [/filter_wml]
     [/or]
    [/and]
    ... etc, until the maximum movement the fastest of your units can have
   [/filter_adjacent]
  [/and]
 [/filter]
 ...
[/set_menu_item]

I am not assuring you that it works, because I am not quite sure if filter_adjacent works if there is no unit on the primary hex. But if it doesn't, then the solution will be extremely ugly.


* You can't use variable compare to check the movement, because the unit is not on the hex that was clicked on and therefore not stored into the unit variable and can't.

[Velensk]

I don't know how you were planning to use this but a potentially easy solution is that you can give the unit 3mp through impassable and then make an event which then changes it to cave. The problem is that this will give your unit access to all impassable hexes not just cave walls.

[Dugi]

The cave can be a custom terrain with identical graphics, but an entirely new terrain type, passable only by that single unit. But if the digger somehow got 6 movement points, he would crash through one cave terrain without changing it and only change the one where he lands (on 1.11, it might be doable with enter_hex event, but not on 1.10).

[Adamant14]

In the UMC 'Return to Noelren' made by pyrophorus you can find such a code.

[trewe]

Instead of those awfull ton of filter_wml tags replace them all by:

Code: Select all

    formula="unit.moves >= 3"

And you may restrict it to the current side, or you can dig with enemy units ...

[Dugi]

@trewe
Really, I didn't think of that possibility. It should work.

[ChaosRider]

In wc and same in mwc (campaign) sometimes are created places unnable for most units (only 0 lvl ghosts can go by cave walls). Now i want add ability for Mwc_Dwarvish Miner, i can filter them by ability or unit code . I want them to lose 3 mp after digging. They have in unit code 4 mp, so with speedy trait its max 5 . One dwarvish miner wont dig more than 1 terrain in 1 turn. Also i think im gonna do randomly picked new terrain for this changed cave wall.
Edit:
I found such a code in campaign earlier written:

Spoiler:

Code: Select all

#ifdef LSB_COMMENT
	LSB_MENU_DIG
Units defined with UFILTER are able to dig in WALL terrains. Effect is they are replaced by GROUND
#endif

Definition of this ability looks like units are able to move on cave wall (in my ability i want them to change near terrain, not this one on which they stay), and i dont want them (dwarvish miners) to change them to terrain .

Spoiler:

Code: Select all

#define LSB_MENU_DIG UFILTER WALL GROUND MENU
[set_menu_item]
	id=menu_{MENU}
	description={RTN_USTR-156}
	[show_if]
		[have_unit]
		[/have_unit]
	[/show_if]
	[filter_location]
		[filter_adjacent_location]
			[filter]
				{UFILTER}
			[/filter]
		[/filter_adjacent_location]
		terrain={WALL}
	[/filter_location]
	[command]
		[terrain]
			x,y=$x1,$y1
			terrain={GROUND}
		[/terrain]
	[/command]
[/set_menu_item]
#enddef

[Dugi]

In that case, Velensk's idea is the best, supposing that you create a custom copy of the cave terrain as I suggested above.

[ChaosRider]

I created some code, but as for now its not works as i want it ... I was basing on summon code from era of magic .
Option is seen able, my units can dig even when they have 0 moves (3 or more i want ), with this formula didnt work , also if we have 2 dwarvish miners near some wall and last clicked by us dwarv is this on the left and after this we click on wall which was near this on right then this on left get xp not this on right which is also not good.

ability:

Spoiler:

Code: Select all

#define ABILITY_MWC_DIG
    [dummy]
        id=MWC_dig
        name= _ "Dig"
        description= _ "Dig:
this unit can dig in cave walls (when this unit have atleast 3 mp)."
    [/dummy]
[/abilities]

[event]
    name=start
    [if]
        [have_unit]
            ability=MWC_dig
        [/have_unit]
        [then]
            {DIG_MENU}
        [/then]
    [/if]
[/event]

[event]
    name=recruit
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[event]
    name=post_advance
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[+abilities]
#enddef

#define DIG_MENU
    {DIG_MENU_ITEM}
#enddef

set_menu_item:

Spoiler:

Code: Select all

#define DIG_MENU_ITEM
	[event]
		name=select
        first_time_only=no
        [filter]
            type=Mwc_Dwarvish Miner
            side=$side_number
        [/filter]
        [store_unit]
            [filter]
                x,y=$x1,$y1
            [/filter]
            variable=last_selected_unit
        [/store_unit]
	[/event]
	[set_menu_item]
		description= _ "Dig in cave walls (you need atleast 3 mp)."
		[filter_location]
			[filter_adjacent_location]
				[filter]
					ability=MWC_dig
					side=$side_number
					#formula="unit.moves >= 3
					[and]
						[not]
							[filter_wml]
								moves=2
							[/filter_wml]
						[/not]
					[/and]
					[or]
						[not]
							[filter_wml]
								moves=1
							[/filter_wml]
						[/not]
					[/or]
					[or]
						[not]
							[filter_wml]
								moves=0
							[/filter_wml]
						[/not]
					[/or]
				[/filter]
			[/filter_adjacent_location]
			terrain=X*,X*^Ii
		[/filter_location]
		[command]		
			[set_variable]
				name=random_dummy_dig
				rand=1..50
			[/set_variable]
			[switch]
				variable=random_dummy_dig
				[case]
					value=1,2,3,4,5,6,7,8
					[terrain]
						x,y=$x1,$y1
						terrain=Uu
					[/terrain]
				[/case]
				[case]
					value=9,10,11,12,13,14,15,16
					[terrain]
						x,y=$x1,$y1
						terrain=Uue
					[/terrain]
				[/case]
				[case]
					value=17,18,19,20,21,22
					[terrain]
						x,y=$x1,$y1
						terrain=Ur
					[/terrain]
				[/case]
				[case]
					value=23,24,25,26,27,28
					[terrain]
						x,y=$x1,$y1
						terrain=Urb
					[/terrain]
				[/case]
				[case]
					value=29,30,31,32,33
					[terrain]
						x,y=$x1,$y1
						terrain=Uu^Uf
					[/terrain]
				[/case]
				[case]
					value=34,35,36,37,38
					[terrain]
						x,y=$x1,$y1
						terrain=Uh
					[/terrain]
				[/case]
				[case]
					value=39
					[terrain]
						x,y=$x1,$y1
						terrain=Uu^Vud
					[/terrain]
				[/case]
				[case]
					value=40
					[terrain]
						x,y=$x1,$y1
						terrain=Uu^Vu
					[/terrain]
				[/case]
				[case]
					value=41,42,43,44
					[terrain]
						x,y=$x1,$y1
						terrain=Cud
					[/terrain]
				[/case]
				[case]
					value=45,46,47
					[terrain]
						x,y=$x1,$y1
						terrain=Wwf
					[/terrain]
				[/case]
				[case]
					value=48,49,50
					[terrain]
						x,y=$x1,$y1
						terrain=Sm
					[/terrain]
				[/case]
			[/switch]
			{CLEAR_VARIABLE random_dummy_dig}
			[store_unit]
				[filter]
					ability=MWC_dig
					side=$side_number
							#formula="unit.moves >= 3
							[and]
								[not]
									[filter_wml]
										moves=2
									[/filter_wml]
								[/not]
							[/and]
							[or]
								[not]
									[filter_wml]
										moves=1
									[/filter_wml]
								[/not]
							[/or]
							[or]
								[not]
									[filter_wml]
										moves=0
									[/filter_wml]
								[/not]
							[/or]
					[filter_adjacent]
						x,y=$x1,$y1
					[/filter_adjacent]
				[/filter]
				variable=able_to_dig
			[/store_unit]
			[if]
				[variable]
					name=able_to_dig.length
					greater_than=1
				[/variable]
				[then]
					{FOREACH able_to_dig a}
						[if]
							[variable]
								name=able_to_dig[$a].id
								equals=$last_selected_unit.id
							[/variable]
							[then]
								[set_variable]
									name=able_to_dig[$a].moves
									sub=3
								[/set_variable]

								{VARIABLE_OP able_to_dig[$a].experience add 1}

								[unstore_unit]
									variable=able_to_dig[$a]
									find_vacant=no
									text= _ "+$this_unit.level exp"
									red,green,blue=50,50,200
								[/unstore_unit]
								{CLEAR_VARIABLE newunit}
								{CLEAR_VARIABLE able_to_dig}
							[/then]
						[/if]
					{NEXT a}
				[/then]
				[else]
					[store_unit]
						variable=able_to_dig
						[filter]
							ability=MWC_dig
							side=$side_number
							[filter_adjacent]
								x,y=$x1,$y1
							[/filter_adjacent]
							#formula="unit.moves >= 3
							[and]
								[not]
									[filter_wml]
										moves=2
									[/filter_wml]
								[/not]
							[/and]
							[or]
								[not]
									[filter_wml]
										moves=1
									[/filter_wml]
								[/not]
							[/or]
							[or]
								[not]
									[filter_wml]
										moves=0
									[/filter_wml]
								[/not]
							[/or]
						[/filter]
					[/store_unit]
					[set_variable]
						name=able_to_dig[$a].moves
						sub=3
					[/set_variable]

					{VARIABLE_OP able_to_dig[$a].experience add 1}

					[unstore_unit]
						variable=able_to_dig[$a]
						find_vacant=no
						text= _ "+$this_unit.level exp"
						red,green,blue=50,50,200
					[/unstore_unit]
					{CLEAR_VARIABLE able_to_dig}
				[/else]
			[/if]
		[/command]
	[/set_menu_item]
#enddef

[pyrophorus]

Definition of this ability looks like units are able to move on cave wall (in my ability i want them to change near terrain, not this one on which they stay), and i dont want them (dwarvish miners) to change them to terrain.

No, it allows not the dwarf to move on cave wall. It allows him to dig only in earthy cave walls, and it costs some move points as well.
I think this code is very near to what you need, but, maybe you should play the scenario to see exactly how it works (it's possible to enter directly the scenario without playing all the campaign, if you're interested, I'll tell you how to).

Friendly,

[trewe]

Some problems I see there:
select event is not multiplayer safe
no need to define the menu N times just once in a side turn event (or any other synchronized one) is enough
my mistake, formula does not need to be given 'unit', it is already implicit

Working example, modify at will:

Code: Select all

    [event]
        name=side turn
        first_time_only=no

        [set_menu_item]
            [show_if]
                [have_location]
                    terrain=Xu*
                    x,y=$x1,$y1
                    [filter_adjacent_location]
                        [filter]
                            side=$side_number
                            type=Mwc Dwarvish Miner
                            formula="moves >= 3"
                            ability=dig
                        [/filter]
                    [/filter_adjacent_location]
                [/have_location]
            [/show_if]
            id=dig_cavewall
            description= _ "smash this cave wall"
            [command]
                [sound]
                    sound=explosion.ogg
                [/sound]

                [terrain]
                    terrain=Urb^Dr
                    x,y=$x1,$y1
                [/terrain]

                # teleport the miner to the newly created cave
                [store_unit]
                    [filter]
                        ability=dig
                        side=$side_number
                        formula="moves >= 3"
                        [filter_location]
                            [filter_adjacent_location]
                                x,y=$x1,$y1
                            [/filter_adjacent_location]
                        [/filter_location]
                    [/filter]
                    variable=miner
                    kill=yes
                [/store_unit]

                {VARIABLE miner.x $x1}
                {VARIABLE miner.y $y1}

                # prevent the miner to be used twice this turn
                {VARIABLE miner.status.digged yes}

                # drain moves ? attacks ? do whatever you want here.
                {VARIABLE miner.moves 0}
                {VARIABLE miner.attacks_left 0}

                # note that if more than one unit was adjacent the first stored is modified and all others just stay where they were
                {FOREACH miner i}
                    [unstore_unit]
                        variable=miner[$i]
                    [/unstore_unit]
                {NEXT i}

                [redraw]
                    clear_shroud=yes
                [/redraw]
            [/command]
        [/set_menu_item]
    [/event]

    [event]
        name=side turn end
        first_time_only=no

        [modify_unit]
            [filter]
                [filter_wml]
                    [status]
                        digged=yes
                    [/status]
                [/filter_wml]
            [/filter]
            [status]
                digged=no
            [/status]
        [/modify_unit]
    [/event]

[pyrophorus]

Code: Select all

                # prevent the miner to be used twice this turn
                {VARIABLE miner.status.digged yes}

How ? You don't use this flag in any filter.
BTW, the really difficult problem (finding at the same time who shall dig and where) is avoided.

Friendly,

[ChaosRider]

I think you guys could see already one place which is a problem, what when near such a cavewall are 2 dwarvish miners, they dont have to be near same hex (x,y) which is a cave wall. To fix this problem i think it will be better to filter last selected unit (and if it a dwarvish miner with this ability and with 3 mp or more then show up this menu near this last selected unit ).
edit:
units with 3 or more mp cant go by this part in filter:
"formula="moves >= 3""

edit 2:

Why the hell code which is working ok (for summoners to summon) dont work after changing name of variables (to dont have same as in summoners code), deleting part of creating new unit on hex on which in my code i change terrain? Even without changing filters to make this ability able for units with 3 or more mp (in summoners code to work it is required max movement points and attack left) filter dont work well. Units pass first filter but in next one is problem cause unit who just digged dont have decreased mp and dont get 1 xp...

Spoiler:

Code: Select all

#define ABILITY_MWC_DIG
    [dummy]
        id=MWC_dig
        name= _ "Dig"
        description= _ "Dig:
this unit can dig in cave walls (when this unit have atleast 3 mp)."
    [/dummy]
[/abilities]

[event]
    name=start
    [if]
        [have_unit]
            ability=MWC_dig
        [/have_unit]
        [then]
            {DIG_MENU}
        [/then]
    [/if]
[/event]

[event]
    name=recruit
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[event]
    name=post_advance
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[+abilities]
#enddef

#define DIG_MENU
    {DIG_MENU_ITEM 6_4_1 (dig if you want) 0 MWC_dig}
#enddef

Spoiler:

Code: Select all

#define DIG_DIGGING
	[set_variable]
		name=random_dummy_dig
		rand=1..50
	[/set_variable]
	[switch]
		variable=random_dummy_dig
		[case]
			value=1,2,3,4,5,6,7,8
			[terrain]
				x,y=$x1,$y1
				terrain=Uu
			[/terrain]
		[/case]
		[case]
			value=9,10,11,12,13,14,15,16
			[terrain]
				x,y=$x1,$y1
				terrain=Uue
			[/terrain]
		[/case]
		[case]
			value=17,18,19,20,21,22
			[terrain]
				x,y=$x1,$y1
				terrain=Ur
			[/terrain]
		[/case]
		[case]
			value=23,24,25,26,27,28
			[terrain]
				x,y=$x1,$y1
				terrain=Urb
			[/terrain]
		[/case]
		[case]
			value=29,30,31,32,33
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Uf
			[/terrain]
		[/case]
		[case]
			value=34,35,36,37,38
			[terrain]
				x,y=$x1,$y1
				terrain=Uh
			[/terrain]
		[/case]
		[case]
			value=39
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Vud
			[/terrain]
		[/case]
		[case]
			value=40
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Vu
			[/terrain]
		[/case]
		[case]
			value=41,42,43,44
			[terrain]
				x,y=$x1,$y1
				terrain=Cud
			[/terrain]
		[/case]
		[case]
			value=45,46,47
			[terrain]
				x,y=$x1,$y1
				terrain=Wwf
			[/terrain]
		[/case]
		[case]
			value=48,49,50
			[terrain]
				x,y=$x1,$y1
				terrain=Sm
			[/terrain]
		[/case]
	[/switch]
	{CLEAR_VARIABLE random_dummy_dig}
#enddef

Spoiler:

Code: Select all

#define DIG_MENU_ITEM ID DESCRIPTION COST ABILITY
    [event]
        name=select

        first_time_only=no

        [filter]
            type=Mwc_Dwarvish Miner
            side=$side_number
        [/filter]

        [store_unit]
            [filter]
                x,y=$x1,$y1
            [/filter]
            variable=last_selected_unit
        [/store_unit]
    [/event]
    [set_menu_item]
        id=MWC_dig_{ID}
        description= _ "dig {DESCRIPTION} ({COST}g)"
        [show_if]
        [/show_if]

        [filter_location]
            [filter_adjacent_location]
                [filter]
                    ability={ABILITY}
                    side=$side_number
                    [filter_wml]
                        moves=$this_unit.max_moves
                    [/filter_wml]
                [/filter]
            [/filter_adjacent_location]
			terrain=X*,X*^Ii
        [/filter_location]
        [command]
            [store_gold]
                variable=actualgold
                side=$side_number
            [/store_gold]
            [if]
                [variable]
                    name=actualgold
                    greater_than_equal_to={COST}
                [/variable]
                [then]
                    [gold]
                        amount=-{COST}
                        side=$side_number
                    [/gold]
                    #[unit]
                    #    type={UNIT}
                    #    side=$side_number
                    #    x,y=$x1,$y1
                    #    moves=0
                    #    animate=yes
                    #[/unit]
                    #[store_unit]
                    #    variable=newunit
                    #    [filter]
                    #        x,y=$x1,$y1
                    #    [/filter]
                    #[/store_unit]
                    #[set_variable]
                    #    name=newunit.attacks_left
                    #    value=0
                    #[/set_variable]
                    #[unstore_unit]
                    #    variable=newunit
                    #    find_vacant=no
                    #[/unstore_unit]
                    #[set_variable]
                    #    name=newunit.moves
                    #    value=0
                    #[/set_variable]
					
					{DIG_DIGGING}
					
                    [store_unit]
                        [filter]
                            ability={ABILITY}
                            side=$side_number
                            [filter_wml]
                                moves=$this_unit.max_moves
                            [/filter_wml]
                            [filter_adjacent]
                                x,y=$x1,$y1
                            [/filter_adjacent]
                        [/filter]
                        variable=able_to_dig
                    [/store_unit]
                    [if]
                        [variable]
                            name=able_to_dig.length
                            greater_than=1
                        [/variable]
                        [then]
                            {FOREACH able_to_dig a}
                                [if]
                                    [variable]
                                        name=able_to_dig[$a].id
                                        equals=$last_selected_unit.id
                                    [/variable]
                                    [then]
                                        [set_variable]
                                            name=able_to_dig[$a].attacks_left
                                            value=0
                                        [/set_variable]
                                        [set_variable]
                                            name=able_to_dig[$a].moves
                                            value=0
                                        [/set_variable]

                                        {VARIABLE_OP able_to_dig[$a].experience add 1}

                                        [unstore_unit]
                                            variable=able_to_dig[$a]
                                            find_vacant=no
                                            text= _ "+$this_unit.level exp"
                                            red,green,blue=50,50,200
                                        [/unstore_unit]
                                        #{CLEAR_VARIABLE newunit}
                                        {CLEAR_VARIABLE able_to_dig}
                                    [/then]
                                [/if]
                            {NEXT a}
                        [/then]
                        [else]
                            [store_unit]
                                variable=able_to_dig
                                [filter]
                                    ability={ABILITY}
                                    side=$side_number
                                    [filter_wml]
                                        moves=$this_unit.max_moves
                                    [/filter_wml]
                                    [filter_adjacent]
                                        x,y=$x1,$y1
                                    [/filter_adjacent]
                                [/filter]
                            [/store_unit]
                            [set_variable]
                                name=able_to_dig[$a].attacks_left
                                value=0
                            [/set_variable]
                            [set_variable]
                                name=able_to_dig[$a].moves
                                value=0
                            [/set_variable]

                            {VARIABLE_OP able_to_dig[$a].experience add 1}

                            [unstore_unit]
                                variable=able_to_dig[$a]
                                find_vacant=no
                                text= _ "+$this_unit.level exp"
                                red,green,blue=50,50,200
                            [/unstore_unit]
                            #{CLEAR_VARIABLE newunit}
                            {CLEAR_VARIABLE able_to_dig}
                        [/else]
                    [/if]
                [/then]
                [else]
                    [message]
                        speaker=narrator
                        side_for=$side_number
                        caption=_ "Error"
                        message= _ "Im not able to dig, sorry."
                        image=wesnoth-icon.png
                    [/message]
                [/else]
            [/if]
            {CLEAR_VARIABLE actualgold}
        [/command]
    [/set_menu_item]
    ####
    ####
    [set_menu_item]
        id=MWC_2_dig_zhelp
        description= _ "Dig Help"
        [show_if]
        [/show_if]

        [filter_location]
            [filter]
                type=Mwc_Dwarvish Miner
                side=$side_number
            [/filter]
        [/filter_location]
        [command]
            [message]
                speaker=narrator
                side_for=$side_number
                caption=_ "Help"
                message= _ "To dig a unit right-click on adjacent hexes near a selected diger.
                    
You need all movement points (and remaining attacks) to dig in cave walls.
Every digging adds +1 to current experience.

If there are 2 or more diggers, cave will be digged by the last selected unit able to dig."
                image=wesnoth-icon.png
            [/message]
        [/command]
    [/set_menu_item]
#enddef

edit 3:

Fixed , with a bit help of Dugi, this formula dont work when its in filter units cant go by this filter...

Spoiler:

Code: Select all

#define ABILITY_MWC_DIG
    [dummy]
        id=MWC_dig
        name= _ "Dig"
        description= _ "Dig:
this unit can dig in cave walls (when this unit have atleast 3 mp)."
    [/dummy]
[/abilities]

[event]
    name=start
    [if]
        [have_unit]
            ability=MWC_dig
        [/have_unit]
        [then]
            {DIG_MENU}
        [/then]
    [/if]
[/event]

[event]
    name=recruit
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[event]
    name=post_advance
    [filter]
        ability=MWC_dig
    [/filter]
    {DIG_MENU}
[/event]

[+abilities]
#enddef

#define DIG_MENU
    {DIG_MENU_ITEM}
#enddef

Spoiler:

Code: Select all

#define DIG_DIGGING
	[set_variable]
		name=random_dummy_dig
		rand=1..50
	[/set_variable]
	[switch]
		variable=random_dummy_dig
		[case]
			value=1,2,3,4,5,6,7,8
			[terrain]
				x,y=$x1,$y1
				terrain=Uu
			[/terrain]
		[/case]
		[case]
			value=9,10,11,12,13,14,15,16
			[terrain]
				x,y=$x1,$y1
				terrain=Uue
			[/terrain]
		[/case]
		[case]
			value=17,18,19,20,21,22
			[terrain]
				x,y=$x1,$y1
				terrain=Ur
			[/terrain]
		[/case]
		[case]
			value=23,24,25,26,27,28
			[terrain]
				x,y=$x1,$y1
				terrain=Urb
			[/terrain]
		[/case]
		[case]
			value=29,30,31,32,33
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Uf
			[/terrain]
		[/case]
		[case]
			value=34,35,36,37,38
			[terrain]
				x,y=$x1,$y1
				terrain=Uh
			[/terrain]
		[/case]
		[case]
			value=39
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Vud
			[/terrain]
		[/case]
		[case]
			value=40
			[terrain]
				x,y=$x1,$y1
				terrain=Uu^Vu
			[/terrain]
		[/case]
		[case]
			value=41,42,43,44
			[terrain]
				x,y=$x1,$y1
				terrain=Cud
			[/terrain]
		[/case]
		[case]
			value=45,46,47
			[terrain]
				x,y=$x1,$y1
				terrain=Wwf
			[/terrain]
		[/case]
		[case]
			value=48,49,50
			[terrain]
				x,y=$x1,$y1
				terrain=Sm
			[/terrain]
		[/case]
	[/switch]
	{CLEAR_VARIABLE random_dummy_dig}
#enddef

Spoiler:

Code: Select all

#define DIG_MENU_ITEM
    [set_menu_item]
        id=MWC_dig_menu
        description= _ "dig"
        [show_if]
        [/show_if]

        [filter_location]
            [filter_adjacent_location]
                [filter]
                    ability=MWC_dig
                    side=$side_number
                    #[filter_wml]
                    #    moves=$this_unit.max_moves
                    #[/filter_wml]	
					[and]
						[filter_wml]
							moves=3
						[/filter_wml]
						[or]
							[filter_wml]
								moves=4
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=5
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=6
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=7
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=8
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=9
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=10
							[/filter_wml]
						[/or]
					[/and]
                [/filter]
            [/filter_adjacent_location]
			terrain=X*,X*^Ii
        [/filter_location]
        [command]
			[unit]
			    type=Mwc_Peasant
			    side=$side_number
			    x,y=$x1,$y1
			    moves=0
			    animate=no
			[/unit]
			{DIG_DIGGING}
			
			[store_unit]
				[filter]
					[filter_adjacent]
						x,y=$x1,$y1
					[/filter_adjacent]
					ability=MWC_dig
					side=$side_number
					[and]
						[filter_wml]
							moves=3
						[/filter_wml]
						[or]
							[filter_wml]
								moves=4
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=5
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=6
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=7
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=8
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=9
							[/filter_wml]
						[/or]
						[or]
							[filter_wml]
								moves=10
							[/filter_wml]
						[/or]
					[/and]
				[/filter]
				variable=able_to_dig
			[/store_unit]
			{FOREACH able_to_dig a}
				[set_variable]
					name=able_to_dig[$a].moves
					sub=3
				[/set_variable]

				{VARIABLE_OP able_to_dig[$a].experience add 1}

				
				[unstore_unit]
					variable=able_to_dig[$a]
					find_vacant=no
					text= _ "+$this_unit.level exp"
					red,green,blue=50,50,200
				[/unstore_unit]
				{CLEAR_VARIABLE able_to_dig}
			{NEXT a}
			[kill]
				type=Mwc_Peasant
				x,y=$x1,$y1
				animate=no
			[/kill]
        [/command]
    [/set_menu_item]
    ####
    ####
    [set_menu_item]
        id=MWC_2_dig_zhelp
        description= _ "Dig Help"
        [show_if]
        [/show_if]

        [filter_location]
            [filter]
                ability=MWC_dig
                side=$side_number
            [/filter]
        [/filter_location]
        [command]
            [message]
                speaker=narrator
                side_for=$side_number
                caption=_ "Help"
                message= _ "To dig a unit right-click on adjacent hexes near a selected diger.
                    
You need 3 movement points to dig in cave walls.
Every digging adds +1 to current experience.

If there are 2 or more diggers, cave will be digged by the last selected unit able to dig."
                image=wesnoth-icon.png
            [/message]
        [/command]
    [/set_menu_item]
#enddef

[pyrophorus]

Actually, what you want is:
- first select a digger.
- right-click a cave wall to dig it ?
If so, I think I can do something for you...

Friendly,