alias Deprem { sockopen aziz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
  sockwrite -n $sockname  host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
  var %a
  sockread %a
  window -enz @Depremler
  if (Büyüklük isin %a) { aline @Depremler  3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
  if (son depremler isin %a) { aline @Depremler  13 $htmlfree(%a) }
  if (İlksel isin %a) {   
    set %iv $htmlfree(%a) |  
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (REVIZE isin %a) {   
    set %iv $htmlfree(%a) |  
    set %iv $instok(%iv,4T=s,1,32)
    set %iv $instok(%iv,4Enlm,4,32)
    set %iv  $instok(%iv,4Boylm,6,32)
    set %iv $instok(%iv,4Dernlk 6km,8,32)
    set %iv $instok(%iv,4Sürsi6md ,11,32)
    set %iv $instok(%iv,3 -4Şideti3+ ,4,45)
    set %iv $instok(%iv,4 İL 3 İlce ,7,45)
  aline @Depremler %iv }
  if (Enlem(N) isin %a) { aline @Depremler  6 $htmlfree(%a) }
  if (-------------- isin %a) { aline @Depremler  4 $htmlfree(%a) }
}
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}

alias deprem {  sockopen aziz [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 80 }
on *:sockopen:aziz: {
  sockwrite -n $sockname Get /scripts/lst6.asp HTTP/1.1
  sockwrite -n $sockname  host: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
  sockwrite -n $sockname $crlf
}
on *:SOCKREAD:aziz: {
  var %a 1
  sockread %a
  set %ix $gettok($date,3,47) $+ . $+ $gettok($date,2,47) $+ . $+ $gettok($date,1,47) | set %ix1 $chr(32) $gettok($time,1,58) $+ :
  if (Enlem isin %a) { SET %iv2 6 $htmlfree(%a) }
  if (-------------- isin %a) { SET %iv3  4 $htmlfree(%a) }
  if (Büyüklük isin %a) {  SET %iv1  3------------------------------------------------------------------0,4 $+ $htmlfree(%a) $+ 3-------------------------------- }
  if (son depremler isin %a) {  SET %iv4  13 $htmlfree(%a) }
  if (%ix isin %a) { 
    if (%ix1 isin %a) {  set %iv $htmlfree(%a) |  set %iv $instok(%iv,4T=s,1,32)
      set %iv $instok(%iv,4Enlm,4,32) |  set %iv  $instok(%iv,4Boylm,6,32)
      set %iv $instok(%iv,4Dernlk 6km,8,32) | set %iv $instok(%iv,4Sürsi6md ,11,32)
      set %iv $instok(%iv,3 -4Şideti3+ ,4,45) |  set %iv $instok(%iv,4 İL 3 İlce ,7,45)
      iv | msg #dnm %iv | .disable #iv | .timer 1 3 .enable #iv
    }
  }
}
#iv on
alias iv {  msg #dnm %iv1 | msg #dnm %iv2 | msg #dnm %iv3 }
#iv end
alias iv { }
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
} 
menu * { 
  Son Deprem
  .Başlat:.timer 0 3599 deprem
}