Версия для печати темы

--[[
Название:    Генератор комплиментов
Автор:        AirKobra45 (ICQ: 606-519-563; http://mydc.ru)
]]--    
--------------------
sCmd = "compl" --Команда, сокращение, от compliment.
sStartMenu = "Развлечения\\Действия" --Расположение в Меню
--------------------
function OnStartup()
    sMenu = ""
    for i, v in ipairs(Table) do
        sMenu = sMenu.."$UserCommand 1 3 "..sStartMenu.."\\"..v[1].."$<%[mynick]> !"..sCmd.." "..i.." %[nick]||"
    end
end

function ChatArrival(tUser,sData)
    local Cmd,sString = sData:match"^%b<>%s+%p(%S+)%s*(.*)|$"
    if Cmd and Cmd == sCmd then
        local iCmd,toWho = sString:match"^(%d+)%s+(%S+)"
        iCmd = tonumber(iCmd) or 0
        if (iCmd == 1 or iCmd == 2) then
            Core.SendToAll("<"..tUser.sNick.."> "..toWho..": "..ComplGen(iCmd))
        end
        return true
    end
end

function UserConnected(tUser)
    Core.SendToUser(tUser, sMenu)
end
RegConnected = UserConnected
OpConnected = UserConnected

function CGen(iCmd)
    local t = Table[iCmd]
    local Result1 = t[2][math.random(1, #t[2])]
    local Result2 = t[3][math.random(1, #t[3])]
    local Result3 = t[4][math.random(1, #t[4])]
    local Result4 = t[5][math.random(1, #t[5])]
    return Result1.." "..Result2.." "..Result3..""..Result4
end
--------------------
function ComplGen(iCmd)
    return CGen(iCmd).." "..CGen(iCmd).." "..CGen(iCmd)
end
--------------------
    --Таблица комплиментов, и подменю
Table = {
    --Таблица комплиментов женщине
    {    "Комплимент\\Девушке",
    --варианты вводной части
        {    "",
            "дорогая,",
            "так слушай же:",
            "должен признаться тебе, что",
            "любимая,",
            "поздравляю тебя от всей души -",
            "только",
            "говоря откровенно,",
            "солнышко мое,",
            "в этот праздник весны и всеобщего цветения",
            "знай, что",
            "в этот праздник я хочу сказать:",
            "от всей души поздравляю тебя - ",
            "знаешь, ",
        },
    --варианты утверждения
        {    "твоя красота",
            "неиссякающий источник твоего обаяния",
            "неувядающий лепесток твоей нежности",
            "твой прекрасный лик",
            "твой пленительный взгляд",
            "весь твой чарующий облик",
            "тепло твоей души",
            "биение твоего чуткого сердца",
            "согревающий свет твоих глаз",
            "твой образ, не имеющий аналогов в мировой литературе,",
            "струящийся водопад твоих сказочных волос",
            "прекрасная твоя улыбка",
            "таинственный аромат твоих духов",
            "тихий омут твоих глаз, в которых отражается небо,",
            "твой ласковый голос",
            "твое обаяние",
            "неиссякающий источник твоей энергии",
            "твоя неповторимая аура",
            "даже твое молчание",
            "твоя ласковая улыбка",
            "тихий омут твоих глаз, доводящий до головокружения,",
        },
    --варианты предварительного умозаключения
        {    "оставляет во мне глубокий след",
            "наполняет каждый день моего существования особенным смыслом",
            " - это путеводная звезда, которая не дает мне сбиться с пути",
            "требует произнесения соответствующих слов",
            "продлевает мою жизнь",
            "сводит с ума любого, особенно меня",
            "снится мне долгими ночами",
            "очаровывает и притягивает меня",
            "проникает в самые потаенные уголки моей измученной души",
            "согревает мое замерзшее мужское сердце",
            "восхищает",
            "завораживает",
            "чарует, как музыка",
            "кружит и увлекает меня за собой",
            "поражает мое воображение",
            " - это путеводная звезда, которая не дает мне сбиться с дороги",
            "не оставит равнодушным никого",
            "снится мне по ночам",
            "проникает в самые потаенные уголки моего сердца",
            "согревает мою душу",
            "восхищает меня",
            "завораживает меня",
            "чарует меня, как музыка",
        },
    --варианты логического вывода
        {    ".",
            ", наполняя смыслом пустое пространство бытия.",
            ", вызывая желание поздравить тебя.",
            ", давая почувствовать, что я все-таки мужчина!",
            ", возвращая меня к тем временам, когда мужчины были рыцарями!",
            ", вызывая готовность идти на дуэль или на край света.",
            ", поднимая волну нежности и прилив чувств.",
            ", подбадривая меня в трудные минуты.",
            ", помогая выплыть в бурном океане жизни.",
            ", даря надежду на будущее и уверенность в завтрашнем дне!",
            ", когда я думаю о тебе.",
            ", наполняя смыслом мою жизнь.",
            ", вызывая желание сделать для тебя все.",
            " и мне хочется обнять тебя.",
            ", когда я рядом с тобой.",
            "!",
        },
    },
    --Таблица комплиментов парню
    {    "Комплимент\\Парню",
    --варианты вводной части
        {    "мой джентльмен,",
            "дорогой,",
            "в этот праздник я хочу сказать:",
            "мой рыцарь,",
            "любимый,",
            "от всей души поздравляю тебя - ",
            "только",
            "говоря откровенно,",
            "солнце мое,",
            "",
            "мой герой,",
            "знаешь, ",
            "должна признаться тебе, что",
            "так слушай же:",
            "поздравляю тебя от всей души -",
            "знай, что",
        },
    --варианты утверждения
        {    "твое обаяние",
            "неиссякающий источник твоей энергии",
            "твоя уверенность в себе",
            "один твой взгляд",
            "прикосновение твоих сильных и нежных рук",
            "твой мужественный облик",
            "тепло твоей души",
            "биение твоего чуткого сердца",
            "настоящая мужская спина, за которой можно спрятаться,",
            "твоя неповторимая аура",
            "даже твое молчание",
            "твоя ласковая улыбка",
            "крепкое мужское плечо",
            "тихий омут твоих глаз, доводящий до головокружения,",
            "твой ласковый голос",
            "твоя красота",
            "неиссякающий источник твоего обаяния",
            "твой пленительный взгляд",
            "согревающий свет твоих глаз",
            "твой образ, не имеющий аналогов в мировой литературе,",
            "прекрасная твоя улыбка",
        },
    --варианты предварительного умозаключения
        {    "заставляет меня трепетать",
            "наполняет каждый день моего существования особенным смыслом",
            " - это путеводная звезда, которая не дает мне сбиться с дороги",
            "не оставит равнодушным никого",
            "продлевает мою жизнь",
            "сведет с ума любую (тем более меня)",
            "снится мне по ночам",
            "очаровывает и притягивает меня",
            "проникает в самые потаенные уголки моего сердца",
            "согревает мою душу",
            "восхищает меня",
            "завораживает меня",
            "чарует меня, как музыка",
            "кружит и увлекает меня за собой",
            "поражает мое воображение",
            "оставляет во мне глубокий след",
            "- это путеводная звезда, которая не дает мне сбиться с пути",
            "требует произнесения соответствующих слов",
            "сводит с ума любого, особенно меня",
            "снится мне долгими ночами",
            "проникает в самые потаенные уголки моей измученной души",
            "восхищает",
            "завораживает",
            "чарует, как музыка",
        },
    --варианты логического вывода
        {    ".",
            ", наполняя смыслом мою жизнь.",
            ", вызывая желание поздравить тебя.",
            ", не давая забыть о том, что я - слабый пол.",
            ", напоминая о тех временах, когда мужчины были настоящими рыцарями!",
            ", вызывая желание сделать для тебя все.",
            ", захлестывая меня теплой волной чувств и нежности.",
            ", подбадривая меня в трудные минуты.",
            " и мне хочется обнять тебя.",
            ", помогая выплыть в бурном океане жизни.",
            ", даря надежду на будущее и уверенность в завтрашнем дне!",
            ", когда я рядом с тобой.",
            ", наполняя смыслом пустое пространство бытия.",
            ", поднимая волну нежности и прилив чувств.",
            ", когда я думаю о тебе.",
            "!",
        },
    },
}    --Конец таблицы