Threaded Mode | Linear Mode

Skul · 09-30-2014 02:55 AM

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

Threaded Mode \| Linear Mode fishing latest nightly
Author	Message