Logothèque

Commenter

Contenu du snippet

Celà permet d'enregistrer les discussion sur un salon.

Source / Exemple : 


;Logothèque

menu channel {
  LoGoThEqUe:window -ak0l15S @LoGoThEqUe | logothèque
}

;Menu

menu @LoGoThEqUe {
  dclick:if $sline(@LoGoThEqUe,1) != $null { dclick } | else { clear @LoGoThEqUe }
  test:boatest
  ViSiOnNeR Ce LoGg:if $sline(@LoGoThEqUe,1) != $null { dclick } | else { clear @LoGoThEqUe }
  SuPpRiMeR:sup.log
  -
  RaFfRaIcHiR La LiStE:logothèque
}

;Alias

alias boatest {
  echo -ta BOAAAAAAA
  echo -ta ¯`­._.-Ž¯ Logg du salon $gettok(%log.var,1,46) le $mid($gettok(%log.var,2,46),7,2) $mois($mid($gettok(%log.var,2,46),5,2)) $mid($gettok(%log.var,2,46),1,4) ¯`­._.-Ž¯
  echo -ta loadbuf $lines($logdir $+ %log.var) -pr @LoGoThEqUe " $+ $logdir $+ %log.var $+ "
}
alias -l dclick {
  var %log.var = $strip($sline(@LoGoThEqUe,1))
  if $len($gettok(%log.var,2,46)) > 3 {
    if $mid(%log.var,1,1) == $chr(35) {
      set %log.title ¯`­._.-Ž¯ Logg du salon $gettok(%log.var,1,46) le $mid($gettok(%log.var,2,46),7,2) $mois($mid($gettok(%log.var,2,46),5,2)) $mid($gettok(%log.var,2,46),1,4) ¯`­._.-Ž¯
    }
    else {
      set %log.title ¯`­._.-Ž¯ Logg du pv avec $gettok(%log.var,1,46) le $mid($gettok(%log.var,2,46),7,2) $mois($mid($gettok(%log.var,2,46),5,2)) $mid($gettok(%log.var,2,46),1,4) ¯`­._.-Ž¯
    }
  }
  else {
    if $mid(%log.var,1,1) == $chr(35) {
      set %log.title ¯`­._.-Ž¯ Logg du salon $gettok(%log.var,1,46) ¯`­._.-Ž¯
    }
    else {
      set %log.title ¯`­._.-Ž¯ Logg du pv avec $gettok(%log.var,1,46) ¯`­._.-Ž¯
    }
  }
  .timer.log.title -mo 0 10 log.title
  loadbuf -pr @LoGoThEqUe " $+ $logdir $+ %log.var $+ "
  ;$lines($logdir $+ %log.var)
}
alias -l log.title {
  if %log.title.counter > $len(%log.title) {
    .timer.log.title off
    unset %log.title*
    halt
  }
  if %log.title.counter == $null { set %log.title.counter 1 }
  titlebar @LoGoThEqUe $left(%log.title,%log.title.counter)
  inc %log.title.counter
}
alias -l logothèque {
  titlebar @LoGoThEqUe | clear @LoGoThEqUe | clear -l @LoGoThEqUe | var %log.liste = $findfile($logdir,*,0)
  :aline
  if %log.liste == 0 { log.total.init | halt }
  aline -l @LoGoThEqUe 7 $+ $nopath($findfile($logdir,*.log,%log.liste))
  dec %log.liste 
  goto aline
}
alias -l log.total.init {
  iline -l @LoGoThEqUe 1 12[04 $+ $findfile($logdir,*.log,0) LoGgS $+ 12]
}
alias -l log.total {
  rline -l @LoGoThEqUe 1 12[04 $+ $findfile($logdir,*.log,0) LoGgS $+ 12]
}
alias -l sup.log {
  var %sup.log.total = $sline(@LoGoThEqUe,0)
  :loop
  if %sup.log.total == $null || %sup.log.total == 0 { log.total | halt }
  .remove " $+ $logdir $+ $strip($sline(@LoGoThEqUe,%sup.log.total)) $+ "
  dline -l @LoGoThEqUe $strip($sline(@LoGoThEqUe,%sup.log.total).ln)
  dec %sup.log.total
  goto loop
}

;Alias Temps
alias mois {
  if $$1 == 1 { return Janvier }
  if $$1 == 2 { return Février }
  if $$1 == 3 { return Mars }
  if $$1 == 4 { return Avril }
  if $$1 == 5 { return Mai }
  if $$1 == 6 { return Juin }
  if $$1 == 7 { return Juillet }
  if $$1 == 8 { return Août }
  if $$1 == 9 { return Septembre }
  if $$1 == 10 { return Octobre }
  if $$1 == 11 { return Novembre }
  if $$1 == 12 { return Décembre }
  else { return $null }
}

Conclusion :


Voilà enjoy ;)
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ATp5)