|
Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
SMILEYS DE JAVA EN MIRC
Information sur la source
Description
Voila, je vois ce que quelqu'un écrit en double mais par contre je vois bien ce que je marque (une seule fois).
Source
- ;Design affichage:
- on ^*:text:*:#: {
- echo $chan 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( . $iif($isAway($nick),//away,$iif($nick isop $chan, $iif(($nick == IriX) || ($left($nick,6) == Robot0) || ($left($nick,6) == Thema0),//robot,//op), $iif($nick isvo $chan,//v))) $+ $iif($nick isop $chan,4,$iif($nick isvo $chan,3,12)) *PV $nick $+ * 12. )1 $1- | halt
- window -g[1] $chan
- haltdef
- }
- alias hop {
- echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous sortez de $active
- echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous revenez dans $active
- %chan [ $+ [ $window($active).hwnd ] ] = $false
- hop
- }
-
- alias notice {
- echo -a 05--> - $+ $iif($isAway($1),//away) $+ *PV $1 $+ * $+ - $2-
- notice $1-
- }
-
- alias msg {
- .msg $1 $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
- if ($show) echo $1 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 12. )01 $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
- }
-
- alias describe {
- .describe $1 $2-
- if ($show) echo $1 6 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93) 6*5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 6 $+ $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
- }
-
- alias ctcp {
- .ctcp $1-
- echo -a 4 CTCP $upper($2) $+ $3- envoyé sur2 $1
- if ($2 == IMAGE) writeln $active <Br><center><img src=" $+ $3- $+ "></center>
- }
-
- ;Ligne HTML de départ:
- alias HTMLLoad {
- if ($window($1).hwnd != $null) {
- if ($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,ready,$null) == S_TRUE) {
- .timer $+ $window($1).hwnd off
-
- run SmilesButton.exe $window($1).hwnd
-
- else {
-
-
- whois $1 $1
- }
- .timer $+ $window($1).hwnd -m 0 25 JSalias $1 $window($1).hwnd
- }
- set %chan [ $+ [ $window($1).hwnd ] ] $true
- }
- }
-
- ;code Source a ne pas changer (sauf si vous savez ce que vous faites ;)
- on *:load: {
- mkdir DllTmp
- mkdir LogHTML
- }
-
- alias isaway return $false
-
- alias writeln {
- if ($exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
- dll DllTmp/Dll $+ $window($1).hwnd $+ .dll writeln $2-
- write $shortfn(LogHTML/ $+ $replace($1,$chr(124),`,$chr(92),`) $+ $time(dd-mm-yy) $+ .html) $2-
- }
- }
-
- alias say msg $active $1-
-
- alias amsg {
- var %MyChan 1
- while (%MyChan <= $chan(0)) {
- msg $chan(%MyChan) $1-
- inc %MyChan 1
- }
- }
-
- alias echo {
- var %target $iif(($left($1,1) == -) && (a isin $1),$active,$1)
- if (($2 != $null) && ($isWinHTML(%target)) && (%chan [ $+ [ $window(%target).hwnd ] ] )) {
- var %echo $iif(($left($1,1) == -) && (t isin $1),01 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93)) $remove($2-,)
- var %span $count($gettok(%echo,1-10,3),<span)
- var %nospan 0
- var %Couleure $mIrcHTML($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3))
- while ( isin %Couleure) {
- %Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
- }
- %nospan = $calc(%nospan + $count(%Couleure,</span>))
- %span = $calc(%span + $count(%Couleure,<span))
-
- writeln %target <Br> $+ %Couleure
- %echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
- while (%echo != $null) {
- %span = $calc(%span + $count($gettok(%echo,1-10,3),<span))
- %Couleure = $img($SoulignHTML($GrasHTML($Couleure($lienHTML($replace($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3),<,<<c>))))))
- while ( isin %Couleure) {
- %Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
- }
- %nospan = $calc(%nospan + $count(%Couleure,</span>))
- %span = $calc(%span + $count(%Couleure,<span))
-
- writeln %target %Couleure
- %echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
- }
- writeln %target $str(</span>,$calc(%span - %nospan))
- }
- else echo $1-
- }
-
- alias isPaire return $iif($int($calc($1 / 2)) == $calc($1 / 2), $true, $false)
-
- alias GrasHTML {
- var %GrasChaine $1-
- var %nbrPlaceGras 0
- while (%nbrPlaceGras != $count($1-,)) {
- inc %nbrPlaceGras 1
- %GrasChaine = $left(%GrasChaine,$calc($pos(%GrasChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceGras),</b>,<b>) $+ $right(%GrasChaine,$calc($pos(%GrasChaine,,1)*-1))
- }
- if (!$isPaire($count($1-,))) %GrasChaine = %GrasChaine $+ </b>
- return %GrasChaine
- }
-
- alias SoulignHTML {
- var %SoulignChaine $1-
- var %nbrPlaceSoulign 0
- while (%nbrPlaceSoulign != $count($1-,)) {
- inc %nbrPlaceSoulign 1
- %SoulignChaine = $left(%SoulignChaine,$calc($pos(%SoulignChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceSoulign),</u>,<u>) $+ $right(%SoulignChaine,$calc($pos(%SoulignChaine,,1)*-1))
- }
- if (!$isPaire($count($1-,))) %SoulignChaine = %SoulignChaine $+ </u>
- return %SoulignChaine
- }
-
- alias isWinHTML {
- if ((($chan($1) != $null) || ($query($1) != $null)) && ($1 != Status Window)) return $true
- else return $false
- }
-
- alias BC return $iif($1 <= 15,$true,$false)
-
- alias isNbr return $iif($1 isin 1234567890,$true,$false)
-
- alias char return $right($left($2-,$1),1)
-
- alias Couleure return $Couleur($FCouleur($1-))
-
- alias FCouleur1 return $FCouleur2($replace($1-,$chr(44) $+ 00,<span style='background-color:white'>,$chr(44) $+ 01,<span style='background-color:black'>,$chr(44) $+ 02,<span style='background-color:darkblue'>,$chr(44) $+ 03,<span style='background-color:forestgreen'>,$chr(44) $+ 04,<span style='background-color:red'>,$chr(44) $+ 05,<span style='background-color:brown'>,$chr(44) $+ 06,<span style='background-color:Blueviolet'>,$chr(44) $+ 07,<span style='background-color:orange'>,$chr(44) $+ 08,<span style='background-color:yellow'>,$chr(44) $+ 09,<span style='background-color:lawngreen'>,$chr(44) $+ 10, <span style='background-color:darkcyan'>,$chr(44) $+ 11, <span style='background-color:cyan'>,$chr(44) $+ 12, <span style='background-color:Blue'>,$chr(44) $+ 13, <span style='background-color:pink'>,$chr(44) $+ 14, <span style='background-color:gray'>,$chr(44) $+ 15, <span style='background-color:silver'>))
- alias FCouleur2 return $replace($1-,$chr(44) $+ 0,<span style='background-color:white'>,$chr(44) $+ 1,<span style='background-color:black'>,$chr(44) $+ 2,<span style='background-color:darkblue'>,$chr(44) $+ 3,<span style='background-color:forestgreen'>,$chr(44) $+ 4,<span style='background-color:red'>,$chr(44) $+ 5,<span style='background-color:brown'>,$chr(44) $+ 6,<span style='background-color:Blueviolet'>,$chr(44) $+ 7,<span style='background-color:orange'>,$chr(44) $+ 8,<span style='background-color:yellow'>,$chr(44) $+ 9,<span style='background-color:lawngreen'>)
- alias FCouleur {
- var %FCouleur
- if (( isin $1-) && ($chr(44) isin $1-)) {
- var %NbrFC 1
- while ($numtok($1-,32) >= %NbrFC) {
- %FCouleur = %FCouleur $iif( isin $gettok($1-,%NbrFC,32),$FCouleur1($gettok($1-,%NbrFC,32)),$gettok($1-,%NbrFC,32))
- inc %NbrFC 1
- }
- }
- else {
- %FCouleur = $1-
- }
- return %FCouleur
- }
-
- alias Couleur return $Couleur2($Couleur1($replace($1-,00, <span style='color:white'>,01, <span style='color:black'>,02, <span style='color:darkblue'>,03, <span style='color:forestgreen'>,04, <span style='color:red'>,05, <span style='color:brown'>,06, <span style='color:Blueviolet'>,07, <span style='color:orange'>,08, <span style='color:yellow'>,09, <span style='color:lawngreen'>)))
- alias Couleur1 return $replace($1-,10, <span style='color:darkcyan'>,11, <span style='color:cyan'>,12, <span style='color:Blue'>,13, <span style='color:pink'>,14, <span style='color:gray'>,15, <span style='color:silver'>)
- alias Couleur2 return $replace($1-,0, <span style='color:white'>,1, <span style='color:black'>,2, <span style='color:darkblue'>,3, <span style='color:forestgreen'>,4, <span style='color:red'>,5, <span style='color:brown'>,6, <span style='color:Blueviolet'>,7, <span style='color:orange'>,8, <span style='color:yellow'>,9, <span style='color:lawngreen'>)
-
- alias img return $img0($replace($1-,: $+ $chr(41),//sourire,:- $+ $chr(41),//sourire,:o $+ $chr(41),//sourire,: $+ $chr(40),//triste,:- $+ $chr(40),//triste,:o $+ $chr(40),//triste,; $+ $chr(41),//clindoeil,;- $+ $chr(41),//clindoeil,;o $+ $chr(41),//clindoeil,:-/,//mecontent,:o/,//mecontent,= $+ $chr(41),//sourire2,= $+ $chr(40),//triste2,:' $+ $chr(40),//pleure))
- alias img0 return $img1($replace($1-,//attendre,<img SRC=" $+ $mircdir $+ images\attendre.gif">,//away,<img SRC=" $+ $mircdir $+ images\away.gif">,//banane,<img SRC=" $+ $mircdir $+ images\banane.gif">,//biere,<img SRC=" $+ $mircdir $+ images\biere.gif">,//bombe,<img SRC=" $+ $mircdir $+ images\bombe.gif">,//cadeau,<img SRC=" $+ $mircdir $+ images\cadeau.gif">,//cafe,<img SRC=" $+ $mircdir $+ images\cafe.gif">,//cd,<img SRC=" $+ $mircdir $+ images\cd.gif">,//chagrin,<img SRC=" $+ $mircdir $+ images\chagrin.gif">,//chien,<img SRC=" $+ $mircdir $+ images\chien.gif">,//clindoeil,<img SRC=" $+ $mircdir $+ images\clindoeil.gif">,//coeur,<img SRC=" $+ $mircdir $+ images\coeur.gif">,//danger2,<img SRC=" $+ $mircdir $+ images\danger2.gif">,//danger,<img SRC=" $+ $mircdir $+ images\danger.gif">,//exclam,<img SRC=" $+ $mircdir $+ images\exclam.gif">,//fantome,<img SRC=" $+ $mircdir $+ images\fantome.gif">))
- alias img1 return $img2($replace($1-,//fleurbleu,<img SRC=" $+ $mircdir $+ images\fleurbleu.gif">,//foot,<img SRC=" $+ $mircdir $+ images\foot.gif">,//gateau,<img SRC=" $+ $mircdir $+ images\gateau.gif">,//halloween,<img SRC=" $+ $mircdir $+ images\halloween.gif">,//hotdog,<img SRC=" $+ $mircdir $+ images\hotdog.gif">,//ignorer,<img SRC=" $+ $mircdir $+ images\ignorer.gif">,//interdit,<img SRC=" $+ $mircdir $+ images\interdit.gif">,//langue,<img SRC=" $+ $mircdir $+ images\langue.gif">,//mail,<img SRC=" $+ $mircdir $+ images\mail.gif">,//maison,<img SRC=" $+ $mircdir $+ images\maison.gif">,//mecontent,<img SRC=" $+ $mircdir $+ images\mecontent.gif">,//mobile,<img SRC=" $+ $mircdir $+ images\mobile.gif">,//musique,<img SRC=" $+ $mircdir $+ images\musique.gif">,//oeil,<img SRC=" $+ $mircdir $+ images\oeil.gif">,//op,<img SRC=" $+ $mircdir $+ images\op.gif">,//orage,<img SRC=" $+ $mircdir $+ images\orage.gif">))
- alias img2 return $img3($replace($1-,//peacelove,<img SRC=" $+ $mircdir $+ images\peacelove.gif">,//pleure,<img SRC=" $+ $mircdir $+ images\pleure.gif">,//poisson,<img SRC=" $+ $mircdir $+ images\poisson.gif">,//poubelle,<img SRC=" $+ $mircdir $+ images\poubelle.gif">,//reveil,<img SRC=" $+ $mircdir $+ images\reveil.gif">,//robot,<img SRC=" $+ $mircdir $+ images\robot.gif">,//sourire2,<img SRC=" $+ $mircdir $+ images\sourire2.gif">,//sourire,<img SRC=" $+ $mircdir $+ images\sourire.gif">,//telephone,<img SRC=" $+ $mircdir $+ images\telephone.gif">,//terre,<img SRC=" $+ $mircdir $+ images\terre.gif">,//triste2,<img SRC=" $+ $mircdir $+ images\triste2.gif">,//triste,<img SRC=" $+ $mircdir $+ images\triste.gif">,//vache,<img SRC=" $+ $mircdir $+ images\vache.gif">,//voice,<img SRC=" $+ $mircdir $+ images\voice.gif">,//voiture,<img SRC=" $+ $mircdir $+ images\voiture.gif">,//v,<img SRC=" $+ $mircdir $+ images\v.gif">))
- alias img3 return $replace($1-,//fille,<img SRC=" $+ $mircdir $+ images\fille.gif">,//yingyang,<img src=" $+ $mircdir $+ images/yingyang.gif">)
-
- alias Smileys return $Smileys0($1-)
- alias Smileys0 return $Smileys1($replace($1-,//sm262,<img src=" $+ $mircdir $+ Smileys/sm262.gif">,//sm261,<img src=" $+ $mircdir $+ Smileys/sm261.gif">,//sm260,<img src=" $+ $mircdir $+ Smileys/sm260.gif">,//sm259,<img src=" $+ $mircdir $+ Smileys/sm259.gif">,//sm258,<img src=" $+ $mircdir $+ Smileys/sm258.gif">,//sm256,<img src=" $+ $mircdir $+ Smileys/sm256.gif">,//sm255,<img src=" $+ $mircdir $+ Smileys/sm255.gif">,//sm254,<img src=" $+ $mircdir $+ Smileys/sm254.gif">,//sm253,<img src=" $+ $mircdir $+ Smileys/sm253.gif">,//sm252,<img src=" $+ $mircdir $+ Smileys/sm252.gif">,//sm251,<img src=" $+ $mircdir $+ Smileys/sm251.gif">,//sm250,<img src=" $+ $mircdir $+ Smileys/sm250.gif">,//sm249,<img src=" $+ $mircdir $+ Smileys/sm249.gif">,//sm248,<img src=" $+ $mircdir $+ Smileys/sm248.gif">))
- alias Smileys1 return $Smileys2($replace($1-,//sm247,<img src=" $+ $mircdir $+ Smileys/sm247.gif">,//sm246,<img src=" $+ $mircdir $+ Smileys/sm246.gif">,//sm245,<img src=" $+ $mircdir $+ Smileys/sm245.gif">,//sm244,<img src=" $+ $mircdir $+ Smileys/sm244.gif">,//sm243,<img src=" $+ $mircdir $+ Smileys/sm243.gif">,//sm242,<img src=" $+ $mircdir $+ Smileys/sm242.gif">,//sm241,<img src=" $+ $mircdir $+ Smileys/sm241.gif">,//sm240,<img src=" $+ $mircdir $+ Smileys/sm240.gif">))
- alias Smileys2 return $Smileys3($replace($1-,//sm230,<img src=" $+ $mircdir $+ Smileys/sm230.gif">,//sm229,<img src=" $+ $mircdir $+ Smileys/sm229.gif">,//sm228,<img src=" $+ $mircdir $+ Smileys/sm228.gif">,//sm227,<img src=" $+ $mircdir $+ Smileys/sm227.gif">,//sm226,<img src=" $+ $mircdir $+ Smileys/sm226.gif">,//sm225,<img src=" $+ $mircdir $+ Smileys/sm225.gif">,//sm224,<img src=" $+ $mircdir $+ Smileys/sm224.gif">,//sm223,<img src=" $+ $mircdir $+ Smileys/sm223.gif">,//sm222,<img src=" $+ $mircdir $+ Smileys/sm222.gif">,//sm221,<img src=" $+ $mircdir $+ Smileys/sm221.gif">,//sm220,<img src=" $+ $mircdir $+ Smileys/sm220.gif">,//sm219,<img src=" $+ $mircdir $+ Smileys/sm219.gif">,//sm218,<img src=" $+ $mircdir $+ Smileys/sm218.gif">))
- alias Smileys3 return $Smileys4($replace($1-,//sm217,<img src=" $+ $mircdir $+ Smileys/sm217.gif">,//sm216,<img src=" $+ $mircdir $+ Smileys/sm216.gif">,//sm215,<img src=" $+ $mircdir $+ Smileys/sm215.gif">,//sm214,<img src=" $+ $mircdir $+ Smileys/sm214.gif">,//sm213,<img src=" $+ $mircdir $+ Smileys/sm213.gif">,//sm212,<img src=" $+ $mircdir $+ Smileys/sm212.gif">,//sm211,<img src=" $+ $mircdir $+ Smileys/sm211.gif">,//sm210,<img src=" $+ $mircdir $+ Smileys/sm210.gif">,//sm209,<img src=" $+ $mircdir $+ Smileys/sm209.gif">,//sm208,<img src=" $+ $mircdir $+ Smileys/sm208.gif">,//sm207,<img src=" $+ $mircdir $+ Smileys/sm207.gif">,//sm206,<img src=" $+ $mircdir $+ Smileys/sm206.gif">,//sm205,<img src=" $+ $mircdir $+ Smileys/sm205.gif">,//sm204,<img src=" $+ $mircdir $+ Smileys/sm204.gif">,//sm203,<img src=" $+ $mircdir $+ Smileys/sm203.gif">))
- alias Smileys4 return $Smileys5($replace($1-,//sm202,<img src=" $+ $mircdir $+ Smileys/sm202.gif">,//sm201,<img src=" $+ $mircdir $+ Smileys/sm201.gif">,//sm200,<img src=" $+ $mircdir $+ Smileys/sm200.gif">,//sm199,<img src=" $+ $mircdir $+ Smileys/sm199.gif">,//sm198,<img src=" $+ $mircdir $+ Smileys/sm198.gif">,//sm197,<img src=" $+ $mircdir $+ Smileys/sm197.gif">,//sm196,<img src=" $+ $mircdir $+ Smileys/sm196.gif">,//sm195,<img src=" $+ $mircdir $+ Smileys/sm195.gif">,//sm194,<img src=" $+ $mircdir $+ Smileys/sm194.gif">,//sm193,<img src=" $+ $mircdir $+ Smileys/sm193.gif">,//sm192,<img src=" $+ $mircdir $+ Smileys/sm192.gif">,//sm191,<img src=" $+ $mircdir $+ Smileys/sm191.gif">,//sm190,<img src=" $+ $mircdir $+ Smileys/sm190.gif">,//sm189,<img src=" $+ $mircdir $+ Smileys/sm189.gif">,//sm188,<img src=" $+ $mircdir $+ Smileys/sm188.gif">))
- alias Smileys5 return $Smileys6($replace($1-,//sm187,<img src=" $+ $mircdir $+ Smileys/sm187.gif">,//sm186,<img src=" $+ $mircdir $+ Smileys/sm186.gif">,//sm185,<img src=" $+ $mircdir $+ Smileys/sm185.gif">,//sm184,<img src=" $+ $mircdir $+ Smileys/sm184.gif">,//sm183,<img src=" $+ $mircdir $+ Smileys/sm183.gif">,//sm182,<img src=" $+ $mircdir $+ Smileys/sm182.gif">,//sm181,<img src=" $+ $mircdir $+ Smileys/sm181.gif">,//sm180,<img src=" $+ $mircdir $+ Smileys/sm180.gif">,//sm179,<img src=" $+ $mircdir $+ Smileys/sm179.gif">,//sm178,<img src=" $+ $mircdir $+ Smileys/sm178.gif">,//sm177,<img src=" $+ $mircdir $+ Smileys/sm177.gif">,//sm176,<img src=" $+ $mircdir $+ Smileys/sm176.gif">,//sm175,<img src=" $+ $mircdir $+ Smileys/sm175.gif">,//sm174,<img src=" $+ $mircdir $+ Smileys/sm174.gif">,//sm173,<img src=" $+ $mircdir $+ Smileys/sm173.gif">))
- alias Smileys6 return $Smileys7($replace($1-,//sm172,<img src=" $+ $mircdir $+ Smileys/sm172.gif">,//sm171,<img src=" $+ $mircdir $+ Smileys/sm171.gif">,//sm170,<img src=" $+ $mircdir $+ Smileys/sm170.gif">,//sm169,<img src=" $+ $mircdir $+ Smileys/sm169.gif">,//sm168,<img src=" $+ $mircdir $+ Smileys/sm168.gif">,//sm167,<img src=" $+ $mircdir $+ Smileys/sm167.gif">,//sm166,<img src=" $+ $mircdir $+ Smileys/sm166.gif">,//sm165,<img src=" $+ $mircdir $+ Smileys/sm165.gif">,//sm164,<img src=" $+ $mircdir $+ Smileys/sm164.gif">,//sm163,<img src=" $+ $mircdir $+ Smileys/sm163.gif">,//sm162,<img src=" $+ $mircdir $+ Smileys/sm162.gif">,//sm161,<img src=" $+ $mircdir $+ Smileys/sm161.gif">,//sm160,<img src=" $+ $mircdir $+ Smileys/sm160.gif">,//sm159,<img src=" $+ $mircdir $+ Smileys/sm159.gif">,//sm158,<img src=" $+ $mircdir $+ Smileys/sm158.gif">))
- alias Smileys7 return $Smileys8($replace($1-,//sm157,<img src=" $+ $mircdir $+ Smileys/sm157.gif">,//sm156,<img src=" $+ $mircdir $+ Smileys/sm156.gif">,//sm155,<img src=" $+ $mircdir $+ Smileys/sm155.gif">,//sm154,<img src=" $+ $mircdir $+ Smileys/sm154.gif">,//sm153,<img src=" $+ $mircdir $+ Smileys/sm153.gif">,//sm152,<img src=" $+ $mircdir $+ Smileys/sm152.gif">,//sm151,<img src=" $+ $mircdir $+ Smileys/sm151.gif">,//sm150,<img src=" $+ $mircdir $+ Smileys/sm150.gif">,//sm149,<img src=" $+ $mircdir $+ Smileys/sm149.gif">,//sm148,<img src=" $+ $mircdir $+ Smileys/sm148.gif">,//sm147,<img src=" $+ $mircdir $+ Smileys/sm147.gif">,//sm146,<img src=" $+ $mircdir $+ Smileys/sm146.gif">,//sm145,<img src=" $+ $mircdir $+ Smileys/sm145.gif">,//sm144,<img src=" $+ $mircdir $+ Smileys/sm144.gif">,//sm143,<img src=" $+ $mircdir $+ Smileys/sm143.gif">))
- alias Smileys8 return $Smileys9($replace($1-,//sm142,<img src=" $+ $mircdir $+ Smileys/sm142.gif">,//sm141,<img src=" $+ $mircdir $+ Smileys/sm141.gif">,//sm140,<img src=" $+ $mircdir $+ Smileys/sm140.gif">,//sm139,<img src=" $+ $mircdir $+ Smileys/sm139.gif">,//sm138,<img src=" $+ $mircdir $+ Smileys/sm138.gif">,//sm137,<img src=" $+ $mircdir $+ Smileys/sm137.gif">,//sm136,<img src=" $+ $mircdir $+ Smileys/sm136.gif">,//sm135,<img src=" $+ $mircdir $+ Smileys/sm135.gif">,//sm134,<img src=" $+ $mircdir $+ Smileys/sm134.gif">,//sm132,<img src=" $+ $mircdir $+ Smileys/sm132.gif">,//sm131,<img src=" $+ $mircdir $+ Smileys/sm131.gif">,//sm130,<img src=" $+ $mircdir $+ Smileys/sm130.gif">,//sm129,<img src=" $+ $mircdir $+ Smileys/sm129.gif">,//sm128,<img src=" $+ $mircdir $+ Smileys/sm128.gif">))
- alias Smileys9 return $Smileys10($replace($1-,//sm127,<img src=" $+ $mircdir $+ Smileys/sm127.gif">,//sm126,<img src=" $+ $mircdir $+ Smileys/sm126.gif">,//sm125,<img src=" $+ $mircdir $+ Smileys/sm125.gif">,//sm124,<img src=" $+ $mircdir $+ Smileys/sm124.gif">,//sm123,<img src=" $+ $mircdir $+ Smileys/sm123.gif">,//sm122,<img src=" $+ $mircdir $+ Smileys/sm122.gif">,//sm121,<img src=" $+ $mircdir $+ Smileys/sm121.gif">,//sm120,<img src=" $+ $mircdir $+ Smileys/sm120.gif">,//sm119,<img src=" $+ $mircdir $+ Smileys/sm119.gif">,//sm118,<img src=" $+ $mircdir $+ Smileys/sm118.gif">,//sm117,<img src=" $+ $mircdir $+ Smileys/sm117.gif">,//sm116,<img src=" $+ $mircdir $+ Smileys/sm116.gif">,//sm115,<img src=" $+ $mircdir $+ Smileys/sm115.gif">,//sm114,<img src=" $+ $mircdir $+ Smileys/sm114.gif">,//sm113,<img src=" $+ $mircdir $+ Smileys/sm113.gif">))
- alias Smileys10 return $Smileys11($replace($1-,//sm112,<img src=" $+ $mircdir $+ Smileys/sm112.gif">,//sm111,<img src=" $+ $mircdir $+ Smileys/sm111.gif">,//sm110,<img src=" $+ $mircdir $+ Smileys/sm110.gif">,//sm109,<img src=" $+ $mircdir $+ Smileys/sm109.gif">,//sm108,<img src=" $+ $mircdir $+ Smileys/sm108.gif">,//sm107,<img src=" $+ $mircdir $+ Smileys/sm107.gif">,//sm106,<img src=" $+ $mircdir $+ Smileys/sm106.gif">,//sm105,<img src=" $+ $mircdir $+ Smileys/sm105.gif">,//sm104,<img src=" $+ $mircdir $+ Smileys/sm104.gif">,//sm103,<img src=" $+ $mircdir $+ Smileys/sm103.gif">,//sm102,<img src=" $+ $mircdir $+ Smileys/sm102.gif">,//sm101,<img src=" $+ $mircdir $+ Smileys/sm101.gif">,//sm100,<img src=" $+ $mircdir $+ Smileys/sm100.gif">,//sm99,<img src=" $+ $mircdir $+ Smileys/sm99.gif">,//sm98,<img src=" $+ $mircdir $+ Smileys/sm98.gif">))
- alias Smileys11 return $Smileys12($replace($1-,//sm97,<img src=" $+ $mircdir $+ Smileys/sm97.gif">,//sm96,<img src=" $+ $mircdir $+ Smileys/sm96.gif">,//sm95,<img src=" $+ $mircdir $+ Smileys/sm95.gif">,//sm94,<img src=" $+ $mircdir $+ Smileys/sm94.gif">,//sm93,<img src=" $+ $mircdir $+ Smileys/sm93.gif">,//sm92,<img src=" $+ $mircdir $+ Smileys/sm92.gif">,//sm91,<img src=" $+ $mircdir $+ Smileys/sm91.gif">,//sm90,<img src=" $+ $mircdir $+ Smileys/sm90.gif">,//sm89,<img src=" $+ $mircdir $+ Smileys/sm89.gif">,//sm88,<img src=" $+ $mircdir $+ Smileys/sm88.gif">,//sm87,<img src=" $+ $mircdir $+ Smileys/sm87.gif">,//sm86,<img src=" $+ $mircdir $+ Smileys/sm86.gif">,//sm85,<img src=" $+ $mircdir $+ Smileys/sm85.gif">,//sm84,<img src=" $+ $mircdir $+ Smileys/sm84.gif">,//sm83,<img src=" $+ $mircdir $+ Smileys/sm83.gif">))
- alias Smileys12 return $Smileys13($replace($1-,//sm82,<img src=" $+ $mircdir $+ Smileys/sm82.gif">,//sm81,<img src=" $+ $mircdir $+ Smileys/sm81.gif">,//sm80,<img src=" $+ $mircdir $+ Smileys/sm80.gif">,//sm79,<img src=" $+ $mircdir $+ Smileys/sm79.gif">,//sm78,<img src=" $+ $mircdir $+ Smileys/sm78.gif">,//sm77,<img src=" $+ $mircdir $+ Smileys/sm77.gif">,//sm76,<img src=" $+ $mircdir $+ Smileys/sm76.gif">,//sm75,<img src=" $+ $mircdir $+ Smileys/sm75.gif">,//sm74,<img src=" $+ $mircdir $+ Smileys/sm74.gif">,//sm73,<img src=" $+ $mircdir $+ Smileys/sm73.gif">,//sm72,<img src=" $+ $mircdir $+ Smileys/sm72.gif">,//sm71,<img src=" $+ $mircdir $+ Smileys/sm71.gif">,//sm70,<img src=" $+ $mircdir $+ Smileys/sm70.gif">,//sm69,<img src=" $+ $mircdir $+ Smileys/sm69.gif">,//sm68,<img src=" $+ $mircdir $+ Smileys/sm68.gif">))
- alias Smileys13 return $Smileys14($replace($1-,//sm67,<img src=" $+ $mircdir $+ Smileys/sm67.gif">,//sm66,<img src=" $+ $mircdir $+ Smileys/sm66.gif">,//sm65,<img src=" $+ $mircdir $+ Smileys/sm65.gif">,//sm64,<img src=" $+ $mircdir $+ Smileys/sm64.gif">,//sm63,<img src=" $+ $mircdir $+ Smileys/sm63.gif">,//sm62,<img src=" $+ $mircdir $+ Smileys/sm62.gif">,//sm61,<img src=" $+ $mircdir $+ Smileys/sm61.gif">,//sm60,<img src=" $+ $mircdir $+ Smileys/sm60.gif">,//sm59,<img src=" $+ $mircdir $+ Smileys/sm59.gif">,//sm58,<img src=" $+ $mircdir $+ Smileys/sm58.gif">,//sm56,<img src=" $+ $mircdir $+ Smileys/sm56.gif">,//sm55,<img src=" $+ $mircdir $+ Smileys/sm55.gif">,//sm54,<img src=" $+ $mircdir $+ Smileys/sm54.gif">,//sm53,<img src=" $+ $mircdir $+ Smileys/sm53.gif">))
- alias Smileys14 return $Smileys15($replace($1-,//sm52,<img src=" $+ $mircdir $+ Smileys/sm52.gif">,//sm51,<img src=" $+ $mircdir $+ Smileys/sm51.gif">,//sm50,<img src=" $+ $mircdir $+ Smileys/sm50.gif">,//sm49,<img src=" $+ $mircdir $+ Smileys/sm49.gif">,//sm48,<img src=" $+ $mircdir $+ Smileys/sm48.gif">,//sm47,<img src=" $+ $mircdir $+ Smileys/sm47.gif">,//sm46,<img src=" $+ $mircdir $+ Smileys/sm46.gif">,//sm45,<img src=" $+ $mircdir $+ Smileys/sm45.gif">,//sm44,<img src=" $+ $mircdir $+ Smileys/sm44.gif">,//sm43,<img src=" $+ $mircdir $+ Smileys/sm43.gif">,//sm42,<img src=" $+ $mircdir $+ Smileys/sm42.gif">,//sm41,<img src=" $+ $mircdir $+ Smileys/sm41.gif">,//sm40,<img src=" $+ $mircdir $+ Smileys/sm40.gif">,//sm39,<img src=" $+ $mircdir $+ Smileys/sm39.gif">,//sm38,<img src=" $+ $mircdir $+ Smileys/sm38.gif">))
- alias Smileys15 return $Smileys16($replace($1-,//sm37,<img src=" $+ $mircdir $+ Smileys/sm37.gif">,//sm36,<img src=" $+ $mircdir $+ Smileys/sm36.gif">,//sm35,<img src=" $+ $mircdir $+ Smileys/sm35.gif">,//sm34,<img src=" $+ $mircdir $+ Smileys/sm34.gif">,//sm33,<img src=" $+ $mircdir $+ Smileys/sm33.gif">,//sm32,<img src=" $+ $mircdir $+ Smileys/sm32.gif">,//sm31,<img src=" $+ $mircdir $+ Smileys/sm31.gif">,//sm30,<img src=" $+ $mircdir $+ Smileys/sm30.gif">,//sm29,<img src=" $+ $mircdir $+ Smileys/sm29.gif">,//sm28,<img src=" $+ $mircdir $+ Smileys/sm28.gif">,//sm27,<img src=" $+ $mircdir $+ Smileys/sm27.gif">,//sm26,<img src=" $+ $mircdir $+ Smileys/sm26.gif">,//sm25,<img src=" $+ $mircdir $+ Smileys/sm25.gif">,//sm24,<img src=" $+ $mircdir $+ Smileys/sm24.gif">,//sm23,<img src=" $+ $mircdir $+ Smileys/sm23.gif">))
- alias Smileys16 return $Smileys17($replace($1-,//sm22,<img src=" $+ $mircdir $+ Smileys/sm22.gif">,//sm21,<img src=" $+ $mircdir $+ Smileys/sm21.gif">,//sm20,<img src=" $+ $mircdir $+ Smileys/sm20.gif">,//sm19,<img src=" $+ $mircdir $+ Smileys/sm19.gif">,//sm18,<img src=" $+ $mircdir $+ Smileys/sm18.gif">,//sm17,<img src=" $+ $mircdir $+ Smileys/sm17.gif">,//sm16,<img src=" $+ $mircdir $+ Smileys/sm16.gif">,//sm15,<img src=" $+ $mircdir $+ Smileys/sm15.gif">,//sm14,<img src=" $+ $mircdir $+ Smileys/sm14.gif">,//sm13,<img src=" $+ $mircdir $+ Smileys/sm13.gif">,//sm12,<img src=" $+ $mircdir $+ Smileys/sm12.gif">,//sm11,<img src=" $+ $mircdir $+ Smileys/sm11.gif">,//sm10,<img src=" $+ $mircdir $+ Smileys/sm10.gif">,//sm9,<img src=" $+ $mircdir $+ Smileys/sm9.gif">,//sm8,<img src=" $+ $mircdir $+ Smileys/sm8.gif">))
- alias Smileys17 return $replace($1-,//sm7,<img src=" $+ $mircdir $+ Smileys/sm7.gif">,//sm6,<img src=" $+ $mircdir $+ Smileys/sm6.gif">,//sm5,<img src=" $+ $mircdir $+ Smileys/sm5.gif">,//sm4,<img src=" $+ $mircdir $+ Smileys/sm4.gif">,//sm3,<img src=" $+ $mircdir $+ Smileys/sm3.gif">,//sm2,<img src=" $+ $mircdir $+ Smileys/sm2.gif">,//sm1,<img src=" $+ $mircdir $+ Smileys/sm1.gif">)
-
- alias JSalias {
- var %cmd $replace($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,alias,),-target,$1)
- if (($chan($1) != $null) || ($query($1) != $null)) $iif(%cmd != $1,%cmd)
- else .timer $+ $2 off
- }
-
- raw 333:*: set %topic [ $+ [ $window($2).hwnd ] ] $3-
-
- raw 352:*: halt
-
- on *:active:*: {
- if (($isWinHTML($active)) && ($exists(DllTmp/Dll $+ $window($active).hwnd $+ .dll))) {
- dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
- }
- }
-
- on *:APPACTIVE: {
- if ($isWinHTML($active)) {
- dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
- }
- }
-
- on *:start: {
- while ($findfile(DllTmp,Dll*.dll,0) != 0) {
- .remove $shortfn($findfile(DllTmp,Dll*.dll,1))
- }
- }
-
- alias me {
- describe $active $1-
- }
-
- alias ame {
- var %MyChan 1
- while (%MyChan <= $chan(0)) {
- describe $chan(%MyChan) $1-
- inc %MyChan 1
- }
- }
-
- alias query {
- query $1
- if (!$exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
- .copy -o SmilesView.dll DllTmp/Dll $+ $window($1).hwnd $+ .dll
- if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
- else { dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
- .timer $+ $window($1).hwnd -m 0 1 HTMLLoad $1
- }
- }
-
- on *:open:?: {
- if (!$exists(DllTmp/Dll $+ $window($nick).hwnd $+ .dll)) {
- .copy -o SmilesView.dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll
- if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
- else { dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
- set %PV [ $+ [ $window($nick).hwnd ] ] $1-
- .timer $+ $window($nick).hwnd -m 0 1 HTMLLoad $nick
- }
- }
-
- on *:join:#: {
- if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) a rejoint $chan | halt }
- else {
- if (!$exists(DllTmp/Dll $+ $window($chan).hwnd $+ .dll)) {
- .copy -o SmilesView.dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll
- if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
- else { dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
- .timer $+ $window($chan).hwnd -m 0 1 HTMLLoad $chan
- who $chan
- }
- }
- }
-
- on *:part:#: {
- if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) part de $chan ( $1- ) | halt }
- elseif ($var(%chan [ $+ [ $window($chan).hwnd ] ]) != $null) {
- if (%chan [ $+ [ $window($chan).hwnd ] ]) unset %chan [ $+ [ $window($chan).hwnd ] ]
- else %chan [ $+ [ $window($chan).hwnd ] ] = $true
- }
- }
-
- on *:quit: {
- if ($nick != $me) {
- var %ComChan 1
- while (%ComChan <= $comchan($nick,0)) {
- echo $comchan($nick,%ComChan) 2 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) s'est déconnecté(e) ( $1- 2)
- inc %ComChan 1
- }
- halt
- }
- }
-
- raw 401:*: echo -a $2 n'est pas sur le serveur
-
- ;Coloration des pseudo du chan : $PseudoColor(chan,couleure,phrase)
- alias PseudoColor {
- var %PseudoColor
- var %NbrMots 1
- while (%NbrMots <= $gettok($3,0,32)) {
- %PseudoColor = %PseudoColor $iif($gettok($3,%NbrMots,32) ison $1,$iif($gettok($3,%NbrMots,32) isop $1,4,$iif($gettok($3,%NbrMots,32) isvo $1,3,12))) $+ $gettok($3,%NbrMots,32) $+ $iif($gettok($3,%NbrMots,32) ison $1,$2)
- inc %NbrMots 1
- }
- return %PseudoColor
- }
-
- alias lienHTML {
- var %phraseLien
- if ((http:// isin $strip($1-)) || (www. isin $strip($1-)) || (@ isin $1-)) {
- var %NbrTock 1
- while (%NbrTock <= $gettok($1-,0,32)) {
- %phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),7) == http://,<a style="cursor: hand" onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),4) == www.,<a style="cursor: hand" onClick="window.open('http:// $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),7) == mailto:,<a style="cursor: hand" onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32))))
- inc %NbrTock 1
- }
- }
- else %phraseLien = $1-
- return %phraseLien
- }
-
- alias LienCHAN {
- var %phraseLien
- if ($chr(35) isin $1-) {
- var %NbrTock 1
- while (%NbrTock <= $gettok($1-,0,32)) {
- %phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),1) == $chr(35),<a style="cursor: hand" onClick="document.title = 'join $strip($gettok($1-,%NbrTock,32)) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($right($left($strip($gettok($1-,%NbrTock,32)),2),1) == $chr(35),<a style="cursor: hand" onClick="document.title = 'join $right($strip($gettok($1-,%NbrTock,32)),-1) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32)))
- inc %NbrTock 1
- }
- }
- else %phraseLien = $1-
- return %phraseLien
- }
-
- on *:exit: unset %chan* %topic*
-
- raw 318:*: {
- if ($var(%PV [ $+ [ $window(%whois).hwnd ] ] ) == 1) {
- echo %whois $ts.timestamp-active %ts.cgn $+ $+ $colour(listbox text) $+ %whois $+ %ts.cdn $+ %PV [ $+ [ $window(%whois).hwnd ] ]
- echoo $whois 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away) %whois 12. )01 %PV [ $+ [ $window(%whois).hwnd ] ]
-
- unset %PV [ $+ [ $window(%whois).hwnd ] ]
- }
- unset %whois
- halt
- }
-
- alias whois {
- if ($2 != $null) set %whois $2
- else set %whois $active
- whois $1
- }
-
- alias valion {
- var %lol
- var %tock 1
- while (%tock <= $gettok($1-,0,32)) {
- %lol = %lol $iif($gettok($strip($1-),%tock,32) == l $+ $str(o,$calc($len($gettok($strip($1-),%tock,32)) - 2)) $+ l,<img src=" $+ $mircdir $+ l.gif"> $+ $str(<img src=" $+ $mircdir $+ Smileys/sm22.gif">,$calc($len($gettok($strip($1-),%tock,32))-2)) $+ <img src=" $+ $mircdir $+ L.gif">,$gettok($1-,%tock,32))
- inc %tock 1
- }
- return %lol
- }
-
- alias mIrcHTML return $Smileys($img($SoulignHTML($GrasHTML($Couleure($valion($LienCHAN($lienHTML($pvHTML($replace($1-,<,<<c>))))))))))
-
- alias pvHTML {
- var %lienPV $1-
- if (*PV isin %lienPV) {
- while ($wildtok(%lienPV,PV *,0,42) != 0) {
- %lienPV = $replace(%lienPV,* $+ $wildtok(%lienPV,PV *,1,42) $+ *,<a style="cursor: hand" onClick="document.title = 'clkNick $right($wildtok(%lienPV,PV *,1,42),-3) -target';"> $+ $right($wildtok(%lienPV,PV *,1,42),-3) $+ </a>)
- }
- }
- return %lienPV
- }
-
- alias clkNick {
- sline $2 $fline($2,$1,1,1)
- query $1
- }
-
- alias function dll DllTmp/Dll $+ $window($1).hwnd $+ .dll function $2-
-
- CTCP *:IMAGE:#: {
- if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
- echo $chan 4-> $nick a envoyé2 $2- 4sur $chan :
- writeln $chan <Br><center><img src=" $+ $2- $+ "></center>
- }
- }
-
- CTCP *:IMAGE:?: {
- if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
- echo $active 4-> $nick vous a envoyé2 $2- 4:
- writeln $active <Br><center><img src=" $+ $2- $+ "></center>
- }
- }
-
- alias choix ctcp $1 image $?="Entrer l'adresse de l'image"
;Design affichage:
on ^*:text:*:#: {
echo $chan 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( . $iif($isAway($nick),//away,$iif($nick isop $chan, $iif(($nick == IriX) || ($left($nick,6) == Robot0) || ($left($nick,6) == Thema0),//robot,//op), $iif($nick isvo $chan,//v))) $+ $iif($nick isop $chan,4,$iif($nick isvo $chan,3,12)) *PV $nick $+ * 12. )1 $1- | halt
window -g[1] $chan
haltdef
}
alias hop {
echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous sortez de $active
echo -a 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** Vous revenez dans $active
%chan [ $+ [ $window($active).hwnd ] ] = $false
hop
}
alias notice {
echo -a 05--> - $+ $iif($isAway($1),//away) $+ *PV $1 $+ * $+ - $2-
notice $1-
}
alias msg {
.msg $1 $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
if ($show) echo $1 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 12. )01 $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
}
alias describe {
.describe $1 $2-
if ($show) echo $1 6 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93) 6*5 $iif($away,//away,$iif($me isop $1,//op, $iif($me isvo $1,//v))) *PV $me $+ * 6 $+ $iif(c isin $chan($1).mode,$strip($2-,c),$2-)
}
alias ctcp {
.ctcp $1-
echo -a 4 CTCP $upper($2) $+ $3- envoyé sur2 $1
if ($2 == IMAGE) writeln $active <Br><center><img src=" $+ $3- $+ "></center>
}
;Ligne HTML de départ:
alias HTMLLoad {
if ($window($1).hwnd != $null) {
if ($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,ready,$null) == S_TRUE) {
.timer $+ $window($1).hwnd off
run SmilesButton.exe $window($1).hwnd
else {
whois $1 $1
}
.timer $+ $window($1).hwnd -m 0 25 JSalias $1 $window($1).hwnd
}
set %chan [ $+ [ $window($1).hwnd ] ] $true
}
}
;code Source a ne pas changer (sauf si vous savez ce que vous faites ;)
on *:load: {
mkdir DllTmp
mkdir LogHTML
}
alias isaway return $false
alias writeln {
if ($exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
dll DllTmp/Dll $+ $window($1).hwnd $+ .dll writeln $2-
write $shortfn(LogHTML/ $+ $replace($1,$chr(124),`,$chr(92),`) $+ $time(dd-mm-yy) $+ .html) $2-
}
}
alias say msg $active $1-
alias amsg {
var %MyChan 1
while (%MyChan <= $chan(0)) {
msg $chan(%MyChan) $1-
inc %MyChan 1
}
}
alias echo {
var %target $iif(($left($1,1) == -) && (a isin $1),$active,$1)
if (($2 != $null) && ($isWinHTML(%target)) && (%chan [ $+ [ $window(%target).hwnd ] ] )) {
var %echo $iif(($left($1,1) == -) && (t isin $1),01 $+ $chr(91) $+ $asctime(HH:nn) $+ $+ $chr(93)) $remove($2-,)
var %span $count($gettok(%echo,1-10,3),<span)
var %nospan 0
var %Couleure $mIrcHTML($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3))
while ( isin %Couleure) {
%Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
}
%nospan = $calc(%nospan + $count(%Couleure,</span>))
%span = $calc(%span + $count(%Couleure,<span))
writeln %target <Br> $+ %Couleure
%echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
while (%echo != $null) {
%span = $calc(%span + $count($gettok(%echo,1-10,3),<span))
%Couleure = $img($SoulignHTML($GrasHTML($Couleure($lienHTML($replace($iif($left(%echo,1) == ,) $+ $gettok(%echo,1-10,3),<,<<c>))))))
while ( isin %Couleure) {
%Couleure = $gettok(%Couleure,1,3) $+ $str(</span>,$calc($count($gettok(%Couleure,1,3),<span) - (%nospan + $count($gettok(%Couleure,1,3),</span>)))) $+ $gettok(%Couleure,2-,3)
}
%nospan = $calc(%nospan + $count(%Couleure,</span>))
%span = $calc(%span + $count(%Couleure,<span))
writeln %target %Couleure
%echo = $iif($gettok(%echo,11-,3) != $null,) $+ $gettok(%echo,11-,3)
}
writeln %target $str(</span>,$calc(%span - %nospan))
}
else echo $1-
}
alias isPaire return $iif($int($calc($1 / 2)) == $calc($1 / 2), $true, $false)
alias GrasHTML {
var %GrasChaine $1-
var %nbrPlaceGras 0
while (%nbrPlaceGras != $count($1-,)) {
inc %nbrPlaceGras 1
%GrasChaine = $left(%GrasChaine,$calc($pos(%GrasChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceGras),</b>,<b>) $+ $right(%GrasChaine,$calc($pos(%GrasChaine,,1)*-1))
}
if (!$isPaire($count($1-,))) %GrasChaine = %GrasChaine $+ </b>
return %GrasChaine
}
alias SoulignHTML {
var %SoulignChaine $1-
var %nbrPlaceSoulign 0
while (%nbrPlaceSoulign != $count($1-,)) {
inc %nbrPlaceSoulign 1
%SoulignChaine = $left(%SoulignChaine,$calc($pos(%SoulignChaine,,1)-1)) $+ $iif($isPaire(%nbrPlaceSoulign),</u>,<u>) $+ $right(%SoulignChaine,$calc($pos(%SoulignChaine,,1)*-1))
}
if (!$isPaire($count($1-,))) %SoulignChaine = %SoulignChaine $+ </u>
return %SoulignChaine
}
alias isWinHTML {
if ((($chan($1) != $null) || ($query($1) != $null)) && ($1 != Status Window)) return $true
else return $false
}
alias BC return $iif($1 <= 15,$true,$false)
alias isNbr return $iif($1 isin 1234567890,$true,$false)
alias char return $right($left($2-,$1),1)
alias Couleure return $Couleur($FCouleur($1-))
alias FCouleur1 return $FCouleur2($replace($1-,$chr(44) $+ 00,<span style='background-color:white'>,$chr(44) $+ 01,<span style='background-color:black'>,$chr(44) $+ 02,<span style='background-color:darkblue'>,$chr(44) $+ 03,<span style='background-color:forestgreen'>,$chr(44) $+ 04,<span style='background-color:red'>,$chr(44) $+ 05,<span style='background-color:brown'>,$chr(44) $+ 06,<span style='background-color:Blueviolet'>,$chr(44) $+ 07,<span style='background-color:orange'>,$chr(44) $+ 08,<span style='background-color:yellow'>,$chr(44) $+ 09,<span style='background-color:lawngreen'>,$chr(44) $+ 10, <span style='background-color:darkcyan'>,$chr(44) $+ 11, <span style='background-color:cyan'>,$chr(44) $+ 12, <span style='background-color:Blue'>,$chr(44) $+ 13, <span style='background-color:pink'>,$chr(44) $+ 14, <span style='background-color:gray'>,$chr(44) $+ 15, <span style='background-color:silver'>))
alias FCouleur2 return $replace($1-,$chr(44) $+ 0,<span style='background-color:white'>,$chr(44) $+ 1,<span style='background-color:black'>,$chr(44) $+ 2,<span style='background-color:darkblue'>,$chr(44) $+ 3,<span style='background-color:forestgreen'>,$chr(44) $+ 4,<span style='background-color:red'>,$chr(44) $+ 5,<span style='background-color:brown'>,$chr(44) $+ 6,<span style='background-color:Blueviolet'>,$chr(44) $+ 7,<span style='background-color:orange'>,$chr(44) $+ 8,<span style='background-color:yellow'>,$chr(44) $+ 9,<span style='background-color:lawngreen'>)
alias FCouleur {
var %FCouleur
if (( isin $1-) && ($chr(44) isin $1-)) {
var %NbrFC 1
while ($numtok($1-,32) >= %NbrFC) {
%FCouleur = %FCouleur $iif( isin $gettok($1-,%NbrFC,32),$FCouleur1($gettok($1-,%NbrFC,32)),$gettok($1-,%NbrFC,32))
inc %NbrFC 1
}
}
else {
%FCouleur = $1-
}
return %FCouleur
}
alias Couleur return $Couleur2($Couleur1($replace($1-,00, <span style='color:white'>,01, <span style='color:black'>,02, <span style='color:darkblue'>,03, <span style='color:forestgreen'>,04, <span style='color:red'>,05, <span style='color:brown'>,06, <span style='color:Blueviolet'>,07, <span style='color:orange'>,08, <span style='color:yellow'>,09, <span style='color:lawngreen'>)))
alias Couleur1 return $replace($1-,10, <span style='color:darkcyan'>,11, <span style='color:cyan'>,12, <span style='color:Blue'>,13, <span style='color:pink'>,14, <span style='color:gray'>,15, <span style='color:silver'>)
alias Couleur2 return $replace($1-,0, <span style='color:white'>,1, <span style='color:black'>,2, <span style='color:darkblue'>,3, <span style='color:forestgreen'>,4, <span style='color:red'>,5, <span style='color:brown'>,6, <span style='color:Blueviolet'>,7, <span style='color:orange'>,8, <span style='color:yellow'>,9, <span style='color:lawngreen'>)
alias img return $img0($replace($1-,: $+ $chr(41),//sourire,:- $+ $chr(41),//sourire,:o $+ $chr(41),//sourire,: $+ $chr(40),//triste,:- $+ $chr(40),//triste,:o $+ $chr(40),//triste,; $+ $chr(41),//clindoeil,;- $+ $chr(41),//clindoeil,;o $+ $chr(41),//clindoeil,:-/,//mecontent,:o/,//mecontent,= $+ $chr(41),//sourire2,= $+ $chr(40),//triste2,:' $+ $chr(40),//pleure))
alias img0 return $img1($replace($1-,//attendre,<img SRC=" $+ $mircdir $+ images\attendre.gif">,//away,<img SRC=" $+ $mircdir $+ images\away.gif">,//banane,<img SRC=" $+ $mircdir $+ images\banane.gif">,//biere,<img SRC=" $+ $mircdir $+ images\biere.gif">,//bombe,<img SRC=" $+ $mircdir $+ images\bombe.gif">,//cadeau,<img SRC=" $+ $mircdir $+ images\cadeau.gif">,//cafe,<img SRC=" $+ $mircdir $+ images\cafe.gif">,//cd,<img SRC=" $+ $mircdir $+ images\cd.gif">,//chagrin,<img SRC=" $+ $mircdir $+ images\chagrin.gif">,//chien,<img SRC=" $+ $mircdir $+ images\chien.gif">,//clindoeil,<img SRC=" $+ $mircdir $+ images\clindoeil.gif">,//coeur,<img SRC=" $+ $mircdir $+ images\coeur.gif">,//danger2,<img SRC=" $+ $mircdir $+ images\danger2.gif">,//danger,<img SRC=" $+ $mircdir $+ images\danger.gif">,//exclam,<img SRC=" $+ $mircdir $+ images\exclam.gif">,//fantome,<img SRC=" $+ $mircdir $+ images\fantome.gif">))
alias img1 return $img2($replace($1-,//fleurbleu,<img SRC=" $+ $mircdir $+ images\fleurbleu.gif">,//foot,<img SRC=" $+ $mircdir $+ images\foot.gif">,//gateau,<img SRC=" $+ $mircdir $+ images\gateau.gif">,//halloween,<img SRC=" $+ $mircdir $+ images\halloween.gif">,//hotdog,<img SRC=" $+ $mircdir $+ images\hotdog.gif">,//ignorer,<img SRC=" $+ $mircdir $+ images\ignorer.gif">,//interdit,<img SRC=" $+ $mircdir $+ images\interdit.gif">,//langue,<img SRC=" $+ $mircdir $+ images\langue.gif">,//mail,<img SRC=" $+ $mircdir $+ images\mail.gif">,//maison,<img SRC=" $+ $mircdir $+ images\maison.gif">,//mecontent,<img SRC=" $+ $mircdir $+ images\mecontent.gif">,//mobile,<img SRC=" $+ $mircdir $+ images\mobile.gif">,//musique,<img SRC=" $+ $mircdir $+ images\musique.gif">,//oeil,<img SRC=" $+ $mircdir $+ images\oeil.gif">,//op,<img SRC=" $+ $mircdir $+ images\op.gif">,//orage,<img SRC=" $+ $mircdir $+ images\orage.gif">))
alias img2 return $img3($replace($1-,//peacelove,<img SRC=" $+ $mircdir $+ images\peacelove.gif">,//pleure,<img SRC=" $+ $mircdir $+ images\pleure.gif">,//poisson,<img SRC=" $+ $mircdir $+ images\poisson.gif">,//poubelle,<img SRC=" $+ $mircdir $+ images\poubelle.gif">,//reveil,<img SRC=" $+ $mircdir $+ images\reveil.gif">,//robot,<img SRC=" $+ $mircdir $+ images\robot.gif">,//sourire2,<img SRC=" $+ $mircdir $+ images\sourire2.gif">,//sourire,<img SRC=" $+ $mircdir $+ images\sourire.gif">,//telephone,<img SRC=" $+ $mircdir $+ images\telephone.gif">,//terre,<img SRC=" $+ $mircdir $+ images\terre.gif">,//triste2,<img SRC=" $+ $mircdir $+ images\triste2.gif">,//triste,<img SRC=" $+ $mircdir $+ images\triste.gif">,//vache,<img SRC=" $+ $mircdir $+ images\vache.gif">,//voice,<img SRC=" $+ $mircdir $+ images\voice.gif">,//voiture,<img SRC=" $+ $mircdir $+ images\voiture.gif">,//v,<img SRC=" $+ $mircdir $+ images\v.gif">))
alias img3 return $replace($1-,//fille,<img SRC=" $+ $mircdir $+ images\fille.gif">,//yingyang,<img src=" $+ $mircdir $+ images/yingyang.gif">)
alias Smileys return $Smileys0($1-)
alias Smileys0 return $Smileys1($replace($1-,//sm262,<img src=" $+ $mircdir $+ Smileys/sm262.gif">,//sm261,<img src=" $+ $mircdir $+ Smileys/sm261.gif">,//sm260,<img src=" $+ $mircdir $+ Smileys/sm260.gif">,//sm259,<img src=" $+ $mircdir $+ Smileys/sm259.gif">,//sm258,<img src=" $+ $mircdir $+ Smileys/sm258.gif">,//sm256,<img src=" $+ $mircdir $+ Smileys/sm256.gif">,//sm255,<img src=" $+ $mircdir $+ Smileys/sm255.gif">,//sm254,<img src=" $+ $mircdir $+ Smileys/sm254.gif">,//sm253,<img src=" $+ $mircdir $+ Smileys/sm253.gif">,//sm252,<img src=" $+ $mircdir $+ Smileys/sm252.gif">,//sm251,<img src=" $+ $mircdir $+ Smileys/sm251.gif">,//sm250,<img src=" $+ $mircdir $+ Smileys/sm250.gif">,//sm249,<img src=" $+ $mircdir $+ Smileys/sm249.gif">,//sm248,<img src=" $+ $mircdir $+ Smileys/sm248.gif">))
alias Smileys1 return $Smileys2($replace($1-,//sm247,<img src=" $+ $mircdir $+ Smileys/sm247.gif">,//sm246,<img src=" $+ $mircdir $+ Smileys/sm246.gif">,//sm245,<img src=" $+ $mircdir $+ Smileys/sm245.gif">,//sm244,<img src=" $+ $mircdir $+ Smileys/sm244.gif">,//sm243,<img src=" $+ $mircdir $+ Smileys/sm243.gif">,//sm242,<img src=" $+ $mircdir $+ Smileys/sm242.gif">,//sm241,<img src=" $+ $mircdir $+ Smileys/sm241.gif">,//sm240,<img src=" $+ $mircdir $+ Smileys/sm240.gif">))
alias Smileys2 return $Smileys3($replace($1-,//sm230,<img src=" $+ $mircdir $+ Smileys/sm230.gif">,//sm229,<img src=" $+ $mircdir $+ Smileys/sm229.gif">,//sm228,<img src=" $+ $mircdir $+ Smileys/sm228.gif">,//sm227,<img src=" $+ $mircdir $+ Smileys/sm227.gif">,//sm226,<img src=" $+ $mircdir $+ Smileys/sm226.gif">,//sm225,<img src=" $+ $mircdir $+ Smileys/sm225.gif">,//sm224,<img src=" $+ $mircdir $+ Smileys/sm224.gif">,//sm223,<img src=" $+ $mircdir $+ Smileys/sm223.gif">,//sm222,<img src=" $+ $mircdir $+ Smileys/sm222.gif">,//sm221,<img src=" $+ $mircdir $+ Smileys/sm221.gif">,//sm220,<img src=" $+ $mircdir $+ Smileys/sm220.gif">,//sm219,<img src=" $+ $mircdir $+ Smileys/sm219.gif">,//sm218,<img src=" $+ $mircdir $+ Smileys/sm218.gif">))
alias Smileys3 return $Smileys4($replace($1-,//sm217,<img src=" $+ $mircdir $+ Smileys/sm217.gif">,//sm216,<img src=" $+ $mircdir $+ Smileys/sm216.gif">,//sm215,<img src=" $+ $mircdir $+ Smileys/sm215.gif">,//sm214,<img src=" $+ $mircdir $+ Smileys/sm214.gif">,//sm213,<img src=" $+ $mircdir $+ Smileys/sm213.gif">,//sm212,<img src=" $+ $mircdir $+ Smileys/sm212.gif">,//sm211,<img src=" $+ $mircdir $+ Smileys/sm211.gif">,//sm210,<img src=" $+ $mircdir $+ Smileys/sm210.gif">,//sm209,<img src=" $+ $mircdir $+ Smileys/sm209.gif">,//sm208,<img src=" $+ $mircdir $+ Smileys/sm208.gif">,//sm207,<img src=" $+ $mircdir $+ Smileys/sm207.gif">,//sm206,<img src=" $+ $mircdir $+ Smileys/sm206.gif">,//sm205,<img src=" $+ $mircdir $+ Smileys/sm205.gif">,//sm204,<img src=" $+ $mircdir $+ Smileys/sm204.gif">,//sm203,<img src=" $+ $mircdir $+ Smileys/sm203.gif">))
alias Smileys4 return $Smileys5($replace($1-,//sm202,<img src=" $+ $mircdir $+ Smileys/sm202.gif">,//sm201,<img src=" $+ $mircdir $+ Smileys/sm201.gif">,//sm200,<img src=" $+ $mircdir $+ Smileys/sm200.gif">,//sm199,<img src=" $+ $mircdir $+ Smileys/sm199.gif">,//sm198,<img src=" $+ $mircdir $+ Smileys/sm198.gif">,//sm197,<img src=" $+ $mircdir $+ Smileys/sm197.gif">,//sm196,<img src=" $+ $mircdir $+ Smileys/sm196.gif">,//sm195,<img src=" $+ $mircdir $+ Smileys/sm195.gif">,//sm194,<img src=" $+ $mircdir $+ Smileys/sm194.gif">,//sm193,<img src=" $+ $mircdir $+ Smileys/sm193.gif">,//sm192,<img src=" $+ $mircdir $+ Smileys/sm192.gif">,//sm191,<img src=" $+ $mircdir $+ Smileys/sm191.gif">,//sm190,<img src=" $+ $mircdir $+ Smileys/sm190.gif">,//sm189,<img src=" $+ $mircdir $+ Smileys/sm189.gif">,//sm188,<img src=" $+ $mircdir $+ Smileys/sm188.gif">))
alias Smileys5 return $Smileys6($replace($1-,//sm187,<img src=" $+ $mircdir $+ Smileys/sm187.gif">,//sm186,<img src=" $+ $mircdir $+ Smileys/sm186.gif">,//sm185,<img src=" $+ $mircdir $+ Smileys/sm185.gif">,//sm184,<img src=" $+ $mircdir $+ Smileys/sm184.gif">,//sm183,<img src=" $+ $mircdir $+ Smileys/sm183.gif">,//sm182,<img src=" $+ $mircdir $+ Smileys/sm182.gif">,//sm181,<img src=" $+ $mircdir $+ Smileys/sm181.gif">,//sm180,<img src=" $+ $mircdir $+ Smileys/sm180.gif">,//sm179,<img src=" $+ $mircdir $+ Smileys/sm179.gif">,//sm178,<img src=" $+ $mircdir $+ Smileys/sm178.gif">,//sm177,<img src=" $+ $mircdir $+ Smileys/sm177.gif">,//sm176,<img src=" $+ $mircdir $+ Smileys/sm176.gif">,//sm175,<img src=" $+ $mircdir $+ Smileys/sm175.gif">,//sm174,<img src=" $+ $mircdir $+ Smileys/sm174.gif">,//sm173,<img src=" $+ $mircdir $+ Smileys/sm173.gif">))
alias Smileys6 return $Smileys7($replace($1-,//sm172,<img src=" $+ $mircdir $+ Smileys/sm172.gif">,//sm171,<img src=" $+ $mircdir $+ Smileys/sm171.gif">,//sm170,<img src=" $+ $mircdir $+ Smileys/sm170.gif">,//sm169,<img src=" $+ $mircdir $+ Smileys/sm169.gif">,//sm168,<img src=" $+ $mircdir $+ Smileys/sm168.gif">,//sm167,<img src=" $+ $mircdir $+ Smileys/sm167.gif">,//sm166,<img src=" $+ $mircdir $+ Smileys/sm166.gif">,//sm165,<img src=" $+ $mircdir $+ Smileys/sm165.gif">,//sm164,<img src=" $+ $mircdir $+ Smileys/sm164.gif">,//sm163,<img src=" $+ $mircdir $+ Smileys/sm163.gif">,//sm162,<img src=" $+ $mircdir $+ Smileys/sm162.gif">,//sm161,<img src=" $+ $mircdir $+ Smileys/sm161.gif">,//sm160,<img src=" $+ $mircdir $+ Smileys/sm160.gif">,//sm159,<img src=" $+ $mircdir $+ Smileys/sm159.gif">,//sm158,<img src=" $+ $mircdir $+ Smileys/sm158.gif">))
alias Smileys7 return $Smileys8($replace($1-,//sm157,<img src=" $+ $mircdir $+ Smileys/sm157.gif">,//sm156,<img src=" $+ $mircdir $+ Smileys/sm156.gif">,//sm155,<img src=" $+ $mircdir $+ Smileys/sm155.gif">,//sm154,<img src=" $+ $mircdir $+ Smileys/sm154.gif">,//sm153,<img src=" $+ $mircdir $+ Smileys/sm153.gif">,//sm152,<img src=" $+ $mircdir $+ Smileys/sm152.gif">,//sm151,<img src=" $+ $mircdir $+ Smileys/sm151.gif">,//sm150,<img src=" $+ $mircdir $+ Smileys/sm150.gif">,//sm149,<img src=" $+ $mircdir $+ Smileys/sm149.gif">,//sm148,<img src=" $+ $mircdir $+ Smileys/sm148.gif">,//sm147,<img src=" $+ $mircdir $+ Smileys/sm147.gif">,//sm146,<img src=" $+ $mircdir $+ Smileys/sm146.gif">,//sm145,<img src=" $+ $mircdir $+ Smileys/sm145.gif">,//sm144,<img src=" $+ $mircdir $+ Smileys/sm144.gif">,//sm143,<img src=" $+ $mircdir $+ Smileys/sm143.gif">))
alias Smileys8 return $Smileys9($replace($1-,//sm142,<img src=" $+ $mircdir $+ Smileys/sm142.gif">,//sm141,<img src=" $+ $mircdir $+ Smileys/sm141.gif">,//sm140,<img src=" $+ $mircdir $+ Smileys/sm140.gif">,//sm139,<img src=" $+ $mircdir $+ Smileys/sm139.gif">,//sm138,<img src=" $+ $mircdir $+ Smileys/sm138.gif">,//sm137,<img src=" $+ $mircdir $+ Smileys/sm137.gif">,//sm136,<img src=" $+ $mircdir $+ Smileys/sm136.gif">,//sm135,<img src=" $+ $mircdir $+ Smileys/sm135.gif">,//sm134,<img src=" $+ $mircdir $+ Smileys/sm134.gif">,//sm132,<img src=" $+ $mircdir $+ Smileys/sm132.gif">,//sm131,<img src=" $+ $mircdir $+ Smileys/sm131.gif">,//sm130,<img src=" $+ $mircdir $+ Smileys/sm130.gif">,//sm129,<img src=" $+ $mircdir $+ Smileys/sm129.gif">,//sm128,<img src=" $+ $mircdir $+ Smileys/sm128.gif">))
alias Smileys9 return $Smileys10($replace($1-,//sm127,<img src=" $+ $mircdir $+ Smileys/sm127.gif">,//sm126,<img src=" $+ $mircdir $+ Smileys/sm126.gif">,//sm125,<img src=" $+ $mircdir $+ Smileys/sm125.gif">,//sm124,<img src=" $+ $mircdir $+ Smileys/sm124.gif">,//sm123,<img src=" $+ $mircdir $+ Smileys/sm123.gif">,//sm122,<img src=" $+ $mircdir $+ Smileys/sm122.gif">,//sm121,<img src=" $+ $mircdir $+ Smileys/sm121.gif">,//sm120,<img src=" $+ $mircdir $+ Smileys/sm120.gif">,//sm119,<img src=" $+ $mircdir $+ Smileys/sm119.gif">,//sm118,<img src=" $+ $mircdir $+ Smileys/sm118.gif">,//sm117,<img src=" $+ $mircdir $+ Smileys/sm117.gif">,//sm116,<img src=" $+ $mircdir $+ Smileys/sm116.gif">,//sm115,<img src=" $+ $mircdir $+ Smileys/sm115.gif">,//sm114,<img src=" $+ $mircdir $+ Smileys/sm114.gif">,//sm113,<img src=" $+ $mircdir $+ Smileys/sm113.gif">))
alias Smileys10 return $Smileys11($replace($1-,//sm112,<img src=" $+ $mircdir $+ Smileys/sm112.gif">,//sm111,<img src=" $+ $mircdir $+ Smileys/sm111.gif">,//sm110,<img src=" $+ $mircdir $+ Smileys/sm110.gif">,//sm109,<img src=" $+ $mircdir $+ Smileys/sm109.gif">,//sm108,<img src=" $+ $mircdir $+ Smileys/sm108.gif">,//sm107,<img src=" $+ $mircdir $+ Smileys/sm107.gif">,//sm106,<img src=" $+ $mircdir $+ Smileys/sm106.gif">,//sm105,<img src=" $+ $mircdir $+ Smileys/sm105.gif">,//sm104,<img src=" $+ $mircdir $+ Smileys/sm104.gif">,//sm103,<img src=" $+ $mircdir $+ Smileys/sm103.gif">,//sm102,<img src=" $+ $mircdir $+ Smileys/sm102.gif">,//sm101,<img src=" $+ $mircdir $+ Smileys/sm101.gif">,//sm100,<img src=" $+ $mircdir $+ Smileys/sm100.gif">,//sm99,<img src=" $+ $mircdir $+ Smileys/sm99.gif">,//sm98,<img src=" $+ $mircdir $+ Smileys/sm98.gif">))
alias Smileys11 return $Smileys12($replace($1-,//sm97,<img src=" $+ $mircdir $+ Smileys/sm97.gif">,//sm96,<img src=" $+ $mircdir $+ Smileys/sm96.gif">,//sm95,<img src=" $+ $mircdir $+ Smileys/sm95.gif">,//sm94,<img src=" $+ $mircdir $+ Smileys/sm94.gif">,//sm93,<img src=" $+ $mircdir $+ Smileys/sm93.gif">,//sm92,<img src=" $+ $mircdir $+ Smileys/sm92.gif">,//sm91,<img src=" $+ $mircdir $+ Smileys/sm91.gif">,//sm90,<img src=" $+ $mircdir $+ Smileys/sm90.gif">,//sm89,<img src=" $+ $mircdir $+ Smileys/sm89.gif">,//sm88,<img src=" $+ $mircdir $+ Smileys/sm88.gif">,//sm87,<img src=" $+ $mircdir $+ Smileys/sm87.gif">,//sm86,<img src=" $+ $mircdir $+ Smileys/sm86.gif">,//sm85,<img src=" $+ $mircdir $+ Smileys/sm85.gif">,//sm84,<img src=" $+ $mircdir $+ Smileys/sm84.gif">,//sm83,<img src=" $+ $mircdir $+ Smileys/sm83.gif">))
alias Smileys12 return $Smileys13($replace($1-,//sm82,<img src=" $+ $mircdir $+ Smileys/sm82.gif">,//sm81,<img src=" $+ $mircdir $+ Smileys/sm81.gif">,//sm80,<img src=" $+ $mircdir $+ Smileys/sm80.gif">,//sm79,<img src=" $+ $mircdir $+ Smileys/sm79.gif">,//sm78,<img src=" $+ $mircdir $+ Smileys/sm78.gif">,//sm77,<img src=" $+ $mircdir $+ Smileys/sm77.gif">,//sm76,<img src=" $+ $mircdir $+ Smileys/sm76.gif">,//sm75,<img src=" $+ $mircdir $+ Smileys/sm75.gif">,//sm74,<img src=" $+ $mircdir $+ Smileys/sm74.gif">,//sm73,<img src=" $+ $mircdir $+ Smileys/sm73.gif">,//sm72,<img src=" $+ $mircdir $+ Smileys/sm72.gif">,//sm71,<img src=" $+ $mircdir $+ Smileys/sm71.gif">,//sm70,<img src=" $+ $mircdir $+ Smileys/sm70.gif">,//sm69,<img src=" $+ $mircdir $+ Smileys/sm69.gif">,//sm68,<img src=" $+ $mircdir $+ Smileys/sm68.gif">))
alias Smileys13 return $Smileys14($replace($1-,//sm67,<img src=" $+ $mircdir $+ Smileys/sm67.gif">,//sm66,<img src=" $+ $mircdir $+ Smileys/sm66.gif">,//sm65,<img src=" $+ $mircdir $+ Smileys/sm65.gif">,//sm64,<img src=" $+ $mircdir $+ Smileys/sm64.gif">,//sm63,<img src=" $+ $mircdir $+ Smileys/sm63.gif">,//sm62,<img src=" $+ $mircdir $+ Smileys/sm62.gif">,//sm61,<img src=" $+ $mircdir $+ Smileys/sm61.gif">,//sm60,<img src=" $+ $mircdir $+ Smileys/sm60.gif">,//sm59,<img src=" $+ $mircdir $+ Smileys/sm59.gif">,//sm58,<img src=" $+ $mircdir $+ Smileys/sm58.gif">,//sm56,<img src=" $+ $mircdir $+ Smileys/sm56.gif">,//sm55,<img src=" $+ $mircdir $+ Smileys/sm55.gif">,//sm54,<img src=" $+ $mircdir $+ Smileys/sm54.gif">,//sm53,<img src=" $+ $mircdir $+ Smileys/sm53.gif">))
alias Smileys14 return $Smileys15($replace($1-,//sm52,<img src=" $+ $mircdir $+ Smileys/sm52.gif">,//sm51,<img src=" $+ $mircdir $+ Smileys/sm51.gif">,//sm50,<img src=" $+ $mircdir $+ Smileys/sm50.gif">,//sm49,<img src=" $+ $mircdir $+ Smileys/sm49.gif">,//sm48,<img src=" $+ $mircdir $+ Smileys/sm48.gif">,//sm47,<img src=" $+ $mircdir $+ Smileys/sm47.gif">,//sm46,<img src=" $+ $mircdir $+ Smileys/sm46.gif">,//sm45,<img src=" $+ $mircdir $+ Smileys/sm45.gif">,//sm44,<img src=" $+ $mircdir $+ Smileys/sm44.gif">,//sm43,<img src=" $+ $mircdir $+ Smileys/sm43.gif">,//sm42,<img src=" $+ $mircdir $+ Smileys/sm42.gif">,//sm41,<img src=" $+ $mircdir $+ Smileys/sm41.gif">,//sm40,<img src=" $+ $mircdir $+ Smileys/sm40.gif">,//sm39,<img src=" $+ $mircdir $+ Smileys/sm39.gif">,//sm38,<img src=" $+ $mircdir $+ Smileys/sm38.gif">))
alias Smileys15 return $Smileys16($replace($1-,//sm37,<img src=" $+ $mircdir $+ Smileys/sm37.gif">,//sm36,<img src=" $+ $mircdir $+ Smileys/sm36.gif">,//sm35,<img src=" $+ $mircdir $+ Smileys/sm35.gif">,//sm34,<img src=" $+ $mircdir $+ Smileys/sm34.gif">,//sm33,<img src=" $+ $mircdir $+ Smileys/sm33.gif">,//sm32,<img src=" $+ $mircdir $+ Smileys/sm32.gif">,//sm31,<img src=" $+ $mircdir $+ Smileys/sm31.gif">,//sm30,<img src=" $+ $mircdir $+ Smileys/sm30.gif">,//sm29,<img src=" $+ $mircdir $+ Smileys/sm29.gif">,//sm28,<img src=" $+ $mircdir $+ Smileys/sm28.gif">,//sm27,<img src=" $+ $mircdir $+ Smileys/sm27.gif">,//sm26,<img src=" $+ $mircdir $+ Smileys/sm26.gif">,//sm25,<img src=" $+ $mircdir $+ Smileys/sm25.gif">,//sm24,<img src=" $+ $mircdir $+ Smileys/sm24.gif">,//sm23,<img src=" $+ $mircdir $+ Smileys/sm23.gif">))
alias Smileys16 return $Smileys17($replace($1-,//sm22,<img src=" $+ $mircdir $+ Smileys/sm22.gif">,//sm21,<img src=" $+ $mircdir $+ Smileys/sm21.gif">,//sm20,<img src=" $+ $mircdir $+ Smileys/sm20.gif">,//sm19,<img src=" $+ $mircdir $+ Smileys/sm19.gif">,//sm18,<img src=" $+ $mircdir $+ Smileys/sm18.gif">,//sm17,<img src=" $+ $mircdir $+ Smileys/sm17.gif">,//sm16,<img src=" $+ $mircdir $+ Smileys/sm16.gif">,//sm15,<img src=" $+ $mircdir $+ Smileys/sm15.gif">,//sm14,<img src=" $+ $mircdir $+ Smileys/sm14.gif">,//sm13,<img src=" $+ $mircdir $+ Smileys/sm13.gif">,//sm12,<img src=" $+ $mircdir $+ Smileys/sm12.gif">,//sm11,<img src=" $+ $mircdir $+ Smileys/sm11.gif">,//sm10,<img src=" $+ $mircdir $+ Smileys/sm10.gif">,//sm9,<img src=" $+ $mircdir $+ Smileys/sm9.gif">,//sm8,<img src=" $+ $mircdir $+ Smileys/sm8.gif">))
alias Smileys17 return $replace($1-,//sm7,<img src=" $+ $mircdir $+ Smileys/sm7.gif">,//sm6,<img src=" $+ $mircdir $+ Smileys/sm6.gif">,//sm5,<img src=" $+ $mircdir $+ Smileys/sm5.gif">,//sm4,<img src=" $+ $mircdir $+ Smileys/sm4.gif">,//sm3,<img src=" $+ $mircdir $+ Smileys/sm3.gif">,//sm2,<img src=" $+ $mircdir $+ Smileys/sm2.gif">,//sm1,<img src=" $+ $mircdir $+ Smileys/sm1.gif">)
alias JSalias {
var %cmd $replace($dll(DllTmp/Dll $+ $window($1).hwnd $+ .dll,alias,),-target,$1)
if (($chan($1) != $null) || ($query($1) != $null)) $iif(%cmd != $1,%cmd)
else .timer $+ $2 off
}
raw 333:*: set %topic [ $+ [ $window($2).hwnd ] ] $3-
raw 352:*: halt
on *:active:*: {
if (($isWinHTML($active)) && ($exists(DllTmp/Dll $+ $window($active).hwnd $+ .dll))) {
dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
}
}
on *:APPACTIVE: {
if ($isWinHTML($active)) {
dll DllTmp/Dll $+ $window($active).hwnd $+ .dll Scrooling
}
}
on *:start: {
while ($findfile(DllTmp,Dll*.dll,0) != 0) {
.remove $shortfn($findfile(DllTmp,Dll*.dll,1))
}
}
alias me {
describe $active $1-
}
alias ame {
var %MyChan 1
while (%MyChan <= $chan(0)) {
describe $chan(%MyChan) $1-
inc %MyChan 1
}
}
alias query {
query $1
if (!$exists(DllTmp/Dll $+ $window($1).hwnd $+ .dll)) {
.copy -o SmilesView.dll DllTmp/Dll $+ $window($1).hwnd $+ .dll
if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
else { dll DllTmp/Dll $+ $window($1).hwnd $+ .dll attach $window($1).hwnd | dll DllTmp/Dll $+ $window($1).hwnd $+ .dll navigate about:blank }
.timer $+ $window($1).hwnd -m 0 1 HTMLLoad $1
}
}
on *:open:?: {
if (!$exists(DllTmp/Dll $+ $window($nick).hwnd $+ .dll)) {
.copy -o SmilesView.dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll
if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
else { dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll attach $window($nick).hwnd | dll DllTmp/Dll $+ $window($nick).hwnd $+ .dll navigate about:blank }
set %PV [ $+ [ $window($nick).hwnd ] ] $1-
.timer $+ $window($nick).hwnd -m 0 1 HTMLLoad $nick
}
}
on *:join:#: {
if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) a rejoint $chan | halt }
else {
if (!$exists(DllTmp/Dll $+ $window($chan).hwnd $+ .dll)) {
.copy -o SmilesView.dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll
if (($os == 98) || ($os == ME) || ($os == 95) || ($os == NT)) { timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | .timer 1 1 dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
else { dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll attach $window($chan).hwnd | dll DllTmp/Dll $+ $window($chan).hwnd $+ .dll navigate about:blank }
.timer $+ $window($chan).hwnd -m 0 1 HTMLLoad $chan
who $chan
}
}
}
on *:part:#: {
if ($nick != $me) { echo $chan 3 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) part de $chan ( $1- ) | halt }
elseif ($var(%chan [ $+ [ $window($chan).hwnd ] ]) != $null) {
if (%chan [ $+ [ $window($chan).hwnd ] ]) unset %chan [ $+ [ $window($chan).hwnd ] ]
else %chan [ $+ [ $window($chan).hwnd ] ] = $true
}
}
on *:quit: {
if ($nick != $me) {
var %ComChan 1
while (%ComChan <= $comchan($nick,0)) {
echo $comchan($nick,%ComChan) 2 $+ $chr(91) $+ $asctime(HH:nn) $+ $chr(93) *** $nick ( $+ $right($address($nick,0),-2) $+ ) s'est déconnecté(e) ( $1- 2)
inc %ComChan 1
}
halt
}
}
raw 401:*: echo -a $2 n'est pas sur le serveur
;Coloration des pseudo du chan : $PseudoColor(chan,couleure,phrase)
alias PseudoColor {
var %PseudoColor
var %NbrMots 1
while (%NbrMots <= $gettok($3,0,32)) {
%PseudoColor = %PseudoColor $iif($gettok($3,%NbrMots,32) ison $1,$iif($gettok($3,%NbrMots,32) isop $1,4,$iif($gettok($3,%NbrMots,32) isvo $1,3,12))) $+ $gettok($3,%NbrMots,32) $+ $iif($gettok($3,%NbrMots,32) ison $1,$2)
inc %NbrMots 1
}
return %PseudoColor
}
alias lienHTML {
var %phraseLien
if ((http:// isin $strip($1-)) || (www. isin $strip($1-)) || (@ isin $1-)) {
var %NbrTock 1
while (%NbrTock <= $gettok($1-,0,32)) {
%phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),7) == http://,<a style="cursor: hand" onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),4) == www.,<a style="cursor: hand" onClick="window.open('http:// $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($left($strip($gettok($1-,%NbrTock,32)),7) == mailto:,<a style="cursor: hand" onClick="window.open(' $+ $strip($gettok($1-,%NbrTock,32)) $+ ');"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32))))
inc %NbrTock 1
}
}
else %phraseLien = $1-
return %phraseLien
}
alias LienCHAN {
var %phraseLien
if ($chr(35) isin $1-) {
var %NbrTock 1
while (%NbrTock <= $gettok($1-,0,32)) {
%phraseLien = %phraseLien $iif($left($strip($gettok($1-,%NbrTock,32)),1) == $chr(35),<a style="cursor: hand" onClick="document.title = 'join $strip($gettok($1-,%NbrTock,32)) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$iif($right($left($strip($gettok($1-,%NbrTock,32)),2),1) == $chr(35),<a style="cursor: hand" onClick="document.title = 'join $right($strip($gettok($1-,%NbrTock,32)),-1) $+ ';"> $+ $gettok($1-,%NbrTock,32) $+ </a>,$gettok($1-,%NbrTock,32)))
inc %NbrTock 1
}
}
else %phraseLien = $1-
return %phraseLien
}
on *:exit: unset %chan* %topic*
raw 318:*: {
if ($var(%PV [ $+ [ $window(%whois).hwnd ] ] ) == 1) {
echo %whois $ts.timestamp-active %ts.cgn $+ $+ $colour(listbox text) $+ %whois $+ %ts.cdn $+ %PV [ $+ [ $window(%whois).hwnd ] ]
echoo $whois 12 $+ $chr(91) $+ 05 $+ $asctime(HH:nn) $+ 12 $+ $chr(93) ( .5 $iif($away,//away) %whois 12. )01 %PV [ $+ [ $window(%whois).hwnd ] ]
unset %PV [ $+ [ $window(%whois).hwnd ] ]
}
unset %whois
halt
}
alias whois {
if ($2 != $null) set %whois $2
else set %whois $active
whois $1
}
alias valion {
var %lol
var %tock 1
while (%tock <= $gettok($1-,0,32)) {
%lol = %lol $iif($gettok($strip($1-),%tock,32) == l $+ $str(o,$calc($len($gettok($strip($1-),%tock,32)) - 2)) $+ l,<img src=" $+ $mircdir $+ l.gif"> $+ $str(<img src=" $+ $mircdir $+ Smileys/sm22.gif">,$calc($len($gettok($strip($1-),%tock,32))-2)) $+ <img src=" $+ $mircdir $+ L.gif">,$gettok($1-,%tock,32))
inc %tock 1
}
return %lol
}
alias mIrcHTML return $Smileys($img($SoulignHTML($GrasHTML($Couleure($valion($LienCHAN($lienHTML($pvHTML($replace($1-,<,<<c>))))))))))
alias pvHTML {
var %lienPV $1-
if (*PV isin %lienPV) {
while ($wildtok(%lienPV,PV *,0,42) != 0) {
%lienPV = $replace(%lienPV,* $+ $wildtok(%lienPV,PV *,1,42) $+ *,<a style="cursor: hand" onClick="document.title = 'clkNick $right($wildtok(%lienPV,PV *,1,42),-3) -target';"> $+ $right($wildtok(%lienPV,PV *,1,42),-3) $+ </a>)
}
}
return %lienPV
}
alias clkNick {
sline $2 $fline($2,$1,1,1)
query $1
}
alias function dll DllTmp/Dll $+ $window($1).hwnd $+ .dll function $2-
CTCP *:IMAGE:#: {
if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
echo $chan 4-> $nick a envoyé2 $2- 4sur $chan :
writeln $chan <Br><center><img src=" $+ $2- $+ "></center>
}
}
CTCP *:IMAGE:?: {
if (($right($2-,4) == .gif) || ($right($2-,4) == .jpg)) {
echo $active 4-> $nick vous a envoyé2 $2- 4:
writeln $active <Br><center><img src=" $+ $2- $+ "></center>
}
}
alias choix ctcp $1 image $?="Entrer l'adresse de l'image"
Conclusion
Ca sert à voir les smileys Java sous Mirc.
Le zip est a cette adresse: Le zip est a cette adresse: http://membres.lycos.fr/camanche/SmilesView.zip
Sources de la même categorie
Commentaires et avis
|