pcheat >NIL:
if exists s:cleanhammer
  whdload pphammer.slave preload
  execute s:cleanhammer
  delete >NIL: s:cleanhammer
  quit
else
  quit
endif
