En attendant de refaire fishing...

[epphyx]

J'ai ce petit script tout gentil pour les pecheurs (mais risqué quand meme)
qui leur permet de gagner avec la canne a peche un bonus (tant qu'ils l'ont équipée) de 10 % (c'est enorme et surement trop) mais qui peut leur attiré des ennuis (enfin sauf si on voit les PG alignés au bord du lac a taquiner le goujon   )
PS ca a été fait pour du 55 ou la fonction iswater marchait pas. je sais pas si en 99 on peut faire plus simple....

///////////////////////////////////////////////
////// La canne a peche merveilleuse //////////
///////////////////////////////////////////////
///////////// par epphyx //////////////////////
///////////////////////////////////////////////


[itemdef i_capm]
name=canne a peche a moulinet
//NOM DE L'ITEM
id=i_fishing_pole
//ID INTERNE ULTERIEURE
type=T_FISH_POLE
// AFFECTATION DU SKIN ET DES PROPRIETES
VALUE=100
// valeur pour l'item id
weight=2
// poids de l'objet
category=Items by Professions
// pour axis
SUBSECTION=pecheur
// pour axis
DESCRIPTION=canne a peche a moulinet
// pour axis
RESOURCES=1 i_log, 1 i_nails, 1 i_thread, 1 i_gears

SKILLMAKE=CARPENTRY 70.1, TAILORING 40.1, tinkering 45.1, t_carpentry ,i_sewing_kit, t_tinker_tools
//competences et items necessaire pour la fabrication

On=@create
color=color_cyan

ON=@equip
   src.fishing=<src.fishing>+10.0

on=@unequip
   src.fishing=<src.fishing>+(-10.0)

on=@dclick
target

on=@targon_ground
src.home=<src.p>
src.p=<src.targp>
if (<SRC.isonwater>)
      src.p=<src.home>
      if (<eval rand(100)>=0)
         src.say humm ca a l'air d'un gros
         src.newnpc c_m_kraken
// un simple serpent de mer serait mieux mais j'avais pas sous la main   
      endif
else
src.p=<src.home>
endif
src.p=<src.home>
//retour maison

//merci a Swindler auteur de la fontion ISONWATER qui suit


[FUNCTION isonwater]
VAR.ISONWATER 0
SRC.NEWNPC c_dummy_dolphin
SRC.ACT.P <SRC.P>
SRC.ACT.HOME <SRC.P>
VAR.PX <SRC.ACT.P.X>
VAR.PY <SRC.ACT.P.Y>
SRC.ACT.dolphin_run nw
SRC.ACT.dolphin_run n
SRC.ACT.dolphin_run ne
SRC.ACT.dolphin_run e
SRC.ACT.dolphin_run se
SRC.ACT.dolphin_run s
SRC.ACT.dolphin_run sw
SRC.ACT.dolphin_run w
SRC.ACT.REMOVE

VAR.PX
VAR.PY

IF (<VAR.ISONWATER> ==
   VAR.ISONWATER
   RETURN 1
ENDIF

VAR.ISWATER
RETURN 0

[CHARDEF c_dummy_dolphin]
ID=c_dolphin

ON=@Click
   RETURN 1

[FUNCTION dolphin_run]
RUN <ARGS>
IF (<P.X> != <VAR.PX> ) || (<P.Y> != <VAR.PY> )
   VAR.ISONWATER <VAR.ISONWATER> + 1
ENDIF
P <HOME>