Away systeme en dialog

0/5 (6 avis)

Snippet vu 3 844 fois - Téléchargée 25 fois

Contenu du snippet

C Un Away Systeme En DIalog : Ma Premiere Source !!

Source / Exemple :


on *:load:{
  echo -a 15,4Bienvenue Dans Away Systeme §§
  echo -a 15,4Version 1.0
  echo -a 15,4Transfer En Cours ....
  echo -a 15,7Installation Reussite!!
  echo -a 15,4Fait Par DarkWell
  echo -a 15,8-----------------------------
}

dialog away {
  Title "Away Systeme §§ 1.0"
  size -1 -1 350 300
  tab "Away", 1, 0 0 350 200
  tab "Config", 2
  text "Raison:", 3, 5 75 50 75, tab 2
  edit "", 4, 45 75 100 20, autohs , tab 2
  text "Nick:", 5, 190 75 50 75, tab 2
  edit "", 6, 220 75 100 20 , tab 2 , autohs
  box "Away", 8, 5 40 100 100, tab 1
  button "&Partir", 9, 10 60 40 25, tab 1
  button "&Revenir", 10, 10 95 45 25, tab 1
  box "Page", 11, 150 40 100 100, tab 1
  check "", 12, 183 60 25 20, tab 1
  text "&On", 13, 155 60 25 20, tab 1
  text "&Off", 14, 155 80 25 20,tab 1
  check "", 15, 183 80 25 20, tab 1
  button "&Appliquer", 16, 140 130 55 25, tab 2
  box "", 17, 135 122 64 35, tab 2
}

alias *away {
  if ($did(12).state == 1 ) { set %pager on | set %pag on }
  if ($did(15).state == 1 ) { set %pager off | set %pag off }
  if ( %aways == On ) { echo -a 12Tu es déjà away | halt }
  away %Reason 
  set %nick $me
  set %newnick $did(6)
  .nick %newnick
  set %Date $date | set %time $time | set %month $date(mmm) | set %year $date(yy) | set %day $date(dd)
  set %Mins 0 | .timer98 0 60 /inc %Mins 1 | set %Hours 0 | .timer97 0 3600 /inc %Hours 1 | .timer96 0 3600  /set %mins 0
  set %away 15,2Est Away , Raison ( %Reason  ) [ $date %time ] ( Pager: %pager ) XtremeIrc Away Systeme 
  ame %away
  set %olreason %reason
  set %aways on
  if ( %ping == on ) { /timer300 0 600 ame %away }
  else { halt }
}

alias *back {
  if ( %aways == off ) { echo -a 12You are 14not away!! | halt }
  .nick %nick
  ame 15,2Est De Retour, ( %olreason  ) J'me Suis Absenté Pendant [  %Hours  h  %Mins  mins ] ( %date %time ) XtremeIrc Away Systeme 
  away
  timer98 off
  timer97 off
  timer96 off
  .set %aways off
  .timer300 off
  .set %pager off
  .set %ping off
  else { halt }
}
remote
on 1:TEXT:*:?: {
  if ( %aways == On ) { notice $nick %away | halt }
  else { halt }
}
ctcp ^1:page*:{
  if ( %pager == off ) { halt }
  /write $mircdir/away/pages.txt  Tu a Été Pagé Par< $+ $nick $+ > A $date $time msg: $2-
  .notice $nick 15,4Tu Ma Pager.... Ton Msg Vient Detre Enregistrer Par Away Systeme By DarkWell 
}
on *:dialog:away:sclick:9:{
  if (%reas == $false) { set %reason ! Will Be Back Latah | goto away }
  else {
    set %reason $did(4) | goto away
    :away
    /*away 
  }
}
on *:dialog:away:sclick:10:{
  /*back
}
on *:dialog:away:sclick:9: {
  set %reason $did(4)
  set %newnick $did(6)
  if ($did(12).state == 1 ) { set %pager on | set %pag on }
  if ($did(15).state == 0 ) { set %pager off | set %pag off }

}
on *:dialog:away:init:*: {
  /did -a away 6 %newnick
  /did -a away 4 %reason
  if ( %pag == on ) { did -c away 3 }
  if ( %pag == off ) { did -u away 3 }
  if ( %pin == on ) { did -c away 4 }
  if ( %pin == off ) { did -u away 4 }
}

Conclusion :


Bof Jpense Po kI Est Des Bugs Meme Si Il En A Jmen Sacre Loll

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
dimanche 13 février 2005
Statut
Membre
Dernière intervention
14 janvier 2006

mdr wai cool pa mal
Messages postés
2
Date d'inscription
vendredi 18 juin 2004
Statut
Membre
Dernière intervention
26 juin 2004

je ne voudrais pas vexer celui ki l'a fait mais son away et un copi de un otre away ki es ici vu ke je test tous les axay et c exactemen la mm fenetre désolé je sais ke je ne script pa mais je tenener a faire cette remark ki n'est en ocun cas mechante
Messages postés
4
Date d'inscription
lundi 30 décembre 2002
Statut
Membre
Dernière intervention
25 mars 2003

kessk'il a besoin de l'ouvrir l'autre a chaque fois la ...
des gens se cassent le cul à partager leurs sources,
réfléchissez avant de dire nawak.
moi jle trouve bien ton code perso ... nan mé .. oh ..
y'a plus de jeunesse ( etc .. lol )
Messages postés
7
Date d'inscription
dimanche 26 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2004

merde ces po pire
Messages postés
4
Date d'inscription
jeudi 16 janvier 2003
Statut
Membre
Dernière intervention
26 février 2003

Non Jai Rien Copier Et Pour Lautre Affaire De Kickage bne jmen fou et c a peu pres sa mais coter design je sais kil est tres poche !!!
Afficher les 6 commentaires

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.