IRCLine.RU
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Внимание:
  • Чтобы войти на форум, Вам нужно ввести ник и пароль используемые Вами в сети IRCLine.RU
  • Зарегистрировать ник можно только в сети, пользуясь соответствующими сервисными командами
21.09.2021 08:09:49

Войти
5574 Сообщений в 762 Тем от 1004 Пользователей
Последний пользователь: seagull4ik
* Начало Помощь Войти
Форум IRCLine.RU  |  IRC  |  mIRC Скриптинг  |  Готовые скрипты  |  Тема: !slogan new « предыдущая тема следующая тема »
Страниц: [1] Печать
Автор Тема: !slogan new  (Прочитано 4731 раз)
*
Сообщений: 44
Offline Offline


Просмотр профиля
« : 10.07.2010 21:51:02 »

Код:
on *:START: { hmake slogan 1 | hload slogan slogan.txt }
on *:TEXT:*:*: {
;  if (+slogan !isin [ % $+ [ $remove(#,$chr(35)) ] ]) return   
    if $1 == !slogan || $1 == !слоган {
      if $2 { sockopen slogan. [ $+ [ $chan ] $+ . $+ [ $nick ] ] slogen.ru 80 | sockmark slogan. [ $+ [ $chan ] $+ . $+ [ $nick ] ] $replace($2-,$chr(32),$chr(37) $+ 20) }
      else { msg # $nick Для генерации слогана используй: $1 <word> }
    }
}
     
on *:SOCKOPEN:slogan.*: {
    if $sockerr { msg $replace($gettok($sockname,2-3,46),$chr(46),$chr(32)) $+ , $replace($hget(slogan,$rand(1,$hget(slogan,0).item)),<slogan>,$sock($sockname).mark) }
    ;  sockwrite -n $sockname GET /s/ $+ $sock($sockname).mark HTTP/1.0 $+ $crlf $+ Host: slogen.ru $+ $crlf $+ Connection: keep-alive $+ $crlf $+ $crlf
    sockwrite -n $sockname GET /pda/index.php?slogan= $+ $sock($sockname).mark HTTP/1.0 $+ $crlf $+ Host: slogen.ru $+ $crlf $+ Connection: keep-alive $+ $crlf $+ $crlf
}
     
on *:SOCKREAD:slogan.*: {
    var %i | sockread %i
    if ( div class="slogan1" isin %i ) {
      var %s $remove($gettok(%i,2,62),</div)
      msg $gettok($sockname,2,46) $strip($lib.utf8decode(%s))
      sockclose $sockname
    }
    hadd slogan $calc($hget(slogan,0).item + 1) $strip($lib.utf8decode(%s)) | hsave slogan slogan.txt
}
Записан

Администратор
*****
Сообщений: 677
Offline Offline


Просмотр профиля WWW
« Ответ #1 : 12.07.2010 11:09:56 »

Скрипт неработоспособен, т.к. не выложены библиотеки с алиасами, в частности $lib.utf8decode
Записан

На каждый вопрос должен быть ответ
:angel:
Страниц: [1] Печать 
Форум IRCLine.RU  |  IRC  |  mIRC Скриптинг  |  Готовые скрипты  |  Тема: !slogan new « предыдущая тема следующая тема »
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.8 | SMF © 2006-2008, Simple Machines LLC Valid XHTML 1.0! Valid CSS!