/*
Deprem Anons: V1.0
V1.0 Bitim tarihi: 17/12/2008
Yazan: Alience
Çalıştırma komutu: /deprem
*/


on *:start: {
  var %rawquery = $depdll(Query,SELECT value FROM Options WHERE name='isactive';)
  if $regex(%rawquery,(^S_OK)) {
    if $depdll(FetchRow,1) == S_OK 1 {
      var %rawquery = $depdll(Query,SELECT value FROM Options WHERE name='period';), %period = $gettok($depdll(FetchRow,1),2,32), %pps = 1500
      if %period == 1 { %pps = 900 }
      elseif %period == 2 { %pps = 1500 }
      elseif %period == 3 { %pps = 1800 }
      elseif %period == 4 { %pps = 2700 }
      elseif %period == 5 { %pps = 3600 }
      elseif %period == 6 { %pps = 5400 }
      elseif %period == 7 { %pps = 7200 }
      elseif %period == 8 { %pps = 9000 }
      elseif %period == 9 { %pps = 10800 }
      elseif %period == 10 { %pps = 12600 }
      elseif %period == 11 { %pps = 14400 }
      elseif %period == 12 { %pps = 16200 }
      elseif %period == 13 { %pps = 18000 }
      elseif %period == 14 { %pps = 36000 }
      elseif %period == 15 { %pps = 43200 }
      else { %pps = 2700 }

      var %rawquery = $depdll(Query,SELECT value FROM Options WHERE name='lastupdate';), %lastupdate = $gettok($depdll(FetchRow,1),2,32)
      if %pps <= $calc($ctime - %lastupdate) { .deprem -l }
      else { .timerdeprem 1 $calc(%pps - ($ctime - %lastupdate)) /.deprem -l }
    }
  }
}

on *:sockopen:depremler: {
  unset %depremler-pre
  set %deprmeler-count 0
  sockwrite -nt $sockname GET /scripts/lst1.asp HTTP/1.0  $+ $crlf
  sockwrite -nt $sockname Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, */*  $+ $crlf
  sockwrite -nt $sockname Referer: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
type="text/javascript" src="https://code.jquery.com/jquery-1.12.0.min.js">