- ;====================================================================
- ;Author Name: JHD, Email: jhdestevez@hotmail.com
- ;Company: JHDSCRIPT®, Home Page: http://www.jhdscript.com
- ;--------------------------------------------------------------------
- ;Dialog Name: Couleur spéciale, Version 3
- ;Copyright: 2002-2xxx, Date: 24/10/02
- ;Commentaires: C est ma couleur à moi je la kiffe de trop alors mattez vous allez halluciner :p
- ;====================================================================
-
- on *:INPUT:*: {
- if ( ! != $left($1, 1) ) && ( / != $left($1, 1) ) {
- var %c = 1, %t
- while (%c <= $0) {
- if ($gettok($1-,%c,32) ison $chan) { %t = %t $+ $prefix($ifmatch,#) $+ $+ $ifmatch $+ $+ %numcoul }
- else { %t = %t $gettok($1-,%c,32) }
- inc %c
- }
- msg $active $+ %numcool $+ $left($upper(%t),1) $+ $+ %numcoul $+ $right(%t,-1) $+ .
- changecoul
- halt
- }
- }
- alias prefix { if ($1 isnotify) { return 12 $+ $chr(160) $+ $chr(167) $+ } | elseif ($1 == socrate) { return 13 $+ $chr(160) $+ $chr(169) $+ } | elseif ($1 isop $2) { return 4 $+ $chr(160) $+ $chr(64) $+ } | elseif ($1 isvoice $2) { return 7 $+ $chr(160) $+ $chr(43) $+ } | elseif ($1 isreg $2) { return 14 $+ $chr(160) $+ } | elseif ($1 ishop $2) { return 13 $+ $chr(160) $+ $chr(37) $+ } }
- alias changecoul {
- if (%numcool == 12) {
- set %numcool 2
- set %numcoul 14
- }
- elseif (%numcool == 2) {
- set %numcool 14
- set %numcoul 1
- }
- elseif (%numcool == 14) {
- set %numcool 10
- set %numcoul 3
- }
- elseif (%numcool == 10) {
- set %numcool 1
- set %numcoul 14
- }
- elseif (%numcool == 1) {
- set %numcool 12
- set %numcoul 2
- }
- }
;====================================================================
;Author Name: JHD, Email: jhdestevez@hotmail.com
;Company: JHDSCRIPT®, Home Page: http://www.jhdscript.com
;--------------------------------------------------------------------
;Dialog Name: Couleur spéciale, Version 3
;Copyright: 2002-2xxx, Date: 24/10/02
;Commentaires: C est ma couleur à moi je la kiffe de trop alors mattez vous allez halluciner :p
;====================================================================
on *:INPUT:*: {
if ( ! != $left($1, 1) ) && ( / != $left($1, 1) ) {
var %c = 1, %t
while (%c <= $0) {
if ($gettok($1-,%c,32) ison $chan) { %t = %t $+ $prefix($ifmatch,#) $+ $+ $ifmatch $+ $+ %numcoul }
else { %t = %t $gettok($1-,%c,32) }
inc %c
}
msg $active $+ %numcool $+ $left($upper(%t),1) $+ $+ %numcoul $+ $right(%t,-1) $+ .
changecoul
halt
}
}
alias prefix { if ($1 isnotify) { return 12 $+ $chr(160) $+ $chr(167) $+ } | elseif ($1 == socrate) { return 13 $+ $chr(160) $+ $chr(169) $+ } | elseif ($1 isop $2) { return 4 $+ $chr(160) $+ $chr(64) $+ } | elseif ($1 isvoice $2) { return 7 $+ $chr(160) $+ $chr(43) $+ } | elseif ($1 isreg $2) { return 14 $+ $chr(160) $+ } | elseif ($1 ishop $2) { return 13 $+ $chr(160) $+ $chr(37) $+ } }
alias changecoul {
if (%numcool == 12) {
set %numcool 2
set %numcoul 14
}
elseif (%numcool == 2) {
set %numcool 14
set %numcoul 1
}
elseif (%numcool == 14) {
set %numcool 10
set %numcoul 3
}
elseif (%numcool == 10) {
set %numcool 1
set %numcoul 14
}
elseif (%numcool == 1) {
set %numcool 12
set %numcoul 2
}
}