if (!$hget(peak)) { hmake peak }
if ($exists(peak.hsh)) { hload peak peak.hsh }
In the on :connect and on :load events change to:
if (!$hget(peak)) hmake peak
else hload peak peak.hsh
Instead of checking twice, it skips straight to the next bit, making it faster.
Taking out the brackets also makes it faster.