Teamscript 4 : comment supprimer le point devant les chiffres
Attention faire exactement la procédure ci-après :
1. alt + r (ça ouvre le mIRC script editor)
2. cliquer dans cette fenêtre sur l'onglet "remote"
3. cliquer dans cette fenetre sur view (en haut)
4. dans le menu view cliquer sur ts-script09.mrc
5. cliquer sur edit et choisir select all puis suppr
6. copier coller a la place la remote ci-dessous et cliquer ok
;####################
;# #
;# Teamscript 4 - Pada - 2005 #
;# #
;####################
;/dire Lieu Cat Msg
Alias dire {
.msg $$1 $$2-
mecho Text $1 $me $2-
halt
}
Alias faire {
if ($2 != $null) {
var %mode = $iif($left($nick($1,$me).pnick,1) isin $prefix,$ifmatch)
var %nick = $fnick(%mode,$me)
echo -mt $1 $event(Action,%nick,$2-)
.describe $1 $2-
}
}
Alias amsg {
var %i 1
while $chan(%i) { mecho Text $ifmatch $me $col.off $+ $1- | inc %i }
.amsg $col.off($1-)
}
Alias ame {
var %i 1
while $chan(%i) {
var %c $ifmatch
var %mode = $iif($left($nick(%c,$me).pnick,1) isin $prefix,$ifmatch)
var %nick = $fnick(%mode,$me)
echo -mt %c $event(Action,%nick,$1-)
inc %i
}
.ame $1-
}
Alias me faire $active $1-
Alias say dire $active $1-
Alias say2 dire $active $col.off($1-)
Alias fnick {
var %mode = $1,%n = $$2
if $hthm(disp.op) { %mode = $replace(%mode,@,$ifmatch) }
if $hthm(disp.hop) { %mode = $replace(%mode,%,$ifmatch) }
if $hthm(disp.vo) { %mode = $replace(%mode,+,$ifmatch) }
%n = $iif(%n != $me,%n,$iif($hthm(disp.b),) $+ $iif($hthm(disp.u), ) $+ $iif($hthm(disp.k), $+ $hthm(disp.c)) $+ %n) $+
return %mode $+ %n
}
Alias hlme {
if ($1 == $me) { return 0 }
if ($me isin $strip($2-)) || ( !$h(chat.319) && ($gettok($me,1,124) isin $strip($2-)) ) {
var %m = /^ $+ $iif($h(chat.320),$replace($regform($h(NoHL)),?,.,*,.*)) $+ $ $+ /i
if $regex($gettok($1,1,124),%m) || $regex($1,%m) { return 0 }
return 1
}
var %a = 1
while $gettok($hget(HL,mots),%a,174) {
if $chr(42) isin $gettok($hget(HL,mots),%a,174) && $gettok($hget(HL,mots),%a,174) iswm $strip($2-) { var %x = 1 }
elseif $chr(42) !isin $gettok($hget(HL,mots),%a,174) && $istok($strip($2-),$gettok($hget(HL,mots),%a,174),32) { var %x = 1 }
inc %a
}
if %x {
var %m = /^ $+ $iif($h(chat.320),$replace($regform($h(NoHL)),?,.,*,.*)) $+ $ $+ /i
if $regex($gettok($1,1,124),%m) || $regex($1,%m) { return 0 }
return 1
}
return 0
}
;échappement des métacaractères de classe de regex
Alias regform return $replace($1,[,\[,],\])
Alias hlcolor return 4
Alias mecho {
var %mode = $iif($left($nick($2,$3).pnick,1) isin $prefix,$ifmatch)
var %HL = $hlme($3,$4-)
if %HL { sons highlight }
if %HL && ($active != $2) && ($3 != $me) { echo -amt $event(HighLight,$2,$event($1,$fnick(%mode,$3),$4-)) }
if %HL && $h(chat.310) && ($3 != $me) { echohl $2 : $event($1,$fnick(%mode,$3),$4-) }
echo $iif(%HL,$hlcolor) -mt $$2 $event($1,$fnick(%mode,$3),$4-)
}
on *:START:{
hmake Colors 50
hload -o Colors System\Data\Colors
hmake Sys-inputs 50
hload -o Sys-inputs System\Data\Sys-inputs
}
Alias -l col {
if $isid { return $iif($hget(Colors,$1) $+ $iif($prop,. $+ $ifmatch),$ifmatch,0) }
else { hadd -m Colors $1- }
}
Alias -l b return
Alias -l u return
Alias -l k return
Alias -l o return
Alias -l r return
Alias col.off {
if !$col(off.activate) || (c isincs $gettok($chan($active).mode,1,32)) { return $1- }
var %col = $iif($len($col(off.color)) < 2,0 $+ $col(off.color),$col(off.color)) , %bkg = $iif($len($col(off.bkg)) < 2,0 $+ $col(off.bkg),$col(off.bkg))
var %col = $iif($col(off.bold),$b) $+ $k $+ $iif(%col >= 0,$ifmatch $+ $iif(%bkg >= 0,$chr(44) $+ $ifmatch),01)
if $col(off.maj) && ($1 !ison $active) { tokenize 32 $upper($left($1,1)) $+ $right($1-,-1) }
return %col $+ $1-
}
Alias col.pv {
if !$col(pv.activate) || (c isincs $gettok($chan($active).mode,1,32)) { return $1- }
if $col(pv.maj) && ($1 !ison $active) && ($1 != $active) { tokenize 32 $upper($left($1,1)) $+ $right($1,-1) $2- }
if $col(pv.first.activate) && ( ($1 !ison $active) || ($active == $query($1)) ) {
var %col1 = $iif($len($col(pv.first)) < 2,0 $+$col(pv.first),$col(pv.first)), %bkg1 = $iif($len($col(pv.firstb)) < 2,0 $+ $col(pv.firstb),$col(pv.firstb))
var %col1 = $iif($col(pv.first.bold),$b) $+ $iif($col(pv.first.under),$u) $+ $k $+ $iif(%col1 >= 0,$ifmatch $+ $iif(%bkg1 >= 0,$chr(44) $+ $ifmatch),01)
}
var %col = $iif($len($col(pv.color)) < 2, $+ $col(pv.color),$col(pv.color)) , %bkg = $iif($len($col(pv.bkg)) < 2,0 $+ $col(pv.bkg),$col(pv.bkg))
var %col = $iif($col(pv.bold),$b) $+ $iif($col(pv.underline),$u) $+ $k $+ $iif(%col >= 0,$ifmatch $+ $iif(%bkg >= 0,$chr(44) $+ $ifmatch),01)
var %i 1
while $gettok($1-,%i,32) {
var %m $ifmatch
if (%m ison $active) || ($active == $query(%m)) {
if $col(pv.nicks.b) { %m = $+($b,%m,$b) }
if $col(pv.nicks.u) { %m = $+($u,%m,$u) }
if $col(pv.nicks.r) { %m = $+($r,%m,$r) }
tokenize 32 $puttok($1-,%m,%i,32)
}
inc %i
}
var %msg = $iif(%col1,%col1 $+ $left($1,1) $+ $o $+ %col $+ $right($1-,-1),%col $+ $1-)
return %msg
}
On *:INPUT:*:{
var %cmd = access|addthishost|adduser|alist|auth|ban|banlist|chaninfo|chanopt|clearbans|clearmodes|deauth|deluser|deop|deopall|do|info|invite|kick|csadmin|showcommands
%cmd = %cmd $+ |kickall|kickban|mode|moderate|moduser|newpass|nickban|op|opall|purpose|rdefaults|rdefmodes|rdeftopic|seen|suspendnick|topic|locktopic|unban|deftopic|defmodes
%cmd = %cmd $+ |welcome|motd|help|description|noops
%cmd = /^!( $+ %cmd $+ )$/i
if $ctrlenter { dire $active $1- }
elseif $hget(Sys-nicks,$1-) { _nick $ifmatch | if !hget(Sys-nicks,option.input) { haltdef } }
elseif $hget(Salons,#) && ($gettok($hget(Salons,#),6,32) ison #) && $h(irix.invisible) && $regex($1,%cmd) {
msg $gettok($hget(Salons,#),6,32) $regml(1) $iif(!$istok(!csadmin;!showcommands;!help,$1,59),#) $2-
haltdef
}
elseif (IriX ison #) && $h(irix.invisible) && $regex($1,%cmd) {
msg IriX $regml(1) $iif(!$istok(!csadmin;!showcommands;!help,$1,59),#) $2-
haltdef
}
elseif $hget(sys-inputs,$1) {
var %inp $ifmatch
.alias inputz $gettok(%inp,2-,157)
inputz $2-
.alias inputz
if ($gettok(%inp,1,157) == 2) { dire $active $1- }
else { haltdef }
}
elseif ($left($1,1) !isin /!.) {
;#CORRECTEUR AUTOMATIQUE DE POLIO =]
var %i 1
while $hget(Polio,%i).item {
var %j 1,%a $ifmatch,%b = $hget(Polio,$ifmatch)
if (%a != %b) {
while $findtok($1-,%a,1,32) {
tokenize 32 $puttok($1-,%b,$ifmatch,32)
inc %j
}
}
;tokenize 32 $replace($1-,%a,%b)
inc %i
}
;if ($left($1,1) isnum) { tokenize 32 $+ $1- }
;# SALONS OFF
if (#!*! iswm $active) || ($active isin #teamscript,#help-mirc) {
dire $active $col.off($1-)
}
;# SALONS PV
elseif (#* iswm $active) {
dire $active $col.pv($1-)
}
;# PV / CHAT
elseif ($chat($remove($active,$chr(61))) || $query($active)) {
if ($left($active,1) == $chr(61)) && !$col(chat.opt) { dire $active $1- }
elseif ($left($active,1) != $chr(61)) && !$col(pv.activate) { dire $active $1- }
else { dire $active $col.pv($1-) }
}
}
elseif ($left($1,1) isin !.) {
dire $active $1-
}
}
Alias not notice $$1 -2 $1 -› $col.off($2-)
Alias onot not @ $+ # $1-
Alias vnot not + $+ $1-
Alias ovnot not @+ $+ # $1-
;========================
;CORRECTIONS AUTOMATIQUES
;========================
Alias correct _d Correct
dialog Correct {
title "/Correct - Ts4"
size -1 -1 85 140
option dbu
list 1, 2 2 82 114, size extsel
button "Ok", 2, 2 128 82 10, ok
button "Ajout", 3, 2 118 26 8
button "Suppr", 4, 30 118 26 8
button "Modif", 5, 58 118 26 8
}
on *:dialog:Correct:*:*:{
if ($devent == init) {
mdxinit
mdx SetControlMDX $dname 1 ListView report rowselect grid nosortheader > $mdxviews
mdx SetBorderStyle $dname 1 border
did -i $dname 1 1 headerdims 82 82
did -i $dname 1 1 headertext Avant $chr(9) Après
refresh.correct
}
elseif ($devent == sclick) {
if ($did == 3) { hadd -m Polio $$?="Mot à remplacer ?" $$?="Remplacement ?" | refresh.correct }
if ($did == 4) { hdel Polio $hget(Polio,$calc($$did($dname,1).sel -1)).item | refresh.correct }
if ($did == 5) { hadd Polio $hget(Polio,$calc($$did($dname,1).sel -1)).item $$?="Remplacement ?" | refresh.correct }
}
elseif ($devent == close) {
hsave -o Polio System\Data\Polio
}
}
Alias refresh.Correct {
did -r Correct 1
var %i 1
while $hget(Polio,%i).item {
did -a Correct 1 0 $ifmatch $chr(9) $hget(Polio,$ifmatch)
inc %i
}
}
;=============================
; EDITEUR D'INPUTS
;=============================
Alias inputs _d _inputs
dialog _inputs {
title "Commandes vocales - Teamscript 4 - /inputs"
size -1 -1 237 142
option dbu
list 1, 1 2 235 126, size
button "Valider", 2, 198 130 37 11, flat ok
button "Ajouter", 3, 2 130 30 11,flat
button "Supprimer", 4, 34 130 30 11,flat
button "Modifier", 5, 66 130 30 11,flat
}
on *:DIALOG:_inputs:*:*:{
if ($devent == init) {
mdxinit
mdx SetControlMDX $dname 1 ListView report rowselect showsel grid checkboxes nosortheader > $mdxviews
did -i $dname 1 1 headerdims 120 330
did -i $dname 1 1 headertext [Visible?] !commande $chr(9) Alias
inputs.refresh
}
elseif ($devent == sclick) {
if ($did == 1) { .timer -m 1 50 inputs.check }
elseif ($did == 3) {
var %a = $$?="Commande vocale ? Exemple : !away (doit commencer par un ! ou un .)"
var %b = $$?="Commande à effectuer ? Exemple : /away Je suis parti (doit commencer par un slash / (barre oblique)"
if ($left(%a,1) isin !.) && ($left(%b,1) == /) {
hinp %a 1 $+ $chr(157) $+ %b
inputs.refresh
}
}
elseif ($did == 4) { hinp $hinp($calc($$did($dname,1).sel -1)).item | inputs.refresh }
elseif ($did == 5) { hinp $hinp($calc($$did($dname,1).sel -1)).item $gettok($did(1,$did($dname,1).sel),5,32) $+ $chr(157) $+ $$?="Commande à effectuer ? Exemple : /away Je suis parti" | inputs.refresh }
}
elseif ($devent == close) { hsave -o Sys-inputs System\Data\Sys-inputs }
}
Alias inputs.refresh {
did -r _inputs 1
var %i 1
while $hinp(%i).item {
var %c $ifmatch
tokenize 157 $hinp($ifmatch)
did -a _inputs 1 0 0 0 $1 %c $chr(9) $2
inc %i
}
}
Alias -l inputs.check {
if $dialog(_inputs) {
var %i 2
while ($did(_inputs,1,%i)) {
tokenize 32 $ifmatch
hinp $6 $5 $+ $chr(157) $+ $11-
inc %i
}
}
}
Alias hinp {
if $isid && ($prop == item) { return $hget(Sys-inputs,$1).item }
elseif $isid { return $hget(Sys-inputs,$1) }
elseif (!$2) { hdel -m Sys-inputs $1 }
else { hadd -m Sys-inputs $1 $2- }
}
Sujet: Teamscript4 : comment supprimer le point devant les chiffres 
Mar 12 Jan - 18:12