Welcome!

Join our community of MMO enthusiasts and game developers! By registering, you'll gain access to discussions on the latest developments in MMO server files and collaborate with like-minded individuals. Join us today and unlock the potential of MMO server development!

Join Today!

Auto Make Perin

IManuelI96

IManuelI96

Newbie Spellweaver
10 Happy Years
Joined
Apr 28, 2011
Messages
38
Reaction score
8
Hi is my first Post
First in Source

Code: 
Firts Open User.cpp and Search

[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 );

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

And Remplace for
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 );

}
[/CODE]
Ok now in Resource
Code: 
First Open definetext.h and add
[CODE]#define TID_GAME_MAKEPERIN	 4702
#define TID_GAME_MAKEPERIN_FAILURE	 4703
now open textClient.inc and add
Code: 
TID_GAME_MAKEPERIN	0xffbb00
{
	IDS_TEXTCLIENT_INC_100000
}
TID_GAME_MAKEPERIN_FAILURE	0xff0000
{
	IDS_TEXTCLIENT_INC_100001


}
And finally open textClient.txt.txt and add
Code: 
IDS_TEXTCLIENT_INC_100000	21 perins have been created, penya has been reduced of your money.
IDS_TEXTCLIENT_INC_100001	the perins not been able to create, Please check your inventory / Penya deducted when your inventory, place, or perin´s stack is available. There is a  output message when the Perins were created, or a (red) output message when there is no room in the inventory
[/CODE]

Congratulation! you now have auto make perin in yours flyff any question comment in post and Sorry for my bad english ;)
Credits by Yakuzai
flyff00001 - Auto Make Perin - RaGEZONE Forums
 

Attachments

You must be registered for see attachments list
Last edited:
The Best DDoS Protected Servers
reivic

reivic

Newbie Spellweaver
10 Happy Years
Joined
Oct 9, 2010
Messages
22
Reaction score
11
Nice steal of the Yakuzai code..
if you want to post some things that is not you, write the credits.
 
Tex0

Tex0

Newbie Spellweaver
10 Happy Years
Joined
Oct 7, 2010
Messages
70
Reaction score
24
It would be nice if you have the choice between "Auto-Convert" and "Not Auto-Convert" in the Neuz.ini
 
wataru

wataru

Junior Spellweaver
10 Happy Years
Joined
Jan 25, 2010
Messages
151
Reaction score
16
IManuelI96 said:
Hi is my first Post
First in Source

Code: 
Firts Open User.cpp and Search

[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 );

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

And Remplace for
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 );

}
[/CODE]
Ok now in Resource
Code: 
First Open definetext.h and add
[CODE]#define TID_GAME_MAKEPERIN	 4702
#define TID_GAME_MAKEPERIN_FAILURE	 4703
now open textClient.inc and add
Code: 
TID_GAME_MAKEPERIN	0xffbb00
{
	IDS_TEXTCLIENT_INC_100000
}
TID_GAME_MAKEPERIN_FAILURE	0xff0000
{
	IDS_TEXTCLIENT_INC_100001


}
And finally open textClient.txt.txt and add
Code: 
IDS_TEXTCLIENT_INC_100000	21 perins have been created, penya has been reduced of your money.
IDS_TEXTCLIENT_INC_100001	the perins not been able to create, Please check your inventory / Penya deducted when your inventory, place, or perin´s stack is available. There is a  output message when the Perins were created, or a (red) output message when there is no room in the inventory
[/CODE]

Congratulation! you now have auto make perin in yours flyff any question comment in post and Sorry for my bad english ;)
View attachment 106450
Click to expand...

automatic gain when you kill a monster or by time??
 
Last edited:
Detox

Detox

Now you can tag me!
Loyal Member
1000 Posts 10 Happy Years
Joined
May 26, 2009
Messages
1,649
Reaction score
796
wataru said:
automatic gain when you kill a monster or by time??
Click to expand...

It gives you perins automatically as soon as you get 2,1b I believe.

@On topic

Obviously this is a re-posted script that Yaku created, but it's still a nice contribute to RaGEZONE as this haven't been posted before. Will most likely be useful to those who don't use other forums. When that's said, you should credit the respective owners.
 
Sedrika

Sedrika

Junior Spellweaver
Joined
Sep 16, 2009
Messages
137
Reaction score
103
I would recommend the following as a command:
PHP: 
	ON_TEXTCMDFUNC( TextCmd_PenyaToPerin,          "PenyaToPerin",      "ptp",					"±Ó¼Ó¸»",         "±Ó",      TCM_SERVER, AUTH_GENERAL      , "±Ó¼Ó¸» [/¸í·É ¾ÆÀ̵𠳻¿ë]" )
PHP: 
BOOL TextCmd_PenyaToPerin( CScanner& scanner )
{
#ifdef __WORLDSERVER
	CUser* pUser = (CUser*)scanner.dwValue;
	CWorld* pWorld = pUser->GetWorld();
/*
	if( GetTickCount() - pUser->GetLastBuffTick() <= 1000 ){
		pUser->AddText( "Du musst eine Sekunden warten!" );
		return TRUE;
	}
	
	pUser->SetLastBuffTick( GetTickCount() );
*/
	CItemElem itemElem;
	itemElem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
	itemElem.m_nItemNum = 0;
	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 );
	g_dpDBClient.SavePlayer( pUser, pWorld->GetID(), pUser->GetPos(), pUser->GetLayer() );
#endif //__WORLDSERVER
	return TRUE;
}
 
Jomex

Jomex

~FlyFF DeV~
Joined
Mar 2, 2009
Messages
579
Reaction score
113
Sedrika said:
I would recommend the following as a command:
PHP: 
    ON_TEXTCMDFUNC( TextCmd_PenyaToPerin,          "PenyaToPerin",      "ptp",                    "±Ó¼Ó¸»",         "±Ó",      TCM_SERVER, AUTH_GENERAL      , "±Ó¼Ó¸» [/¸í·É ¾ÆÀ̵𠳻¿ë]" )
PHP: 
BOOL TextCmd_PenyaToPerin( CScanner& scanner )
{
#ifdef __WORLDSERVER
    CUser* pUser = (CUser*)scanner.dwValue;
    CWorld* pWorld = pUser->GetWorld();
/*
    if( GetTickCount() - pUser->GetLastBuffTick() <= 1000 ){
        pUser->AddText( "Du musst eine Sekunden warten!" );
        return TRUE;
    }
    
    pUser->SetLastBuffTick( GetTickCount() );
*/
    CItemElem itemElem;
    itemElem.m_dwItemId = II_SYS_SYS_SCR_PERIN;
    itemElem.m_nItemNum = 0;
    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 );
    g_dpDBClient.SavePlayer( pUser, pWorld->GetID(), pUser->GetPos(), pUser->GetLayer() );
#endif //__WORLDSERVER
    return TRUE;
}
Click to expand...
Sedrika the thing is that it is not mentioned for admins but for normal players to not make them go back to town from exp area....
 
S

ShadowDragon

Flyff Developer
Loyal Member
Joined
Apr 6, 2009
Messages
1,873
Reaction score
384
Jomex said:
Sedrika the thing is that it is not mentioned for admins but for normal players to not make them go back to town from exp area....
Click to expand...

Jomex, read Sedrika's coding closer. The auth level for that command is AUTH_GENERAL, which means players can use it.

Here, I cleaned up your coding and made it less wasteful:
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 );

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

	if( GetGold() > 2100000000 )
	{
		if( m_Inventory.GetEmptyCount() == 0 && GetPerinNum() > 0 )
		{
			CItemElem* pItem = m_Inventory.GetAtItemId( II_SYS_SYS_SCR_PERIN );
			pItem.m_nItemNum += 21;
			AddGold( -2100000000 );
			AddDefinedText( TID_GAME_MAKEPERIN );
		}
		else if ( m_Inventory.GetEmptyCount() > 0 && 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 ( m_Inventory.GetEmptyCount() == 0 && GetPerinNum() == 0)
		{
			AddDefinedText( TID_GAME_MAKEPERIN_FAILURE );
		}
	}

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

Despite what I just posted, there are still bugs to be considered (in the original version as well).
When your inventory is full and the current penya stack gets filled up, there's no failsafe to make sure you get the rest of the perins (like via mail or something).
 
Sedrika

Sedrika

Junior Spellweaver
Joined
Sep 16, 2009
Messages
137
Reaction score
103
You should check if there is any free place in his inventory befor you create the item.

PHP: 
CreateItem( &pItem, &nID );

Is returning a bool value.
If true the items has been created successful else there is no place or something wrong there.

Sry for my bad english xD
 
S

ShadowDragon

Flyff Developer
Loyal Member
Joined
Apr 6, 2009
Messages
1,873
Reaction score
384
Sedrika said:
You should check if there is any free place in his inventory befor you create the item.

PHP: 
CreateItem( &pItem, &nID );

Is returning a bool value.
If true the items has been created successful else there is no place or something wrong there.

Sry for my bad english xD
Click to expand...

I've never used the function before, but from looking at it, the m_Inventory.GetEmptyCount() function returns the number of empty spaces in their inventory. So they're already doing that. The only bug I see, is the one I already mentioned.
 
Sedrika

Sedrika

Junior Spellweaver
Joined
Sep 16, 2009
Messages
137
Reaction score
103
ShadowDragon42 said:
I've never used the function before, but from looking at it, the m_Inventory.GetEmptyCount() function returns the number of empty spaces in their inventory. So they're already doing that. The only bug I see, is the one I already mentioned.
Click to expand...

If there is no empty place in your inventory and you've for e.x. 95perin and 21 should be added there and the maximum is 99 then createitem would not work.
 
iNab

iNab

Junior Spellweaver
Joined
Jan 8, 2012
Messages
100
Reaction score
25
Sedrika said:
If there is no empty place in your inventory and you've for e.x. 95perin and 21 should be added there and the maximum is 99 then createitem would not work.
Click to expand...

Hey Sedrika, if I have less than 100m and inventary full, I got a e-mail with perin (0 value)
[IMG]https://forum.ragezone.com/ima...ve less than 100m? :p Srry for bad english :l
 
S

ShadowDragon

Flyff Developer
Loyal Member
Joined
Apr 6, 2009
Messages
1,873
Reaction score
384
Sedrika said:
If there is no empty place in your inventory and you've for e.x. 95perin and 21 should be added there and the maximum is 99 then createitem would not work.
Click to expand...

>.> I know that, I'm not stupid. That's exactly a problem with the coding that I ALREADY MENTIONED in a previous post.
 
Charles101

Charles101

Experienced Elementalist
Joined
Feb 2, 2012
Messages
241
Reaction score
17
Hi, im new to C++ or programming.
can you tell me how did you get this value?
the one in red fonts.

TID_GAME_MAKEPERIN 0xffbb00
{
IDS_TEXTCLIENT_INC_100000
}
TID_GAME_MAKEPERIN_FAILURE 0xff0000
{
IDS_TEXTCLIENT_INC_100001


}
 
MisterKid

MisterKid

Game Developer
Loyal Member
1000 Posts 10 Happy Years
Joined
Jun 19, 2009
Messages
1,491
Reaction score
460
This topic is in the wrong section.

Also Converting penya to perin in addgoldtext sounds wrong.... And does not belong there :S
@Charles101 it is probably the text color not sure what it is or if it works....
 
  • Like
Reactions: 404
K

Kevynyo

Initiate Mage
Joined
Nov 29, 2012
Messages
1
Reaction score
0
How dafuq am i gonna change this? sorry im not good at changing things but im good at playing :))
 
You must log in or register to reply here.

About Us

RaGEZONE® is a website dedicated to the development of massively multiplayer online role-playing games (MMORPGs).

Online statistics

Members online
249
Guests online
12,078
Total visitors
12,327
Totals may include hidden visitors.

Forum statistics

Threads
429,184
Messages
4,590,846
Members
281,245
Latest member
JirkaMeister
Most visitors online was 12542 , on 28 Apr 2024

RaGEZONE Sponsor

    HyperFilter
Back
Top