#30000
Look At Player~
0 g 100
~
if %fisherman_is_walking%
    halt
end
wait 2s
%send% %actor% The aged fisherman lifts his head and looks up at you at you.
%echoaround% %actor% The aged fisherman lifts his head to look at %actor.name%.
wait 3s
%echo% The aged fisherman lowers his head.
~
#30001
Fisherman Looked At~
0 c 0
l~
if %arg% == fisherman && %cmd.mudcommand% = look
    %send% %actor%    He looks fairly old and experienced.  It also looks like he has a story to 
    %send% %actor% tell, but no one chooses to speak to him.    
    %send% %actor% An aged fisherman is in excellent condition.
    %echoaround% %actor% %actor.name% looks at an aged fisherman.
    wait 2s
    %send% %actor% The fisherman lifts his head and looks at you.
    %echoaround% %actor% The fisherman lifts his head and looks at %actor.name%.
    wait 2s
    tell %actor.name% Have you ever been to Lake Skeldrach?
    wait 25
    tell %actor.name% Strange and eerie place it is... but theres great fishing!
    wait 29
    tell %actor.name% I'ld show you the way for 2 gold, but I won't stay with you...
    wait 34
    shrug
    emote lowers his head to its former position.
    halt
end
return 0
~
#30002
Fisherman Life~
0 m 0
~
if %amount% < 200
    slap %actor.name%
    say I said 2 gold dipshit!
    give %amount% copper %actor.name%
    halt
end
if %amount%-200 > 0
    say I think have change...
    wait 2s
    emote rumages through his pockets.
    wait 4s
    give %amount%-2000 copper %actor.name%
end
say Ok lets go, mind you, I'll only take you part of the way...
%force% %actor.name% follow fisherman
stand
wait 2s
eval dest 30007
eval fisherman_is_walking 1
global fisherman_is_walking
while %self.room% != %dest%
    pathto movedir %dest%
    if %random.7% == 5
        emote scratches his head.
        wait 2s
        say Hmmm let me think...
        wait 2s
        wait %random.5%s
        say Aha!
    end
    %movedir%
    wait 1s
    wait %random.3%s
done
eval fisherman_is_walking 0
global fisherman_is_walking
say This is as far as I go, the lake is just south of here.
wait 2s
%force% %actor.name% follow self
wait 3s
eval dest 30003
eval fisherman_is_walking 1
global fisherman_is_walking
while %self.room% != %dest%
    pathto movedir %dest%
    %movedir%
    wait 1s
    wait %random.3%s
done
eval fisherman_is_walking 0
global fisherman_is_walking
sit bench
sigh
say Home sweet home!
wait 4s
rest
wait 10s
sleep
wait 5t
wake
say Off to anapest for the day...
stand
eval dest 12516+%random.83%
eval fisherman_is_walking 1
global fisherman_is_walking
while %self.room% != %dest%
    pathto movedir %dest%
    %movedir%
    wait 1s
    wait %random.3%s
done
eval fisherman_is_walking 0
global fisherman_is_walking
sit
unset fisherman_is_walking
~
#30003
Fisherman Birth~
0 n 100
~
eval dest 12516+%random.83%
say Off to anapest for the day...
wait 5s
stand
eval fisherman_is_walking 1
global fisherman_is_walking
while %self.room% != %dest%
    pathto movedir %dest%
    %movedir%
    wait 1s
    wait %random.3%s
    pathto movedir %dest%
    %movedir%
    wait 1s
    wait %random.3%s
done
eval fisherman_is_walking 0
global fisherman_is_walking
sit
unset fisherman_is_walking   
~
#30004
Fisherman Bodily Functions~
0 b 5
~
switch %random.6%
  case 1
    burb
    break
  case 2
    cough
    break
  case 3
    drool
    break
  case 4
    fart
    break
  case 5
    yawn
    break
  case 6
    stroke self
    break
   default
     say Life sucks.
      break
done
~
$~