CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 12:09:54

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

AUTO-SALUT GREET

Information sur la source

Note :

7,00 / 10

Catégorie :AddOns Niveau :Débutant Date de création :24/09/2004 Date de mise à jour :01/10/2004 08:17:38 Vu :3 126

Auteur : BSmax

Ecrire un message privé

Site perso

Commentaire sur cette source (27)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

J'ai essayé de faire un auto-salut le + configurable et personalisable possible, le voila ;) Tiré de mon script

Source

dialog BS.agreet {
title "Auto Salut !"
size -1 -1 178 180
option dbu
text "Ce système vous permet de saluer automatiquement les personnes arrivant sur IRC. Vous pouvez selectionner l'option de reconnaissance qui pseudo qui mémorise les pseudos arrivés sur un fichier temporaire s'effaçant automatiquement à chaque exit du script et/ou tous les jours à 00h00. Vous pouvez aussi configurer le temps de réponse et les phrases.", 1, 1 2 176 33, center
box "", 2, 0 -2 178 38
text "Phrases de salutation", 3, 1 37 52 8
list 4, 1 45 52 59, size vsbar
text "Phrases de retour", 5, 57 37 44 8
list 6, 55 45 50 59, size vsbar
text "Ajouter une phrase :", 7, 116 37 52 8
edit "", 8, 108 46 67 10, autohs
text "Vous pouvez mettre <nick> dans la phrase qui sera remplacé par le pseudo.", 9, 108 56 67 20, center
button "Ajouter dans :", 10, 108 77 37 13, flat
radio "Salut", 11, 149 76 23 8
radio "Retour", 12, 149 83 26 8
box "", 13, 105 32 73 71
text "", 14, 106 93 70 8, disable center
text "Délais de réponse : Entre", 15, 2 105 62 8
edit "", 16, 65 104 13 10, limit 2 center
text "et", 17, 79 105 6 8
edit "", 18, 86 104 13 10, limit 2 center
text "secondes.", 19, 100 105 25 8
button "Effacer phrase", 20, 127 103 50 12, flat
check "Mémorisation des pseudos", 21, 2 116 74 10
button "Supprimer le fichier d'enregistrement", 22, 77 115 100 12, flat
check "Activer/Désactiver l'auto-salut", 23, 3 168 84 8
button "&OK", 24, 88 166 88 12, flat
box "", 25, 1 162 176 18
check "Ne pas saluer si votre pseudo contient :", 26, 2 128 106 10
edit "", 27, 108 128 69 10, autohs
text "(Pour la case du dessus et au dessous, séparer par des / sans espaces)", 28, 2 137 175 8, center
text "Pseudos à ne pas saluer :", 30, 2 146 63 8
edit "", 31, 66 145 111 10, autohs
text "Salons où ne pas saluer :", 32, 2 156 63 8
edit "", 33, 66 155 111 10, autohs
}
alias BS.agreet { dialog $iif($dialog(BS.Agreet),-x,-m) BS.Agreet BS.Agreet }
alias BS.error {
var %u = $input($$1-,ohd,Erreur)
halt
}
alias plur {
if $1 !isnum { halt }
if $1 > 1 { return s }
}
alias -l BS.Agreetload {
did -r $dname 4,6
if !$lines(BS-Agreet1.txt) {
write -a BS-Agreet1.txt Salut <nick>!
write -a BS-Agreet1.txt Hello <nick> ;)
write -a BS-Agreet1.txt Coucouuu <nick> :)
write -a BS-Agreet1.txt Yop yop <nick> ^^
write -a BS-Agreet1.txt Ouéé coucou <nick> :)
write -a BS-Agreet1.txt Slt <nick>...
write -a BS-Agreet1.txt Coucou $+ $str(u,$r(1,15)) <nick> ^_^
write -a BS-Agreet1.txt Bonjour <nick> :))
write -a BS-Agreet1.txt Wesh <nick> bien ou bien ? XD
write -a BS-Agreet1.txt $+(Pl,$str(o,$r(1,5)),p) <nick> ^^
write -a BS-Agreet1.txt Kikoooo <nick>
write -a BS-Agreet1.txt Kikou <nick> ça va ?
}
if !$lines(BS-Agreet2.txt) {
write -a BS-Agreet2.txt Re $+ $str(e,$r(1,15)) <nick> :)
write -a BS-Agreet2.txt Recoucou <nick> ;)
write -a BS-Agreet2.txt Tiens, re <nick> :)
write -a BS-Agreet2.txt Reuh <nick>
write -a BS-Agreet2.txt Resalut <nick> ;)
write -a BS-Agreet2.txt Reuhh <nick>
write -a BS-Agreet2.txt Recoucou <nick> ça va toujours ?
}
var %a = 1,%b = $lines(BS-Agreet1.txt),%c = $lines(BS-Agreet2.txt),%d = 1
while $read(BS-Agreet1.txt,%a) { did -a $dname 4 $ifmatch | inc %a }
while $read(BS-Agreet2.txt,%d) { did -a $dname 6 $ifmatch | inc %d }
did -ra $dname 14 %b $+(salut,$plur(%b)) $+ , %c $+(retour,$plur(%c)) $+ .
}
on *:dialog:BS.Agreet:*:*:{
if $devent == init {
BS.Agreetload
var %e = $readini(BS-Options.ini,Options,Timegreet)
if !$readini(BS-Options.ini,Options,Timegreet) { writeini -n BS-Options.ini Options Timegreet 3/7 }
if !$readini(BS-Options.ini,Options,Greetrec) { writeini -n BS-Options.ini Options Greetrec ok }
if !$readini(BS-Options.ini,Options,Autogreet) { writeini -n BS-Options.ini Options Autogreet ok }
if !$readini(BS-Options.ini,Options,Nogreetnick) { writeini -n BS-Options.ini Options Nogreetnick ok }
if !$readini(BS-Options.ini,Options,Nonickgreet) { writeini -n BS-Options.ini Options Nonickgreet oqp/away/mange/miam/dodo }
did -ra $dname 16 $gettok(%e,1,47)
did -ra $dname 18 $gettok(%e,2,47)
did $iif($readini(BS-Options.ini,Options,Greetrec) == ok,-c,-u) $dname 21
did $iif($readini(BS-Options.ini,Options,Autogreet) == ok,-c,-u) $dname 23
did $iif($readini(BS-Options.ini,Options,Nogreetnick) == ok,-c,-u) $dname 26
did -ra $dname 27 $readini(BS-Options.ini,Options,Nonickgreet)
if $readini(BS-Options.ini,Options,Greetnonick) { did -ra $dname 31 $readini(BS-Options.ini,Options,Greetnonick) }
if $readini(BS-Options.ini,Options,Greetnochan) { did -ra $dname 33 $readini(BS-Options.ini,Options,Greetnochan) }
did $iif($did(23).state,-e,-b) $dname 4,6,8,10,11,12,16,18,20,21,22,26,27,3,5,7,9,15,17,19,28,30,31,32,33
if !$exists(TGN.txt) { did -b $dname 22 }
if !$did(26).state { did -b $dname 27 }
}
elseif $devent == sclick {
if $did == 4 || $did == 6 { %BS.Temp.did = $did }
if $did == 10 {
if !$did(8) { BS.Error Tu n'as pas indiqué la phrase à enregistrer ! }
if !$did(11).state && !$did(12).state { BS.Error Tu n'as pas séléctionné où tu voulais rajouter la phrase ! }
write -a $+(BS-Agreet,$iif($did(11).state,1,2),.txt) $did(8)
BS.Agreetload
}
elseif $did == 20 {
if %BS.temp.did != 4 && %BS.temp.did != 6 { BS.Error Séléctionne la ligne que tu veux supprimer en cliquant dessus dans l'une des 2 listes ! }
if !$did(%BS.temp.did).seltext { BS.Error Séléctionne la ligne dans une des 2 listes ! }
write $+(-dl,$did(%BS.temp.did).sel) $+(BS-Agreet,$iif(%BS.temp.did == 4,1,2),.txt)
BS.agreetload
}
elseif $did == 22 { if $input(Confirmer la suppression du fichier ?,yid,Confirmation) { .remove TGN.txt | did -b $dname 22 } }
elseif $did == 24 {
if !$did(16) || !$did(18) { BS.Error Tu n'as pas indiqué le temps en seconde entre chaque salut automatique ! }
if $did(16) !isnum { BS.Error Le temps en seconde $+(",$did(16),") n'est pas valide ! }
if $did(18) !isnum { BS.Error Le temps en seconde $+(",$did(18),") n'est pas valide ! }
if $did(16) > $did(18) { BS.Error Le premier temps en seconde doit être inférieur au second ! }
if $did(26).state && !$did(27) { BS.Error Tu as activé le système de désactivation lorsque ton pseudo contient certains mots mais tu n'as indiqué aucun mot ! }
writeini -n BS-Options.ini Options Timegreet $+($did(16),/,$did(18))
if $did(27) { writeini -n BS-Options.ini Options Nonickgreet $did(27) }
writeini -n BS-Options.ini Options Greetnonick $iif($did(31),$did(31),$false)
writeini -n BS-Options.ini Options Greetnochan $iif($did(33),$did(33),$false)
dialog -x $dname
}
elseif $did == 21 { writeini -n BS-Options.ini Options Greetrec $iif($did(21).state,ok,off) }
elseif $did == 26 {
writeini -n BS-Options.ini Options Nogreetnick $iif($did(26).state,ok,off)
did $iif($did(26).state,-e,-b) $dname 27
}
elseif $did == 23 {
writeini -n BS-Options.ini Options Autogreet $iif($did(23).state,ok,off)
did $iif($did(23).state,-e,-b) $dname 4,6,8,10,11,12,16,18,20,21,22,26,27,3,5,7,9,15,17,19,28,30,31,32,33
if !$exists(TGN.txt) { did -b $dname 22 }
if !$did(26).state { did -b $dname 27 }
}
}
elseif $devent == close { unset %BS.Temp.did }
}
On *:JOIN:#:{
if $readini(BS-Options.ini,Options,Autogreet) == ok && $nick != $me {
if $readini(BS-Options.ini,Options,Greetnonick) {
var %a = 1,%e = $readini(BS-Options.ini,Options,Greetnonick)
while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) == $nick { halt } | inc %a }
}
if $readini(BS-Options.ini,Options,Greetnochan) {
var %a = 1,%e = $readini(BS-Options.ini,Options,Greetnochan)
while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) == $chan { halt } | inc %a }
}
if $readini(BS-Options.ini,Options,Nogreetnick) == ok {
var %a = 1,%e = $readini(BS-Options.ini,Options,Nonickgreet)
while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) isin $me { halt } | inc %a }
}
if $readini(BS-Options.ini,Options,Greetrec) == ok {
if !$lines(TGN.txt) { goto next }
var %a = 1,%t = $readini(BS-Options.ini,Options,timegreet)
while $read(TGN.txt,%a) { if $nick == $ifmatch { .TimerAUTOGREET 1 $r($gettok(%t,1,47),$gettok(%t,2,47)) msg $chan $replace($read(BS-Agreet2.txt),<nick>,$nick) | halt } | inc %a }
:next
write -a TGN.txt $nick
}
var %t = $readini(BS-Options.ini,Options,timegreet)
.TimerAUTOGREET 1 $r($gettok(%t,1,47),$gettok(%t,2,47)) msg $chan $replace($read(BS-Agreet1.txt),<nick>,$nick)
}
}
On *:START:{ .Timer 00:00 1 1 BS.vfile }
alias BS.vfile { if $exists(TGN.txt) { .remove TGN.txt } }
Menu channel,menubar {
Auto-Salut Greet:BS.agreet
}

dialog BS.agreet {
  title "Auto Salut !"
  size -1 -1 178 180
  option dbu
  text "Ce système vous permet de saluer automatiquement les personnes arrivant sur IRC. Vous pouvez selectionner l'option de reconnaissance qui pseudo qui mémorise les pseudos arrivés sur un fichier temporaire s'effaçant automatiquement à chaque exit du script et/ou tous les jours à 00h00. Vous pouvez aussi configurer le temps de réponse et les phrases.", 1, 1 2 176 33, center
  box "", 2, 0 -2 178 38
  text "Phrases de salutation", 3, 1 37 52 8
  list 4, 1 45 52 59, size vsbar
  text "Phrases de retour", 5, 57 37 44 8
  list 6, 55 45 50 59, size vsbar
  text "Ajouter une phrase :", 7, 116 37 52 8
  edit "", 8, 108 46 67 10, autohs
  text "Vous pouvez mettre <nick> dans la phrase qui sera remplacé par le pseudo.", 9, 108 56 67 20, center
  button "Ajouter dans :", 10, 108 77 37 13, flat
  radio "Salut", 11, 149 76 23 8
  radio "Retour", 12, 149 83 26 8
  box "", 13, 105 32 73 71
  text "", 14, 106 93 70 8, disable center
  text "Délais de réponse : Entre", 15, 2 105 62 8
  edit "", 16, 65 104 13 10, limit 2 center
  text "et", 17, 79 105 6 8
  edit "", 18, 86 104 13 10, limit 2 center
  text "secondes.", 19, 100 105 25 8
  button "Effacer phrase", 20, 127 103 50 12, flat
  check "Mémorisation des pseudos", 21, 2 116 74 10
  button "Supprimer le fichier d'enregistrement", 22, 77 115 100 12, flat
  check "Activer/Désactiver l'auto-salut", 23, 3 168 84 8
  button "&OK", 24, 88 166 88 12, flat
  box "", 25, 1 162 176 18
  check "Ne pas saluer si votre pseudo contient :", 26, 2 128 106 10
  edit "", 27, 108 128 69 10, autohs
  text "(Pour la case du dessus et au dessous, séparer par des / sans espaces)", 28, 2 137 175 8, center
  text "Pseudos à ne pas saluer :", 30, 2 146 63 8
  edit "", 31, 66 145 111 10, autohs
  text "Salons où ne pas saluer :", 32, 2 156 63 8
  edit "", 33, 66 155 111 10, autohs
}
alias BS.agreet { dialog $iif($dialog(BS.Agreet),-x,-m) BS.Agreet BS.Agreet }
alias BS.error {
  var %u = $input($$1-,ohd,Erreur)
  halt
}
alias plur {
  if $1 !isnum { halt }
  if $1 > 1 { return s }
}
alias -l BS.Agreetload {
  did -r $dname 4,6
  if !$lines(BS-Agreet1.txt) {
    write -a BS-Agreet1.txt Salut <nick>!
    write -a BS-Agreet1.txt Hello <nick> ;)
    write -a BS-Agreet1.txt Coucouuu <nick> :)
    write -a BS-Agreet1.txt Yop yop <nick> ^^
    write -a BS-Agreet1.txt Ouéé coucou <nick> :)
    write -a BS-Agreet1.txt Slt <nick>... 
    write -a BS-Agreet1.txt Coucou $+ $str(u,$r(1,15)) <nick> ^_^
    write -a BS-Agreet1.txt Bonjour <nick> :))
    write -a BS-Agreet1.txt Wesh <nick> bien ou bien ? XD
    write -a BS-Agreet1.txt $+(Pl,$str(o,$r(1,5)),p) <nick> ^^
    write -a BS-Agreet1.txt Kikoooo <nick>
    write -a BS-Agreet1.txt Kikou <nick> ça va ?
  }
  if !$lines(BS-Agreet2.txt) {
    write -a BS-Agreet2.txt Re $+ $str(e,$r(1,15)) <nick> :)
    write -a BS-Agreet2.txt Recoucou <nick> ;)
    write -a BS-Agreet2.txt Tiens, re <nick> :)
    write -a BS-Agreet2.txt Reuh <nick>
    write -a BS-Agreet2.txt Resalut <nick> ;)
    write -a BS-Agreet2.txt Reuhh <nick>
    write -a BS-Agreet2.txt Recoucou <nick> ça va toujours ?
  }
  var %a = 1,%b = $lines(BS-Agreet1.txt),%c = $lines(BS-Agreet2.txt),%d = 1
  while $read(BS-Agreet1.txt,%a) { did -a $dname 4 $ifmatch | inc %a }
  while $read(BS-Agreet2.txt,%d) { did -a $dname 6 $ifmatch | inc %d }
  did -ra $dname 14 %b $+(salut,$plur(%b)) $+ , %c $+(retour,$plur(%c)) $+ . 
}
on *:dialog:BS.Agreet:*:*:{
  if $devent == init {
    BS.Agreetload
    var %e = $readini(BS-Options.ini,Options,Timegreet)
    if !$readini(BS-Options.ini,Options,Timegreet) { writeini -n BS-Options.ini Options Timegreet 3/7 }
    if !$readini(BS-Options.ini,Options,Greetrec) { writeini -n BS-Options.ini Options Greetrec ok }
    if !$readini(BS-Options.ini,Options,Autogreet) { writeini -n BS-Options.ini Options Autogreet ok }
    if !$readini(BS-Options.ini,Options,Nogreetnick) { writeini -n BS-Options.ini Options Nogreetnick ok }
    if !$readini(BS-Options.ini,Options,Nonickgreet) { writeini -n BS-Options.ini Options Nonickgreet oqp/away/mange/miam/dodo }
    did -ra $dname 16 $gettok(%e,1,47)
    did -ra $dname 18 $gettok(%e,2,47)
    did $iif($readini(BS-Options.ini,Options,Greetrec) == ok,-c,-u) $dname 21
    did $iif($readini(BS-Options.ini,Options,Autogreet) == ok,-c,-u) $dname 23
    did $iif($readini(BS-Options.ini,Options,Nogreetnick) == ok,-c,-u) $dname 26
    did -ra $dname 27 $readini(BS-Options.ini,Options,Nonickgreet)
    if $readini(BS-Options.ini,Options,Greetnonick) { did -ra $dname 31 $readini(BS-Options.ini,Options,Greetnonick) }
    if $readini(BS-Options.ini,Options,Greetnochan) { did -ra $dname 33 $readini(BS-Options.ini,Options,Greetnochan) }
    did $iif($did(23).state,-e,-b) $dname 4,6,8,10,11,12,16,18,20,21,22,26,27,3,5,7,9,15,17,19,28,30,31,32,33
    if !$exists(TGN.txt) { did -b $dname 22 }
    if !$did(26).state { did -b $dname 27 }
  }
  elseif $devent == sclick {
    if $did == 4 || $did == 6 { %BS.Temp.did = $did }
    if $did == 10 {
      if !$did(8) { BS.Error Tu n'as pas indiqué la phrase à enregistrer ! }
      if !$did(11).state && !$did(12).state { BS.Error Tu n'as pas séléctionné où tu voulais rajouter la phrase ! }
      write -a $+(BS-Agreet,$iif($did(11).state,1,2),.txt) $did(8)
      BS.Agreetload
    }
    elseif $did == 20 {
      if %BS.temp.did != 4 && %BS.temp.did != 6 { BS.Error Séléctionne la ligne que tu veux supprimer en cliquant dessus dans l'une des 2 listes ! }
      if !$did(%BS.temp.did).seltext { BS.Error Séléctionne la ligne dans une des 2 listes ! }
      write $+(-dl,$did(%BS.temp.did).sel) $+(BS-Agreet,$iif(%BS.temp.did == 4,1,2),.txt)
      BS.agreetload
    }
    elseif $did == 22 { if $input(Confirmer la suppression du fichier ?,yid,Confirmation) { .remove TGN.txt | did -b $dname 22 } }
    elseif $did == 24 {
      if !$did(16) || !$did(18) { BS.Error Tu n'as pas indiqué le temps en seconde entre chaque salut automatique ! }
      if $did(16) !isnum { BS.Error Le temps en seconde $+(",$did(16),") n'est pas valide ! }
      if $did(18) !isnum { BS.Error Le temps en seconde $+(",$did(18),") n'est pas valide ! }
      if $did(16) > $did(18) { BS.Error Le premier temps en seconde doit être inférieur au second ! }
      if $did(26).state && !$did(27) { BS.Error Tu as activé le système de désactivation lorsque ton pseudo contient certains mots mais tu n'as indiqué aucun mot ! }
      writeini -n BS-Options.ini Options Timegreet $+($did(16),/,$did(18))
      if $did(27) { writeini -n BS-Options.ini Options Nonickgreet $did(27) }
      writeini -n BS-Options.ini Options Greetnonick $iif($did(31),$did(31),$false)
      writeini -n BS-Options.ini Options Greetnochan $iif($did(33),$did(33),$false)
      dialog -x $dname
    }
    elseif $did == 21 { writeini -n BS-Options.ini Options Greetrec $iif($did(21).state,ok,off) }
    elseif $did == 26 {
      writeini -n BS-Options.ini Options Nogreetnick $iif($did(26).state,ok,off)
      did $iif($did(26).state,-e,-b) $dname 27
    }
    elseif $did == 23 {
      writeini -n BS-Options.ini Options Autogreet $iif($did(23).state,ok,off)
      did $iif($did(23).state,-e,-b) $dname 4,6,8,10,11,12,16,18,20,21,22,26,27,3,5,7,9,15,17,19,28,30,31,32,33
      if !$exists(TGN.txt) { did -b $dname 22 }
      if !$did(26).state { did -b $dname 27 }
    }
  }
  elseif $devent == close { unset %BS.Temp.did }
}
On *:JOIN:#:{
  if $readini(BS-Options.ini,Options,Autogreet) == ok && $nick != $me {
    if $readini(BS-Options.ini,Options,Greetnonick) {
      var %a = 1,%e = $readini(BS-Options.ini,Options,Greetnonick)
      while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) == $nick { halt } | inc %a }
    }
    if $readini(BS-Options.ini,Options,Greetnochan) {
      var %a = 1,%e = $readini(BS-Options.ini,Options,Greetnochan)
      while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) == $chan { halt } | inc %a }
    }
    if $readini(BS-Options.ini,Options,Nogreetnick) == ok {
      var %a = 1,%e = $readini(BS-Options.ini,Options,Nonickgreet)
      while %a <= $calc($count(%e,/) + 1) { if $gettok(%e,%a,47) isin $me { halt } | inc %a }
    }
    if $readini(BS-Options.ini,Options,Greetrec) == ok {
      if !$lines(TGN.txt) { goto next }
      var %a = 1,%t = $readini(BS-Options.ini,Options,timegreet)
      while $read(TGN.txt,%a) { if $nick == $ifmatch { .TimerAUTOGREET 1 $r($gettok(%t,1,47),$gettok(%t,2,47)) msg $chan $replace($read(BS-Agreet2.txt),<nick>,$nick) | halt } | inc %a }
      :next
      write -a TGN.txt $nick
    }
    var %t = $readini(BS-Options.ini,Options,timegreet)
    .TimerAUTOGREET 1 $r($gettok(%t,1,47),$gettok(%t,2,47)) msg $chan $replace($read(BS-Agreet1.txt),<nick>,$nick)
  }
}
On *:START:{ .Timer 00:00 1 1 BS.vfile }
alias BS.vfile { if $exists(TGN.txt) { .remove TGN.txt } }
Menu channel,menubar {
Auto-Salut Greet:BS.agreet
}

Conclusion

/BS.Agreet pour le lancer

Historique

24 septembre 2004 12:55:02 :: Update: j'avais oublié l'alias BS.Error, je l'ai rajouté ;)
24 septembre 2004 13:38:51 :: J'ai aussi ajouté l'alias plur que j'avais également oublié :s
01 octobre 2004 08:17:43 :: Menu channel et effacement du fichier chaque jour à 00h00

Sources du même auteur

AGENDA / ORGANISER

DURATION FRANÇAIS

MP3 PLAYER

NOTICE-MÉMO SENDER

CONVERTISSEUR D'ASCII EN $CHR (ET INVERSE)

Toutes les sources de BSmax

Sources de la même categorie

BLACKLIST PSEUDOS/MASKS par usurpateur

[XCHAT] ANTI KICK / AWAY C++ par GeroXXXX

JEU DU CODE par alanpersonproject

SERVEUR FTP par hisoka2501

BANNIR LES AGES, LES HOMMES, LES FEMMES ET PSEUDO AVEC CHIFF... par cougar_du_havre

Toutes les sources de la catégorie AddOns

Commentaires et avis

Commentaire de Huitre le 24/09/2004 12:15:08

Bien pensé , pas mal d' option, tres configurable !
Pour optimiser un peu plus , evite les identifieurs dans une while (cf : while %a <= $calc($count(%e,/) + 1) { ... ) . Tu aurais pu charger ton fichier dans une hashtable aussi pour éviter trop d acces disque sur un gros chan ou ca join part toutes les 2 sec :)
Voila sinon c pas mal, bonne continuation !

Commentaire de Panther007 le 24/09/2004 16:40:40

* /dialog: 'BS.Agreet' tableau invalide, Ne pas valider ou annuler l'id (ligne 38, script13.ini)

j'aimerais savoir comment faire pour que sa marche svp , sinon sa l'air super top =P

Commentaire de darkyojimbo2 le 24/09/2004 17:17:19

button "&OK", 24, 88 166 88 12, flat

met ça à la place :

button "&OK", 24, 88 166 88 12, ok

(flat j'en ai aucune idée de ce que ça fait)

++

-Carton- :)

Commentaire de darkyojimbo2 le 24/09/2004 17:19:38

chez moi ça joue sans ça.

Commentaire de Sect0r X le 24/09/2004 17:23:25

ton dialog est affreux :X
et ca:

   if !$lines(BS-Agreet1.txt) {
    write -a BS-Agreet1.txt Salut <nick>!
    write -a BS-Agreet1.txt Hello <nick> ;)
    write -a BS-Agreet1.txt Coucouuu <nick> :)
    write -a BS-Agreet1.txt Yop yop <nick> ^^
    write -a BS-Agreet1.txt Ouéé coucou <nick> :)
    write -a BS-Agreet1.txt Slt <nick>...
    write -a BS-Agreet1.txt Coucou $+ $str(u,$r(1,15)) <nick> ^_^
    write -a BS-Agreet1.txt Bonjour <nick> :))
    write -a BS-Agreet1.txt Wesh <nick> bien ou bien ? XD
    write -a BS-Agreet1.txt $+(Pl,$str(o,$r(1,5)),p) <nick> ^^
    write -a BS-Agreet1.txt Kikoooo <nick>
    write -a BS-Agreet1.txt Kikou <nick> ça va ?
    }
    if !$lines(BS-Agreet2.txt) {
    write -a BS-Agreet2.txt Re $+ $str(e,$r(1,15)) <nick> :)
    write -a BS-Agreet2.txt Recoucou <nick> ;)
    write -a BS-Agreet2.txt Tiens, re <nick> :)
    write -a BS-Agreet2.txt Reuh <nick>
    write -a BS-Agreet2.txt Resalut <nick> ;)
    write -a BS-Agreet2.txt Reuhh <nick>
    write -a BS-Agreet2.txt Recoucou <nick> ça va toujours ?
    }

no comment ;(

Commentaire de darkyojimbo2 le 24/09/2004 17:30:39

tu aurais pu utiliser le file handling pr exemple (voir sur sdb.org pour un tuto) et utiliser une boucle while.

alias write {
if !$lines(write.txt) {
var %itr 1, %tok salut.prout.abcd.jean.kikooo, %t $numtok(%tok,46)
.fopen -on write write.txt
while %itr <= %t {
.fwrite -n write $gettok(%tok,%itr,46)
inc %itr
}
.fclose write
}
}

Commentaire de bibi_81 le 24/09/2004 23:01:48

je ne comprend pas .... pourquoi ecrire autant de truc quand on peut faire simpel :/ !!! Moi je ferais mieux :
on *connect: {
/msg $chan Salut $nick $+ , Comment tu vas ?
}
je ne pourrais pas faire plus simple dsl :( ( loool)

Commentaire de bibi_81 le 24/09/2004 23:06:12

par contre c'est aussi un peu le fouilli sur la fenetre ... Je vais L'agrandir (sa va etre chaud)

Commentaire de BSmax le 24/09/2004 23:06:32

bibi_83, parce que justement l'interet est que ce soit configurable Et qu'on ne puisse pas deviner que c'est un système auto ! Je l'utilise moi-même et personne n'a pensé une seconde que c'était auto, avec les temps et phrases aléatoires etc...

Commentaire de bibi_81 le 24/09/2004 23:07:52

c pas bibi_83 :/ c bibi_81 apprend a ecrire :D BSmax (moi je marque bien :D)

Commentaire de BSmax le 25/09/2004 00:42:41

ah vi scuse lol bibi_81 ^^

Commentaire de DevelMan le 25/09/2004 11:10:49

Arf !
J'y comprend rien ! j'ai copier/coler dans un fichier que j'ai appelé autosalut.mrc, j'ai fait Alt R, puis Ctrl L et j'ai chargé le fichier puis valider (si si)
J'ai pas du capter quelque chose, parce que quand je tape /BS.Agreet .... il ne se passe rien du tout !!!
Quelqu'un pourrait il m'aider ? merci d'avance

Commentaire de bibi_81 le 25/09/2004 11:16:30

NON, C'est un bon script je me demande comment on peut chercher la difficultée alor que l'on a la facilité!!!! Alor fait : Copier/Coler sur le script editor, et apres tu fais en dessous :
menu * {
Auto salut Greet :/BS.Agreet
}
et c'est bon :D

Commentaire de bibi_81 le 25/09/2004 11:18:38

c archi SIMPLE !!!! D'ailleur pas la peine de m'apeller bibi_81 c'est trop long apeller moi bibi :D

Commentaire de DevelMan le 25/09/2004 11:29:57

Je dois être une tache ! j'ai fais comme tu as dit, je vois le titre du menu (Auto salut Greet), mais quand je clique dessus, il ne se passe absolument rien !

Vais me suicider ! lol !

Commentaire de bibi_81 le 25/09/2004 13:36:14

ben va te suicider :D DevelMan :D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D:D
:D:D

Commentaire de darkyojimbo2 le 25/09/2004 16:23:04

Essaie ça : /dialog -m BS.agreet BS.agreet

Sinon essaie ce que j'ai dit plus haut =>
à la place de :
button "&OK", 24, 88 166 88 12, flat
met :
button "&OK", 24, 88 166 88 12, ok
(flat j'en ai aucune idée de ce que ça fait).

Mais chez moi ça marche impec sans tout ça (mIRC 6.16).

++

-Carton- :)

Commentaire de DevelMan le 25/09/2004 16:37:09

Ben voilou ! avec çà :
button "&OK", 24, 88 166 88 12, ok

çà marche !

Super et merci

Commentaire de darkyojimbo2 le 25/09/2004 16:38:26

de rien et repense à ça la prochaine fois ;)

Commentaire de Huitre le 25/09/2004 19:48:38

Et toi apprend à lire bibi_81....
Ton code ne greet que l user quand il se connecte, tu n a pas compris qu il ve saluer les personnesqui join le chan ...

Owned.

Commentaire de bibi_81 le 25/09/2004 20:08:36

roo c bon je debute merde en + huitre franhcment sa fait peur kom pseudo :D :@

Commentaire de calopsfr le 25/09/2004 21:33:08

jz trouve que ton dialog est tres moche, c'est sur... plus ou moins bien codé, plus ou moins simple a faire, plus ou moins utile... je trouve que plutot que de "ne aps saluer" certains nicks, tu devrais mettre "saluer certains nicks", paque quand t'es dans uns alo avec beaucoup de debit, ca flood, meme si tu peux le desactiver...

donc pur le rendre plus beau, tu pôurrais jouer sur les couleurs, les tailles d'écriture... mais ca vient ut fait que tu mets trop de texte dans ton dialog, et c'est moche
(pour les couleurs vois avec mdx.dll au cas ou tu saurais pas)

je mets 7/10 , c'est pa donné à tout le monde quand meme de faire un script comme ca sans bug et sans enormité

Commentaire de BSmax le 26/09/2004 15:25:27

darkyojimbo2 >> C'est vrai que je connais pas le file handling je vais regarder ça de près :) Sinon "flat" c'est pour un bouton plat, mais sur XP y'a aucune différence

calopsfr >> Euh le fait de mettre "saluer certains nicks" limiterai quand même l'interet je trouve :| Ca floode pas quand y'a plusieurs joins simultanés comme j'ai donné un nom au timer, donc si dans l'ordre arrivent XX, YY et ZZ dans un temps proche, l'add-on ne saluera que ZZ puisque le timer aura changé.

En ce qui concerne le dialog c'est un gout personnel, j'aime bien les dialog ou j'ai tout à la fois dans pas trop de place mais je vois que ça plait pas à tlm, j'en tiendrai tetre compte ;)

Merci pour ta note :)

Commentaire de Huitre le 27/09/2004 11:16:41

Sans File handling son addon est sur d etre compatible pour les plus conservateurs d entre nous :)
Tu as qu a verifier la version courante de mirc , et si celle ci se revele trop vieille , hop write/Read, sinon fopen/fputs/fseek. (file handling quoi :p )

Commentaire de Ulcius le 01/10/2004 06:37:25

Pourkoi ne pas l'inclure directement le maudit
menu channel {
Auto salut Greet :/BS.Agreet
}

Ca éviterais au débutant de rocher comme des bon pour faire fonctionner les addons ;)

Par la suite,, on passe notre temps à dire de compresser un peu les addon pour ne pas perdre d'espace inutilement (coté visuel)
Je peux te dire que c exactement ca que ta faite :P ta pas perdu d'espace. meme que tu aurais pu en laisser un peu ;P

Pour finir,, ta penser au Flood on join ?? , jte dit que tu va en répondre des allo toi, salut nick, bonjour , etc :)

Sur ce, bye :P

[-Ulcius-]

Commentaire de BSmax le 01/10/2004 08:14:51

Ulcius, oké pour le menu channel, c'est vrai que j'oublie souvent... sinon y'a pas de flood on Join puisque le timer qui salue porte un nom, si quelqu'un arrive, suivit par quelqu'un d'autre, le timer est réinitialisé pour le dernier arrivé et oublie le précédant !

Par exemple :

[08:07:23] [Join] Pseudo1
[08:07:25] [Join] Pseudo2
[08:07:29] [Join] Pseudo3
[08:07:36] (Auto-Salut) Salut Pseudo3!

Commentaire de bibi_81 le 01/10/2004 20:41:09

Ulcius je tien a dire que
menu channel {
Auto salut greet :/dialog -m BS.Agreet BS.Agreet
}
OU
menu channel,query,nicklist[ne sert a rien],et autre ... {
Auto salut :/BS.Agreet
}
et aretait de copier un peu svp :D c pa du jeu

Ajouter un commentaire

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

Forum

RE : ON RAWMODE par WorldDMT

RE : PROBLEME AVEC UN QUIZZ par vincent67190

RE : PROBLèME FLAG IRCOP par WebiK

AVERTISSMENT ET KIKK par mouhcine951990

RE : PROBLèME FLAG IRCOP par Benjamin37

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Cherche formation complete en GIMP
Budget : 750€
Module sur Prestashop
Budget : 700€
Redaction d-une page de vente pour un ebook
Budget : 300€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5