/ScriptServ

;IRcap8 b1fb2f2c86e9d10793955af5d3ca2d8f

#COMPER on
on 1:SIGNAL:modoescritura: {
  if ($left($1,1) == %comper.pre) {
    var %c = $mid($1,2,99) 
    if ($hget(comper,%c)) { 
      var %a = $replace($hget(comper,%c),&me,$me,&ac,$active,&c,$active,&1,$2,&2,$3,&3,$4,&4,$5,&5,$6) 
      var %n = 1 | :L1 | var %c = $gettok(%a,%n,127) | if (%c) {
        if ($gettok(%c,1,32) == me) { %c = describe $active $gettok(%c,2-,32) }
        qc %c | inc %n | goto L1 
      }
      %frase^halt = %comper.eco | sss click
    }
  }
}
#COMPER end

alias COMPER {
  goto $1
  :carga | if ($hget(comper)) .hfree -s comper | .hmake -s comper
  var %n = 1 | :L1 | var %a = $readini(%perfil,comper,%n) | if (%a) { hadd comper $gettok(%a,1,32) $replacecs($gettok(%a,2-,32),<K;>,,<B;>,,<U;>,,<R;>,,<O;>,) | inc %n | goto L1 } 
  return
}

on 1:start: %comper.eco = $gettok($readini(%perfil,comper,var),1,32) | %comper.pre = $gettok($readini(%perfil,comper,var),2,32) | if (!%comper.pre) { %comper.pre = . } | if (!%comper.eco) { %comper.eco = off } | comper carga
alias COMPER.unload .hfree -s comper | unset %comper.* |  unload -rs comper.mrc

;EOF