Forums Scripts & Popups Please Help........

 
alias update_packs {
  set %bak.hash_t $hget(0)
  set %bak.count_hash 1
  set %bak.tot_rem 0
  set %bak.up_ctime $ctime
  one---
  :end
}
alias one--- { 
  set %bak.find_many 0
  set %bak.start- 1
  set %bak.tot_many %bak.hash_t
  set %bak.total_packs 0
  while (%bak.start- <= %bak.tot_many) {
    if ( $readini(nojoin.ini, nojoin, $gettok( $hget(%bak.start-) ,2,46) ) = no) { inc %bak.find_many }
    inc %bak.start-
  }
  var %bak.time_finish = $duration( $round($calc( %bak.hash_t * 3 ),0) )
  msg %chan_s 8Beginning Updateing Pack Database And will take approx9 %bak.time_finish 8To Update......
  two---
}
alias two--- {
  if (%bak.count_hash <= %bak.hash_t) {
    if ( $readini(nojoin.ini, nojoin, $gettok( $hget(%bak.count_hash) ,2,46) ) = no) { goto hereinc }
    if ( $gettok( $hget(%bak.count_hash) ,1,46) = packs) {
      set %bak.items.p $hfind( $hget(%bak.count_hash) , * , 0 , w )
      set %bak.this_pack 1
      set %bak.removed 0
      set %bak.this_ctime $ctime
      .msg %chan_s 8Now updating Pack Database For9 $gettok( $hget(%bak.count_hash) ,2,46)
      while (%bak.this_pack <= %bak.items.p) {
        if ( $calc( $ctime - $gettok( $hget( $hget(%bak.count_hash) , %bak.this_pack ).data , 4 , 32) ) > 172800) && ( $hget( $hget(%bak.count_hash) , %bak.this_pack ).item != $null ) {
          hdel $hget(%bak.count_hash) $hget( $hget(%bak.count_hash) , %bak.this_pack ).item
          inc %bak.removed
          inc %bak.tot_rem
        }
        inc %bak.total_packs
        inc %bak.this_pack
      }
      .msg %chan_s 8Finished Updating Pack Database For9 $gettok( $hget(%bak.count_hash) ,2,46) 8Removed a total of9 %bak.removed 8Packs Out Of9 %bak.items.p 8That were 48hrs old and took9 $duration($calc( $ctime - %bak.this_ctime )) 8To Update.
      :hereinc
      inc %bak.count_hash
    }
  }
  if (%bak.count_hash > %bak.hash_t) { 
    .msg %chan_s 8Finished updating pack Database... removed a total of9 %bak.tot_rem 8Packs Out Of9 %bak.total_packs 8From the database and took9 $duration($calc( $ctime - %bak.up_ctime )) 8To Update. Next Update Will Begin At Approx.9 $time( $calc( $ctime + 18000 ) ,hh:nn tt) -pst 
    .timerupdate $time( $calc( $ctime + 18000 ) ,hh:nn.tt) 1 1 update_packs
    unset %bak.*
    sv_hash
    halt
  }
  :end
  .timertwo--- 1 2 two---
}
alias sv_hash {
  var %i = 1
  while ($hget(%i)) {
    hsave -o $hget(%i) $mircdirPack_Search\ $+ $replace($hget(%i),|,$chr(44)) $+ .txt
    echo -a Saved $replace($hget(%i),|,$chr(44)) Pack Database
    inc %i
  }
}