;Edit #kanal belirtiniz.
;Herhangi bir belge oluşturmanıza gerek yoktur.
;Kod dizini kaynak siteden otomatik olarak söz seçecektir.
on $*:text:/[!]soz\s(\S+)/ASi:#kanal:{
  if $sock(Mark,1).status == active { notice $nick Kaynak yapma!Sıranı bekle. } 
  else { set %sozchan.nick # $regml(1) | soz }
}
alias soz {
  sockopen Mark anlamliguzelsozler.com 80
  sockmark Mark msg %sozchan.nick
}
on *:sockopen:Mark:{
  var %dify = sockwrite -n $sockname
  %dify GET / HTTP/1.1
  %dify Host: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
on *:sockread:Mark:{
  if $sockerr { $sock(Mark).mark $sock(Mark).wsmsg | halt }
  else {
    var %Mark | sockread %Mark
    if $regex(%Mark,/<font color="#FF\d+"><strong>(.+)<\/strong><\/font>/i) { 
      $sock(Mark).mark $qt($regml(1)) | sockclose Mark 
    }
  }
}