begin process at 2012 02 08 17:36:46
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

AddOns

 > ÉDITEUR DE CITATIONS

ÉDITEUR DE CITATIONS


 Information sur la source

Note :
4,67 / 10 - par 3 personnes
4,67 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :AddOns Niveau :Débutant Date de création :20/08/2002 Date de mise à jour :20/08/2002 14:34:07 Vu :4 888

Auteur : NicX

Ecrire un message privé
Commentaire sur cette source (4)
Ajouter un commentaire et/ou une note

 Description

j'ai fait ce truc pour mon script ,mais ça peut servir à d'autres donc je le met là..
c'est en dialog ça permet de créer des citations ça les loges dans un fichier txt et quand quelqu'un tape !jcvd ça en lit une au hasard
vous pouvez modifier comme vous voulez

Source

  • ;codé par _NicX_
  • menu channel,query {
  • [Citations]
  • .Créer Citations:dialog -m mongol mongol
  • .Dire Citations:/msg $active $read(jcvd.txt)
  • }
  • dialog mongol {
  • title "Citations"
  • size -1 -1 262 119
  • option dbu
  • box "", 1, 1 1 260 105
  • text "éditer", 2, 120 7 22 8, center
  • edit "", 3, 5 17 253 53, multi return hsbar
  • button "ok", 4, 241 73 13 8
  • button "voir messages", 5, 180 93 39 10
  • button "effacer tout", 6, 222 93 36 10
  • text "Ce message sera ajouté à jcvd.txt ,vous pouvez également ajouter vos messages ", 7, 30 73 209 8, center
  • text "en éditant le fichier texte.. ", 8, 30 82 210 8, center
  • button "Fermer", 9, 232 107 27 10, ok
  • }
  • on *:dialog:mongol:sclick:4: { /write jcvd.txt $did(mongol,3) }
  • on *:dialog:mongol:sclick:5: { window @jcvd | mongolito }
  • on *:dialog:mongol:sclick:6: { write -c jcvd.txt }
  • alias mongolito {
  • set %mongolito 0
  • :mong
  • inc %mongolito
  • /echo @jcvd $read(jcvd.txt,%mongolito)
  • if {$lines(jcvd.txt) != %mongolito) { goto mong }
  • else { halt }
  • }
  • on *:text:!jcvd:*: {
  • /msg $chan $read(jcvd.txt)
  • }
;codé par _NicX_
menu channel,query {
  [Citations]
  .Créer Citations:dialog -m mongol mongol 
  .Dire Citations:/msg $active $read(jcvd.txt)
}


dialog mongol {
  title "Citations"
  size -1 -1 262 119
  option dbu
  box "", 1, 1 1 260 105
  text "éditer", 2, 120 7 22 8, center
  edit "", 3, 5 17 253 53, multi return hsbar
  button "ok", 4, 241 73 13 8
  button "voir messages", 5, 180 93 39 10
  button "effacer tout", 6, 222 93 36 10
  text "Ce message sera ajouté à jcvd.txt ,vous pouvez également ajouter vos messages ", 7, 30 73 209 8, center
  text "en éditant le fichier texte.. ", 8, 30 82 210 8, center
  button "Fermer", 9, 232 107 27 10, ok
}



on *:dialog:mongol:sclick:4: { /write jcvd.txt $did(mongol,3) }
on *:dialog:mongol:sclick:5: { window @jcvd | mongolito }
on *:dialog:mongol:sclick:6: { write -c jcvd.txt }

alias mongolito {
  set %mongolito 0
  :mong
  inc %mongolito
  /echo @jcvd $read(jcvd.txt,%mongolito)
  if {$lines(jcvd.txt) != %mongolito) { goto mong }
  else { halt }
}


on *:text:!jcvd:*: {

  /msg $chan $read(jcvd.txt) 

}



 Sources du même auteur

PSEUDO CHOOSER EN DIALOG
AUTOJOIN PAR NETWORK EN DIALOG
ASCII CODES
NEW CS LAUNCHER
INFOS..

 Sources de la même categorie

PACMAN MULTI-JOUEUR EN LIGNE par wims
PROXY&SOCKS SCANNER+LEECHER par independentt
GESTIONNAIRE DE HIGHLIGHT AVANCÉ AVEC IGNORE SALON OU PSEUDO par doob666
AUTOJOIN HTABLE MULTISERVER par doob666
TCL - AJOUT SUPPRESSION DE LOGS par Atok

Commentaires et avis

Commentaire de LaloO le 09/09/2002 08:33:27

Vraiment facile a utiliser... agréable et pratique pour les petites blagues avec un Bot-Remote....

Bravo!!! J'adore!

Commentaire de bastar le 13/09/2002 17:00:18

ben di donc tu t'arrette plus :)

->BELIAL

Commentaire de t0taL le 23/01/2004 20:13:48

  /msg #vitriers $read(jcvd.txt)

cette ligne me retourne insuffisant parameters

pourquoi ???

Commentaire de Zova le 07/07/2004 16:58:40

Tout d'abord je trouve cette source pas mal du tout :) Mais quelques défaults bien sur (car personne n'est parfait) ; dans le code tes "/" ne servent strictement à rien :: premier "/" qui sert à rien :
on *:dialog:mongol:sclick:4: { /write jcvd.txt $did(mongol,3) }

Voila sinon j'ai pas testé mais je pense pas qu'il y ai d'autres bugs ;)

 Ajouter un commentaire




Nos sponsors


Appels d'offres

Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,983 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales