Touches f

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 059 fois - Téléchargée 27 fois

Contenu du snippet

Permet de configurer les touches F1, F2, ...
Pratique lorsque on veut sortir un script et le proposer a des gens ki savent pas add un alias

Source / Exemple :


menu menubar,status { 
  Configuration des touches F:/dialog -m touchesF touchesF 
}
dialog touchesF {
  title "Touches F.... By M3n|2|o``"
  size -1 -1 225 219
  option dbu
  box "Touche F1", 1, 6 3 204 20
  button "Tester", 2, 174 10 32 9
  edit "", 3, 10 11 162 10
  box "Touche F2", 7, 6 24 204 20
  button "Tester", 8, 174 31 32 9
  edit "", 9, 10 32 162 10
  box "Touche F4", 10, 6 66 204 20
  box "Touche F3", 11, 6 45 204 20
  button "Tester", 12, 174 52 32 9
  button "Tester", 13, 174 73 32 9
  edit "", 14, 10 53 162 10
  edit "", 15, 10 74 162 10
  box "Touche F7", 16, 6 128 204 20
  box "Touche F8", 17, 6 149 204 20
  box "Touche F6", 18, 6 107 204 20
  box "Touche F5", 19, 6 86 204 20
  button "Tester", 20, 174 93 32 9
  button "Tester", 21, 174 114 32 9
  edit "", 22, 10 94 162 10
  edit "", 23, 10 115 162 10
  button "Tester", 24, 174 135 32 9
  button "Tester", 25, 174 156 32 9
  edit "", 26, 10 136 162 10
  edit "", 27, 10 157 162 10
  box "Touche F9", 28, 6 170 204 20
  button "Tester", 29, 174 177 32 9
  edit "", 30, 10 178 162 10
  button "Ok", 35, 28 200 172 12, ok

  menu "Auteur", 31
  item "Mailer", 32, 31
  item "Page Web", 33, 31
  menu "?", 34
  item "Aide", 36, 34
  item "A propos de Touches F...", 37, 34
}

on *:dialog:touchesF:init:00:{
  did -ar touchesF 3 %toucheF1
  did -ar touchesF 9 %toucheF2 
  did -ar touchesF 14 %toucheF3
  did -ar touchesF 15 %toucheF4 
  did -ar touchesF 22 %toucheF5 
  did -ar touchesF 23 %toucheF6 
  did -ar touchesF 26 %toucheF7
  did -ar touchesF 27 %toucheF8 
  did -ar touchesF 30 %toucheF9
} 
on *:dialog:touchesF:sclick:2:{ $did(touchesF,3) }
on *:dialog:touchesF:sclick:8:{ $did(touchesF,9) }
on *:dialog:touchesF:sclick:12:{ $did(touchesF,14) }
on *:dialog:touchesF:sclick:13:{ $did(touchesF,15) }
on *:dialog:touchesF:sclick:20:{ $did(touchesF,22) }
on *:dialog:touchesF:sclick:21:{ $did(touchesF,23) }
on *:dialog:touchesF:sclick:24:{ $did(touchesF,26) }
on *:dialog:touchesF:sclick:25:{ $did(touchesF,27) }
on *:dialog:touchesF:sclick:29:{ $did(touchesF,30) }
on *:dialog:touchesF:sclick:35:{ configF }
on 1:dialog:touchesF:*:*:{
  if ($devent == menu) {
    if ($did == 36) dialog -m aide aide
    if ($did == 37) dialog -m apropos apropos
    if ($did == 32) run mailto:MenZo8313@hotmail.com
    if ($did == 33) run www.jaguarscript.fr.st
  }
}
alias configF {
  set %toucheF1 $did(touchesF,3)
  set %toucheF2 $did(touchesF,9)
  set %toucheF3 $did(touchesF,14)
  set %toucheF4 $did(touchesF,15)
  set %toucheF5 $did(touchesF,22)
  set %toucheF6 $did(touchesF,23)
  set %toucheF7 $did(touchesF,26)
  set %toucheF8 $did(touchesF,27)
  set %toucheF9 $did(touchesF,30)
  dialog -x touchesF
}
alias F1 { %toucheF1 }
alias F2 { %toucheF2 }
alias F3 { %toucheF3 }
alias F4 { %toucheF4 }
alias F5 { %toucheF5 }
alias F6 { %toucheF6 }
alias F7 { %toucheF7 }
alias F8 { %toucheF8 }
alias F9 { %toucheF9 }
;-----------------------------------------------------------------------------------------------------------------------------------------------------------------------
dialog aide {
  title "Aide"
  size -1 -1 136 96
  option dbu
  text "Dialogue d'aide a la configuration des touches F...", 1, 14 3 103 15, center
  text "Il suffit de taper l'action que l'on souhaite executer", 2, 8 29 120 11, center
  text "Exemple : /say Bonjour tout le monde", 3, 18 52 105 10
  button "Ok", 4, 48 76 37 12, ok
}
dialog apropos {
  title "A propos......"
  size -1 -1 136 96
  option dbu
  text "By M3n|2|o`` .........", 1, 88 56 47 9
  text "Ecrit par M3n|2|o`` Par respect pour l'auteur merci de ne pas recopier ce remote...", 2, 24 8 88 35, center
  link "JaGuAr SiTe", 3, 8 80 35 8
  button "Ok", 4, 53 77 37 12, ok
}
on *:dialog:apropos:sclick:3:{ run www.jaguarscript.fr.st }
on *:start:{ 
  echo -s 12 Chargement de L'addon "Touches F"
  echo -s 12 Conçu, pensé et réalisé par M3n|2|o``
  echo -s 12 
  echo -s 12Commandes avec les touches F1, F2, ... 
  echo -s 0 [12F10]  %toucheF1
  echo -s 0 [12F20]  %toucheF2
  echo -s 0 [12F30]  %toucheF3
  echo -s 0 [12F40]  %toucheF4
  echo -s 0 [12F50]  %toucheF5
  echo -s 0 [12F60]  %toucheF6
  echo -s 0 [12F70]  %toucheF7
  echo -s 0 [12F80]  %toucheF8
  echo -s 0 [12F90]  %toucheF9
}

Conclusion :


Pour configurer, aller dans la menubar.
Ne pas mettre dautres aliases F1 ou autres pour eviter les conflits

A voir également

Ajouter un commentaire Commentaire
Messages postés
5
Date d'inscription
samedi 15 juillet 2006
Statut
Membre
Dernière intervention
20 septembre 2006

Berk, horrible des variables pour un truc pareil.. Utilise des INIs
Sinon si une case est vide... Ca bug parce que la variable est vide... fait un $iif(!$did(...),unset %touche,set %touch $v1)

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.