Sign in to follow this  
Followers 0
Guest stibs

Система лотереи

5 posts in this topic

Всем привет! Выкладываю на форум систему лотереи. 

Суть ее: Игрок покупает лотерейный билет и в PayDay может сорвать джекпот. Если выигравших нет, то сумма джекпота увеличивается. 

Приступим к коду. 

Ко всем new: 

new Bilet[MAX_PLAYERS];
new Jackpot = 0;

Ко всем forward / в начало мода: 

forward Lotto(number);
forward LoadLoto();
forward SaveLoto();

В начало вашего паблик с PayDay: 

new randLoto = random(80);
if(randLoto < 77)
{
    randLoto += 3;
}
Lotto(randLoto);

 

Спойлер

public Lotto(number)
{
    new JackpotFallen = 0;
    new string[256];
    new winner[MAX_PLAYER_NAME];
    format(string,sizeof(string),"Новости лотто: Выигрышным номером является %i",number);
    OOCOff(COLOR_WHITE,string);
    for(new i = 0; i < MAX_PLAYERS; i++)
    {
        if(!IsPlayerConnected(i)) continue;
        if(Bilet[i] > 0)
        {
            if(Bilet[i] == number)
            {
                JackpotFallen = 1;
                GetPlayerName(i,winner,sizeof(winner));
                format(string,sizeof(string), "Новости лотто: %s выигрывает джекпот %iр",winner,Jackpot);
                OOCOff(COLOR_WHITE,string);
                format(string,sizeof(string),"Вы выиграли %iр в лотто",Jackpot);
                SendClientMessage(i,COLOR_YELLOW,string);
                GivePlayerMoney(i,Jackpot);
            }
            else SendClientMessage(i,COLOR_LIGHTBLUE,"Вы ничего не выиграли.");
        }
        Bilet[i] = 0;
    }
    if(JackpotFallen)
    {
        new rand = random(1250); rand += 1578;
        Jackpot = rand;
        SaveLoto();
        format(string,sizeof(string),"Новости лотто: джекпот установлен на %i",Jackpot);
        OOCOff(COLOR_WHITE,string);
    }
    else
    {
        new rand = random(1500); rand += 2158;
        Jackpot += rand;
        SaveLoto();
        format(string,sizeof(string),"Новости лотто: джекпот поднялся до %i",Jackpot);
        OOCOff(COLOR_WHITE,string);
    }
    return 1;
}
public LoadLoto()
{
    new loadloto[16];
    new strFromFile2[256];
    new File:file = fopen("loto.ini",io_read);
    if(file)
    {
        fread(file,strFromFile2);
        Jackpot = strval(loadloto);
        fclose(file);
    }
    else GameModeExit();
    return 1;
}
public SaveLoto()
{
    new s[256];
    format(s,sizeof(s),"%d",Jackpot);
    new File:file2 = fopen("loto.ini",io_write);
    fwrite(file2,s);
    fclose(file2);
    return 1;
}

 

 

Спойлер

if(strcmp(cmd, "/lotto", true) == 0)
{
    if(!IsPlayerConnected(playerid)) return 1;
    if(GetPlayerMoney(playerid) < 100) return SendClientMessage(playerid,COLOR_GREY,"Билет стоит 100р");
    tmp = strtok(cmdtext, idx);
    if(!strlen(tmp)) return SendClientMessage(playerid,COLOR_WHITE,"ИНФО: /lotto [number]");
    new lottonr = strval(tmp);
    if(lottonr < 1 || lottonr > 80) return SendClientMessage(playerid,COLOR_GREY,"Номер билета не должен превышать 80!");
    format(string,sizeof(string),"Вы купили лотерейный билет под номером: %i",lottonr);
    SendClientMessage(playerid,COLOR_LIGHTBLUE,string);
    GivePlayerMoney(playerid,-1500);
    Bilet[playerid] = lottonr;
    return 1;
}

 

 

 

Автор: неизвестен. 

ВНИМАНИЕ! Обязательно создайте loto.ini в папке scriptfiles, иначе сервер не запуститься! 

 

Share this post


Link to post
Share on other sites

Знаю что упоминаю старую тему , но дайте эту команду на DC_CMD пожалуйста(

Edited by Scally Milano

Share this post


Link to post
Share on other sites

@Scally Milano 


CMD:lotto(playerid, tmp[])
{
    if(!IsPlayerConnected(playerid)) return 1;
    if(GetPlayerMoney(playerid) < 100) return SendClientMessage(playerid,COLOR_GREY,"Билет стоит 100р");
    tmp = strtok(cmdtext, idx);
    if(!strlen(tmp)) return SendClientMessage(playerid,COLOR_WHITE,"ИНФО: /lotto [number]");
    new lottonr = strval(tmp);
    if(lottonr < 1 || lottonr > 80) return SendClientMessage(playerid,COLOR_GREY,"Номер билета не должен превышать 80!");
    format(string,sizeof(string),"Вы купили лотерейный билет под номером: %i",lottonr);
    SendClientMessage(playerid,COLOR_LIGHTBLUE,string);
    GivePlayerMoney(playerid,-1500);
    Bilet[playerid] = lottonr;
    return 1;
}

Edited by _bogdan_

Share this post


Link to post
Share on other sites

@_bogdan_, Спасибо

Share this post


Link to post
Share on other sites

@Scally Milano Обращайтесь всегда рады помочь.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0

  • Recently Browsing   0 members

    No registered users viewing this page.

  • Similar Content

    • Kasper0
      By Kasper0


      Скачать файл CRMP MOBILE | KAIF RP | PC+MOBILE
      Продажа мода KAIF CRMP// Готовый кроссплатформленный мод (можно играть одновременно с ПК и телефонов)
       
      Характеристики мода:
       
      Процессор: PAWN.CMD
      Кол-во строк в моде: 60+k
      Режим: RolePlay
      Автор и разработчик: Максим Зуев

      Посла оплаты обратитесь в ЛС,для предоставления игровой сборки и помощи в установке мода.

      Системы в моде:
       
      — Полная адаптация под телефоны;
      — Абсолютно новая система светофоров (Штрафы за проезд на красный);
      — Биржа обмена;
      — Красивые интерьеры;
      — Уникальня система репорта;
      — Система ТОП ДОНАТЕРОВ;
      — Подарки за пополнение счета (Донат);
      — Возможность создавать маппинг прямо из игры;
      — Система тюнинга (Обвесы и т.д);
      — Мероприятие "Мясорубка";
      — Система ГОНКИ;
      — Бойцовский клуб;
      — Баня для отдыха;
      — BATTLE ROYALE;
      — Дуэли;
      — Прыжки с парашютом;
      — Система Контейнеров;
      — Система Автоугонщиков;
      — Работа мусорщиком;
      — Валюта EURO;
      — Система VIP'ок (Ruby, Sapphire, Emerald, Diamond);
      — Система штрафстоянок;
      — Работа ХИТМАНОМ (Заказные убийства);
      — Система Гос.Волны (/editgov);
      — Система рефералок (/referals);
      — Система друзей (/friends);
      — Система Ивентов, итоги в конце недели (Лучший Гос.служащий,Лучший убийца, Лучший тащер, Лучший армеец);
      — Система аксессуаров;
       
      Видеообзоры (YT,VK):

      https://www.youtube.com/watch?v=Gzzl2UN2i48

      https://www.youtube.com/watch?v=lZv-TRRFa1U

      https://www.youtube.com/watch?v=od1KDSHitu8
      Добавил Kasper0 Добавлено 08.12.2023 Категория Моды Автор devJust  
    • Kasper0
      By Kasper0
      Продажа мода KAIF CRMP// Готовый кроссплатформленный мод (можно играть одновременно с ПК и телефонов)
       
      Характеристики мода:
       
      Процессор: PAWN.CMD
      Кол-во строк в моде: 60+k
      Режим: RolePlay
      Автор и разработчик: Максим Зуев

      Посла оплаты обратитесь в ЛС,для предоставления игровой сборки и помощи в установке мода.

      Системы в моде:
       
      — Полная адаптация под телефоны;
      — Абсолютно новая система светофоров (Штрафы за проезд на красный);
      — Биржа обмена;
      — Красивые интерьеры;
      — Уникальня система репорта;
      — Система ТОП ДОНАТЕРОВ;
      — Подарки за пополнение счета (Донат);
      — Возможность создавать маппинг прямо из игры;
      — Система тюнинга (Обвесы и т.д);
      — Мероприятие "Мясорубка";
      — Система ГОНКИ;
      — Бойцовский клуб;
      — Баня для отдыха;
      — BATTLE ROYALE;
      — Дуэли;
      — Прыжки с парашютом;
      — Система Контейнеров;
      — Система Автоугонщиков;
      — Работа мусорщиком;
      — Валюта EURO;
      — Система VIP'ок (Ruby, Sapphire, Emerald, Diamond);
      — Система штрафстоянок;
      — Работа ХИТМАНОМ (Заказные убийства);
      — Система Гос.Волны (/editgov);
      — Система рефералок (/referals);
      — Система друзей (/friends);
      — Система Ивентов, итоги в конце недели (Лучший Гос.служащий,Лучший убийца, Лучший тащер, Лучший армеец);
      — Система аксессуаров;
       
      Видеообзоры (YT,VK):

      https://www.youtube.com/watch?v=Gzzl2UN2i48

      https://www.youtube.com/watch?v=lZv-TRRFa1U

      https://www.youtube.com/watch?v=od1KDSHitu8
    • nnnumber1
      By nnnumber1
      Доброго времени суток, совсем недавно начал свой путь разработчика в САМП/КРМП, ищу интересный проект для взаимовыгодного сотрудничества.
      Хочется "набивать руку" и повышать свой уровень в реальных условиях!

      Пишите в ЛС на форуме.
    • Makkos
      By Makkos
      Ищу человека которий может сделать лаунчер мобайл для самп проекта
      Оплата в - грн
      Жду предложений в телеграм - https://t.me/creator700