Invitesysteme+awaysyteme

Commenter

Contenu du snippet

un systeme d'invite qui garde en memoire le salon sur lequel vous taper l'invite + un systeme d'away tres utile aussi pour se que sa interesse ;)

Source / Exemple : 


;seter d'away par slide-waxe®--druide77
;pour la nwe version du script immortal en preparation
menu nicklist { 
  ==< inviter $$1 >==:/set %isvite $$1 | /set %istxt sur quelle salon inviter %isvite | /dialog -m invitesyst invitesyst
}
dialog invitesyst {
  title "seter d'invite par slide-waxe®"
  size -1 -1 126 45
  option dbu
  edit "", 1, 5 15 116 10, autohs
  button "ok/invite", 2, 12 31 37 12, ok
  box "", 3, 0 8 122 4
  text "", 4, 1 3 121 8, center
  button "cancel", 5, 73 31 37 12, cancel
}
on 1:dialog:invitesyst:sclick:*: {
  if ( $did == 2 ) { /set %ischv $did(invitesyst,1).text | /invite %isvite $did(invitesyst,1).text | /unset %isvite | /unset istxt }
  if ( $did == 5 ) { /unset %isvite | /unset %istxt | /unset %ischv }
}
on *:dialog:invitesyst:init:0: {
  did -ra invitesyst 1 %ischv
  did -a invitesyst 4 %istxt
}
on 1:load:/echo -a 4 le away systeme par slide-waxe® vient d'etre load | /echo -a 4je vous en remerci et jespere quil vous aportera autant de satisfaction | /echo -a 4 qu'a celui pour qui il eter destiner dorgine | echo -a 12slide-waxe®

menu channel { 
  systeme away:{
    set %fenac $active
    /dialog -m systemeawa systemeawa
  }
}
dialog systemeawa {
  title "away systeme pour neW ImMoRtAl par slide-waxe®"
  size -1 -1 456 182
  option pixels
  button "partir", 1, 91 101 60 23
  button "retour", 2, 276 101 60 23, ok
  text "[Away Mode]", 36, 245 16 100 20
  text "awaysysteme ImMoRtAl", 4, 76 15 160 20, center
  box "AwayNick", 28, 70 44 280 50
  text "Nick:", 32, 189 63 30 20
  edit "", 31, 218 62 127 21
  edit "", 3, 3 158 450 21
  text "entre un texte pour ta raison d'away", 5, 12 140 414 16, center
  text "quel nick away si tu veut changer ton nick", 6, 77 59 105 27, center
  button "- extention", 7, 359 53 90 36
}

on 1:dialog:systemeawa:sclick:*: {
  If ($did == 1) { 
    if ($did($dname,3) == $null) { /set %tention vous devez entrer une raison d'away sinon celle si ne sera pas pris en compte | /dialog -m generalerte generalerte }
    If ($did($dname,3) != $null) {  /set %awtex $did($dname,3) | /away %awtex | /describe $active 3*je devient away pour laraison suivante :7 %awtex  | echo $active 3 tu devien away pour la raison suivante :7 %awtex }
    If ($did($dname,31) == $null) && ($did($dname,3) != $null) { echo $active 7tu te mes en mode absense sen nick away }
    if ($did($dname,31) != $null) { /set %niaw $did($dname,31) | /nick %niaw  }
  }
  If ($did == 2) { /away | /describe $chan 3 je ne suis plus away | echo $active 4tu n'est plus marquer comme away }
  If ($did == 7) { /nick me }

}
dialog generalerte {
  title "mes.. d'alerte general"
  size -1 -1 171 58
  option dbu
  text "", 1, 5 7 159 30
  button "ok", 3, 77 43 21 12, cancel
}
on 1:dialog:generalerte:init:*: {
  /did -a generalerte 1 %tention
}

Conclusion :


ya pas plus compliquer vous placer dans vos remote ( c'est a dire pour les plus neuneu fout faite l'icone n°7 en dessous de fichier etc... puis sur la fenetre qui s'ouvre vous faite: fichier nouveau et vous placer cette source dedans)
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 (druide77)