Threaded Mode | Linear Mode

**darksun84** · (05-12-2017)

I managed to script the sand diggin with a shovel with the appropriate use of the mining skill, it seems to work.

Code:

[REGIONRESOURCE mr_sand]

AMOUNT=1,10

REAP=i_sand

REAPAMOUNT=1,3

SKILL=60.0,110.0

REGEN=60*60*10

[REGIONTYPE r_default_sand t_sand]

resources = 10.0 mr_nothing

resources = 90.0 mr_sand

[FUNCTION createSandGem]

//Thank sto CALCMEMBERINDEX we get the appropriate resource according to our skill level and its defname

local.resTypeIndex =  <serv.regiontype.r_default_sand.CALCMEMBERINDEX <uid>>

local.resTypeName = <serv.regiontype.r_default_sand.resources.<eval <local.resTypeIndex> + 1>.key>

serv.log Resource found: <serv.regiontype.r_default_sand.resources.<eval <local.resTypeIndex> + 1>.key>

//Calculate the amount range based on the resource found

local.resTypeRangeAmount = <serv.regionresource.<local.resTypename>.amount>

serv.log Amount range: <local.resTypeRangeAmount>

//Calculate the timer

local.resTypeTimer = <serv.regionresource.<local.resTypename>.regen>

serv.log Regen time: <dlocal.resTypeTimer>

//Create the gembit

serv.newitem i_worldgem_bit,<R<local.resTypeRangeAmount>>

new.timer = <dlocal.resTypeTimer>

new.attr = attr_decay|attr_invis|attr_move_never

//Set the appropriate  more1

new.type = t_rock

new.more1 = <local.resTypeName>

new.p = <targp>

new.z = <targp.z>

[ITEMDEF i_shovel_sand]

id=i_shovel

name=Sand Shovel

type=t_weapon_mace_pick

ON=@Create

hitpoints = 100

color = 035

ON=@Dclick

if ( !<cont> ) && ( <topobj> != <src> )

    src.sysmessage You have to put the <name> in your backpack.

    return 1

endif

ON=@TargOn_ground

if <src.distance <src.targp>> <= <serv.skill.skill_mining.range>

    if <serv.map(<src.targp>).type> == t_sand

        src.emote start digging for sand

        //We create a gem bit.

        src.createSandGem

        //Timerf seems to be needed otherwise sometime the skill is called before the gem creation

        src.timerf 2,src.skill 45

    else

        src.emote can't dig sand here.

        return 1

    endif

else

    src.sysmessage Too far away

    return 1

endif

Threaded Mode \| Linear Mode want to dig sand
Author	Message