Editeur de input par module

Commenter

Contenu du snippet

voila ;)

Source / Exemple : 


dialog editeur {
  title "editeur"
  size -1 -1 303 156
  option dbu
  tab "on 1:text:", 1, 0 0 299 154
  text "Inscrit des la Case le(s) mot ( pas + de 3 ou 4 mots ) ou tu souhaite etre averti ", 7, 13 35 194 8, tab 1
  text "Mot a détceter :", 8, 12 49 54 8, tab 1
  edit %text, 9, 66 48 84 10, tab 1 autohs
  list 10, 12 61 152 73, tab 1 size
  button "Faire la remote", 11, 165 61 46 73, tab 1
  box "on 1:text:", 3, 4 22 239 121, tab 1
  tab "on 1:join:", 2
  text "Inscrit des la Case les décos quand tu entre genre @ tu entre sur #newbies @ voila ...", 4, 11 29 230 8, tab 2
  text "Décos avant :", 5, 14 41 54 8, tab 2
  edit %decosav, 6, 68 40 48 10, tab 2 autohs
  list 12, 14 77 275 73, tab 2 size
  button "Faire la remote", 13, 100 55 153 20, tab 2
  box "on 1:join:", 15, 9 19 285 133, tab 2
  text "Décos aprés :", 17, 119 41 47 9, tab 2
  edit %decosap, 18, 166 41 50 10, tab 2 autohs
  button "Jouer un sons ???????", 19, 13 55 86 20, tab 2
}

on *:dialog:editeur:sclick:19:set %MP3Dir $sfile( *editeur , Choisissez un fichier audio )
on 1:dialog:editeur:edit:6:set %decosav $did(6)
on 1:dialog:editeur:edit:18:set %decosap $did(18)
on 1:dialog:editeur:edit:9:set %text $did(9)
on 1:dialog:editeur:sclick:11:{ 
  did -a editeur 10  ----------------- Construction de la remote -----------------
  did -a editeur 10 
  did -a editeur 10  On 1:text:* %text *:#:{ echo -a $nick a di %text sur $chan }
    did -a editeur 10  }
    did -a editeur 10 
    did -a editeur 10    ----------------- Fin de la remote  -----------------
  }
}

on 1:dialog:editeur:sclick:13:{
  did -a editeur 12 ---------- Construction de la remote ----------
  did -a editeur 12 
  did -a editeur 12 on ^1:JOIN:*:{
    did -a editeur 12 if ($nick == $me) { //echo $chan  $timestamp  %decosav  Join  %decosap Tu entres sur $chan | splay %MP3dir $sfile( *editeur , Choisissez un fichier audio ) }
    did -a editeur 12 else { //echo $chan  $timestamp %decosav Join %decosap  $nick ( < $+ $address $+ > ) sur $chan }
    did -a editeur 12 haltdef
    did -a editeur 12 }
    did -a editeur 12  ---------- fin de la remote ----------  
  }
}

A voir également

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 (NaNo45)