Something

alias quest {
  var %q 1
  while ($ini(Quests.ini,Links,%q)) {
    if (* $+ $1 $+ * iswm $ini(Quests.ini,Links,%q)) {
      echo -a $readini(Quests.ini,Links,$ini(Quests.ini,Links,%q)) ~ $+ $ini(Quests.ini,Links,%q) $+ ~
      dialog -md seql seql
      set %link $remove($readini(Quests.ini,Links,$ini(Quests.ini,Links,%q)),http://www.tip.it)
      if ($sock(socket18309)) .sockclose socket18309
      sockopen socket18309 www.tip.it 80
    }
    inc %q
  }
}
on *:SOCKOPEN:socket18309: {
  sockwrite -nt $sockname GET %link HTTP/1.1
  sockwrite -nt $sockname Host: www.tip.it
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:socket18309: {
  if ($sockerr) {
    echo -s Socket Error: $sockname $+ . Error code: $sockerr.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*Reward:* iswm %sockreader) {
      unset %go %link
      sockclose $sockname
    }
    if (%go) {
      did -i seql 1 %go $iif($nohtml(%sockreader),$nohtml(%sockreader),$chr(09))
      inc %go
    }
    if (*<a href="javascript: show('tohide');">Show</a>* iswm %sockreader) {
      set %go 1
    }
  }
}
dialog seql {
  title "Steiners Easy Quest Looup"
  size -1 -1 230 183
  option dbu
  edit "", 1, -1 0 231 182, multi autohs vsbar hsbar
}
on *:input:#:{
  if ($1 == @Goals) {
    haltdef
    msg $chan 2007 Goals: [ 99/99 Thieving ] [ 81/99 Crafting ] [ 62/99 Hunter ] [ 90/99 Woodcutting ] [ 83/99 Firemaking ]
    msg $chan 2008 Goals: [ 77/99 Fishing ] [ 81/99 Cooking ] [ 67/99 Agility ]
  }
}