[Source] PenyaToPerin

[[LS]Michael]

wollte eine function schreiben die penya in perin umtauscht blos irgendwie erfüllt sie nicht ihre aufgabe würde mich freuen wen mir einer helfen kann woran das liegt

PHP Code:

BOOL TextCmd_penyatoperin( CScanner& scanner )
{
scanner.GetToken();
#ifdef __WORLDSERVER
    DWORD dwNum;
    DWORD dwCharged        = 0;
    CItemElem itemElem;
    CUser* pUser    = (CUser*)scanner.dwValue;
    CWorld* pWorld    = pUser->GetWorld();
        int MaxPenya = pUser->GetGold();
        int Count = 0;
            while( MaxPenya >= 100000000 )
            {
                Count += 1;
                MaxPenya -= 100000000;
            }
            dwNum = Count;
        itemElem.m_dwItemId        = 26456;
        itemElem.m_nItemNum        = (short)( dwNum );
        pUser->AddGold( (Count*100000000) * (-1) );
        pUser->CreateItem( &itemElem);//, &nId 
        g_dpDBClient.SavePlayer( pUser, pWorld->GetID(), pUser->GetPos(), pUser->GetLayer() );
        char message[255];
        sprintf( message, "You received %d %s", Count, itemElem.GetName() );
    #endif    // __WORLDSERVER
return TRUE;
} 


[DarknessFighter]

Frag mal sedrika, er hat es auch.

[[LS]Michael]

der gibt mir ja kein support^^

[lolix3]

Hier ersetz die Funktion in User.cpp

PHP Code:

void CUser::AddGoldText( int nPlus )
{
    char szPlus[64];
    char szGold[64];

    sprintf( szPlus, "%d", nPlus );
    sprintf( szGold, "%d", GetGold() );

    CString strPlus = GetNumberFormatEx( szPlus );
    CString strGold = GetNumberFormatEx( szGold );

    if( GetGold() > 2100000000 &&  this->m_Inventory.GetEmptyCount() == 0 && CMover::GetPerinNum() > 0 )
    {
        CItemElem pItem;
        pItem.m_nItemNum = CMover::GetPerinNum() + 21;
        pItem.m_bCharged = TRUE;
        pItem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
        BYTE nID;
        CMover::RemovePerin( CMover::GetPerinNum() );
        CreateItem( &pItem, &nID );
        AddGold( -2100000000 );
        AddDefinedText( TID_GAME_MAKEPERIN );
    }
    else if (GetGold() > 2100000000 &&  this->m_Inventory.GetEmptyCount() > 0 && CMover::GetPerinNum() == 0)
    {
        CItemElem pItem;
        pItem.m_nItemNum = 21;
        pItem.m_bCharged = TRUE;
        pItem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
        BYTE nID;
        CreateItem( &pItem, &nID );
        AddGold( -2100000000 );
        AddDefinedText( TID_GAME_MAKEPERIN );
    }
    else if (GetGold() > 2100000000 &&  this->m_Inventory.GetEmptyCount() > 0 && CMover::GetPerinNum() > 1)
    {
        CItemElem pItem;
        pItem.m_nItemNum = 21;
        pItem.m_bCharged = TRUE;
        pItem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
        BYTE nID;
        CreateItem( &pItem, &nID );
        AddGold( -2100000000 );
        AddDefinedText( TID_GAME_MAKEPERIN );
    }
    else if (GetGold() > 2100000000 &&  this->m_Inventory.GetEmptyCount() == 0 && CMover::GetPerinNum() == 0)
    {
        AddDefinedText( TID_GAME_MAKEPERIN_FAILURE );
    }

    AddDefinedText( TID_GAME_REAPMONEY, "%s %s", strPlus, strGold );
} 


Dann DefineText.h (Source & Resource)

PHP Code:

#define TID_GAME_MAKEPERIN 4702
#define TID_GAME_MAKEPERIN_FAILURE 4703 


textClient.inc

PHP Code:

TID_GAME_MAKEPERIN    0xffbb00
{
    IDS_TEXTCLIENT_INC_100000
}
TID_GAME_MAKEPERIN_FAILURE    0xff0000
{
    IDS_TEXTCLIENT_INC_100001
} 


textClient.txt.txt

PHP Code:

IDS_TEXTCLIENT_INC_100000    Es wurden 21 Perins erstellt. Der Betrag wurde von deinen Penya abgezogen.
IDS_TEXTCLIENT_INC_100001    Es konnten keine Perins erstellt werden, bitte prüfe dein Inventar. 


Perin Stacks werden beibehalten, es werden nur Perins erstellt / Penya abgezogen wenn Inventar Platz hat, oder ein Perin Stack vorhanden ist. Es wird eine (goldene xD) Nachricht ausgegeben, wenn die Perins erstellt wurden, oder eine (rote) ausgegeben, wenn kein Platz im Inventar ist.

Credits by Yakuzai.

Hoffe es ist das was du brauchst, oder brauchen kannst.

Gruss lolix3 ;>

[[LS]Michael]

optimal wäre ja noch wen ich meine function auch zum laufen griege

[Jopsi332]

BOOL TextCmd_penyatoperin( CScanner& scanner )
{
scanner.GetToken();
#ifdef __WORLDSERVER
	DWORD dwCharged		= 0;
	CItemElem itemElem;
	CUser* pUser	= (CUser*)scanner.dwValue;
	CWorld* pWorld	= pUser->GetWorld();
		int MaxPenya = pUser->GetGold();
		int Count = 0;
			while( MaxPenya >= 100000000 )
			{
				Count += 1;
				MaxPenya -= 100000000;
			}

        itemElem.m_nItemNum = CMover::GetPerinNum() + Count;
        itemElem.m_bCharged = TRUE;
	itemElem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
        BYTE nID;
        pUser->CreateItem( &pItem, &nID );
        pUser->AddGold( (Count*100000000) * (-1) );
		g_dpDBClient.SavePlayer( pUser, pWorld->GetID(), pUser->GetPos(), pUser->GetLayer() );
CString message;
message.Format( "You received %d %s", Count, itemElem.GetName() );
pUser->AddText(message);

#endif	// __WORLDSERVER
return TRUE;
}

vllt. so?

[alfredico]

itemElem.m_nItemNum = CMover::GetPerinNum() + Count;

short for get ammount.

[Sedrika]

Originally Posted by [LS]Michael

der gibt mir ja kein support^^

Ich hab es dir doch noch gestern per ICQ geschrieben....

PHP Code:

BOOL TextCmd_PenyaToPerin( CScanner& scanner )
{
#ifdef __WORLDSERVER
    CUser* pUser = (CUser*)scanner.dwValue;

    CItemElem itemElem;
    itemElem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
    itemElem.m_nItemNum = 0;
    itemElem.m_bCharged = TRUE;
    BYTE nId;

    int MaxPenya = pUser->GetGold();
    int Count = 0;
    while( MaxPenya >= 100000000 ){
        Count += 1;
        MaxPenya -= 100000000;
    }

    itemElem.m_nItemNum = Count;
    pUser->AddGold( (Count*100000000) * (-1) );

    DWORD dwRetVal = pUser->CreateItem( &itemElem, &nId );

    char message[255];
    if( dwRetVal ){
        sprintf( message, "You received %d %s", Count, itemElem.GetName() );
    }else{
        sprintf( message, "%d %s has been send to your PostBox", Count, itemElem.GetName() );
        LogItemInfo aLogItem;
        aLogItem.Action = "S";
        aLogItem.SendName = pUser->GetName();
        aLogItem.WorldId = pUser->GetWorld()->GetID();
        aLogItem.Gold = aLogItem.Gold2 = pUser->GetGold();

        g_dpDBClient.SendQueryPostMail( pUser->m_idPlayer, 0, itemElem, 0, "", "" );
        aLogItem.RecvName = "PenyaToPerin";
        g_DPSrvr.OnLogItem( aLogItem, &itemElem, itemElem.m_nItemNum );
    }
    pUser->AddText( message );
#endif //__WORLDSERVER
    return TRUE;
} 


Und es funktioniert...

[[LS]Michael]

Schau mal Aufe zeit