Система Donate и Coins

[Пельмень]

Здравствуйте Ув.Форумчане сейчас я расскажу вам как сделать сис-му доната на койнах

И так начнём

К enum pInfo добавляем

pCoin,

В public OnPlayerConnect добавьте

PlayerInfo[playerid][pCoin] = 0;

В public OnPlayerRegister добавьте

format(var, 32, "Coin=%d\n",PlayerInfo[playerid][pCoin]);fwrite(hFile, var);

В public OnPlayerUpdate или же public SavePlayer добавьте

format(var, 32, "Coin=%d\n",PlayerInfo[playerid][pCoin]);fwrite(hFile, var);

в public OnPlayerLogin добавьте

if( strcmp( key , "Coin" , true ) == 0 )  val = ini_GetValue( Data ); PlayerInfo[playerid][pCoin] = strval( val );

Теперь добавим команду в public OnPlayerCommandText

//----------------------------------[Donate]-----------------------------------------------

	if (strcmp("/donate", cmdtext, true) == 0)  return ShowPlayerDialog(playerid, 2612, DIALOG_STYLE_LIST, "Донат","+1LvL\n- +1000000$\n- Gold VIP", "Ок", "Отмена");

Добавим Диалог в public OnDialogResponse

	if(dialogid==2612)
{
    if(response)
	if(listitem==0)
	{
		PlayerInfo[playerid][pLevel]++;
		PlayerInfo[playerid][pCoin]-=40;
		SendClientMessage(playerid, COLOR_NEWS,"::Спасибо за помощь серверу вам выдано: +1 к уровню");
	}
	else if(listitem==1)
	{
		GivePlayerMoney(playerid, 1000000);
		PlayerInfo[playerid][pCoin]-=40;
		SendClientMessage(playerid, COLOR_NEWS,":: Спасибо за помощь серверу вам выдано: 1.000.000$");
	}
	else if(listitem==2)
	{
		PlayerInfo[playerid][pDonateRank] = 100500;
		PlayerInfo[playerid][pCoin]-=40;
		SendClientMessage(playerid, COLOR_NEWS,":: Спасибо за помощь серверу вам выдано: Gold Account");
	}
}

Добавляем команду для смены кол-ва Койнов
в public OnPlayerCommandText

//----------------------------------[Coin]------------------------------------------------
    if(strcmp(cmd, "/coin", true) == 0)
    {
        if(IsPlayerConnected(playerid))
        {
            tmp = strtok(cmdtext, idx);
            if(!strlen(tmp)) return SendClientMessage(playerid, COLOR_GRAD2, "Используйте: /coin [playerid/PartOfName] [Coins]");
            new playa,coin;
            playa = ReturnUser(tmp);
            tmp = strtok(cmdtext, idx);
            coin = strval(tmp);
            if (PlayerInfo[playerid][pAdmin] < 8) return SendClientMessage(playerid, COLOR_GRAD1, "У вас недостаточно прав для использования данной команды.");
            if(IsPlayerConnected(playa))
            if(playa != INVALID_PLAYER_ID) format(string, sizeof(string), "- Донат Счётчик: %d/10000000 Coins", PlayerInfo[playa][pCoin]),PlayerInfo[playa][pCoin]=coin;
        }
        return 1;
    }

Делаем команду чтобы выдавать койны

в public OnPlayerCommandText:

	if(strcmp(cmd, "/givecoin", true) == 0)
{
    if(IsPlayerConnected(playerid))
    {
        tmp = strtok(cmdtext, idx);
        if(!strlen(tmp)) return SendClientMessage(playerid, COLOR_GRAD2, " Используйте: /givecoin [playerid/PartOfName] [coin]");
        new playa, coin;
        playa = ReturnUser(tmp);
        tmp = strtok(cmdtext, idx);
        coin = strval(tmp);
        if (PlayerInfo[playerid][pAdmin] < 8) return SendClientMessage(playerid, COLOR_GRAD1, "У вас недостаточно прав для использования данной команды!");
        if(IsPlayerConnected(playa))
		if(playa != INVALID_PLAYER_ID) PlayerInfo[playerid][pCoin] += coin;
    }
    return 1;
}

By Jesse_Rich

Update:26.01.12
1.Добавленны команды для выдачи койнов из игры
2.Диалоги сделаны в DIALOG_STYLE_LIST