I Need Help Egg

   #ifdef __RAISE_PET
#ifdef __WORLDSERVER
	BOOL bPet;
	BYTE nKind;
	CUser *pUser = ((CUser*)this);//Momentan User der die scroll auslöst
		CPet* pPet	= pUser->GetPet();//Pet hohlen
	if( pPet && pUser->GetPet()->GetLevel() != PL_EGG )//IST ES HÖHER ALS EGG?
	{
		return FALSE;
	}
	if( pItemProp->dwID == II_SYS_LION )//LÖWE
	{
		nKind = 1;
		bPet = FALSE;
	}
	else if( pItemProp->dwID == II_SYS_RABBIT )//HASE
	{
		nKind = 2;
		bPet = FALSE;
	}
		else if( pItemProp->dwID == II_SYS_TIGER )//TIGER
	{
		nKind = 0;
		bPet = TRUE;
	}
		else if( pItemProp->dwID == II_SYS_HORSE )//PFERD
	{
		nKind = 6;
		bPet = TRUE;
	}
		else if( pItemProp->dwID == II_SYS_DRAGON )//DRACHE
	{
		nKind = 4;
		bPet = TRUE;
	}
			else if( pItemProp->dwID == II_SYS_HIPPOGRIPH )//HIPPOGREIF
	{
		nKind = 5;
		bPet = TRUE;
	}
			else if( pItemProp->dwID == II_SYS_FOX )//FUCHS
	{
		nKind = 3;
		bPet = TRUE;
	}
	if( bPet == TRUE)//SCROLL OF RAISE PET ?
	{
	if( IsValidObj( pUser ) == FALSE )//FEHLER ABGFRAGE
		return TRUE;

	if( pPet == NULL )	//FEHLER ABFRAGE
		return TRUE;

	// kind
	if( nKind >= PK_MAX ) //FEHLER ABFRAGE
		return TRUE;

	// exp
	BYTE nExpRate	= 99; //EXP RATE

	BYTE nLevel		= 5;// S KLASSE

	if( nLevel > PL_S ) //FEHLER CODE ABFRAGE
		return TRUE;

	
	BYTE nLife; //LIFE
		nLife	= 99;//LEBEN AUF 99 SETZEN

	CItemElem* pItemElem2	= pUser->GetPetItem();
	pPet->SetKind( nKind );//ART DES PETS
	pPet->SetLevel( nLevel );//LEVEL SETZEN
	if( nLevel == PL_EGG )
		pPet->SetKind( 0 );	// initialize
	pItemElem2->m_dwItemId	= pPet->GetItemId();
	pPet->SetEnergy( pPet->GetMaxEnergy() );//MAXIMALE ENERGY
	DWORD dwExp		= pPet->GetMaxExp() * nExpRate / 100;
	pPet->SetExp( dwExp );

	for( int i = 0; i < 6; i++ )//LEVEL SETZEN
		pPet->SetAvailLevel( i, 9 );


	pPet->SetLife( nLife );//DIE LEBEN SETZEN

	if( pUser->HasPet() )
		pUser->RemovePet();//EGG REINHOHLEN

	g_dpDBClient.CalluspPetLog( pUser->m_idPlayer, pItemElem2->GetSerialNumber(), 0, PETLOGTYPE_LEVELUP, pPet );

	pUser->AddPet( pPet, PF_PET_GET_AVAIL );	// PET EINFÜGEN
	g_UserMng.AddPetLevelup( pUser, MAKELONG( (WORD)pPet->GetIndex(), (WORD)pPet->GetLevel() ) );	// öâ
	pUser->UpdateItem( (BYTE)pItemElem->m_dwObjId, UI_NUM, 0 );//SCROLL LÖSCHEN
	return TRUE;
	}
#endif//__WORLDSERVER
#endif//__RAISE_PET