0/5 (6 avis)
Vue 6 721 fois - Téléchargée 501 fois
; * ZiP * ; Si vous ne prenez pas le contenu du zip, il peut y avoir des ; problèmes par rapport aux images... ; Vous devez remplacer : ; *Nom du script* Par : Le nom de votre script ; ; Veuillez respecter mon travail et laisser les infos de copyright : ; ©2004 Samuel Dionne-Riel - www.samueldr.2ya.com - ON *:INPUT:*: { set %msg-input $1- if ($left(%msg-input,1) == /) { goto end2 } if ($left(%msg-input,1) == !) || ($left(%msg-input,1) == .) || ($left(%msg-input,1) == @) { goto end2 } if ( $read(nocolorchans.txt,w,* $+ $active $+ *) ) { goto end } msg $active $+ $readini(sys.ini, couleurs, d1) $+ $iif($readini(sys.ini, couleurs, b1),,) $+ $iif($readini(sys.ini, couleurs, u1),,) $readini(sys.ini, couleurs, Btxt) $upper($left(%msg-input,1)) $+ $+ $readini(sys.ini, couleurs, m1) $+ $iif($readini(sys.ini, couleurs, b2),,) $+ $iif($readini(sys.ini, couleurs, u2),,) $+ $+ $right(%msg-input,-1) $readini(sys.ini, couleurs, Atxt) halt goto end2 :end /msg $active $upper($left(%msg-input,1)) $+ $mid(%msg-input,2) halt :end2 } dialog inputcolor { title "Couleurs de message -=[By SamuelDr]=- [ *Nom du script* ] " size -1 -1 405 235 option notheme text "Configurez vos couleurs...", 501, 2 2 200 14, text "Voici une liste des différentes couleurs ", 502, 2 16 200 14, text "par défaut sur l'irc ", 503, 2 30 200 14, text "Voici une liste des différentes couleurs ", 504, 198 16 200 14, text "que vous avez modifiées dans votre script", 505, 198 30 200 14, text "©2004 SamuelDr - ", 511, 195 219 90 14, link "www.samueldr.2ya.com",512, 285 219 200 14, text "Note : ", 521, 216 106 90 14, text "Les changements effectués se ", 522, 222 118 190 14, text "sauvegardent automatiquement ", 523, 222 130 190 14, text "dans la configuration, pas ", 524, 222 146 190 14, text "besoin de vous tracasser avec ", 525, 222 160 190 14, text "la sauvegarde!! ", 526, 222 176 166 14, icon 1, 2 45 176 46 , color_index.bmp , icon 3, 0 95 407 138 , color_example.bmp , icon 2, 204 45 176 46 , colors_changed_final.bmp , edit "-=", 11, 10 95 30 22 , right limit 2 edit "9,0", 12, 39 95 40 22 , center check "Gras", 13, 10 117 70 22, style check "Souligné", 14, 10 137 70 22, style edit "9,0", 21, 130 95 40 22 , center edit "=-", 22, 170 95 30 22 , limit 2 check "Gras", 23, 130 117 70 22, style check "Souligné", 24, 130 137 70 22, style } on *:dialog:inputcolor:*:*: { if ( $devent == init ) { if ( $readini(sys.ini, couleurs, u1) ) did -c $dname 14 else did -u $dname 14 if ( $readini(sys.ini, couleurs, b1) ) did -c $dname 13 else did -u $dname 13 if ( $readini(sys.ini, couleurs, u2) ) did -c $dname 24 else did -u $dname 24 if ( $readini(sys.ini, couleurs, b2) ) did -c $dname 23 else did -u $dname 23 did -ra $dname 12 $readini(sys.ini, couleurs, d1) did -ra $dname 21 $readini(sys.ini, couleurs, m1) did -ra $dname 22 $readini(sys.ini, couleurs, Atxt) did -ra $dname 11 $readini(sys.ini, couleurs, Btxt) } if ( $devent == sclick ) { if ( $did == 14 ) { writeini sys.ini couleurs u1 $did($dname,$did).state } elseif ( $did == 13 ) { writeini sys.ini couleurs b1 $did($dname,$did).state } elseif ( $did == 24 ) { writeini sys.ini couleurs u2 $did($dname,$did).state } elseif ( $did == 23 ) { writeini sys.ini couleurs b2 $did($dname,$did).state } } elseif ( $devent == edit ) { if ( $did == 12 ) { writeini sys.ini couleurs d1 $did($dname,$did) } elseif ( $did == 21 ) { writeini sys.ini couleurs m1 $did($dname,$did) } if ( $did == 22 ) { if ( !$did($dname,$did) ) { remini sys.ini couleurs Atxt } else { writeini sys.ini couleurs Atxt $did($dname,$did) } } elseif ( $did == 11 ) { if ( !$did($dname,$did) ) { remini sys.ini couleurs Btxt } else { writeini sys.ini couleurs Btxt $did($dname,$did) } } } } alias chg_colors { window -Cdhp +b @colors 1 1 180 50 drawpic -n @colors 0 0 color_index_to_fill.bmp drawfill -nrs @colors $color(0) $rgb(255,255,255) 8 8 14 11 drawfill -nrs @colors $color(1) $rgb(50,255,136) 28 8 drawfill -nrs @colors $color(2) $rgb(0,0,127) 50 8 drawfill -nrs @colors $color(3) $rgb(0,147,0) 71 8 drawfill -nrs @colors $color(4) $rgb(255,0,0) 92 8 drawfill -nrs @colors $color(5) $rgb(127,0,0) 113 8 drawfill -nrs @colors $color(6) $rgb(156,0,156) 134 8 140 16 drawfill -nrs @colors $color(7) $rgb(252,127,0) 155 8 drawfill -nrs @colors $color(8) $rgb(255,255,0) 8 28 14 31 14 35 drawfill -nrs @colors $color(9) $rgb(0,252,0) 28 28 35 31 drawfill -nrs @colors $color(10) $rgb(0,147,147) 50 28 60 31 drawfill -nrs @colors $color(11) $rgb(0,255,255) 71 28 drawfill -nrs @colors $color(12) $rgb(0,0,252) 92 28 drawfill -nrs @colors $color(13) $rgb(255,0,255) 113 28 drawfill -nrs @colors $color(14) $rgb(127,127,127) 134 28 143 34 drawfill -nrs @colors $color(15) $rgb(210,210,210) 155 28 drawsave -b32q100 @colors colors_changed_final.bmp window -c @colors dialog -m inputcolor inputcolor } ;; ; À venir: ; Ajout de décorations au texte : [* Mon texte *] ou [-= Mon texte =-] ; Enregistrement de thèmes ; À vous d'en proposer!! ;;
12 avril 2004 à 21:01
mais le code lui, comment est-il ?????
11 avril 2004 à 21:15
Continue dans ta lancée ^^
Tempusus
2 avril 2004 à 01:09
mais, je ne suis pas francais :S
et mon code, qu'en faites-vous!!!!
1 avril 2004 à 20:34
Et oui, si on y réfléchit bien, le rip peut aller loin si une personne veut vraiment punir le ripeur ;)
lien intéréssant sur le droit intellectuel :
http://users.info.unicaen.fr/~vbudet/droitauteur/index.php?page=auteur.html
Et oui, sa sert les cours de droit :(
1 avril 2004 à 18:45
; Veuillez respecter mon travail et laisser les infos de copyright :
; ©2004 Samuel Dionne-Riel - www.samueldr.2ya.com -
Je ne pense que aucun organisme ne peut te donner un espace de copyright pour un code, mais pour un brevé oui, sinon le but est de tout de meme respecter le travaille fait! mais c'est toujour un peu risqué...
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.