Boite de dialogue pour envoyer des messages personnalises

Commenter

Contenu du snippet

Une boite de dialogue s'ouvre pour vous permettre de personnaliser vos slaps
Le charger dans les remote et c tout :)

Source / Exemple : 


dialog slop {
  title "Amuse-toi bien! :)"
  size -1 -1 223 196
  option dbu
  combo 1, 15 22 120 50, sort size drop
  combo 2, 15 50 120 50, sort size drop
  list 4, 145 24 68 63, size
  button "Rafraichir", 5, 145 92 68 15, flat
  edit "", 7, 15 78 120 26
  text "Couleur du texte", 9, 15 10 120 8, center
  text "Couleur de fond", 10, 15 37 120 8, center
  button "me", 20, 15 141 120 10
  button "say", 21, 15 152 120 10
  button "ame", 22, 15 163 120 10
  button "amsg", 23, 15 174 120 10
  button "notice à", 24, 15 108 120 10
  button "slap avec", 25, 15 130 120 10
  text "Message à envoyer", 6, 15 65 120 8, center
  text "Pseudo sur le channel", 8, 145 10 68 8, center
  button "Fermer", 3, 145 160 68 24
  text "Simple-click sur un pseudo pour le mémoriser. Double-click sur un pseudo pour l'afficher dans l'edit.", 11, 145 117 68 29, center
  button "Msg à", 26, 15 119 120 10
}

on *:dialog:slop:init:*: {
  var %colt Blanc,Noir,Bleu Foncé,Vert Foncé,Rouge,Bleu-gris,Violet Foncé,Orange,Jaune,Vert clair,Bleu-vert,Bleu clair,Bleu,Rose,Gris foncé,Gris clair
  didtok slop 1 44 %colt
  didtok slop 2 44 %colt
}

on *:dialog:slop:dclick:4: {
  did -af slop 7 $did(4).seltext
}

on *:dialog:slop:sclick:*: {
  var %pseu = $did(4).seltext
  var %txt = $did(7)
  var %colt Blanc,Noir,Bleu Foncé,Vert Foncé,Rouge,Bleu-gris,Violet Foncé,Orange,Jaune,Vert clair,Bleu-vert,Bleu clair,Bleu,Rose,Gris foncé,Gris clair
  if ($did == 1) {
    var %z $did(slop,1)
    var %w $findtok([ %colt ],[ %z ],1,44))
    .set %t $calc(-1+ %w)
  }
  if ($did == 2) {
    var %x $did(slop,2)
    var %y $findtok([ %colt ],[ %x ],1,44))
    .set %f $calc(-1+ %y)
  }
  if ($did == 3) {
    .unset -s %f %t
    dialog -x slop
    halt
  }
  if ($did == 4) {
    did -ra slop 20 me %txt
    did -ra slop 21 say %txt
    did -ra slop 22 ame %txt
    did -ra slop 23 amsg %txt
    did -ra slop 24 notice à %pseu : %txt
    did -ra slop 25 slap %pseu avec %txt
    did -ra slop 26 msg à %pseu : %txt
  }
  if ($did == 5) {
    did -r slop 4   
    var %ca = $active
    if %ca != status windows {
      var %n 1
      while %n <= 150 {
        didtok slop 4 44 $nick(%ca,%n)
        inc %n
      }
      halt
    }
  }
  if ($did == 20) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    else describe $active %txt
  }
  if ($did == 21) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    if (%t !isnum) {
      msg $active %txt
    }
    elseif (%f !isnum) {
      msg $active  $+ %t $+ %txt 
    }
    else msg $active  $+ %t $+ , $+ %f $+ %txt
  }
  if ($did == 22) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    else ame %txt
  }
  if ($did == 23) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    if (%t !isnum) {
      amsg %txt   
    }
    elseif (%f !isnum) {
      amsg  $+ %t $+ %txt    
    }
    else amsg  $+ %t $+ , $+ %f $+ %txt
  }
  if ($did == 24) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    if (!%pseu) {
      did -ra slop 4 Pas de pseudo choisit
    }
    else notice %pseu %txt
  }
  if ($did == 25) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    elseif (!%pseu) {
      did -ra slop 4 Pas de pseudo choisit
    }
    else describe $active slap %pseu avec %txt
  }
  if ($did == 26) {
    if (!%txt) {
      did -ra slop 7 Pas de message choisit
    }
    if (!%pseu) {
      did -ra slop 4 Pas de pseudo choisit | halt
    }
    if (%t !isnum) {
      msg %pseu %txt  
    }
    elseif (%f !isnum) {
      msg %pseu  $+ %t $+ %txt   
    }
    else msg %pseu  $+ %t $+ , $+ %f $+ %txt
  }
}

on *:dialog:slop:edit:7: {
  var %txt = $did(7)
  did -ra slop 20 me %txt
  did -ra slop 21 say %txt
  did -ra slop 22 ame %txt
  did -ra slop 23 amsg %txt
  did -ra slop 24 notice à %pseu : %txt
  did -ra slop 25 slap %pseu avec %txt
  did -ra slop 26 msg à %pseu : %txt
}

menu nicklist,menubar,channel {
  -|&#8224; EXTRA Slap &#8224;|-:/sloup
}

;--------------------------------------------------------------------------------------------
;0 Blanc,1 Noir,2 Bleu Foncé,3 Vert Foncé,4 Rouge,5 Bleu-gris,6 Violet Foncé,7 Orange,8 Jaune
;9 Vert clair,10 Bleu-vert,11 Bleu clair,12 Bleu,13 Rose,14 Gris foncé,15 Gris clair
;--------------------------------------------------------------------------------------------

alias sloup {
  dialog -m slop slop {
  }
}

Conclusion :


Je n'ai pas vu de bug sur ma version de mIRC mais dite moi si probleme y a...

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 (Kuku Xumusu)