void main()
{
  int index, iLev;
  string sLevels;
  object oPC = GetExitingObject();
  iLev = GetCurrentHitPoints( oPC );
  sLevels = "HP=" + IntToString( iLev ) + ";";
  for( index = 0; index < 622; index++ )
  {
    iLev = GetHasSpell( index, oPC );
    if ( iLev > 0 )
      sLevels += "S" + IntToString( index ) + "=" + IntToString( iLev ) + ";";
  }
  for( index = 0; index < 480; index++ )
  {
    iLev = GetHasFeat( index, oPC );
    if ( iLev > 0 )
      sLevels += "F" + IntToString( index ) + "=" + IntToString( iLev ) + ";";
  }
  SetCampaignString( "mycampaign", GetName( oPC ) + "Levels", sLevels );
}