Keskustelu: Koodit: Uusin koodivinkki Putkassa

on *:input:*: {
  if ($1 iswm /koodivinkki) {
    set %kannu $active
    sockopen op https://www.ohjelmointiputka.net 80
    halt
  }
}

on *:sockopen:op: {
  sockwrite -n op GET https://www.ohjelmointiputka.net/index.php
}

on *:sockread:op: {
  if ($sockerr > 0) { echo virhe | return }
  var %rivi 1
  while (1 == 1) {
    sockread %data
    if (UUSIMMAT KOODIVINKIT isin %data) {
      sockread %data
      sockread %data
      sockread %data
      tokenize 60 %data
      set %datta $2
      tokenize 34 %datta
      set %nimi $3-
      set %nimi $right(%nimi, $calc($len(%nimi) - 1))
      if ($active iswm @super-1337-port) {
        /laheta > $+ %socknick $+ �< Uusin koodivinkki: https://www.ohjelmointiputka.net/ $+ $2 : %nimi
      }
      else {
        /msg %kannu Uusin koodivinkki: https://www.ohjelmointiputka.net/ $+ $2 : %nimi
      }
      break
    }
    if ($sockbr == 0) { break }
    inc %rivi
  }
  return No %data
}