Здравствуйте, гость ( Вход | Регистрация )
Отправлено: 5.3.2010, 17:53 | |
Абсолютный новичок Группа: Пользователи Сообщений: 2 Регистрация: 5.3.2010 Пользователь №: 6 266 |
Спасибо! =) Странно... вроде уже побывал так, но криво =) А после тебя все нормуль =) |
Форум: DC-клиенты · Просмотр сообщения: #27867 · Ответов: 2 · Просмотров: 7 043 |
Отправлено: 5.3.2010, 16:53 | |
Абсолютный новичок Группа: Пользователи Сообщений: 2 Регистрация: 5.3.2010 Пользователь №: 6 266 |
Грей 0.17 Суть скрипта: По рзелульаттам илссеовадний одонго анлигйсокго унвиертисета,не иеемт занчнеия, в кокам пряокде рсапожолена бкувы в солве. Галвоне, чотбы преавя и пслоендяя бквуы блыи на мсете. Осатьлыне бкувы мгоут селдовтаь в плоонм бсепордяке, все-рвано ткест чтаитсея без побрелм. Пичрионй эгото ялвятеся то, что мы не чиатем кдаужю бкуву по отдльенотси, а все солво цликеом. Проблема: не получается оседлать русскую кодировку о0 Код dcpp = {} math.randomseed(os.time()) function dcpp.PreviewPublicMessage(sHubUrl, sMsg) local sArg = sMsg:match"^/t(.*)" if sArg then sArg = sArg:match"%s+(.*)" if sArg then DC():SendPublicMessage(sHubUrl,sArg) DC():SendPublicMessage(sHubUrl,mag(sArg)) return 1 end end return nil end function tblr(t) local n = #t while n > 1 do local k = math.random(n) t[n], t[k] = t[k], t[n] n = n - 1 end return t end function mag(ma) local mai,str,hj={},'',#ma-2 if hj<2 then return ma end local h,j,k=ma:sub(1,1),ma:sub(-1),ma:sub(2,-2) for i=1, hj+1 do mai[i]=k:sub(i,i) end mai=tblr(mai) for i=1, hj+1 do str=str..mai[i] end return h..str..j end |
Форум: DC-клиенты · Просмотр сообщения: #27862 · Ответов: 2 · Просмотров: 7 043 |
Открытая тема (есть новые ответы) Открытая тема (нет новых ответов) Горячая тема (есть новые ответы) Горячая тема (нет новых ответов) |
Опрос (есть новые голоса) Опрос (нет новых голосов) Закрытая тема Тема перемещена |
|
Сейчас: 28.4.2024, 13:07 |