fishing latest nightly - Printable Version

PHP Code:

[SKILL 18]
DEFNAME=Skill_Fishing
KEY=Fishing
TITLE=Fisher%s
FLAGS=SKF_GATHER
PROMPT_MSG=What water do you want to fish in?
DELAY=8.0
RANGE=4
STAT_STR=40
STAT_INT=30
STAT_DEX=40
BONUS_STR=10
BONUS_DEX=90
BONUS_INT=0
BONUS_STATS=25
ADV_RATE=2.5,50.0,200.0
VALUES=1,30,200

ON=@PreStart
    IF (<SRC.FINDLAYER.layer_horse>)
        SRC.SYSMESSAGE You can't fish while riding!
        return 1
    ENDIF
    IF (<SRC.FINDLAYER.2.USESCUR>< 1)
        SRC.SYSMESSAGE The tool is out of charges.
        return 1
    ENDIF

ON=@Start
    ANIM 12
    SERV.NEWITEM i_memory_fishing_splash
    NEW.LINK=<UID>
    NEW.P=<ACT.P>

ON=@Success
    ACTARG2=1        // 1 will pack the resource, 0 place it on the ground.
    SRC.FINDLAYER.2.USESCUR --

ON=@Fail
    SRC.SYSMESSAGE You fish a while, but fail to catch anything.

ON=@Abort
    SRC.SYSMESSAGE You pull your line back in and stop fishing.

ON=@Stroke
    IF (<SRC.FINDLAYER.layer_horse>)
        SRC.SYSMESSAGE You can't fish while riding!
        return 1
    ENDIF
    // Damage for Fishing Poles was never active, I add it here anyway.
    //IF ( <SERV.EXPERIMENTAL>&00002000)        // EF_DamageTools
    //    IF (<SRC.FINDLAYER.2.HITS> > 0)
    //        SRC.FINDLAYER.2.DAMAGE <eval <maxhits>*2>,DAM_PHYSICAL,<SRC>
    //    ELSE
    //        SRC.FINDLAYER.2.DESTROY
    //    ENDIF
    //ENDIF

[ITEMDEF i_memory_fishing_splash]
ID=i_memory

ON=@Create
ATTR=attr_move_never|attr_decay
TIMERD=15
IF (<TIMERD> > <SERV.SKILL.FISHING.DELAY>)    // We don't want to fire the splash after the fish success so a check for skill's delay is needed.
 TIMERD=<eval <SERV.SKILL.FISHING.DELAY>/2>
ENDIF

ON=@Timer
IF (<LINK.ACTION> == skill_fishing)        // Check out if cont is still fishing, otherwise we don't want the effect.
 EFFECT 2,0352D,4,16
 SOUND 0364
ENDIF

Code:

[SKILL 18]

DEFNAME=Skill_Fishing

KEY=Fishing

TITLE=Fisher

PROMPT_MSG=What water do you want to fish in?

DELAY=2.5

STAT_STR=0

STAT_INT=0

STAT_DEX=0

BONUS_STR=0

BONUS_DEX=0

BONUS_INT=0

BONUS_STATS=0

ADV_RATE=0.1,50.0,150.0

VALUES=1,30,200

RANGE=6

FLAGS=SKF_GATHER|SKF_NOMINDIST



ON=@START

LOCAL.CRAFTSTROKECNT=1

ANIM=11

SOUND=39

SERV.NEWITEM=0352d

NEW.ATTR=attr_move_never|attr_decay

NEW.P=<TARGP>

NEW.TIMER=2



ON=@TRY

IF ( <FLAGS> & statf_polymorph )

    SYSMESSAGE=You can not do that in your state.

    RETURN 1

ENDIF



ON=@SUCCESS

//lengthy code



ON=@ABORT

IF !(<TAG0.FISHINGFAIL>)

    TIMERF 1, f_fishing_abort

ENDIF

CTAG.TARGP=

CTAG.RESOURCE=

TAG.ACTITEM=

TAG.FIGHINGFAIL=



ON=@FAIL

IF !(<TAG0.FISHINGFAIL>)

    MESSAGE You find nothing useful.

ENDIF

CTAG.TARGP=

CTAG.RESOURCE=

TAG.ACTITEM=

TAG.FIGHINGFAIL=



[FUNCTION f_fishing_abort]

IF (<SERV.SKILL.<ACTION>.KEY>==fishing)

    MESSAGE You reel the line in and cast out again.

ELSE

    MESSAGE You reel the line in.

ENDIF