link lookup [twitch chat bot tutorial]

on *:text:*:#: {
    if (http:// isin $1-) {
      sockclose linkchecker
      set %link $remove($matchtok($1-,http://,1,32),http://)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (www. isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,www.,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.com isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.com,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.tv isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.tv,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (https:// isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,https://,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.ca isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.ca,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.org isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.org,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.net isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.net,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.int isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.int,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.edu isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.edu,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.gov isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.gov,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
    elseif (.mil isin $1-) {
      sockclose linkchecker
      set %link $matchtok($1-,.mil,1,32)
      set %linkchan $chan
      set %actlink $nick $+ 's link
      if (/ !isin %link) { set %link %link $+ / }
      sockopen linkchecker $remove($left(%link,$pos(%link,/,1)),/) 80
      halt
    }
  }
}
on *:sockopen:linkchecker: {
  if $sockerr > 0 { sockclose $sockname | halt }
  sockwrite -n $sockname GET / $+ $right(%link,$calc($len(%link)- $pos(%link,/,1))) HTTP/1.1
  sockwrite -n $sockname Host: $remove($left(%link,$pos(%link,/,1)),/)
  sockwrite -n $sockname $crlf
}
on *:sockread:linkchecker: {
  if $sockerr > 0 { sockclose $sockname | halt }
  sockread %linkh
  if (%delbug != $null) && ($len(%linkch) <= 150) && (</title> !isin %linkh) { set %linkch %linkch %linkh }
  if (%delbug != $null) && (</title> isin %linkh) {
    msg $chan %linkchan $replace(%linkch,&quot;,",&apos;,',&amp;,&,&lt;,<,&gt;,>,&copy;,©,&reg;,®,&trade;,™,&euro;,€,&pound;,£,&yen;,¥) ( %actlink )
    unset %delbug
    sockclose $sockname
    halt
  }
  if (<title> isin %linkh) {
    set %linkch $remove($left(%linkh,$pos(%linkh,</title>,1)),</title>)
    set %linkch $right(%linkch,$calc($len(%linkch)- $pos(%linkch,<title>,1) -6))
    set %linkch $left(%linkch,$calc($len(%linkch)-1))
    set %delbug 1
    if (%linkch != $null) {
      msg $chan %linkchan $replace(%linkch,&quot;,",&apos;,',&amp;,&,&lt;,<,&gt;,>,&copy;,©,&reg;,®,&trade;,™,&euro;,€,&pound;,£,&yen;,¥) ( %actlink )
      sockclose $sockname
      unset %delbug
      halt
    }
  }
}