#26400
Healing Water~
1 s 100
~
set currenthunger %actor.hunger%
set currentthirst %actor.thirst%
if %currenthunger% > 20 && %currentthirst% > 0
  %send% %actor% Your stomach can't contain anymore!
else
  %send% %actor% The water seems to sparkle refreshingly as you drink.
  %echoaround% %actor% The clear water seems to perk %actor.name% up.
  %send% %actor% The clear water seems to perk %actor.name% up.
  dg_cast 'cure light' %actor%
  return 0
  if %actor.thirst% < 0
  else
    eval newhunger %currenthunger% + 1
    eval newthirst %currentthirst% + 5
    nop %actor.thirst(%newthirst%)%
    nop %actor.hunger(%newhunger%)%
    if %newthirst% > 20
      %send% %actor% You don't feel thirsty any more.
    end
  end
end
~
$~