on *:text:*:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
  if $regex($1,/[!.]ma[çcÇ]lar$/i)  {
    if %macchan { return }
    set -eu30 %macchan $chan | maclar
  }
}
on *:input:#sohbet,#radyo,#benimmekan,#felsefe,#mirchelp,#mobile: {
  if $regex($1,/[!.]ma[çcÇ]lar$/i)  { 
    set -eu30 %macchan $chan | maclar
  }
}

alias maclar { var %rand = $rand(1,999) | sockopen $+(maclar,%rand) qbilisim.net 80 | sockmark $+(maclar,%rand) https://
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockopen:maclar*:{
  var %komut = sockwrite -n $sockname
  %komut GET $+(/ssl.php?web=,$sock($sockname).mark) HTTP/1.1
  %komut Host: $sock($sockname).addr
  %komut User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/110.0.0.0 Safari/537.36
  %komut $crlf
}

on *:sockread:maclar*:{
  var %mac | sockread %mac 
  if (*<td class='team-name text-right'>* iswm %mac)  { 
    set -eu3 %soltakim OK 
    if ($regex(%mac,/<td class='team-name text-right'><a href="(.+)" title="(.+)">(.+)<\/a><\/td>/i)) {
      set -eu3 %soltakim_isim $regml(3)
    } 
  }
  if (*<div class='score-box'>* iswm %mac && %soltakim) { 
    set  -eu3 %skoredeger OK 
    if ($regex(%mac,/<div class='score-box'>(.+)<\/div>/i)) {
      set -eu3 %takim_score $regml(1)
    }
  }
  if (*<td class='team-name text-left'>* iswm %mac && soltakim) { 
    if ($regex(%mac,/<td class='team-name text-left'><a href="(.+)" title="(.+)">(.+)<\/a><\/td>/i)) {
      set -eu3 %sagtakim_isim $regml(3)
      inc -eu3 %score_timer_value
      .timer 1 %score_timer_value msg %macchan %soltakim_isim %takim_score %sagtakim_isim
    }
    unset %soltakim %skoredeger 
  }
}