Éditeurs de on ... de nano45, revu par remi34

Commenter

Contenu du snippet

Bon alors comme j'ai dis, j'ai repris le code de NaNo45, puis j'ai corrigé les fautes et j'ai mis les trois éditeurs (on text, on join, on input) et j'ai rajouté le on quit.

Source / Exemple : 


menu menubar,channel {
  EditeurS d'On ...:dialog -m edit edit
}

dialog edit {
  title "EditeurS de On ..."
  size -1 -1 246 143
  option dbu
  ;------------------------------
  ;          TAB 1
  ;------------------------------
  tab "On text ", 1, 5 2 226 124
  text "Mettez le texte dans la case 'texte' puis l'action à faire dans la case 'action'", 2, 13 19 209 8, tab 1 center
  edit "", 3, 123 32 50 10, tab 1 autohs
  text "Texte à detecter :", 4, 74 33 48 8, tab 1 center
  button "Faire la remote ", 7, 7 44 216 9, tab 1
  list 8, 11 57 210 63, tab 1 size
  ;------------------------------
  ;          TAB 2
  ;------------------------------
  tab "On input", 10
  text "Mettez le texte dans la case 'texte', puis l'action à faire dans la case 'action'", 11, 18 20 201 8, tab 10 center
  text "Texte :", 12, 10 35 25 8, tab 10 center
  edit %texte_input ! , 13, 39 33 50 10, tab 10 autohs
  text "L'action à faire :", 14, 108 35 44 8, tab 10 center
  edit %action , 15, 157 33 50 10, tab 10
  button "Faire la remote", 16, 10 45 211 9, tab 10
  list 17, 12 57 207 63, tab 10 size
  ;------------------------------
  ;          TAB 3
  ;------------------------------
  tab "On join", 18
  text "Dans les cases 'décos', vous pouvez mettre ou ne pas mettre des décorations lorsque quelqu'un rentre, par exemple : ~ ~JoiN ~ ~ Re[M]i_34 entre sur ....", 19, 10 20 215 14, tab 18 center
  text "Décos avant :", 20, 13 39 38 8, tab 18 center
  edit %deca , 21, 55 38 50 10, tab 18 autohs center
  text "Décos aprés :", 22, 115 39 37 8, tab 18 center
  edit %decap , 23, 155 38 50 10, tab 18 autohs center
  text "Couleur du 'Join' :", 24, 17 52 45 8, tab 18 center
  edit %join Join, 25, 65 51 47 10, tab 18 autohs center
  button "Faire la remote", 26, 130 52 92 10, tab 18
  list 27, 10 65 216 54, tab 18 size
  ;------------------------------
  ;          TAB 4
  ;------------------------------
  tab "On quit", 28
  text "Dans les cases décos, vous pouvez mettre ou ne pas mettre des décorations lorsque quelqu'un rentre, exemple : ~ ~ Quit ~ ~ Re[M]i_34 a quitté l'IRC ...", 29, 11 19 206 16, tab 28 center
  text "Décos avant :", 30, 19 40 37 8, tab 28 center
  edit %deca2, 31, 59 39 50 10, tab 28 autohs center
  text "Décos aprés : ", 32, 114 40 38 8, tab 28 center
  edit %decap2, 33, 155 39 50 10, tab 28 autohs center
  text "Couleur du 'Quit' :", 34, 19 53 46 8, tab 28 center
  edit %quit Quit, 35, 65 52 51 10, tab 28 center
  button "Faire la remote", 36, 130 51 84 10, tab 28
  list 37, 9 66 216 55, tab 28 size
  button "Fermer", 9, 95 130 49 11, flat ok
}

on 1:dialog:edit:edit:3:set %texte $did(3)
on 1:dialog:edit:edit:13:set %texte_input $did(13)
on 1:dialog:edit:edit:15:set %action $did(15)
on 1:dialog:edit:edit:21:set %deca $did(21)
on 1:dialog:edit:edit:23:set %decap $did(23)
on 1:dialog:edit:edit:25:set %join $did(25)
on 1:dialog:edit:edit:31:set %deca2 $did(31)
on 1:dialog:edit:edit:33:set %decap2 $did(33)
on 1:dialog:edit:edit:35:set %quit $did(35)

on 1:dialog:edit:sclick:7:{ 
  did -a edit 8   ----------------- Début de la remote -----------------
  did -a edit 8 
  did -a edit 8   On 1:text:* %texte *:#:{ echo -a 4 $nick 12a dit4 %texte 12sur4 
    did -a edit 8 $chan } }
    did -a edit 8 
    did -a edit 8   ----------------- Fin de la remote -----------------
  }
}

on 1:dialog:edit:sclick:16:{ 
  did -a edit 17   ----------------- Début de la remote -----------------
  did -a edit 17 
  did -a edit 17   On *:input:#:{ if ($1 == %texte_input ) { %action }  
    did -a edit 17 
    did -a edit 17 
    did -a edit 17   ----------------- Fin de la remote -----------------
  }
}

on 1:dialog:edit:sclick:26:{ 
  did -a edit 27   ----------------- Début de la remote -----------------
  did -a edit 27 
  did -a edit 27   On ^1:JOIN:*:{
    did -a edit 27   if ($nick == $me) { echo -a  $timestamp 
    did -a edit 27 %deca %join %decap 12Tu entres sur 4$chan à $time 
    did -a edit 27 else  { echo -a $timestamp %deca %join %decap 12 $nick
      did -a edit 27 entre sur $chan 4( < $+ $address $+ > )
      did -a edit 27
      did -a edit 27   ----------------- Fin de la remote -----------------
    }
  }
}

on 1:dialog:edit:sclick:36:{ 
  did -a edit 37   ----------------- Début de la remote -----------------
  did -a edit 37 
  did -a edit 37   On ^1:QUIT:#:{ 
    did -a edit 37  set %ogm.common.chan.total $comchan($nick,0)
    did -a edit 37  set %ogm.common.chan 1
    did -a edit 37 :debut
    did -a edit 37  set %tmp $fuckdax($right($address($nick,1),-3))
    did -a edit 37    if ( %tmp == $null )  { set %tmp $adress }
    did -a edit 37 /echo $comchan($nick,%ogm.common.chan) $timestamp %deca2 %quit %decap2 4 $nick 12a quitté l'IRC (4 $+ $1- $+ 12) ( < $+ $address $+ > ) | /haltdef
    did -a edit 37  if (%ogm.common.chan == %ogm.common.chan.total ) goto fin
    did -a edit 37  inc %ogm.common.chan 1
    did -a edit 37  if ( %ogm.common.chan == 30 ) { halt }
    did -a edit 37 goto debut
    did -a edit 37 :fin
  did -a edit 37 }
  did -a edit 37   ----------------- Fin de la remote -----------------
}
}

on *:LOAD:{ echo -a 4EditeurS de On ... Chargé ! | echo -a 4Imaginé par NaNo45 et corrigé et arrangé par Re[M]i_34 } 
on *:UNLOAD:{ echo -a 4EditeurS de On ... Déchargé ! }

Conclusion :


Voila :)
Je prevois de mettre les On part etc ...
Je ferai une modif pour cela :)
Voila amusez-vous bien.

PS: Je tiens à dire que l'idée est de NaNo45 :)

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 (cs_ReMi34)