Доступ к архиву

Переход в группу "Пользователь"

300.00 ₽
Одноразовый платёж
Быстрый переход в группу "Пользователи", без надобности написания постов и ожидания.

Покупка дает возможность:
Быть полноправным участником форума
Нормальное копирование кода
Создавать темы
Скачивать файлы
Доступ к архиву Pawno-Info

Простая система рыбалки [zcmd]

Статус
В этой теме нельзя размещать новые ответы.

mendes_art

Умник
Мини система рыбалки.
Командный процессор на ZCMD

PHP:
#include <a_samp>
#include <zcmd>

new
    fishes[MAX_PLAYERS],
    baits[MAX_PLAYERS]
;

CMD:checkbaits(playerid, params[])
{
    new
        string[128];
    format(string,sizeof(string),"У вас %d приманки!",baits);
    SendClientMessage(playerid,-1,string);
    return 1;
}
CMD:checkfishes(playerid, params[])
{
    new
        string[128];
    format(string,sizeof(string),"У вас %d рыбы!",fishes);
    SendClientMessage(playerid,-1,string);
    return 1;
}
CMD:fish(playerid, params[])
{
    if(baits[playerid] > 1){
        SetTimerEx("fishing", 10000, 0, "i",playerid);
        TogglePlayerControllable(playerid,0);}
    SendClientMessage(playerid,-1,"У вас нету приманки!");
    return 1;
}
CMD:sellfish(playerid, params[])
{
    if(fishes[playerid] > 1){
    new
        string[128];
    format(string,sizeof(string),"Вы продаете рыбу за $%d",fishes[playerid]);
    GivePlayerMoney(playerid,fishes[playerid]);
    SendClientMessage(playerid,-1,string);
    fishes[playerid] = 0;}
    SendClientMessage(playerid,-1,"У вас нету рыбы для продажи!");
    return 1;
}

forward fishing(playerid);
public fishing(playerid)
{
    new str[128];
    switch( random( 3 ) ){
            case 0: format( str, 128, "Вы поймали язь", str );
            case 1: format( str, 128, "Вы поймали черепаху", str );
            case 2: format( str, 128, "Вы поймали акулу ", str );}
    SendClientMessage(playerid,-1,str);
    TogglePlayerControllable(playerid,1);
    fishes[playerid] += 1;
    baits[playerid] -= 1;
}
Основа готова, можете редактировать под себя.
by terner
 
Последнее редактирование:
Статус
В этой теме нельзя размещать новые ответы.
Сверху Снизу