Systeme d'away pour la nouvelle version de voila

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 840 fois - Téléchargée 29 fois

Contenu du snippet

Mon code, c'est plutôt dur à expliquer, est un systeme d'away qui join 2 serveurs au démarage et ensuite jongle avec ces 2 serveurs pour pouvoir ainsi changer de pseudo completement. Je vous laisse le configurer. Le systeme d'away de base n'est pas de moi. Vous mettez dans les remotes ce qui doit aller dans les remotes, dans les alias, ce qui doit aller dans les alias, dans les variables, ce qui doit aller dans les alias ! Soyez indulgents, je débute dans le scripting, a peine 3semaines que j'ai commencé !

Source / Exemple :


################################# Dans les alias ##################################
modeaway {
  /scid -t1 1 nick %away-pseudo
  /scid -t1 2 nick %second pseudo $+ `[ $+ %away-pseudo $+ ]
  %a = 1
  %v = $chan(0)
  while (%a <= %v) {
    set %chan(%a) $comchan($me,%a)
    if %chan(%a) == %chan-aw1 { goto fin }
    part %chan(%a)
    scid -t1 2 join %chan(%a)
    :fin
    inc %a
  }
  /timer 1 3 scid -t1 2 ame est Away (Raison : %away-motif $+ ) (Heure : $time $+ )
  /timer 1 3 scid -t1 1 ame est Away (Raison : %away-motif $+ ) (Heure : $time $+ )
  /set %modeaway Retour d'away
  /set %heureaway $time
}

repondeur {
  if ($timer( $+ $nick $+ ) == $null) && (%modeaway == Retour d'away) {
    /set %timer [ $+ [ $nick ] ] active
    /msg $nick 1 $+ Je suis Away depuis %heureaway $chr(124) Raison : %away-motif $chr(124) Laisse un Message
    /timer $+ $nick 1 60 unset %timer [ $+ [ $nick ] ]  
  }
}

backaway {
  /scid -t1 1 nick me
  /scid -t1 2 nick %second pseudo
  /timer 1 3 scid -t1 1 ame était Away (Raison : %away-motif $+ ) (depuis Heure : %heureaway $+ )
  /timer 1 3 scid -t1 2 ame était Away (Raison : %away-motif $+ ) (depuis Heure : %heureaway $+ )
  /set %modeaway Mode away
  %a = 1
  %v = $chan(0)
  while (%a <= %v) {
    set %chan(%a) $comchan($me,%a)
    if %chan(%a) == %chan-aw2 { goto fin }
    part %chan(%a)
    scid -t1 1 join %chan(%a)
    :fin
    inc %a
  }
}
 ################################# Dans une remote ##################################
on *:start:{
  nick %premier-pseudo
  anick %second pseudo
  set %modeaway Mode away
  server chat4.x-echo.com 6667
  server -m chat2.servihoo.com 6667
  timer 1 5 scid -t1 1 join %chan-aw1
  timer 1 5 scid -t1 2 join %chan-aw2
}
 ################################# Dans une autre remote ##################################
menu menubar {
%modeaway:{
  if (%modeaway == Mode away) { .dialog -m away away }  
  else { backaway }
}
}
menu channel {
%modeaway:{
  if (%modeaway == Mode away) { .dialog -m away away }  
  else { backaway }
}
}
dialog away {
  title "Away"
  size -1 -1 200 74
  option dbu
  button "Away", 2, 57 58 37 12, flat 
  edit "", 3, 45 16 143 10
  edit "", 13, 45 5 143 10
  text "Pseudo d'away", 12, 4 5 40 8
  text "Motif d'away", 4, 4 15 35 8
  radio "on", 6, 5 42 19 10
  radio "off", 7, 27 42 19 10
  button "Ok", 11, 112 58 37 12, flat ok
}

on *:dialog:away:init:*:{
  did -a away 13 %away-pseudo
  did -a away 3 %away-motif
  if $group(#away-repondeur) == on { did -c away 6 } 
  else { did -c away 7 }
}

on *:dialog:away:sclick:11: {
  set %away-motif $did(away,3).text
  set %away-pseudo $did(away,13).text
}

on *:dialog:away:sclick:2: {
  set %away-motif $did(away,3).text
  set %away-pseudo $did(away,13).text
  dialog -x away away
  modeaway
}

#away-repondeur on
on *:text:*:?:{ repondeur }
#away-repondeur end

 ################################# Dans les Variables ##################################
%premier-pseudo le pseudo que tu utilise tout le temps
%second pseudo ton pseudo d'away
%chan-aw1 salon que vous ne voulais jamais quitter du premier server
%chan-aw2 salon que vous ne voulais jamais quitter du second server
%modeaway Mode away
%heureaway
%away-motif
%away-pseudo

Conclusion :


Ya pas de pubs paske ca sert a rien. Bon t'chat ! Signalez moi tout bug pliz

A voir également

Ajouter un commentaire Commentaires
Messages postés
338
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
29 novembre 2007

ben je te donne mon avis
on es ts passer par la a un moment lol
Messages postés
21
Date d'inscription
dimanche 1 juin 2003
Statut
Membre
Dernière intervention
27 mars 2006

Bah oui jhd, mais d'un coté ça fait à peine plus de trois semaines que je script. Et celui la n'est pas celui que j'ai fais pour moi. Je vais le modifier avec un dialogue ect...
Messages postés
54
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
28 juillet 2003

jhd soi pa tro rude avec nou :|, on fai skon pe...
Messages postés
338
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
29 novembre 2007

trop simple

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.