Добро пожаловать на Pro Pawn - Портал о PAWN-скриптинге.
Страница 1 из 5 1 2 3 ... ПоследняяПоследняя
Показано с 1 по 10 из 41
  1. #1
    Аватар для YouJeen
    Пользователь

    Статус
    Оффлайн
    Регистрация
    20.10.2013
    Сообщений
    13
    Репутация:
    1 ±

    Лотерея Advance RP


    Вы покупаете лотерейный билет (/slotto) (сделайте его в 24/7)
    потом запускаете розыгрыш (/lotto) сделайте в PayDay или как на advance в :02 минуты каждого часа.
    Если в вашем билете совпадает:
    1 цифра - 2.000$
    2 цифры - 15.000$
    3 цифры - 50.000$

    Работает без багов.


    Вверх мода:

    PHP код:
    new loto 0
    К командам:

    PHP код:
     if (strcmp("/slotto"cmdtexttrue10) == 0LOTEREYA(playerid);
        if (
    strcmp("/lotto"cmdtexttrue10) == 0)
        {
            for(new 
    0MAX_PLAYERSi++)
            {
                 if(!
    IsPlayerConnected(i) || IsPlayerNPC(i) || GetPVarInt(i"BILET") <= 0) continue;
                 
    LOTTO(i);
            }
            return 
    1;
        } 
    в OnDialogResponse
    PHP код:
    if(dialogid == 1000)//case 1000:
        
    {
                if(!
    response) return 1;
                new 
    string[144];
                if(
    strlen(inputtext) != 0)
                {
                    if(
    strlen(inputtext) != 3) return LOTEREYA(playerid),SendClientMessage(playerid,0xFF4F00FF,"Неверный формат. {0099FF}Пример: 614");
                    for(new 
    strlen(inputtext); != 0; --i)
                    {
                        switch(
    inputtext[i])
                        {
                           case 
    'A'..'Z''a'..'z','А'..'Я','а'..'я',' ': return LOTEREYA(playerid),SendClientMessage(playerid,0xFF4F00FF,"Неверный формат. {0099FF}Пример: 614");
                        }
                    }
                    new 
    x=strval(inputtext);
                    new 
    x%10;
                    new 
    = (x%100-z)/10;
                    new 
    x/100;
                    
    loto++;
                    
    SetPVarInt(playerid"LOTO1",a);
                    
    SetPVarInt(playerid"LOTO2",y);
                    
    SetPVarInt(playerid"LOTO3",z);
                    
    SetPVarInt(playerid"BILET",1);
                    
    format(stringsizeof(string), "Cчастливое число изменено на: {00bebd}%d",strval(inputtext));
                    
    SendClientMessage(playerid,0x5AB200FF,string);
                    
    PlayerPlaySound(playerid10520.00.00.0);
                }
                else 
    PlayerPlaySound(playerid10520.00.00.0),format(stringsizeof(string), "Ваше счастливое число: {00bebd}%d%d%d",GetPVarInt(playerid"LOTO1"),GetPVarInt(playerid"LOTO2"),GetPVarInt(playerid"LOTO3")),SendClientMessage(playerid0x5AB200FF,string);
        } 
    И вниз мода:

    PHP код:
    stock LOTTO(playerid)
    {
        new 
    string[144];
        new 
    lotto 100+random(899);
         new 
    lotto%10;
        new 
    = (lotto%100-f)/10;
        new 
    lotto/100;
        
    format(stringsizeof(string),"Сейчас %s! Начинаем лотерейный розыгрыш. Ваше счастливое число: %d%d%d",date("%hh:%ii"gettime()-43200),GetPVarInt(playerid"LOTO1"),GetPVarInt(playerid"LOTO2"),GetPVarInt(playerid"LOTO3"));
        
    SendClientMessage(playerid,0xffd200FF,string);
        
    format(stringsizeof(string), "За этот час было куплено %d билетов счастливое число этого часа: {ff9a00}%d",loto,lotto);
        
    SendClientMessage(playerid,0x63cb00ff,string);
        
    loto 0;
        if(
    GetPVarInt(playerid"LOTO1") == && GetPVarInt(playerid"LOTO2") == && GetPVarInt(playerid"LOTO3") == f) return SendClientMessage(playerid,0x5AB200FF"В вашем билете совпали все числа. Поздравляем, ваш выйгрыш 50.000$"),GivePlayerMoney(playeridGetPlayerMoney(playerid)+5000);//PlayerInfo[playerid][pCash] += 50000;
          
    if(GetPVarInt(playerid"LOTO1") == && GetPVarInt(playerid"LOTO2") == || GetPVarInt(playerid"LOTO2") == && GetPVarInt(playerid"LOTO3") == || GetPVarInt(playerid"LOTO1") == && GetPVarInt(playerid"LOTO3") == f) return SendClientMessage(playerid,0x5AB200FF"В вашем билете совпали 2 цифры. Поздравляем, ваш выйгрыш 15.000$"),GivePlayerMoney(playeridGetPlayerMoney(playerid)+15000);//PlayerInfo[playerid][pCash] += 15000;
        
    if(GetPVarInt(playerid"LOTO1") == || GetPVarInt(playerid"LOTO2") == || GetPVarInt(playerid"LOTO3") == f) return SendClientMessage(playerid,0x5AB200FF"В вашем билете совпало 1 цифра. Поздравляем, ваш выйгрыш 2.000$"),GivePlayerMoney(playeridGetPlayerMoney(playerid)+2000);//PlayerInfo[playerid][pCash] += 2000;
        
    if(GetPVarInt(playerid"LOTO1") != || GetPVarInt(playerid"LOTO2") != || GetPVarInt(playerid"LOTO3") != f) return SendClientMessage(playerid,-1"К сожалению в вашем билете не сопвпала первая цифра"),SendClientMessage(playerid,-1"Не расстраивайтесь. В следующий раз Вам обязательно повезет");
        
    SetPVarInt(playerid"BILET",0);
        
    SetPVarInt(playerid"LOTO1",0);
        
    SetPVarInt(playerid"LOTO2",0);
        
    SetPVarInt(playerid"LOTO3",0);
        return 
    1;
    }
    stock LOTEREYA(playerid)
    {
        new 
    x100+random(899);
        new 
    x%10;
        new 
    = (x%100-z)/10;
        new 
    x/100;
        
    loto++;
        
    SetPVarInt(playerid"LOTO1",a);
        
    SetPVarInt(playerid"LOTO2",y);
        
    SetPVarInt(playerid"LOTO3",z);
        
    SetPVarInt(playerid"BILET",1);
        new 
    hour;
        
    gettime(hour);
        new 
    rulesdialog[700],string[144];
        
    SendClientMessage(playerid0x5AB200FF,"Вы купили лотерейный билет");
        
    format(string,sizeof(string), "Ваше счастливое число: {ffd200}%d%d%d\n\n",GetPVarInt(playerid"LOTO1"),GetPVarInt(playerid"LOTO2"),GetPVarInt(playerid"LOTO3")),strcat(rulesdialog,string);
        
    strcat(rulesdialog"{ffffff}Вы зарегестрированы в лотерее, резуельтат будет известен во\n");
        
    format(string,sizeof(string), "{ffffff}время ближайшего розыгрыша, который пройдет в %d:02\n",hour+1),strcat(rulesdialog,string);
        
    strcat(rulesdialog"{ffffff}Не выходите из игры чтобы принять в нём участие.\n\n");
        
    strcat(rulesdialog"{ffffff}Выигрыш будет зависить от того сколько чисел совпало в\n");
        
    strcat(rulesdialog"{ffffff}вашем счастливом числе и в числе, которое выпадает во\n");
        
    strcat(rulesdialog"{ffffff}время розыгрыша (по порядку с лево на право):\n\n");
        
    strcat(rulesdialog"{ffffff}Нет совподений:\t{ff6531}0$\n{ffffff}1 число:\t\t{63ff00}2000$\n{ffffff}2 числа:\t\t{63ff00}15000$\n{ffffff}Все числа:\t\t{63ff00}50000$\n\n");
        
    strcat(rulesdialog"{ffffff}Если Вы хотите изменить счастливое число, введите новое\nв противном случае просто нажмите\"Ок\"");
        return 
    ShowPlayerDialog(playerid10001,"{63cb00}Лотерея"rulesdialog"Ок""");

    Использование:
    Прописываете /slotto - покупаете номер 3х значный
    Запускаете лото: /lotto
    Настраиваете под себя сами.





    Автор: YouJeen ( UNREAL )
    Последний раз редактировалось YouJeen; 06.05.2014 в 20:34.

  2. #2
    Аватар для DeimoS
    Модератор?

    Статус
    Оффлайн
    Регистрация
    27.01.2014
    Адрес
    Восточный Мордор
    Сообщений
    5,588
    Репутация:
    1984 ±
    Вот это порадовало
    PHP код:
                    new x=strval(inputtext); 
                    new 
    x%10
                    new 
    = (x%100-z)/10
                    new 
    x/100
                    
    loto++; 
                    
    SetPVarInt(playerid"LOTO1",a); 
                    
    SetPVarInt(playerid"LOTO2",y); 
                    
    SetPVarInt(playerid"LOTO3",z); 
                    
    SetPVarInt(playerid"BILET",1); 
    Связаться со мной в VK можно через личные сообщения этой группы
    Заказы не принимаю

    Широко известно, что идеи стоят 0.8333 цента каждая (исходя из рыночной цены 10 центов за дюжину).
    Великих идей полно, на них нет спроса.
    Воплощение идеи в законченную игру требует долгой работы,
    таланта, терпения и креативности, не говоря уж о затратах денег, времени и ресурсов.
    Предложить идею просто, воплотить – вот в чём проблема

    Steve Pavlina

  3. #3
    Аватар для Seregamil
    Проверенный

    Статус
    Оффлайн
    Регистрация
    21.11.2013
    Сообщений
    551
    Репутация:
    274 ±
    а меня это:
    stock IsTextRussian(text[])
    {
    if(strfind(text, "а", true) != -1 ||
    strfind(text, "б", true) != -1 ||
    strfind(text, "в", true) != -1 ||
    strfind(text, "г", true) != -1 ||
    strfind(text, "д", true) != -1 ||
    strfind(text, "е", true) != -1 ||
    strfind(text, "ё", true) != -1 ||
    strfind(text, "ж", true) != -1 ||
    strfind(text, "з", true) != -1 ||
    strfind(text, "и", true) != -1 ||
    strfind(text, "й", true) != -1 ||
    strfind(text, "к", true) != -1 ||
    strfind(text, "л", true) != -1 ||
    strfind(text, "м", true) != -1 ||
    strfind(text, "н", true) != -1 ||
    strfind(text, "о", true) != -1 ||
    strfind(text, "п", true) != -1 ||
    strfind(text, "р", true) != -1 ||
    strfind(text, "с", true) != -1 ||
    strfind(text, "т", true) != -1 ||
    strfind(text, "у", true) != -1 ||
    strfind(text, "ф", true) != -1 ||
    strfind(text, "х", true) != -1 ||
    strfind(text, "ц", true) != -1 ||
    strfind(text, "ч", true) != -1 ||
    strfind(text, "ш", true) != -1 ||
    strfind(text, "щ", true) != -1 ||
    strfind(text, "ъ", true) != -1 ||
    strfind(text, "ы", true) != -1 ||
    strfind(text, "ь", true) != -1 ||
    strfind(text, "э", true) != -1 ||
    strfind(text, "ю", true) != -1 ||
    strfind(text, "я", true) != -1) return 1;
    return 0;
    }

  4. #4
    Аватар для DeimoS
    Модератор?

    Статус
    Оффлайн
    Регистрация
    27.01.2014
    Адрес
    Восточный Мордор
    Сообщений
    5,588
    Репутация:
    1984 ±
    Цитата Сообщение от Seregamil Посмотреть сообщение
    а меня это:
    О_о а вот это я не заметил... Настоящий ТРУ код
    Связаться со мной в VK можно через личные сообщения этой группы
    Заказы не принимаю

    Широко известно, что идеи стоят 0.8333 цента каждая (исходя из рыночной цены 10 центов за дюжину).
    Великих идей полно, на них нет спроса.
    Воплощение идеи в законченную игру требует долгой работы,
    таланта, терпения и креативности, не говоря уж о затратах денег, времени и ресурсов.
    Предложить идею просто, воплотить – вот в чём проблема

    Steve Pavlina

  5. #5
    Аватар для YouJeen
    Пользователь

    Статус
    Оффлайн
    Регистрация
    20.10.2013
    Сообщений
    13
    Репутация:
    1 ±
    Цитата Сообщение от DeimoS Посмотреть сообщение
    Вот это порадовало
    PHP код:
                    new x=strval(inputtext); 
                    new 
    x%10
                    new 
    = (x%100-z)/10
                    new 
    x/100
                    
    loto++; 
                    
    SetPVarInt(playerid"LOTO1",a); 
                    
    SetPVarInt(playerid"LOTO2",y); 
                    
    SetPVarInt(playerid"LOTO3",z); 
                    
    SetPVarInt(playerid"BILET",1); 
    Ты лучше вычислишь каждую цифру с трехзначного числа в переменную/pvar?

    - - - Добавлено - - -

    Цитата Сообщение от Seregamil Посмотреть сообщение
    а меня это:
    Исправил, по вы*буйся еще, жду

  6. #6
    Аватар для DeimoS
    Модератор?

    Статус
    Оффлайн
    Регистрация
    27.01.2014
    Адрес
    Восточный Мордор
    Сообщений
    5,588
    Репутация:
    1984 ±
    Цитата Сообщение от YouJeen Посмотреть сообщение
    Ты лучше вычислишь каждую цифру с трехзначного числа в переменную/pvar?
    Например, так:
    PHP код:
    #define LUCKY_NUMBER strval(inputtext)//Это если тебя пугает использование strval
    loto++;
    SetPVarInt(playerid"LOTO1"LUCKY_NUMBER/100);
    SetPVarInt(playerid"LOTO2", (LUCKY_NUMBER%100 - (LUCKY_NUMBER%10))/10);
    SetPVarInt(playerid"LOTO3"LUCKY_NUMBER%10);
    SetPVarInt(playerid"BILET"1);
    #undef LUCKY_NUMBER 
    Цитата Сообщение от YouJeen Посмотреть сообщение
    Исправил, по вы*буйся еще, жду
    Удалил и исправил - понятия разные

    - - - Добавлено - - -

    А ещё команды круты
    PHP код:
    if (strcmp("/slotto"cmdtexttrue10) == 0LOTEREYA(playerid);
        if (
    strcmp("/lotto"cmdtexttrue10) == 0)
        {
            for(new 
    0MAX_PLAYERSi++)
            {
                 if(!
    IsPlayerConnected(i) || IsPlayerNPC(i) || GetPVarInt(i"BILET") <= 0) continue;
                 
    LOTTO(i);
            }
            return 
    1;
        } 
    Связаться со мной в VK можно через личные сообщения этой группы
    Заказы не принимаю

    Широко известно, что идеи стоят 0.8333 цента каждая (исходя из рыночной цены 10 центов за дюжину).
    Великих идей полно, на них нет спроса.
    Воплощение идеи в законченную игру требует долгой работы,
    таланта, терпения и креативности, не говоря уж о затратах денег, времени и ресурсов.
    Предложить идею просто, воплотить – вот в чём проблема

    Steve Pavlina

  7. #7
    Аватар для YouJeen
    Пользователь

    Статус
    Оффлайн
    Регистрация
    20.10.2013
    Сообщений
    13
    Репутация:
    1 ±
    Цитата Сообщение от DeimoS Посмотреть сообщение
    Например, так:
    PHP код:
    #define LUCKY_NUMBER strval(inputtext)//Это если тебя пугает использование strval
    loto++;
    SetPVarInt(playerid"LOTO1"LUCKY_NUMBER/100);
    SetPVarInt(playerid"LOTO2", (LUCKY_NUMBER%100 - (LUCKY_NUMBER%10))/10);
    SetPVarInt(playerid"LOTO3"LUCKY_NUMBER%10);
    SetPVarInt(playerid"BILET"1);
    #undef LUCKY_NUMBER 


    Удалил и исправил - понятия разные

    - - - Добавлено - - -

    А ещё команды круты
    PHP код:
    if (strcmp("/slotto"cmdtexttrue10) == 0LOTEREYA(playerid);
        if (
    strcmp("/lotto"cmdtexttrue10) == 0)
        {
            for(new 
    0MAX_PLAYERSi++)
            {
                 if(!
    IsPlayerConnected(i) || IsPlayerNPC(i) || GetPVarInt(i"BILET") <= 0) continue;
                 
    LOTTO(i);
            }
            return 
    1;
        } 
    Это мелочи, а какая разница исправил или удалил? там есть проверка на рус. символы, поэтому пришлось только удалить.
    PHP код:
    case 'A'..'Z''a'..'z','А'..'Я','а'..'я',' '
    - - - Добавлено - - -

    Этот код делал в FS, вырезал и вставил соответственно оттуда, от того и кмд такие

  8. #8
    Аватар для DeimoS
    Модератор?

    Статус
    Оффлайн
    Регистрация
    27.01.2014
    Адрес
    Восточный Мордор
    Сообщений
    5,588
    Репутация:
    1984 ±
    Цитата Сообщение от YouJeen Посмотреть сообщение
    Это мелочи
    Эти мелочи могут стоить жизни какому-нибудь котёнку, которого из-за тебя собьёт лагающая Pawn-машина.

    Цитата Сообщение от YouJeen Посмотреть сообщение
    а какая разница исправил или удалил?
    Изучи и определи разницу сам

    Цитата Сообщение от YouJeen Посмотреть сообщение
    Этот код делал в FS, вырезал и вставил соответственно оттуда, от того и кмд такие
    Ещё один "Код не мой, мне подкинули!". Если уж взялся писать код для публики, пиши его качественно и перепроверяй всё. А иначе лучше оставляй свой код при себе. Ну или готовься к подобному отновшению
    Связаться со мной в VK можно через личные сообщения этой группы
    Заказы не принимаю

    Широко известно, что идеи стоят 0.8333 цента каждая (исходя из рыночной цены 10 центов за дюжину).
    Великих идей полно, на них нет спроса.
    Воплощение идеи в законченную игру требует долгой работы,
    таланта, терпения и креативности, не говоря уж о затратах денег, времени и ресурсов.
    Предложить идею просто, воплотить – вот в чём проблема

    Steve Pavlina

  9. #9
    Аватар для YouJeen
    Пользователь

    Статус
    Оффлайн
    Регистрация
    20.10.2013
    Сообщений
    13
    Репутация:
    1 ±
    Цитата Сообщение от DeimoS Посмотреть сообщение
    Эти мелочи могут стоить жизни какому-нибудь котёнку, которого из-за тебя собьёт лагающая Pawn-машина.



    Изучи и определи разницу сам



    Ещё один "Код не мой, мне подкинули!". Если уж взялся писать код для публики, пиши его качественно и перепроверяй всё. А иначе лучше оставляй свой код при себе. Ну или готовься к подобному отновшению
    Мне нравится когда хоть обсирают или критикуют, чем комменты типо "Круто" "++", так что готов дальше отвечать на ваши выебы.

    По мне, так главное чтоб код был рабочий и без багов, а остольное - это техническая часть уже, мне все равно на нее, от того что я 2 лишнии строчки написал - мод не взорвется. А по поводу IsTextRussian - так этот сток есть во всех модах почти, я его тоже сюда вставил, потому что из FilterScript вырезал, выкладывал мануал на другой портал, не потому что сам захотел, а потому что попросили, а мне все равно как-то было на исправления, своего кода не стыжусь, главное что сис-мы мои многим нравятся и много у кого на серверах стоят и не жалуются что из за них вылетает что-то, на технические части мне насрать так-то

  10. #10
    Аватар для ^_^
    Übermensch

    Статус
    Оффлайн
    Регистрация
    25.11.2013
    Сообщений
    157
    Репутация:
    245 ±
    Цитата Сообщение от YouJeen Посмотреть сообщение
    Мне нравится когда хоть обсирают или критикуют, чем комменты типо "Круто" "++", так что готов дальше отвечать на ваши выебы.

    По мне, так главное чтоб код был рабочий и без багов, а остольное - это техническая часть уже, мне все равно на нее, от того что я 2 лишнии строчки написал - мод не взорвется. А по поводу IsTextRussian - так этот сток есть во всех модах почти, я его тоже сюда вставил, потому что из FilterScript вырезал, выкладывал мануал на другой портал, не потому что сам захотел, а потому что попросили, а мне все равно как-то было на исправления, своего кода не стыжусь, главное что сис-мы мои многим нравятся и много у кого на серверах стоят и не жалуются что из за них вылетает что-то, на технические части мне насрать так-то

    Со стороны ты смотришься именно так...
    Последний раз редактировалось ^_^; 06.05.2014 в 21:23.

 

 
Страница 1 из 5 1 2 3 ... ПоследняяПоследняя

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •