Away sys v1.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 863 fois - Téléchargée 31 fois

Contenu du snippet

Simple away system
-pager
-log
-idle
-Nick change

Have fun o.O

Source / Exemple :


alias F4 {
  /unset %awayuser.*
  /dialog -m away away
}
alias warnaway echo -a You are away : %away.reason ( $+ $duration($calc($ctime - %aw.time)) $+ )
alias F5 {
  if ( $away == $true ) {
    if (%awaynick.use == on) { /nick %awaynick.old }
    /resetidle 0
    /away 
    /ame is back after $duration($calc($ctime - %aw.time)) !
    /set %way off  
    //.timeraway off
    /chicon data\main.ico
  }
  else { /echo -a $ud You are back! $ud }
}

on *:text:*:#:{
  if ( $me isin $1- ) { 
    if ( $away == $true ) { 
      if (%awaylog == on) { 
        /window @AwayLog
        /echo @awaylog [ $+ $time $+ ] < $+ $chan $+ / $+ $nick $+ > $1-
      }
      if ( %awayuser. $+ $nick !== yes ) { 
        /.notice $nick is away : reason -  %away.reason  - $+ $duration($calc($ctime - %aw.time)) 
        /set %awayuser. $+ $nick yes 
      } 
    }
  }
}

on *:text:*:?: { 
  if ($away == $true) { 
    /.notice $nick away : ( %away.reason ) - $+ $duration($calc($ctime - %aw.time)) 
    if ( %awaypage == on ) { /.notice $nick If you have somethins important for me /q $me }
    if (%awaylog == on) { 
      /window @AwayLog
      /echo @awaylog [ $+ $time $+ ] < $+ $nick $+ > $1-
    }
  }
}
ctcp *:page:?:{
  if ($away == $true) {  
    if ( %awaypage == on ) { /dialog -m paging paging | /beep 10000 1 | /flash AwAy Pager! | /.notice $nick PAGING!... | /echo -s <+*+> $nick is PAGING you... }
  }
}
on *:open:?:{
  if ($away == $true) {
    if (%awaylog == on) { //.timerclose $+ $nick 1 1 /closemsg $nick }
  }
}

menu menubar,status,channel {
  • Away System(now $iif($away == $true,on,off) $+ )
  .-
  .On:/F4
  .Off:/F5
  .-
  .Settings
  ..Pager(now| %awaypage $+ )
  ...ON:/set %awaypage on
  ...OFF:/set %awaypage off
  ..Idle(now| %awayidle $+ )
  ...ON:/set %awayidle on
  ...OFF:/set %awayidle off
  ...-
  ...Time(now %idletime.min min):{
    /set %idletime.min $?="Enter the time in minutes:"
    /set %idletime.sec $calc(%idletime.min * 60) 
  }
  ..Log(now| %awaylog $+ )
  ...ON:/set %awaylog on
  ...OFF:/set %awaylog off
  ..Use Nick(now %awaynick.use $+ )
  ...ON:/set %awaynick.use on
  ...OFF:/set %awaynick.use off
  ...-
  ...Nick(now %awaynick $+ ):/set %awaynick $?="Enter your away nick:"
  -
}
menu @AwAyLog {
  Close:/close -@ @AwAyLog
}
dialog paging {
  title "PAGING!!!"
  size 162 250 193 35
  option dbu
  button "OK", 10, 27 17 137 11, cancel,
  text "Press the OK Button to STOP Beeping!", 20, 6 5 181 6, center,
}
on *:dialog:paging:sclick:*:{
  if ( $did == 10 ) { /beep off }
}
alias checkidle {
  if ($away == $false) {
    if ($idle >= %idletime.sec) {
      /unset %awayuser.*
      /set %away.reason Auto-away
      /away  %away.reason 
      /ame is away. Reason - %away.reason (after %idletime.min mins idle)  
      /chicon data\away.ico
      /set %away on 
      /set %aw.time $ctime
      //.timeraway 0 300 /warnaway
    }
  }
}
dialog away {
  title "Away System by v1ko0" 
  size -1 -1 175 52 
  option dbu
  text "&Away message:", 202, 5 7 37 7
  edit "", 1, 43 5 118 11, autohs
  text "0", 4, 163 7 13 7
  check "&Pager on", 2, 5 21 44 7 
  check "&Log on", 3, 58 21 39 7
  button "OK", 101, 5 35 27 12, OK default
  button "Cancel", 102, 38 35 27 12, cancel
  check "&Nick:", 103, 75 38 22 7
  edit "", 105, 98 36 73 11
  check "Warn you are away", 104, 107 21 60 7, 3state
} 
on *:dialog:xaway:init:*:{
  if (%awaypage == off) { did -u away 2 }
  if (%awaypage == on) { did -c away 2 }
  if (%awaylog == off) { did -u away 3 }
  if (%awaylog == on) { did -c away 3 }
  if (%awaynick.use == off) { did -u away 103 }
  if (%awaynick.use == on) { did -c away 103 }
  if (%awaywarn == off) { did -u away 104 }
  if (%awaywarn == on) { did -c away 104 }
  if (%awaynick !== $null) { did -a away 105 %awaynick }
}
on *:dialog:away:sclick:*:{
  if ($did == 2) { 
    if (%awaypage == on) { /set %awaypage off }
    else { /set %awaypage on } 
  }
  if ($did == 3) { 
    if (%awaylog == on) { /set %awaylog off }
    else { /set %awaylog on } 
  }
  if ($did == 103) { 
    if (%awaynick.use == on) { /set %awaynick.use off }
    else { /set %awaynick.use on } 
  }
  if ($did == 101) { 
    /set %awaynick $did(105)
    if ($did(1) == $null) { /echo -a $ud Enter your reason ! $ud | halt }
    /set %away.reason $did(1)
    /away  %away.reason 
    /ame is away...reason - %away.reason  
    /chicon data\away.ico
    /set %way on 
    /set %aw.time $ctime
    if (%awaywarn == on) { //.timeraway 0 300 /warnaway }
    if (%awaynick.use == on) { /set %awaynick.old $me | /nick %awaynick }
  }
  if ($did == 104) { 
    if (%awaywarn == on) { /set %awaywarn off }
    else { /set %awaywarn on } 
  }
}

on *:DIALOG:away:edit:1:{ doeditboxchk }
alias -l doeditboxchk {
  if ($len($did(1)) < 100) { did -a $dname 4 $len($did(1)) }
  if ($len($did(1)) == 100) { %did1text = $did(1) | did -a $dname 4 Max }
  if ($len($did(1)) == 101) { did -ar $dname 1 %did1text | beep 1 | %did1text = $did(1) }
}

A voir également

Ajouter un commentaire Commentaires
Messages postés
199
Date d'inscription
lundi 19 mai 2003
Statut
Membre
Dernière intervention
7 avril 2005

C'est la 6841465ème source d'away qui existe ?
En plus c'est inutile.



***** Away *****
-
Définit votre statut comme "Away" (absent).
-
Syntaxe : /AWAY <raison> (Vous marque Away avec la raison donnée)
/AWAY (Ne vous marque plus comme Away)
Exemple : /AWAY A la bouffe!
Messages postés
24
Date d'inscription
mercredi 5 mai 2004
Statut
Membre
Dernière intervention
4 juillet 2004

uff i forget ..... f4 for open this system ;]

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.