Boite de dialogue pour envoyer des messages personnalises

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 547 fois - Téléchargée 31 fois

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

Ajouter un commentaire Commentaires
Messages postés
7
Date d'inscription
dimanche 8 août 2004
Statut
Membre
Dernière intervention
12 septembre 2004

Ouaip, vous avez raison... Cette source est inutile mais comme jsuis un noOb, ben je la voyais pratique.... Mais bon, après teste et tout c vrais, tout ce fait plus vite et a la main!! Bon alors pour mes prochaines sources, je ferais dans l'original. Et si elles existeront déjà, faudra que je vérifie si le code n'est pas le même. ;)

Bon Dimanche et bon code! :)
Messages postés
1726
Date d'inscription
vendredi 12 septembre 2003
Statut
Membre
Dernière intervention
13 juin 2009
1
qu'est-ce que tu veux, ça fait pas mal de temps qu'on le dit et à chaque fois on se fait rentrer dans la gg comme quoi on est méchants qu'on aide pas les nouveaux etc .. enfin bref.. débat interminable..
Messages postés
24
Date d'inscription
mardi 27 avril 2004
Statut
Membre
Dernière intervention
1 janvier 2005

Je crois franchement qu'il faut arreter de poster des sources relativement inutiles pour avoir des conseils. Demande plutot sur le forum ou je sais pas pour que qqn t'aide a t'ameliorer en mIRC plutot que de poster des choses simples. Depuis quelques temps, je trouve que le niveau des sources a tres fortement baissé. Certains ont malgré tout des idées très originales. Meme si le niveau du scripteur est celui d'un debutant, il peut faire des choses originales, c'est juste une question de reflexion et pas forcement de difficulté dans le code. Le coding ne sera peut-etre pas optimisé, on pourra toujours reprocher de pas coder tres proprement mais au moins cette source sera mieux vue car tu auras fait un effort sur l'originalité.
Messages postés
7
Date d'inscription
dimanche 8 août 2004
Statut
Membre
Dernière intervention
12 septembre 2004

J'ai fait 2-3 modification a la source pour la rendre plus légère et supprimer ce GOTO :p
les variables manquantes sont demandée dans le dialogue maintenant... Voila, bon slap! ;)
Messages postés
44
Date d'inscription
dimanche 20 juin 2004
Statut
Membre
Dernière intervention
1 octobre 2004

10 Bleu-vert

on appel ca Aqua :P

[-Ulcius-]
Afficher les 13 commentaires

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)