couleur dialog

Publiez vos remotes

Modérateur : Equipe Powanet

hgxv
PowaUser
Messages : 17
Inscription : 02 mars 2009, 11:35

couleur dialog

Message par hgxv » 25 févr. 2010, 19:20

Code : Tout sélectionner

dialog couleurs {
  title "couleurs"
  size -1 -1 165 123
  option dbu
  check "noir", 1, 2 12 25 10
  check "bleu foncé", 2, 2 22 35 10
  check "vert", 3, 2 32 25 10
  check "rouge", 4, 2 42 25 10
  check "marron", 5, 2 52 25 10
  check "violet", 6, 2 62 25 10
  check "orange", 7, 2 72 25 10
  check "bleu-vert", 8, 2 82 35 10
  check "bleu", 9, 2 92 25 10
  check "rose", 10, 2 102 25 10
  check "gris", 11, 2 112 25 10
  text "1ere lettre:", 12, 2 2 100 10
  check "noir", 13,52 12 25 10
  check "bleu foncé", 14,52 22 35 10
  check "vert", 15,52 32  25 10
  check "rouge", 16,52 42 25 10
  check "marron", 17,52 52 25 10
  check "violet", 18,52 62 25 10
  check "orange", 19,52 72 25 10
  check "bleu-vert", 20,52 82 35 10
  check "bleu", 21,52 92 25 10
  check "rose", 22,52 102 25 10 
  check "gris", 23,52 112 25 10
  text "2eme lettre:", 24, 52 2 100 10
  check "gras", 25, 100 12 100 10
  check "souligné", 26, 100 22 100 10
  check "Majuscule automatique", 27, 100 32 100 10
  button "Tester", 28, 100 52 25 45
  Button "Valider", 29, 125 52 26 45, ok
  text "Add-On réalisé entièrement par", 30, 75 102 85 100
  link "hgxv", 31, 153 102 85 100
}
On *:dialog:couleurs:sclick:*:{
  if $did == 1 { did -u couleurs 2,3,4,5,6,7,8,9,10,11 | set %couleur1 1 }
  if $did == 2 { did -u couleurs 1,3,4,5,6,7,8,9,10,11 | set %couleur1 2 }
  if $did == 3 { did -u couleurs 1,2,4,5,6,7,8,9,10,11 | set %couleur1 3 }
  if $did == 4 { did -u couleurs 1,2,3,5,6,7,8,9,10,11 | set %couleur1 4 }
  if $did == 5 { did -u couleurs 1,2,3,4,6,7,8,9,10,11 | set %couleur1 5 }
  if $did == 6 { did -u couleurs 1,2,3,4,5,7,8,9,10,11 | set %couleur1 6 } 
  if $did == 7 { did -u couleurs 1,2,3,4,5,6,8,9,10,11 | set %couleur1 7 }
  if $did == 8 { did -u couleurs 1,2,3,4,5,6,7,9,10,11 | set %couleur1 10 }
  if $did == 9 { did -u couleurs 1,2,3,4,5,6,7,8,10,11 | set %couleur1 12 }
  if $did == 10 { did -u couleurs 1,2,3,4,5,6,7,8,9,11 | set %couleur1 13 }
  if $did == 11 { did -u couleurs 1,2,3,4,5,6,7,8,9,10 | set %couleur1 14 }
  if $did == 13 { did -u couleurs 14,15,16,17,18,19,20,21,22,23 | set %couleur2 1 }
  if $did == 14 { did -u couleurs 13,15,16,17,18,19,20,21,22,23 | set %couleur2 2 }
  if $did == 15 { did -u couleurs 13,14,16,17,18,19,20,21,22,23 | set %couleur2 3 }
  if $did == 16 { did -u couleurs 13,14,15,17,18,19,20,21,22,23 | set %couleur2 4  }
  if $did == 17 { did -u couleurs 13,14,15,16,18,19,20,21,22,23 | set %couleur2 5 }
  if $did == 18 { did -u couleurs 13,14,15,16,17,19,20,21,22,23 | set %couleur2 6 } 
  if $did == 19 { did -u couleurs 13,14,15,16,17,18,20,21,22,23 | set %couleur2 7 }
  if $did == 20 { did -u couleurs 13,14,15,16,17,18,19,21,22,23 | set %couleur2 10 }
  if $did == 21 { did -u couleurs 13,14,15,16,17,18,19,20,22,23 | set %couleur2 12 }
  if $did == 22 { did -u couleurs 13,14,15,16,17,18,19,20,21,23 | set %couleur2 13 }
  if $did == 23 { did -u couleurs 13,14,15,16,17,18,19,20,21,22 | set %couleur2 14 }
  if $did == 25 { $iif(%gras != ,set %gras ,unset %gras) }
  if $did == 26 { $iif(%souligne != ,set %souligne ,unset %souligne) }
  if $did == 27 { $iif(%majauto != ok,set %majauto ok,unset %majauto) }
  if $did == 28 { echo 4 -at [TEST] couleurs -> %gras $+ %souligne $+  $+ %couleur1 $+ $iif(%majauto == ok,$upper(c),c) $+  $+ %couleur2 $+ eci est un test. }
  if $did == 29 { dialog -x couleurs couleurs | if %1erefoiscouleurs != ok { $iif($input(Voulez vous vous connecter?,yq,Connection),server irc.evolu.net) | set %1erefoiscouleurs ok } }
  if $did == 31 { halt }
}
On *:dialog:couleurs:init:*:{
  $iif(%couleur1 == 1,did -c couleurs 1)
  $iif(%couleur1 == 2,did -c couleurs 2)
  $iif(%couleur1 == 3,did -c couleurs 3)
  $iif(%couleur1 == 4,did -c couleurs 4)
  $iif(%couleur1 == 5,did -c couleurs 5)
  $iif(%couleur1 == 6,did -c couleurs 6)
  $iif(%couleur1 == 7,did -c couleurs 7)
  $iif(%couleur1 == 10,did -c couleurs 8)
  $iif(%couleur1 == 12,did -c couleurs 9)
  $iif(%couleur1 == 13,did -c couleurs 10)
  $iif(%couleur1 == 14,did -c couleurs 11)
  $iif(%couleur2 == 1,did -c couleurs 13)
  $iif(%couleur2 == 2,did -c couleurs 14)
  $iif(%couleur2 == 3,did -c couleurs 15)
  $iif(%couleur2 == 4,did -c couleurs 16)
  $iif(%couleur2 == 5,did -c couleurs 17)
  $iif(%couleur2 == 6,did -c couleurs 18)
  $iif(%couleur2 == 7,did -c couleurs 19)
  $iif(%couleur2 == 10,did -c couleurs 20)
  $iif(%couleur2 == 12,did -c couleurs 21)
  $iif(%couleur2 == 13,did -c couleurs 22)
  $iif(%couleur2 == 14,did -c couleurs 23)
  $iif(%gras == , did -c couleurs 25)
  $iif(%souligne == , did -c couleurs 26)
  $iif(%majauto == upper($left($1-,1)),did -c couleurs 27)
}
on *:input:*:{
  ($left($1-,1) == 0) || if (($left($1 -,1) == 1) || ($left($1-,1) == 2) || ($left($1-,1) == 3) || ($left($1-,1) == 4) ||  ($left($1-,1) == 5) || ($left($1-,1) == 6) || ($left($1-,1) == 7) || ($left($1-,1) == 8) || ($left($1-,1) == 9) || ($left($1-,1) == !) ) {
    msg $chan $1-
    halt def
  }
  elseif ( $left($1-,1) != / ) {
    msg $active %gras $+ %souligne $+  $+ %couleur1 $+ $iif(%majauto == ok,$upper($left($1-,1)),$left($1-,1)) $+  $+ %couleur2 $+ $right($1-,-1)
    halt def
  }
}
Voilà, c'est un dialog récurent qui peut surement être simplifié et optimisé mais pas trop le temps de le faire donc ceux que ça intéresse ben voilà :)
si y'a un partie que vous ne comprenez pas j'peux expliquer.
//////////Moi c'est moi, Toi c'est toi, mais de nous ça a toujours été moi le meilleur\\\\\\\\\\

Répondre

Qui est en ligne ?

Utilisateurs parcourant ce forum : Aucun utilisateur inscrit et 1 invité