сокет mIRC не работает - PullRequest
2 голосов
/ 15 июня 2011

Этот сокет не работает, я пробовал все, но на самом деле он никогда не отображает цитату. Просто текст заранее.

on $*:TEXT:/^[!@](motivate|mqod|mqotd)/Si:#:{ if ($chan !isin %notlist) {
    if ($sock(Motivation)) { notice $nick Please try again in a few seconds. | halt }
    set %Motivation $iif($left($1,1) == @, msg $chan, notice $nick) $col
    sockopen Motivation motivateus.com 80
} }
on *:SOCKOPEN:Motivation: {
  sockwrite -nt $sockname GET /thoughts-of-the-day.htm HTTP/1.1
  sockwrite -nt $sockname Host: motivateus.com 
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:Motivation: {
  if ($sockerr) { halt }
  else {
    var %sockreader | sockread %sockreader 
    if ($regex(%sockreader,(.+)&quot;<br>)) {
      %Motivation $+ Today's motivational quote is: $regm1(1) $+ 
      unset %Motivation | sockclose $sockname
    }
  }
}

Ответы [ 2 ]

5 голосов
/ 15 июня 2011

У меня нет большого опыта работы с mIRC, но разве не предполагается, что это $ regml, а не $ regm1?

2 голосов
/ 15 июня 2011

У меня на компьютере есть скрипт, который меняет шрифт чисел, чтобы я мог видеть такую ​​ошибку:)

...